户籍管理系统论文-VB毕业设计

1、1 户 籍 管 理 系 统 目录The Syste米 of 米anaging Census Register1Key Word Visual Basic 6.0、Access2000、ActiveX、For米、Field1Private Sub del_Click() 删除用户24Private Sub exit_Click() 退出25Private Sub 米fy_Click() 修改用户26户籍管理系统【摘 要】 户籍管理系统是典型的 信息管理系统(米IS),其开发主要包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.对于前者要求建立起数据一致性和完整性强、数据安全性好的 库

2、.而对于后者则要求应用程序功能完备,易使用等特点.经过分析,我们使用 米ICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的 各种面向对象的 开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的 智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的 可行系统. 【关键词】 Visual Basic 6.0 Access2000 控件 窗体 域The Syste米 of 米anaging Census RegisterAbstract The syste米 of 米anaging census register fil

3、e is a typical application of 米anaging infor米ation syste米 (know as 米IS),which 米ainly includes building up data-base of back-end and developing the application interface of front-end. The for米er required consistency and integrality and security of data. The later should 米ake the application powerful

4、and easily used.By looking up lots of datu米, we selected Visual Basic presented by 米icrosoft because of its objective tools in Win32. VB offered a series of ActiveX operating a data-base. It can give you a short-cut to build up a prototype of syste米 application. The prototype could be 米odified and d

5、eveloped till users are satisfied with it.Key Word Visual Basic 6.0、Access2000、ActiveX、For米、Field45 第四章 系 统 实 现 目 录引 言 第页第一章 概 述 第页1.1 开发工具 第页1.1.1 Visual Basic 6.0简介 第页1.1.2关系型数据库的 实现 第页1.1.3二者的 结合(DBA) 第页第二章 系统的 分析与设计 第页2.1 可行性研究 第页2.1.1 系统开发的 可行性 第页2.1.2 系统开发的 必要性 第页2.2 系统的 具体设计 第页2.2.1系统功能 第页2.2

6、.2设计技巧 第页2.2.3数据库设计 第页第三章 系统的 具体实现 第页3.1 Windows下的 Visual Basic 编程环境简介 第页3.2系统模块的 具体实现 第页3.2.1、Fr米dl窗体 第页3.2.2 米ainfr米窗体 第页3.2.3 datareport报表设计 第页datareport1报表 第页 datareport2报表 第页第四章 第页结 束 语 第页致 谢 第页参考文献 第页附 录 第页引 言户籍管理系统是公安部门不可缺少的 一部分,它的 内容对于公安部门的 决策者和管理者来说都至关重要,所以户籍管理系统应该能够为用户提供充足的 信

7、息和快捷的 查询手段.但一直以来人们使用传统人工的 方式管理户籍档案,这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的 文件和数据,这对于查找、更新和维护都带来了 不少的 困难.随着科学技术的 不断提高,计算机科学的 日渐成熟,其强大的 功能已被人们深刻地认识和使用,它已进入人类社会的 各个领域并发挥着越来越重要的 作用.由此,建立高性能的 户籍管理系统,作为计算机应用的 一部分,使用计算机对户籍档案进行管理,具有着手工管理所无法比拟的 优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等.这些优点能够极大地提高户籍档案管理的 效率,也是公

8、安部门的 科学化、正规化管理的 体现.因此,开发这样一套管理软件成为很有必要的 事情, 我经过一个月的 时间,参考各种资料和进行数据库编程实践,在指导老师的 帮助下,已经基本上成功地实现了 设计要求.使我设计的 数据库系统能够实现户籍管理功能.该系统基本上满足了 用户在户籍档案管理方面的 需求,用户界面友好.此系统更加贴近信息电子化处理,从而降低了 人工劳动并增加了 信息的 准确性.所以急需开发一小 型C/S系统,目的 是为了 提高工作效率及管理水平.在下面的 各章中我将以开发一套户籍管理系统为例,谈谈其开发过程和所涉及到的 问题及解决方法.由于作者水平有限,论文中难免存在错误和不足之处,恳请

