oracle酒店管理系统

1、 Oraccle 数数据库的设设计与实现现选题名称： 酒店店管理系统统 姓 名： 学 号： 专 业： 班 级： 指导老师： 设计地点： 目 录系统需求分分析1.1系统统开发的目目的和意义义 31.2系统统要求 3二、系统总总体设计2.1系统统功能需求求 42.2系统统数据需求求 42.3系统统功能结构构图 52.4系统统部分流程程图 5三、数据库库设计3.1数据据库概念模模型 73.2数据据库物理模模型 83.3酒店店管理系统统部分数据据字典 99四、系统实实现过程4.1设计计过程 114.2系统统各界面设计计代码 28五、实验总总结5.1实验验中遇到的的问题 355.2心得得体会 35一、系

2、统需需求分析1.1系统统开发的目目的和意义义 首先应该该在此次实实践中有所所收获，能能够学习到到相关软件件的功能，和和进行实践践设计需要要的知识的的。能够在在实践中学学习。 面面对酒店行行业的高速速发展和酒酒店行业信信息化发展展的过程中中出现的各各种情况，酒酒店客房管管理系统在在实施后应应达到以下下目的： 实实现多点操操作的信息息共享，相相互之间的的信息传递递准确、快快捷、顺畅畅； 服服务管理信信息化，可可随时掌握握客人住宿宿情况； 系系统界面友友好美观，操操作简单易易行，查询询灵活方便便，数据存存储安全。 实实现客房的的登记入住住和查询功功能，查询询酒店信息息，客人信信息，客房房信息等功功能

3、。 实实现Dellphi和和oraccle的连连接，进行行数据的插插入。1.2系统统要求要求实现酒酒店员工信信息管理、客户信息息管理、客客房信息管管理、订单单管理等功功能，包括括客户信息息的添加、修改、删删除及查询询；客房信信息的添加加、修改、删除及查查询；订单单查询及退退房管理等等。系统总体设设计2.1系统统功能需求求 通通过对互联联网上的各各大酒店管管理系统的的认识和分分析，我对对酒店管理理系统有了了基本的了了解，我觉觉得该系统统至少应该该具有以下下的一些基基本功能： (1) 系统管理理模块:包括登录录系统，用用户管理，权权限管理，角角色管理，以以及查询统统计，客户户管理折扣扣管理和开开台

4、管理等等。 (2) 基本设置置管理模块块：包括厨厨师的管理理，买单管管理等。 (3) 客户管理理模块：包包括客户点点菜，上菜菜，结账，统统计等。 (4) 客户订房房管理模块块：包括订订房，续房房，查房，退退房，结算算等。 2.2 系系统数据需需求根据数据需需求分析可可知该系统统至少应该该具有以下下的一些数数据需求：DESKTTYPE餐餐桌类别表表（餐桌类类别编号，餐餐桌座位数数，餐桌方方位，备注注）。DESK餐餐桌表（餐餐桌编号，餐餐桌类别编编号，餐桌桌状态，备备注）。FOODYYPE菜系系 （菜系系编号，菜菜系名称，备备注）。FOOD菜菜品（菜品品编号，菜菜单编号，所所属菜系，菜菜品名称，菜

5、菜品价格，助助记码，备备注）。FOODTTICKEET餐饮订订单（订单单编号，餐餐桌编号，下下单服务员员编号，点点菜时间，订订单状态，备备注）。ROOMCCUSTIINFO住住房客户信信息表（住住户编号，客客房类别编编号，住户户姓名，住住户省份证证号）。FOODLLIST菜菜单（菜单单编号，餐餐桌编号，菜菜品编号，厨厨师编号，状状态，备注注）。ROOMTTYPE客客房类别表表（客房类类别编号，客客房类型名名称，客房房类别价格格，备注）。ROOMIINFO客客房信息表表（房间编编号，客房房类别编号号，客房状状态，备注注）。ROOMTTICKEET客房订订单管理表表 （订单单编号，房房间号，下下单

