酒店管理系统的设计与实现48592

1、摘要：随着计算机和信息技术的飞速发展，酒店客房的管理由传统的工作模式逐渐被信息化、网络化的现代工作模式所代替。以住宿为主的酒店假如再延 用传统的管理模式，就会增加酒店管理成本和降低工作效率.在酒店客房管理中 融入先进的计算机和软件技术，利用酒店客房管理系统进行管理就显得十分有意 义。利用酒店客房管理系统进行管理能让管理者及时了解酒店整体情况，便于各种决策，同时也简化了管理的各种复杂操作，提高了酒店白管理效率.本文以茂名 星期八商务酒店为例采用 Visual Basic和ACCESS合,创建一个适合实际情 况的酒店客房管理系统。关键词：酒店客房管理系统设计 实现Abstract: With th

2、e rapid development of computer and information technology ,the management of hotel rooms by the traditional working mode has gradually replaced by modern information technology , the network work mode. In order to stay at the main hotel if the extension of the traditional management mode , will inc

3、rease the cost and reduce the efficiency of hotel management. With advanced computers and software technology in the hotel guest room management, it is very meaningful and managed by the hotel guest room management system. Management can make managers to understand the overall situation of the hotel

4、 , hotel rooms management system , convenient for various decision-making, but also simplifies the management of a variety of complex operation , improve the management efficiency of the hotel management 。 In this paper Maoming week eight Traders Hotel as an example using Visual Basic and ACCESS com

5、bination, to create a suitable for the actual situation of the hotel room management system.Keywords ： Hotel room management system Design Realization第一章课题研究背景 3（一）酒店客房管理现状 3（二）课题研究的意义 3第二章需求分析 3（一）系统目标 3（_/）系统需求 3（三）功能需求4（四）系统的性能需求 4（五）开发技术5第三章系统总体功能5（一）系统功能结构 5（二）系统流程图6第五章各功能模块代码 11（一）酒店客房管理系统 Mai

6、n模块 11（二）初始化 main_csh 模块 16（四）操作员设置 main_czysz 模块 17（五）房态查询 main_ftcx 模块 19（六）挂账结款 main_gzjk 20（七）客房查询 main_kfcx 23（八）住宿登记 main_kfdj 23（九）客房设置 main_kfgl 32（十）密码设置 main_mmsz 35（H） 权限设置 main_qxsz 37（十二）数据备份 main_sjbf 38（十三）数据恢复 main_sjhf 39（十四）退宿结账 main_tf 40（十五）退宿查询 main_tfcx 51（十六）调房登记 main_tfdj 52（

7、十七）宿费提醒 main_xftx 56（十八）客房销售报表 main_xsbb 57（十九）客房销售统计 main_xstj 60（二十）登记预收报表 main_ysbb 61（二H）追加押金 main_zjyj 62（二十二）住宿查询 main_zscx 67（二十三）酒店客房管理系统 main_Login 68第六章调试与结果 69（一）初始化系统登录调试 69（二）登记模块的功能调试 70（三）退房的功能调试 70（四）住房查询的功能调试 71参考文献 72致 73酒店客房管理系统的设计与实现第一章课题研究背景随着经济的迅速发展，酒店业的竞争日趋激烈。酒店业内不得不进一步寻求 通过扩大

8、酒店销售、改进服务质量、降低管理成本和提升客户满意度等办法来增 强酒店的核心竞争力。其中最有效的手段就是应用现代化信息化技术，变革传统意义上的酒店业经营管理模式，跟上时代竞争的步伐。考虑到酒店业务的不断提 升和用户需求的日益多样化，尽量满足酒店的个性化需求，同时吸收了同类产品 及现有软件系统的优点，力争设计成为一套先进适用的酒店管理软件系统，为顾客提供更加便捷的信息化服务，为酒店管理者、决策者提供准确及时的酒店经营 信息，以达到酒店节约经营成本、提高经营质量和经济效益的信息化管理目标。(一)酒店客房管理现状随着计算机和信息技术的飞速发展，传统的酒店客房管理模式逐渐被信息化 的现代酒店客房管理模

