号”“简称”，并对应输入框
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