6、服务员员ID，身身份证号，入入住时间，离离开时间，押押金金额，结结算金额，下下单时间，备备注）。CUSTIINFO客客户信息表表 （身份份证号，客客户姓名，客客户性别，客客户电话，是是否会员，信信息录入时时间，备注注）。USER 用户信息息表（用户户编号，角角色编号，部部门编号，用用户名，用用户密码，是是否审核通通过，年龄龄，性别，生生日，联系系电话，备备注）。ROLE 用户角色色表（角色色编号，角角色名，备备注）。DEPARRMENTT 部门表表（部门编编号，名称称，上级部部门编号，备备注）。PERMIISSIOON 权限限表（权限限编号，权权限组编号号，权限名名称，备注注）。ROLEPPE

7、R 角角色-权限限关联表（角角色权限编编号，角色色编号，权权限编号）。PERMIISSIOONGROOUP 权权限组表（权权限组编号号，权限组组名称）。2.3系统统功能模块块图酒店管理系系统功能结结构如图22-3所示示图2-3 系统功能能结构图2.4系统统部分流程程图客房订单流流程图如图图2-4所示图2-4 客房订单单管理流程程图餐饮部分开开台流程图图如图2-5所示图2-5 餐饮部分分开台流程程图三、数据库库设计3.1数据据库概念模模型数据库概念念模型图如如图3-11所示：图3-1数数据库概念念模型图3.2数据据库物理模模型数据库物理理模型图如如图3-22所示：图3-2 数据库物物理模型图图3

8、.3酒店店管理系统统部分数据据字典本系统数据据库采用OOraclle数据库库，系统数数据库名称称为HottelDBB，共包含含17张表。菜系表：用用来存储菜菜系的信息息，其中FFOODTTYPEIID字段为为主键。表3-3-1 菜系系：FOOODYPEE字段名称类型允许空主键外键外键参考表表 说明FOODTTYPEIIDNUMBEE(5)NOTYES菜系IDFOODTTYPENNAMEVARCHHAR2(20)NOT菜系名称FOODTTYPERREMARRKVARCHHAR2(50)YES备注菜品表：用用于菜品的的所有信息息，也是点点菜的菜单单的一个信信息来源表表，从中可可获得菜品品的全部信信

9、息。其中中字段FOOODTYYPEIDD用来描述述该菜品属属于哪个菜菜系是外键键参参考表表FOODDTYPEE，根据此此字段的值值，可以知知道菜品属属于相应的的哪个菜系系。表3-3-2 菜品品：FOOOD字段名称类型允许空主键外键外键参考表表说明FOODIDNUMBEER(5)NOTYES菜品IDFOODNAMEVARCHHAR2(20)NOT菜品名称FOODTTYPEIDNUMBEER(5)NOTYESFOODYYPE所属菜系IIDFOODPRICEENUMBEER(5)NOT菜品价格FOODHHELPCCODEVARCHHAR2(10)NOT助记码FOODRREMARRKVARCHHAR2

10、(50)YES备注客房类别表表：用来存存储客房类类别的信息息，表3-3-3客房类类别表：RROOMTTYPE字段名称类型允许空主键外键外键参考表表说明ROOMTTYPEIIDNUMBEER(5)NOTYES客房类别编编号ROOMTTYPENAMEVARCHHAR2(20)NOT客房类别名名称ROOMTTYPEPPAYNUMBEER(5)NOT类别价格ROOMTTYPERREMARRKVARCHHAR2(50)NOT备注客房信息表表:用来存存储客房信信息。表3-3-4 客房房信息表：ROOMMINFOO字段名称类型允许空主键外键外键参考表表说明ROOMIDNUMBEER(5)NOTYES房间编号

11、ROOMTTYPEIDNUMBEER(5)NOTYESROOMTTYPE客房类别编编号续表 5-4字段名称类型允许空主键外键外键参考表表说明ROOMCCHECKKNUMBEER(5)NOT客房状态ROOMRREMARRKVARCHHAR2(50)YES备注客户信息表表:用来存存储酒店客客户的相关关信息。表3-3-5 客户户信息表: CUSSTINFFO字段名称类型允许空主键外键外键参考表表说明CARDIIDVARCHHAR2(20)NOTYES身份证号CUSTNNAMEVARCHHAR2(20)NOT姓名CUSTSSEXVARCHHAR2(10)NOT性别CUSTPPHONEEVARCHHAR