9、式所代替。传统的酒店管理往往令管理者花大量的人力和 物力以满足各种繁琐的经营活动的需要，例如冗长的登记和结账手续、手工记录 所有客房状态、列表统计顾客消费情况等。这种工作模式不但效率低下，且极易出现错误和遗漏，有时甚至会导致严重的经济损失，给酒店的经营带来负面影响。(二)课题研究的意义对酒店整个来说，对酒店经营状况起决定作用的是酒店的服务管理水平.如何利用先进的管理手段来提高酒店的管理水平成为酒店业务发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高酒店的管理无疑是一条行之有效的 途径。虽然计算机管理并不是酒店管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对酒店

10、的业务管理提供强有力的支持。因此 ， 采用全新的计算机网络和酒店业务管理系统， 已成为提高酒店的管理效率，使作 业人员与管理系统之间灵活互动，实现流畅的工作流衔接，帮助酒店有效地进行 业务管理，释放最大价值。酒店业务管理系统在达到在节省人力资源成本的同时， 可以提高业务效率，并能够及时、准确、迅速地满足顾客服务的需求。第二章需求分析(一)系统目标本系统需要满足以下几个系统设计目标.(1)实用性原则：真正为酒店工作人员的实际工作服务 ，按照酒店客房管理 工作的实际流程，设计出实用的酒店客房管理系统 .(2)安全性原则：必须为酒店客房提供信息安全的服务，以保证酒店信息的 不被泄露。(3)可操作性原

11、则：本酒店客房管理系统面向的是酒店内工作人员，所以 系统操作上要求简单、方便、快捷，便于用户使用。(4)可扩展性原则：采用开发的标准和接口，便于系统向更大的规模和功能 扩展.(二)系统需求3根据酒店客房管理系统的理念，此酒店客房管理系统必须满足以下需求：(1)具有设置酒店客房类型和房间信息的功能(2)能快速、准确地了解酒店的客房状态，以便订房和退房(3)提供多种手段查询客房订房信息(4)提供修改订房和修改退房功能(5)提供简单的酒店工作人员的添加用户和修改密码功能(三)功能需求(1)利用系统设置中的初始化模块清空系统中所有数据。(2)系统设置模块主要是设置操作员、密码及权限。(3)客房管理模块

12、主要是对客房进行设置和查询。(4 )住宿管理模块主要是对住宿登记、追加押金、调房登记和退宿结账进行 管理。(5)挂账查询模块主要是对挂账和客户结款进行查询。(6)查询统计模块主要是对住宿、退宿进行查询以及对宿费进行提醒。(7)日结模块主要是对登记预收、客房销售进行报表管理以及对客房销售进 行统计。(8)系统维护主要是对数据备份和恢复进行维护.(四)系统的性能需求为了保证系统能够长期、安全、稳定、可靠、高效的运行，系统应该满足以 下的性能需求：(1)系统处理的准确性和及时性系统处理的准确性和及时性是系统的必要性能。在系统设计和开发过程中，要充分考虑系统当前和将来可能承受的工作量，使系统的处理能力

13、和响应时间能 够满足用户对信息的处理。由于系统的查询功能对于整个系统的功能和性能完成 很重要。从系统的多个数据来源来看，客房信息查询、订房信息查询、结算信息 查询，其准确性很大程度上决定了系统的成败。因此，在系统开发过程中，系统采用优化的 SQL语句及安全扩展存储过程来 保证系统的准确性和及时性。(2)系统的开放性和系统的可扩充性系统在开发过程中，应该充分考虑以后的可扩充性。例如系统权限和客房信 息设置等模块也会不断的更新和完善。所有这些都要求系统提供足够的手段进行 功能的调整和扩充.而要实现这一点，应通过系统的开放性来完成，既系统应是 一个开放系统，只要符合一定的规范，可以简单的加入和减少系

