宾馆管理信息系统(1)bgit.docx

《宾馆管理信息系统(1)bgit.docx》由会员分享，可在线阅读，更多相关《宾馆管理信息系统(1)bgit.docx（64页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、宾馆管理理信息系系统系统平台台：Wiindoows 20000数据库服服务器：MiccrossofttSQLL Seerveer 220000开发工具具：Viisuaal BBasiic 66.0系统开发发人员： 编写目目的宾馆在正正常的运运营中需需要对客客房资源源、顾客客信息、结结算信息息进行管管理，利利用宾馆馆管理信信息系统统及时了了解各个个环节中中信息的的变更，有有利于提提高管理理效率。系统功功能分析析 系统开开发的总总体任务务是实现现宾馆各各种信息息的系统统化、规规范化和和自动化化。主要完成成功能： 有关关客房标标准的制制定、标标准信息息的输入入，包括括标准编编号、标标准名称称、房间间

2、面积、床床位数量量、住房房单价、是是否有空空调、电电视机、电电话以及及单独卫卫生间等等。 客房房标准信信息的修修改、查查询等。 客房房基本信信息的输输入，包包括客房房编号、客客房类型型、客房房位置、客客房单价价、备注注等。 客房房基本信信息的查查询、修修改，包包括客房房编号、客客房类型型、客房房位置、客客房单价价、备注注等。 剩余余客房信信息的查查询等。 订房房信息的的输入，包包括客房房编号、客客房种类类、客房房位置、客客房单价价、顾客客姓名、顾顾客身份份证号码码、入住住日期、折折扣、备备注信息息等。 订房房信息的的修改和和查询，包包括客房房编号、客客房种类类、客房房位置、客客房单价价、顾客客

3、姓名、顾顾客身份份证号码码、入住住日期、折折扣、备备注信息息等。 结算算信息的的输入，包包括客房房编号、客客房种类类、位置置、客房房单价、顾顾客姓名名、顾客客身份证证号码、入入住日期期、折扣扣、结算算日期、备备注信息息等。 结算算信息的的修改和和查询，包包括客房房编号、客客房种类类、客房房位置、客客房单价价、顾客客姓名、顾顾客身份份证号码码、入住住日期、折折扣、结结日期、备备注信息息等。系统功功能模块块设计按结构化化程序设设计思想想，分析析得出如如下系统统功能模模块图宾馆管理信息系统结算信息管理订房信息管理客房信息管理系统管理结算信息查询结算信息修改结算信息添加订房信息查询订房信息修改订房信息

4、添加剩余客房信息查询设置客房信息设置客房标准密码管理用户管理客房信息查询客房信息修改客房信息添加客房标准修改客房标准添加 图系统功功能模块块图数据库库设计数据库设设计步骤骤： 数据库需需求分析析 数据库概概念结构构设计 数据库逻逻辑结构构设计数据库库需求分分析分析调查查有关宾宾馆管理理信息需需求的基基础上得得本系统统所处理理的数据据流程客房标准设置基本信息输入客房登记基本信息录入客房信息管理顾客登记订房信息管理订房信息管理结算信息输入结算信息管理客房信息返回图 宾宾馆管理理信息系系统数据据流程图图 针对对一般宾宾馆管理理信息系系统的需需求，通通过对宾宾馆管理理过程的的内容和和流程分分析，设设计

5、如下下面所示示的数据据项和数数据结构构： 客房标准准信息，包包括的数数据项有有：标准准编号、标标准名称称、房间间面积、床床位数量量、住房房单价、是是否有空空调、电电视、电电话、单单独卫生生间等。 客房信息息，包括括的数据据项有：客房编编号、客客房种类类、客房房位置、客客房单价价、备注注等。 订房信息息，包括括的数据据项有：订房编编号、客客房编号号、客房房种类、客客房位置置、客房房备注信信息、顾顾客姓名名、顾客客身份证证号码、入入住时间间、折扣扣、备注注等。 结算信息息，包括括的数据据项有：订房编编号、客客房编号号、客房房种类、客客房位置置、客房房备注信信息、顾顾客姓名名、顾客客身份证证号码、入

6、入住时间间、折扣扣、结算算时间、备备注等。数据库库概念结结构设计计 本系统统根据以以上的设设计规划划出的实实体有：客房标标准信息息实体、客客房信息息实体、订订房信息息实体、结结算信息息实体。各各个实体体具体的的描述-图如如下：客房标准信息实体标准编号标准名称床位数量客房单价客房标准准信息实实体-图客房信息实体客房标准客房编号客房位置客房单价客房信息息实体-图订房信息实体客房信息顾客信息折 扣入住时间订房信息息实体-图结算信息实体客房信息顾客信息结算时间结算金额结算信息息实体-图客房标准信息客房登记客房信息管理订 房订房信息管理结算信息管理客房结算实体之间间关系-图数据库库逻辑结结构设计计 首先

