oracle酒店管理系统

1、Oracle数据库的设计与实现选题名称：酒店管理系统姓 名：学 号：专 业：班 级：指导教师：设计地点:、系统需求分析1.1系统开发的目的和意义 31.2系统要求 31、系统总体设计2.1系统功能需求 42.2系统数据需求 42.3系统功能结构图 52.4系统局部流程图 5三、数据库设计3.1数据库概念模型 73.2数据库物理模型 83.3酒店管理系统局部数据字典-9四、系统实现过程4.1设计过程 114.2系统各界面设计代码 28五、实验总结5.1实验中遇到的问题 355.2心得体会 35、系统需求分析首先应该在此次实践中有所收获，能够学习到相关软件的功能，和进展实践设计需要的知识的。能够在

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

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

4、菜系名称，备注。F00菜品菜品编号，菜单编号，所属菜系，菜品名称，菜品价格，助记 码，备注。FOODTICKE餐饮订单订单编号，餐桌编号，下单服务员编号，点菜时间, 订单状态，备注。ROOMCUSTIN住房客户信息表住户编号，客房类别编号，住户某某，住 户省份证号。FOODLIS菜单菜单编号，餐桌编号，菜品编号，厨师编号，状态，备注ROOMTYI客房类别表客房类别编号，客房类型名称，客房类别价格，备 注。ROOMINF客房信息表房间编号，客房类别编号，客房状态，备注。ROOMTICKE客房订单管理表订单编号，房间号，下单服务员ID，某某号, 入住时间，离开时间，押金金额，结算金额，下单时间，备

5、注。CUSTINF客户信息表 某某号，客户某某，客户性别，客户，是否会员， 信息录入时间，备注。USER用户信息表用户编号，角色编号，部门编号，用户名，用户密码， 是否审核通过，年龄，性别，生日，联系，备注。ROLE用户角色表角色编号，角色名，备注。DEPARMEN部门表部门编号，名称，上级部门编号，备注。PERMISSIONS限表权限编号，权限组编号，权限名称，备注。ROLEPE角色-权限关联表角色权限编号，角色编号，权限编号。PERMISSIONGRO权限组表权限组编号，权限组名称。酒店管理系统功能结构如图2-3所示图2-3系统功能结构图客房订单流程图如图2-4所示图2-4客房订单管理流程

6、图餐饮局部开台流程图如图2-5所示三、数据库设计数据库概念模型图如图3-1所示:ROOMTYPEROOMTYPEID<pi>N100<M>ROOMTYPENAME ROOMTYPEPAYVA20N20ROOMTYPEREMARKTXT100Identfier_1 <pi>Relaiionship_15ROOMINFOROOMCUSTINFOROOMCUSTIDXpiA N<M>CNAMEVA15CIDVA20Identifier_1 <pi>PERMISSIONGROUPGROUPID <pi> IGROUPNAMEVA1

7、5Identifier_1 <pi>0<M>shuyu1PERMISSIONPERMISSIONID <pi>IPERMISSIONNAMEVA20PERMISSIONURLVA25PERMISSIONNOTETXT6Ildentifier_1 <pi>aRelatiopship_4ROLEROLEID <pi> I<M>ROLENAMEVA20ROLENOTETXT60dentifier_1 <pi>ROOMID <pi> N20<M>ROOMCHECK N10ROOMREMARKId

8、entifier_1 <pi>ROOMTICKETORDERID<pi>NCLI ENTINDATEVA20CLIENTOUTDATEVA20CLI ENTMARGINN20CLI ENTAMOUNTN20ORDERTIMEVA20ORDERREMARKTXT100<M>Identifier_1 <pi>Relation'ship_ 仃ORDERIDTXT100CARDIDCUSTINFO<pi>CUSTSEX CUSTPHONE-o-冷0- VIPCHECK恳gtionshiP/CuSTDATEIdentifier_1 &l

9、t;pi>Relationship 13VA20 <M>VA10VA20N10VA20DESKTYPEID<pi>N<M>DESKSEATNUMBERN<M>DESKDIRECTIONVA10<M>DESKTYPEREMARKVA50DESKTYPEIdentifier_1 <pi>FOODTICKETORDERTIME<pi><M>Relationship_5VA20<M>REALPAYMONEYTOTALMONEYORDERSTATUSORDERREMARKldentifier

