VFP客房管理系统-论文(1).doc

VFP客房管理系统-论文VFP客房管理系统摘要【摘要】随着改革开放步伐的加快，我国服务业取得了巨大的发展。而宾馆是我国的改革开放过程中起步最早的、开拓发展最快、收效最为明显、市场化程度高的服务行业之一。而随着信息科技的发展，传统的管理模式逐渐被信息化及数字化的管理模式所取代，如何得用先进的管理手段，提 高宾馆的管理水平，已成为宾馆行业的当务之急。面对信息时代的机遇和挑战，得用科技手段提高企业管理无疑是一条行之有效的途径。客房管理系统的开发充分利用了信息技术提高了宾馆客房的管理水平、服务水平。系统实现了客房预定、住宿登记、宿费提醒、追加押金、调房登记、退房结帐、挂帐、查询统计等功能。其中宿费提醒可以在住宿费超过押金时预警，提示前台要客人补交押金，该功能可明显提高对住宿人员住宿的有效管理。将动态实时的住宿登记、客房调整、销售报表、追加押金等有机地联系在一起，对宾馆客房进行全方位的管理。【关键词】客房管理系统0 引言随着我国经济的迅速发展，人们的生活水平有了明显的提高，假日经济和旅游经济已经成为人们的消费热点。各地也把旅游也当作本地经济发展的重要支柱之一，从而促进了宾馆酒店业的发展。同时，随着宾馆酒店越来越多，人们的要求越来越高，宾馆酒店的竞争也越来越激烈。如何在激烈的竞争中生存发展，是每个宾馆酒店必须面临的问题。对宾馆经营状况起决定作用的是宾馆的服务管理水平。如何利用先进的管理手段，提高宾馆的管理水平，已成为宾馆酒店也发展的当务之急。客房管理系统的开发可以帮助系统管理员完成日常的客人入住及客人的退房信息的管理及查询等工作，大大提高了的工作效率。虽然计算机管理并不是宾馆管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对宾馆的服务管理提供有力的支持。1 需求分析根据该宾馆的具体情况，系统主要的功能包括： 前台管理：“客房预定”、“住宿登记”、“调房登记”、“追加押金”、“退房结帐”。 客房管理：“客房查询”、“房态查看”。 查询统计：“预定房查询”、“住宿查询”、“退宿查询”、“宿费提醒”。 挂帐管理：“挂帐管理”、“客人结帐”。 基础信息设置：“客房信息”、“客房类型信息”、“员工信息”、“挂帐单位信息”。 系统初始化：“本单位定义”、“业务部门定义”、“操作员管理”、“权限设置”。系统维护：“系统初始化”、“数据备份”、“数据恢复”。2 总体设计2.1 项目规划客房管理系统主要是针对中小型的宾馆、酒店开发的客房管理系统，系统由前台管理、客房管理、查询统计、挂帐管理、基础信息设置、系统初始化、系统维护和帮助等几个功能模块组成，规划系统功能模块如下：q 前台管理前台管理：客房预定、住宿登记、调房登记、追加押金、退宿结帐和退出。q 客房管理客房管理：客房查询和房态查看。q 查询统计查询统计：预定房查询、住宿查询、退宿查询、宿费提醒。q 挂帐管理挂帐管理：挂帐查询和客人结帐。q 基础信息设置基础信息设置：客房信息、客房类型信息、员工信息和帐挂单位信息。q 系统初始化系统初始化：本单位定义、业务部分定义、操作员管理和权限设置。q 系统维护系统维护：系统初始化、数据备份和数据恢复。q 帮助帮助：帮助和关于本软件2部分。2.2 系统功能结构本系统共分7大部分、24个完整的功能模块。系统结构图如图1所示。 图1 客房管理系统结构图2.3 设计目标本系统主要是针对中小型的宾馆、酒店开发的的客房管理系统，主要实现可以下目标：q 界面设计美观友好。q 操作员可以随时修改自己的口令，并且不同的操作员设置不同的操作权限，以增强系统的安全性。q 数据保密性强，为每个用户设置相应的权限级别。q 信息查询灵活、方便、快捷，数据存储安全可靠。q 能够实现数据备份和数据恢复，保证数据安全。q 系统运行稳定，安全可靠。3 系统设计3.1 开发及运行环境系统开发平台：Microsoft Visual FoxPro 6.0。运行平台：Windows XP/ Windows 2000/ Windows 2003。分辨率：最佳效果1024768像素2 数据库设计。1数据库概要说明数据库在一个管理系统中占居非常重要的地位，数据库结构设计的好坏将直接影响系统的效率和实现的效果。本系统采用的是Visual FoxPro自带的数据库，数据库文件名为Roommanage。2主要数据表的结构数据库中的数据表请参见附录B。4 主要功能模块设计4.1 程序主界面的设计程序启动后，在系统登录界面验证操作员密码后，将进入主程序界面。通过主程序界面可以执行相应权限的操作，并且通过选择主界面的菜单，来调用相应程序并进行相应操作。主程序界面如图2所示。 QQ3249144图2 程序主界面1表单设计（1）创建一个标准项目，名称为客房管理系统，在该项目中添加一个新表单，名称为Fdesktop。（2）在表单中插入名称为Vcxmain的ToolBar类，在类中添加Command控件、Image控件。2代码设计在“客房预定”按钮的Click事件中添加以下代码：VFP客房管理系统 do form kfglformkfyd在“住宿登记”按钮的Click事件中添加以下代码：do form kfglformzsdj在“退宿结帐”按钮的Click事件中添加以下代码：do form kfglformtsjz在“住宿查询”按钮的Click事件中添加以下代码：do form kfglformzsquery在“客房查询”按钮的Click事件中添加以下代码：do form kfglformkfquery在“房态查看”按钮的Click事件中添加以下代码：do form kfglformfangtaiquery在“宿费提醒”按钮的Click事件中添加以下代码：do form kfglformsftx在“客房信息”按钮的Click事件中添加以下代码：do form kfglformkfmanage根据用户的使用权限，设置按钮是否有效。在vcxmain1类的Init事件中添加以下代码：if purview4 or pqtgl=.f. this.parent.vcxmain1.kfyd.enabled=.f. this.parent.vcxmain1.zsdj.enabled=.f. this.parent.vcxmain1.tsjz.enabled=.f.else this.parent.vcxmain1.kfyd.enabled=.t. this.parent.vcxmain1.zsdj.enabled=.t. this.parent.vcxmain1.tsjz.enabled=.t.endifif purview4 OR pcxtj=.f. this.parent.vcxmain1.zscx.enabled=.f. this.parent.vcxmain1.sftx.enabled=.f.else this.parent.vcxmain1.zscx.enabled=.t. this.parent.vcxmain1.sftx.enabled=.t.endifif purview4 OR pkfgl=.f. this.parent.vcxmain1.kfcx.enabled=.f. this.parent.vcxmain1.ftck.enabled=.f. else this.parent.vcxmain1.kfcx.enabled=.t. this.parent.vcxmain1.ftck.enabled=.t.endifif purview4 OR pjcinfo=.f. this.parent.vcxmain1.kfinfo.enabled=.f.else this.parent.vcxmain1.kfinfo.enabled=.t.endif在 vcxmain1类的“退出”按钮的Click事件中添加以下代码：quit4.2 系统登录界面设计用户进入系统前，必须通过系统登录进入主程序界面，系统登录界面主要用于确认用户的身份及使用权限，并且可对系统信息起到保密作用。系统登录界面如图3所示。 图3 系统登录界面运行结果1表单设计（1）在客房管理系统项目中，添加一个新表单，名称为Admin。（2）在表单中添加Combo控件、Text控件、Label控件、Command控件、Image控件。（3）重要控件属性如表1所示。表1 重要控件的重要属性及值控件名属性值Combo1RowSourceRowSourceTypetabpurview.操作员姓名6-字段Text1PasswordChar*2代码设计定义全局变量cn，manager，cn存放输入操作员或密码的次数，当cn大于3时，将自动退出系统。manager存放操作员姓名，在系统中应用到操作员姓名时，系统自动添加。在表单的Init事件中添加以下代码：public cn ,manager &定义全局变量cn=0 &给全局变量赋初值在表单的Resize事件中添加根据用户选择操作员所拥有的权限级别为全局变量赋值的代码。purview=val(alltrim(tabpurview.权限级别)pqtgl=tabpurview.前台管理pkfgl=tabpurview.客房管理pcxtj=tabpurview.查询统计pgzgl=tabpurview.挂帐管理pjcinfo=tabpurview.基础信息设置psyscsh=tabpurview.系统初始化psyswh=tabpurview.系统维护在“确定”按钮的Click事件中添加以下代码实现判断操作员和密码是否正确的功能。如果操作员或密码不正确，将提示重新输入，三次后仍不正确，系统将自动退出。public manager &定义全局变量manager=alltrim(bo1.value)use kfgldatabasetabpurview &打开数据表cname=alltrim(thisform.Combo1.value)ppassword=alltrim(thisform.text1.value)set order to 操作员姓名 &指定操作员姓名为控制索引if empty(操作员姓名) thisform.resize &执行表单的Resize事件 manager=alltrim(bo1.displayvalue) store .t.to pqtgl,pkfgl,pcxtj,pgzgl,pjcinfo,psyscsh,psyswh do form formfdesktop &调入表单 thisform.releaseelse seek cname &快速查询 set exact on &设置字符精确比较if alltrim(tabpurview.操作员姓名)!=cname cn=cn+1 cMessagetitle=系统登录cMessagetext=操作员错误，请重新输入！ nDialogtype=4+32nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)do case case nanswer=6 &选择“是”时的操作 bo1.value= bo1.setfocus case nanswer=7 &选择“否”时的操作messagebox(不要乱来！,48, 系统登录)thisform.release &释放表单endcaseif cn=3thisform.releaseendifelseif alltrim(tabpurview.密码)!=ppasswordcn=cn+1cmessagetitle=系统登录cmessagetext=密码错误，请重新输入！ndialogtype=4+32nanswer=messagebox(cmessagetext,ndialogtype,cmessagetitle)do case case nanswer=6 &当用户单击“是”按钮 thisform.text1.value= thisform.text1.setfocus case nanswer=7 messagebox(不要乱来！,48, 系统登录) thisform.release endcase if cn=3 thisform.release endif else thisform.resize &执行表单的Resize事件 manager=alltrim(bo1.displayvalue) do form formfdesktop thisform.release endif endifendifset exact off &设置字符非精确比