14、统的模块，配置系 统的硬件。通过软件的修补、替换完成系统的升级和更新换代.(3)系统的可操作性性本酒店客房管理系统面向的用户是酒店内工作人员，而有些使用人员往往对 计算机并不是非常熟悉，所以系统操作上要求简单、方便、快捷,便于用户使用。 这就要求系统能够提供良好的用户接口，易用的人机交互界面。(4)系统的响应速度系统设计中摒弃大量数据冗余，提出了优化数据库的解决方案，大量使用存 储过程，大大提高系统响应时间和速度.系统在日常处理中的响应速度为秒级，达到实时要求，以及时反馈信息。严格保证操作人员不会因为速度问题而影响工 作效率。（五）开发技术本系统利用Visual Basic 编译环境,采用可视

15、化编程,以Microsoft OfficeAccess 2003作为后台数据库，选用ADO?问数据库来实现各种功能。1。计算机及操作系统：WindowsXP或Windows72 .开发工具：Visual Basic3 .运行环境：装有完整Microsoft Office Access 2003 的系统4 .语言：Visual Basic 与SQL查询语言第三章系统总体功能（一）系统功能结构1。基本系统模型5 .系统功能模型根据星期八商务酒店实际情况，酒店客房管理系统总体功能模型如下图所（二）系统流程图1。预订流程：无* 顾客入住退出订房系统2.结账流程:第四章数据库设计根据酒店客房管理系统需要

16、，设置的数据库包含入住登记表tb_djb、预收登记表tb_djys、挂账信息表tb_gzmx、酒店房间信息表tb_kf、权限设置表 tb_qxsz、调房登记表tb_tfd和管理者信息表tb_user。具结构如下：入住登记表tb_djb :字段字段名字段大 小1凭证号码文本202姓名文本203证件名称文本204证件号码文本205详细地址文本506住宿事由文本507房问号文本308客房类型文本209客房价格货币10住宿日期日期/时间11住宿时间日期/时间12住宿天数数字双精度 型713宿费货币14折扣数字双精度 型15应收宿费货币16预收金额货币17提醒日期日期/时间18退宿日期日期/时间19备注

17、文本5020标志文本1021日期日期/时间22时间日期/时间23结款方式文本1024退宿时间日期/时间25提醒时间日期/时间26摘要文本120027BZ数字双精度 型预收登记表tb_djys:字段字段名字段大小1凭证号码文本202姓名文本203证件名称文本204证件号码文本205详细地址文本506住宿事由文本507房问号文本308客房类型文本9客房价格货币10住宿日期日期/时间11住宿时间日期/时间12住宿天数数字双精度型13宿费货币14折扣数字双精度型15应收宿费货币16预收金额货币17提醒日期日期/时间18退宿日期日期/时间19备注文本5020标志文本1021日期日期/时间22时间日期/时

18、间23结款方式文本10824摘要文本20025退宿时间日期/时间26提醒时间日期/时间27BZ数字双精度型挂账信息表tb_gzmx：字段字段名字段大小1日期日期/时间2挂账单位文本1003摘要文本1004住宿金额货币5欠款金额货币6还款金额货币7金额累计文本208姓名文本209证件号码文本2010票号文本2011时间日期/时间12序号数字整型13房间标准文本1014房间价格文本10酒店房间信息表tb_kf:字段字段名字段大小1房问号文本302房间类型文本203价格货币4房态文本45标志是/否6备注文本1007配置文本1008使用设置文本1009营业日期日期/时间权限设置表tb_qxsz :字段

19、字段名字段 大小1住宿登记是/否2追加押金是/否3调房登记是/否4退宿登记是/否5客房管理是/否6客房查询r是/否7房态查看是/否8挂账查询是/否99挂账结款是/否101住宿查询是/否11退宿查询是/否12宿费提醒是/否13登记预收报表是/否14客房销售报表是/否15客房销售统计报表是/否16操作员设置是/否17密码设置一是/否18初始化是/否19权限设置是/否201设置窗口图像r是/否21数据备份是/否22数据恢复是/否231编号p文本5024操作员文本5025密码文本50调房登记表tb_tfd字段字段名字段大小1凭证号码文本202姓名文本203证件名称文本204证件号码文本2015详细地址

