人口管理系统

• 概  述

随着时代的发展、科学的进步，信息时代已经遍布全球，计算机已广泛地深入各行各业，起着越来越巨大的作用。它运算速度快，体积小，可靠性高，通用性与灵活性强，以及很高的性能价格比等特点，把人们带入了一个一切都离不开计算机的新时代。

这里设计的人口户籍管理系统，包括登陆界面，户籍管理主界面，开户登记界面，备份数据库界面，打印界面，新增人口界面，删除人口界面，修改户籍信息界面，用户管理界面，分别有增、删、查、改的功能。

1.1 系统开发背景

近年来，随着计算机技术的发展和互联网时代的到来，我们已经进入了信息时代，随着人口的不断增长，户籍管理部门也应得到良好的发展，利用现代化管理工具使其变成半自动化必定会提高其工作效率。

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，其中包含如下数据表：

1. 人口表：

图3-3-1

1. 户口表：

图3-3-2

1. 用户表：

图3-3-3

3.3输入设计

通过VB中的中Textbox，label等控件记录数据，并进行数据库数据的修改，查询，删除。

•   系统实施

4.1  Visual Basic 开发环境

Visual Basic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性、可扩展性和强有力的功能。Visual Basic应用由一系列对象组成，包括有函数、菜单、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用。这里介绍管理系统各组成部分的实现方法，对于窗体，给出执行功能、设计界面、主要对象的属性和方法。人口户籍管理系统正是基于Visual Basic开发的。

1. 1. 系统模块的具体实现

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

•   报告总结

经过将近两周的设计和开发，完成了户籍管理的分析、设计与编程工作，系统开发完成。它的功能基本符合用户需求，能够完成户籍档案信息的存储和查询及以及各类相关报表的浏览。并提供部分系统管理功能,使用户方便进行新用户的添加、旧用户的修改和删除.对于数据的一致性的问题也通过程序进行了有效的解决。避免了由于人为方式固有的不严密性所带来的各种工作中的疏漏，实现了管理的科学化和严谨化。但是由于系统设计时间较短，这个系统还是存在一些问题，比如：系统出错处理不够。

  在这段时间最大的收获是学会了如何更好的有效的自学解决问题。