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。其中一个通讯录表

1 / 15
下载文档,编辑使用

©2015-2020 m.777doc.com 三七文档.

备案号:鲁ICP备2024069028号-1 客服联系 QQ:2149211541

×
保存成功