酒店管理系统的制作运用

毕业论文、毕业设计、毕业实训酒店管理系统的制作运用所属系（部）： 计算机 专业： 09计算机信息 届别： 2011届 学生姓名： 学号： 指导教师： 日期： 2011 年 6 月 24 日酒店管理系统的制作运用沈璟晓（2011届 计算机信息管理专业 学号：0922007）摘要：为酒店日常运营及后台管理，制作一套完整、完善的管理系统，为酒店收费、酒店营运提供有效的优质管理。关键词：酒店管理系统；客房管理； 0引言 近年来，随着我国改革开放的发展，国内的酒店服务业得到了日新月异的发展。现代酒店作为一体化的接待场所，是一个旅游城市的窗口，也可以说是一个小型社会。作为一种以服务为主的无烟工业，世界各国对此行业的重视程度并不亚于其它工业。 酒店在其运作期间，服务水平的高低，直接影响到酒店的形象和声誉，如：服务的安排、调度是否周到；客人的要求是否能迅速、很好地得到满足；市场的预测分析是否快捷，准确等。这其中的核心就是对每天大量的信息（客人、费用、房间等）的正确处理和保存。采用计算机这一现代化工具作为管理的辅助手段是必须的。计算机的应用包括OA（办公自动化）、MIS（管理信息系统）、CAD（计算机辅助设计）等，酒店的计算机系统正是典型的MIS应用。 酒店、饭店的计算机管理信息系统，是针对酒店、饭店的具体业务而开发的，业务管理以酒店的前台管理为核心，为用户提供迅速、高效的服务，减免手工处理的繁琐与误差，及时、准确地反映酒店的工作情况、经营情况，从而提高酒店的服务质量，并配合现代化的酒店管理，获得更好的经济效益。 酒店的经济管理是以财务为核心，而行为管理主要集中于前台的业务处理，以前台的接待，收银为核心。将住店客人的各类信息，住店期间发生的各项活动进行及时、有效的记录、反映、分析、统计。在此基础上，又向各个不同的管理角度提供对应的处理窗口使电讯、餐饮、财务等部门能及时获取本部门所需的信息，方便各部门进行工作的总结和分析。使这一层的领导能总体把握整个酒店的运行状况，经营情况和存在的问题，更有利于采取相应的决策，进行总体协调。1需求分析1.1酒店管理发展状态 酒店管理以人为本，以下分别就国内外的酒店业发展状况作简要的介绍，并结合各种特色管理，对酒店的管理特色作简要分析，使得应用软、硬件系统能够充分的发挥其应有的效益，为酒店的发展起辅助作用。1.1.1国外酒店管理发展状况 国外很早就开始在酒店采用计算机进行信息管理,随着计算机的飞速发展,经过几十年的开发及应用,已经非常成熟,并且已建立了大规模的酒店间联网,以方便客人预订房间。国外酒店已向个性化方向发展，酒店的经营方向明确，商务型酒店、长住型酒店、度假型酒店、公寓饭店汽车等等，酒店的经营形式也按独立经营饭店、集团经营饭店等等，产生了一大批国际级的联号饭店，诸如希尔顿（Hilton Hotels Corp.）谢拉顿（Sheraton Corp.）假日(Holiday Corp. )、凯悦（Hyatt Hotels Corp.）酒店集团公司的世界饭店，计算机在国外酒店业的应用，从希尔顿饭店开始。1.1.2 国内酒店管理发展状况 国内酒店业在80年代随着国外酒店管理方式的引进，开始应用计算机，主要是一些高星级的宾馆，软件主要采用国外的系统。90年代初中国酒店业蓬勃发展，国内也有很多计算机公司开发了软件系统，由于国内应用上的需求差别，如语言上，财务制度，管理方式等，使得国外软件在应用中主要是在前台，后台适应性较差。计算机系统在国内酒店业中的应用从广州白天鹅宾馆开始。 随着计算机系统的硬件设备在不断的更新换代。应用软件系统随着也进行了相应的更新和升级特别是在国内的软件水平有了长足的发展，国内的酒店管理软件系统相继开发成功，并投入使用，在长期的应用过程中，国内的管理软件经过完善后更加贴近酒店业自身的发展，通过酒店业倡导的“Green Hotel”绿色饭店概念，计算机系统发挥了更大的作用1.1.2 酒店自身管理发展方向 传统的酒店管理往往令管理者花大量的时间来处理顾客投诉，例如错误查询、烦琐的登记和结帐手续、旅客费用计算错误、空余客房资料不能及时提供等，从而影响出租率，使的管理人员不得不集中精力规划管理运行策略和进行决策。以上问题可通过电脑系统辅助解决，酒店管理的电脑化，不仅是体现酒店现代化形象的一个重要标志 ，而且对于提高员工工作效率，加速资金周转、降低各项成本及改善服务质量都有十分积极的作用。 自主管理，特色管理，通过高品质硬件设施和软件系统，并将在应用过程中，通过软件公司的积极修改，使软件系统更加贴近酒店的自身运作，使酒店计算机管理系统在酒店的日常工作中，为酒店的发展产生良好的经济效益。1.2 基本开发思路 酒店管理信息系统是一套全方位的、灵活的管理信息解决方案，其内部涵盖了大型商业酒店日常经营活动的各个方面，从客人预定到退房客史资料，包括客房、餐饮、娱乐、商务等等各个环节，从前台业务部门到后台(包括财务、库存、人事、资产等)职能模块。 1.2.1 技术可行性l 系统软件开发平台先进,符合现代操作系统的发展最新需求,采用VB语言在WINDOWS XP环境下开发，数据库为Access。系统在界面上引入了操作向导机制，对于初用者或不熟悉计算机操作的人员提供提示界面，一步步引导操作者进行操作。采用统一的模式（菜单、色彩、快捷键等），并采用标准的WINDOWS XP应用系统界面风格，给操作人员一种熟悉、直观、简洁的印象。 其它采用WINDOWS XP界面风格的还包括有：错误提示、系统对话框、色彩集、屏幕保护等等。 1.2.2 经济可行性 经济效益而言，应用酒店管理信息系统的优点是： (1)间接性:其经济效益不是直接产生的，是通过对人力、物力的节省而带来的, 可以堵塞许多漏洞； (2)长期性:计算机的投资是较大的，是在长期的应用中逐步得到回报的； (3)社会效益:酒店是一个高层次的服务行业，采用计算机可提高服务质量，有良好的社会形象。1.2.3 社会可行性 现代社会已进入电子化网络时代，随着市场竞争日渐激烈，不断使各大宾馆、酒店竞相完善自身管理手段，提高自身服务水平，以求得更多的客源。通过计算机对宾馆、酒店的日常事务进行现代化的科学管理，是提高宾馆酒店形象、档次和服务水准的强有力表现方式。为强化宾馆、酒店内部管理，提高服务质量、减少经营漏洞、增加营业收入提供了可靠的技术手段和技术保障，这也是现代宾馆、酒店业系统管理的发展需要。 计算机管理系统的引入使宾馆、酒店内部集中管理，集中控制，快速反应各个部门的经营状况，各收银点和电话费自动记帐转前台，客人离店一次性结帐。使得工作人员的劳动强度降低，工作效率增加，更能有效的杜绝收银员的财务漏洞，减少宾馆、酒店的经济损失。带来良好的经济效益和社会效益。各种经营、收入、分析报表也为领导阶层提供有力决策支持。实时动态地掌握宾馆、酒店的经营状况。 总之，使用该酒店管理系统，将会有以下好处： 1.电脑收银，打印帐单：快速准确，减少宾客等待时间，并可杜绝收银过程中的舞弊现象。 2.高效的客房管理：能有效的提高房率，增加营业收入。 3.提高决策依据：管理者可以随时了解经营情况，以制定相应的经营方针。 4.减轻员工的工作负担：从而使员工把更多的精力放在提高为宾客服务的质量上。 5.简单、方便地保存和查询历史资料。 6.树立良好的酒店形象。1.3 运行环境 操作系统：Microsoft Windows 98或更高版本 CPU：推荐Pentium或更高的处理器 内存：128MB以上的内存2 系统结构2.1系统结构图系统功能模块图组织机构图业务流程图- 36 -2.2 输入设计此酒店管理系统的输入设计主要是客人在预定或入住时输入的客人基本资料信息和处理业务信息（预定、入住）。根据系统分析阶段，我们分别设计出预定、接待时的不同窗体。2.2.1 预定业务的输入设计2.2.2 接待业务的输入设计2.2.3 取消预定业务的输入设计2.3 输出设计2.3.1 预定、入住凭证 客人在预定或入住时，在系统的上述输入窗体中输入信息后，选择“打印”将会在打印机上输出客人所填写的相应信息。由于没有打印机设备，因此不能具体体现出来。2.3.2 查询信息系统提供给操作员的查询窗体，可以及时了解酒店目前的业务数量及其具体信息。2.3.2 报表 此酒店管理系统的营业日结就是报表输出。报表主要是为了酒店的上层领导者能够了解酒店目前的运营状况而设计的，分为登记预收报表和客房销售报表两部分。 此部分由于时间与能力有限还尚为完成，故没有附上运行图，望老师谅解！2.4 代码设计本系统的主要代码是单号，它是唯靠单号一标识客人一切信息的依据。数据库里的个人、团体、团体成员、预定、历史预定、入住、历史入住彼此之间用SQL语言进行联接、查询、插入、删除等在处理整个业务流程中发生的所以与数据库有关的操作。房号在主界面的多种房间查看方式中得以充分的体现，支持按楼座、楼层、房间类型、房态四种查看方式。具体代码设计如下表所示：代码名称代码含义组成举例说明单号客人预定或入住时填写的预定单或入住单的编号，唯一标识客人的一切信息年（4）+月（2）+日（2）+客人类型（1为个人，2为团体）+编号（3）2005+12+16+1+0012005年12月16日的第001号个人2005+12+20+2+0082005年12月20日的第008号团体房号酒店所有房间的编号，唯一标识每一个房间楼座（1）+楼层（1）+房间编号（2）A205A楼2层的05号房间工号系统操作员的编号，唯一标识每个操作员的信息操作员类别（1为系统管理员，2为操作员）+编号（4）10001编号为0001号的系统管理员2.5 数据库设计数据库是酒店酒店管理的核心组成部分，所有信息处理子系统都将基于某种数据库平台，以便将其处理的信息资源完整、安全地保存起来，并且对其进行各种管理和利用。选择一个发的数据库平台是非常重要的。根据酒店信息管理应用的实际需要，在选择数据库平台时，应考虑下列因素：（1）性能：数据库的数据处理能力。（2）开放性：数据库是否能在多种操作系统下使用。（3）安全性：数据库是否具有高度的安全性。（4）可靠性：数据库是否具有高度的可靠性。（5）并行性：数据库是否并行运行在多节点上。（6）可操作性：数据库在使用前是否需要复杂的培训。2.5.1 客人、客房、服务员三实体E-R图2.5.2 数据库关系模式系统操作员（工号，操作员，密码，菜单名称，备注）房间（编号，房号，房号，房间类型，房价，房态，备注）个人（单号，姓名，性别，出生年月，证件类型，证件号，固定电话，手机号，联系地址，备注）团体（单号，姓名，性别，出生年月，团体名称，团体人数，证件类型，证件号，固定电话，手机号，联系地址，备注）团体成员（单号，房号，姓名，性别，出生年月，证件类型，证件号，）预定历史预定(单号，房间类型，房价，房间数，预订金，预住日期，预离时间，预订日期，操作员，备注) 入住历史入住(单号，房间类型，房价，房间数，预订金，预住日期，预离时间，预订日期，操作员，备注)2.5.3 数据库各类表设计（Access 2000）此酒店管理信息系统数据库共有九个表组成，系统操作员、房间信息、个人信息、团体信息、团体成员信息、预定、历史预定、入住、历史入住。现将表结构以表格方式和实际截图表示如下：1）数据库主图2）系统操作员此表保存操作员姓名，所设密码及权限说明字段名工号操作员密码菜单名称备注类型文本型文本型文本型是否备注长度5108自定3）房间信息此表保存房间信息，并会随实际操作变化字段名自动编号房号房间类型房价房态备注类型自动编号文本型文本型货币型文本型备注长度长整型48自定4自定4）个人信息此表保存散客在预定或直接入住时输入的客人自身资料字段名单号姓名性别出生年月证件类型证件号固定电话手机号联系地址备注类型文本型文本型文本型日期型文本型文本型文本型文本型文本型备注长度12102短日期620131150备注5）团体信息此表保存团体客人在预定或直接入住时输入的团体领队人资料及团体名称、人数字段名单号姓名性别出生年月团体名称团体人数证件类型证件号固定电话手机联系地址备注类型文本型文本型文本型日期型文本型数字型文本型文本型文本型文本型文本型备注长度12102短日期50整型620131150备注6）团体成员信息 此表保存团体客人在预定转入住或直接入住时团体内每个成员（包括领队）的个人信息及所住房间号，以单号作为团体的唯一标识，在团体信息表中查找团体名称及领队人名称。字段名单号姓名性别出生日期证件类型证件号房号类型文本型文本型文本型日期型文本型文本型文本型长度12102短型6 2047）预定/历史预定 此表保存客人的预定资料，由于历史预定的记录是由预定中的记录转为入住后，将预定记录转移到表历史预定中，并将预定中的记录删除，所以历史预定的表结构和预定的表结构完全一样。字段名单号房间类型房价房间数预订金预住日期预离时间预订日期操作员类型文本型文本型货币型数字型货币型日期型日期型日期型文本型长度128自定整型自定短型短型短型108）入住/历史入住此表保存客人的入住资料，由于历史入住的记录是由离店结帐后，将入住记录转移到表历史入住中，并将入住信息中的记录删除，所以历史入住的表结构和入住的表结构完全一样。入住信息表中的结算方式为空时，操作员为填写入住单时的系统操作员，历史入住信息表中的结算方式不能为空，而且操作员为办理结帐业务的系统操作员。客人信息（散客、团体及团体成员）仍保存在相应表中不会被删除，以便客人下次入住时查询。字段名单号房间类型房价房间数房号入住押金入住时期离店日期消费金额结算方式操作员类型文本型文本型货币型数字型文本型货币型日期型日期型货币型文本型文本型长度128自定 整型4自定短型短型自定4102.6 程序流程设计由于时间有限，为此我们只描绘了整个酒店管理系统宏观上的程序设计流程图，在具体编译代码时，每个功能都会被划分为小的程序流程图，用具体的代码实现。3 系统实现3.1 运行图3.1.1 登录界面3.1.2 主界面运行图3.1.3 系统设置3.1.4 客房管理3.1.5 数据设置 3.2 系统测试3.2.1 功能测试功能测试的主要内容是按实际操作的数据向系统的各个功能模块输入数据，检测输出结果是否符合预期要求。3.2.2 系统测试在对各个模块的测试完成后对整个系统作一个完整的测试，以检验各模块在联合运行时运行结果是否符合预期要求。3.2.3 性能分析在实际测试中，打开历史客人的资料大概需要510秒，为一名客人办理入住需要510秒，统计一个客人的费用情况小于10秒。3.2.4 改进意见由于时间仓促，此系统的规划虽然很小，但功能基本实现了酒店前台管理的基本重要功能，而在实际中却仍有很多功能尚未实现。因此，系统虽然完成了酒店业务的主要功能，但如后台子系统的数据备份、数据初始化、报表等而未能有时间实现。其它一些比较不重要的辅助性、完善性的功能也未能在短短的课程设计所限定的时间内实现。因为系统还在不断地加入新功能以及修改现有问题，所以在系统的评测部分并没有详尽的测试报告，而本文中的内容也并未能完全表达整个系统的功能发展状态。基于本系统要求的开发时间比较短，开发力量有限，有些隐性的问题在调试的过程中还没有出现，希望通过在以后的学习与系统的完善中，作出调整，及时修正错误、完善酒店管理系统所需的所有功能。3.3 程序代码3.3.1登录Dim TIM As Integer 定义一个整型变量Dim myval As String 定义一个字符串变量Private Sub form_load() 自动识别数据库路径 Data1.DatabaseName = App.Path & jdgl.mdb Data2.DatabaseName = App.Path & jdgl.mdbEnd SubPrivate Sub Form_activate()当记录为零时，进入系统具有所有权限If Data1.Recordset.RecordCount = 0 Then MsgBox (请先设置操作员密码和权限！) Load frmmain Unload MeElse Text1.SetFocusEnd IfEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, 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 Cmd1.SetFocus 按回车键cmd1获得焦点If KeyCode = vbKeyUp Then Text1.SetFocusIf KeyCode = vbKeyDown Then Cmd1.SetFocusEnd SubPrivate Sub cmd1_Click() frmmain.StatusBar1.Panels(3).Text = frmmain.StatusBar1.Panels(3).Text + Text1.Text 赋值给frmmain.StatusBar1.Panels(3).Text 验证操作员及密码 If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst Data2.Recordset.FindFirst 姓名 like + Chr(34) + Text1.BoundText + Chr(34) + If Data2.Recordset.NoMatch Then MsgBox (操作员输入错误!) Else Data1.RecordSource = select * from 系统操作员 where 姓名= & Text1.BoundText & Data1.Refresh If Text1.BoundText And Text2.Text And Text2.Text = Data1.Recordset.Fields(密码) Then Load frmmain frmmain.Show Unload Me Else If TIM = 3 Then 密码输错3次，退出系统 myval = MsgBox(密码输入错误,请向系统管理员查询!, 0, ) If myval = vbOK Then End End If If Text1.BoundText = Then MsgBox (请输入操作员!) Text1.SetFocus Else If Text1.BoundText Data1.Recordset.Fields(姓名) Then MsgBox (查无此操作员,请重新输入操作员!) Text1.SetFocus Else If Text2.Text = Then MsgBox (请输入操作员密码!) Text2.SetFocus Else If Text2.Text Data1.Recordset.Fields(密码) Then MsgBox (密码错误,请重新输入密码!) TIM = TIM + 1 Text2.SetFocus End If End If End If End If End IfEnd IfEnd SubPrivate Sub cmd2_Click() EndEnd Sub3.3.2主界面部分代码定义了RN过程，统计客房数量：Private Sub RN()For i = 0 To 99 If Command1(i).Caption = 普 And Command1(i).BackColor = &H8000000F And Command1(i).Visible = True Then Label6(0) = Val(Label6(0) + 1 If Command1(i).Caption = 标单 And Command1(i).BackColor = &H8000000F And Command1(i).Visible = True Then Label6(1) = Val(Label6(1) + 1 If Command1(i).Caption = 标双 And Command1(i).BackColor = &H8000000F And Command1(i).Visible = True Then Label6(2) = Val(Label6(2) + 1 If Command1(i).Caption = 豪单 And Command1(i).BackColor = &H8000000F And Command1(i).Visible = True Then Label6(3) = Val(Label6(3) + 1 If Command1(i).Caption = 豪双 And Command1(i).BackColor = &H8000000F And Command1(i).Visible = True Then Label6(4) = Val(Label6(4) + 1Next iLabel7 = Val(Label6(0) + Val(Label6(1) + Val(Label6(2) + Val(Label6(3) + Val(Label6(4)End Sub定义单号：Private Sub form_load()strda = CStr(Year(Date) & Month(Date) & Day(Date)Data2.DatabaseName = App.Path & jdgl.MDB 自动识别数据库路径Data2.RecordSource = Select 个人.单号 From 个人 Where 单号 Like + Chr(34) + strda + * + Chr(34) + Data2.RefreshIf Data2.Recordset.RecordCount = 0 Then 系统当天还无个人单号 intn1 = 1001Else Txtn1.DataField = 单号 Data2.Recordset.MoveLast intn1 = Val(Right(Txtn1.Text, 4) +1 取最后一次使用的单号加1End IfData3.DatabaseName = App.Path & jdgl.MDB 自动识别数据库路径Data3.RecordSource = Select 团体.单号 From 团体 Where 单号 Like + Chr(34) + strda + * + Chr(34) + Data3.RefreshIf Data3.Recordset.RecordCount = 0 Then 系统当天还无团体单号 intn2 = 2001Else Txtn2.DataField = 单号 Data3.Recordset.MoveLast intn2 = Val(Right(Txtn2.Text, 4) +1 取最后一次使用的单号加1End IfEnd SubPrivate Sub Form_activate()Dim i As IntegerFor i = 0 To 4 Label6(i) = 0Next iLabel7 = 0Data1.DatabaseName = App.Path & jdgl.MDB 自动识别数据库路径Data1.RecordSource = Select 房间.编号,房间.房间类型,房间.房态 From 房间Data1.RefreshText4.DataField = 房间类型Text5.DataField = 房态Text6.DataField = 编号Data1.Recordset.MoveFirstDo While Data1.Recordset.EOF = False i = Val(Text6.Text) - 1 Command1(i).Caption = Text4.Text If Text5.Text = 空房 Then Command1(i).BackColor = &H8000000F If Text5.Text = 预定 Then Command1(i).BackColor = &HC0FFC0 If Text5.Text = 在住 Then Command1(i).BackColor = &H80C0FF If Text5.Text = 维修 Then Command1(i).BackColor = &HFF8080 If Text5.Text = 脏房 Then Command1(i).BackColor = &H404080 Data1.Recordset.MoveNextLoopRNEnd Sub刷新功能：Private Sub Command2_click()Dim i As IntegerFor i = 0 To 4 Label6(i) = 0Next iLabel7 = 0Data1.DatabaseName = App.Path & jdgl.MDB 自动识别数据库路径Data1.RecordSource = Select 房间.编号,房间.房间类型,房间.房态 From 房间Data1.RefreshText4.DataField = 房间类型Text5.DataField = 房态Text6.DataField = 编号Data1.Recordset.MoveFirstDo While Data1.Recordset.EOF = False i = Val(Text6.Text) - 1 Command1(i).Caption = Text4.Text If Text5.Text = 空房 Then Command1(i).BackColor = &H8000000F If Text5.Text = 预定 Then Command1(i).BackColor = &HC0FFC0 If Text5.Text = 在住 Then Command1(i).BackColor = &H80C0FF If Text5.Text = 维修 Then Command1(i).BackColor = &HFF8080 If Text5.Text = 脏房 Then Command1(i).BackColor = &H404080 Data1.Recordset.MoveNextLoopRNEnd SubPrivate Sub Combo1_Click() 楼座选择Click Combo2.Text = Combo3.Text = Combo4.Text = Dim str1, str2 As String For i = 0 To 99 Command1(i).Visible = True Label4(i).Visible = True str1 = Label4(i).Caption str2 = Left(str1, 1) If str2 Combo1.Text Then Command1(i).Visible = False Label4(i).Visible = False End If Next iFor i = 0 To 4 Label6(i) = 0Next iLabel7 = 0 RNEnd SubPrivate Sub Combo2_Click() 楼层选择Click Combo3.Text = Combo4.Text = Dim str1, str2 As StringIf Combo1.Text = And Combo3.Text = And Combo4.Text = Then 只选了楼层 For i = 0 To 99 Command1(i).Visible = True Label4(i).Visible = True str1 = Label4(i).Caption str2 = Mid(str1, 2, 1) If str2 Combo2.Text Then Command1(i).Visible = False Label4(i).Visible = False End If Next iElse If Combo1.Text = A Then A楼房间 For i = 0 To 59 Command1(i).Visible = True Label4(i).Visible = True str1 = Label4(i).Caption str2 = Mid(str1, 2, 1) If str2 Combo2.Text Then Command1(i).Visible = False Label4(i).Visible = False End If Next i End If If Combo1.Text = B Then B楼房间 If Combo2.Text = 4 Then B楼没有第4层 MsgBox 没有 & Combo2.Text & 查询的数据, vbInformation + vbCritical, 提示 Else For i = 60 To 99 Command1(i).Visible = True Label4(i).Visible = True str1 = Label4(i).Caption str2 = Mid(str1, 2, 1) If str2 Combo2.Text Then Command1(i).Visible = False Label4(i).Visible = False End If Next i End If End IfEnd IfFor i = 0 To 4 Label6(i) = 0Next iLabel7 = 0RNEnd Sub3.3.3.个人预定Private Sub MNU13_Click() 打印住宿登记单据 Printer.Height = 8000: Printer.Width = 8000 Printer.CurrentX = 1100: Printer.CurrentY = 300 Printer.FontSize = 12 Printer.Print 酒店(住宿证) Dim A, B, C, D As Integer A = 100: B = 500: C = 4800: D = 400 Printer.FontSize = 10 Printer.CurrentX = 100 + A Printer.CurrentY = B + 200 Printer.Print Date & & Time & NO. & Text2.Text B = B + D Printer.Line (A, B + 100)-(C, B + 100) Printer.CurrentX = 100 + A Printer.CurrentY = B + 200 Printer.Print 姓名： & Text1(0).Text B = B + D Printer.CurrentX = 100 + A Printer.CurrentY = B + 200 Printer.Print 房间号: & Text1(17).Text B = B + D Printer.CurrentX = 100 + A Printer.CurrentY = B + 200 Printer.Print 押金: & Format(Text1(14).Text, 0.00) B = B + D Printer.Line (A, B + 100)-(C, B + 100) Printer.CurrentX = 100 + A Printer.CurrentY = B + 200 Printer.Print 操作员: & Combo1(2).Text & 欢迎光临 Printer.EndDocEnd SubPrivate Sub form_load() Data1.DatabaseName = App.Path & jdgl.mdb Data1.RecordSource = Select 个人.* From 个人 Data1.Refresh Data2.DatabaseName = App.Path & jdgl.mdb Data2.RecordSource = Select 预定.* From 预定 Data2.Refresh Data3.DatabaseName = App.Path & jdgl.mdb Data3.RecordSource = Select 房间.* From 房间 Where 房态 Like 空房 Data3.Refresh Text9.Text = 1 Text9.Enabled = FalseEnd SubPrivate Sub MNU14_Click() 退出 Unload Me frmmain.Show frmmain.Enabled = TrueEnd SubPrivate Sub MNU24_Click() 保存Data3.RecordSource = Select 房间.* From 房间 Where 房态 Like 空房Data3.RefreshText1.Text = strda & intn1intn1 = intn1 + 1Data1.Recordset.FindFirst & 房间类型 & like + Chr(34) + Combo3.Text + Chr(34) + Data1.Recordset.AddNewData1.Recordset.Fields(单号) = Text1.TextData1.Recordset.Fields(姓名) = Text2.TextData1.Recordset.Fields(性别) = Combo1.TextData1.Recordset.Fields(出生日期) = Text3.TextData1.Recordset.Fields(证件类型) = Combo2.TextData1.Recordset.Fields(证件号) = Text4.TextData1.Recordset.Fields(固定电话) = Text5.TextData1.Recordset.Fields(手机) = Text6.TextData1.Recordset.Fields(联系地址) = Text7.TextData1.Recordset.UpdateData1.RefreshData2.Recordset.AddNew Data2.Recordset.Fields(单号) = Text1.Text Data2.Recordset.Fields(房间类型) = Combo3.Text Data2.Recordset.Fields(房价) = Text8.Text Data2.Recordset.Fields(房间数) = Text9.Text Data2.Recordset.Fields(预住日期) = DTP1.Value Data2.Recordset.Fields(预离日期) = DTP2.Value Data2.Recordset.Fields(预付定金) = Text11.Text Data2.Recordset.Fields(预定日期) = DTP3.Value Data2.Recordset.Fields(操作员) = Text10.Text Data2.Recordset.Fields(备注) = Text12.TextData2.Recordset.UpdateData2.Refresh 更新房间状态 Data3.Recordset.FindFirst 房间类型 like + Chr(34) + Combo3.Text + Chr(34) + Data3.Recordset.Edit Data3.Recordset.Fields(房态) = 预定 Data3.Recordset.Update Data3.Recordset.MoveNext MsgBox 保存成功 End SubPrivate Sub Form_Activate()初始化日期及时间 DTP1.Value = Date DTP2.Value = Date: DTP3.Value = Date Text10.Text = Mid(frmmain.StatusBar1.Panels(3).Text, 5) 赋值给操作员End SubPrivate Sub MNU3_Click() 查看 预定查询.ShowEnd SubPrivate Sub MNU4_Click() Shell calc.exeEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1 打印 MNU13_Click Case 3 增加 MNU21_Click Case 4 修改 MNU22_Click Case 5 取消 MNU23_Click Case 6 保存 MNU24_Click Case 7 删除 MNU25_Click Case 9 查看 MNU3_Click Case Else 退出 MNU14_Click End SelectEnd SubPrivate Sub MNU23_Click() 取消操作Text1.Enabled = False Text2.Enabled = False Text3.Enabled = False Text4.Enabled = False Text5.Enabled = False Text6.Enabled = False Text7.Enabled = False Text8.Enabled = False Text9.Enabled = False Text10.Enabled = False Text11.Enabled = False Text12.Enabled = False MNU13.Enabled = False: MNU24.Enabled = False: Combo1.Enabled = False Combo2.Enabled = False: Combo3.Enabled = False: DTP2.Enabled = False: DTP3.Enabled = FalseEnd SubPrivate Sub MNU21_Click() 新增 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Text10.Text = Text11.Text = Text12.Text = Text13.Text = Text14.Text = MNU21.Enabled = False MNU24.Enabled = TrueEnd SubPrivate Sub MNU25_Click() 删除 If (MsgBox(真的要删除该条纪录？, vbQuestion + vbYesNo, 删除提示) = vbYes) Then If AA.RecordCount 0 Then AA.Delete AA.MoveNext intn2 = intn2 - 1 End IfEnd Sub3.3.4个人预定转入住Dim dmDim tj As BooleanPrivate Sub Combo1_Click(Index As Integer) sqlstr = select 房价,房号 from 房间 where 房间类型= & Trim(Com