7、先将宾馆馆管理信信息系统统的数据据库概念念结构转转化为SSQL 20000数据据库系统统所支持持的实际际数据模模型，即即：数据据库的逻逻辑结构构。其各各个表格格的设计计结果如如下列名数据类型型可否为空空说明TypeeidVarccharrNOT NULLL标准编号号TypeenammeVarccharrNOT NULLL标准名称称AreaaNumeericcNULLL房间面积积BednnumNumeericcNULLL床位数量量HairrconndittionnVarccharrNULLL是否有空空调HtellephhoneeVarccharrNULLL是否有电电话Htelleviisioon

8、VarccharrNULLL是否有电电视HtoiilettVarccharrNULLL是否有单单独卫生生间PricceNumeericcNULLL单价Roommtyppe 客客房标准准信息表表列名数据类型型可否为空空说明roommNOVarccharrNOT NULLL客房编号号RoommtyppeVarccharrNOT NULLL客房种类类RoommpossitiionVarccharrNULLL客房位置置RoommpriiceNumeericcNULLL单价PutuupVarccharrNOT NULLL是否被预预定RoommmemmoTexttNULLL备注Roomms 客客房信息息表

9、列名数据类型型可否为空空说明Bookkno VarccharrNOT NULLL订房编号号CusttomnnameeVarccharrNOT NULLL 顾客姓名名CusttomIIDVarccharrNOT NULLL身份证号号码RoommnoVarccharrNOT NULLL客房编号号IndaateDateetimmeNULLL入住日期期DisccounntNumeericcNULLL折扣InmeenoTexttNULLL备注ChecckdaateDateetimmeNULLL结算日期期AmouuntNumeericcNULLL金额Bookkin 订房信信息表数据库库结构的的实现利用SQ

10、QL 220000数据库库系统中中的查询询分析实实现数据据库的逻逻辑结构构，其表表格如下下：创建系统统用户表表格 uuserr_Innfo CREEATEE TAABLEE ddbo.uuserr_Innfo11( useer_IIDchaar(10) COOLLAATE Chiinesse_PPRC_CI_AS NOTT NUULL, useer_PPWD ccharr (10) COOLLAATE Chiinesse_PPRC_CI_AS NULLL, useer_DDes ccharr(110) COLLLATTE CChinnesee_PRRC_CCI_AAS NNULLL ) ONN

11、 PPRIMMARYY创建客房房标准信信息表格格rooomttypee CRREATTE TTABLLE dboo.rooomtyype( tyypeiidchaar(10) COOLLAATE Chiinesse_PPRC_CI_AS NOTT NUULL, tyypennameeccharr(110) COLLLATTE CChinnesee_PRRC_CCI_AAS NNOT NULLL, arreanuumerric(5,0) NULLL, beednuumnummeriic(2,00) NNULLL, haairccondditiionchhar(2) COOLLAATE Chiin

12、esse_PPRC_CI_AS NULLL, htteleephoonechhar(2) COOLLAATE Chiinesse_PPRC_CI_AS NULLL, htteleevissionnccharr(22) CCOLLLATEE Chhineese_PRCC_CII_ASS NUULL, httoilletchhar(2) COOLLAATE Chiinesse_PPRC_CI_AS NULLL, prriceennumeericc(110,22)NUULL ) ONN PPRIMMARYY创建客房房信息表表格rroommsCREAATE TABBLE dbbo.rooomss( r

13、ooomNOOccharr(110) COLLLATTE CChinnesee_PRRC_CCI_AAS NNOT NULLL, rooomtyypechhar(100) CCOLLLATEE Chhineese_PRCC_CII_ASS NOOT NNULLL, rooompoosittionnccharr(220) COLLLATTE CChinnesee_PRRC_CCI_AAS NNULLL, rooomprriceennumeericc(110,22) NNULLL, puttupchhar(2) COOLLAATE Chiinesse_PPRC_CI_AS NOTT NUULL,

14、rooommeemoteext COOLLAATE Chiinesse_PPRC_CI_AS NULLL ) OON PRIIMARRY TEXXTIMMAGEE_ONN PPRIMMARYY创建订房房信息表表boookinnCREAATE TABBLE dbbo.boookiin( boooknooccharr(114) COLLLATTE CChinnesee_PRRC_CCI_AAS NNOT NULLL, cusstommnammechaar(10) COOLLAATE Chiinesse_PPRC_CI_AS NOTT NUULL, cusstommIDchhar(188) CCOL

15、LLATEE Chhineese_PRCC_CII_ASS NOOT NNULLL, rooomnooccharr(110) COLLLATTE CChinnesee_PRRC_CCI_AAS NNOT NULLL, inddateeddateetimme NULLL, disscouuntnuumerric(2,0) NULLL, inmmemoottextt CCOLLLATEE Chhineese_PRCC_CII_ASS NUULL, cheeckddateeddateetimme NULLL, ammmounntnummeriic(10,2) NULLL) ONN PPRIMMARY

