通过实例学VB—创建简单的个人通讯录

    对于初学者来说任何编程语言都很让人迷惑，尤其是编写代码的时候。笔者通过自己的经历感觉学习任何东西通过例子来实践是最好的方法。今天就通过和大家来一起用VB编写一个通讯录的实例来帮助你对VB的初步认识，从此建立起兴趣。

    对于个人通讯录而言我们需要对通讯录的数据进行存储，那用什么来实现呢？在VB的“外接程序”菜单中嵌有“可视化数据管理器”，它可以对多种数据库类型进行操作，比如：Access的。MDB类型、FoxPro的。DBF类型等，我们可以通过它来实现数据的各项管理，首先我们建立一个通讯录数据库，选择“可视化数据管理器”的“文件”菜单，“新建”，我们选择Microsoft Access类型的v7.0 MDB，将数据库起名为“tx.mdb”，此时出现数据库窗口，在这里面我们可以通过右键来新建表（用来存储数据，数据库中可以包括若干表或查询，具体请查询相关数据库理论书籍），在表名称中输入名字，如“txl”，然后添加表的字段，如果你是初学数据库知识，那只需设置字段的名称和类型即可，比如要设计的通讯录需要有姓名、电话，我们添加两个字段“name”、“tel”设置类型均为Text文本类型即可。然后单击生成表，最后双击此表可添加数据，至此我们对于数据的基本建立完成，下面就要设计程序的界面（如图）。

    在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 "无此姓名，请重新输入！"， vbOKOnly， "提示" ‘显示提示对话框

    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、Windows 98/XP下调试运行通过）

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