10、_1 <pi>Relatihip_11<M>VA50Relationship_16-"-Relationsbip_14DESKIDDESK<pi> NDESKISUSING NDESKREMARKVA50<M><M>Identifier_1 <pi>DEPARTMENTDEPARTMENTID <pi> DEPARTMENTNAME DEPARTMENTNOTE PARENTIDIVA10TXT6(Identifier_1 <pi>4 shuyuUSERID<pi>IUSERN

11、AMEVA10USERPWDVA20USERNOTETXT60REALNAMEVA20USERAGEIUSERSEXVA5USERINDATEVA20USERPHONEVA15USERS<M>Identifier_1 <pi>MENUREMARKFOODLISTFOODLISTID <pi> FOODSTATUS<M>VA20 <M>VA50FOODTYPEFOODTYPEIDFOODTYPENAME<pi><M>VA20 <M>FOODTYPEREMARKIdentifier_1 <pi&g

12、t;VA50Identifier_1 <pi>Relatjdnship_6Relationship_8FOODID<pi>N<M>FOODNAMEVA20<M>FOODPRICEN<M>FOODHELPCODEVA10<M>FOODREMARKVA50Identifier_1 <pi>FOOD图3-1数据库概念模型图数据库物理模型图如图3-2所示:ROOMTYPEROOMTYPEIDNUMBER(10<pk> ROOMTYPENAMVARCHAR2(20) ROOMTYPEPAY NUMBER(20

13、) ROOMTYPEREMCERKBf FROOMINFOROOMCUSTINFOROOMCUSTNUMBER <pk>NUMBER <fk>ROOMID NUMBER(2G)pk： ROOMTYPEIDUMBER(1«k> ROOMCHECKUMBER(10) ROOMREMARLOBORDERIDCNAMECIDVARCHAR2(15)VARCHAR2(20)PERMISSIONGROUPGROUPID INTEGER <pk>GROUPNAMARCHAR2(15)FK_PORDERIDUSERIDCARDIDPERMISSIONPERM

14、ISSIONIDINTEGER <pk>INTEGER <fk>ROUPIDPERMISSIONNAMARCHAR2(20)PERMISSIONUFVARCHAR2(25)PERMISSIONNOTOBR9ROLEPERROLEPERID INTEGERpk：ROLEID INTEGERfk1>PERMISSIONNDTEGERfk2>ROLEDEPARTMENTDEPARTMENTIDINTEGER <pk>DEPARTMENTNAARCHAR2(10)DEPARTMENTNOTOBPARENTIDINTEGERROOMTICKETNUMBER

15、 <pk>INTEGER <fk1>VARCHAR2(<k2>NUMBER(20<fk3>ROOMIDCLIENTINDATEVARCHAR2(20)CLIENTOUTDATRCHAR2(20)CLIENTMARGINUMBER(20)CLIENTAMOUNUMBER(20) ORDERTIME VARCHAR2(20) ORDERREMAFCLOBFOODTICKETFK R4ORDERIDUSERID CARDIDNUMBER <pk>INTEGER <fk1>VARCHAR2(<k2>VARCHAR2(2

16、0)FK T1CUSTINFOCARDID VARCHAR2(20X：CUSTSEX VARCHAR2(10)CUSTPHONVARCHAR2(20) VIPCHECKNUMBER(10)CUSTDATEVARCHAR2(20)DESKTYPEDESKTYPEID NUMBER <pkDESKSEATNUMENUMIBERDESKDIRECTIONVARCHAR2(10)DESKTYPEREMARRCHAR2(50)TICKET DESKTDID NUMBERpk：ORDERIDUMBERfkl：FK_R0ORDERTIMETOTALMONEYNUMBERORDERSTATUISUMBE

17、RORDERREMARVARCHAR2(50)USERSREALPAYMONEUMBERROLEID INTEGER <pk>ROLENAMARCHAR2(20) ROLENOTELOBFK F6FK UUSERIDROLEIDINTEGERINTEGER<pk><fk2>DESKIDNUMBERfk2>FK D1T2DESKDESKIDDESKISUSINGJMBERDESKREMAVARCHAR2(50)NUMBER<pkDESKTYPEIDUMBER<fkDEPARTMENWEGERUSERNAMEUSERPWDUSERNOTEREA

18、LNAMEUSERAGEUSERSEX<fk1>VARCHAR2(10)VARCHAR2(20) CLOBVARCHAR2(20)INTEGERVARCHAR2(5)USERINDATEVARCHAR2(20)USERPHONEVARCHAR2(15)FK_F5FOODLISTIDNUMBER <pk> FOODIDNUMBER<fk1：USERIDINTEGER<fk3：ORDERID NUMBER <fk2： FOODSTATUSSARCHAR2(20) MENUREMAVARCHAR2(50)FKF8FOODLIST图3-2数据库物理模型图FOO

19、DTYPEFOODTYPEID NUMBER <pk>FOODTYPENAMVARCHAR2(20)FOODTYPEREMARRCHAR2(50)FOODNUMBER <pk>FOODTYPEID NUMBER <fk>FOODIDFOODNAME VARCHAR2(20)FOODPRICE NUMBERFOODHELPCOVARCHAR2(10)FOODREMARKARCHAR2(50)本系统数据库采用Oracle数据库，系统数据库名称为HotelDB，共包含17X表。菜系表：用来存储菜系的信息，其中FOODTYPEI段为主键。表 3-3-1 菜系：FOO

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

21、(20)NOT菜品名称FOODTYPEIDNUMBER(5)NOTYESFOODYPE所属菜系IDFOODPRICENUMBER(5)NOT菜品价格FOODHELPCODVARCHARNOT助记码E2(10)FOODREMARKVARCHAR2(50)YES备注客房类别表：用来存储客房类别的信息,表3-3-3客房类别表： ROOMTYPE字段名称类型允许空主键外键外键参考表说明ROOMTYPEIDNUMBER(5)NOTYES客房类别编号ROOMTYPENAMEVARCHAR2(20)NOT客房类别名称ROOMTYPEPAYNUMBER(5)NOT类别价格ROOMTYPEREMARKVARCH

22、AR2(50)NOT备注客房信息表：用来存储客房信息。表3-3-4客房信息表：ROOMINFO字段名称类型允许空主键外键AL A?-# 4占丰说明外键参考表ROOMIDNUMBER(5)NOTYES房间编号ROOMTYPEIDNUMBER(5)NOTYESROOMTYPE客房类别编号续表5-4字段名称类型允许空主键外键外键参考表说明ROOMCHECKNUMBER(5)NOT客房状态ROOMREMARKVARCHAR2(50)YES备注客户信息表：用来存储酒店客户的相关信息。表3-3-5客户信息表：CUSTINFO字段名称类型允许空主键外键外键参考表说明CARDIDVARCHAR2(20)NOT

23、YES某某号CUSTNAMEVARCHAR2(20)NOT某某CUSTSEXVARCHAR2(10)NOT性别CUSTPHONEVARCHAR2(20)YESVIPCHECKNUMBER(5)YES是否会员CUSTDATEVARCHAR2(20)YES信息录入时间四、系统实现过程新建一个标准工程，会出现forml，可以遵循默认格式，也可以更改名称，这 里默认。添加所需控件mainmenu,双击控件在其中参加所要进展的功能如下：步 Farm 1卷 Forml I-IKI9I-III-IKI9I-II!11 r F H bsBiBriainiia“ Tr*BnciBriainnaMwriBr-ee

24、"1!?-!！!ifjigiipyBfiigmgiipjaplriigIarr)a|nBF|Bg|UBjaps|g|UBjaps|g|s * ! - SI.4Kial.lSI.JKIJK&iia！ aaiaBiBitiBiaaiBa u '添加控件Image插入图片，选中image控件，在其属性表中选中picture，选择 需要的图片：再建立一个Form2,默认格式即可。在其中参加客房登记所需控件:再建立一个Form3,默认格式即可,并且在project-options 中设置其为主窗 体。在其中参加客房登记所需控件,8个label , 8个Edit，两个bitbtn

25、如图：二桂宕：LA Fo 10*14客人信息查询？i: :»備隹rtir n r ai _ d d -a111Ml u7芙协可以在bitbtn按钮中添加图片，使其更加生动，选中按钮，在其属性选择Glyph， 选择需要的图片即可，注意图片格式要符合要求，还可以为界面换颜色。再建立一个Form4,默认格式即可。在其中参加客人信息查询所需控件，1个DBGridlabel ， 一 个 Edit ，2 个按钮，1 个这里需要数据库，与krxx表中的信息进展。连接方式为: 首先添加一个数据模板datemodule ，然后选择 ADOQuery控件和datasource 控件添加到数据模板，选中A

26、DOQuery空件，在其属性中找到connectionstring ， 进展数据库的，选择再建立一个Form5,默认格式即可。在其中参加客房登记所需控件，和上面一样：这个窗体也要进展数据库，过程和上面一样，只是的表名不同，这里的是kfxx表。双击确定添加代码如下：with Data3.ADOQuery1 dobegi nClose;SQL.CIear;SQL.Add('select * from fjxx where房间=:a');Parameters.ParamByName('a').value:=Trim(edit1.Text);Ope n;end;关闭键的

27、代码如下：form5.close;forml.show;这样就完成了房间信息查询的操作。(7)再建立一个Form6,默认格式即可。在其中参加查看酒店信息所需控件：1 个 label ,1 个 按 钮， 1 个 DBGrid画二爻1酒店基本信息 样这里主要就是数据库的，改用另外一种方式为:首先再建立一个Form7,默认格式即可。在其中参加查看客房信息所需控件，和 7一样，不过这里可以采用5的方法进展数据库的。再建立一个再建立一个Form8，默认格式即可。在其中参加退房所需控件：1个 label ， 1 个 Edit，两个 bitbtn ， 1 个 DBGrid，和一个 DBNavigator 如

28、图：将其与数据库中表krxx后，输入证件单击DBNavigator控件上的V可以突出显 示选择的信息，然后点击退房可以实现退房功能。进展窗体之间的转换1在form3中进展密码设置，双击登录按钮进展 代码输入如下：varresults: Varia nt;BEGINresults:=ADOTable1 丄 ookup（'某某',edit1.text,'密码'）;if results=edit2.Text the nbeg inform3.Hide;forml.Show;endelsebeg in即plication.MessageBox('某某或密码错误&

29、#39;,'提示信息',64);editl.SetFocus;exit;end;end;退出代码为：close; 2在form1中进展剩余各form间的连接，在form1中分 别单击要实现的功能菜单按钮，并分别输入代码，得到的最后代码如下：procedure TForm1.N2Click(Se nder: TObject);beg inform1.Hide;form2.showmodal;end;procedure TForm1.N3Click(Se nder: TObject);beg inform1.Hide;form4.showmodal;end;procedure TF

30、orm1.N4Click(Se nder: TObject);beg in form1.Hide;form5.ShowModal;end;procedure TForm1.N5Click(Se nder: TObject);beg inform1.Hide;form6.ShowModal;end;procedure TForm1.N6Click(Se nder: TObject);beg inform1.hide;form7.ShowModal;end;procedure TForm1.N8Click(Se nder: TObject);beg inform1.hide;form8.ShowM

31、odal;end;procedure TForm1.N7Click(Se nder: TObject);beg inclose;end;procedure TForm1.FormCreate(Se nder: TObject);beg inend;并且要在uint1的连接代码上添加：usesWin dows, Messages, SysUtils, Varia nts. Classes, Graphics, Con trols.Forms,Dialogs, Me nus, DB, ADODB,u nit2,u nit4,u nit5,u nit6,u nit7,u nit8,;在form2中进

32、展和form1间的转换，代码如下：双击关闭按钮添加代码：form2.close;form1.show;4在form4，form5，form6，form7中进展form1间的转换，代码类似3。3、form1中退出菜单的实现双击退出菜单进展代码输入：close;即可。至此完成了菜单管理的实现，可以运行后进展各功能的实现。代码设计Private Sub Toolbar1_Butto nClick(ByVal Button As MSctlLib.Butt on)Case "DJ"zsdj_ClickCase "TF"tf_ClickCase"FT&q

33、uot;ftck_ClickCase "CX"zscx_ClickCase "exit"If MsgBox(确定退出该系统？ ", 4,"系统提示")=vbYes ThenEndEnd IfEnd SelectEnd SubPrivate Sub sztx_Click()Dim StrmonDialog1.Filter = "BMP 图片(*BMP)|*.BMP|JPG 图片(*JPG)|*JPG|GIF 图片(*.GIF)|*.GIF| 所有文件(*)|*"If mon Dialog1.FileName

34、 <> "" ThenImage2.Picture = LoadPicture(m on Dialog1.FileName)Ope n (App.Path & "picture.txt") For Output As #1Print #1, StrClose #1mon Dialog1.FileName =""Elsemon Dialog1.FileName =""End IfEnd SubPrivate Sub sf_Click() main.En abled = FalseEnd SubPr

35、ivate Sub sjhf_Click()End SubPrivate Sub zsdj_Click()main.En abled = FalseEnd SubPrivate Sub tf_Click() main.En abled = FalseEnd SubPrivate Sub kfcx_Click()main.En abled = FalseEnd SubPrivate Sub ftck_Click()main.En abled = FalseEnd SubPrivate Sub zscx_Click()Load main zscxmain.En abled = False End

36、SubPrivate Sub tfcx_Click()Load main_tfcxmain.En abled = FalseEnd Sub系统登录模块设计 窗体设计添加新窗体，命名为 main_Login , Caption属性为“酒店客房管理系统"；添加Adodc控件以与两个TextBox控件，Text1放在用户名后，Text2放在密 码后；添加两个Image控件，分别设置Picture属性，添加“确定"和“退出"按钮。 代码设计Private Sub Image1_Click()If Text1.Text = 7 And Text2.Text = 123456

37、 The nElseMsgBox '密码错误! ", vbCritical,"提示"End IfEnd SubPrivate Sub lmage2_Click()EndEnd Sub窗体设计 添加新窗体命名为 main_kfdj , Caption属性为“住宿登记"；添加两个Adodc控件、TextBox控件数组以与2个DTPicker控件;添加3个boBox控件。代码设计Private Sub dj_Click()Adodc1.Co nn ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oracle

38、i n OraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=1 23456"AdodcI.RecordSource = "select * from tb_kf where 房态='空房'"Adodc2.Co nn ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oraclei n OraDb11g_home1;"&"ser

39、ver=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=1 23456"Adodc2.RecordSource = "select * from tb_d order by 凭证"If Isph.Text = "" Then bh.Text = Fdate & "d" & Format(1, "#000")If Isph.Text <> "" The nyl.Text = Mon

40、 th(Fdate)y2.Text = Mon th(Left(Isph.Text, 10)If yl.Text = y2.Text The n'bh.Text = Fdate & "d" & Format(Val(Right(lsph.Text, 3) + 1, "#000")Textl.Text = Val(Right(lsph.Text, 3) + 1End IfIf yl.Text <> y2.Text The nbh.Text = Fdate & "d" & Format(

41、1, "#000")End IfEnd IfFor i = 0 To 2ZSDJ(i).Text =""ZSDJ(i).E nabled = TrueNext iFor i = 4 To 6ZSDJ(i).Text =""ZSDJ(i).E nabled = TrueNext ibo3.Text =""ok.E nabled = True: dj.En abled = Falsebo3.E nabled = True: bo1.E nabled = TrueZSDJ(0).SetFocusAdodc3.Co nn

42、ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oracien OraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=1 23456"Adodc3.RecordSource = "select * from tb_kf where 房态='空房'"If Adodc3.Recordset.RecordCou nt > 0 The n(房间号"

43、;).Value Next iEnd IfEnd SubPrivate Sub ok_Click()If ZSDJ(O) = "" Or bo3 = "" The nMsgBox "请输入完整信息","系统提示ElseAdodc2.RecordSource = "select * from tb_d where 房间号 ='"& bo3.Text& "' and 标志 like '1'"If Adodc2.Recordset.Record

44、Cou nt = 0 ThenIf ZSDJ(O).Text<> "" Then Adodc2.Recordset.Fields("某某")=ZSDJ(O).TextIf ZSDJ(1).Text<> "" Then Adodc2.Recordset.Fields("证件")= ZSDJ(1).Text(详羊细地址")=ZSDJ (2).TextIf bo3.Text <> "" Then Adodc2.Recordset.Fields('房

45、间号")=Val(bo3.Text)If ZSDJ(4).Tex<> "" Then Adodc2.Recordset.Fields(客房类型")=ZSDJ .TextIf ZSDJ(5).Tex<> "" Then Adodc2.Recordset.Fields(客房价格")= Val(ZSD J( 5).Text)If ZSDJ(6).Tex<> "" Then Adodc2.Recordset.Fields(住宿天数")= ZSDJ (6).TextIf

46、 ZSDJ.Text<> "" Then Adodc2.Recordset.Fields("宿费")=ZSDJ .Textadoc on .Ope n "Provider=Microsoft .J et.OLEDB.4.0;Data Source=" & App.Path & "DB_KFGL.mdb;Persist Security In fo=False"adoRs.Open "select * from tb_djys", adocon, adOpenKeyse

47、t, adLockOptimisticIf ZSDJ(0).Text <> "" The n adoRs.Fielc某某")=ZSDJ(0).TextIf ZSDJ(1).Text <> "" Then adoRs.Fielc证件")=ZSDJ(1).TextIf ZSDJ(2).Text <> "" Then adoRs.Field详细地址")=ZSDJ(2).TextIf ZSDJ(4).Text <> "" Then adoRs.F

48、ield客房类型")=ZSDJ.TextIf bo3.Text <> "" The n adoRs.Fields房 间号")=Val(bo3.Text)If ZSDJ(5).Text <> "" Then adoRs.Field客房价格")=Val(ZSDJ(5).Text)If ZSDJ(6).Text <> "" Then adoRs.Field住宿天数")=ZSDJ(6).TextIf ZSDJ(7).Text <> ""

49、 Then adoRs.Field宿费")=ZSDJ(7).TextAdodc1.RecordSource= "select * from tb_kf where 房间号 like '" + bo3.Text + "”'房 态")="入住"For i = 0 To 6ZSDJ(i).E nabled = FalseNext iZSDJ(8).E nabled = False: ZSDJ(10).E nabled = False: ZSDJ(11).E nabled =Falsebo3.E nabled = F

50、alse: bo1.E nabled = FalseEnd If ok.E nabled = False: prin t.E nabled = True: dj.E nabled = TrueEnd IfEnd SubPrivate Sub can cel_Click()For i = 0 To 2ZSDJ(i).E nabled = FalseNext iFor i = 4 To 6ZSDJ(i).E nabled = FalseNext iok.E nabled = False: bo3.E nabled = False bo1.E nabled = False: DTP3.E nable

51、d = False dj.En abled = TrueEnd SubPrivate Sub en d_Click()Un load Memain.En abled = TrueEnd Sub按照如上方法设计窗体如下:代码设计:Private Sub Form_Load()Adodcl.Co nn ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oraclei n OraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=

52、scott;PWD=1 23456"Adodc1.RecordSource = "select * from tb_d"Adodc2.C onn ectio nStri ngOraDb11g_home1"PROVIDER=MSDASQL;DRIVER=Oraclein;" &"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=123456"Adodc2.RecordSource = "select * from tb

53、_kf"Adodc3.Co nn ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oraclei n OraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=1 23456"Adodc3.RecordSource = "select * from tb_gzmx"Adodc4.Co nn ectio nStri ng = "PROVIDER=MSDAS

54、QL;DRIVER=Oraclei n OraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=1 23456"Adodc4.RecordSource = "select * from tb_djys"Adodc5.Co nn ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oraclei n OraDb11g_home1;"&"server=

55、webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=1 23456"Adodc5.RecordSource = "select凭证 from tb_d where 标志='1'order by 凭证IIIf Adodc5.Recordset.RecordCou nt > 0 Then'bo4.Addltem Adodc5.Recordset.Fields（凭证"）.Value'Next i'End IfEnd Sub-private Sub F

56、ormlACHVafeo-czy.Texf H main.ssreSBalM .pane-ss.Texf czy-DTP2.va-ue H Da莎 Hm2.va-ue H Timeprivate Sub b04lc=ck()_f bopTexf Av = ThenAdodcl 力02.5011§ H =se-ecf * from fbld where沖sH-= + b04.Texf +-f Adodck力 ecordseFRecordcounf V 0 Then-f Adodck力 ecodser*Fie-ds(=*=) Av = Then Texxm.Texf H Adodck力 ecodse!-*Fie-ds(»*=)-f Adodcl 力 codser*Fie-ds(-saw=) Av -三 Then bol.Texf H Adod