VB人口户籍管理系统程序源代码附数据库说明文档
- 概 述
随着时代的发展、科学的进步，信息时代已经遍布全球，计算机已广泛地深入各行各业，起着越来越巨大的作用。它运算速度快，体积小，可靠性高，通用性与灵活性强，以及很高的性能价格比等特点，把人们带入了一个一切都离不开计算机的新时代。
这里设计的人口户籍管理系统，包括登陆界面，户籍管理主界面，开户登记界面，备份数据库界面，打印界面，新增人口界面，删除人口界面，修改户籍信息界面，用户管理界面，分别有增、删、查、改的功能。
1.1 系统开发背景
近年来，随着计算机技术的发展和互联网时代的到来，我们已经进入了信息时代，随着人口的不断增长，户籍管理部门也应得到良好的发展，利用现代化管理工具使其变成半自动化必定会提高其工作效率。
-
- 系统开发目的
为了提高户籍管理部门的办公效率，实现自身的由传统办公手工化转向办公自动化（OA），实现全国户籍管理部门内部数据的共享，以提高数据管理水平和工作成效。
户籍管理系统的开发可以从根本上解决现行管理的落后之处，使主要通过纸记载的表等存贮方式对各类数据信息的存储，手工查询统计的管理手段向着科学的计算机管理转变。每一个管理员利用该系统及时对户口和人口方面的信息登录、查询、统计、修改等，大量减少了重复而复杂的人工劳动。它的建立有助于数据录入、查询、管理等各项工作的全面提高以备存档。从微观角度上分析，该系统的建立，对规范、完善数据管理，加强数据管理措施起到积极作用。因此，该系统的开发具有十分重要的意义。
第二章 系统分析
2.1数据描述
2.1.1业务流程图
|
人员迁入信息 |
|
人员迁出信息 |
|
户口登记 单 |
|
户口信息报表 |
|
人口信息报表 |
|
有关部门 |
|
有关部门 |
图2-1
2.1.2数据字典
（1） 数据流的描述
数据流编号：D—01
数据流名称：户口登记
简 述：工作人员对常住人员的资料进行登记
数据流来源：工作人员登记
数据流去向：迁入管理模块、迁出管理模块、注销管理模块
数据项组成：户号+登记日期+户别+户主姓名+家庭住址+与户主关系+身份证号+性别+籍贯+出生日期+出生地+工作单位+民族+婚姻状况+文化程度
数据流量：约3人/天 高峰流量：约5人/天
数据流编号：D—02
数据流名称：户口迁入管理
简 述：工作人员对迁入本区的户口资料进行登记
数据流来源：工作人员登记
数据流去向：迁入管理模块
数据项组成：户号+登记日期+户别+户主姓名+家庭住址+与户主关系+身份证号+性别+民族+婚姻状况+籍贯+出生日期+出生地+工作单位+文化程度
数据流量：约10户/日 高峰流量：约15户/日
数据流编号：D—03
数据流名称：人口迁入管理
简 述：工作人员对迁入本区的人口资料进行登记
数据流来源：工作人员登记
数据流去向：迁入管理模块
数据项组成：此人所属户的户号+添加一个新人到所属户+迁入一个新人到所属+姓名 +身份证号+性别+籍贯+出生日期+出生地+文化程度+职业+工作单位
数据流量：约30人/天 高峰流量：约50人/天
数据流编号：D—04
数据流名称：户口迁出管理
简 述：工作人员对本区的户口迁出工作进行操作
数据流来源：工作人员登记
数据流去向：迁出管理模块
数据项组成：户号+登记日期+户别+户主姓名+家庭住址+迁入日期+自何地迁入+迁出日期 +迁出到何地
数据流量：约5户/天 高峰流量：约10户/天
数据流编号：D—05
数据流名称：人口迁出管理
简 述：工作人员对本区的人口迁出工作进行操作
数据流来源：工作人员登记
数据流去向：迁出管理模块
数据项组成：所属户号+姓名+与户主关系+身份证号+性别+民族+籍贯+出生日期+出生地 +文化程度+婚姻状况+职业+工作单位+迁入日期+自何地迁入+迁出日期 +迁出到何地
数据流量：约10人/天 高峰流量：约15人/天
数据流编号：D—06
数据流名称：人口注销管理
简 述：工作人员对本区人口的注销工作进行操作
数据流来源：工作人员登记
数据流去向：注销管理模块
数据项组成：所属户号+姓名+与户主关系+身份证号+性别+民族+籍贯+出生日期+出生地 +文化程度+婚姻状况+职业+工作单位+迁入日期+自何地迁入
数据流量：约3人/天 高峰流量：约5人/天
数据流编号：D—07
数据流名称：密码管理
简 述：系统管理员或用户本人可对使用本系统的用户的密码进行管理
数据流来源：系统用户登记注册
数据流去向：系统管理模块
数据项组成：用户名+旧密码+新密码+密码确认
数据流编号：D—08
数据流名称：用户管理
简 述：管理员对可以获得本系统使用权限的用户的管理
数据流来源：用户登记
数据流去向：系统管理模块
数据项组成：新增用户名+用户密码+密码确认
（2）数据逻辑的描述
处理逻辑编号：P—01
处理逻辑名称：户口登记审核
简 述：审查常住户报告的人员资料是否填写正确
输入的数据流：户口登记
处理描述：常住户报告的家庭人数、年龄及出生日期、出生地等信息是否属实。不正确的信息返回常住户，正确的转给登记人员登记资料、储存。
输出的数据流：正确的信息、不确切的信息
处理逻辑编号：P—02
处理逻辑名称：迁入户口/人口审核
简 述：审核迁入户口/人口的信息资料是否正确
输入的数据流：迁入人口/户口信息
处理描述：迁入户口/人口所填报的信息如：所属户号、姓名、年龄、职业等是否正确。不正确的信息返回流动人员重新填报，正确的转给登记人员登记资料、储存。
输出的数据流：正确的信息、不正确的信息
处理逻辑编号：P—03
处理逻辑名称：迁出户口/人口审核
简 述：审核迁出户口/人口信息资料是否正确
输入的数据流：迁出户口/人口信息
处理描述：迁出户口/人口所填报的信息如：户号、姓名、身份证号等是否正确。不正确的信息返回流动人员重新填报，正确的转给登记人员登记资料、储存。
输出的数据流：正确的信息、不正确的信息
处理逻辑编号：P—05
处理逻辑名称：用户信息审核
简 述：审核用户登记信息是否正确
输入的数据流：用户名、密码
处理描述：用户名及密码填充是否正确。不正确的返回用户重新填写，正确的由管理员进行登记、存储。
输出的数据流：正确的信息、不正确的信息
（3） 数据存储的描述
数据存储编号：F—01
数据存储名称：用户登记
简 述：户口登记
数据存储组成：户号+登记日期+户别+户主姓名+家庭住址+与户主关系+身份证号+性别 +籍贯+出生日期+出生地+工作单位+民族+婚姻状况+文化程度
数据存储编号：F—02
数据存储名称：迁入户口/人口信息登记
简 述：迁入户口/人口各项信息的登记及资料统计
数据存储组成：户号+登记日期+户别+户主姓名+家庭住址+与户主关系+身份证号+性别 +民族+婚姻状况+籍贯+出生日期+出生地+工作单位+文化程度
数据存储编号：F—03
数据存储名称：迁出户口/人口信息登记
简 述：迁出户口/人口各项信息的登记及资料统计
数据存储组成：户号+登记日期+户别+户主姓名+家庭住址+与户主关系+身份证号+性别+民族+婚姻状况+籍贯+出生日期+出生地+工作单位+文化程度
数据存储编号：F—04
数据存储名称：系统用户的用户名及密码登记
简 述：系统用户的用户名名及密码的登记
数据存储组成：用户名+密码
（4） 外部实体的描述
外部实体编号：S—01
外部实体名称：户口/人口
简 述：人员流动
2.2系统开发可行性分析
（1）技术可行性
数据库技术在计算机软件邻域研究中一直是非常重要的主题，产生于60年代，50多年来数据库技术得到了迅速发展，并已形成较为完整的理论体系和一大批实用系统。并且，近年来，随着World Wide Web(WWW)的猛增及Internet技术的迅速发展，数据库技术成为最热门技术之一。
面向对象是一种新兴的程序设计方法,或者是一种新的程序设计规范,其基本思想是使用对象、类、继承、封装、消息等基本概念来进行程序设计。从现实世界中客观存在的事物（即对象）出发来构造软件系统，并且在系统构造中尽可能运用人类的自然思维方式。开发一个软件是为了解决某些问题，这些问题所涉及的业务范围称作该软件的问题域。其应用领域不仅仅是软件，还有计算机体系结构和人工智能等。许多程序开发工具，如Delphi、Java等等，都支持面向对象的程序开发。
（2）经济可行性
系统设计并运行于当前流行的Windows系列操作系统，具有Windows传统的操作风格，对系统没有其它额外的要求。目前工作人员都有操作电脑的能力，通过提供一定的培训，都能够熟练操作管理系统。系统投入使用后，很明显就是提高了户籍管理的工作效率，减轻了劳动量，改善了工作环境，有利于工作人员发挥工作热情。总之，系统具有较好的运营可行性。
综上所述，开发一个专门的《人口户籍管理系统》是可行的。
2.3系统流程图
|
系统登录界面 |
|
|
|
输入用户名及密码 |
|
出错信息 |
|
密码错 |
|
系统功能主界面 |
|
正确 |
|
功能处理 |
|
登录处理 |
|
数据库 |
图2-2
- 系统设计
3.1功能结构图设计
经过分析，最后得出新的户籍管理系统应具有以下功能模块：
1.户籍管理：可以随意地添加户口、人口， 迁入或迁出需要改动的户口和人口；
2.查询修改：实现对户口、人口相关信息的查询及修改；
3.报表统计：对户口、人口报表进行统计,浏览所有信息；
4.系统管理：对登录用户进行设置和管理,可以添加、修改用户列表。
从下图中可以看出系统（最小化）至少包括如下一级子模块：户籍管理、系统管理、查询修改、报表统计。
1、户籍管理模块的功能：对户口表、人口表等作为构成户籍档案管理最基本项的表进行增加、查询、修改、删除等操作。
2、系统管理模块的功能：这个模块从本质上来讲，当然应该只有管理员才有权使用，这个模块能够实现新用户的增加、已有用户的查找、已有用户的删除、已有用户的密码修改、注销不再使用的用户等功能。
3、查询修改模块的功能：这个模块是本系统中相对来讲最大也是最麻烦的，它包含三个方面的功能实现：即查询、修改户口和人口信息内容。系统能按户口号、身份证号码、地址等进行精确或模糊查询，并把查询的结果显示在表格中.；
4、报表统计模块的功能：本模块是为了用户能方便地浏览已有信息的全部内容，即对修改、查询添加新内容起到参考的作用。
图3-1
3.2数据库结构设计
本系统数据库是由Access 2003数据库系统支持建立的，户籍管理系统数据库中各个表格的设计结果如下面的几个表示。每个表表示在数据库中的一个数据表。
表3-2 户口信息表
| 列 名 |
数据类型 |
可 否 为 空 |
| ID(主键) |
自动编号 |
NOTNULL |
| 户 别 |
文 本 |
NOTNULL |
| 户主姓名 |
文 本 |
NOTNULL |
| 户 号 |
数 字 |
NOTNULL |
| 住 址 |
文 本 |
NOTNULL |
| 登记日期 |
日期/时间 |
NOTNULL |
| 迁入日期 |
日期/时间 |
NOTNULL |
| 何地迁入 |
文 本 |
NOTNULL |
| 是否已迁出 |
文 本 |
NOTNULL |
表3-2-1 户口迁出信息表
| 列 名 |
数据类型 |
可 否 为 空 |
| ID（主键） |
自动编号 |
NOTNULL |
| 迁出日期 |
日期/时间 |
NOTNULL |
| 迁往何地 |
文 本 |
NOTNULL |
| 户 号 |
数 字 |
NOTNULL |
| 户主姓名 |
文 本 |
NOTNULL |
表3-2-2 人口信息表
| 列 名 |
数据类型 |
可 否 为 空 |
| ID（主键） |
自动编号 |
NOTNULL |
| 姓 名 |
文 本 |
NOTNULL |
| 身份证号 |
数 字 |
NOTNULL |
| 与户主关系 |
文 本 |
NOTNULL |
| 性 别 |
文 本 |
NOTNULL |
| 出 生 地 |
文 本 |
NOTNULL |
| 民 族 |
文 本 |
NOTNULL |
| 籍 贯 |
文 本 |
NOTNULL |
| 出生日期 |
日期/时间 |
NOTNULL |
| 文化程度 |
文 本 |
NOTNULL |
| 婚姻状况 |
文 本 |
NOTNULL |
| 工作单位 |
文 本 |
NOTNULL |
| 职 业 |
文 本 |
NOTNULL |
| 户 号 |
数 字 |
NOTNULL |
| 迁入日期 |
日期/时间 |
NOTNULL |
| 何地迁入 |
文 本 |
NOTNULL |
| 是否已迁出 |
文 本 |
NOTNULL |
表3-2-3 人口迁出表
| 列 名 |
数据类型 |
可 否 为 空 |
| ID（主键） |
自动编号 |
NOTNULL |
| 迁出日期 |
日期/时间 |
NOTNULL |
| 迁往何地 |
文 本 |
NOTNULL |
| 姓名 |
文 本 |
NOTNULL |
| 身份证号 |
数 字 |
NOTNULL |
| 户号 |
数 字 |
NOTNULL |
表3-2-4 系统用户表
| 列名 |
数据类型 |
可 否 为 空 |
| ID（主键） |
自动编号 |
NOTNULL |
| 用户名 |
文 本 |
NOTNULL |
| 密码 |
文 本 |
NOTNULL |
3.3 VB连接ACCESS2003数据库
Sub ConnStr()
Set conn = CreateObject("ADODB.Connection")
DBpath = App.Path & "\" & "data.mdb"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBpath
Set rs = CreateObject("ADODB.Recordset")
End Sub
上面的一段代码就是连接数据库的。上用到了三个变量conn,Dbpath,rs。其中有两个变量要定义为公用的变量，因为这段代码是放在一个模块中的，为了在每一个窗体中能够使用这个变量，所以必须要声明为公用变量。声明公用变量的方法如下：
Public conn
Public rs
上面就是声明为公用变量，上面的声明一定要放在模块的最上面。如果声明在下面，那就成了局部变量，那么作用范围就会不同了，作用就更不同，而且在其它窗体中使用到了这个变量，程序会出错。
在系统中设计一个数据库db.mdb，其中包含如下数据表：
- 人口表：
图3-3-1
- 户口表：
图3-3-2
- 用户表：
图3-3-3
3.3输入设计
通过VB中的中Textbox，label等控件记录数据，并进行数据库数据的修改，查询，删除。
- 系统实施
4.1 Visual Basic 开发环境
Visual Basic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性、可扩展性和强有力的功能。Visual Basic应用由一系列对象组成，包括有函数、菜单、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。这里介绍管理系统各组成部分的实现方法，对于窗体，给出执行功能、设计界面、主要对象的属性和方法。人口户籍管理系统正是基于Visual Basic开发的。
-
- 系统模块的具体实现
4.2.1、Frmdl窗体:
Frmdl窗体用于接受用户的用户名/密码输入，判断是否合法。如果是合法用户，释放该窗体并调出Frmver窗体；否则信息提示无此用户。Frmdl窗体的设计界面如图所示，窗体中的主要对象及其属性如表所示：
图4-1
表4-1
| 对 象 |
属 性 |
属性取值 |
| Text1 |
Caption |
“用户名“ |
| Text2 |
passwordchar |
“*“ |
| Command1 |
Caption |
“确定” |
| Command2 |
Caption |
“取消” |
在该窗体上设计如下事件过程：
Option Explicit
Private Sub Commok_Click()
Dim username As String
Dim password As String
Dim local_db As String
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
If Text1.Text = "" Then
MsgBox "请输入用户名", , "警告"
Text1.SetFocus
Else
If Text2.Text = "" Then
MsgBox "请输入密码", , "警告"
Text2.SetFocus
End If
End If
If Text1.Text <> "" And Text2.Text <> "" Then
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\data\db.mdb" + ";Persist Security Info=False;"
username = Trim(Text1.Text)
password = Text2.Text
local_db = "select 用户名 from 用户表" + _
" where 用户表.用户名=" + "'" + _
username + "'"
rst.Open local_db, cnn
If Not (rst.BOF And rst.EOF) Then
rst.Close
local_db = "select 密码 from 用户表" + _
" where 用户表.用户名=" + "'" + _
username + "'and" + _
" 用户表.密码=" + "'" + password + "'"
rst.Open local_db, cnn
If Not (rst.BOF And rst.EOF) Then
userid = Text1.Text
Unload frmdl
If username = "admin" Then
mainfrm.xitong.Enabled = True
mainfrm.bdb.Enabled = True
mainfrm.Command4.Enabled = True
Else
mainfrm.xitong.Enabled = False
mainfrm.bdb.Enabled = False
mainfrm.Command4.Enabled = False
End If
mainfrm.Show
Else
MsgBox "您输入的密码不正确，请重新输入！", , "警告"
Text2.Text = ""
Text2.SetFocus
End If
Else
MsgBox "系统中无此用户", , "警告"
Text1.Text = ""
Text1.SetFocus
End If
End If
End Sub
4.2.2、mainfrm窗体:
mainfrm窗体是一个多文档窗体，窗体中包含的主要对象及其属性，在该窗体有一个菜单，该菜单的结构如下：
Private Sub adduser_Click()
frmzj.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "添加用户"
End Sub
Private Sub allh_Click()
frmhlist.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "户口列表"
End Sub
Private Sub allp_Click()
frmplist.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "人口列表"
End Sub
Private Sub backupdb_Click()
frmbackup.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "备份数据库"
End Sub
Private Sub bdb_Click()
GetStatus "数据库管理"
End Sub
Private Sub card_Click()
frmprint.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "打印户口卡"
End Sub
Private Sub chaxun_Click()
GetStatus "查询修改信息"
End Sub
Private Sub chuhao_Click()
frmchuhao.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "查询户号"
End Sub
Private Sub chuhome_Click()
frmqch.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "迁出户口"
End Sub
Private Sub chupeople_Click()
frmqcr.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "迁出人口"
End Sub
Private Sub Command1_Click()
frmhome.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
frmhome.Frame3.Enabled = False
frmhome.Label12.Enabled = False
frmhome.Label13.Enabled = False
frmhome.Label14.Enabled = False
frmhome.Text4.Enabled = False
frmhome.Command4.Enabled = False
frmhome.Text4.Text = ""
GetStatus "添加、迁入户口"
End Sub
Private Sub Command2_Click()
frmxz1.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "添加、迁入人口"
End Sub
Private Sub Command3_Click()
frmczhuzhi.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "查询住址"
End Sub
Private Sub Command4_Click()
frmbackup.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "备份数据库"
End Sub
Private Sub Command5_Click()
exit1.Show
Beep
mainfrm.Enabled = False
GetStatus "·退出系统"
End Sub
Private Sub czhuzhi_Click()
frmczhuzhi.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "查询住址"
End Sub
Private Sub del_Click()
frmsc.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "删除用户"
End Sub
Private Sub exit_Click()
exit1.Show
Beep
mainfrm.Enabled = False
GetStatus "·退出系统"
End Sub
Private Sub guanli_Click()
GetStatus "对户籍进行管理"
End Sub
Private Sub hbaobiao_Click()
DataReport1.Show
GetStatus "户口报表"
End Sub
Private Sub homezx_Click()
frmzxh.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "户口注销"
End Sub
Private Sub hxinxi_Click()
frmcxh.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "查询修改户信息"
End Sub
Private Sub mfy_Click()
frmxg.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "修改密码"
End Sub
Private Sub pbaobiao_Click()
DataReport2.Show
GetStatus "人口报表"
End Sub
Private Sub peoplezx_Click()
frmzxr.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "人口注销"
End Sub
Private Sub qianchuh_Click()
frmyqh.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "迁出户列表"
End Sub
Private Sub qianchur_Click()
frmyqr.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "迁出人列表"
End Sub
Private Sub qingall_Click()
ts8.Show
mainfrm.Enabled = False
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
GetStatus "清空数据库中的全部数据"
End Sub
Private Sub qinghu_Click()
ts7.Show
mainfrm.Enabled = False
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
GetStatus "清空数据库中的户籍数据"
End Sub
Private Sub qinguser_Click()
ts6.Show
mainfrm.Enabled = False
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
GetStatus "清空数据库中的用户数据"
End Sub
Private Sub ruhome_Click() '迁入户
frmhome.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
frmhome.Frame3.Enabled = False
frmhome.Label12.Enabled = False
frmhome.Label13.Enabled = False
frmhome.Label14.Enabled = False
frmhome.Text4.Enabled = False
frmhome.Command4.Enabled = False
frmhome.Text4.Text = ""
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "添加或迁入户口"
End Sub
Private Sub rupeople_Click()
frmxz1.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "添加或迁入人口"
End Sub
Private Sub rxinxi_Click()
frmcxp.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "查询修改人信息"
End Sub
Private Sub tongji_Click()
GetStatus "报表与统计"
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
End Sub
Private Sub userlist_Click()
frmuserlist.Show
guanli.Enabled = False
chaxun.Enabled = False
tongji.Enabled = False
xitong.Enabled = False
bdb.Enabled = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
GetStatus "用户列表"
End Sub
Private Sub xitong_Click()
GetStatus "对系统进行管理"
End Sub
- 报告总结
经过将近两周的设计和开发，完成了户籍管理的分析、设计与编程工作，系统开发完成。它的功能基本符合用户需求，能够完成户籍档案信息的存储和查询及以及各类相关报表的浏览。并提供部分系统管理功能,使用户方便进行新用户的添加、旧用户的修改和删除.对于数据的一致性的问题也通过程序进行了有效的解决。避免了由于人为方式固有的不严密性所带来的各种工作中的疏漏，实现了管理的科学化和严谨化。但是由于系统设计时间较短，这个系统还是存在一些问题，比如：系统出错处理不够。
在这段时间最大的收获是学会了如何更好的有效的自学解决问题。