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

摘要：随着计算机和信息技术的飞速发展，酒店客房的管理由传统的工作模式逐渐被信息化、网络化的现代工作模式所代替。以住宿为主的酒店假如再延用传统的管理模式，就会增加酒店管理成本和降低工作效率。在酒店客房管理中融入先进的计算机和软件技术，利用酒店客房管理系统进行管理就显得十分有意义。利用酒店客房管理系统进行管理能让管理者及时了解酒店整体情况，便于各种决策，同时也简化了管理的各种复杂操作，提高了酒店的管理效率。本文以茂名星期八商务酒店为例采用Visual Basic和ACCESS相结合，创建一个适合实际情况的酒店客房管理系统。关键词：酒店客房管理系统 设计 实现Abstract：With the 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 increase 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, 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 combination, to create a suitable for the actual situation of the hotel room management system.Keywords：Hotel room management system Design Realization72目 录第一章 课题研究背景3（一）酒店客房管理现状3（二）课题研究的意义3第二章 需求分析3（一）系统目标3（二）系统需求3（三）功能需求4（四）系统的性能需求4（五）开发技术5第三章 系统总体功能5（一）系统功能结构5（二）系统流程图6第五章 各功能模块代码11（一）酒店客房管理系统Main模块11（二）初始化main_csh模块16（四）操作员设置main_czysz模块17（五）房态查询main_ftcx模块19（六）挂账结款main_gzjk20（七）客房查询main_kfcx23（八）住宿登记main_kfdj23（九）客房设置main_kfgl31（十）密码设置main_mmsz34（十一）权限设置main_qxsz36（十二）数据备份main_sjbf38（十三）数据恢复main_sjhf38（十四）退宿结账main_tf39（十五）退宿查询main_tfcx50（十六）调房登记main_tfdj51（十七）宿费提醒main_xftx55（十八）客房销售报表main_xsbb56（十九）客房销售统计main_xstj59（二十）登记预收报表main_ysbb60（二十一）追加押金main_zjyj61（二十二）住宿查询main_zscx66（二十三）酒店客房管理系统main_Login67第六章 调试与结果68（一）初始化系统登录调试68（二）登记模块的功能调试68（三）退房的功能调试69（四）住房查询的功能调试69参考文献70致 谢71酒店客房管理系统的设计与实现第一章 课题研究背景随着经济的迅速发展，酒店业的竞争日趋激烈。酒店业内不得不进一步寻求通过扩大酒店销售、改进服务质量、降低管理成本和提升客户满意度等办法来增强酒店的核心竞争力。其中最有效的手段就是应用现代化信息化技术，变革传统意义上的酒店业经营管理模式，跟上时代竞争的步伐。考虑到酒店业务的不断提升和用户需求的日益多样化，尽量满足酒店的个性化需求，同时吸收了同类产品及现有软件系统的优点，力争设计成为一套先进适用的酒店管理软件系统，为顾客提供更加便捷的信息化服务，为酒店管理者、决策者提供准确及时的酒店经营信息，以达到酒店节约经营成本、提高经营质量和经济效益的信息化管理目标。（一）酒店客房管理现状随着计算机和信息技术的飞速发展，传统的酒店客房管理模式逐渐被信息化的现代酒店客房管理模式所代替。传统的酒店管理往往令管理者花大量的人力和物力以满足各种繁琐的经营活动的需要，例如冗长的登记和结账手续、手工记录所有客房状态、列表统计顾客消费情况等。这种工作模式不但效率低下，且极易出现错误和遗漏，有时甚至会导致严重的经济损失，给酒店的经营带来负面影响。（二）课题研究的意义对酒店整个来说，对酒店经营状况起决定作用的是酒店的服务管理水平。如何利用先进的管理手段来提高酒店的管理水平成为酒店业务发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高酒店的管理无疑是一条行之有效的途径。虽然计算机管理并不是酒店管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对酒店的业务管理提供强有力的支持。因此，采用全新的计算机网络和酒店业务管理系统，已成为提高酒店的管理效率，使作业人员与管理系统之间灵活互动，实现流畅的工作流衔接，帮助酒店有效地进行业务管理，释放最大价值。酒店业务管理系统在达到在节省人力资源成本的同时，可以提高业务效率，并能够及时、准确、迅速地满足顾客服务的需求。第二章 需求分析（一）系统目标本系统需要满足以下几个系统设计目标。（1）实用性原则：真正为酒店工作人员的实际工作服务，按照酒店客房管理工作的实际流程，设计出实用的酒店客房管理系统。（2）安全性原则：必须为酒店客房提供信息安全的服务，以保证酒店信息的不被泄露。（3）可操作性原则：本酒店客房管理系统面向的是酒店内工作人员，所以系统操作上要求简单、方便、快捷，便于用户使用。（4）可扩展性原则：采用开发的标准和接口，便于系统向更大的规模和功能扩展。（二）系统需求根据酒店客房管理系统的理念，此酒店客房管理系统必须满足以下需求：(1)具有设置酒店客房类型和房间信息的功能(2)能快速、准确地了解酒店的客房状态，以便订房和退房(3)提供多种手段查询客房订房信息(4)提供修改订房和修改退房功能(5)提供简单的酒店工作人员的添加用户和修改密码功能（三）功能需求（1）利用系统设置中的初始化模块清空系统中所有数据。（2）系统设置模块主要是设置操作员、密码及权限。（3）客房管理模块主要是对客房进行设置和查询。（4）住宿管理模块主要是对住宿登记、追加押金、调房登记和退宿结账进行管理。（5）挂账查询模块主要是对挂账和客户结款进行查询。（6）查询统计模块主要是对住宿、退宿进行查询以及对宿费进行提醒。（7）日结模块主要是对登记预收、客房销售进行报表管理以及对客房销售进行统计。（8）系统维护主要是对数据备份和恢复进行维护。（四）系统的性能需求为了保证系统能够长期、安全、稳定、可靠、高效的运行，系统应该满足以下的性能需求：（1）系统处理的准确性和及时性系统处理的准确性和及时性是系统的必要性能。在系统设计和开发过程中，要充分考虑系统当前和将来可能承受的工作量，使系统的处理能力和响应时间能够满足用户对信息的处理。由于系统的查询功能对于整个系统的功能和性能完成很重要。从系统的多个数据来源来看，客房信息查询、订房信息查询、结算信息查询，其准确性很大程度上决定了系统的成败。因此，在系统开发过程中，系统采用优化的SQL语句及安全扩展存储过程来保证系统的准确性和及时性。（2）系统的开放性和系统的可扩充性系统在开发过程中，应该充分考虑以后的可扩充性。例如系统权限和客房信息设置等模块也会不断的更新和完善。所有这些都要求系统提供足够的手段进行功能的调整和扩充。而要实现这一点，应通过系统的开放性来完成，既系统应是一个开放系统，只要符合一定的规范，可以简单的加入和减少系统的模块，配置系统的硬件。通过软件的修补、替换完成系统的升级和更新换代。（3）系统的可操作性性本酒店客房管理系统面向的用户是酒店内工作人员，而有些使用人员往往对计算机并不是非常熟悉，所以系统操作上要求简单、方便、快捷，便于用户使用。这就要求系统能够提供良好的用户接口，易用的人机交互界面。（4）系统的响应速度系统设计中摒弃大量数据冗余，提出了优化数据库的解决方案，大量使用存储过程，大大提高系统响应时间和速度。系统在日常处理中的响应速度为秒级，达到实时要求，以及时反馈信息。严格保证操作人员不会因为速度问题而影响工作效率。（五）开发技术本系统利用Visual Basic编译环境，采用可视化编程，以Microsoft Office Access 2003作为后台数据库，选用ADO访问数据库来实现各种功能。1.计算机及操作系统：WindowsXP 或Windows7；2.开发工具：Visual Basic3.运行环境: 装有完整Microsoft Office Access 2003的系统4.语言： Visual Basic与 SQL查询语言第三章 系统总体功能（一）系统功能结构1. 基本系统模型登录身份验证工作界面2. 系统功能模型根据星期八商务酒店实际情况，酒店客房管理系统总体功能模型如下图所示。酒店客房管理 系 统住宿管理客房管理挂账管理查询统计日结系统设置系统维护（二）系统流程图1. 预订流程：2. 结账流程：第四章 数据库设计根据酒店客房管理系统需要，设置的数据库包含入住登记表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住宿天数数字双精度型13宿费货币14折扣数字双精度型15应收宿费货币16预收金额货币17提醒日期日期/时间18退宿日期日期/时间19备注文本5020标志文本1021日期日期/时间22时间日期/时间23结款方式文本1024退宿时间日期/时间25提醒时间日期/时间26摘要文本20027BZ数字双精度型预收登记表tb_djys：字段字段名类型字段大小1凭证号码文本202姓名文本203证件名称文本204证件号码文本205详细地址文本506住宿事由文本507房间号文本308客房类型文本9客房价格货币10住宿日期日期/时间11住宿时间日期/时间12住宿天数数字双精度型13宿费货币14折扣数字双精度型15应收宿费货币16预收金额货币17提醒日期日期/时间18退宿日期日期/时间19备注文本5020标志文本1021日期日期/时间22时间日期/时间23结款方式文本1024摘要文本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：字段字段名类型字段大小1住宿登记是/否2追加押金是/否3调房登记是/否4退宿登记是/否5客房管理是/否6客房查询是/否7房态查看是/否8挂账查询是/否9挂账结款是/否10住宿查询是/否11退宿查询是/否12宿费提醒是/否13登记预收报表是/否14客房销售报表是/否15客房销售统计报表是/否16操作员设置是/否17密码设置是/否18初始化是/否19权限设置是/否20设置窗口图像是/否21数据备份是/否22数据恢复是/否23编号文本5024操作员文本5025密码文本50调房登记表tb_tfd：字段字段名类型字段大小1凭证号码文本202姓名文本203证件名称文本204证件号码文本205详细地址文本506工作单位文本507房间号文本308客房类型文本209客房价格货币10住宿日期日期/时间11住宿时间日期/时间12住宿天数数字双精度型13宿费货币14折扣或招待文本1615折扣货币16应收宿费货币17杂费货币18电话费货币19会议费货币20存车费货币21赔偿费货币22金额总计货币23预收宿费货币24退还宿费货币25退房日期日期/时间26退房时间日期/时间27备注文本10028BZ数字双精度型管理者信息表tb_user：字段字段名类型字段大小1操作员文本102密码文本50第五章 各功能模块代码（一）酒店客房管理系统Main模块：Dim strtemp As String * 60 定义字符变量存储路径Private Declare Function GetSystemDirectory Lib kernel32 Alias GetSystemDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As Long 声明API函数Private 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_user Adodc1.Refresh Adodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & DB_KFGL.mdb;Persist Security Info=False Adodc2.RecordSource = select * from tb_qxsz Adodc2.RefreshOn Error GoTo aa 错误处理。当找不到路径时则转向错误处理 Open (App.Path & picture.txt) For Input As #1 Line Input #1, intext Temp = intext Close #1 Image2.Picture = LoadPicture(intext) Exit Subaa: Image2.Picture = LoadPicture(App.Path & image酒店客房管理系统主界面.bmp) 当找不到路径时，赋给一个固定的图片路径End SubPrivate Sub Form_Activate() 设置操作员权限 Adodc1.RecordSource = select * from tb_user where 操作员= + StatusBar1.Panels(4).text + Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc2.RecordSource = select * from tb_qxsz where 操作员= + StatusBar1.Panels(4).text + Adodc2.Refresh If Adodc2.Recordset.RecordCount 0 Then With Adodc2.Recordset Main.zjyj.Enabled = .Fields(追加押金) Main.ZSDJ.Enabled = .Fields(住宿登记) Main.tf.Enabled = .Fields(退宿登记) 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 = .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.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(住宿登记) 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 = .Fields(宿费提醒) End With End If End IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case DJ zsdj_Click 调入住宿登记 Case TF tf_Click 调入退宿结账 Case FT ftck_Click 调房态宿查询 Case CX zscx_Click 调入住宿查询 Case 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 CXDL 重新登录 Load main_Login main_Login.Show Case exit If MsgBox(确定退出该系统？, 4, 系统提示) = vbYes Then End End If End SelectEnd SubPrivate Sub sztx_Click() 设置主窗口图像Dim Str 定义变量CommonDialog1.Filter = BMP图片(*.BMP)|*.BMP|JPG图片(*.JPG)|*.JPG|GIF图片(*.GIF)|*.GIF|所有文件(*.*)|*.* 设置图片格式CommonDialog 控件CommonDialog 控件提供一组标准的操作对话框，进行诸如打开和保存文件，设置打印选项，以及选择颜色和字体等操作。CommonDialog1.ShowOpen 显示“打开”对话框If CommonDialog1.FileName Then 如果文件不为空Image2.Picture = LoadPicture(CommonDialog1.FileName) 加载图片Str = CommonDialog1.FileName 将图片名赋给变量 Open (App.Path & picture.txt) For Output As #1 打开一个txt文件 Print #1, Str 打印图片名 Close #1 关闭文件 CommonDialog1.FileName = 把空值赋给文件名Else CommonDialog1.FileName = 把空值赋给文件名End IfEnd SubPrivate Sub sjbf_Click() 调入数据备份main_sjbf.ShowMain.Enabled = FalseEnd 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.Show Main.Enabled = FalseEnd 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.Show Main.Enabled = FalseEnd SubPrivate Sub gzcx_Click() 调入挂账查询 Load 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() 调入住宿查询 Load main_zscx main_zscx.Show Main.Enabled = FalseEnd SubPrivate Sub tfcx_Click() 调入退宿查询 Load main_tfcx main_tfcx.Show Main.Enabled = FalseEnd SubPrivate Sub sftx_Click() 调入宿费提醒 Load main_xftx main_xftx.Show Main.Enabled = FalseEnd SubPrivate Sub ysbb_Click() 调入登记预收报表 main_ysbb.Show Main.Enabled = FalseEnd SubPrivate Sub xsbb_Click() 调入客房销售报表 main_xsbb.Show Main.Enabled = FalseEnd SubPrivate Sub xstj_Click() 调入客房销售统计 main_xstj.Show Main.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 = FalseEnd SubPrivate Sub qxsz_Click() 调入权限设置 main_qxsz.Show Main.Enabled = FalseEnd SubPrivate Sub DL_Click() 重新登录Load main_Loginmain_Login.ShowEnd Sub（二）初始化main_csh模块：Dim workarea(200), sql As String 定义字符串变量Dim rs 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_Unload(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 Then ProgressBar1.Visible = True ProgressBar 控件ProgressBar 控件通过从左到右用一些方块填充矩形来表示一个较长操作的进度。 ProgressBar1.Max = UBound(workarea) ProgressBar1.Value = ProgressBar1.Min For Counter = LBound(workarea) To UBound(workarea) LBound 函数返回一个 Long 型数据，其值为指定数组维可用的最小下标。 UBound 函数返回一个 Long 型数据，其值为指定的数组维可用的最大下标。 workarea(Counter) = initial value & Counter ProgressBar1.Value = Counter If Check1.Value = 1 Then sql = delete * from tb_djb Set rs = ESQL(sql) 调用模块中的自定义函数 sql = delete * from tb_djys Set rs = ESQL(sql) 调用模块中的自定义函数 End If If Check2.Value = 1 Then sql = delete * from tb_tfd Set rs = ESQL(sql) 调用模块中的自定义函数 End If If Check3.Value = 1 Then sql = delete * from tb_gzmx Set rs = ESQL(sql) 调用模块中的自定义函数 End If If Check5.Value = 1 Then Adodc1.RecordSource = select * from tb_kf where 房态 =入住 Adodc1.Refresh ADO Data 控件ADO Data 控件与内部 Data 控件以及 Remote Data控件 (RDC) 相似。ADO Data 控件使您能使用 Microsoft ActiveX Data Objects (ADO) 快速地创建一个到数据库的连接。 If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst For i = 1 To Adodc1.Recordset.RecordCount Adodc1.Recordset.Fields(房态) = 空房 Adodc1.Recordset.Update If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext Next i End If End If Next Counter End If MsgBox 初始化完成!, , 系统提示 ProgressBar1.Visible = False ProgressBar1.Value = ProgressBar1.MinEnd SubPrivate Sub comend_Click() Main.Enabled = True Unload MeEnd Sub（四）操作员设置main_czysz模块：Private Sub Form_Load() 自动识别数据库路径Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & DB_KFGL.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from tb_qxszAdodc1.RefreshAdodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & DB_KFGL.mdb;Persist Security Info=FalseAdodc2.RecordSource = select * from tb_userAdodc2.RefreshEnd SubPrivate Sub Form_Activate() Text1.SetFocus text1获得焦点End SubPrivate Sub Form_Unload(Cancel As Integer) Main.Enabled = TrueEnd 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 Text3.SetFocus 回车text3获得焦点End SubPrivate Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Command1.SetFocus 回车Command1获得焦点End SubPrivate Sub Command1_Click() 保存操作员及密码 If Text1.text Then If Text2.text And Text3.text And Text2.text = Text3.text Then adocon.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & DB_KFGL.mdb;Persist Security Info=False adoRs.Open select * from tb_user, adocon, adOpenKeyset, adLockOptimistic