20、文本506工作单位文本507房问号文本308客房类型文本209客房价格货币10住宿日期日期/时间11住宿时间日期/时间12住宿天数数字双精巧13宿费货币14折扣或招待文本16115折扣货币16应收宿费货币17杂费货币18电货币19会议费货币20存车费货币21赔馋T一货币22金额总计货币23预收宿费货币1024退还宿费货币25退房日期日期/时间26退房时间日期/时间27备注一文本10028BZ数字双精巧管理者信息表tb_user ：字段字段名字段大小1操作员文本102密码文本50第五章各功能模块代码(一)酒店客房管理系统Main模块：Dim strtemp As String * 60 '

21、;定义字符变量存储路径Private Declare Function GetSystemDirectory Lib " kernel32" Alias "GetSystemDirectoryA" (ByVal IpBuffer As String, ByVal nSize As Long) As Long'声明 API 函数Private Sub Form_Load()'自动识别数据库路径Adodc1.ConnectionString = "Provider=Microsoft 。Jet。OLEDB.4。0; Data Sou

22、rce= " & App.Path & "DB_KFGL 。 mdb;Persist Security Info=False ”Adodc1。 RecordSource =" selectfrom tb_user"Adodc1。 RefreshAdodc2。ConnectionString =" Provider=Microsloft OLEDB.4。0; Data Source=" & App 。Path & "DB_KFGL 。 mdb; Persist Security Info=Fal

23、se" Adodc2.RecordSource =" setectrom tb_qxsz”Adodc2.RefreshOn Error GoTo aa'错误处理。当找不到路径时则转向错误处理Open (App。Path & "picture.txt" ) For Input As #1Line Input #1 , intext Temp = intextClose #1Image2。Picture = LoadPicture (intext) Exit SubImage2。Picture = LoadPicture (App。Path

24、& ”酒店客房管理系统主界面。bmp")'当找不到路径时，赋给一个固定的图片路径End SubPrivate Sub Form_Activate ()'设置操作员权限Adodcl.RecordSource = " select * from tb_user where操作员='" + StatusBarl。Panels(4) .text + "'"Adodcl。 RefreshIf Adodcl.Recordset.RecordCount > 0 Then11Adodc2。RecordSource

25、= " select * from tb_qxsz where 操作员='" + StatusBarl。Panels（4） .text + "'"Adodc2.RefreshIf Adodc2。 Recordset.RecordCount > 0 ThenWith Adodc2。 RecordsetMain。 zjyj。 Enabled = .Fields（"追加押金"）Main。 ZSDJ.Enabled = .Fields（"住宿登记”）Main.tf。Enabled = .Fields（"

26、;退宿登记"）Main。tfdj。Enabled = .Fields （"调房登记"）Main。kfsz。 Enabled = 。 Fields （"客房管理"）Main。kfcx.Enabled = 。 Fields （"客房查询"）Main.ftck。Enabled = 。 Fields （"房态查看"）Main。gzcx.Enabled = .Fields （"挂账查询”）Main。gzjk.Enabled = .Fields （"挂账结款”）Main.zscx.Enabled

27、= .Fields （"住宿查询"）Main.tfcx.Enabled = .Fields（ 退宿查询”）Main.sftx。 Enabled = .Fields（"宿费提醒"）Main。 ysbb。Enabled = .Fields（"登记预收报表”）Main.xsbb。Enabled = 。 Fields （"客房销售报表"）Main。xstj.Enabled = 。 Fields （"客房销售统计报表 ”）Main。czysz。Enabled = 。 Fields （"操作员设置”）Main.ma.

28、Enabled = 。 Fields（"密码设置”）Main。csh。Enabled = .Fields （"初始化"）Main.qxsz。 Enabled = .Fields （"权限设置”）Main.sztx。Enabled = 。 Fields （"设置窗口图像 "）Main。sjbf.Enabled = 。 Fields（"数据备份"）Main。sjhf.Enabled = .Fields （"数据恢复”）Main。Toolbar1.Buttons （1）。 Enabled = .Fields（&