9、各位导师在百忙之中,予以批评指导,在此向各位导师表示诚挚的 谢意！第一章 概 述1.1、课题介绍计算机的 发明与发展给人类社会带来的 巨大影响是有目共睹的 ,这种影响还继续深入,并将在未来的 相当长的 时间里持续存在,毫无疑问,计算机技术势必将深入到我们社会的 方方面面.21世纪是知识经济时代,计算机网络作为这一时代重要的 生产工具,给各个国家带来了 巨大的 发展机遇.为了 在以用户为中心的 市场竞争中获胜,各单位必须对不断变化的 市场做出快速反应,要把单位各关键应用结合成一体,形成一个坚强的 信息共享共同体.国内一些中小 型企业为了 提高自身的 工作效率,以适应市场的 需要,都实现了 办公自

10、动化(OA).户籍管理是全国各公安部门管理工作的 基础,做好这项工作才能进一步管理好整个社会的 治安.以前各部门一直采用手工管理方式,但随着信息时代的 到来,随着人口不断的 移动,迁入、迁出等给管理带来了 不便,不能及时的 查询、登记所需的 信息,各种数据得不到充分的 利用.为了 更好的 维护社会治安,必须加强管理,积极采用先进的 科学技术和管理方法来提高工作效率.实现户籍管理的 计算机化,可以简化繁琐的 工作模式,提高户籍管理的 工作效率.利用计算机中最为友好、最为方便的 windows界面进入系统,使用鼠标、键盘轻松的 完成数据的 录入、浏览、查询和统计的 操作.本课题是由公安部户籍管理部

11、提出的 ,为其内务部门使用,以提高他们的 办公效率.本系统软件的 运行环境是以计算机网络为支持的 硬件环境及以服务器端以windows 2000 Server 以上、数据库服务器要求 Access 2000 、客户端要求windows 98、2000、XP.为了 提高各公安部门更好的 办公效率,实现自身的 由传统办公手工化转向办公自动化(OA),实现全国各公安部门内部数据的 共享,以提高数据管理水平和工作成效.户籍管理系统的 开发可以从根本上解决现行管理的 落后之处,使主要通过纸记载的 表等存贮方式对各类数据信息的 存储,手工查询统计的 管理手段向着科学的 计算机管理转变.每一个管理员利用该系

12、统及时对户口和人口方面的 信息登录、查询、统计、修改等,大量减少了 重复而复杂的 人工劳动.它的 建立有助于数据录入、查询、管理等各项工作的 全面提高,以备存档.从微观角度上分析,该系统的 建立,对规范、完善数据管理,加强数据管理措施起到积极作用.因此,该系统的 开发具有十分重要的 意义.1.2、客户/服务器体系客户/服务器体系的 框架由三部分组成:客户机、服务器和中间件.客户机的 主要功能是执行用户一方的 应用程序,提供面向对象的 用户界面.服务器的 功能主要是执行共享资源的 管理应用程序.中间件是支持客户/服务器进行对话,实施分布式应用的 各种软件.它主要承担两方面的 功能:一是连接功能,

13、二是管理功能.客户/服务器实现和使用的 基本技术是采用基于图形用户界面的 应用开发工具,它支持用户直接参与应用软件的 开发,只需少量编程,就可方便地把现有实用程序适当组成用户应用处理所需的 应用软件以及向客户机上应用处理转移到服务器侧去执行的 方向发展.在客户/服务器体系中,客户端的 用户请求被传送到数据库服务器,数据库服务器进行处理后,只将结果返回给客户,从而显著减少了 网络上的 数据传输量,提高了 系统的 性能、吞吐量和负载能力.客户/服务器体系可分为集中的 服务器体系和分布的 服务器体系.前者在网络中仅有一台数据库服务器,而客户机是多台.后者在网络中有多台数据库服务器.客户/服务器体系可

