oracle酒店管理系统方案

1、Oracle数据库的设计与实现选题名称：酒店管理系统姓 名：学 号：专 业：班 级：指导老师：设计地点：能结构图分流程图概念模型物理模型数据字典系统需求分析1.1 系 统 开 发 的 目 的 和 意 义 31.2 系 统 要 求 3 系统总体设计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一、系统需求分析1.1 系统开发的目的和意义 首先应该在此次实践

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

3、改、删除及查询；客房信息的添 加、修改、删除及查询；订单查询及退房管理等。二、 系统总体设计2.1 系统功能需求 通过对互联网上的各大酒店管理系统的认识和分析， 我对酒店管 理系统有了基本的了解， 我觉得该系统至少应该具有以下的一些基本 功能：(1) 系统管理模块 : 包括登录系统，用户管理，权限管理，角色管理，以及查询统计，客户管理折扣管理和开台管理等。(2) 基本设置管理模块：包括厨师的管理，买单管理等。(3) 客户管理模块：包括客户点菜，上菜，结账，统计等。(4) 客户订房管理模块：包括订房，续房，查房，退房，结算 等。2.2 系统数据需求根据数据需求分析可知该系统至少应该具有以下的一些

4、数据需求：DESKTYP餐桌类别表(餐桌类别编号，餐桌座位数，餐桌方位，备注)DESK餐桌表（餐桌编号，餐桌类别编号，餐桌状态，备注）。FOODYF菜系（菜系编号，菜系名称，备注）。F00菜品（菜品编号，菜单编号，所属菜系，菜品名称，菜品价格，助记 码，备注）。FOODTICKE餐饮订单（订单编号，餐桌编号，下单服务员编号，点菜时间， 订单状态，备注）。ROOMCUSTIN住房客户信息表（住户编号，客房类别编号，住户，住户省 份证号）。FOODLIS菜单（菜单编号，餐桌编号，菜品编号，厨师编号，状态，备注）。ROOMTYI客房类别表（客房类别编号，客房类型名称，客房类别价格，备 注）。ROOM

5、INF客房信息表（房间编号，客房类别编号，客房状态，备注）。ROOMTICK客房订单管理表 （订单编号，房间号，下单服务员ID，号，入 住时间，离开时间，押金金额，结算金额，下单时间，备注）。CUSTINF客户信息表 （号，客户，客户性别，客户，是否会员，信息录入 时间，备注）。USER用户信息表（用户编号，角色编号，部门编号，用户名，用户密码， 是否审核通过，年龄，性别，生日，联系，备注）。ROLE用户角色表（角色编号，角色名，备注）。DEPARMEN部门表（部门编号，名称，上级部门编号，备注）。 PERMISSIONS限表（权限编号，权限组编号，权限名称，备注）。 ROLEPE角色-权限关

6、联表（角色权限编号，角色编号，权限编号）。 PERMISSIONGRO权限组表（权限组编号，权限组名称）。2.3系统功能模块图酒店管理系统功能结构如图2-3所示图2-3系统功能结构图2.4系统部分流程图客房订单流程图如图2-4所示图2-4客房订单管理流程图餐饮部分开台流程图如图2-5所示三、数据库设计3.1数据库概念模型数据库概念模型图如图3-1所示:ROOMTYPEROOMTYPEID<pi>N100<M>ROOMTYPENAMEVA20ROOMTYPEPAYN20ROOMTYPEREMARKTXT100ldentifier_1 <pi>Relations

7、hip_15ROOMCUSTINFOROOMCUSTIDXpiA N<M>CNAMEVA15CIDVA20Identifier_1 <pi>ROOMTICKETCUSTINFOPERMISSIONGROUPGROUPID <pi> I<M>GROUPNAMEVA15Identifier_1 <pi>ORDERID<pi>NCLI ENTINDATEVA20CLIENTOUTDATEVA20CLI ENTMARGINN20CLI ENTAMOUNTN20ORDERTIMEVA20ORDERREMARKTXT100<M&

8、gt;Identifier_1 <pi>Relationship.CARDIDCUSTSEX<pi>VA20 <M>VA10CUSTPHONEVIPCHECK1CustdateIdentifier_1 <pi>VA20N10VA20shuyu1PERMISSIONPERMISSIONID <pi>IPERMISSIONNAMEVA20PERMISSIONURLVA25PERMISSIONNOTETXT6Ildentifier_1 <pi>ztRelationship'13DESKTYPEID<pi>N&

