软件工程实验--户籍管理系统设计

有关户籍管理系统的设计

软件工程实验报告

功能需求分析

系统包括查询管理、户口管理、人员管理三大部分。 实现的基本功能有：

1. 实现户籍的查询，可分为普通用户查询和内部管理员的查询，普通用户只能查询基本信息，如身份证号、出生日期等。 2. 实现户籍的修改，包括户口的修改以及个人信息的修改 。 3. 实现人员管理，包括人员的新建和迁入迁出。

4. 关于注销管理，包括人员注销和户口注销，同时需注明注销原因、证明材料等。

功能实现说明

A. 登录模块

在进行系统登陆过程中，登陆模块将调用数据库里的用户数据表，并对管理员和密码进行验证，只有输入了正确的管理员名和密码后，系统登陆才会成功。

在登陆模块中，对系统的尝试登陆次数进行了限制，禁止用户无终止的进行系统登陆尝试，在本系统中，当用户对系统的三次登陆失败后，系统将自动禁止登陆，退出登陆模块。并在输入了错误的或者是不存在的管理员名和密码时，系统会给出出错信息提示，指明登陆过程中的错误输入或错误操作，以便用户进行正确的登陆。 B. 修改密码

有关户籍管理系统的设计

有相关证明的用户可以由管理员帮助修改密码，当两次输入密码都一致时，数据库中记录将更新在户口表中。

注意：本模块有如下几点注意，密码确定后，是否能正确读取存储用户名和密码的数据表；如果管理员名和密码正确，是否能进入系统主窗体；当输入管理员名或密码错误时，是否能弹出信息框，给管理员提示。 C. 添加新建用户

管理员需要两次输入密码，用来确保输入密码的正确，进入主界面，管理员选择人员模块中的新建，输入信息，系统将首先查询数据库中与用户相同的记录，如果有相同记录将提示用户重新输入相关信息。当确定数据库中没有相同的记录，并且两次输入密码一致时将把该条记录添加到数据库中。

同样，如果从户口模块进入，则新建的户口信息添加到数据库中。 注意：本系统的户口信息与个人用户信息是分开的，实现时，需要在界面中链接相关的个人信息表加以完整资料，并能相互查阅有关的信息。 D. 修改

修改功能只能由管理员进入模块实现，用户可以出示有效证明由管理员实施修改，修改后的信息由系统存储在原表中。 E. 迁入

由管理员将添加的迁入人员信息及其户口信息添加到数据库中，如果是将迁入人员添加到本地已有户口中，则进入添加用户模块中即

有关户籍管理系统的设计

可实现。 F. 迁出

用户迁出后需要隐藏该户或是个人的信息，包括已注销的信息、注明迁往地及迁出原因。 G. 注销

用户出示证明，由管理员注销个人或是户口信息，注销户口时，将该户号上的所有人员都一并注销，同时，记录相关信息并仍存储在原表中。

数据流程图：

顶层数据流图：

第一层数据流图

有关户籍管理系统的设计

第二层数据流图：

有关户籍管理系统的设计

数据模型分析与设计

1）户口信息——

有关户籍管理系统的设计

户别

户主姓名

户号 注销情况 户口信息 是否已迁出

住址

何地迁入

迁入日期

登记日期

2)户迁出信息 )迁出日期

户主姓名

户迁出信息

迁往何地

户号

有关户籍管理系统的设计

4）人口信息：

数据库设计：

户籍系统包含信息主要有6类：户口信息、人口信息、户迁出信息、人迁出信息、户注销信息和人注销信息。

有关户籍管理系统的设计

1. 户口信息表Hinfor

2. 人口信息表perinfor

有关户籍管理系统的设计

3. 户迁出表Hout

4. 人迁出信息perout

有关户籍管理系统的设计

5. 户注销信息Hdis

6. 人注销信息perdis

7. 操作员信息operation

有关户籍管理系统的设计

模块分析与设计：

户籍管理层次结构图：

系统用户管理模块

系统用户模块主要实现：

用户登陆；添加用户；修改用户密码。

功能：本模块的主要功能是对用户身份进行验证，只有系统的合法用户才能进入系统，并进行用户管理，包括添加用户和修改用户密码。

系统登录流程图

有关户籍管理系统的设计

1、登陆系统实现代码：

Option Explicit

Private Sub Commcancel_Click() End End Sub

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

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 Else

mainfrm.xitong.Enabled = False mainfrm.bdb.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 If End Sub

2、添加用户实现代码：

管理员需要两次输入密码，用来确保输入密码的正确，用户密码输入信息完毕，单击“确定”，系统将首先查询数据库中与该用户名相同的记录，如果有相

有关户籍管理系统的设计

同记录将提示用户重新输入用户名。当确定数据库中没有相同的记录，并且两次输入密码一致时将把该条记录添加到数据库中。

单击“取消”按钮将取消添加用户的操作。

Private Sub Commcancel_Click()

…… 此处隐藏：3778字，全部文档内容请下载后查看。喜欢就下载吧 ……