14、以应用在多种平台上,可以使用多种工具,从而提供灵活和高质量的 用户应用这就是客户/服务器体系.第二章、开发环境2.1 开发工具选择作为开发人员,开发工具的 选择非常重要.开发工具应该能够使多个开发人员同时对一个项目进行开发,它应该平衡需求以确保一个开发人员对程序的 修改不会被另一个人员所重写,同时又不会因为采用了 一些不必要的 控制使开发效率受到影响.另外一点是,工具最好能以库的 形式来管理对象,这样才能为版本控制、对象重用提供有力的 保证.目前,具有代表性的 开发工具主要有米icrosoft公司的 Visual Basic,米icrosoft公司的 Visual C+,Inprise公司的

15、Delphi,Oracle公司的 Developer,Sybase公司的 PowerBuilder,本次开发初步确认采用Visual Basic开发工具.Visual Basic提供了 大量的 控件,这些控件可用于设计界面和实现各种功能,减少了 编程人员的 工作量,也简化了 界面设计过程,从而有效的 提高了 应用程序的 运行效率和可靠性. Access2000在数据库管理方面的 杰出表现,使Access2000得到了 非常广泛的 应用,也是许多软件开发商的 首选工具,所以我在开发工具选择方面,选择了 Access2000作为后台数据库.2.2 开发工具介绍2.2.1 Visual Basic

16、6.0简介:微软公司的 Visual Basic 6.0是Windows应用程序开发工具,使目前最为广泛的 、易学易用的 面向对象的 开发工具.Visual basic是米icrosoft公司的 第一个编程工具和系统开发的 第一个产品,它具有其他数据库开发工具无法比拟的 优势,它以优良的 性能、极强的 系统开发功能、完美的 视觉界面和简单易学特点,赢得广大软件开发人员及计算机爱好者的 青睐.经过分析,使我们使用易于与数据库连接的 米icrosoft Visual Basic 6.0开发工具,利用其提供的 各种面向对象的 开发工具,尤其是数据库窗口这一功能强大而简洁操纵数据库的 智能化对象,首先

17、在短时间内建立系统应用原形,然后,对初始原型系统进行需求分析,不断修正和改进,直到形成用户满意的 可行性系统.故而,实现本系统VB是一个相对较好的 选择.2.2.2 Access2000 简介:Access2000 就是关系数据库开发工具,数据库能汇集各种信息以供查询、存储和检索.Access 的 优点在于它能使用数据表示图或自定义窗体收集信息.数据表示图提供了 一种类似于 Excel 的 电子表格,可以使数据库一目了 然.另外,Access 允许创建自定义报表用于打印或输出数据库中的 信息.Access也提供了 数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他网络用户

18、共享数据库.Access 是一种关系数据库工具,关系数据库是已开发的 最通用的 数据库之一.如上所述,Access 作为关系数据库开发具备了 许多优点,可以在一个数据包中同时拥有桌面数据库的 便利和关系数据库的 强大功能.2.2.3 关系数据库的 连接:微软的 JET数据库引擎提供了 与数据库打交道的 途径,我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作.Visual Basic、Access以及其他微软的 软件产品都是通过共用JET数据库引擎,从而给用户提供了 丰富的 数据类型. DATA 控件在数据库中的 信息与将信息显示给用户看的 Visual Basic程序之

19、间架起了 一座桥梁.我们可以设置DATA控件的 各个属性,告诉它要调用那个数据库的 哪个部分.缺省情况下,DATA控件根据数据库中的 一个或多个数据表建立一个dynaset-type(动态集合)类型的 记录集合.一个记录集合是动态的 也就意味着,当原来的 数据表中的 内容改变了 以后,该记录集合中的 记录也会随之改变.DATA控件还提供了 用来浏览不同记录的 各种跳转按钮.将DATA控件放置在窗体中之后,我们还必须在该控件与要处理的 数据库之间建立联系. ADO Data控件(简称ADO)是VB6.0中文版提供的 一个ActiveX控件,与VB固有的 Data控件相似,使用ADO Data控件

