oracle酒店管理组织系统

1、Oracle数据库的设计与实现选题名称:酒店管理系统名:口号:级:指导老师:、系统需求分析1.1系统开发的目的和意义1.23、系统总体设计2.1系统2.2系统2.3系统-52.4系统-5功4数4功部厶匕冃能厶匕冃能=1 二:需'二|二需、数据库设计3.13.2 数据83.3酒店管理系统部分数据字典-9四、系统实现过程4.1114.2 系统各界面设28五、实验总结5.1 实验中遇到355.235、系统需求分析1.1系统开发的目的和意义首先应该在此次实践中有所收获，能够学习到相关软件的功能, 和进行实践设计需要的知识的。能够在实践中学习。面对酒店行业的高速发展和酒店行业信息化发展的过程中出

2、现的各种情况，酒店客房管理系统在实施后应达到以下目的：实现多点操作的信息共享，相互之间的信息传递准确、快捷、顺 畅；服务管理信息化，可随时掌握客人住宿情况；系统界面友好美观，操作简单易行，查询灵活方便，数据存储安 全。实现客房的登记入住和查询功能，查询酒店信息，客人信息，客 房信息等功能。实现Delphi和oracle的连接，进行数据的插入。1.2系统要求要求实现酒店员工信息管理、客户信息管理、客房信息管理、订 单管理等功能，包括客户信息的添加、修改、删除及查询；客房信息 的添加、修改、删除及查询；订单查询及退房管理等。系统总体设计2.1系统功能需求通过对互联网上的各大酒店管理系统的认识和分析

3、，我对酒店管 理系统有了基本的了解，我觉得该系统至少应该具有以下的一些基本 功能：（1）系统管理模块：包括登录系统，用户管理，权限管理，角色 管理，以及查询统计，客户管理折扣管理和开台管理等。（2）基本设置管理模块：包括厨师的管理，买单管理等。（3）客户管理模块：包括客户点菜，上菜，结账，统计等。（4）客户订房管理模块：包括订房，续房，查房，退房，结算 等。2.2系统数据需求根据数据需求分析可知该系统至少应该具有以下的一些数据需求:DESKTYPE餐桌类别表（餐桌类别编号，餐桌座位数，餐桌方位，备注） 。DESK餐桌表（餐桌编号，餐桌类别编号，餐桌状态，备注）FOODYPE菜系（菜系编号，菜系

4、名称，备注）。FOOD菜品（菜品编号，菜单编号，所属菜系，菜品名称，菜品价格，助记码，备注）。FOODTICKET餐饮订单（订单编号，餐桌编号，下单服务员编号，点菜时间，订单状态，备注）。ROOMCUSTINFO住房客户信息表（住户编号，客房类别编号，住户姓名,住户省份证号）。FOODLIST菜单（菜单编号，餐桌编号，菜品编号，厨师编号，状态，备注）。ROOMTYPE客房类别表（客房类别编号，客房类型名称，客房类别价格,备注）。ROOMINFO客房信息表（房间编号，客房类别编号，客房状态，备注）ROOMTICKET客房订单管理表 （订单编号，房间号，下单服务员ID，身份证号，入住时间，离开时间

5、，押金金额，结算金额，下单时间，备注）。CUSTINFO客户信息表 （身份证号，客户姓名，客户性别，客户电话，是 否会员，信息录入时间，备注）。USER用户信息表（用户编号，角色编号，部门编号，用户名，用户密码,是否审核通过，年龄，性别，生日，联系电话，备注）。ROLE用户角色表（角色编号，角色名，备注）DEPARMENT部门表（部门编号，名称，上级部门编号，备注）PERMISSION权限表（权限编号，权限组编号，权限名称，备注）ROLE PER角色-权限关联表（角色权限编号，角色编号，权限编号）P ERMISSIONGROU P权限组表（权限组编号，权限组名称）。2.3系统功能模块图酒店管理

