使用VB制作一个简易通信录 电话号码查询器 电脑端通信录

制作背景：

有手机，为什么还用电脑端的简易通信录？

办公一族，每天上班基本上都是对着电脑，左边一部电话，中间是电脑，右边是文件。如下图所示。

有很多电话是通过内线或者固定电话拨出的。因此，一本纸质的电话本是常用物品。

假如要拨出一个背不过的电话，就需要抄起来电话本翻出来，再拨出。或者是用手机来查询或者直接拨出。

无论哪种方式，都不方便。

于是使用VB借助access数据库编写了一个简单的查询软件。

 

使用软件：VB 6.0. access 2007（包含在office 2007内），运行效果如下：

 

核心代码说明如下：

变量声明部分：

界面上的这个控件叫做 MSHFlexGrid，负责显示数据库内的数据。

几个显示框TextBox控件，分别命名为xingming,shoujihao,gudingdianhua。如果调用显示框内部的文本，只需要加小数点再加text就行了。

程序初始化的代码如下：首先打开数据库，再打开数据表。然后显示到表格控件中。

 

这个小程序仅仅有一项查询功能，怎么实现的呢？

其实很简单，就是将所有的记录遍历一遍，看哪个记录里面的“姓名”与文本框中的“姓名”一致，如果一致，就将标志位标记为已经找到，然后显示提醒对话框，退出循环。如果不一致，那么就一直查，直到查完最后一个记录，如果还没找到，就将标志位标记为FALSE,也就是未找到。

如果找到了，就在几个文本框中显示对应的电话号码，如果没有找到，就显示对话框“没有找到”。

 

运行效果如下：

当输入一个记录中有的人名的时候，对话框显示已经找到。

点击确定之后，文本框中显示的就是被找到的人名对应的电话号码，对着电脑屏幕拿起电话拨出就行了。

如果查无此人。就提示没有此人，不进行任何操作。

 

这个小软件只有查询功能，代码是调试通过了的。

如果想增加其他功能，可以在此基础上进行修改。数据库可以通过access进行修改，也可以编程修改。因为抱着“能用就行”的态度，所以没有想加那么多的功能。

 

够用就好。