标题程序接龙

　　本期“程序接龙”将介绍关键的程序代码，主要是实现对数据的添加、删除、修改、查询。首先我们需要建立一个简单的数据库，就用Microsoft Access吧。将数据库命名为db1.mdb，创建一个数据表ComInfo，字段名分别为：姓名(关键字)、性别、年龄、健康状况、其他信息。然后，录入几个记录就可以了。
　　打开我们已经创建过的工程，添加一个Data控件(默认名称为Data1)，这主要是用来捆绑数据库的，即为数据库和上一期所讲的显示界面建立联系。Data控件的工作原理是这样的：先由Data控件获得数据库的数据，然后其他控件直接从Data控件读取和写入数据。
　　先将Data1和数据库建立关联，将Data1的“DatabaseName”属性设置为数据库的路径，即db1.mdb的存放路径，然后将“RecordSource”属性设置为“ComInfo”，这样就将Data1和表ComInfo建立了关联。通常我们将“Visible”属性设置为“False”，使得Data控件处于后台控制状态。
　　接下来，就需要将显示部分与Data1建立关联。我们以“姓名”这个字段为例，将Text1(0)控件(请参见上一期“程序接龙”)的“DataSource”属性设置为“Data1”，然后将“DataField”属性设置为“姓名”，其它几个文本控件类似设置完成后便可以实现基本的数据操作了。然后在代码窗口添加以下代码：
　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
　　Select Case Button.Index
　　 '添加成员信息
　　 Case 1
　　 Data1.Recordset.AddNew
　　 Data1！姓名=Text1(0)
　　 '删除成员信息
　　 Case 2
　　 Data1.Recordset.Delete
　　 If Not Data1.Recordset.EOF Then
　　Data1.Recordset.MoveNext
　　 Else
　　Data1.Recordset.MoveLast
　　 End If
　　 '修改成员信息
　　 Case 3
　　 Data1.ReadOnly=False
　　 Data1.Recordset.Edit
　　 Data1！姓名=Text1(0)
　　 '查询成员信息
　　 Case 4
　　 Dim queString As String
　　 Dim queBkmark As String
　　 queString=InputBox("请输入姓名：")
　　 queString="姓名 like '*" & queString & "*'"
　　queBkmark=Data1.Recordset.Bookmark
　　Data1.Recordset.FindNext queString
　　If Data1.Recordset.NoMatch Then
　　 MsgBox "没有这个成员！"
　　Data1.Recordset.Bookmark=queBkmark
　　 End If
　　End Select
　　Data1.Update
　　End Sub
　　这样，我们便完成了最关键的模块01，实现了成员信息的简单数据操作功能。