29、quot;住宿登记"）Main.Toolbar1.Buttons （3）。Enabled = .Fields（"退宿登记"）Main。Toolbar1.Buttons （5）。 Enabled = .Fields（"房态查看"）Main。Toolbar1.Buttons（7 ） .Enabled = .Fields （"住宿查询”）Main.Toolbar1。Buttons （9）。 Enabled = 。 Fields（"客房销售报表”）Main。Toolbar1.Buttons（11 ）。Enabled = .Field

30、s（"宿费提醒”）End WithEnd IfEnd IfEnd SubPrivate Sub Toolbar1_ButtonClick （ ByVal Button As MSComctlLib 。 Button）Select Case Button.KeyCase " DJ”zsdj_Click '调入住宿登记Case " TF"tf_Click'调入退宿结账Case "FT"12ftck_Click '调房态宿查询 Case " CX" zscx_Click'调入住宿查询Cas

31、e " RJ" xsbb_Click'调入客房销售报表Case ” TX” sftx_Click调入提醒Case “ counter ” Dim L, S '调用计算器 L = GetSystemDirectory(strtemp , Len ( strtemp) Paths = Left(strtemp, L )& ”CALC。 EXE'S = Shell (Paths, 1) 'Shell函数执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务ID,若不成功，则会返回0。Case &qu

32、ot;CXDL "重新登录Load main_Loginmain_Login。 ShowCase "exit"If MsgBox("确定退出该系统？“，4,"系统提示")=vbYes ThenEndEnd IfEnd SelectEnd SubPrivate Sub sztx_Click()'设置主窗 口图像Dim Str '定义变量CommonDialog1 。Filter = "BMP 图片(*°BMP) | *。BMP | JPG 图片(*。JPG) | *。JPG|GIF 图片(*.GIF)

33、 | *o GIF |所有文件(*. *) | *. *"设置图片格式'CommonDialog控件CommonDialog控件提供一组标准的操作对话框，进行诸如打开和 保存文件，设置打印选项，以及选择颜色和字体等操作。CommonDialog1.ShowOpen '显示"打开"对话框If CommonDialog1.FileName ” " Then 如果文件不为空Image2.Picture = LoadPicture(CommonDialog1 。 FileName)'加载图片Str = CommonDialog1 。 Fi

34、leName '将图片名赋给变量Open (App。Path & " picture。txt" ) For Output As # 1 '打开一个 txt 文件Print #1 , Str'打印图片名Close # 1 '关闭文件CommonDialog1 。 FileName =""'把空值赋给文件名ElseCommonDialog1.FileName ="'把空值赋给文件名End IfEnd SubPrivate Sub sjbf_Click ()'调入数据备份main_sjb

35、f.ShowMain 。 Enabled = False13End SubPrivate Sub sjhf_Click() main_sjhf。 ShowEnd SubPrivate Sub zsdj_Click() main_kfdj 。 Show Main.Enabled = FalseEnd SubPrivate Sub zjyj_Click () Load main_zjyj main_zjyj。 Show Main.Enabled = FalseEnd SubPrivate Sub tfdj_Click () main_tfdj.ShowMain。 Enabled = FalseEn

36、d SubPrivate Sub tf_Click() main_tf 。 Show Main.Enabled = FalseEnd SubPrivate Sub kfsz_Click() main_kfgl.Show Main.Enabled = FalseEnd SubPrivate Sub kfcx_Click () main_kfcx。 Show Main.Enabled = FalseEnd SubPrivate Sub ftck_Click () main_ftcx.ShowMain。 Enabled = FalseEnd SubPrivate Sub gzcx_Click()Lo

37、ad main_gzcx main_gzcx.Show Main.Enabled = FalseEnd SubPrivate Sub gzjk_Click ()Load main_gzjk main_gzjk.Show Main。 Enabled = FalseEnd SubPrivate Sub zscx_Click ()'数据恢复'调入住宿登记'调入追加押金调入调房登记调入退宿结账调入客房管理'调入客房查询'调入房态查看'调入挂账查询调入挂账结款'调入住宿查询14Load main_zscx main_zscx.Show Main.E

