户籍管理系统—计算机毕业设计(论文

户籍管理系统—计算机毕业设计(论文内容摘要：

第 12页 （ 3） 怎样创建一个数据表 上面已经讲了如何创建一个数据库文件， 按照上面的步骤建立一个数据库文件后，需要在数据库文件中建立一个数据表。 在下面的对话框中选 ” 使用设计器创建表 ” ，上面还有三个按钮，一个是打开，一个是设计，一个是新建，点击设计，就可以开始设计数据表了。 第 13页 出现设计的界面后，就可以开始设计数据表了。 （ 4） VB连接 ACCESS2020数据库 用 vb编写一个管理软件，如果不能连接数据库，那也没有什么用处。 先看看 VB是如何与 ACCESS2020数据库相连接的。 第 14页 Sub ConnStr() 39。 连接数据库 Set conn = CreateObject() 39。 建立数据库连接对像 DBpath = amp。 \ amp。 39。 设置数据的路径 Provider=。 Data Source= amp。 DBpath 39。 打开数据库连接 Set rs = CreateObject() 39。 设置数据库对像 End Sub 上面的一段代码就是连接数据库的。 上用到了三个变量 conn,Dbpath,rs。 其中 有两个变量要定义为公用的变量，因为这段代码是放在一个模块中的，为了在每一个窗体中能够使用这个变量，所以必须要声明为公用变量。 声明公用变量的方法如下： Public conn Public rs 上面就是声明为公用变量，上面的声明一定要放在模块的最上面。 如果声明在下面，那就成了局部变量，那么作用范围就会不同了，作用就更不同，而且在其它窗体中使用到了这个变量，程序会出错。 在系统中设计一个数据库 ，其中包含如下数据表 : 人口表 : 第 15页 户口表 : 用户表 : 第 16页 第四章 系统的具体设计 、 Windows 下的 Visual Basic 编程环境简介 Visual Basic 应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性、事件和方法）。 开发人员可以最有效利用所创建的每一个对象。 使用应用程序具有可通用性、可扩展性和强有力的功能。 Visual Basic 应用由一系列对象组成，包括有函数、菜单、结构和数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复 使用。 本节介绍管理系统各组成部分的实现方法 ,对于窗体，给出执行功能、设计界面、主要对象的属性和方法。 、 系统模块的具体实现 、 Frmdl 窗体 : Frmdl 窗体用于接受用户的用户名 /密码输入，判断是否合法。 如果是合法用户，释放该窗体并调出 Frmver 窗体；否则信息提示无此用户。 Frmdl 窗体的设计界面如图所示，窗体中的主要对象及其属性如表所示： 第 17页 对 象 属 性 属性取值 Text1 Caption “ 用户名“ Text2 passwordchar “ *“ Command1 Caption “确定” Command2 Caption “取消” 在该窗体上设计如下事件过程： Option Explicit Private Sub Commcancel_Click() End End Sub Private Sub Commok_Click() 39。 声 明 变 量 Dim username As String Dim password As String Dim local_db As String Dim n As New Dim rst As New If = Then 第 18页 MsgBox 请输入用户名 , , 警告 Else If = Then MsgBox 请输入密码 , , 警告 End If End If If And Then Set n = New Set rst = New Provider=。 Data Source= + amp。 \data\ +。 Persist Security Info=False。 39。 连接数据库 username = Trim() password = 39。 检查用户名是否正确 local_db = select 用户名 from 用户表 + _ where 用户表 .用户名 = + 39。 + _ username + 39。 local_db, n If Not ( And ) Then 39。 检查密码是否正确 local_db = select 密码 from 用户表 + _ where 用户表 .用户名 = + 39。 + _ username + 39。 and + _ 用户表 .密码 = + 39。 + password + 39。 local_db, n If Not ( And ) Then userid = 第 19页 Unload frmdl 39。 判断登陆用户是否为 admin If username = admin Then = True 39。 激活主窗口系统菜单 Else = False End If 39。 显示版本窗口 Else MsgBox 您输入的密码不正确，请重新输入。 , , 警告 = End If Else MsgBox 系统中无此用户 , , 警告 = End If End If End Sub Private Sub Timer1_Timer() End Sub Private Sub Form_Load() End Sub 、 mainfrm 窗体 : mainfrm 窗体 是一个多文档窗体，窗体中包含的主要对象及其属性 ,在该窗体有一个菜单，该菜单的结构如下： Private Sub adduser_Click() 39。 增加用户 = False 第 20页 = False = False = False = False = False = False GetStatus 添加用户 End Sub Private Sub allh_Click() = False = False = False = False = False = False = False GetStatus 户口列表 End Sub Private Sub allp_Click() = False = False = False = False = False = False = False GetStatus 人口列表 End Sub Private Sub chaxun_Click() GetStatus 查询修改信息 第 21页 End Sub Private Sub chuhao_Click() = False = False = False = False = False = False = False GetStatus 查询户号 End Sub Private Sub chuhome_Click() = False = False = False = False = False = False = False GetStatus 迁出户口 End Sub Private Sub chupeople_Click() = False = False = False = False = False = False = False 第 22页 GetStatus 迁出人口 End Sub Private Sub Command1_Click() = False = False = False = False = False = False = False = False = False = False = False = False = GetStatus 添加、迁入户口 End Sub Private Sub Command2_Click() = False = False = False = False = Fa。