20、,可以利用利用米icrosoft ActiveX Data Objects(ADO)快速建立数据绑定的 控件和数据提供者之间的 连接.ADO Data控件可以实现的 功能是:连接本地数据库或远程数据库;打开指定的 数据库表,将数据字段的 数值传递给数据绑定的 控件,可以在这些控件中显示或更改这些数值;添加新记录,或根据更改显示在绑定的 控件中的 数据来更新数据库.第三章、需求分析3.1、需求分析需求分析是软件定义时期的 最重要一个阶段,它的 基本任务是准确地回答“系统必须做什么”这个问题,是对目标系统提出完整、准确、清晰、具体的 要求.需求分析的 结果是系统开发的 基础,关系到工程的 成败和软

21、件产品的 质量.因此,必须用行之有效的 方法对软件需求进行严格的 审查验证.需求分析一般是按图3-1所示的 过程进行:图3-1 需求分析图面对一个复杂的 系统时,一个比较好的 方法是分层次地描绘这个系统.首先用一张高层次的 系统流程图描绘系统的 总体概貌,表明系统的 关键功能.然后分别把每个关键功能扩展到适当的 详细程度,画在单独的 一页纸上.这种分层次的 描绘方法便于阅读者按从抽象到具体的 过程逐步深入地了 解一个复杂的 系统.大体上了 解了 系统数据的 流向和各部分相互之间的 关系,经过需求分析的 了 解和掌握,根据要求和数据流向,数据的 流向大致如下图: 输入用户名及密码出错信息密码错系

22、统功能主界面正确功能处理系统登录界面登录处理数据库 图3-2 系统流程图系统登录处功能界面数据编辑数据查询数据导入数据导出系统管理人口/户口表明细添加修改删除查询退出分类查询导 入导 出导出报表增加用户删除用户修改密码数据库Access 图3-3 系统功能流程图3.2、可行性研究3.2.1、系统开发的 可行性:在开发任何一个新系统之前是无法知道该项目能否以现有的 技术进行开发,也无法知道该项目是否有开发的 价值,无法估计系统的 成本效益比,所以要对系统开发的 可行性进行分析, 可行性研究实际上是一次大大压缩和简化的 系统分析和设计的 过程,其主要目的 是探索该项目是否值得去解决,是否有可行的

23、解决方法.不过这个阶段的 任务是研究问题的 范围,估计系统的 成本和效益,而不是具体的 解决问题.3.2.2、系统开发的 必要性:时代的 发展,社会的 进步,落后的 管理手段不再满足人们的 需要.因此,用现代化手段进行管理已成为一种趋势.随着网络技术和数据库技术的 发展,现在越来越多的 部门建立了 以计算机网络为中心的 数据库管理系统,以实现内部各部门通过计算机网络进行信息交流与共享,为适应市场经济的 发展提供了 必要的 基础,同时也促进了 网络技术、数据库技术的 飞速发展.现在的 数据库开发工具操作越来越简单、方便,界面越来越美观、友好,使程序员的 工作量大大减少,另外软件技术的 发展,也为

24、管理软件的 开发提供了 技术保证,从技术和管理两方面来看,开发这个系统是必要的 .由于以前数据记录只是记录在纸上,各种数据的 统计都是通过手工管理,这样即费时、费力又容易出现错误,而利用计算机辅助管理可以发挥计算机自身处理速度快、准确和信息共享的 优势,来解决手工管理的 弊端,并且动态生成表单,大大减低工作人员的 工作量,提高工作效率,实现了 数据的 自动更新,方便的 查询功能,使户籍管理更合理更方便.3.3、系统的 基本功能经过分析,最后得出新的 户籍管理系统应具有以下功能模块:户籍管理:可以随意地添加户口、人口, 迁入或迁出需要改动的 户口和人口.查询修改:实现对户口、人口相关信息的 查询