38、nabled = FalseEnd SubPrivate Sub tfcx_Click() Load main_tfcx main_tfcx.ShowMain。 Enabled = FalseEnd SubPrivate Sub sftx_Click() Load main_xftx main_xftx 。 Show Main.Enabled = FalseEnd SubPrivate Sub ysbb_Click () main_ysbb.ShowMain。 Enabled = FalseEnd SubPrivate Sub xsbb_Click() main_xsbb 。 Show Mai

39、n.Enabled = FalseEnd SubPrivate Sub xstj_Click() main_xstj.ShowMain。 Enabled = FalseEnd SubPrivate Sub czysz_Click() Load main_czysz main_czysz.Show Main。 Enabled = FalseEnd SubPrivate Sub ma_Click ) main_mmsz。Show Main.Enabled = FalseEnd SubPrivate Sub csh_Click () main_csh 。 Show Main.Enabled = Fa

40、lseEnd SubPrivate Sub qxsz_Click () main_qxsz 。 Show Main.Enabled = FalseEnd SubPrivate Sub DL_Click ()'调入退宿查询调入宿费提醒调入登记预收报表'调入客房销售报表'调入客房销售统计调入操作员设置'调入密码设置调入初始化'调入权限设置重新登录15Load main_Login main_Login.ShowEnd Sub(二)初始化main_csh模块：Dim workarea (200), sql As String'定义字符串变量Dim rs

41、 As ADODB.RecordsetPrivate Sub Form_Load()自动识别数据库路径Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB 。4。0; Data Source= "& App.Path & "DB_KFGL.mdb ; Persist Security Info=False”Adodc1.RecordSource = "select * from tb_kf"Adodc1.RefreshEnd SubPrivate Sub Form_Unl

42、oad(Cancel As Integer)Main.Enabled = TrueEnd SubPrivate Sub comstart_Click()Frame1.Enabled = True： Comcreat。Enabled = TrueEnd SubPrivate Sub comcreat_Click ()'清空选定表中的数据A = MsgBox("确认初始化该数据？", 4 ,"系统提示")If A = vbYes ThenProgressBar1。Visible = True ' ProgressBar 控件 Progress

43、Bar 控件通过从左 到右用一些方块填充矩形来表示一个较长操作的进度ProgressBar1.Max = UBound(workarea )ProgressBar! Value = ProgressBar1.MinFor Counter = LBound(workarea ) To UBound(workarea),LBound函数返回一个 Long型数据，其值为指定数组维可用的最小下标。,UBound函数返回一个 Long型数据，其值为指定的数组维可用的最大下标。workarea(Counter) = " initial value " & CounterProg

44、ressBarl。 Value = CounterIf Checkl.Value = 1 Then sql =" delete from tb_djb ”Set rs = ESQL(sql)'调用模块中的自定义函数 sql =" delete from tb_djys ”Set rs = ESQL (sql)'调用模块中的自定义函数 End IfIf Check2。 Value = 1 Then sql = "delete * from tb_tfd”Set rs = ESQL (sql) '调用模块中的自定义函数End IfIf Chec

45、k3.Value = 1 Thensql = "delete * from tb_gzmx "16Set rs = ESQL(sql) 调用模块中的自定义函数 End IfIf Check5。 Value = 1 ThenAdodcl。RecordSource = " select * from tb_kf where 房态 =入住'" Adodc1。 Refresh'ADO Data 控件ADO Data 控件与内部 Data控件以及 Remote Data控 件 (RDC) 相似.ADO Data 控件使您能使用 Microsoft

46、ActiveX Data Objects (ADO)快 速地创建一个到数据库的连接 .If Adodc1。Recordseto RecordCount > 0 ThenAdodc1 。 Recordset.MoveFirstFor i = 1 To Adodc1 。 Recordset.RecordCountAdodc1。Recordset Fields("房态")="空房"Adodc1 Recordset.UpdateIf Adodc1.Recordset.EOF = False Then Adodc1 。 Recordset.MoveNextN

