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

《vb.net数据库项目通用模块的创建及其应用》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VB.NET数据库项目通用模块的创建及其应用　　摘要：运用VB.NET技术建立数据库项目通用模块，并且通过运用listView控件，说明数据通用模块的应用方法，阐述了类的继承和扩展的具体运用，为设计高效、稳定的数据库管理系统提供宝贵资源。　　关键词：通用模块；添加；删除；编辑　　中图分类号：TP311文献标识码：A文章编号：1009-3044（2016）25-0011-05　　Abstract：UsingthebuiltmoduledatabaseprojectofVB.NETtechnologyandlistViewcontrol，thatdemonstratetheappli

2、cationofmethodofgeneralmoduledata，Alsodescribedthespecificuseofinheritanceandexpansionofclass.TheseProvidevaluableresourcesforthedatabasemanagementsystemdesignofhighefficiencyandstable.　　Keywords：universalmodule；add；delete；edit　　1引言　　VB.NET继承类允许扩展类，可以创造一个带有一定功能的新类。如果有部分功能已经能由一个已经存在的类提供了，则可以扩展

3、原来的那个类来构建一个新类。那么新建的这个类成为子类或者继承类，而原来的那个类称为父类或者基类。扩充类的过程称为扩展，关键字为inherit用于描述扩展类的行为。在VB.NET中一个类只能有一个父类。15　　2数据库通用模块代码及其说明　　打开VisualStudio2010，新建一个工程，名称假设为SalesManager，在项目下新建一个文件夹，命名为TYConfig.在该文件夹下，添加6个类。其中TYConnection为父类，TYCommand、TYDataReader、TYDataTable子类3个为子类或称继承类。如图1解决方案资源资源管理器所示。下面分别介绍主要代码

4、（注：单引号“‘”后面的文字为简要说明，与代码同行的是说明同行的代码；单独行的是说明下一行的代码）。　　2.1数据库连接通用模块　　父类TYConnection　　ImportsSystem.Data.SqlClient‘连接SQLServer　　NamespaceTYConfig‘命名空间名称为TYConfig　　PublicClassTYConnection‘声明类TYConnection　　‘声明一个受保护变量存储连接数据库的信息　　ProtectedConnStrAsString　　‘声明用于数据库连接的保护成员　　ProtectedconnAsSqlConnection

5、　　ProtectedSubOpen（）　　‘判断连接字符串是否为空　　IfConnStrIsNothingOrConnStr=""Then　　MessageBox.Show（"请指定连接字符串！"）　　Return15　　EndIf　　‘实例化Connection类　　conn=NewSqlConnection（ConnStr）　　conn.Open（）‘打开数据库　　EndSub　　ProtectedSubClose（）　　conn.Close（）‘关闭连接　　EndSub　　EndClass　　EndNamespace　　在这“TYConnection”类中，最上面二句和最

6、下面一句，表示命名空间的定义，在下面3个继承类中不再重复。　　2.2创建TYCommand类　　该类包括Function过程，分别实现添加、删除、更新数据。　　ImportsSystem.Data.SqlClient‘连接SQLServer　　NamespaceTYConfig‘命名空间名称为TYConfig　　PublicClassTYCommand‘TYCommand类的声明　　InheritsTYConnection‘为继承TYConnection类的功能，重用这个类里的功能，避免代码重复　　PublicSubNew（ByValstrAsString）‘创建有一个参数为st

7、r的构造函数，指定连接信息字符串　　ConnStr=str15　　EndSub　　PublicFunctionInsert（ByValstrSQLAsStrin）AsInteger‘添加数据的Function过程　　Open（）‘连接数据库　　‘创建SqlCommand实例　　DimcmdasSqlCommand=NewSqlCommand（strSQL，comm）　　‘count表示受影响的行数，初始化为0　　DimcountAsInteger=0　　Count=cmd.Exe