9、lt;M>DESKSEATNUMBERN<M>DESKDIRECTIONVA10<M>DESKTYPEREMARKVA50DESKTYPEIdentifier_1 <pi>RelatiRelationship_ 仃FOODTICKETORDERID<pi><M>ORDERTIMEVA20<M>REALPAYMONEYROLEROLEID <pi> I<M>ROLENAMEROLENOTEVA20TXT60TOTALMONEYORDERSTATUSORDERREMARK<M>VA50

10、Identifier_1 <pi>ldentifier_1 <pi>DEPARTMENTDEPARTMENTID <pi> DEPARTMENTNAME DEPARTMENTNOTE PARENTID1VA10TXT601dentifier_1 <pi>Relatihip_11Relationship 16FOODLISTMENUREMARKFOODLISTID <pi> FOODSTATUS<M>VA20 <M>VA50Identifier_1 <pi>Relationship_8图3-1数据库概

11、念模型图3.2数据库物理模型Relationship 5DESKRelationship_14DESKID<pi>NDESKISUSINGNDESKREMARKVA50Identifier 1 <pi>FOODTYPEFOODTYPEID<M><pi> NFOODTYPENAMEVA20 <M>FOODTYPEREMARKVA50FOODID<pi>N<M>FOODNAMEVA20<M>FOODPRICEN<M>FOODHELPCODEVA10<M>FOODREMARKVA5