6、系统功能结构如图2-3所示°、G'二二;:二:-曜师锌也:,W -. Zla斗FKU養一丿fl r, p-ih * 'J 、心*f、拿幅埠irLio一 Z哦馆5疝A,/0图2-3系统功能结构图2.4系统部分流程图客房订单流程图如图2-4所示图2-4客房订单管理流程图餐饮部分开台流程图如图2-5所示数据库设计3.1数据库概念模型数据库概念模型图如图3-1所示:ROOMTYPEROOMTYPEIDROOMTYPENAMEROOMTYPEPAY<pi>N100 vMaVA20N20ROOMTYPEREMARKTXT100ldentifier 1 vpiARele

7、Tionship_15ROOMIDROOMINFOvpiA N20 VMAROOMCHECK N10ROOMREMARKTXT100ROOMCUSTINFOROOMCUSTIDvpi> NvM>CNAMEVA15CIDVA20Identifier_1 vpiAPERMISSIONGROUPGROUPID vpiA IvMAGROUPNAMEVA15ldentifier_1 vpiAROOMTICKETCUSTINFOIdentifier_1 vpiAshuyu1PERMISSIONPERMISSIONID vp i PERMISSIONNAME PERMISSIONURL PERM

8、ISSIONNOTEIVA2(VA25TXT6Identifier1 vpi7Relationship_4ROLEROLEIDvpiA IvMaROLENAMEROLENOTEVA20TXT60dentifier_1 vpiAORDERID vpiA CLI ENTINDATECLIENTOUTDATECLI ENTMARGINCLIENTAMOUNTORDERTIMEORDERREMARKIdentifier_1 vpiAN vMaVA20VA20N20N20VA20TXT100lelaTiol0>-)nship_CARDID vCUSTSEXCUSTPHONEVIPCHECK1Cus

