用VB实现的邮编区号查询系统(2)

号”“简称”，并对应输入框

CommandButton控件2个：分别为“确认添加”“返回”

确认添加Button：Caption属性写入“确认添加” 返回Button：Caption属性写入“返回” ? 退出界面Form3：

1、Caption属性写入“退出”； 2、Maxbutton属性选择“False”； 3、Picture属性选择窗体背景；

4、SartUpPosition属性选择“2-CenterScreen”；

Timer控件1个：Interval属性设置为2000ms，用于延迟关闭界面 Label控件3个：Caption属性写入小组成员名 PictureBox控件1个：Picture属性选择图片

五、软件运行结果 开始运行时的界面：

（1）、查询

6

首先在选择类型框的下拉列表中选择查询类型，如选择“区县”；然后在输入框中输入想要查询的区县名，如输入“昌平”；

最后单击“查询”，输出查询结果

（2）、添加

单击“添加”，弹出输入对话框，输入，再单击“确认添加”，提示“添加成功”

新输入的内容可以查询。 （3）、删除

选定想要删除的对象，单击“删除”，弹出确认对话框，选择“确定”，提示“删除成功”

7

已删除的内容不可再查询 （4）、退出

单击“退出”，弹出退出界面，2秒后退出界面自动关闭

六、设计总结

遇到的问题及解决办法：

1、控件工具箱中找不到Adodc控件。在菜单栏“Project”下选择

8

“Components”（或用快捷键ctrl+T），弹出Components对话框，勾选“Microsoft Ado Data Control 6.0 （OLEDB）”，单击“确定”，然后就可以在工具箱中找到Adodc控件进行添加了。

2、用Textbox控件进行查询结果的输出，当有多条符合条件的内容时，一次只能显示一条，不方便浏览。用DataGrid控件代替Textbox控件输出，在菜单栏“Project”下选择“Components”（或用快捷键ctrl+T），弹出Components对话框，勾选“Microsoft DataGrid Control 6.0 （OLEDB）”，单击“确定”，然后在工具箱中找到DataGrid控件进行添加。

3、在Form2上再添加一个Adodc控件，连接数据库，然后用Textbox绑定字段进行添加时的输入，输入后的数据将某个已存在的数据替换了，即添加不成功。删除Form2上的Adodc控件，在确认添加Button下写入代码，形式如下：

Form1.Adodc1.Recordset.Fields(\字段名\4、将Project传到另一台电脑上运行时，出现文件路径错误。将Connection String下的“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G：\\form1\\code.mdb;Persist Security Info=False”改为“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=code.mdb;Persist Security Info=False”。

七、参考文献

网页参考文献：

[1]URL: http://www.w3school.com.cn/

http://www.csdn.net/

http://www.bccn.net/Article/kfyy/vb/Index.html

期刊参考文献： [2]无

书籍参考文献:

9

[3]黄津津主编.Visual Basic 程序设计[M].北京：人民邮电出版社，2010.

VB控件属性大全【经典】

附录： 一、查询

查询Button：

Private Sub 查询_Click() Dim cp As String cp = Text4.Text

Adodc1.CommandType = adCmdText

Adodc1.RecordSource = \& cp & \

Set DataGrid1.DataSource = Adodc1.Recordset Adodc1.Refresh DataGrid1.Refresh

Set DataGrid1.DataSource = Adodc1 End Sub

二、添加

添加Button：

Private Sub 增加_Click() Form2.Show vbModal End Sub

确认添加Button：

Private Sub 添加_Click()

Form1.Adodc1.Recordset.AddNew

Form1.Adodc1.Recordset.Fields(\省\Form1.Adodc1.Recordset.Fields(\市\Form1.Adodc1.Recordset.Fields(\区县\Form1.Adodc1.Recordset.Fields(\邮政编码\Form1.Adodc1.Recordset.Fields(\区号\Form1.Adodc1.Recordset.Fields(\简称\Form1.Adodc1.Recordset.Update Form1.Adodc1.Refresh Unload Me

MsgBox \添加成功\提示\End Sub

10

返回Button：

Private Sub Command1_Click() Unload Me End Sub

三、删除

删除Button：

Private Sub Command1_Click() Dim A%

A = MsgBox(\确认是否删除？\确认\If A = 1 Then

Adodc1.Recordset.Delete: MsgBox \删除成功\提示\End If End Sub

四、退出

退出Button：

Private Sub Command2_Click() Form3.Show Unload Me End Sub

Timer控件：

Private Sub Timer1_Timer() End End Sub

11

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库用VB实现的邮编区号查询系统(2)在线全文阅读。