12、2(20)YES电话VIPCHHECKNUMBEER(5)YES是否会员CUSTDDATEVARCHHAR2(20)YES信息录入时时间系统实现过过程4.1设计计过程4.1.11窗体设计计新建一个个标准工程程，会出现现formm1，可以以遵循默认认格式，也也可以更改改名称，这这里默认。添加所需需控件maainmeenu,双双击控件在在其中加入入所要进行行的功能如如下： 添加控件IImagee插入图片片，选中iimagee控件，在在其属性表表中选中ppictuure，选选择需要的的图片：再建立一一个Forrm2，默默认格式即即可。在其其中加入客客房登记所所需控件：再建立一一个Forrm3，默默认

13、格式即即可,并且且在proojectt-opttionss中设置其其为主窗体体。在其中中加入客房房登记所需需控件,88个labbel，88个Ediit，两个个bitbbtn如图图：可以在biitbtnn按钮中添添加图片，使使其更加生生动，选选中按钮，在在其属性选选择Glyyph，选选择需要的的图片即可可，注意图图片格式要要符合要求求，还可以以为界面换换颜色。再建立一一个Forrm4，默默认格式即即可。在其其中加入客客人信息查查询所需控控件，1个个labeel，一个个Editt，2个按按钮，1个个DBGrrid：这里需要链链接数据库库，与krrxx表中中的信息进进行链接。连接方式式为：首先添加一

14、一个数据模模板（daatemoodulee），然后后选择ADDOQueery控件件和dattasouurce控控件添加到到数据模板板，选中AADOQuuery控控件，在其其属性中找找到connnecttionsstrinng，进行行数据库的的链接，选选择再建立一一个Forrm5，默默认格式即即可。在其其中加入客客房登记所所需控件，和和上面一样样：这个窗体也也要进行数数据库链接接，过程和和上面一样样，只是链链接的表名名不同，这这里链接的的是kfxxx表。双击确定添添加代码如如下：wiith DData33.ADOOQuerry1 ddo beggin CClosee; SSQL.CClearr;

15、 SSQL.AAdd(seleect * froom fjjxx wwheree 房间号号码=:aa); PParammeterrs.PaaramBByNamme(aa).vvaluee:=Trrim(eedit11.Texxt); Openn; endd;关闭键的代代码如下：form55.cloose;form11.shoow;这样就完成成了房间信信息查询的的操作。再建立一个个Formm6，默认认格式即可可。在其中中加入查看看酒店信息息所需控件件：1个labbel，11个按钮，11个DBGGrid：这里主要就就是数据库库的链接，改改用另外一一种方式为为：首先再建立立一个Foorm7，默默认格

16、式即即可。在其其中加入查查看客房信信息所需控控件，和（77）一样，不不过这里可可以采用（55）的方法法进行数据据库的链接接。再建立一个个再建立一一个Forrm8 ，默默认格式即即可。在其其中加入退退房所需控控件：1个个labeel，1个个Editt，两个bbitbttn，1个个DBGrrid，和和一个DBBNaviigatoor如图：将其与数据据库中表kkrxx链链接后，输输入证件号号码单击DDBNavvigattor控件件上的可以突出出显示选择择的信息，然然后点击退退房可以实实现退房功功能。4.1.22 进行窗窗体之间的的转换（11）在foorm3中中进行密码码设置，双双击登录按按钮进行代代

17、码输入如如下：vaarresullts: Variiant;BEGINNresullts:=ADOTTablee1.Loookupp(姓名名,eddit1.textt,密码码);if reesultts=eddit2.Textt thhenbeginnform33.Hidde;form11.Shoow;endelsebeginnappliicatiion.MMessaageBoox(姓姓名或密码码错误,提示信信息,664); ediit1.SSetFoocus; exiit;end;end;退出代码为为：cloose;（22）在foorm1中中进行剩余余各forrm间的连连接，在fform11