9、tdatevpiA VA20 vMaVA101 VA20Identifier_1 vpiAN10VA20DEPARTMENTDEPARTMENTID vpi： DEPARTMENTNAME DEPARTMENTNOTE PARENTID1VA10TXT6(1dentifier_1 vpi：1hUSERSHUSERIDvp iAIvM：USERNAMEVA10USERPWDVA20USERNOTETXT60REALNAMEVA20USERAGEIUSERSEXVA5USERINDATEVA20USERPHONEVA15Identifier_1 vpiRfilationship 19$Relati

10、onshiFOODTICKETRelationship仃ORDERIDVp iAORDERTIMEVA20REALPAYMONEYNTOTALMONEYNORDERSTATUSNORDERREMARKVA50Identifier 1 vpiAip_11vMavMavMaRelationship_16FOODLISTFOODLISTIDFOODSTATUSReraTiCTRship_14vpiA N vMaVA20 vMaMENUREMARKIdentifier 1 vpiA图3-1数据库概念模型图VA50DESKTYPEIDvp iNvMDESKSEATNUMBERNvMDESKDIRECTI

11、ONVA10vM>DESKTYPEREMARKVA50DESKTYPEIdentifier_1 vpiADESKIDRelatl0nship_5DESKvpiA NvMaDESKISUSINGDESKREMARKIdentifier_1 vpiAvMaVA50FOODTYPEFOODTYPEIDvp iAFOODTYPENAMEFOODTYPEREMARKIdentifier_1 vpiAvMaVA20 vMaVA50Relationship 6FOODIDvpiANvMaFOODNAMEVA20vMaFOODPRICENvMaFOODHELPCODEVA10vMaFOODREMARKV

12、A50FOODIdentifier_1 vpiARelatp_83.2数据库物理模型数据库物理模型图如图3-2所示:ROOMTYPEROOMTYP EID NUMBER(100pk>ROOMTY PENAMVARCHAR2(20)ROOMTY PEP AYNUMBER(20)ROOMTY PEREMCRKBiEK_R1_ROOMINFOROOMCUSTINFOROOMCUSTHUMBER <pkNUMBER <fk>ROOMID NUMBER(20<pk： ROOMTY PEIDUMBER(10ak> ROOMCHECNUMBER(10) ROOMREMAC

13、KOBORDERIDCNAMECIDVARCHAR2(15)VARCHAR2(20)P ERMISSIONGRO UPGROUPID INTEGER <pk>GRO UPN AMARCHAR2(15)FK_R3ROOMTICKET吟IP ERMISSIONORDERID USERID CARDID ROOMIDNUMBER <pk> INTEGER <fk1 VARCHAR2(<ft)2 NUMBER(20<fk3CUSTINFOP ERMISSIONIDINTEGER <pk> GROU PID INTEGER <fk>CLI

14、ENTINDATVARCHAR2(20) CLIENTOUTDATRCHARZ) CLIENTMARGINUMBER(20) CLIENTAMOUNUMBER(20) ORDERTIME VARCHAR2(20) ORDERREMAfCLOBP ERMISSIONNA/ARCHAR2(20)P ERMISSIONUFVARCHAR2(25)P ERMISSIONNOTLOBFR9ROLEPERFOODTICKETROLEPERID INTEGERpk>ROLEID INTEGERfk1>P ERMISSIONNrEGERfk2>ORDERID USERID CARDID OR

15、DERTIMEROLEDEPARTMENTNUMBER <pk> INTEGER <fk1> VARCHAR2(<ft)2>VARCHAR2(20).REAL PAYMONEUMBERTOTALMONEYNUMBERORDERSTATUNUMBERFK R4FK_R0ORDERREMAFVARCHAR2(50)USERSROLEID INTEGER <pk>ROLENAM/ARCHAR2(20) ROLENOTELOBfK_F6DEP ARTMENTIDINTEGER <pk> F FK UDEP ARTMENTNAARCHAR2(1

16、0)DEP ARTMENTNOTOBPARENTIDINTEGERUSERIDROLEIDDEP ARTMENTDTEGER USERNAMEUSERPWD USERNOTE REALNAME USERAGEINTEGERINTEGER<p k><fk2> <fk1>VARCHAR2(10) VARCHAR2(20) CLOB VARCHAR2(20) INTEGERVARCHAR2(5)USERSEXUSERINDATEVARCHAR2(20)USER PH ONEVARCHAR2(15)CARDID VARCHAR2(2pkCUSTSEX VARCHAR

17、2(10)CUST PHO IVARCHAR2(20) VIP CHECKNUMBER(10) CUSTDATEVARCHAR2(20)DESKTY PEID NUMBER <pk>DESKTYPEDESKSEATNUMENUMIBERDESKDIRECTION/ARCHAR2(10)DESKTY PEREMA/ARCHAR2(50)TICKET DESKTDID NUMBER pk> ORDERIDUMBERfk1>DESKID NUMBERfk2>FOODLISTFOODLISTIDNUMBER<pk>FOODIDNUMBER<fk1：USE

18、RIDINTEGER<fk3：ORDERIDNUMBER<fk2：FOODSTATUSARCHAR2(20)MENUREMARKLRCHAR2(50)Fk_F8FOODFK D1FOODIDDESKDESKID NUMBER <pk：DESKTY PEIDUMBER <fk>DESKISUSINGUMBERDESKREMAVARCHAR2(50)FOODTYPEFOODTY PEID NUMBER <pk：FOODTY PENAMEARCHAR2(20)FOODTY PEREMARRCHAR2(50)NUMBER <pk>FOODTYPEID N

19、UMBER <fk>FOODNAME VARCHAR2(20)FOOD PRICE NUMBERFOODHEL PCOVARCHAR2(10)FOODREMARIVARCHAR2(50)图3-2数据库物理模型图3.3酒店管理系统部分数据字典本系统数据库采用Oracle数据库，系统数据库名称为 HotelDB，共包含17张表。菜系表：用来存储菜系的信息，其中FOODTYPEID字段为主键。表 3-3-1 菜系：FOODYPE字段名称类型允许空主键外键外键参考表说明FOODT YP EIDNUMBE(5)NOTYES菜系IDFOODT YPENAMEVARCHAR2(20)NOT菜系名

20、称FOODT YP EREMARKVARCHAR2(50)YES备注菜品表：用于菜品的所有信息， 也是点菜的菜单的一个信息来源表，从中可获得菜品的全部信息。其中字段FOODTYPEID用来描述该菜品属于哪个菜系是外键参参考表FOODTYPE，根据此字段的值，可以知道菜品属于相应的哪个菜系。表 3-3-2 菜品：FOOD字段名称类型允许空主键外键外键参考表说明FOODIDNUMBER(5)NOTYES菜品IDFOODNAMEVARCHAR2(20)NOT采品名称FOODTYPEIDNUMBER(5)NOTYESFOODYPE所属菜系IDFOODP RICENUMBER(5)NOT菜品价格FOOD

21、HEL PCODEVARCHAR2(10)NOT助记码FOODREMARKVARCHAR2(50)YES备注客房类别表：用来存储客房类别的信息,表3-3-3客房类别表：ROOMTYPE字段名称类型允许空主键外键外键参考表说明ROOMT YPEIDNUMBER(5)NOTYES客房类别编号ROOMT YPENAMEVARCHAR2(20)NOT客房类别名称ROOMTYPEPAYNUMBER(5)NOT类别价格ROOMTYPERVARCHNOT备注EMARKAR2(50客房信息表：用来存储客房信息。表3-3-4 客房信息表：ROOMINFO字段名称类型允许空主键外键外键参考表说明ROOMIDNUM

22、BER(5)NOTYES房间编号ROOMT YPEIDNUMBER(5)NOTYESROOMTYPE客房类别编号续表5-4字段名称类型允许空主键外键外键参考表说明ROOMCHECKNUMBER(5)NOT客房状态ROOMREMARKVARCHAR2(50)YES备注客户信息表：用来存储酒店客户的相关信息。表3-3-5 客户信息表：CUSTINFO允许字段名称类型主键外键外键参考表说明CARDIDVARCHAR2(20)NOTYES身份证号CUSTNAMEVARCHAR2(20)NOT姓名CUSTSEXVARCHAR2(10)NOT性别CUSTPHONEVARCHAR2(20)YES电话VIP

23、CHECKNUMBER(5)YES是否会员CUSTDATEVARCHAR2(20)YES信息录入时间四、系统实现过程4.1设计过程4.1.1窗体设计新建一个标准工程，会出现 formi ,可以遵循默认格式，也可以更改名称,这里默认。添加所需控件mainmenu,双击控件在其中加入所要进行的功能如下:A FormlST添加控件Image插入图片，选中image控件，在其属性表中选中Picture，选査 Form 1M底传理酒1?垂盂洁豆 涓rti择需要的图片:酒店管理系统再建立一个Form2，默认格式即可。在其中加入客房登记所需控件:再建立一个Form3，默认格式即可，并且在project-op

24、tions中设置其为主窗 体。在其中加入客房登记所需控件,8个label，8个Edit，两个bitbtn如图:lEdin麻熱p式ns'j|Edit2住活曰朋jFdit3捞闻号码证件号码Edit5EJitG|Corrtbo6o«l抄 Form2 干官谗记爾登记可以在bitbtn按钮中添加图片，使其更加生动，选中按钮，在其属性选择Glyph , 选择需要的图片即可，注意图片格式要符合要求，还可以为界面换颜色。再建立一个Form4 ,默认格式即可。在其中加入客人信息查询所需控件，1个 label，一个 Edit，2 个按钮，1 个 DBGrid :推Form斗客人信息查询1呂

25、76;夭闭这里需要链接数据库，与krxx表中的信息进行链接。连接方式为: 首先添加一个数据模板(datemodule )，然后选择ADOQuery 控件和datasource 控件添加到数据模板，选中ADOQuery 控件，在其属性中找到conn ectio nstri ng，进行数据库的链接，选择再建立一个Form5，默认格式即可。在其中加入客房登记所需控件，和上面一样:"Forms这个窗体也要进行数据库链接，过程和上面一样，只是链接的表名不同，这里链接的是kfxx表。双击确定添加代码如下:with Data3.ADOQuery1 dobeg inClose;SQL.CIear;S

26、QL.Add('select * from fjxx where 房间号码=:a');P arameters .P aramByName('a').value:=Tnm(edit1.Text);Open;end;关闭键的代码如下:form5.close;forml.show;这样就完成了房间信息查询的操作。（7）再建立一个Form6，默认格式即可。在其中加入查看酒店信息所需控件: 1 个 label，1 个按钮，1 个 DBGrid :» Form6门二:;理珂一 +酒店基本信息X 黄 if个 label，1 个 Edit，两个 bitbtn ，1 个

27、 DBGrid，和一个iejEt这里主要就是数据库的链接，改用另外一种方式为: 首先再建立一个Form7，默认格式即可。在其中加入查看客房信息所需控件, 和（7） 一样，不过这里可以采用（5）的方法进行数据库的链接。再建立一个再建立一个 Form8 ，默认格式即可。在其中加入退房所需控件：1DBNavigator 如图:将其与数据库中表krxx链接后，输入证件号码单击DBNavigator控件上的2可 以突出显示选择的信息，然后点击退房可以实现退房功能。4.1.2进行窗体之间的转换(1)在form3中进行密码设置，双击登录按钮进行代码输入如下: var results: Varia nt;BE

28、GINresults:=ADOTable1 丄ookup（'姓名',edit1.text,'密码'）;if results=edit2.Text the n beg in form3.Hide;form1.Show;end else beg inappiication.MessageBox（'姓名或密码错误','提示信息,64）;edit1.SetFocus;exit;end;end;退出代码为:close;(2)在form1中进行剩余各form间的连接，在form1中分别单击要实现的功能菜单按钮，并分别输入代码，得到的最后代码如下: p

29、 rocedure TForm1.N2Click(Se nder: TObject);beg in form1.Hide;form2.showmodal;end;p rocedure TForm1.N3Click(Se nder: TObject);beg in form1.Hide;form4.showmodal;end;p rocedure TForm1.N4Click(Se nder: TObject);beg in form1.Hide;form5.ShowModal;end;p rocedure TForm1.N5Click(Se nder: TObject);beg in form

30、1.Hide;form6.ShowModal;end;p rocedure TForm1.N6Click(Se nder: TObject);beg informl.hide;form7.ShowModal;end;p rocedure TForm1.N8Click(Se nder: TObject);beg in form1.hide;form8.ShowModal;end;p rocedure TForm1.N7Click(Se nder: TObject);beg in close;end;p rocedure TForm1.FormCreate(Se nder: TObject);be

31、g in end;并且要在uint1的连接代码上添加:usesWindows,Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms,Dialogs, Me nus, DB, ADODB,u nit2,u nit4,u nit5,u nit6,u nit7,u nit8,;在form2中进行和form1间的转换，代码如下:双击关闭按钮添加代码:form2.close;forml.show;（4）在form4 ,form5 ,form6 ,form7中进行formi间的转换，代码类似（3）。3、formi中退出菜单的实现双击

32、退出菜单进行代码输入：close;即可。至此完成了菜单管理的实现，可以运行后进行各功能的实现。代码设计Private Sub Toolbar1_Butto nClick(ByVal Button As MSComctILib.Butt on)Select Case Butt on .KeyCase "DJ"zsdj_ClickCase "TF"tf_ClickCase"FT"ftck_ClickCase "CX"zscx_ClickCase "exit"If MsgBox（"确定退出该

33、系统？ ", 4,"系统提示"）=vbYes ThenEndEnd IfEnd SelectEnd SubPrivate Sub sztx_Click()Dim StrCommon Dialog1.Filter"BMP 图 片(*.B MP )|*.B MP |J PG图 片(*.JPG)|*.JPG|GIF 图片(*.GIF)|*.GIF| 所有文件(*)|*"Common Dialog1.Show OpenIf Commo nDialog1.FileName <> "" ThenImage2 .Pi ctur

34、e = Load Pi cture(Com mon Dialog1.FileName)Str = Common Dialog1.FileNameOpen (App.P ath & "picture.txt") For Out put As #1Print #1, StrClose #1Commo nDialog1.FileName =""ElseCommo nDialog1.FileName =""End IfEnd SubPrivate Sub sjbf_Click() main_sjbf.Show main.En able

35、d = FalseEnd SubPrivate Sub sjhf_Click() main_sjhf.ShowEnd SubPrivate Sub zsdj_Click()main_kfdj.Showmain.En abled = FalseEnd SubPrivate Sub tf_Click()main_tf.Showmain.En abled = FalseEnd SubPrivate Sub kfcx_Click()main_kfcx.Showmain.En abled = FalseEnd SubPrivate Sub ftck_Click()main_ftcx.Showmain.E

36、n abled = FalseEnd SubPrivate Sub zscx_Click()Load main _zscxmain_zscx.Showmain.En abled = FalseEnd SubPrivate Sub tfcx_Click()Load main_tfcxmain_tfcx.Showmain.En abled = FalseEnd Sub4.1.3系统登录模块设计窗体设计添加新窗体，命名为 main_Login , Caption属性为“酒店客房管理系统”;添加Adodc控件以及两个TextBox控件，Text1放在用户名后，Text2放在密码后;添加两个Image控

37、件，分别设置Picture属性，添加“确定”和“退出”按钮。代码设计Private Sub lmage1_Click()If TextI.Text = 7 And Text2.Text = 123456 Thenmain .ShowMe.HideElseMsgBox "密码错误！ ", vbCritical,"提示"End IfEnd SubPrivate Sub Image2_Click()EndEnd Sub4.1.4住宿登记模块窗体设计添加新窗体命名为 main_kfdj , Caption属性为“住宿登记”;添加两个Adodc控件、TextBox

38、控件数组以及2个DTPicker控件;添加3个ComboBox 控件。住宿登记:房頂号码：f晋W拚格I;期:：211 ：寸客辱蘸订住蓿0期一；|2014-11-63：住宿天魏：IS记 I： 确定 I:取消 j.退出代码设计Private Sub comdj_Click()Adodcl.Co nn ectio nStri ng = "P ROVIDER=MSDASQL;DRIVER=OracleinOraDb11g_home1;""server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=房态='

39、;空房'"scott; PWD=123456"AdodcI.RecordSource = "select * from tb_kf whereAdodc1.RefreshAdodc2.Co nn ectio nStri ng = "P ROVIDER=MSDASQL;DRIVER=OracleinOraDb11g_home1;""server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=凭证号码"scott; PWD=123456"Adodc2

40、.RecordSource = "select * from tb_djb order byAdodc2.RefreshIf Not Adodc2.Recordset.EOF The n Adodc2. Recordset.MoveLastIf Isp h.Text = "" The n bh.Text = Fdate & "d" & Format(1, "#000")If Isp h.Text <> "" Theny1.Text = Mon th(Fdate) y2.Text

41、 = Mo nth(Left(ls ph.Text, 10)If y1.Text = y2.Text Then'bh.Text = Fdate & "d" & Format(Val(Right(ls ph.Text, 3) + 1,"#000")Text1.Text = Val(Right(ls ph.Text, 3) + 1End IfIf y1.Text <> y2.Text Thenbh.Text = Fdate & "d" & Format(1, "#000&quo

42、t;)End IfEnd IfFor i = 0 T o 2ZSDJ(i).Text =""ZSDJ(i).E nabled = TrueNext iFor i = 4 T o 6ZSDJ(i).Text =""ZSDJ(i).E nabled = TrueNext iCombo3.Text =""Comok.E nabled = True: Comdj.E nabled = FalseCombo3.E nabled = True: Combo1.E nabled = TrueZSDJ(0).SetFocusAdodc3.C onn

43、ecti on Stri ng"P ROVIDER=MSDASQL;DRIVER=Oraclein OraDb11g_home1 ;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott; PWD=123456"Adodc3.RecordSource = "select * from tb_kf where房态='空房'"Adodc3.RefreshCombo3.ClearIf Adodc3.Recordset.RecordCo

44、u nt > 0 ThenFor i = 1 To Adodc3.Recordset.RecordCou ntCombo3.AddItem Adodc3.Recordset.Fields("房间号").ValueAdodc3.Recordset.MoveNextNext iEnd IfEnd SubPrivate Sub comok_Click()If ZSDJ(O) = "" Or Combo3 = "" The nMsgBox "请输入完整信息","系统提示"ElseAdodc2.Re

45、cordSource = "select * from tb_djb where房间号='"& Combo3.Text & "' and 标志 like '1'"Adodc2.RefreshIf Adodc2.Recordset.RecordCou nt = 0 ThenAdodc2.Recordset.AddNewIf bh.Text <> "" The n Adodc2. Recordset.Fields("凭证号码")=bh.TextIf ZSDJ(

46、O).Text <> "" The n Adodc2.Recordset.Fields("姓名")=ZSDJ(O).TextIf Combol.Text <> "" The n Adodc2 .R ecordset.Fields("证件名称")=Combol.TextIf ZSDJ(1).Text <> "" The n Adodc2.Recordset.Fields("证件号码")=ZSDJ(1).TextIf ZSDJ(2).Text

47、<> "" The n Adodc2.Recordset.Fields("详细地址")=ZSDJ(2).TextIf Combo3.Text <> "" The n Adodc2 .R ecordset.Fields("房间号")=Val(Combo3.Text)If ZSDJ(4).Text <> "" The n Adodc2.Recordset.Fields("客房类型")=ZSDJ(4).TextIf DTP 1.Value <

48、;> "" The n Adodc2.Recordset.Fields("住宿日期")=DTP 1.ValueIf ZSDJ (5).Text <> "" The n Adodc2.Recordset.Fields("客房价格")=Val(ZSDJ(5).Text)If ZSDJ(6).Text <> "" The n Adodc2.Recordset.Fields("住宿天数")=ZSDJ(6).TextIf ZSDJ(7).Text <

49、> "" The n Adodc2.Recordset.Fields("宿费")=ZSDJ(7).TextIf DTP 3.Value <> "" The n Adodc2.Recordset.Fields("退宿日期")=DTP 3.ValueAdodc2.Recordset.U pdateAdodc2.Refreshadoc on.Open"P rovider=Microsoft.Jet.OLEDB.4.O;DataSource=" & App.P ath &

50、; "DB_KFGL.mdb; Persist Security In fo=False"adoRs. Open "select * from tb_djys", adoc on, adOpen Keyset,adLock Op timisticadoRs.AddNewIf bh.Text <> "" Then adoRs.Fields("凭证号码")=bh.TextIf ZSDJ(O).Text <>"" Then adoRs.Fields("姓名"

51、)ZSDJ(O).TextIfCombol.Text<>IlliThe nadoRs.Fields("证件名称")Combol.TextIfZSDJ(1).Text<>IlliThe nadoRs.Fields("证件号码")ZSDJ(1).TextIfZSDJ(2).Text<>IlliThe nadoRs.Fields("详细地址")ZSDJ(2).TextIfZSDJ(4).Text<>IlliThe nadoRs.Fields("客房类型")ZSDJ(4).T

52、extIfCombo3.Text<>""Then adoRs.Fields("房间号")Val(Combo3.Text)If ZSDJ(5).Text<>IlliThe nadoRs.Fields("客 房价格")Val(ZSDJ (5).Text)IfDTP 1.Value<>IlliThe nadoRs.Fields("住宿日期")DTP 1.ValueIfZSDJ(6).Text <>IlliThe nadoRs.Fields("住宿天数")

53、IfIfZSDJ(6).TextZSDJ.Text <>"" Then adoRs.Fields("宿费")ZSDJ(7).TextDTP3.Value <>"" Then adoRs.Fields("退宿日期")DTP 3.ValueadoRs.U pdate adoc on .CloseAdodd.RecordSource= "select * from tb_kf where 房间号房态")like '" + Combo3.Text + "”'If Combo3.Text <> "" The n Adodc1 .R ecordset.Fields("="入住"AdodcI.Recordset.U pdateFor i = 0 To 6ZSDJ(i).E nabled = FalseNext iZSDJ(8).E nabledFalse: ZSDJ(10).E nabledFalse:ZSDJ(11).E nabled = Fa