通讯录软件测试初学者,通过实例学VB—创建简单的个人通讯录

对于初学者来说任何编程语言都很让人迷惑，尤其是编写代码的时候。笔者通过自己的经历感觉学习任何东西通过例子来实践是最好的方法。今天就通过和大家来一起用

对于个人通讯录而言我们需要对通讯录的数据进行存储，那用什么来实现呢？在VB的“外接程序”菜单中嵌有“可视化数据管理器”，它可以对多种

在VB中建立新的“标准EXE”工程，这时我们可以开始设计。在窗体中先加入一个label标签框控件(label1)，将其caption属性设置为“请输入姓名：”(caption对于任何控件都是设置其显示的名称)，然后再加入一个text文本框控件(text1)，将其text属性设置为空(text属性是文本的显示内容)，再加入一个command命令按钮控件(command1)，将其caption属性设置为“查询”，然后再在窗体下方加入一个label控件用于显示查询结果(label2)，将其caption设置为空。最后加入一个关键的控件data数据控件(data1)，data控件用于程序与数据库的连接，我们需要设置其Connect属性：连接数据库的类型，这里我们选择Access，DatabaseName属性为数据库的路径及名称，RecordSource属性为数据库中表的名称txl，Visible属性是设置此控件是否可见，我们不想让此控件在程序运行中可见，所以我们选择False.以上我们完成了程序的界面设计，下一步就是来完成对代码的设计。

我们这个程序想要实现的是输入已知的姓名，单击查询按钮，系统显示查询后的电话，所以我们只需对按钮的单击事件来编写代码：

Private Sub Command1_Click()

Data1.Recordset.FindFirst "name='" & Text1.Text & "'" ‘此句为找到满足条件的记录

If Data1.Recordset.NoMatch Then ‘若没找到

MsgBox "无此姓名，请重新输入！"，

Text1.Text = ""

Label2.Caption = ""

Text1.SetFocus ‘以上三句使文本框内容为空

Else ‘光标重新定位text1重新输入

Label2.Caption = Data1.Recordset.Fields("tel") ‘找到则在label中显示结果

End If

End Sub

这里面的关键就是data控件的recordset的用法，本例只介绍了查询功能FindFirst和字段Fields(字段名)，另外它还有EDIT、DELETE、UPDATE、ADDNEW记录的编辑、删除、更新、添加等功能，大家可以通过实践举一反三增强这个通讯录的功能，从而对VB有更多的了解。(本程序已在VB6.0、

源程序下载地址：http://www.cbifamily.com/down/200344/prog1.rar