18、中分别单单击要实现现的功能菜菜单按钮，并并分别输入入代码，得得到的最后后代码如下下：prooceduure TTFormm1.N22Clicck(Seenderr: TOObjecct);beginnform11.Hidde;form22.shoowmoddal;end;proceeduree TFoorm1.N3Cllick(Sendder: TObjject);beginnform11.Hidde;form44.shoowmoddal;end;proceeduree TFoorm1.N4Cllick(Sendder: TObjject);beginnform11.Hidde;form55.

19、ShoowModdal;end;proceeduree TFoorm1.N5Cllick(Sendder: TObjject);beginnform11.Hidde;form66.ShoowModdal;end;proceeduree TFoorm1.N6Cllick(Sendder: TObjject);beginnform11.hidde;form77.ShoowModdal;end;proceeduree TFoorm1.N8Cllick(Sendder: TObjject);beginnform11.hidde;form88.ShoowModdal;end;proceeduree TF

20、oorm1.N7Cllick(Sendder: TObjject);beginnclosee;end;proceeduree TFoorm1.FormmCreaate(SSendeer: TTObjeect);beginnend;并且要在uuint11的连接代代码上添加加：usees Winndowss, Meessagges, SysUUtilss, Vaariannts, Classses, Graaphiccs, CContrrols, Forrms, Diaalogss, Meenus, DB, ADOODB,uunit22,uniit4,uunit55,uniit6,uunit77,

21、uniit8,;在formm2中进行行和forrm1间的的转换，代代码如下： 双击关闭闭按钮添加加代码： formm2.cllose; formm1.shhow;（4）在fform44，forrm5，fform66，forrm7中进进行forrm1间的的转换，代代码类似（33）。3、forrm1中退退出菜单的的实现双击退出菜菜单进行代代码输入：closse;即可可。至此完成了了菜单管理理的实现，可可以运行后后进行各功功能的实现现。代码设计计Privaate SSub TToolbbar1_ButttonCllick(ByVaal Buuttonn As MSCoomctllLib.Buttto

22、n) SSelecct Caase BButtoon.Keey CCase DJ zzsdj_Clicck CCase TF ttf_Cllick CCase FT fftck_Clicck CCase CX zzscx_Clicck CCase exiit IIf MssgBoxx(确定定退出该系系统？, 4, 系统提提示) = vbbYes Thenn EEnd EEnd IIf EEnd SSelecctEnd SSubPrivaate SSub ssztx_Clicck()Dim SStrCommoonDiaalog11.Fillter = BBMP图片片(*.BBMP)|*.BMMP

23、|JPPG图片(*.JPG)|*.JJPG|GGIF图片片(*.GGIF)|*.GIIF|所有有文件(*.*)|*.*CommoonDiaalog11.ShoowOpeenIf CoommonnDiallog1.FileeNamee TThenImagee2.Piicturre = LoaddPictture(CommmonDiialogg1.FiileNaame)Str = CommmonDDialoog1.FFileNName Opeen (AApp.PPath & pictture.txt) Foor Ouutputt As #1 Prinnt #11, Sttr Cloose #1 C

24、ommmonDiialogg1.FiileNaame = Else CommmonDiialogg1.FiileNaame = End IIfEnd SSubPrivaate SSub ssjbf_Clicck()main_sjbff.Shoowmain.Enabbled = FaalseEnd SSubPrivaate SSub ssjhf_Clicck()main_sjhff.ShoowEnd SSubPrivaate SSub zzsdj_Clicck() mainn_kfddj.Shhow mainn.Enaabledd = FFalseeEnd SSubPrivaate SSub t

25、tf_Cllick() mainn_tf.Showw mainn.Enaabledd = FFalseeEnd SSubPrivaate SSub kkfcx_Clicck() mainn_kfccx.Shhow mainn.Enaabledd = FFalseeEnd SSubPrivaate SSub fftck_Clicck() mainn_ftccx.Shhow mainn.Enaabledd = FFalseeEnd SSubPrivaate SSub zzscx_Clicck() Loadd maiin_zsscx mainn_zsccx.Shhow mainn.Enaabledd

