4 系统实现
4.1 主要控件介绍
4.1.1 ADO Data控件
使用ADO Data控件可以使VB连接本地数据库或远程数据库，可以打开指1>ConnectionString属性，用于建立到数据源的连接信息。 2>RecordSource属性，用于设置要连接的表或sql查询语句。 3>UserName属性，用于指定用户的名称。 4>PassWord属性，用于指定密码。
5>AddNew方法，用于向绑定的表增加一条新纪录，Adodc.Recordset.AddNew。 6>Delete方法，用于删除一条记录，Adodc1.Recordset.Delete。
7>MoveFirst、MoveLast、MoveNext和MovePrevious方法，用于在记录集中
定数据库表，对表内容进行读、改、增、删等功能。
移动记录指针的位置。 4.1.2 DataGrid控件
DataGrid控件是一种类似与电子数据表格的绑定控件，可以显示一系列行和
列表示的记录集对象的记录和字段。可以利用DataGrid控件创建一个允许最终用户阅读和写入到数据库的应用程序。
1>DataSource属性，用于设置DataGrid控件的数据源，
18
2>Click事件，该事件在用户单击DataGrid控件时触发。 4.1.3 DataCombo控件
DataCombo控件是以一个下拉列表框的形式提供给用户的。它可以和一个具
体数据库中的表、表中的项或一段SQL语句相联系，从而在下拉列表框中显示出具体的数据。
1> DataSource属性，用于返回或设置DataCombo控件的数据源，通过该数
据源，数据使用者被绑定到一个数据库中。
2> RowSource属性，用于设置一个指定的ADO控件。DataCombo控件的列3>ListField属性，用于设置记录集中字段的名称。
4>LostFocu事件，该事件在焦点离开DataCombo控件时触发。 3>Click事件，该事件在用户单击DataCombo控件时触发。 表由这个ADO控件填充。
4.1.4 TreeView控件
TreeView控件用于显示信息的分级视图，如同Windows中显示的文件和目
录。TreeView控件中的各项信息都有一个与之相关联的Node对象。TreeView显示Node对象的分层目录结构，每个Node对象均由一个label对象和其相关的位
19
图组成。在建立TreeView控件后，用户可以展开和折叠、显示或隐藏其中的节点。
1>Nodes(index)属性,用于访问TreeView控件的Nodes对象集合中的某个节2>Add方法，用于向TreeView控件的Nodes集合中添加一个新节点。方法 TreeView1.Nodes.Add , , “K”&Trim(str(n)), Trim(rs1.Fields(“专业”)),1 3>NodeClick事件，在用户单击节点的文本时激活。格式如下： Private Sub TreeView1_NodeClick(ByVal node As MSComctlLib.Node) … End sub
4>Expand事件，在用户展开一个“+”节点时激活。
Private Sub TreeView1_Expand(ByVal node As MSComctlLib.Node) … End sub
5>Cllapse事件，在用户折叠一个“-”节点时激活。
Private Sub TreeView1_Collapse(ByVal node As MSComctlLib.Node) … End sub
点。index用于指定Nodes集合中的某个节点的编号。
如下:TreeView1.Nodes.Add(Relative,RelationShip,Key,Text,Image,Seleteimage)，
4.2 核心代码
系统的核心代码就是实现各种数据库连接控件对数据库表进行读、增、删、
改操作。最主要的是Adodc控件（ADO Data控件）的操作，其它的如DataGrid、DataCombo可以绑定到Adodc控件上。
在使用VB连接MYSQL之前，要先配置好ODBC数据源。 4.2.1 通过代码连接数据库
这是比较核心的部分了，几乎每个窗体都要用到。
sql = “select * from 数据表名”
Set conn = New ADODB.Connection ?定义连接对象conn Set rst = New ADODB.Recordset
conn.ConnectionString = \ conn.Open ?打开连接
20
Set rst.ActiveConnection = conn rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset ?设置游标类型 rst.Open sql ?rst绑定到数据库数据表 Set rst = Nothing ?清空rst
Set conn = Nothing
?清空conn
conn.Close ?关闭连接
以下是公共模块module1中连接数据库的公共函数。
Public Function exesql(ByVal sql As String) As ADODB.Recordset '公共函数，通过代码连接到数据库
sql = Trim$(sql)
Set conn = New ADODB.Connection Set rst = New ADODB.Recordset
conn.ConnectionString = \ conn.Open
Set rst.ActiveConnection = conn rst.LockType = adLockOptimistic rst.CursorType = adOpenKeyset rst.Open sql Set exesql = rst Set rst = Nothing Set conn = Nothing End Function
4.2.2 通过ADO Data控件操控数据库
1>基本操作
Adodc1.Recordset.AddNew ?增加一条记录
Adodc1.Recordset.Fields(0) = Trim(Text1.Text) ?读取记录指针下指定字段的数据 Adodc1.Recordset.Update ?更新数据集 Adodc1.Recordset.Requery
2>修改数据源绑定
Adodc1.Recordset.RecordSource = “select * from 表名 where 1”
21
相关推荐：
loading