09 第9章 数据库项目模块基础.ppt

第9章 数据库项目模块基础 第3部分 VB.NET数据库项目实例 本部分包括4章： ? 第9章 数据库项目模块基础 ? 第10章 学生信息管理系统 ? 第11章 旅馆房间信息系统 ? 第12章 进销存物流管理系统 大纲 ◎ 数据库项目通用模块：DBConnection、DBCommand、DBReader类和DBDataTable类 ◎ TreeView树状节点的动态控制，模板的保存和读取 ◎ 项目的发布与打包 9.1 数据库项目通用模块 在数据库项目开发中，通常要频繁操作数据，要大量调用ADO.NET的类库，为了简化编程，通常设计通用数据库连接与操作模块，需要分别对ADO.NET五个核心对象编写一体化的程序设计接口。 9.1.1 DBConnection类的设计 案例名称：数据库连接通用模块 程序名称：DBConnection.vb Imports System.Data.SqlClient Imports System.Data.OleDb Imports System.Data.Odbc Namespace DBConfig Public Class DBConnection 声明一个受保护变量存储连接数据库的信息 Protected ConnStr As String 声明用于数据库连接的保护成员 #If DB_OLEDB Then Protected conn As OleDbConnection #ElseIf DB_ODBC Then Protected conn As OdbcConnection #Else Protected conn As SqlConnection #End If Protected Sub Open() 判断连接字符串是否为空 If ConnStr Is Nothing Or ConnStr = Then MessageBox.Show(请指定连接字符串!) Return End If 实例化Connection类 #If DB_OLEDB Then conn = New OleDbConnection(ConnStr) #ElseIf DB_ODBC Then conn = New OdbcConnection(ConnStr) #Else conn = New SqlConnection(ConnStr) #End If 打开数据库 conn.Open() End Sub Protected Sub Close() 关闭连接 conn.Close() End Sub End Class End Namespace 9.1.2 DBCommand类的设计 案例名称：数据库连接通用模块 程序名称：DBCommand.vb Imports System.Data.SqlClient Imports System.Data.OleDb Imports System.Data.Odbc Namespace DBConfig Public Class DBCommand Inherits DBConnection 在构造函数中指定连接信息字符串 Public Sub New(ByVal str As String) ConnStr = str End Sub Public Function Insert(ByVal strSQL As String) As Integer 连接数据库 Open() 创建SqlCommand实例 #If DB_OLEDB Then Dim cmd As OleDbCommand = New OleDbCommand(strSQL, conn) #ElseIf DB_ODBC Then Dim cmd As OdbcCommand = New OdbcCommand(strSQL, conn) #Else