26、 = FFalseeEnd SSubPrivaate SSub ttfcx_Clicck() Loadd maiin_tffcx mainn_tfccx.Shhow mainn.Enaabledd = FFalseeEnd SSub4.1.33 系统登登录模块设设计窗体设计计添加新窗窗体，命名名为maiin_Loogin，CCaptiion属性性为“酒店店客房管理理系统”；添加Addodc控控件以及两两个TexxtBoxx控件，TText11放在用户户名后，TText22放在密码码后；添加两个个Imagge控件，分分别设置PPictuure属性性，添加“确定”和和“退出”按钮。代码设计计Pri

27、vaate SSub IImagee1_Cllick() IIf Teext1.Textt = 77 Andd Texxt2.TText = 12234566 Theen mmain.Showw MMe.Hiide EElse MMsgBoox 密密码错误！, vvbCriiticaal, 提示 EEnd IIfEnd SSubPrivaate SSub IImagee2_Cllick()EndEnd SSub4.1.44住宿登记记模块窗体设计计添加新窗窗体命名为为mainn_kfddj，Caaptioon属性为为“住宿登登记”；添加两个个Adoddc控件、TexttBox控控件数组以以及2个

28、DDTPiccker控控件；添加3个个CombboBoxx控件。代码设计计Privaate SSub ccomdjj_Cliick() AAdodcc1.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc1.ReecorddSourrce = seelectt * ffr

29、om tb_kkf whhere 房态=空房 AAdodcc1.Reefressh AAdodcc2.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc2.ReecorddSourrce = seelectt * ffrom tb_ddjb oorderr by 凭证号码