12、0FOODIdentifier_1 <pi>Identifier_1 <pi>数据库物理模型图如图3-2所示:ROOMTYPEROOMTYPEID NUMBER(100pk> ROOMTYPENAM1EARCHAR2(20) ROOMTYPEPAYNUMBER(20) ROOMTYPEREMCERKBrFK_R1ROOMINFOROOMCUSTINFOROOMCUSTNUMBER <pk>NUMBER <fk>ROOMID NUMBER(20<pk： ROOMTYPEINUMBER(100k> ROOMCHECNUMBER(10

13、) ROOMREMACKOBORDERIDCNAMEVARCHAR2(15)VARCHAR2(20)CIDPERMISSIONGROUPORDERIDUSERIDFK PPERMISSIONGROUPIDINTEGERCARDID ROOMIDPERMISSIONNAMARCHAR2(20)PERMISSIONUFVARCHAR2(25)PERMISSIONNOTOBGROUPID INTEGER <pk>GROUPNAMARCHAR2(15)PERMISSIONIDINTEGER<pk><fk>ROOMTICKETNUMBER <pk>INTE

14、GER <fk1>VARCHAR2(<H)2>NUMBER(20<fk3>CLIENTINDATE/ARCHAR2(20)CLIENTOUTDATRCHAR2(20)CLIENTMARGINUMBER(20) CLIENTAMOUNUMBER(20) ORDERTIME VARCHAR2(20) ORDERREMAFCLOBROLEPERFOODTICKETCUSTINFOROLEPERID INTEGERpk>ROLEID INTEGERfk1>ORDERIDUSERIDPERMISSIONNTEGERfk2>CARDIDVARCHAR2

15、(20I)2>VARCHAR2(20)REALPAYMONEUMBERTOTALMONEYNUMBERORDERTIMEROLEFK R0ORDERSTATUISUMBERORDERREMAFVARCHAR2(50)USERSROLEID INTEGER <pk>ROLENAMARCHAR2(20) ROLENOTELOBFK R4DESKTYPETICKET DESKFK D1DESKIDNUMBERfk2T2DESKFK F6DESKIDDESKISUSINGJMBERDESKREMAVARCHAR2(50)DESKDIRECTIONVARCHAR2(1O)DESKTYP

16、EREMAVARCHAR2(50)CARDID VARCHAR2(2Q)k：CUSTSEX VARCHAR2(10)CUSTPHONARCHAR2(20)VIPCHECKNUMBER(10)CUSTDATEVARCHAR2(20)NUMBER <pk>INTEGER <fk1>DESKTYPEID NUMBER <pkDESKSEATNUMENUMIBERTDIDNUMBERpk>ORDERIDUMBERfklNUMBER<pkDESKTYPEIDUMBE<fkDEPARTMENTDEPARTMENTIDINTEGER <pk>DEP

17、ARTMENTNAARCHAR2(10) DEPARTMENTNOTOBFK UUSERIDROLEIDINTEGERINTEGER<pk><fk2>PARENTIDINTEGERDEPARTMENWEGERUSERNAME USERPWDUSERNOTEREALNAMEUSERAGEUSERSEX<fk1>VARCHAR2(20)INTEGERVARCHAR2(10)VARCHAR2(20)CLOBFOODLISTFOODLISTIDNUMBER<pk>FOODIDNUMBER<fk1>USERIDINTEGER<fk3>

18、;ORDERIDNUMBER<fk2>FOODSTATUSARCHAR2(20)MENUREMAVARCHAR2(50)FOODTYPEFOODTYPEID NUMBER <pk>FOODTYPENAMVARCHAR2(20)FOODTYPEREMARRCHAR2(50)VARCHAR2(5)USERINDATEVARCHAR2(20)USERPHONEVARCHAR2(15)FOODNUMBER <pk>FOODTYPEID NUMBER <fk>FOODIDFOODNAME VARCHAR2(20)FOODPRICE NUMBERFOODHE

19、LPCOVARCHAR2(1O)FOODREMARKARCHAR2(5O)图3-2数据库物理模型图3.3酒店管理系统部分数据字典本系统数据库采用Oracle数据库，系统数据库名称为 HotelDB，共包含17表。菜系表：用来存储菜系的信息，其中FOODTYPE I字段为主键。表 3-3-1 菜系：FOODYPE字段名称类型允许空主键外键外键参考表说明FOODTYPEIDNUMBE(5)NOTYES菜系IDFOODTYPENAME VARCHAR2(20)NOT菜系名称FOODTYPEREMaKRVARCHAR2(50)YES备注菜品表：用于菜品的所有信息， 也是点菜的菜单的一个信息来源表，从中

20、可获得菜品的全部信息。其中字段FOODTYPEI用来描述该菜品属于哪个菜系是外键参参考表FOODTYPE根据此字段的值，可以知道菜品属于相应的哪个菜系。表 3-3-2 菜品：FOOD字段名称类型允许空主键外键外键参考表说明FOODIDNUMBER(5)NOTYES菜品IDFOODNAMEVARCHAR：(20)>'NOT菜品名称FOODTYPEIDNUMBER(5)NOTYESFOODYPE所属菜系IDFOODPRICENUMBER(5)NOT菜品价格FOODHELPCODVARCHAR E(10)>'NOT助记码FOODREMARK.VARCHAR'(50

21、)>'YES备注客房类别表：用来存储客房类别的信息,表3-3-3客房类别表：ROOMTYPE字段名称类型允许空主键外键外键参考表说明ROOMTYPEIDNUMBER(5)NOTYES客房类别编号ROOMTYPENAMEVARCHAF2(20)NOT客房类别名称ROOMTYPEPAY,NUMBER(5)NOT类别价格ROOMTYPEREMKAVARCHAF2(50)NOT备注客房信息表：用来存储客房信息。表3-3-4 客房信息表：ROOMINFO字段名称类型允许空主键外键AL A?-# 4占丰说明外键参考表ROOMIDNUMBER(5)NOTYES房间编号ROOMTYPEIDNUM

22、BER(5)NOTYESROOMTYPE客房类别编号续表5-4字段名称类型允许空主键外键外键参考表说明ROOMCHECKNUMBER(5)NOT客房状态ROOMREMARVARCHAR K 2(50)YES备注客户信息表：用来存储酒店客户的相关信息。表3-3-5 客户信息表：CUSTINFO字段名称类型允许空主键外键外键参考表说明CARDIDVARCHAR2(20)NOTYES号CUSTNAMEVARCHAR2(20)NOTCUSTSEXVARCHAR2(10)NOT性别CUSTPHONEVARCHAR2(20)YESVIPCHECKNUMBER(5)YES是否会员CUSTDATEVARCHA

23、R2(20)YES信息录入时间四、系统实现过程4.1设计过程窗体设计新建一个标准工程，会出现forml，可以遵循默认格式，也可以更改名称，这 里默认。添加所需控件mainmenu双击控件在其中加入所要进行的功能如下:Forml色 Farm!a B B -* - - ' l p " r * :詁$: BUB1.JBilBB1.4B添加控件Image插入图片，选中image控件，在其属性表中选中picture，选择 需要的图片：再建立一个Form2,默认格式即可。在其中加入客房登记所需控件：再建立一个Form3,默认格式即可,并且在project-options 中设置其为主窗

24、体。在其中加入客房登记所需控件,8个label，8个Edit，两个bitbtn如图：可以在bitbtn按钮中添加图片，使其更加生动，选中按钮，在其属性选择Glyph, 选择需要的图片即可，注意图片格式要符合要求，还可以为界面换颜色。再建立一个Form4,默认格式即可。在其中加入客人信息查询所需控件，1个label，一个 Edit，2 个按钮，1 个 DBGrid:这里需要数据库，与krxx表中的信息进行。连接方式为：首先添加一个数据模板(datemodule)，然后选择 ADOQuery控件和datasource 控件添加到数据模板，选中ADOQuer控件，在其属性中找到connections

25、tring ， 进行数据库的，选择再建立一个Form5,默认格式即可。在其中加入客房登记所需控件，和上面一 样：0 Firii：房间信息査询X关阳I -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;关闭键的代码如下：f

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

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

28、信息',64);edit1.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 TForm1.N4Cli

29、ck(Sender: TObject); beginform1.Hide;form5.ShowModal;end;procedure TForm1.N5Click(Sender: TObject); beginform1.Hide;form6.ShowModal;end;procedure TForm1.N6Click(Sender: TObject); beginform1.hide;form7.ShowModal;end;procedure TForm1.N8Click(Sender: TObject); beginform1.hide;form8.ShowModal;end;proced

30、ure TForm1.N7Click(Sender: TObject); beginclose;end;procedure TForm1.FormCreate(Sender: TObject);beginend;并且要在 uint1 的连接代码上添加：usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms,Dialogs, Menus, DB, ADODB,unit2,unit4,unit5,unit6,unit7,unit8,;在 form2 中进行和 form1 间的转换，代码如下： 双击关闭

31、按钮添加代码：form2.close;form1.show;(4)在 form4 ， form5 ， form6 ，form7 中进行 form1 间的转换，代码类似( 3)。3、form1 中退出菜单的实现 双击退出菜单进行代码输入： close; 即可。至此完成了菜单管理的实现，可以运行后进行各功能的实现代码设计Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.KeyCase "DJ" zsdj_ClickCase "TF"tf

32、_ClickCase "FT" ftck_ClickCase "CX" zscx_ClickCase "exit"If MsgBox(" 确定退出该系统？ ", 4, " 系统提示 ") = vbYes Then EndEnd IfEnd SelectEnd SubPrivate Sub sztx_Click()Dim StrCommonDialogl.Filter = "BMP图片(*BMP)|*.BMP|JPG 图片(*JPG)|*JPG|GIF 图片(*.GIF)|*.GIF|所

33、有文件(*.*)|*.*"CommonDialog1.ShowOpenIf CommonDialog1.FileName <> "" ThenImage2.Picture = LoadPicture(CommonDialog1.FileName)Str = CommonDialog1.FileNameOpen (App.Path & "picture.txt") For Output As #1Print #1, StrClose #1CommonDialog1.FileName = ""ElseComm

34、onDialog1.FileName = ""End IfEnd SubPrivate Sub sjbf_Click()main_sjbf.Showmain.Enabled = FalseEnd SubPrivate Sub sjhf_Click()main_sjhf.ShowEnd SubPrivate Sub zsdj_Click()main_kfdj.Showmain.Enabled = FalseEnd SubPrivate Sub tf_Click() main_tf.Show main.Enabled = False End SubPrivate Sub kfc

35、x_Click() main_kfcx.Show main.Enabled = False End SubPrivate Sub ftck_Click() main_ftcx.Show main.Enabled = False End SubPrivate Sub zscx_Click()Load main_zscx main_zscx.Show main.Enabled = FalseEnd SubPrivate Sub tfcx_Click()Load main_tfcx main_tfcx.Show main.Enabled = FalseEnd Sub系统登录模块设计窗体设计添加新窗体

36、，命名为 main_Login , Caption属性为“酒店客房管理系统”;添加Adodc控件以及两个TextBox控件，Textl放在用户名后，Text2放在密 码后；添加两个 Image 控件，分别设置 Picture 属性，添加“确定”和“退出”按钮。 代码设计Private Sub Image1_Click()If Text1.Text = 7 And Text2.Text = 123456 Then main.ShowMe.HideElseMsgBox " 密码错误！ ", vbCritical, " 提示"End IfEnd SubPriv

37、ate Sub lmage2_Click()EndEnd Sub住宿登记模块窗体设计添加新窗体命名为main_kfdj , Caption属性为“住宿登记”;添加两个Adodc控件、TextBox控件数组以及2个DTPicker控件; 添加3个ComboBoX空件。代码设计Private Sub comdj_Click()Adodc1.Co nn ectio nStri ng= "PROVIDER=MSDASQL;DRIVER=OracieiOraDb11g_home1;"&"server=webserver;DSN=;database name=aa;d

38、atabasefile=d:aa;UID=scot t;PWD=123456"Adodc1.RecordSource = "select * from tb_kf where房态='空房'"Adodcl.RefreshAdodc2.Co nn ectio nStri ng= "PROVIDER=MSDASQL;DRIVER=OracieiOraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scot t;PW

39、D=123456"Adodc2.RecordSource = "select * from tb_djb order by凭证"Adodc2.RefreshIf lsph.Text = "" Then bh.Text = Fdate & "d" & Format(1, "#000")If lsph.Text <> "" The ny1.Text = Month(Fdate)y2.Text = Month(Left(lsph.Text, 10)If y1.Te

40、xt = y2.Text Then'bh.Text = Fdate & "d" & Format(Val(Right(lsph.Text, 3) +1, "#000")Text1.Text = Val(Right(lsph.Text, 3) + 1End IfIf y1.Text <> y2.Text Thenbh.Text = Fdate & "d" & Format(1, "#000")End IfEnd IfFor i = 0 To 2ZSDJ(i).Tex

41、t = ""ZSDJ(i).Enabled = TrueNext iFor i = 4 To 6ZSDJ(i).Text = ""ZSDJ(i).Enabled = TrueNext iCombo3.Text = ""Comok.Enabled = True: Comdj.Enabled = FalseCombo3.Enabled = True: Combo1.Enabled = TrueZSDJ(0).SetFocusAdodc3.ConnectionString = "PROVIDER=MSDASQL;DRIVER=Or

42、aclien OraDb11g_home1 ;" & "server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scot t;PWD=123456"Adodc3.RecordSource = "select * from tb_kf where房态 = ' 空房 '"Adodc3.RefreshCombo3.Clear> 0 ThenFor i = 1 房间号 ").ValueNext iEnd IfEnd SubPrivate Sub co

43、mok_Click()If ZSDJ(0) = "" Or Combo3 = "" ThenMsgBox " 请输入完整信息 ", , " 系统提示ElseAdodc2.RecordSource = "select * from tb_djb where房间号 = '" &Combo3.Text & "' and 标志 like '1'"Adodc2.Refresh= 0 ThenIf bh.Text <> "&qu

44、ot; 凭 证 ") =bh.TextIf ZSDJ(0).Text <> "" = ZSDJ(0).TextIf Combo1.Text <> "" 证件名称 ") = Combo1.TextIf ZSDJ(1).Text <> "" 证件 ")= ZSDJ(1).TextIf ZSDJ(2).Text <> "" 详细地址") = ZSDJ(2).TextIf Combo3.Text <> ""

