程序接龙

小彦
2000年 第48期 

　　本期“程序接龙”将介绍关键的程序代码，主要是实现对数据的添加、删除、修改、查询。首先我们需要建立一个简单的数据库，就用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，实现了成员信息的简单数据操作功能。

 