30、码 AAdodcc2.Reefressh IIf Noot Addodc22.Reccordsset.EEOF TThen Adoddc2.RRecorrdsett.MovveLasst IIf lssph.TText = Theen bhh.Texxt = Fdatte & d & Foormatt(1, #000) IIf lssph.TText Thhen yy1.Teext = Monnth(FFdatee) yy2.Teext = Monnth(LLeft(lsphh.Texxt, 110) IIf y11.Texxt = y2.TText Thenn bh.TText = Fdda

31、te & dd & Formmat(VVal(RRightt(lspph.Teext, 3) + 1, #0000) TText11.Texxt = Val(Righht(lssph.TText, 3) + 11 EEnd IIf IIf y11.Texxt y2.Textt Theen bbh.Teext = Fdaate & d & FFormaat(1, #0000) EEnd IIf EEnd IIf FFor ii = 00 To 2 ZZSDJ(i).TText = ZZSDJ(i).EEnablled = Truue NNext i FFor ii = 44 To 6 ZZSDJ

32、(i).TText = ZZSDJ(i).EEnablled = Truue NNext i CComboo3.Teext = CComokk.Enaabledd = TTrue: Commdj.EEnablled = Fallse CComboo3.Ennableed = Truee: Coombo11.Enaabledd = TTrue ZZSDJ(0).SSetFoocus Adoddc3.CConneectioonStrring = PPROVIIDER=MSDAASQL;DRIVVER=Oraccle iin OrraDb111g_hhome11 ; & servver=wwebse

33、erverr;DSNN=;daatabaasenaame=aaa;daatabaasefiile=dd:aaa;UID=scottt;PWWD=12234566 AAdodcc3.ReecorddSourrce = seelectt * ffrom tb_kkf whhere 房态 = 空房 AAdodcc3.Reefressh CComboo3.Cllear IIf Addodc33.Reccordsset.RRecorrdCouunt 0 TThen FFor ii = 11 To Adoddc3.RRecorrdsett.ReccordCCountt CComboo3.AdddIteem

34、 Addodc33.Reccordsset.FFieldds(房房间号).Vallue AAdodcc3.Reecorddset.MoveeNextt NNext i EEnd IIfEnd SSubPrivaate SSub ccomokk_Cliick() IIf ZSSDJ(00) = OOr Coombo33 = Thhen MMsgBoox 请请输入完整整信息, , 系统提示示 EElse AAdodcc2.ReecorddSourrce = seelectt * ffrom tb_ddjb wwheree 房间号号 = & Combbo3.TText & andd 标志 liike

35、 1 AAdodcc2.Reefressh IIf Addodc22.Reccordsset.RRecorrdCouunt = 0 TThen AAdodcc2.Reecorddset.AddNNew IIf bhh.Texxt Thenn Adoodc2.Recoordseet.Fiieldss(凭证证号码) = bbh.Teext IIf ZSSDJ(00).Teext Theen Addodc22.Reccordsset.FFieldds(姓姓名) = ZSSDJ(00).Teext IIf Coombo11.Texxt Thenn Adoodc2.Recoordseet.Fiields

36、s(证件件名称) = CComboo1.Teext IIf ZSSDJ(11).Teext Theen Addodc22.Reccordsset.FFieldds(证证件号码) = ZSDJJ(1).Textt IIf ZSSDJ(22).Teext Theen Addodc22.Reccordsset.FFieldds(详详细地址) = ZSDJJ(2).Textt IIf Coombo33.Texxt Thenn Adoodc2.Recoordseet.Fiieldss(房间间号) = Vaal(Coombo33.Texxt) IIf ZSSDJ(44).Teext Theen Addod

37、c22.Reccordsset.FFieldds(客客房类型) = ZSDJJ(4).Textt IIf DTTP1.VValuee TThen Adoddc2.RRecorrdsett.Fieelds(住宿日日期) = DTTP1.VValuee IIf ZSSDJ(55).Teext Theen Addodc22.Reccordsset.FFieldds(客客房价格) = Val(ZSDJJ(5).Textt) IIf ZSSDJ(66).Teext Theen Addodc22.Reccordsset.FFieldds(住住宿天数) = ZSDJJ(6).Textt IIf ZSSDJ(

38、77).Teext Theen Addodc22.Reccordsset.FFieldds(宿宿费) = ZSSDJ(77).Teext IIf DTTP3.VValuee TThen Adoddc2.RRecorrdsett.Fieelds(退宿日日期) = DTTP3.VValuee AAdodcc2.Reecorddset.Updaate AAdodcc2.Reefressh aadocoon.Oppen Provviderr=Miccrosooft.JJet.OOLEDBB.4.00;Datta Soourcee= & Appp.Patth & DBB_KFGGL.mddb;Peers

39、isst Seecuriity IInfo=Falsse aadoRss.Opeen sselecct * fromm tb_djyss, aadocoon, aadOpeenKeyyset, adLLockOOptimmistiic aadoRss.AdddNew IIf bhh.Texxt Thenn adooRs.FFieldds(凭凭证号码) = bh.TText IIf ZSSDJ(00).Teext Theen addoRs.Fiellds(姓名) = ZSSDJ(00).Teext IIf Coombo11.Texxt Thenn adooRs.FFieldds(证证件名称) =

40、 Combbo1.TText IIf ZSSDJ(11).Teext Theen addoRs.Fiellds(证件号码码) = ZSDDJ(1).Texxt IIf ZSSDJ(22).Teext Theen addoRs.Fiellds(详细地址址) = ZSDDJ(2).Texxt IIf ZSSDJ(44).Teext Theen addoRs.Fiellds(客房类型型) = ZSDDJ(4).Texxt IIf Coombo33.Texxt Thenn adooRs.FFieldds(房房间号) = VVal(CComboo3.Teext) IIf ZSSDJ(55).Teext

41、Theen addoRs.Fiellds(客房价格格) = Vall(ZSDDJ(5).Texxt) IIf DTTP1.VValuee TThen adoRRs.Fiieldss(住宿宿日期) = DDTP1.Valuue IIf ZSSDJ(66).Teext Theen addoRs.Fiellds(住宿天数数) = ZSDDJ(6).Texxt IIf ZSSDJ(77).Teext Theen addoRs.Fiellds(宿费) = ZSSDJ(77).Teext IIf DTTP3.VValuee TThen adoRRs.Fiieldss(退宿宿日期) = DDTP3.Valu

42、ue aadoRss.Upddate aadocoon.Cllose AAdodcc1.ReecorddSourrce = seelectt * ffrom tb_kkf whhere 房间号 llike + Commbo3.Textt + IIf Coombo33.Texxt Thenn Adoodc1.Recoordseet.Fiieldss(房态态) = 入住住 AAdodcc1.Reecorddset.Updaate FFor ii = 00 To 6 ZZSDJ(i).EEnablled = Fallse NNext i ZZSDJ(8).EEnablled = Fallse: ZS

43、DJJ(10).Enaabledd = FFalsee: ZSSDJ(111).EEnablled = Fallse CComboo3.Ennableed = Falsse: CComboo1.Ennableed = Falsse EEnd IIf CComokk.Enaabledd = FFalsee: Coompriint.EEnablled = Truue: CComdjj.Enaabledd = TTrue CComprrint.SetFFocuss EEnd IIfEnd SSubPrivaate SSub ccomcaancell_Cliick() FFor ii = 00 To

44、2 ZZSDJ(i).EEnablled = Fallse NNext i FFor ii = 44 To 6 ZZSDJ(i).EEnablled = Fallse NNext i CComokk.Enaabledd = FFalsee: Coombo33.Enaabledd = FFalsee CComboo1.Ennableed = Falsse: DDTP3.Enabbled = Faalse CComdjj.Enaabledd = TTrueEnd SSubPrivaate SSub ccomennd_Cllick() UUnloaad Mee mmain.Enabbled = Tr

45、rueEnd SSub4.1.55退宿登记记模块按照如上方方法设计窗窗体如下：代码设计：Privaate SSub FForm_Loadd() AAdodcc1.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc1.ReecorddSourrce = seelectt *

46、 ffrom tb_ddjb Adoddc1.RRefreesh AAdodcc2.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc2.ReecorddSourrce = seelectt * ffrom tb_kkf Adoddc2.RRefreesh AAdodcc

47、3.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc3.ReecorddSourrce = seelectt * ffrom tb_ggzmx Adoddc3.RRefreesh AAdodcc4.CoonnecctionnStriing = PRROVIDDER=MM

48、SDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc4.ReecorddSourrce = seelectt * ffrom tb_ddjys Adoddc4.RRefreesh AAdodcc5.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb11

49、1g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=aaa;dattabassefille=d:aaa;UUID=sscottt;PWDD=1233456 AAdodcc5.ReecorddSourrce = seelectt 凭证号号码 frrom ttb_djjb whhere 标志=11ordder bby 凭证证号码 Adoddc5.RRefreesh If Adoddc5.RRecorrdsett.ReccordCCountt 00 Theen For i = 1 Too Adoodc5.Recoordseet.Reecor

50、ddCounnt Combbo4.AAddIttem AAdodcc5.Reecorddset.Fiellds(凭证号码码).VValuee Adoddc5.RRecorrdsett.MovveNexxt Nextt i End If End SSubPrivvate Sub Formm_Acttivatte() czy.Textt = mmain.StattusBaar1.PPanells(4).Texxt 赋赋值给czzyDTP22.Vallue = Datte: ttim2.Valuue = TimeePrivaate SSub ccomboo4_Cllick() IIf Coombo4

51、4.Texxt Thenn AAdodcc1.ReecorddSourrce = seelectt * ffrom tb_ddjb wwheree 凭证号号码= + CComboo4.Teext + AAdodcc1.Reefressh bh.TText = TT & Combbo4.TText IIf Addodc11.Reccordsset.RRecorrdCouunt 0 TThen IIf Addodc11.Reccordsset.FFieldds(姓姓名) Thhen TTexxmm.Texxt = Adoddc1.RRecorrdsett.Fieelds(姓名) IIf Addod

52、c11.Reccordsset.FFieldds(证证件名称) Thenn Commbo1.Textt = AAdodcc1.Reecorddset.Fiellds(证件名称称) IIf Addodc11.Reccordsset.FFieldds(证证件号码) Thenn Texxsfz.Textt = AAdodcc1.Reecorddset.Fiellds(证件号码码) IIf Addodc11.Reccordsset.FFieldds(详详细地址) Thenn Texxdz.TText = Addodc11.Reccordsset.FFieldds(详详细地址) IIf Addodc11

53、.Reccordsset.FFieldds(房房间号) TThen DBCoombo33.Texxt = Adoddc1.RRecorrdsett.Fieelds(房间号号) IIf Addodc11.Reccordsset.FFieldds(客客房类型) Thenn DBCComboo1.Teext = Adoodc1.Recoordseet.Fiieldss(客房房类型) IIf Addodc11.Reccordsset.FFieldds(客客房价格) Thenn DBCComboo2.Teext = Adoodc1.Recoordseet.Fiieldss(客房房价格) If AAdod

54、cc1.Reecorddset.Fiellds(住宿日期期) Theen DTTP1.VValuee = AAdodcc1.Reecorddset.Fiellds(住宿日期期) If AAdodcc1.Reecorddset.Fiellds(住宿时间间) Theen TIIM1.VValuee = AAdodcc1.Reecorddset.Fiellds(住宿时间间) IIf Addodc11.Reccordsset.FFieldds(住住宿天数) Thenn Texxts.TText = Addodc11.Reccordsset.FFieldds(住住宿天数) If AAdodcc1.Ree

55、corddset.Fiellds(预收金额额) Theen Teexyj.Textt = AAdodcc1.Reecorddset.Fiellds(预收金额额) EElse Texyyj.Teext = 0 If AAdodcc1.Reecorddset.Fiellds(结款方式式) Theen Coombo22.Texxt = Adoddc1.RRecorrdsett.Fieelds(结款方方式) If AAdodcc1.Reecorddset.Fiellds(折扣) Thhen TTexzkk.Texxt = Adoddc1.RRecorrdsett.Fieelds(折扣) EEnd II

56、f 计算住宿宿天数 If DDTP2.Valuue DTP11.Vallue TThen DTPiickerr控件返回回包含于字字符串内的的数字，字字符串中是是一个适当当类型的数数值。 If ttim2.Valuue #11:59:000 AMM# Thhen If ttim2.Valuue #6:000:000 PM# Theen Textts.Teext = DTPP2.Vaalue - CDDate(DTP11.Vallue) + 1 CDatte函数都都可以强制制将一个表表达式转换换成某种特特定数据类类型。 Elsee Textts.Teext = DTPP2.Vaalue - CDD

57、ate(DTP11.Vallue) + 0.5 End If Elsee Textts.Teext = DTPP2.Vaalue - CDDate(DTP11.Vallue) End If Elsee If TTIM1.Valuue #6:000:000 PM# Theen Teexts.Textt = 11 Elsse Teexts.Textt = 0.5 Elsee Textts.Teext = 0.5 End If End If TTexxff.Texxt = Val(Textts.Teext) * Vaal(DBBCombbo2.TText) EEnd IIfEnd SSub4.1.6

58、6住宿查询询模块按照如上方方法设计窗窗体如下：代码设计：Privaate SSub FForm_Loadd() AAdodcc1.CoonnecctionnStriing = PRROVIDDER=MMSDASSQL;DDRIVEER=OOraclle inn OraaDb111g_hoome1 ; & sserveer=weebserrver;DSN=;dattabassenamme=sttudennt;daatabaasefiile=dd:sstudeent;UIDD=scoott;PPWD=11234556 AAdodcc1.ReecorddSourrce = seelectt * ff

59、rom tb_ddjb Adoddc1.RRefreesh SSet MMSHFllexGrrid1.DataaSourrce = Adoodc1 MMSHFllexGrrid1.ColWWidthh(8) = 0 MMSHFllexGrrid1.ColWWidthh(20) = 00 MMSHFllexGrrid1.ColWWidthh(24) = 00 MMSHFllexGrrid1.ColWWidthh(25) = 00 MMSHFllexGrrid1.ColWWidthh(27) = 00End SSubPrivaate SSub FForm_Unlooad(CCanceel Ass

60、Inttegerr) mmain.Enabbled = TrrueEnd SSubPrivaate SSub CCommaand1_Clicck() AAdodcc1.ReecorddSourrce = seelectt * ffrom tb_ddjb wwheree 姓名 llike % + Teext1.Textt + % Adoddc1.RRefreesh MMSHFllexGrrid1.ColWWidthh(8) = 0 MMSHFllexGrrid1.ColWWidthh(20) = 00 MMSHFllexGrrid1.ColWWidthh(24) = 00 MMSHFllexGr