内容发布更新时间 : 2024/12/24 20:59:27星期一 下面是文章的全部内容请认真阅读。
龙源期刊网 http://www.qikan.com.cn
VB.NET数据库项目通用模块的创建及其应用
作者：朱瑞芳
来源：《电脑知识与技术》2016年第25期
摘要：运用VB.NET技术建立数据库项目通用模块，并且通过运用listView控件，说明数据通用模块的应用方法，阐述了类的继承和扩展的具体运用，为设计高效、稳定的数据库管理系统提供宝贵资源。
关键词：通用模块；添加；删除；编辑
中图分类号：TP311 文献标识码：A 文章编号：1009-3044（2016）25-0011-05 Abstract： Using the built module database project of VB.NET technology and listView control，that demonstrate the application of method of general module data，Also described the specific use of inheritance and expansion of class. These Provide valuable resources for the database management system design of high efficiency and stable. Key words： universal module； add； delete； edit 1 引言
VB.NET继承类允许扩展类，可以创造一个带有一定功能的新类。如果有部分功能已经能由一个已经存在的类提供了，则可以扩展原来的那个类来构建一个新类。那么新建的这个类成为子类或者继承类，而原来的那个类称为父类或者基类。扩充类的过程称为扩展，关键字为inherit 用于描述扩展类的行为。在VB.NET中一个类只能有一个父类。 2 数据库通用模块代码及其说明
打开Visual Studio 2010，新建一个工程，名称假设为SalesManager，在项目下新建一个文件夹，命名为TYConfig.在该文件夹下，添加6个类。其中TYConnection为父类，
TYCommand、TYDataReader、TYDataTable子类3个为子类或称继承类。如图1解决方案资源资源管理器所示。下面分别介绍主要代码（注：单引号“‘”后面的文字为简要说明，与代码同行的是说明同行的代码；单独行的是说明下一行的代码）。 2.1 数据库连接通用模块 父类TYConnection
龙源期刊网 http://www.qikan.com.cn
Imports System.Data.SqlClient ‘连接SQL Server Namespace TYConfig ‘命名空间名称为TYConfig Public Class TYConnection ‘声明类TYConnection ‘声明一个受保护变量存储连接数据库的信息 Protected ConnStr As String ‘声明用于数据库连接的保护成员 Protected conn As SqlConnection Protected Sub Open（） ‘判断连接字符串是否为空
If ConnStr Is Nothing Or ConnStr = \ MessageBox.Show（\请指定连接字符串！\） Return End If
‘实例化Connection类
conn = New SqlConnection（ConnStr） conn.Open（） ‘打开数据库 End Sub
Protected Sub Close（） conn.Close（） ‘关闭连接 End Sub End Class End Namespace
龙源期刊网 http://www.qikan.com.cn
在这“TYConnection”类中，最上面二句和最下面一句，表示命名空间的定义，在下面3个继承类中不再重复。 2.2 创建TYCommand 类
该类包括 Function过程，分别实现添加、删除、更新数据。 Imports System.Data.SqlClient ‘连接SQL Server Namespace TYConfig ‘命名空间名称为TYConfig Public Class TYCommand ‘TYCommand类的声明
Inherits TYConnection ‘为继承TYConnection类的功能，重用这个类里的功能，避免代码重复
Public Sub New（ByVal str As String） ‘创建有一个参数为str的构造函数，指定连接信息字符串
ConnStr = str End Sub
Public Function Insert（ByVal strSQL As Strin ） As Integer ‘添加数据的Function过程 Open（） ‘连接数据库 ‘创建 SqlCommand 实例
Dim cmd as SqlCommand=New SqlCommand（strSQL，comm） ‘count 表示受影响的行数，初始化为0 Dim count As Integer=0
Count=cmd.ExecuteNonQuery（） Close（） ‘关闭数据库 End Fuction
‘删除数据的Function过程 ，有三个参数，分别对应数据库中的表名、需要删除的条件