VB.NET数据库项目通用模块的创建及其应用

龙源期刊网数据库项目通用模块的创建及其应用作者：朱瑞芳来源：《电脑知识与技术》2016年第25期摘要：运用VB.NET技术建立数据库项目通用模块，并且通过运用listView控件，说明数据通用模块的应用方法，阐述了类的继承和扩展的具体运用，为设计高效、稳定的数据库管理系统提供宝贵资源。关键词：通用模块；添加；删除；编辑中图分类号：TP311文献标识码：A文章编号：1009-3044（2016）25-0011-05Abstract：UsingthebuiltmoduledatabaseprojectofVB.NETtechnologyandlistViewcontrol，thatdemonstratetheapplicationofmethodofgeneralmoduledata，Alsodescribedthespecificuseofinheritanceandexpansionofclass.TheseProvidevaluableresourcesforthedatabasemanagementsystemdesignofhighefficiencyandstable.Keywords：universalmodule；add；delete；edit1引言VB.NET继承类允许扩展类，可以创造一个带有一定功能的新类。如果有部分功能已经能由一个已经存在的类提供了，则可以扩展原来的那个类来构建一个新类。那么新建的这个类成为子类或者继承类，而原来的那个类称为父类或者基类。扩充类的过程称为扩展，关键字为inherit用于描述扩展类的行为。在VB.NET中一个类只能有一个父类。2数据库通用模块代码及其说明打开VisualStudio2010，新建一个工程，名称假设为SalesManager，在项目下新建一个文件夹，命名为TYConfig.在该文件夹下，添加6个类。其中TYConnection为父类，TYCommand、TYDataReader、TYDataTable子类3个为子类或称继承类。如图1解决方案资源资源管理器所示。下面分别介绍主要代码（注：单引号“‘”后面的文字为简要说明，与代码同行的是说明同行的代码；单独行的是说明下一行的代码）。2.1数据库连接通用模块父类TYConnection龙源期刊网‘连接SQLServerNamespaceTYConfig‘命名空间名称为TYConfigPublicClassTYConnection‘声明类TYConnection‘声明一个受保护变量存储连接数据库的信息ProtectedConnStrAsString‘声明用于数据库连接的保护成员ProtectedconnAsSqlConnectionProtectedSubOpen（）‘判断连接字符串是否为空IfConnStrIsNothingOrConnStr=ThenMessageBox.Show（请指定连接字符串！）ReturnEndIf‘实例化Connection类conn=NewSqlConnection（ConnStr）conn.Open（）‘打开数据库EndSubProtectedSubClose（）conn.Close（）‘关闭连接EndSubEndClassEndNamespace龙源期刊网在这“TYConnection”类中，最上面二句和最下面一句，表示命名空间的定义，在下面3个继承类中不再重复。2.2创建TYCommand类该类包括Function过程，分别实现添加、删除、更新数据。ImportsSystem.Data.SqlClient‘连接SQLServerNamespaceTYConfig‘命名空间名称为TYConfigPublicClassTYCommand‘TYCommand类的声明InheritsTYConnection‘为继承TYConnection类的功能，重用这个类里的功能，避免代码重复PublicSubNew（ByValstrAsString）‘创建有一个参数为str的构造函数，指定连接信息字符串ConnStr=strEndSubPublicFunctionInsert（ByValstrSQLAsStrin）AsInteger‘添加数据的Function过程Open（）‘连接数据库‘创建SqlCommand实例DimcmdasSqlCommand=NewSqlCommand（strSQL，comm）‘count表示受影响的行数，初始化为0DimcountAsInteger=0Count=cmd.ExecuteNonQuery（）Close（）‘关闭数据库EndFuction‘删除数据的Function过程，有三个参数，分别对应数据库中的表名、需要删除的条件龙源期刊网（ByValtableAsString，ByValrowAsString，ByValvalueAsString）AsIntegerOpen（）‘连接数据库‘创建SQL命令DimstrSQLAsString=DeleteFrom+table+Where+row+=+value‘创建SqlCommand实例DimcmdAsSqlCommand=NewSqlCommand（strSQL，conn）‘count表示受影响的行数，初始化为0DimcountAsInteger=0count=cmd.ExecuteNonQuery（）Close（）‘关闭数据库ReturncountEndFunction‘更新数据的Function过程PublicFunctionUpdate（ByValtableAs_String，ByValstrContentAsString，_ByValrowAsString，ByValvalueAsString）AsIntegerOpen（）‘连接数据库DimstrSQLAsString=Update+table+Set+strContent+Where+row+=+valueDimcmdAsSqlCommand=NewSqlCommand（strSQL，conn）DimcountAsInteger=0count=cmd.ExecuteNonQuery（）龙源期刊网（）‘关闭数据库ReturncountEndFunctionEndClassEndNamespace2.3创建DataBinding类用于ListView控件与数据库绑定。如果与ComboBox、TextVox、ListBox等控件绑定，方法类似。这里以ListView控件为例。NamespaceTYConfig‘命名空间名称为TYConfigPublicClassDataBinding‘根据指定表和指定查询条件，填充ListView.分别有控件类型、表名、列数、查询条件PublicSharedSubFillListView（ByReflsvAsListView，ByValtableNameAsString，ByValnumAsInteger，_ByValconnStrAsString，OptionalByValfieldAsString=，OptionalByValopAsString==，OptionalByValvalueAsString=）‘清空ListViewlsv.Items.Clear（）‘设置SQL语句，即读出表DimSQLStringAsString=SELECT*FROM&tableName‘如果有查询条件，则将查询条件追加到SQL语句IffieldThenSQLString+=Where&field&op&valueEndIf‘创建DBDataTable对象龙源期刊网=NewTYDataTable（connStr）‘调用DBDataTable的CreateDataTable函数，得到DataTable表DimtableAsDataTable=dt.CreateDataTable（SQLString，tableName）‘在循环中遍历DataTable表，逐行逐列把表中的内容加入到ListView控件中DimUserRowAsDataRowDimLItemAsListViewItemForEachUserRowIntable.RowsLItem=NewListViewItem（UserRow（0）.ToString.Trim（））DimiAsIntegerFori=1Tonum-1LItem.SubItems.Add（UserRow（i）.ToString（）.Trim（））Nextlsv.Items.Add（LItem）NextEndSubEndClass2.4创建TYDataReader类ImportsSystem.Data.SqlClient‘连接SQLServerNamespaceTYConfig‘命名空间名称为TYConfigPublicClassTYDataReaderInheritsTYConnection‘在构造函数中指定连接信息字符串龙源期刊网（ByValstrAsString）ConnStr=strEndSubPublicFunctionCreateDataReader（ByValstrSQLAsString，ByValtableAsString）AsSqlDataReader‘打开数据库连接Open（）‘创建SqlCommand对象DimcmdAsSqlCommand=NewSqlCommand（strSQL，conn）‘ExecuteReader执行SQL语句并返回SqlDataReaderDimdrAsSqlDataReader=cmd.ExecuteReader（）‘返回DataReaderReturndrEndFunctionEndClassEndNamespace2.5创建TYDataTable类ImportsSystem.Data.SqlClient‘连接SQLServerNamespaceTYConfig‘命名空间名称为TYConfigPublicClassTYDataTableInheritsTYConnection‘在构造函数中指定连接信息字符串龙源期刊网（ByValstrAsString）ConnStr=strEndSubPublicFunctionCreateDataTable（ByValstrSQLAsString，ByValtableAsString）AsDataTableOpen（）‘连接数据库‘使用连接字符串和SqlConnecton创建SqlDataAdapter的实例DimdaAsSqlDataAdapter=NewSqlDataAdapter（strSQL，conn）DimdsAsNewData.DataSet（）‘创建DataSet对象da.Fill（ds）‘填充DataSetClose（）‘关闭数据库Returnds.Tables（0）‘返回DataTableEndFunctionEndClassEndNamespace3数据库公用模块运用准备有了以上5个通用模块，配合ListView控件，便可以方便设计一个简单的数据库管理系统，能实现对数据的添加、编辑、删除、刷新等基本操作。3.1数据库准备本文以SQLServer2008为例，假设在C盘根目录下有一个销售统计的数据库，文件名为Sales.mdf。其中一个通讯录表