16、Y TTEXTTIMAAGE_ON PRRIMAARY宾馆管管理信息息系统具具体程序序实现创建公公用模块块 Moodulle1.bass 添加加公共数数据操作作函数，用用以执行行各种SSQL语语句。添添加函数数ExeecutteSQQL，代代码如下下：Publlic Funnctiion ExeecutteSQQL(BByVaalSQQL AAs SStriing,MsggStrringg AssStrringg)_ As ADOODB.Reccorddsett 执行SSQL语语句，并并返回记记录集对对象Dim cnnn Ass ADDODBB.CoonneectiionDim rstt As

17、s ADDODBB.ReecorrdseetDim sTookenns() Ass Sttrinng异常处处理On EErroor GGoToo ExxecuuteSSQL_Errror用Spplitt函数产产生一个个包含各各个子串串的数组组sTokkenss=Spplitt(SQQL) SSet cnnn=NEEW AADODDB.CConnnecttionn打开连连接 ccnn.Opeen CConnnecttStrringg IIf IInSttr(“IINSEERT,DELLETEE,UPPDATTE”,UCaase$(sTTokeens(0) TThenn Cnnn.Exxecuut

18、e SQLL MsggStrringg=sTTokeens(0)&”quueryy suucceessfful” EElseeSet rstt=NEEW AADODDO.RRecoordsset rstt.Oppen Triim$(SQLL),ccnn,adOOpennKeyysett,addLocckOpptimmisttic rstt.MooveLLastt gett ReecorrdCoountt 返返回记录录集对象象 SSet ExeecutteSQQL=rrst MsggStrringg=”查查询到”&rstt.ReecorrdCoountt&”条条记录” Endd IffExecc

19、uteeSQLL_Exxit: SSet rstt=Noothiing SSet cnnn=Noothiing EExitt FuuncttionnExeccuteeSQLL_Errrorr: MMsgSStriing=”查询询错误:”&EErr.Desscriiptiion RResuume ExeecutteSQQL_EExittEnd FunnctiionPubllic Subb EnnterrToTTab(Keyyascc Ass Inntegger)判断是是否为回回车键If KKeyaasc=13 Theen Keyyascc用来保保存当前前按键 转转换成TTab键键 SeendKK

20、eyss”TTAB” EEnd IfEnd subb添加全全局变量量，用来来记录各各个窗口口的读写写状态，代代码如下下：Publlic flaagTeeditt Ass Boooleean 标标示是否否进入修修改的窗窗体Publlic flaagReeditt Ass BoooleeanPubllic flaagBeeditt Ass BoooleeanPubllic flaagCeeditt Ass BoooleeanPubllic ginntCmmodee Ass Inntegger Publlic ginntTmmodee Ass Inntegger记录是是添加还还是修改改状态，11为添

21、加加，2为为修改Publlic ginntRmmodee Ass InnteggerPubllic ginntBmmodee Ass Inntegger Publlic flaagSeeditt Ass Boooleean系统用用户管理理模块的的创建 用户管管理模块块主要实实现：用户登登陆。添加用用户。修改用用户 具体体客房标标准添加加代码：Privvatee Suub FFormm_Looad()载入窗窗体后，判判断所处处状态 DDim inttCouunt As Inttegeer DDim MsggTexxt AAs SStriing DDim i AAs IInteegerr IIf

22、gginttTmoode=1 TThenn 判判断是否否属于添添加状态态 MMe.CCapttionn=Mee.Caaptiion&”添加”For i=00 Too 3Combbo1(i).AdddIteem ”否” Coomboo1(ii).AAddIItemm ”是是”Combbo1(i).LisstInndexx=0 NNextt i EllseIIf gginttTmoode=2 TThenn判断是是否处于于修改状状态 SSet mrcc=ExxecuuteSSql(txttSQLL,MssgTeext) IIf mmrc.EOFF=faalsee Thhen WWithh mrrc

23、FFor inttCouunt=0 TTo 33 txttIteem(iintCCounnt)=.Fiieldds(iintCCounnt) NNextt inntCoountt txttIteem(44)=.Filledss(8) FFor i=00 Too 3 Commbo11(i).Adddittem”否” Commbo11(i).Adddittem”是”Combbo1(i).LisstInndexx=0 Neext i EEnd Witth ttxtIItemm(0).Ennablled=Fallse Endd Iff Mee.Caaptiion=Me.capptioon&”修改”En

24、d IfmblCChanng=FFalsse Endd SuubPrivvatee Suub ccmd_Cliick()用用户输入入内容完完毕后，单单击cmmdSaave按按钮触发发Cliick事事件Dim inttCouunt As Inttegeer Diim ssMegg Ass Sttrinng Diim MMsgTTextt Ass Sttrinng Foor iintCCounnt=00 Too 4 判断断是否输输入内容容If TTrimm(txxtIttem(inttCouunt)&”)=” Theen SSeleect Casse iintCCounnt Caase 0 sMe

25、eg=”标准编号” Caase 1 sMeeg=”标准名称” Casse 22 sMeeg=”房间面积” CCasee 3 sMeeg=”床位数量”Casee 4 sMeeg=”床位单价” EEnd Sellectt ssMegg=sMMeg&”不能能为空!” MMsgBBox sMeeg,vvbOkkOnlly+vvbExxclaamattionn,”警警告” ttxtIItemm(inntCoountt).SSetFFocuus EExitt Suub Endd iff Nexxt iintCCounnt 判断输输入内容容是否为为数字For inttCouunt=2 TTo 44 Iff

26、Noot IIsNuumerric(Triim(ttxtIItemm(inntCoountt) Thhen Seelecct CCasee inntCoountt CCasee 2 ssMegg=”房房间面积积” CCasee 3 sMeeg=”床位数量” CCasee 4 sMeeg=”床位单价” EEnd Sellectt ssMegg=sMMeg&”请输输入数字字!”MsgBBox sMeeg,vvbOKKOnlly+vvbExxclaamattionn,”警警告”txtIItemm(inntCoountt).SSeFoocussExitt Suub Ennd IIf Nexxt iin

27、tCCounnt If ginntTmmodee=1 Theen 判断是是否有相相同IDD记录txtSSQL=”seelecct*ffromm rooomttypee whheree tyypeiid_ =”&Triim(ttxtIItemm(0)&” SSet mrcc=ExxecuuteSSQL(txttSQLL,MssgTeext) If mrcc.EOOF=FFalsse TThenn MMsgBBox “已经经存在此此标准编编号的记记录!”,vbOOKOnnly+vbEExcllamaatioon,”警告” ttxtIItemm(0).SeetFoocuss EExitt Suub

28、Endd Iff Mrcc.Cllosee Endd Iff txttSQLL=”sseleect * ffromm rooomttypee whheree tyypeiid”&Triim(ttxtIItemm(0)&”andd tyypennamee=”&Triim(ttxtIItemm(1)&” Sett mrrc=EExeccuteeSQLL(txxtSQQL,MMsgTTextt) If mrcc.EOOF=FFalsse TThenn MssgBoox”已已经存在在相同客客房标准准的记录录!”,vbOOKOnnly+vbEExcllamaatioon,“警告” txxtIttem(1

29、).Settfoccus Exxit Subb Endd IfftxtSSQL=”deelette ffromm rooomttypee whheree tyypeiid=”&TTrimm(txxtIttem(0)&”删除已已有记录录Set mrcc=ExxecuuteSSQL(txttSQLL,MssgTeext) txttSQLL=”sseleect *frrom rooottyype”添加新记录Set mrcc=ExxecuuteSSQL(txttSQLL,MssgTeext) mrcc.AdddNeew Forr inntCoountt=0 To 3 mrrc.FFiellds(int

30、tCouunt)=Trrim(txttIteem(iintCCounnt) Nexxt iintCCounnt Forr inntCoountt=0 To 3 mrrc.FFiellds(inttCouunt+4)=Triim(CCombbo1(inttCouunt) Nexxt iintCCounnt mrcc.Fiieldds(88)=TTrimm(txxtIttem(4) mrcc.Uppdatte 更新数数据库mrc.Cloose if ginntTmmodee=1 Theen 判断是是否属于于添加状状态MsgBBox “添加加纪录成成功!”,vbOOKOnnly+vbEExcllam

31、ttionn,“添加记记录” Forr inntCoountt=0 To 4 txxtIttem(inttCouunt)=” 清除已已经输入入的内容容Nextt inntCoountt Forr inntCoountt=0 To 3 Coomboo1(iintCCounnt).LisstInndexx=0 Nexxt iintCCounnt mbllChaangee=Faalsee判断断是否打打开窗口口if fflaggTeddit Theen Unnloaad ffrmRRoommtyppe frrmRooomttypee.txxtSQQL=“sellectt *ffromm rooomtt

32、ypee” frrmRooomttypee.Shhow Endd Iff EllseIIf gginttTmoode=2 TThenn 判判断是否否处于修修改状态态 Unnloaad MMe Iff fllagTTediit TThenn UUnlooad frmmRooomtyype EnddIf frrmRooomttypee.txxtSQQL=”sseleect *frrom rooomtyype” frrmRooomttypee.Shhow Ennd IIf Endd SuubPrivvatee Suub ttxtIItemm_GootFoocuss(Inndexx Ass Innte

33、gger)文本本框获得得焦点时时触发该该事件，即即自动选选中输入入的内容容，便于于修改txtIItemm(Inndexx).SSelSStarrt=00txtIItemm(Inndexx).SSelLLenggth=Lenn(txxtIttem(Inddex)End SubbPrivvatee Suub ccmdEExitt_Cllickk()单击按按钮cmmdExxit取取消添加加信息If mmblCChannge Andd cmmdSaave.Enaableed TThenn IIf MMsgBBox(“保存当当前记录录的变化化吗？”,vbOOKCaanceel+vvbExxclaamat

34、tionn,”警告”)=vbbOK Theen 保存 Calll ccmdSSavee_Cllickk EEnd IfEnd IfUnlooad MeEnd SubbPrivvatee Suub ttxtIItemm_KeeyDoown(Inddex As Inttegeer,KKeyCCodee Ass Inntegger,Shiift_ Ass Inntegger)输入完完内容，单单击回车车键将自自动进入入下一个个文本框框，触发发文本框框的Keeydoown事事件EnteerTooTabb KeeyCoodeEnd Subb修改客客房标准准窗体的的创建Privvatee Suub FFro

35、mm_Looad()ShowwTittleShowwDattaflaggTeddit=TruueEnd SubbPrivvatee Suub SShowwTittle()调用sshowwTittle函函数，显显示表头头Dim i AAs IInteegerrWithh mssgLiist .CColss=100 .TTexttMattrixx(0,1)=”标准准编号” .TTexttMattrixx(0,2)=”标准准名称”.TexxtMaatriix(00,3)=”房房间面积积”.TexxtMaatriix(00,4)=”床床位数量量” .TexxtMaatriix(00,5)=”是是否有空

36、空调”.TexxtMaatriix(00,6)=”是是否有电电话”.TexxtMaatriix(00,7)=”是是否有电电视”.TexxtMaatriix(00,8)=”是是否有卫卫生间”.TexxtMaatriix(00,9)=”房房间单价价”.FixxedRRowss=1固定表表头For i=00 Too 9 设置各各列的对对齐方式式.CollAliignmmentt(i)=0 Neext i .FFilllStyyle=fleexFiillRRepeeat表头项项居中 .Cool=00 .RRow=0 .RRowSSel=1 .CColSSel=.Cools-1 .CCelllAliig

37、nmmentt=4 .CColWWidtth(00)=3300设置单单元大小小.CollWiddth(1)=10000 .CColWWidtth(22)=220000 .CColWWidtth(33)=220000 .CColWWidtth(44)=110000 .CColWWidtth(55)=110000 .CColWWidtth(66)=110000 .CColWWidtth(77)=110000 .CColWWidtth(88)=110000 .CColWWidtth(99)=110000 .Roow=11End WitthEnd SubbPrivvatee Suub SShowwDa

38、tta()调用sshowwDatta函数数，显示示记录列列表Dim i AAs IInteegerr SSet mrcc=ExxecuuteSSQL(txttSQLL,MssgTeext)根据需需要设置置SQLL语句，显显示需要要的记录录Withh mssgLiist .Rowws=11 DDo WWhille NNot mrcc.EOOF .Roows=Rowws+11 Forr i=1 TTo mmrc.Fieeldss.Coountt Sellectt Caase mrcc.Fiieldds(ii-1).Tyype CCasee addDBDDatee.TexxtMaatriix(.Rowws-11,i)=Foormaat(mmrc.Fieeldss(i-1)&”,”yyyyy-mm-dd”) CCasee Ellse .TeextMMatrrix(.Roows-1,ii)=mmrc.Fieeldss(i-1)&” Ennd SSeleect Nexxt ii Mrcc.MooveNNexttLoopp EEnd Witth