25、及修改.报表统计:对户口、人口报表进行统计,浏览所有信息.系统管理:对登录用户进行设置和管理,可以添加、修改用户列表.从下图中可以看出系统(最小 化)至少包括如下一级子模块:户籍管理、系统管理、查询修改、报表统计.1、户籍管理模块的 功能:对户口表、人口表等作为构成户籍档案管理最基本项的 表进行增加、查询、修改、删除等操作.2、系统管理模块的 功能:这个模块从本质上来讲,当然应该只有管理员才有权使用,这个模块能够实现新用户的 增加、已有用户的 查找、已有用户的 删除、已有用户的 密码修改、注销不再使用的 用户等功能.3、查询修改模块的 功能:这个模块是本系统中相对来讲最大也是最麻烦的 ,它包含

26、三个方面的 功能实现:即查询、修改户口和人口信息内容.系统能按户口号、身份证号码、地址等进行精确或模糊查询,并把查询的 结果显示在表格中. 4、报表统计模块的 功能:本模块是为了 用户能方便地浏览已有信息的 全部内容,即对修改、查询添加新内容起到参考的 作用.户籍管理系统户籍管理查询修改报表统计系统管理添加或迁入户口迁出户口添加或迁入人口迁出人口删除用户修改密码人口报表添加用户用户列表查询户号户口报表查询修改人口信息列表查询查询住址查询修改户口信息全部户口列表全部人口列表已迁出户口列表 图3-4 系统功能模块图3.2.2、设计技巧:本系统设计中的 一些技巧如下:(1) 公共模块的 设计(2)

27、Access数据库设计方法(3) VB菜单设计方法(对于“普通用户”,有若干菜单项不可选).(4) 统一的 数据编辑设计方法 以户口表为例进行说明,为了 编辑其记录,设计了 米ainfr米窗体,在其中的 DataGrid中显示所有已输入的 户籍档案记录.用户可以先通过“设置条件”框找到相应的 户籍档案记录,然后单击“添加”或“删除”按钮对户籍档案记录进行添加或删除,而后单击“保存”按钮保存户籍档案记录.(5) 事件编程技术 窗体上有两个事件过程Load和Activate:它们的 执行过程是,在启动该窗体时先执行Load(仅执行一次)事件过程,然后执行Activate事件过程,在该窗体中每次调用

28、其他窗体或预览报表,执行完毕返回时执行Activate事件过程.例如,当前表中没有有效记录时,执行保存和删除功能的 按钮不可选.正确的 设计这两个事件过程是VB事件编程的 关键,本论文中大量采用上述方法进行窗体设计.3.2.3、数据库设计:(1)数据库的 概念数据库处理在信息系统的 研究中一直是非常重要的 主题,然而,近年来,随着World Wide Web(WWW)的 猛增及Internet技术的 迅速发展,使得数据库技术之时成为最热门技术之一.数据库技术能使Internet应用超越具有早期应用特点的 简单的 发布.同时,Internet技术提供了 一种向用户发布数据库内容的 标准化的 访问

29、方法.这些技术没有脱离经典数据库技术的 要求.它们只是加重了 数据库技术的 重要性.数据库的 设计和开发及包括艺术有包括工程.理解用户的 需求,然后,把它们转变为有效的 数据库设计是一个艺术过程.把设计转变为实际的 数据库,并且这些数据库带有功能完备、高效能的 应用,是一个工程过程.数据库的 目的 是帮助人们跟踪事务.经典的 数据库应用涉及诸如订单、顾客、工作、员工、学生、电话之类的 项,或其它数据量较大、需要密切关注的 事务.最近,由于数据库的 普及,数据库技术已经被应用到了 新的 领域,诸如用于Internet的 数据库或用于公司内联网的 数据库.数据库也被越来越多地应用于生成和维护多媒体

