计算机信息管理专业毕业论文--娱乐休闲型酒店管理信息系统设计（开题报告 源代码）

计算机信息管理专业毕业论文娱乐休闲型酒店管理信息系统设计（开题报告源代码）开题报告综述计算机在旅游餐饮和娱乐休闲行业的应用现已十分普遍但相应的管理信息软件却不象财会软件那样成熟稳定和规范为大众所知晓在这很大程度上是由于使用主体日新月异的经营方式和多变的运行模式所造成的无论是业内人士还是计算机系统开发者都难免被这类行业发展变化之快所困扰在计算机业务管理信息系统的建设和选择上目的不太明确盲目照搬国外的大型软件花钱不少但效果不好临时拼凑一些软件模块勉强使用不足之处用手工作业来祢补总之都没有充分发挥出高新技术在降低运营成本提高管理水平和综合经济效益中的积极作用实际上该行业面向市场在竞争中不断变化的特点已经决定了其管理信息系统软件是一个与管理对象密切相关的有机组成部分需要经过认真的和长期的调查分析并以次为基础去定制去磨合在设计和开发的进程中寻找规律以逐步完善因此其系统开发建设本身所遇到的问题和解决问题的办法也体现了一个比较复杂的管理信息系统的开发特点二研究方向随着改革开放的步伐人民生活水平得到了极大的提高人们对服务业的需求也越来越高特别是对娱乐休闲型酒店的娱乐方式要求很高为此娱乐休闲型酒店也采取了很多方式进行改革加快步伐与西方的娱乐休闲型酒店接轨进入二十一世纪信息管理系统在各行各业取得了突飞猛进的发展如银行、车辆运输、学校、酒店等等开发娱乐休闲型酒店的目的是打破以前的管理方式实现全自动化办公管理方式在系统开发的全过程始终要采取用户至上的观点一切从用户利益考虑在加强调查研究和系统分析的基础上通过分步骤的不断反馈的讨论式方法确定出新系统的最佳方按各阶段可在局部上使用结构化模块化的方法严格按照有效阶段进行开发具体手段上尽量采用面向对象的开发形式使形成的应用软件模块具有很强的独立性适应性和扩展性实现方法及预期目标在针对实际系统进行关系定义和逻辑设计过程中我们发现采用移植的办法虽然在模块设计阶段进展较快但后来就会被两类不同运行模式中的复杂关系所纠缠而影响了开发进度甚至会造成大面积返工相反按照娱乐休闲型酒店的实际业务流程重新进行系统设计到开发后期就会发现这种淡化了住宿功能而以洗浴服务为主线的接待和消费方式还有一些规律性系统的设计开发过程采用了快速原形法结构化方法和讨论法相结合的混合方式鉴于这类新酒店的应用需求是不规范的和分批提出的系统分析的深度和广度只能在开发过程中逐步增加和完善所以在开发初期一般无法完整的确定其总体设计方按为此我们从用户对应用系统的粗略描述开始现在计算机上搭建起一个简单的应用模型并以次模型为基准根据用户的意见和要求对系统进一步细化通过不断的建模演示交流和讨论使系统一步步地接近实际在开发后期开发人员同用户已经有了充分的沟通因此在一些后台模块的开发上也遵循了结构化的生命周期法在程序设计方式上主要是利用了一些高效率的面向对象的开发工具通过这些工具对快速原形法和讨论法实施有效的支撑进一步提高了系统的易扩展性和灵活性本系统采用网络数据库程序的开发方法前端开发工具采用MICROSOFT公司的专用数据库应用程序开发工具VISIUALBASIC60版本后端的数据库采用微软公司的SQLSERVER2000版本本系统开发的重点有1数据库的开发COM的开发是本系统开发的难点弄清管理信息系统的功能模块了解功能模块之间的关联和次序是关键3通过各程序的模块直接控制数据库的信息最终实现娱乐休闲型酒店管理系统的应用目标四系统的开发进度具体安排由于时间有限具体工作安排如下第13周完成课题调研开题报告及系统开发第14周完成总体方案设计数据库设计第15周完成模块设计输入输出设计第16周完成具体实现COMSERVER中创建数据库的连接3程序的开发第17周完成系统各模块的测试修改及验收系统同时上交毕业论文五参考文献信息系统开发教程第三辑出版社清华大学出版社作者张基温信息系统开发教程第四辑出版社清华大学出版社作者张基温SQLSERVER70设计实务出版社人民邮电出版社作者施威铭VB程序设计教程第二版出版社电子工业出版社作者刘瑞新指导老师监督老师签署意见并签字签署意见并签字领导小组审查意见审查人签字年月日程序设计打开VB程序出现VB主界面单击窗体下的FRMLOGIN控件单击运行出现一个登录界面请输入用户名称和用户密码双击确定按钮代码如下OPTIONEXPLICITPUBLICLOGINCOUNTASINTEGER定义此变量的目的是为了判断登录的次数PRIVATESUBCMDOK_CLICKIFLOGINCOUNT3THENWITHDBCOMMANDSETACTIVECONNECTIONDBCONNCOMMANDTYPEADCMDTEXTCOMMANDTEXT“SELECTUSERNAMEUSERPASSWORDFROMHOTELLOGINWHEREUSERNAME“TXTUERSNAMETEXT“SETDBTEMPSETEXECUTEENDWITHIFDBTEMPSETEOFANDDBTEMPSETBOFTHENMSGBOX“用户不存在请重新输入用户ID“VBOKONLYFRMLOGINTXTUERSNAMETEXT“FRMLOGINTXTUERSNAMESETFOCUSELSEIFRTRIMLTRIMDBTEMPSETFIELDS1VALUETXTPASSWORDTEXTTHENMSGBOX“输入的该用户的密码错误请重新输入“VBOKONLYFRMLOGINTXTPASSWORDTEXT“FRMLOGINTXTPASSWORDSETFOCUSLOGINCOUNTLOGINCOUNT1ELSEUSERIDTXTUERSNAMETEXTLOGINSUCCEEDEDTRUEUNLOADMEENDIFENDIFELSEIFNOTAPPRUNTHENLOGINSUCCEEDEDFALSEUNLOADMEELSEUNLOADFRMMAINUNLOADMEENDIFENDIFENDSUBPRIVATESUBCMDPASSWORK_CLICKIFNOTAPPRUNTHENLOGINSUCCEEDEDFALSEUNLOADMEELSEUNLOADFRMMAINUNLOADMEENDENDIFENDSUBPRIVATESUBFORM_ACTIVATEFRMLOGINTXTUERSNAMESETFOCUSFRMLOGINTXTUERSNAMETEXT“FRMLOGINTXTPASSWORDTEXT“ENDSUBPRIVATESUBFORM_LOADONERRORGOTOPROERRFRMLOGINLEFT3900调整窗体的位置靠左面的距离FRMLOGINTOP3200调整窗体的位置靠顶部的距离CALLGET_TEXTWITHDBCONNIFSTATEADSTATECLOSEDTHENCLOSEENDIFENDWITHIFDBCONNISNOTHINGTHENENDIFDBCONNOPENEXITSUBPROERRMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUB此段程序的目的是当按回车键的时候光标自动跳入TXTPASSWORDTEXT中PRIVATESUBTXTUERSNAME_KEYDOWNKEYCODEASINTEGERSHIFTASINTEGERIFKEYCODE13THENFRMLOGINTXTPASSWORDSETFOCUSENDIFENDSUB此段程序目的是当按回车键的时候光标自动跳入到确定按扭上准备开始验证输入的用户名称和用户密码PRIVATESUBTXTPASSWORD_KEYDOWNKEYCODEASINTEGERSHIFTASINTEGERIFKEYCODE13THENCMDOKSETFOCUSENDIFENDSUB进入主界面主界面代码如下PRIVATESUBABOUTSYSTEM_CLICKFRMABOUTSYSSHOWVBMODALENDSUBPRIVATESUBABOUTSYSTEM_CLICKFRMABOUTSYSSHOWVBMODALENDSUBPRIVATESUBBACKRESTORE_CLICKFRMBAKRESSHOWVBMODALENDSUBPRIVATESUBCLEARBKG_CLICKSETCTRLMACHINELVPICTURENOTHINGENDSUBPRIVATESUBEXITSYSTEM_CLICKFRMEXITSYSSHOWVBMODALEXITSUBENDSUBPRIVATESUBFORM_LOADFRMMAINTOP0FRMMAINLEFT0ENDSUBPRIVATESUBROOMCONDITION_CLICKFRMDAYFLUXSHOWVBMODALENDSUBPRIVATESUBROOMDENGJIRUZHU_CLICKFRMDENGJISHOWVBMODALENDSUBPRIVATESUBROOMTYPEPRICE_CLICKFRMROOMPRICESHOWVBMODALENDSUBPRIVATESUBSETBKG_CLICKONERRORGOTOERRHANDLERWITHBMPOPENDLGCANCELERRORTRUEFLAGSCDLOFNHIDEREADONLYFILTER“所有图片“FILTERINDEX0ENDWITHBMPOPENDLGSHOWOPENCTRLMACHINELVPICTURELOADPICTUREBMPOPENDLGFILENAMEEXITSUBERRHANDLERIFERRNUMBER32755THENMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDIFENDSUBPRIVATESUBSETPASSWORD_CLICKFRMCHANGEPASSSHOWVBMODALENDSUBPRIVATESUBSYSLOGIN_CLICKFRMLOGINSHOWVBMODALENDSUBPRIVATESUBTIMER1_TIMERDIMSTRWEEKDAYASSTRINGONERRORGOTOERRPSELECTCASEWEEKDAYNOWCASE1STRWEEKDAY“星期日“CASE2STRWEEKDAY“星期一“CASE3STRWEEKDAY“星期二“CASE4STRWEEKDAY“星期三“CASE5STRWEEKDAY“星期四“CASE6STRWEEKDAY“星期五“CASE7STRWEEKDAY“星期六“ENDSELECTSCOM1TEXT“当前用户“CSTRUSERIDSCOM2TEXT“欢迎您使用娱乐休闲型酒店管理信息系统“SCOM3TEXTCSTRYEARNOW“年“CSTRMONTHNOW“月“CSTRDAYNOW“日“STRWEEKDAY“TIMEEXITSUBERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUBPRIVATESUBTOOLBAR1_BUTTONCLICKBYVALBUTTONASMSCOMCTLLIBBUTTON处理TOOLBAR功能ONERRORGOTOERRPSELECTCASEBUTTONKEYCASEIS“YHDL“FRMLOGINSHOWVBMODALCASEIS“YHGL“FRMUSERMANSHOWVBMODALCASEIS“YHMM“FRMCHANGEPASSSHOWVBMODALCASEIS“SHEZHIBACK“CALLSETBKG_CLICKCASEIS“MORENBACK“CALLCLEARBKG_CLICKCASEIS“BACKUPRESTOR“FRMBAKRESSHOWVBMODALCASEIS“KEFANGDJ“FRMDENGJISHOWVBMODALCASEIS“KEFANGCHAXUN“FRMDAYFLUXSHOWVBMODALCASEIS“FANGTYPECHAXUN“FRMROOMPRICESHOWVBMODALCASEIS“XIAOFEIMINGXI“FRMCOSTITEMSHOWVBMODALCASEIS“ABOUTSYSTEM“FRMABOUTSYSSHOWVBMODALCASEIS“QUITSYSTEM“FRMEXITSYSSHOWVBMODALENDSELECTEXITSUBERRPMSGBOXERRDESCRIPTIONVBOKONLY“系统提示“ENDSUBPRIVATESUBUSERMANAGE_CLICKFRMUSERMANSHOWVBMODALENDSUBPRIVATESUBXIAOFEIQUERY_CLICKFRMCOSTITEMSHOWVBMODALENDSUB单击系统管理的密码管理目的是对您的密码进行保护移防您的原始密码被别人知道后可以更改重新用一个新的密码来加以保护代码如下PRIVATESUBCMDCANCEL_CLICKUNLOADMEENDSUBPRIVATESUBCMDOK_CLICKONERRORGOTOERRPWITHDBCOMMANDCOMMANDTYPEADCMDTEXTCOMMANDTEXT“SELECTUSERPASSWORDFROMHOTELLOGINWHEREUSERNAME“USERID“SETDBTEMPSETEXECUTEENDWITHIFTEXT1TEXTLTRIMRTRIMDBTEMPSETFIELDS0VALUETHENIFTEXT2TEXTTEXT3TEXTTHENWITHDBCOMMANDCOMMANDTEXT“UPDATEHOTELLOGINSETUSERPASSWORD“TEXT2TEXT“WHEREUSERNAME“USERID“EXECUTEENDWITHUNLOADMEELSEMSGBOX“你两次输入的新密码不一样请重新输入“VBOKONLY“系统提示“TEXT2SETFOCUSTEXT2TEXT“TEXT3TEXT“ENDIFELSEMSGBOX“你输入的原始密码与该用户的登录密码不符请重新输入“VBOKONLY“系统提示“TEXT1TEXT“TEXT1SETFOCUSENDIFMSGBOX“密码修改成功“EXITSUBERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUBPRIVATESUBFORM_ACTIVATEONERRORGOTOERRPTEXT1SETFOCUSEXITSUBERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUBPRIVATESUBTEXT1_KEYDOWNKEYCODEASINTEGERSHIFTASINTEGERONERRORGOTOERRPIFKEYCODE13THENTEXT2SETFOCUSENDIFEXITSUBERRPENDSUBPRIVATESUBTEXT2_KEYDOWNKEYCODEASINTEGERSHIFTASINTEGERONERRORGOTOERRPIFKEYCODE13THENTEXT3SETFOCUSENDIFERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUBPRIVATESUBTEXT3_KEYDOWNKEYCODEASINTEGERSHIFTASINTEGERONERRORGOTOERRPIFKEYCODE13THENCMDOKSETFOCUSENDIFERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUB备份数据是相当重要的在电脑发生故障时原来的数据可能丢失但是您不要担心您已经备份了数据可以使原来的数据恢复数据备份恢复代码如下DIMMDBCOMMASNEWADODBCOMMANDDIMMDBSETASNEWADODBRECORDSETDIMMDBPARAASNEWADODBPARAMETERDIMSTRUSERIDASSTRINGDIMSTRDATEASSTRINGDIMFILENAMEASSTRINGDIMRETVALPRIVATESUBCOMMAND1_CLICKDIMRETVALASSTRINGONERRORGOTOERROPRETVALMSGBOX“您确定要进行数据备份吗“VBYESNOAPPTITLEIFRETVALVBYESTHENFILENAME“HOTELDBBAK“WITHDBCOMMANDCOMMANDTEXT“BACKUPDATABASEHOTELDBTODISKD“FILENAME“EXECUTEENDWITHMSGBOX“备份数据成功“VBOKONLYAPPTITLEENDIFEXITSUBERROPIFERRNUMBER32755THENMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDIFENDSUBPRIVATESUBCOMMAND2_CLICKONERRORGOTOERROPFILENAME“HOTELDBBAK“WITHDBCOMMANDCOMMANDTEXT“RESTOREDATABASEHOTELDBFROMDISKAPPPATH“FILENAME“EXECUTEENDWITHMSGBOX“恢复数据成功“VBOKONLYAPPTITLEEXITSUBERROPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUBPRIVATESUBCOMMAND3_CLICKUNLOADMEENDSUBPRIVATESUBFORM_LOADONERRORGOTOERRPSTRDATECSTRYEARNOWIFMONTHNOW10THENSTRDATESTRDATE“0“CSTRMONTHNOWELSESTRDATESTRDATECSTRMONTHNOWENDIFIFDAYNOW10THENSTRDATESTRDATE“0“CSTRDAYNOWELSESTRDATESTRDATECSTRDAYNOWENDIFEXITSUBERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUBPRIVATEFUNCTIONCHECKTABLEEXISTTBLNAMEASSTRINGASBOOLEANMDBCOMMPARAMETERS0VALUETBLNAMEMDBCOMMPARAMETERS1VALUE1SETMDBSETMDBCOMMEXECUTEIFMDBSETRETU1THENCHECKTABLEEXISTTRUEELSECHECKTABLEEXISTFALSEENDIFENDFUNCTION打开主界面的接待管理选择接待登记入住目的是对帐单号码主客姓名证件类型主客性别证件号码出生年月职业地址主客手牌号宾客类型男宾数量女宾数量可打几折房间总数鞋牌号码入店时间押金批准人预计离开时间已经付款代人付款磁卡卡号是否做到点提示操作员代码带水付款特别说明进行查询查询完毕后单击返回按钮回到主菜单代码如下PRIVATESUBCMMDEXIT_CLICKUNLOADMEENDSUBPRIVATESUBCOMMSAVE_CLICKDIMSTRSQLASSTRINGDIMSTRCONASSTRINGDIMSMEGASSTRINGDIMYHBILLASSTRINGDIMYHMASTERASSTRINGDIMYHSEXASSTRINGDIMYHCERTIFICATEASSTRINGDIMYHCERTIFY_CODEASSTRINGDIMYHBIRTHDAYASSTRINGDIMYHPHONEASSTRINGDIMYHADDRESSASSTRINGDIMYHUNITASSTRINGDIMYHMASTERCODEASSTRINGDIMYHGUESTTYPEASSTRINGDIMYHREBATEASSTRINGDIMYHGUESTSUMASSTRINGDIMYHMALEASSTRINGDIMYHFEMALEASSTRINGDIMYHSHOESASSTRINGDIMYHSTARTASSTRINGDIMYHWILLLEAVEASSTRINGDIMYHHOUSESUMASSTRINGDIMYHDEPOSITASSTRINGDIMYHCONFIRMPEOPLEASSTRINGDIMYHALREADYPAIDASSTRINGDIMYHREMARKASSTRINGDIMYHINPUTERASSTRINGDIMYHWARNINGASSTRINGDIMYHCARDIDASSTRINGDIMYHFOROTHERASSTRINGDIMYHFORWHOSEASSTRINGONERRORGOTOERRPYHBILLTRIMTXTBILLTEXTYHMASTERTRIMTXTNAMETEXTYHSEXTRIMCOMSEXTEXTYHCERTIFICATETRIMCOMZHENJIANTEXTYHCERTIFY_CODETRIMTXTZHENJIANCODETEXTYHBIRTHDAYTRIMTXTBIRTHDAYTEXTYHPHONETRIMTXTPHONETEXTYHADDRESSTRIMTXTADDRESSTEXTYHUNITTRIMCOMZHIYETEXTYHMASTERCODETRIMTXTHANDSCODETEXTYHGUESTTYPETRIMCOMLEIXINGTEXTYHREBATETRIMTXTZHEKOUTEXTYHGUESTSUMTRIMTXTSUMCOUNTTEXTYHMALETRIMTXTMANSHULIANGTEXTYHFEMALETRIMTXTWOMENSHULIANGTEXTYHSHOESTRIMTXTSHOECODETEXTYHSTARTTRIMTXTRUZHUTIMETEXTYHWILLLEAVETRIMTXTLEAVETIMETEXTYHHOUSESUMTRIMTXTROOMCOUNTTEXTYHDEPOSITTRIMTXTYAJINTEXTYHCONFIRMPEOPLETRIMTXTPIZHUNRENTEXTYHALREADYPAIDTRIMTXTYIJINGKUANTEXTYHREMARKTRIMTXTSPECIALTEXTYHINPUTERTRIMTXTCAOZUOYUANTEXTYHWARNINGTRIMCOMPOINTTEXTYHCARDIDTRIMTXTCIKACODETEXTYHFOROTHERTRIMTXTDAIRENFUTEXTYHFORWHOSETRIMTXTDAIWHOFUTEXTIFTRIMTXTBILLTEXT“THENSMEG“帐单号码“SMEGSMEG“不能为空“MSGBOXSMEGVBOKONLYVBEXCLAMATION“警告“TXTBILLSETFOCUSEXITSUBENDIFIFLENTXTBILLTEXT6THENSMEG“你的帐单号码大于六位了请重新输入“MSGBOXSMEGVBOKONLYVBEXCLAMATION“警告“TXTBILLSETFOCUSTXTBILLTEXT“EXITSUBENDIFIFTRIMTXTNAMETEXT“THENSMEG“主客姓名“SMEGSMEG“不能为空“MSGBOXSMEGVBOKONLYVBEXCLAMATION“警告“TXTNAMESETFOCUSEXITSUBENDIFWITHDBCOMMANDCOMMANDTYPEADCMDTEXTCOMMANDTEXT“INSERTINTOBILLBILLMASTERSEXCERTIFICATECERTIFY_CODEBIRTHDAYPHONEADDRESSUNITMASTERCODEGUESTTYPEREBATEGUESTSUMMALEFEMALESHOESSTARTWILLLEAVEHOUSESUMDEPOSITCONFIRMPEOPLEALREADYPAIDREMARKINPUTERWARNINGCARDIDFOROTHERFORWHOSESETDBTEMPSETEXECUTESMEG“你的输入信息已经保存成功“MSGBOXSMEGVBOKONLYVBEXCLAMATION“提示“ENDWITHERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUBPRIVATESUBFORM_LOADONERRORGOTOERRPFRMDENGJITOP1400FRMDENGJILEFT2000COMZHENJIANADDITEM“身份证“COMZHENJIANADDITEM“工作证“COMZHENJIANADDITEM“学生证“COMZHENJIANADDITEM“警官证“COMZHENJIANADDITEM“驾驶证“COMZHENJIANADDITEM“居住证“COMZHIYEADDITEM“公务员“COMZHIYEADDITEM“学生“COMZHIYEADDITEM“工人“COMZHIYEADDITEM“教师“COMZHIYEADDITEM“农民“COMZHIYEADDITEM“军人“COMZHIYEADDITEM“警察“COMLEIXINGADDITEM“团体“COMLEIXINGADDITEM“个人“COMSEXADDITEM“男“COMSEXADDITEM“女“COMPOINTADDITEM“是“COMPOINTADDITEM“否“ERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUB打开主界面的客房管理选择客房信息查询目的就是对房间的编号房间的类型楼层预定情况就行查询选中房间编号单击查询界面会出现相关的数据依次类推最后单击退出按钮回到主界面客房信息查询代码如下PRIVATESUBCOMMANDFRESH_CLICKCALLCOMMANDQUERY_CLICKENDSUBPRIVATESUBCOMMANDQUERY_CLICKDIMSTRSQLASSTRINGDIMSTRCONASSTRINGDIMIASINTEGERDIMBIANHAOASSTRINGDIMLOUCHENGASSTRINGDIMROOMLEIXINGASSTRINGDIMORDERCONDITIONASSTRINGONERRORGOTOERRPXSHEETCLEARXSHEETREFRESHCALLBUILDTITLEIFROOMBIANHAOVALUETRUETHENBIANHAOTRIMPOSCBOTEXTSTRSQL“SELECTROOMCODEROOMTYPEFLOORPHONEROOMSTUTUSRESERVEDRESERVETIMEFREETIMEREMARKSELECTEDCLEANEDFROMROOMSTATEWHEREROOMCODE“BIANHAO“ENDIFIFCHECKFLOORVALUETRUETHENLOUCHENGMIDTRIMCOMBOFLOORTEXT11STRSQL“SELECTROOMCODEROOMTYPEFLOORPHONEROOMSTUTUSRESERVEDRESERVETIMEFREETIMEREMARKSELECTEDCLEANEFROMROOMSTATEWHEREFLOOR“LOUCHENG“ENDIFIFCHECKROOMSTATUSVALUETRUETHENROOMLEIXINGTRIMPRINTCBOTEXTSTRSQL“SELECTROOMCODEROOMTYPEFLOORPHONEROOMSTUTUSRESERVEDRESERVETIMEFREETIMEREMARKSELECTEDCLEANEFROMROOMSTATEWHEREROOMTYPE“ROOMLEIXING“ENDIFIFCHECKORDERVALUETRUETHENORDERCONDITIONTRIMCOMBOORDERTEXTSTRSQL“SELECTROOMCODEROOMTYPEFLOORPHONEROOMSTUTUSRESERVEDRESERVETIMEFREETIMEREMARKSELECTEDCLEANEFROMROOMSTATEWHERERESERVED“ORDERCONDITION“ENDIFWITHDBCOMMANDCOMMANDTEXTSTRSQLSETDBTEMPSETEXECUTEENDWITHWITHXSHEETROWS1DOWHILENOTDBTEMPSETEOFROWSROWS1FORI1TODBTEMCOMTTEXTMATRIXROWS1I1DBTEMPSETFIELDSI1NEXTIDBTEMPSETMOVENEXTLOOPENDWITHEXITSUBERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUBPRIVATESUBCOMMANDEXIT_CLICKUNLOADMEENDSUBPRIVATESUBFORM_LOADONERRORGOTOERRPCALLBUILDTITLE建立表头WITHDBCOMMANDCOMMANDTYPEADCMDTEXTCOMMANDTEXT“SELECTROOMCODEFROMROOMSTATE“SETDBTEMPSETEXECUTEENDWITHIFNOTDBTEMPSETEOFANDDBTEMPSETBOFTHENPOSCBOCLEARWITHDBTEMPSETMOVEFIRSTWHILENOTEOFWITHPOSCBOADDITEMLTRIMRTRIMDBTEMPSETROOMCODEENDWITHMOVENEXTWENDENDWITHPOSCBOLISTINDEX0ELSEMSGBOX“没有按此编号的客房“VBOKONLYAPPTITLEENDIFWITHDBCOMMANDCOMMANDTEXT“SELECTROOMTYPEFROMROOMSTATE“SETDBTEMPSETEXECUTEENDWITHIFNOTDBTEMPSETEOFANDDBTEMPSETBOFTHENPRINTCBOCLEARDBTEMPSETMOVEFIRSTWHILENOTDBTEMPSETEOFPRINTCBOADDITEMLTRIMRTRIMDBTEMPSETROOMTYPEDBTEMPSETMOVENEXTWENDPRINTCBOLISTINDEX0ELSEMSGBOX“没有此种客房类型“VBOKONLYAPPTITLEENDIFWITHDBCOMMANDCOMMANDTEXT“SELECTFLOORFROMROOMSTATE“SETDBTEMPSETEXECUTEENDWITHIFNOTDBTEMPSETEOFANDDBTEMPSETBOFTHENCOMBOFLOORCLEARDBTEMPSETMOVEFIRSTWHILENOTDBTEMPSETEOFCOMBOFLOORADDITEMLTRIMRTRIMDBTEMPSETFLOOR“楼“DBTEMPSETMOVENEXTWENDCOMBOFLOORLISTINDEX0ELSEMSGBOX“此楼没有客房“VBOKONLYAPPTITLEENDIFWITHDBCOMMANDCOMMANDTEXT“SELECTRESERVEDFROMROOMSTATE“SETDBTEMPSETEXECUTEENDWITHIFNOTDBTEMPSETEOFANDDBTEMPSETBOFTHENCOMBOORDERCLEARDBTEMPSETMOVEFIRSTWHILENOTDBTEMPSETEOFCOMBOORDERADDITEMLTRIMRTRIMDBTEMPSETRESERVEDDBTEMPSETMOVENEXTWENDCOMBOORDERLISTINDEX0ELSEMSGBOX“是否已经预订“VBOKONLYAPPTITLEENDIFEXITSUBERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUBPRIVATESUBBUILDTITLEONERRORGOTOERRPWITHXSHEETCELLALIGNMENTFLEXALIGNCENTERCENTERCOLS11TEXTMATRIX00“房间号码“TEXTMATRIX01“房间类型“TEXTMATRIX02“所属楼层“TEXTMATRIX03“电话分机“TEXTMATRIX04“目前状态“TEXTMATRIX05“是否预订“TEXTMATRIX06“预订时间“TEXTMATRIX07“空房时间“TEXTMATRIX08“备注“TEXTMATRIX09“已经选中“TEXTMATRIX010“已经清扫“CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH0900CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH1800CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH21000CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH31000CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH41000CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH51000CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH61500CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH71200CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH81300CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH91100CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH101200ENDWITHERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUBPRIVATESUBFRAME2_DRAGDROPSOURCEASCONTROLXASSINGLEYASSINGLEENDSUB打开主界面的客房管理选择房型房价查询目的就是对房型名称普通价格查询床位数来进行查询最后单击退出回到主界面客房类型及客房价格查询代码如下PRIVATESUBCOMMANDEXIT_CLICKUNLOADMEENDSUBPRIVATESUBCOMMANDFRESH_CLICKCALLCOMMANDQUERY_CLICKENDSUBPRIVATESUBMAKETITLEONERRORGOTOERRPWITHXSHEET2CELLALIGNMENTFLEXALIGNCENTERCENTERCOLS8TEXTMATRIX00“房型代码“TEXTMATRIX01“房型名称“TEXTMATRIX02“详细说明“TEXTMATRIX03“普通价格“TEXTMATRIX04“长包价格“TEXTMATRIX05“优惠价格“TEXTMATRIX06“钟点价格“TEXTMATRIX07“床位数CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH0900CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH11800CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH23000CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH31000CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH41000CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH51000CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH61500CELLALIGNMENTFLEXALIGNCENTERCENTERCOLWIDTH71200ENDWITHERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUBPRIVATESUBCOMMANDQUERY_CLICKDIMSTRSQLOLDASSTRINGDIMSTRCONOLDASSTRINGDIMIASINTEGERDIMROOMLEITYPEASSTRINGDIMROOMPRICEASSTRINGDIMROOMBEDSUMASSTRINGONERRORGOTOERRPXSHEET2CLEARXSHEET2REFRESHCALLMAKETITLEIFROOMLEIXINGVALUETRUETHENROOMLEITYPETRIMLEIXINGCBOTEXTSTRSQLOLD“SELECTTYPEORDERROOMTYPEEXPLAINPRICE1PRICE2PRICE3PRICE4BED_NUMFROMSHAPAROOMWHEREROOMTYPE“ROOMLEITYPE“ENDIFIFPRICEQUERYVALUETRUETHENROOMPRICETRIMCOMMONPRICECBOTEXTSTRSQLOLD“SELECTTYPEORDERROOMTYPEEXPLAINPRICE1PRICE2PRICE3PRICE4BED_NUMFROMSHAPAROOMWHEREPRICE1“ROOMPRICE“ENDIFIFBEDCOUNTVALUETRUETHENROOMBEDSUMTRIMBEDCOUNTCOMTEXTSTRSQLOLD“SELECTTYPEORDERROOMTYPEEXPLAINPRICE1PRICE2PRICE3PRICE4BED_NUMFROMSHAPAROOMWHEREBED_NUM“ROOMBEDSUM“ENDIFWITHDBCOMMANDCOMMANDTEXTSTRSQLOLDSETDBTEMPSETEXECUTEENDWITHWITHXSHEET2ROWS1DOWHILENOTDBTEMPSETEOFROWSROWS1FORI1TODBTEMCOMTTEXTMATRIXROWS1I1DBTEMPSETFIELDSI1NEXTIDBTEMPSETMOVENEXTLOOPENDWITHEXITSUBERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUBPRIVATESUBFORM_LOADONERRORGOTOERRPFRMROOMPRICETOP1400FRMROOMPRICELEFT2000CALLMAKETITLE建立表头WITHDBCOMMANDCOMMANDTYPEADCMDTEXTCOMMANDTEXT“SELECTROOMTYPEFROMSHAPAROOM“SETDBTEMPSETEXECUTEENDWITHIFNOTDBTEMPSETEOFANDDBTEMPSETBOFTHENLEIXINGCBOCLEARWITHDBTEMPSETMOVEFIRSTWHILENOTEOFWITHLEIXINGCBOADDITEMLTRIMRTRIMDBTEMPSETROOMTYPEENDWITHMOVENEXTWENDENDWITHLEIXINGCBOLISTINDEX0ELSEMSGBOX“没有此种房间类型“VBOKONLYAPPTITLEENDIFWITHDBCOMMANDCOMMANDTEXT“SELECTPRICE1FROMSHAPAROOM“SETDBTEMPSETEXECUTEENDWITHIFNOTDBTEMPSETEOFANDDBTEMPSETBOFTHENCOMMONPRICECBOCLEARDBTEMPSETMOVEFIRSTWHILENOTDBTEMPSETEOFCOMMONPRICECBOADDITEMLTRIMRTRIMDBTEMPSETPRICE1DBTEMPSETMOVENEXTWENDCOMMONPRICECBOLISTINDEX0ELSEMSGBOX“没有此种价格的房间“VBOKONLYAPPTITLEENDIFWITHDBCOMMANDCOMMANDTEXT“SELECTBED_NUMFROMSHAPAROOM“SETDBTEMPSETEXECUTEENDWITHIFNOTDBTEMPSETEOFANDDBTEMPSETBOFTHENBEDCOUNTCOMCLEARDBTEMPSETMOVEFIRSTWHILENOTDBTEMPSETEOFBEDCOUNTCOMADDITEMLTRIMRTRIMDBTEMPSETBED_NUMDBTEMPSETMOVENEXTWENDBEDCOUNTCOMLISTINDEX0ELSEMSGBOX“没有此种床位数的房间“VBOKONLYAPPTITLEENDIFERRPMSGBOXERRDESCRIPTIONVBOKONLYAPPTITLEENDSUBPRIVATESUBFRAME2_DRAGDROPSOURCEASCONTROLXASSINGLEYASSINGLEENDSUB打开主界面的客房管理选择客人消费明细目的就是按账单号收牌号等进行查询单击查询出现相关的数据最后单击退出回到主界面客人消费明细查询代码如下PRIVATESUBCOMMANDEXIT_CLICKUNLOADMEENDSUBPRIVATESUBCOMMANDQUERY_CLICKDIMSTRSQLNEWASSTRINGDIMSTRCONNEWASSTRINGDIMIASINTEGERDIMZHANGDANMAASSTRINGDIMSHOUPAIMAASSTRINGONERRORGOTOERRPXSHEET3CLEARXSHEET3REFRESHCALLMADETITLEIFOPTIONZHANGDANVALUETRUETHENZHANGDANMATRIMCOMZHANGDANTEXTSTRSQLNEW“SELECTHANDSCODEBILLITEMIDITEMCODEITEMTYPEITEMNAMESPECUNITPRICENUMTOTALSUMINPUTWHEREINPUTERINPUTTIMEWAITERPAY_ATONCESTRIKEDFROMITEMTHINKWHEREBILL“ZHANGDANMA“ENDIFIFOPTIONSHOUPAIQUERYVALUETRUETHENSHOUPAIMATRIMCOMSHOUPAITEXTSTRSQLNEW“SELECTHANDSCODEBILLITEMIDITEMCODEITEMTYPEITEMNAMESPECUNITPRICENUMTOTALSUMINPUTWHEREINPUTERINPUTTIMEWAITERPAY_ATONCESTRIKEDFROMITEMTHINKWHEREHANDSCODE“SHOUPAIMA“ENDIFWITHDBCOMMANDCOMMANDTEXTSTRSQLNEWSETDBTEMPSETEXECUTEENDWITHWITHXSHEET3ROWS1DOWHILENOTDBTEMPSETEOFROWSROWS1FORI1TODBTEMCOMTTEXTMATRIXROWS1I1DBTEMPSETFIELDSI1NEXTIDBTEMPSETMOVENEXTLOOPENDWITHEXITSUBERRPMSGBOXER