45、; 房间号") = Val(Combo3.Text)If ZSDJ(4).Text <> "" 客房类型") = ZSDJ(4).TextIf DTP1.Value <> "" 住宿日期") = DTP1.ValueIf ZSDJ(5).Text <> "" 客房价格") = Val(ZSDJ(5).Text)If ZSDJ(6).Text <> "" 住宿天数") = ZSDJ(6).TextIf ZSDJ(7).T

46、ext <> "" 宿费 ")= ZSDJ(7).TextIf DTP3.Value <> "" 退宿日期") = DTP3.ValueAdodc2.Refresh& App.Path & "DB_KFGL.mdb;Persist Security Info=False"adoRs.Open "select * from tb_djys", adocon, adOpenKeyset, adLockOptimisticadoRs.AddNewIf bh.Te

47、xt <> "" Then adoRs.Fields("凭证") = bh.TextIf ZSDJ(0).Text <> "" Then adoRs.Fields("") = ZSDJ(0).TextIf Combo1.Text <> "" Then adoRs.Fields(" 证 件 名 称 ") = Combo1.TextIf ZSDJ(1).Text <> "" Then adoRs.Fields(&

48、quot; 证 件 ") = ZSDJ(1).TextIf ZSDJ(2).Text <> "" Then adoRs.Fields(" 详 细 地 址 ") =ZSDJ(2).TextIfZSDJ(4).Text<> ""Then adoRs.Fields(" 客 房 类 型 ")ZSDJ(4).TextIfCombo3.Text<> ""Then adoRs.Fields(" 房 间 号 ")Val(Combo3.Text)I

49、fZSDJ(5).Text<> ""Then adoRs.Fields(" 客 房 价 格 ")Val(ZSDJ(5).Text)IfDTP1.Value<> ""Then adoRs.Fields(" 住 宿 日 期 ")DTP1.ValueIfZSDJ(6).Text<> ""Then adoRs.Fields(" 住 宿 天 数 ")ZSDJ(6).TextIfZSDJ(7).Text<>"" Then

50、 adoRs.Fields(" 宿 费 ")ZSDJ(7).TextIfDTP3.Value<> ""Then adoRs.Fields(" 退 宿 日 期 ")DTP3.ValueadoRs.Updateadocon.CloseAdodc1.RecordSource= "select * from tb_kf where 房间号 like'" + Combo3.Text + "'"IfCombo3.Text <> "" 房态 &quo

51、t;) =" 入住 "For i = 0 To 6ZSDJ(i).Enabled = FalseNext iZSDJ(8).Enabled = False: ZSDJ(10).Enabled = False: ZSDJ(11).Enabled = FalseCombo3.Enabled = False: Combo1.Enabled = FalseEnd IfComok.Enabled = False: Comprint.Enabled = True: Comdj.Enabled = TrueComprint.SetFocusEnd IfEnd SubPrivate Sub

