（北京)
计算机语言课程设计
——邮编区号查询系统
院 系：地球物理与信息工程学院 专 业： 自动化09 -1 小组成员：
完成日期： 2011年7月13日 小组设计成绩：
评阅： 1. 程序运行情况： 2. 答辩情况： 3. 平时表现： 4. 设计报告：
一、设计目的：
综合运用面向对象开发工具，设计Windows风格的软件。通过此次程序设计题目，使学生熟练掌握Windows应用程序的开发过程，为以后专业课的学习奠定基础。
二、所选编程语言：Visual Basic 6.0 三、系统总体设计思路：
对设计题目的设计想法：
设计邮编区号查询系统，应首先考虑能够实现基础的“查询”功能，然后增加辅助功能，如“添加”和“删除”，使用者可根据自己的使用需求对数据进行编辑。为了使操作界面简洁不拥挤，易于操作，决定设置多界面，并运用MessageBox进行操作提示。 设计流程：
1、设计数据库
打开Microsoft Office Access，建立Access数据库。建立表“code”，字段名分别为：“省”“市”“区县”“邮政编码”“区号”和“简称”，数据类型均为“文本”，其中“邮政编码”和“区号”的字段大小设置为“10”，“简称”的字段大小设置为“2”。 2、设计主界面
新建Form1作为主界面。要在主界面上进行功能选择，因此添加4个CommandButton控件，分别用作查询、添加、删除和退出。添加1个Textbox控件和1个Label控件，Textbox用于查询对象的输入，Label用于提示输入，再添加1个Combobox控件，用于输入查询类型的选择。在菜单栏“Project”下选择“Components”，跳出Components对话框，勾选“Microsoft ADO Data Control 6.0（OLEDB）”和“Microsoft DataGrid Control 6.0（OLEDB）”，单击“确定”后，添加1个DataGrid
2
控件和1个Adodc控件。对控件的位置进行调整后，分别设置控件的属性，双击控件写入代码。调整界面大小，并设置界面背景。 3、 设计添加界面
新建Form2作为添加输入界面。添加6个Label控件用于提示输入内容的类型，添加6个Textbox控件用于内容输入，添加2个CommandButton控件分别用于“确认添加”和“返回”。设置控件属性，双击控件写入代码，调整界面大小和控件位置，设置背景颜色。 4、 设计退出界面
新建Form3作为退出界面，添加3个Label控件，用于填写制作
小组成员，添加1个Picturebox控件，用于插入图片，添加1个Timer控件，用于延迟关闭界面。设置控件属性，双击控件，写入代码，调整界面大小和控件位置，设置界面背景图片。 功能模块的规划：
Form1为主界面，也是查询和删除界面，在该界面选择查询、添加、删除或退出，查询结果在该界面输出
Form2为添加界面，在该界面进行对添加内容的输入 Form3为结束界面，显示制作小组 预计软件实现的效果：
多重界面转换操作，实现对国内地区邮编区号的查询、添加和删除 设计任务分工安排：
毕艳竹 删除与退出 刘嘉琦 数据库建立与连接 马 玲 添加和界面调整与背景 任正平 查询与课程设计报告
四、系统各功能模块设计 关键控件：
3
? Adodc 控件：通过 Connection String连接数据库，实现VB与Access
数据库的连接；
? DataGrid 控件：Datasource 连接 Adodc 控件，实现对查询结果的输
出；
? TextBox控件：用于查询输入和添加输入；
? Combobox控件：用于选择查询类型，即对应数据库字段名 ? Commandbutton控件：用于实现查询、添加、删除、退出等操作
关键技术：Use Connection String进行数据库连接 主要界面：
? 查询与删除界面Form1：
1、Caption属性写入“欢迎使用邮编区号查询系统”； 2、Maxbutton属性设置为“False”； 3、Picture属性选择窗体背景；
4、StartUpPosition属性设置为“2-CenterScreen”； Adodc控件1个：
1、Connectionstring属性设置选择“Use Connection String”,填写代
码
为
：
Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=code.mdb;Persist Security Info=False ；
2、Recordsource属性设置，Command Type选择“2-adCmdTable”，Table or Stored Procedure Name选择“code”； 3、Visible属性设置为“False”； DataGrid控件1个：
1、AllowAddNew属性设置为“False”； 2、Caption属性写入“邮编区号查询”； 3、Datasource属性选择Adodc1；
4
4、鼠标右键点击DataGrid控件，选择“Retrieve Fields”； Textbox控件1个：用于查询输入 Label控件1个：
1、BackStyle属性选择“0-Transparent”； 2、Caption属性写入“请输入”；
3、ForeColor属性选择“HighLight Text”； Combobox控件1个：
1、Text属性写入“请选择查询类型”
2、List属性依次写入数据库字段名“省”“市”“区县”“邮政编码”“区号”
CommandButton控件4个：分别为“查询”“添加”“删除”“退出”
查询Button：Caption属性写入“查询”，双击写入代码 添加Button：Caption属性写入“添加”，双击写入代码 删除Button：Caption属性写入“删除”，双击写入代码 退出Button：Caption属性写入“退出”，双击写入代码 ? 添加界面Form2：
1、BackColor属性选择“DeskTop”； 2、Caption属性写入“请输入”； 3、MaxButton属性选择“False”；
4、StartUpPosition属性设置为“2-CenterScreen”；
Textbox控件6个：分别为“省”“市”“区县”“邮政编码”“区号”“简称”的输入框
邮政编码输入框：MaxLength属性设置为“6” 区号输入框：MaxLength属性设置为“4” 简称输入框：MaxLength属性设置为“1”
Label控件6个：Caption属性分别写入“省”“市”“区县”“邮政编码”“区
5