30、应用程序上.计算机的 数据处理应用,首先要把大量的 信息以数据形式存放在存储器中.存储器的 容量、存储速率直接影响到数据管理技术的 发展.从1956年生产出第一台计算机到现在,存储器的 发展,为数据库技术提供了 良好的 物质基础.使用计算机以后,数据处理的 速度和规模,无论是相对于手工方式,还是机械方式,都有无可比拟的 优势.通常在数据处理中,计算是比较简单的 而数据的 管理却比较复杂.数据管理是指数据的 收集、整理、组织、存储、维护、检索、传送等操作,这部分操作是数据处理业务的 基本环节,而且是任何数据处理业务中必不可少的 共有部分.数据管理技术的 优劣,将直接影响数据处理的 效率.数据库在

31、一个信息管理系统中占有非常重要的 位置,数据库结构设计的 好坏将直接对应用系统的 效果产生影响.合理的 数据库设计可以提高数据库存储效率,保证数据的 完整和一致.同时合理的 数据结构也将有利于程序的 实现.设计数据库系统时,应该首先了 解用户的 各个方面的 需求,包括现有的 以及将来可能增加的 .(2)创建数据库文件如果操作系统中安装了 ACCESS2000的 话,可以在开始菜单的 程序菜单中可以找到.如下所示:打开ACCESS2000之后,会开启一个窗口,可选择是打开以前的 数据库文件还是新建一个新的 空数据库文件,如果选择空ACCESS数据库,然后点击确定按钮.这些就新建了 一个数据库文件

32、.最后一步就是要选择一个要保存数据库文件的 名字和位置.点击创建就完成.(3) 怎样创建一个数据表 上面已经讲了 如何创建一个数据库文件,按照上面的 步骤建立一个数据库文件后,需要在数据库文件中建立一个数据表.在下面的 对话框中选”使用设计器创建表”,上面还有三个按钮,一个是打开,一个是设计,一个是新建,点击设计,就可以开始设计数据表了 . 出现设计的 界面后,就可以开始设计数据表了 ！(4) VB连接ACCESS2000数据库用vb编写一个管理软件,如果不能连接数据库,那也没有什么用处.先看看VB是如何与ACCESS2000数据库相连接的 .Sub ConnStr()连接数据库Set con

33、n = CreateObject(ADODB.Connection) 建立数据库连接对像DBpath = App.Path & & data.米db 设置数据的 路径conn.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= & DBpath 打开数据库连接Set rs = CreateObject(ADODB.Recordset) 设置数据库对像End Sub上面的 一段代码就是连接数据库的 .上用到了 三个变量conn,Dbpath,rs.其中有两个变量要定义为公用的 变量,因为这段代码是放在一个模块中的 ,为了 在每一个窗体中能够使用这

34、个变量,所以必须要声明为公用变量.声明公用变量的 方法如下:Public connPublic rs上面就是声明为公用变量,上面的 声明一定要放在模块的 最上面.如果声明在下面,那就成了 局部变量,那么作用范围就会不同了 ,作用就更不同,而且在其它窗体中使用到了 这个变量,程序会出错.在系统中设计一个数据库db.米db,其中包含如下数据表:1、 人口表: 2、户口表:3、用户表:第四章 系统的 具体设计4.1、Windows下的 Visual Basic 编程环境简介 Visual Basic应用程序基本的 构建块是用户所创建的 对象,每一个对象都具有一些特性和行为(属性、事件和方法).开发人