47、ext iEnd IfEnd IfNext CounterEnd IfMsgBox "初始化完成！"，,"系统提示"ProgressBar1。Visible = FalseProgressBar1.Value = ProgressBar1。 MinEnd SubPrivate Sub comend_Click() Main.Enabled = TrueUnload MeEnd Sub(四)操作员设置 main_czysz模块：Private Sub Form_Load()自动识别数据库路径Adodc1.ConnectionString = "P

48、rovider=Microsoft 。Jet。OLEDB。4。0; Data Source=" & App.Path& "DB_KFGL.mdb;Persist Security Info=False"Adodc1 。 RecordSource =" selectfrom tb_qxsz"Adodc1 。 RefreshAdodc2.ConnectionString =" P=Miidi®soft.Jet。OLEDB.4.0 ; Data Source=" & App.Path& &

49、quot;DB_KFGL.mdb ; Persist Security Info=False"Adodc2.RecordSource =" select * from tb_user ”Adodc2。 RefreshEnd SubPrivate Sub Form_Activate ()Text1.SetFocus 'text1 获得焦点End Sub17Private Sub Form_Unload(Cancel As Integer) Main.Enabled = TrueEnd SubPrivate Sub Text1_KeyDown(KeyCode As In

50、teger, Shift As Integer )If KeyCode = vbKeyReturn Then Text2.SetFocus '回车 text2 获得焦点End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer )If KeyCode = vbKeyReturn Then Text3 。 SetFocus '回车 text3 获得焦点End SubPrivate Sub Text3_KeyDown (KeyCode As Integer, Shift As Integer )If K

51、eyCode = vbKeyReturn Then Command1.SetFocus '回车 Command1 获得焦点End SubPrivate Sub Command1_Click ()保存操作员及密码If Text1。text <>" " ThenIf Text2.text> " " And Text3.text ” " And Text2text = Text3.text Thenadocon。Open "Provider=Microsoft 。 Jet.OLEDB。4。0; Data Sourc

52、e=" & App 。Path & "DB_KFGL 。 mdb;Persist Security Info=False”adoRs.Open “ selec竹 from tb_user", adocon, adOpenKeyset, adLockOptimistic adoRs。AddNewadoRs.Fields("操作员")=Textl.textadoRs.Fields("密码")=Text2.textadoRs。Update adocon。 Closeadocon。Open “ Provider=Mi

53、crosoft.Jet.OLEDB。4.0; Data Source= & App。Path & "DB_KFGL.mdb ; Persist Security Info=False”adoRs.Open “ select from tb_qxsz", adocon, adOpenKeyset, adLockOptimistic adoRs。AddNewadoRs。Fields ("操作员")=Textl.textadoRs.Fields ("密码")=Text2.textadoRs.Updateadocon.Clos

54、eTextl。text = "" : Textext =" ": Textext =""MsgBox ”操作员设置成功！","系统提示”'MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。ElseIf Text3.text =" " ThenMsgBox ”请输入确认密码“一“系统提示”Text3.SetFocusElseIf Text2.text <> Text3 。 text ThenMsgBox "两次输入的

55、密码不相同“，"系统提示”Text2。text =""Text3.text =""Text2。SetFocus18End IfElseMsgBox "请输入操作员！"一"系统提示”End IfEnd SubPrivate Sub Command2_Click ()Textl.text =。:Textt2 ": "Text3.text =""End SubPrivate Sub Command3_Click ()Main.Enabled = TrueUnload MeEnd S

56、ub(五)房态查询 main_ftcx模块：Dim itmX As ListItem '声明一个 ListItem 对象Dim text As String'声明字符串变量Dim MyIcon As Integer '声明一个整型变量Private Sub Command1_Click()Unload MeMain。Enabled = TrueEnd SubPrivate Sub Form_Activate ()Dim rs1 As ADODB 。 RecordsetDim rs2 As ADODB.RecordsetDim rs3 As ADODB.RecordsetDim sql As String '定义一个字符串变量ListView1.ListItems 。 Clear可将项目组'ListView 控件ListView 控件可使用四种不同视图显示项目.通过此控件,成带有或不带有列标头的列，并显示伴随的图标和文本sql = "