52、 comcancel_Click()For i = 0 To 2ZSDJ(i).Enabled = FalseNext iFor i = 4 To 6ZSDJ(i).Enabled = FalseNext iComok.Enabled = False: Combo3.Enabled = FalseCombo1.Enabled = False: DTP3.Enabled = FalseComdj.Enabled = TrueEnd SubPrivate Sub come nd_Click()Un load Memain.En abled = TrueEnd Sub退宿登记模块按照如上方法设计窗体

53、如下:代码设计：Private Sub Form_Load()Adodc1.Co nn ectio nStri ng= "PROVIDER=MSDASQL;DRIVER=OracieiOraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scot t;PWD=123456"Adodc1.RecordSource = "select * from tb_djb"'Adodcl.RefreshAdodc2.Co nn e

54、ctio nStri ng= "PROVIDER=MSDASQL;DRIVER=OracieiOraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scot t;PWD=123456"Adodc2.RecordSource = "select * from tb_kf"'Adodc2.RefreshAdodc3.Co nn ectio nStri ng= "PROVIDER=MSDASQL;DRIVER=O

55、racieiOraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d:aa;UID=scott;PWD=123456"Adodc3.RecordSource = "select * from tb_gzmx"'Adodc3.RefreshAdodc4.ConnectionString = "PROVIDER=MSDASQL;DRIVER=Oraclien OraDb11g_home1 ;" & "serve

56、r=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scot t;PWD=123456"Adodc4.RecordSource = "select * from tb_djys"'Adodc4.RefreshAdodc5.ConnectionString = "PROVIDER=MSDASQL;DRIVER=Oraclein OraDb11g_home1 ;" & "server=webserver;DSN=;databasename=aa;databasefi

57、le=d:aa;UID=scot t;PWD=123456"Adodc5.RecordSource = "select凭证 from tb_djb where 标志 ='1'orderby 凭证 "' Adodc5.Refresh> 0 Then' For i = 1 凭证 "）.Value'Next i'End IfEnd Sub'Private Sub Form_Activate（）'czy.Text = main.StatusBar1.Panels（4）.Text ''DTP2.Value = Date: tim2.Value = TimePrivate Sub combo4_Click（）If Combo4.Text <> "" ThenAdodc1.RecordSource = "select * from tb_djb where Combo4.Text + "'"Adodc1.Refresh'bh.Text = "T" & Combo4.Text