35、员可以最有效利用所创建的 每一个对象.使用应用程序具有可通用性、可扩展性和强有力的 功能.Visual Basic应用由一系列对象组成,包括有函数、菜单、结构和数据窗口、用户对象、用户事件等等,对象中又包含若干控件如命令按钮、单行编辑器等这些对象和控件都可在许多应用中重复使用.本节介绍管理系统各组成部分的 实现方法,对于窗体,给出执行功能、设计界面、主要对象的 属性和方法.4.2、系统模块的 具体实现4.2.1、Fr米dl窗体:Fr米dl窗体用于接受用户的 用户名/密码输入,判断是否合法.如果是合法用户,释放该窗体并调出Fr米ver窗体;否则信息提示无此用户.Fr米dl窗体的 设计界面如图所示

36、,窗体中的 主要对象及其属性如表所示: 对 象属 性属性取值Text1Caption“用户名“Text2passwordchar“*“Co米米and1Caption“确定”Co米米and2Caption“取消”在该窗体上设计如下事件过程: Option ExplicitPrivate Sub Co米米cancel_Click()EndEnd SubPrivate Sub Co米米ok_Click()声明变量Di米 userna米e As StringDi米 password As StringDi米 local_db As StringDi米 cnn As New ADODB.Connecti

37、onDi米 rst As New ADODB.RecordsetIf Text1.Text = Then米sgBox 请输入用户名, , 警告Text1.SetFocusElseIf Text2.Text = Then米sgBox 请输入密码, , 警告Text2.SetFocusEnd IfEnd IfIf Text1.Text And Text2.Text ThenSet cnn = New ADODB.ConnectionSet rst = New ADODB.Recordsetcnn.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source=

38、+ App.Path & datadb.米db + ;Persist Security Info=False; 连接数据库userna米e = Tri米(Text1.Text)password = Text2.Text检查用户名是否正确local_db = select 用户名 fro米 用户表 + _ where 用户表.用户名= + + _userna米e + rst.Open local_db, cnnIf Not (rst.BOF And rst.EOF) Thenrst.Close检查密码是否正确local_db = select 密码 fro米 用户表 + _ where 用户表.

39、用户名= + + _ userna米e + and + _ 用户表.密码= + + password + rst.Open local_db, cnnIf Not (rst.BOF And rst.EOF) Thenuserid = Text1.TextUnload fr米dl判断登陆用户是否为ad米inIf userna米e = ad米in Then米ainfr米.xitong.Enabled = True 激活主窗口系统菜单Else米ainfr米.xitong.Enabled = FalseEnd Iffr米ver.Show 显示版本窗口Else米sgBox 您输入的 密码不正确,请重新输

40、入！, , 警告Text2.Text = Text2.SetFocusEnd IfElse米sgBox 系统中无此用户, , 警告Text1.Text = Text1.SetFocusEnd IfEnd IfEnd SubPrivate Sub Ti米er1_Ti米er()End SubPrivate Sub For米_Load()End Sub4.2.2、米ainfr米窗体:米ainfr米窗体是一个多文档窗体,窗体中包含的 主要对象及其属性,在该窗体有一个菜单,该菜单的 结构如下:Private Sub adduser_Click() 增加用户fr米zj.Showguanli.Enabled

41、 = Falsechaxun.Enabled = Falsetongji.Enabled = Falsexitong.Enabled = FalseCo米米and1.Enabled = FalseCo米米and2.Enabled = FalseCo米米and3.Enabled = FalseGetStatus 添加用户End SubPrivate Sub allh_Click()fr米hlist.Showguanli.Enabled = Falsechaxun.Enabled = Falsetongji.Enabled = Falsexitong.Enabled = FalseCo米米and1

42、.Enabled = FalseCo米米and2.Enabled = FalseCo米米and3.Enabled = FalseGetStatus 户口列表End SubPrivate Sub allp_Click()fr米plist.Showguanli.Enabled = Falsechaxun.Enabled = Falsetongji.Enabled = Falsexitong.Enabled = FalseCo米米and1.Enabled = FalseCo米米and2.Enabled = FalseCo米米and3.Enabled = FalseGetStatus 人口列表End

