1、 1宾馆住宿管理系统本系统针对宾馆住宿的一般管理模式,采用基于计算机网络技术的宾馆管理解决方案,按照宾馆的现代化管理要求设计,实现对宾馆住宿的接待，客房，订房,收支情况,电话等服务设施的全面全方位计算机管理。目标在于提高宾馆营业体系的作业效率，提高服务的客户满意度,加强宾馆的市场竞争力，树立良好的企业形象.通过计算机管理,一方面提供给客户快捷准确可靠的服务,另一方面提高宾馆自身的管理水平,及时准确获取营业信息,辅助对市场需求变化的决策.第一章 系统概述1.1 系统开发的背景和意义随着我国经济的迅速发展，人们的生活水平有了显著的提高，假日经济和旅游经济已成为人们消费的热点。各地也把旅游业当作本地
2、经济发展的重要经济支柱之一，从而促进了宾馆酒店业的快速发展。同时，随着宾馆酒店越来越多，人们的要求越来越高，宾馆酒店业的竞争也愈来愈激烈。如何在激烈的竞争中生从发展，是每一个宾馆酒店必须面临的问题。对宾馆的经营状况起决定作用的是宾馆的服务管理水平。如何利用先进的管理手段、提高宾馆的管理水平，以成为宾馆酒店业发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高企业管理水平是企业管理无疑的一条行之有效的途径。现在的宾馆行业已经发生拉巨大变化，已不仅是提供给人们一个吃住行的简单场所，所以，将计算机管理引入宾馆的管理体系中,无疑对宾馆的服务水平更上一层楼提供了一种有利的支持。虽然计算机管理并不是
3、宾馆管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对宾馆的服务管理提供强有力的支持。因此，采用全新的计算机网络和宾馆管理系统，已成为提高宾馆的管理效率、改善服务的水准的重要手段之一。在某种意义上，宾馆客房管理方面的信息话已成为现代化宾馆的重要标志。21.2 系统所要实现功能该系统应充分利用信息技术提高宾馆客房的管理水平、服务水平。酒店客房管理系统要实现客房住宿的登记、宿费提醒、追加押金、调房登记、退房结帐、查询统计等功能。其中宿费提醒可以在住宿费超过押金时预警，提示前台要客人补交押金，该功能可明显提高对住宿人员宿费的有效管理。将动态时的住宿登记、客房调整追加押金等有机的
4、联系在一起，对酒店进行全方位的管理。1.3 系统开发工具开发数据库管理信息系统需要选择两种工具，即前台开发语言和后台数据库。本系统运用了 Visual Basic 作为开发工具，SQL Server2000 作为后台数据库。1.4 系统模块分析（1）系统管理模块该模块实现操作员的管理,如添加删除和修改操作,并设置操作员的操作权限对指定的用户进行密码修改.（2）客房管理模块状该模块实现对客房的基本信息的设置,如客房的地点,客房等级,客房物品等信息.同时提供对客房信息的查询。（3）订房管理模块状该模块实现用户订房信息管理,提供对订房客户资料的登记,查询和退订操作。其中订房信息包括客房的类型和订房的
5、时间等。（4）收银管理模块状该模块实现用户的确订房信息管理,提供对订房客户资料的登记,查询，并提供当日报表的打印。3第二章 系统需求分析2.1 编写目的本文档对酒店管理系统的开发需求进行描述，目的是明确酒店管理系统对用户的功能要求.该文档对酒店管理系统做全面细致的用户需求分析，明确所要开发的系统应有的功能、性能与界面，使有关人士能够清楚的了解用户的需求，并在此基础上进一步提出概要设计说明书和完成后续设计与开发工作。2.2 开发背景随着人民生活水平的提高，旅游出行的人越来越多，酒店的客流量不断增加，传统的酒店管理方法已经不适应现代社会的需求。宾馆在正常运营中需要对客房资源、顾客信息、退房信息等进
6、行管理，利用客房管理系统及时了解各个环节中信息的变更，有利于提高管理的效率。 本项目作为软件工程课程设计课程的训练项目提出，目的是为了提高同学们软件的开发和数据库的创建链接,以及软件文档的相关标准和编写原则,提高大家的实践能力。2.3 实现目标建立一套功能完善的管理信息系统，既能满足业务人员日常处理的需要，增强企业经营全过程的数字化管理水平；又能满足管理人员决策分析的需要，提高公司管理层对公司经营反馈信息的响应速度。从而大幅度提高工作效率，提高实施管理的准确性、科学性，使担负管理的工作人员从繁杂的手工劳作中解脱出来。面对酒店行业的高速发展和酒店行业信息化发展的过程中出现的各种情况，酒店客房管理
7、系统在实施后，应能达到以下目标：(1)实现多点操作的信息共享，相互之间的信息传递准确、快捷和顺畅。(2)服务管理信息化，可随时掌握客人住宿、客房状态、客人挂帐等情况。(3)系统界面友好美观，操作简单易行，查询灵活方便，数据存储安全。(4)客户档案、挂帐信息、预警系统的结合，可对往来可户进行住宿监控，防止坏4帐发生。(5)通过酒店客房管理系统的实施，可逐步提高宾馆的管理水平，提升员工的素质。(6)系统维护方便可靠、有较高的安全性，满足实用性、先进性的要求。2.4 数据描述2.4.1 信息需求（1）顾客信息：姓名、有效证件、证件号码、联系电话、工作单位、详细地址。（2）客房信息：房间号、房间类型
8、、房间价格、所在楼层、（3）住宿信息：顾客姓名、房间编号、有效证件、房间标准、房间位置、折扣、入住时间、预交押金。（4）退房信息：顾客姓名、房间编号、客房标准、退房时间、折扣、预交押金、所付金额、找还金额。（5）调房信息：顾客姓名、客房标准、原始房、目标房、住宿天数、入住时间、预交押金、联系电话。2.4.2 处理需求宾馆在运营中需要对宾馆资源、顾客信息、结算信息进行管理，如果有顾客来往，经过对客房状态的查询，查看是否有房间能及时为客户办理登记手续，如果有顾客来退房，能及时为顾客登记并办理退房手续，并且修改客房信息，因此，利用开发完成后的宾馆管理系统能够十分便利的对住房系统进行管理有利于提高效率
9、。酒店住房管理系统开发的任务是实现各种住房信息的系统规范化、自动化主要完成的功能有以下几个方面。（1）住宿管理这个模块包括四个部分，即住宿登记、追加押金、调房登记、退宿结帐。该模块要实现客人的住宿登记，收取客人的预交宿费，自动计算折前宿费、实际宿费等；能够收取客人的续交押金，自动计算宿费提醒日期，并能够实现客户调房登记、退宿结帐、自动计算住宿费用及退还费等。（2）客房管理这个模块包括三个部分，即客房设置、客房查询、房态查看。宾馆客房在不同的5时间有不同的状态，如空静房、空脏房、清理房、占用房、毛病房、修理房等。该部分要完成客房基本信息的查询、能够按房间号检索所需的客房基本信息，以及显示当前客房
10、的入住数、空闲数、维修数、客房的使用率等。（3）查询管理这个模块包括三个部分，即住宿查询、退宿查询、宿费提醒。该部分要实现对客房的查询，查询客房的住宿情况、退宿情况以及宿费提醒等。尤其是宿费提醒，当客人的上帐金额超过押金时系统自动提示要求客人补交押金，以防止宾馆财产损失。（4）日结设置该模块包括两个部分：客房销售报表、客房销售统计。该模块中要实现按任意时间汇总客人结帐后所需费用的总额的功能及按任意年汇总应收宿费、电话费等的功能。（5）结帐管理这个模块包括两个模块，挂帐查询模块、客户结款模块。主要实现选择挂帐单位或个人，检索符合条件的挂帐信息、还款信息及统计欠款余额等。（6）设置管理这个模块包括
11、三个部分，主要用来完成操作员及密码设置，操作员密码的修改以及实现清空选定表的数据的功能。2.5 数据流图数据流图描绘信息流和数据从输入移动到输出过程中在系统中流动和处理的情况。2.5.1 总体数据流图退宿信息 D1 退房信息住宿信息 客房号码 住宿信息 D2 住宿信息客房信息 1住宿 管理管理员 2 查询管理3客房管理6客房信息 D3 客房信息图 2.1 总数据流图2.5.2 分数据流图住宿数据流图客房号码客房信息查询信息预定信息 客房信息D3 客房信息 D4 退宿信息 图 2.2 住宿数据流图退房数据流图 退宿信息住宿信息住 宿信 息 住宿信息 退房信息D1 住宿信息 D2 退宿信息 图 2
12、.3 退房数据流图客房数据流图住宿信息客房信息住 宿信 息 客房号码 住宿对象管理员1.1住宿登记顾客1.2退宿登记管理员2.1查询登记顾客.2.2预定登记管理员.3.1客房登记顾客3.2客房管理7D5 客房信息 D6 房客信息 图 2.4 客房数据流图2.6 数据字典数据字典是关于数据信息的集合，即对数据流图中包含的所有元素的定义的集合。名字：住宿信息别名：住宿登记信息描述：顾客住宿是需要填写的登记表。定义：住宿信息=姓名+ 有效证件 +客房类型+客房号 +住宿日期。位置：登记表 名称：客房信息别名：宾馆客房的信息描述：描述宾馆各种客房的信息。定义：客房信息=客房标准+客房号码+客房价格+使
13、用配置位置：客房登记 退房登记名称：退房信息别名：退饭登记信息描述：客人退房时需要填写的信息定义：退房信息=客人姓名+有效证件+房间标准+房间号码+住宿天数。位置：系统退房登记信息名称：权限信息别名：权限登记信息描述：用来保存操作员的权限定义：权限信息=操作员+密码+客房预定+住宿登记 +退宿登记+客房查询+密码位置：系统82.7 数据库概念设计 概念性信息模型是一种面向 问题的数据模型，是按照用户的观点来对数据和信息名称：客房管理别名：客房管理信息描述：客房日常管理信息定义：客房管理=服务员+房间号+操作员+密码位置：系统客房管理系统名称：退房登记别名：退房管理登记描述：退房管理登记信息定义
14、：退房登记=房客+房间号+服务员+密码位置：宾馆客房管理系统名称：客房登记别名：客房登记管理描述：客房管理登记信息定义：客房登记=房间号+房客+操作员+密码+服务员位置：宾馆客房管理系统名称：查询管理别名：查询登记信息描述：查询客房登记的信息定义：查询管理=操作员+密码+住宿信息+客房预订位置：系统9建模。它描述了从用户角度看到的数据，它反映了用户的现实环境。最常用的表示概念性数据模型方法，是实体联系方法（Entity-Relationship Approach） 。这种方法用 ER 图描述现实世界中的实体，而不涉及这些实体在系统中的实现方法。用这种方法表示的概念性数据模型又称为 ER 模型。
15、ER 模型包含“实体” 、 “联系” 、 “属性”等三个基本成份。2.7.1 局部 E-R 图1 顾客属性如图 2.5图 2.5 顾客实体属性图2 客房属性如图 2.6客房房间号码 所在楼层 房态 房间类型 房间价格 使用配置图 2.6 客房实体属性图3 服务员属性如图 2.7图 2.7 服务员实体属性图顾客详细地址 姓名 身份证号 工作单位 联系电话服务员工作编号 姓名 操作密码104 经理属性如图 2.8大堂经理工作编号 姓名操作密码年龄图 2.8 经理实体属性图2.7.2 总 E-R 图1 11N NN11顾客 客房姓名身份证联系电话工作单位详细地址登记服务员操作密码姓名工作编号住宿房间
16、号码所在楼层价格房间类型使用配置房态管理大堂经理操作密码11图 2.9 总 E-R 实体图第三章 系统总体设计3.1 系统功能模块设计3.1.1 功能模块图图 3.1 功能模块图3.2 系统主要功能描述（1）住宿管理：住宿登记、追加押金、调房登记、推房结帐。（2）客房管理：客房设置、客房查询、房态查看。（3）查询统计：住宿查询、退宿查询、宿费提醒。（4）系统设置：初始化、密码设置、权限设置。（5）日结设置：客房销售报表、客房销售统计。（6）挂帐管理：客户结款、挂帐查询。名字 工作编号 年龄123.3 系统流程分析查询选房确定手牌 退 牌建立账户图 3.2 系统流程图客人 前台登记预订客房手牌入
17、住点单消费结账现结离店调房追加押金报表报表房态查询Fangtaichaxun 预订房费单当前客户账单历史单据宿费提醒续住 挂账13第四章 系统详细设计4.1 程序流程设计所谓系统流程分析，就是用户使用系统时的工作过程。不同的用户有着不同的工作流程和使用权限。但是所有的用户都是从用户登录模块开始的。登录主要是判断是否是合法的用户，在数据库设计中用户的登录名是固定的，如果要添加用户则在用户主界面进行添加用户信息。本系统的系统流程分析如下图所示：否重试 否失败 是成 功 用户管理模块 宾馆管理模块A dmin 用户 领班用户普通用户 开始用户登陆读取用户类型失败超过 3 次 退出程序管理自己的拥护信
18、息管理领班用户的用户信息管理普通用户的用户信息管理自己的拥护信息管理普通用户的用户信息管理自己的用户信息1 系统的其他功能2 领班用户管理模块3 普通用户管理模块退出程序14图 4.1 程序流程图4.2 系统结构的实现该系统采用了 SQL Server2000 数据库，数据库名称为 kfgl.数据库包含以下几个表：客房基本信息表 kf、登记表 djb、密码表 ma、权限设置表 qxsz、退房登记表tfdj、挂帐明细表 gzmx。表 4-1 密码表字段名称 数据类型 字段大小操作员 文本 10密码 文本 6表 4-2 客房基础信息表字段名称 数据类型 字段大小房间号 文本 30房间类型 文本 5
19、0价格 货币 8房态 文本 4标志 是/否 1备注 文本 100配置 文本 100使用设置 文本 10营业日期 时间/日期 8表 4-3 挂账明细表字段名称 数据类型 字段大小日期 日期/时间 100挂帐单位 文本 100摘要 文本 8住宿金额 货币 8欠款金额 货币 8还款金额 货币 8金额累计 文本 16姓名 文本 100证件号码 文本 100票号 文本 20时间 日期/时间 8房间标准 文本 10房间价格 文本 1015表 4-4 登记表字段名称 数据类型 字段大小姓名 文本 50证件名称 文本 20证件号码 文本 20详细地址 文本 50房间号 文本 20客房类型 文本 10联系电话
20、文本 20客房价格 货币 8住宿日期 日期/时间 8住宿时间 日期/时间 8住宿天数 数字 双精度型宿费 货币 8折扣 数字 双精度型应收宿费 货币 8预收金额 货币 8提醒日期 日期/时间 8提醒时间 日期/时间 8退宿日期 日期/时间 8退宿时间 日期/时间 8备注 文本 50结款方式 文本 10摘要 文本 200表 4-5 退房登记应收宿费 货币 8杂费 货币 8电话费 货币 8存车费 货币 8赔偿费 货币 8金额总计 货币 8预收宿费 日期/时间 8退还宿费 日期/时间 8退还日期 日期/时间 8备注 文本 816表 4-6 权限设置表字段名称 数据类型 字段大小编号 是/否 50操作
21、员 是/否 50密码 是/否 双精度型住宿登记 是/否 1退宿登记 是/否 1追加押金 是/否 1客房管理 是/否 1客房查询 是/否 1住宿查询 是/否 1退宿查询 是/否 1宿费查询 是/否 1客房销售报表 是/否 1操作员设置 是/否 1密码设置 是/否 1权限设置 是/否 1调房登记 是/否 1客户结款 是/否 117第五章 系统界面设计及代码实现5.1 系统登陆窗口界面程序启动后，首先进入系统登陆界面验证操作密码。在系统登陆模块中主要实现如下功能：（1）可选择操作员，支持鼠标和键盘操作。（2）操作员和密码验证成功后，进入主界面。（3）操作员错误或密码错误提醒并返回错误点。（4）输入三
22、次错误密码，自动退出系统。图 5.1 用户登陆界面登陆代码实现Option ExplicitDim cnt As Integer 记录确定次数Private Sub Command1_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetIf Trim(text1.Text) = “ Then 判断输入的用户名是否为空MsgBox “没有这个用户“, vbOKOnly + vbExclamation, “text1.SetFocus18Elsesql = “select * from 系统管理 where 用户名=“ “ & _“
23、data source=jiudian.mdb“conn.Open connectionstringcnt = 0End Sub5.2 系统主程序窗口界面程序启动后，在系统登陆界面验证完操作员及操作员密码后，将进入主程序界面。主程序界面要实现：19（1）选择菜单或工具栏，调用相应程序，进行相应操作。（2）根据操作员不同，确定操作员相应的权限。图 5.2 主程序窗口登陆代码实现Private Sub add_user_Click()frmadduser.ShowEnd SubPrivate Sub double_check_Click()frmfind_double.ShowEnd SubPri
24、vate Sub check_Click()frmfind.ShowEnd SubPrivate Sub double_client_Click()frmdouble_client.ShowEnd SubPrivate Sub exit_Click()Unload MeEnd SubPrivate Sub khts_Click()frmkhts.ShowEnd SubPrivate Sub MDIForm_Load()frmdata = Falsefind = FalseEnd SubPrivate Sub modify_pw_Click()frmchangepwd.Show20End Sub
25、Private Sub only_check_Click()frmfind.ShowEnd SubPrivate Sub only_client_Click()frmonly_client.ShowEnd SubPrivte Sub zbgl_Click()frmzhiban.ShowEnd Sub5.3 住宿管理设计程序启动后，选择“客人入住”菜单下的“散客入住”和“团客入住”项，将进入住宿登记模块。在住宿登记模块主要实现如下功能：（1）自动生成住宿登记凭证号码。（2）提供空房间供用户选择。（3）实现客人住宿登记，收取客人预交宿费。（4）自动计算折前宿费、实际宿费、宿费提醒时间、退宿时间。5
26、.3.1 散客入住21图.5.3 散客入住界面登陆代码实现Option ExplicitDim rs_client As New ADODB.RecordsetPrivate Sub Command1_Click()If Not IsNull(DataGrid1.Bookmark) ThenIf Trim(DataGrid1.Columns(“房号“).CellText(DataGrid1.Bookmark) = “ ThenMsgBox “房号不能为空！“, vbOKOnly + vbExclamation, “Exit SubEnd IfIf Trim(DataGrid1.Columns(
27、“房价“).CellText(DataGrid1.Bookmark) = “ ThenMsgBox “房价不能为空！“, vbOKOnly + vbExclamation, “Exit SubEnd IfIf Trim(DataGrid1.Columns(“姓名“).CellText(DataGrid1.Bookmark) = “ ThenMsgBox “姓名不能为空！“, vbOKOnly + vbExclamation, “Exit SubEnd IfIf Trim(DataGrid1.Columns(“性别“).CellText(DataGrid1.Bookmark) = “ ThenM
28、sgBox “性别不能为空！“, vbOKOnly + vbExclamation, “Exit Sub22End IfIf Not IsDate(Trim(DataGrid1.Columns(“抵达日“).CellText(DataGrid1.Bookmark) ThenMsgBox “请按照格式 hh-mm 输入抵达日“, vbOKOnly + vbExclamation, “Exit SubEnd IfIf Not IsDate(Trim(DataGrid1.Columns(“离店日“).CellText(DataGrid1.Bookmark) ThenMsgBox “请按照格式 hh-
29、mm 输入离店日“, vbOKOnly + vbExclamation, “Exit SubEnd Ifrs_client.UpdateMsgBox “添加信息成功！“, vbOKOnly + vbExclamation, “DataGrid1.AllowAddNew = FalseDataGrid1.AllowUpdate = FalseElseMsgBox “没有添加信息！“, vbOKOnly + vbExclamation, “End IfCommand1.Caption = “新增记录“Command2.Enabled = TrueCommand3.Enabled = TrueCom
30、mand4.Enabled = FalseEnd Ifadderror:If Err.Number 0 ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command3_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox(“确定要删除吗？“, vbYesNo, “)If answer = vbYes ThenDataGrid1.AllowDelete = Truers_client.Deleters_client.UpdateDataGrid1.RefreshMs
31、gBox “成功删除！“, vbOKOnly + vbExclamation, “DataGrid1.AllowDelete = FalseElseExit SubEnd Ifdelerror:If Err.Number 0 ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command2_Click()Dim answer As StringOn Error GoTo cmdmodifyIf Command2.Caption = “修改记录“ Thenanswer = MsgBox(“确定要修改吗？“, vbYesNo, “)If ans
32、wer = vbYes ThenCommand2.Caption = “确定“Command1.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = TrueDataGrid1.AllowUpdate = TrueElseExit Sub27End IfElseIf Not IsNull(DataGrid1.Bookmark) Thenrs_dclient.UpdateEnd IfCommand2.Caption = “修改记录“Command1.Enabled = TrueCommand3.Enabled = TrueComman
33、d4.Enabled = FalseDataGrid1.AllowUpdate = FalseMsgBox “修改成功！“, vbOKOnly + vbExclamation, “End Ifcmdmodify:If Err.Number 0 ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command4_Click()If Command4.Caption = “确定“ Thenrs_dclient.CancelDataGrid1.ReBindDataGrid1.AllowAddNew = FalseDataGrid1.AllowUpd
34、ate = False28Command1.Caption = “新增记录“Command2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = FalseElseIf Command2.Caption = “确定“ Thenrs_dclient.CancelDataGrid1.ReBindDataGrid1.RefreshDataGrid1.AllowUpdate = FalseCommand2.Caption = “修改记录“Command1.Enabled = TrueCommand3.Enabled = TrueCommand
35、4.Enabled = FalseEnd IfFrame2.Enabled = TrueEnd SubPrivate Sub Command5_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = “select * from 团队资料“rs_dclient.CursorLocation = adUseClientrs_dclient.Open sql, conn, adOpenKeyset, adLockPessimistic 打开数据库设定 datagrid 控
36、件属性DataGrid1.AllowAddNew = False 不可增加DataGrid1.AllowDelete = False 不可删除DataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_dclientCommand4.Enabled = FalseExit Subloaderror:MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Nothingrs_dclient.Close
37、EndSub5.4 客人信息查询29在该模块中主要实现输入客户的姓名检索住宿信息的功能。图.5.5 客人信息查询界面登陆代码实现Option ExplicitDim rs_find As New ADODB.RecordsetPrivate Sub Command1_Click()On Error GoTo cmderrorDim find_date1 As StringDim find_date2 As StringIf Option1.Value = True Thensqlfind = “select * from 散客资料 where 房号 between “ & _Combo1(0)
38、.Text & “ & “ and “ & “ & Combo1(1).Text & “End IfIf Option2.Value = True Thenfind_date1 = Format(CDate(Comboy(0).Text & “-“ & _Combom(0).Text & “-“ & Combod(0).Text), “yyyy-mm-dd“)find_date2 = Format(CDate(Comboy(1).Text & “-“ & _Combom(1).Text & “-“ & Combod(1).Text), “yyyy-mm-dd“)sqlfind = “selec
39、t * from 散客资料 where 抵达日 between #“ & _find_date1 & “#“ & “ and“ & “ #“ & find_date2 & “#“End Ifrs_data1.Open sqlfind, conn, adOpenKeyset, adLockPessimisticfrmdatamanage.displaygrid1Unload Mecmderror:If Err.Number 0 ThenMsgBox “请输入正确的查询条件！“, vbOKOnly + vbExclamation, “警告“End If30End SubPrivate Sub Co
40、mmand2_Click()Unload MeMDIForm1.ShowEnd SubPrivate Sub Form_Load()Dim i As IntegerDim sql As StringIf findok = True Then rs_data1.CloseEnd Ifsql = “select * from 散客资料 order by 房号 desc“rs_find.CursorLocation = adUseClientrs_find.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_find.EOF = False Th
41、en 添加编号With rs_findDo While Not .EOFCombo1(0).AddItem .Fields(0)Combo1(1).AddItem .Fields(0).MoveNextLoopEnd WithEnd IfFor i = 2001 To 2005 添加年Comboy(0).AddItem iComboy(1).AddItem iNext iFor i = 1 To 12 添加月Combom(0).AddItem iCombom(1).AddItem iNext iFor i = 1 To 31 添加日Combod(0).AddItem iCombod(1).AddItem iNext iEnd SubPrivate Sub Form_Unload(Cancel As Integer)rs_find.CloseEnd Sub5.5 系统管理系统管理包括“新增用户” ， “修改密码”二部分。
