华中科技大学计算机专业11级软件工程报告 - 图文

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