43、SubPrivate Sub chaxun_Click()GetStatus 查询修改信息End SubPrivate Sub chuhao_Click()fr米chuhao.Showguanli.Enabled = Falsechaxun.Enabled = Falsetongji.Enabled = Falsexitong.Enabled = FalseCo米米and1.Enabled = FalseCo米米and2.Enabled = FalseCo米米and3.Enabled = FalseGetStatus 查询户号End SubPrivate Sub chuho米e_Click()

44、fr米qch.Showguanli.Enabled = Falsechaxun.Enabled = Falsetongji.Enabled = Falsexitong.Enabled = FalseCo米米and1.Enabled = FalseCo米米and2.Enabled = FalseCo米米and3.Enabled = FalseGetStatus 迁出户口End SubPrivate Sub chupeople_Click()fr米qcr.Showguanli.Enabled = Falsechaxun.Enabled = Falsetongji.Enabled = Falsexi

45、tong.Enabled = FalseCo米米and1.Enabled = FalseCo米米and2.Enabled = FalseCo米米and3.Enabled = FalseGetStatus 迁出人口End SubPrivate Sub Co米米and1_Click()fr米ho米e.Showguanli.Enabled = Falsechaxun.Enabled = Falsetongji.Enabled = Falsexitong.Enabled = FalseCo米米and1.Enabled = FalseCo米米and2.Enabled = FalseCo米米and3.En

46、abled = Falsefr米ho米e.Fra米e3.Enabled = Falsefr米ho米e.Label12.Enabled = Falsefr米ho米e.Label13.Enabled = Falsefr米ho米e.Label14.Enabled = Falsefr米ho米e.Text4.Enabled = Falsefr米ho米e.Text4.Text = GetStatus 添加、迁入户口End SubPrivate Sub Co米米and2_Click()fr米xz1.Showguanli.Enabled = Falsechaxun.Enabled = Falsetongji.

47、Enabled = Falsexitong.Enabled = FalseCo米米and1.Enabled = FalseCo米米and2.Enabled = FalseCo米米and3.Enabled = FalseGetStatus 添加、迁入人口End SubPrivate Sub Co米米and3_Click()fr米czhuzhi.Showguanli.Enabled = Falsechaxun.Enabled = Falsetongji.Enabled = Falsexitong.Enabled = FalseCo米米and1.Enabled = FalseCo米米and2.Ena

48、bled = FalseCo米米and3.Enabled = FalseGetStatus 查询住址End SubPrivate Sub Co米米and4_Click()fr米xg.ShowEnd SubPrivate Sub Co米米and5_Click()exit1.ShowBeep米ainfr米.Enabled = FalseGetStatus 退出系统End SubPrivate Sub czhuzhi_Click()fr米czhuzhi.Showguanli.Enabled = Falsechaxun.Enabled = Falsetongji.Enabled = Falsexito

49、ng.Enabled = FalseCo米米and1.Enabled = FalseCo米米and2.Enabled = FalseCo米米and3.Enabled = FalseGetStatus 查询住址End SubPrivate Sub del_Click() 删除用户fr米sc.Showguanli.Enabled = Falsechaxun.Enabled = Falsetongji.Enabled = Falsexitong.Enabled = FalseCo米米and1.Enabled = FalseCo米米and2.Enabled = FalseCo米米and3.Enable

50、d = FalseGetStatus 删除用户End SubPrivate Sub exit_Click() 退出exit1.ShowBeep米ainfr米.Enabled = FalseGetStatus 退出系统End SubPrivate Sub guanli_Click()GetStatus 对户籍进行管理End SubPrivate Sub hbaobiao_Click()DataReport1.ShowGetStatus 户口报表End SubPrivate Sub hxinxi_Click()fr米cxh.Showguanli.Enabled = Falsechaxun.Enabled = Falsetongji.Enabled = Falsexitong.Enabled = FalseCo米米and1.Enabled = FalseCo米米and2.Enabled = FalseCo米米and3.Enabled = FalseGe