oracle酒店管理系统

1、Oracle数据库的设计与实现选题名称： 酒店管理系统 姓 名：学 号：专 业：_班 级：指导老师：设计地点：、系统需求分析1.1系统开发的目的和意义1.2-3系统 要3二、系统总体设计2. 1 系统功能2.24统数据2.3 系统功能52.4 系统部分54结三、数据库设计3. 1 数据库概73.2 数据库物8 3.3酒店管理系统部分数据字典四、系统实现过程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系统数据需求根据数据需求分析可知该系统至少应该具有以下的一些数据需求：DESKTYPE餐桌类别表(餐桌类别编号，餐桌座位数，餐桌方位，备注)。DESK餐

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

5、ICKET客房订单管理表（订单编号，房间号，下单服务员ID,身份证 号，入住时间，离开时间，押金金额，结算金额，下单时间，备注）。CUSTINFO客户信息表（身份证号，客户姓名，客户性别，客户电话，是否会员，信息录入时间，备注）。USER用户信息表（用户编号，角色编号，部门编号，用户名，用户密码,是否审核通过，年龄,ROLE用户角色表性别，生日，联系电话，备注）。 （角色编号，角色名，备注）。DEPARMENT部门表（部门编号，名称，上级部门编号，备注）。PERMISSION权限表（权限编号，权限组编号，权限名称，备注）。 ROLEPER角色-权限关联表（角色权限编号，角色编号，权限编号）。P

6、ERMISSIONGROUP权限组表（权限组编号，权限组名称）。2. 3系统功能模块图酒店管理系统功能结构如图2-3所示图2-3系统功能结构图24系统部分流程图客房订单流程图如2-4所示图2-4客房订单管理流程图餐饮部分开台流程图如图2-5所示三、数据库设计3. 1数据库概念模型数据库概念模型图如图3-1所示:rmtiYPtR0CWTTP9D R0CWTfPO4W RDCWTrPtPAY fiOCW，化圧人钠 NWO VA201XT100larger 1 WLfiD WLEWM ROLEM3TEfKXWO fKXMCHECK fKXWRUARKROOMIXfOpp K20N10wncoI心Me

7、rJ和PERMSSICWSR0J5 7A20 VA60fmCUSTID N OWIEVAUCDYA2SVA20TXTMGWGPD 钟 IGftCbPKAIC VA16PERM 购 3DPERHZOW 贬PERH3 讥 PERMSSIOSVOTE1VA2JVA2ITXT6pi Ioep?HTie/r3ArVOD和3 刊诈STMJTE PASDD1VA10TaT1idemfeH piROOWTICXET血3D atMlKDATE CLrnOJ-3ATE atNIWAftGM CL04TAWOUKT CJGRTIMEpp XVA20 VA20K20K20 VAX) 1XT1MMil*cr 1 钟00

8、- elwowhpjFCODUCKETcfceracpp NV沁 RTWEVA20如叫 PAYWOYNTOTAUOSNCRSTATUSN如CRFfMARXVAWdewfeH CUSTW)CARCD CUSTSXCUSPf VPCHEOCCUSDA1Epo VA20 VA10VA20M10VA20MwlAef 1 和3ESCYPEdewfeHKSCYPfD3劈gze吵 龙gRecTQ忖3 曲 CPERfW.%pi K K UVA10 UVAMRentFCODTTPec0C0K0p* N FOOOTYP&UMEVA20 FIXOTV叱 WfXVMORe laiFOCOD N*WFOOT 峡VA20

9、uFOCCPftCeNfeM 图3-1数据库槪念模型图3. 2数据库物理模型数据库物理模型图如图3-2所示:MFT：5MRI2：； aceR00MCUS7?KI先 RMSSia 烧XPPfRWSSJCWWXE兀UROOWD ROOWTfPED RDOICHzCX ROOVFVARRO-ERD ROIED 隆RM的CND?ERW$IC*D 简JPW PERW$ICKX4Vt PE湖匆UFL PE 映 ICMQ1EROOMTPfD ROOVnPfXME ROOWT*Pf?AV ROOWTfREMA=XFlICER yARCWS過VAR1H恥酗IKTEGER IM7KER VA3R2J2：； V曲H

10、MU册; CLKNTEGE 咿aIXTEGE ftbNTKE fGflCtPO hTER 吶GWXPVAE 咏“呦6|HCOVCJSTD NLICER CW：RDCXWE CDRO.KRXWKF32 0 ”川 3 予I1W) en M3 予110) ciceRcanxxETcuswoCRXR1DUSSRJSEROhTEGCRi1CPCOVAftWK2|2CT. ?CABDD皿吹纳*2OBTSEXVAKWK2H0)=HXMDM.M=R;2： CUSTFKVAWK2|2tria.EhW.IE rTwP沁XMME 聞 5aEKTOTOAIE呢细CUSTO1EVAFOVK2I2CT.aEKTAWXNT

11、32删:：CRXRT1ME皿吹兀|CRXFflSVAfKacB%-ED NTEGER =JXEXW AgAR2QI 曲换CLC6ZePUCKTD XPACOt XPACXTXOIE pwtoIMTKER VAfKMRli : aos IXTKERUSERSJSEROWT&KR咿a血EDWTEG5Rft2:CPA化 M7DNTEGERJSERVIEJSE 丽?0VAJm(20|JSERV07ECIC6REALMS贞 ERAGENEGERJSEgJSERMXTEJSEFPrONEWO畑：16|FO3D1XXETCfOIRDKUIfiER甲nJSERDIMTEGERft1CAMOVAW2：ft2Cf

12、D-RHIVAR22：REALPAmeVNUICBTOPLVCEYKUWERCfOzRSTATlSNUICBCR3手班咏VAWiRzfS：XSKiYP-FKJ1oesKPD NUMBER 呐 CRD5RD NUMBER fcb XSKD hUVBE 略DESK7YPED PUCER D=SKS=ATM=R N.WER 35SKDRECD0N 7ARWfi2|1Cr. 3SnYPE=EMW VARWKifCr-HCK=T.CCSbSE=JDFEGERWORDVMR*2FOCC6TA1LSY脚临Bl旧尿WW VATOiV.WiXSKR=MA=X VAflCHVWlF00D7YP6FOODHPaO

13、NUMBER甲nFOODTYMW VAWiR22：i FOOITY逐硼K V4油砒:：FOCOFCCODSUV8EFCCOTrPfDhltt欣ftFCCC标 lVAR2ff：FCCCPR)NUMBERFCCOELPCCCfVAW.R2；-：FCCCflWRKVAWR25：图3-2数据库物理模型图3. 3酒店管理系统部分数据字典本系统数据库采用Oracle数据库，系统数据库名称为HotelDB,共包含17张表。 菜系表：用来存储菜系的信息，其中FOODTYPEID字段为主键*表 3-3-1 菜系：FOODYPE字段名称类型允许空主键外键外键参考表说明FOODTYPEIDNUMBE(5)NOTYE

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

15、所属菜系IDFOODPRICENUMBER(5)NOT菜品价格FOODHELPCODEVARCHAR2(10)NOT助记码FOODREMARKVARCHAR2：50)YES备注客房类别表：用来存储客房类别的信息,表3-3-3客房类别表：ROOHTYPE字段名称类型允许空主键外键外键参考表说明ROOMTYPEIDNUMBER(5)NOTYES客房类别编号ROOMTYPENAMEVARCHAR2(20)NOT客房类别名称ROOHTYPEPAYNUMBER(5)NOT类别价格ROOHTYPEREMARKVARCHAR2(50；NOT备注客房信息表:用来存储客房信息。表3-3-4客房信息表：ROOMI

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

17、别CUSTPHONEVARCHAR2(20)YES电话VIPCHECKNUMBER(5)YES是否会员CUSTDATEVARCHAR2(20)YES信息录入时间四、系统实现过程4. 1设计过程4. 1. 1窗体设计新建一个标准工程，会出现forml,可以遵循默认格式，也可以更改名称，这 里默认。添加所需控件mainmenu,双击控件在其中加入所要进行的功能如下： Forml 添加控件Image插入图片，选中image控件，在其属性表中选中picture,选择 需要的图片：再建立一个Form2,默认格式即可。在其中加入客房登记所需控件：再建立一个Form3,默认格式即可，并且在project-o

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

19、ry控件，在其属性中找到connectionstring, 进行数据库的链接，选择再建立一个Form5,默认格式即可。在其中加入客房登记所需控件，和上面一 样： Form5X关闭I宓号 Editi这个窗体也要进行数据库链接，过程和上面一样，只是链接的表名不同，这里链 接的是kfxx表。双击确定添加代码如下：with Data3. ADOQueryl dobeginClose;SQL Clear;SQL. Add（, select * from f jxx where 房间号码二：a）;Parameters ParamByNamea ） value:二Trim（edit1 Text）;Open;

20、end;关闭键的代码如下：form5 close;form1 show;这样就完成了房间信息查询的操作。（7）再建立一个Form6,默认格式即可。在其中加入查看酒丿占信息所需控件：1 个 label, 1 个按钮,1 个 DBGrid：Form6傩:丄画翌:酒店基本信息X关闭这里主要就是数据库的链接，改用另外一种方式为：首先再建立一个Form7,默认格式即可。在其中加入查看客房信息所需控件，和（7） 一样，不过这里可以采用（5）的方法进行数据库的链接。再建立一个再建立一个Form8 ,默认格式即可。在其中加入退房所需控件：1 个 label, 1 个 Edit,两个 bitbtn, 1 个 D

21、BGrid,和一个 DBNavigator 如图：将其与数据库中表krxx链接后，输入证件号码单击DBNavigator控件上的丁可 以突出显示选择的信息，然后点击退房可以实现退房功能。4.1.2进行窗体之间的转换（1）在form3中进行密码设置，双击登录按钮进行代码输入如下：varresults: Variant;BEGINresults：=ADOTablel. Lookup 姓名，editl. text,密码）;if results=edit2 Text thenbeginform3 Hide;form 1. Show;endelsebeginapplication. MessageBox

22、（,姓名或密码错误,提示信息,64）;editl SetFocus;exit;end;end;退出代码为：close;（2）在forml中进行剩余各form间的连接，在forml中分别单击要实现的功能 菜单按钮，并分别输入代码，得到的最后代码如下：procedure TForm1N2C1ick（Sender: TObject）:beginform 1. Hide;form2 showmodal;end;procedure TForm1N3C1ick（Sender: TObject）:beginform 1. Hide;form4. showmodal;end;procedure TForm1N

23、4C1ick(Sender: beginform 1. Hide;form5 ShowModal;end;procedure TForm1. N5C1ick(Sender: beginform 1. Hide;form6 ShowModal;end;procedure TForm1N6C1ick(Sender: beginform 1. hide;form7. ShowModal;end;procedure TForm1N8C1ick(Sender: beginform 1. hide;form8 ShowModal;end;procedure TForml. N7C1ick(Sender:

24、beginTObject);TObject);TObject);TObject);TObject);close;end;procedure TForm1FormCreate(Sender: TObject); beginend;并且要在uintl的连接代码上添加：usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Menus, DB, ADODB, unit2, unit4, unit5, unit6, unit?, unit8,;在form2中进行和forml间的转换，代

25、码如下：双击关闭按钮添加代码：form2 close;form 1. show;(4)在form4, form5, form6, form7中进行forml间的转换，代码类似(3)。3、forml中退出菜单的实现双击退出菜单进行代码输入：close;即可。至此完成了菜单管理的实现，可以运行后进行各功能的实现。代码设计Private Sub Toolbarl_ButtonClick(ByVai Button As MSComctlLib.Button) Select Case Button. KeyCase DJzsdj_ClickCase TFtf_ClickCase FTftck_Click

26、Case CXzscx_ClickCase ex辻If MsgBox(确定退出该系统？ ”，4,系统提示)=vbYes ThenEndEnd IfEnd SelectEnd SubPrivate Sub sztx_Click()Dim StrCommonDialogl. Filter = BMP 图片(*. BMP) | *. BMP JPG 图片(*. JPG) | *. JPG GIF 图片(*. GIF) I *. GIF | 所有文件(*. *) | *.CommonDialog 1 ShowOpenIf CommonDialog1FileName ThenImage2.Picture

27、 = LoadPicture(CommonDialog1. FileName)Str = CommonDialog1. FileNameOpen (App.Path & picturetxt) For Output As #1Print #1, StrClose #1CommonDialog1FileName =ElseCommonDialog1FileName =End IfEnd SubPrivate Sub sjbf_Click()main_sjbf Showmain. Enabled = FalseEnd SubPrivate Sub sjhf_Click()main_sjhf Sho

28、wEnd SubPrivate Sub zsdj_Click()main_kfdj Showmain. Enabled = FalseEnd SubPrivate Sub tf_Click() main_tf Show main. Enabled = FalseEnd SubPrivate Sub kfcx_Click() main_kfcx Show main. Enabled = FalseEnd SubPrivate Sub ftck_Click() main_ftcx Show main. Enabled = FalseEnd SubPrivate Sub zscx_Click()Lo

29、ad main_zscxmain_zscx Showmain. Enabled = FalseEnd SubPrivate Sub tfcx_Click()Load main_tfcxmain_tfcx Showmain. Enabled = FalseEnd Sub4. 1. 3系统登录模块设计 窗体设计添加新窗体，命名为main_Login, Caption属性为酒店客房管理系统”：添加Adodc控件以及两个TextBox控件，Textl放在用户名后，Text2放在密 码后；添加两个Image控件，分别设置Picture属性，添加“确定”和“退出”按钮。 代码设计Private Sub I

30、magel_Click()If Textl.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控件数组以及2个DTPicker控件; 添加3个ComboBox控件。代码设计Private Sub comdj_Click()Adodc1.

31、 Connectionstring 二PROVIDER二MSDASQL;DRIVER二Oracle in OraDb11g_home1 ;&server二webserver;DSN=;databasename=aa;databasefile=d:aa;UID二scot t;PWD二123456Adodc 1. RecordSource = select * from tb_kf where 房态二空房Adodc1 RefreshAdodc2. Connectionstring 二PROVIDER二MSDASQL;DRIVER二Oracle in OraDb11g_home1 ;&server二

32、webserver;DSN二；databasename=aa;databasefile=d:aa;UID二scot t;PWD二123456Adodc2. RecordSource = select * from tb_djb order by 凭证号码Adodc2 RefreshIf Not Adodc2 Recordset EOF Then Adodc2 Recordset MoveLastIf lsph. Text = “ Then bh. Text = Fdate & Format (1, #000)If lsph. Text ” Thenyl.Text = Month(Fdate)y

33、2. Text = Month (Left (lsph. Text, 10)If yl. Text = y2 Text Thenbh. Text = Fdate & d & Format(Vai(Right(lsph. Text, 3) + 1, #000)Textl.Text = Vai(Right(lsph. Text, 3)+1End IfIf yl. Text y2. Text Thenbh. Text = Fdate & d & Format(1, #000)End IfEnd IfFor i = 0 To 2ZSDJ(i).Text =”ZSDJ(i). Enabled = Tru

34、eNext iFor i = 4 To 6ZSDJ(i).Text =”ZSDJ(i). Enabled = TrueNext iCombo3. Text = ”Comok.Enabled = True: ComdjEnabled = FalseCombo3.Enabled = True: CombolEnabled = TrueZSDJ(0) SetFocusAdodc3. Connectionstring 二PROVIDER二MSDASQL;DRIVER二Oracle in OraDb11g_home1 ;&server二webserver;DSN二；databasename=aa;dat

35、abasefile=d:aa;UID=scot t;PWD二123456Adodc3. RecordSource = select * from tb_kf where 房态= 空房Adodc3 RefreshCombo3 ClearIf Adodc3 Recordset RecordCount 0 ThenFor i = 1 To Adodc3 Recordset RecordCountCombo3. Additem Adodc3. Recordset. Fields (房间号).Value Adodc3 Recordset MoveNextNext iEnd IfEnd SubPrivat

36、e Sub comok_Click()If ZSDJ(O) = ” Or Combo3 = ” ThenMsgBox 请输入完整信息”、”系统提示ElseAdodc2. RecordSource = select * from tb_djb where 房间号 二，”& Combo3. Text & and 标志 like 1Adodc2. RefreshIf Adodc2. Recordset. RecordCount = 0 ThenAdodc2. Recordset. AddNewIf bh. Text ” Then Adodc2. Recordset. Fields (z，凭证号码)=

37、 bh. TextIf ZSDJ(0). Text ” Then Adodc2. Recordset. Fields (，z姓名) =ZSDJ(O).TextIf Combol. Text Then Adodc2. Recordset. Fields (，?证件名 称)=Combol. TextIf ZSDJ (1). Text “ Then Adodc2. Recordset. Fields C证件号 码”)=ZSDJ(1). TextIf ZSDJ (2). Text Then Adodc2. Recordset. Fields C详细地 址”)=ZSDJ(2). TextIf Combo

38、3. Text Then Adodc2. Recordset. Fields(z，房间号 “)=Vai(Combo3. Text)If ZSDJ(4). Text ” Then Adodc2. Recordset. Fields C客房类 型”)=ZSDJ(4). TextIf DTP1. Value Then Adodc2. Recordset. Fields C住宿日期 “)=DTP1. ValueIf ZSDJ (5). Text ” Then Adodc2. Recordset. Fields (，z客房价 格”)=Vai (ZSDJ(5). Text)If ZSDJ(6). Text

39、 ” Then Adodc2. Recordset. Fields C住宿天 数”)=ZSDJ(6). TextIf ZSDJ (7). Text Then Adodc2. Recordset. Fields C宿费) =ZSDJ(7). TextIf DTP3. Value ” Then Adodc2. Recordset. Fields 退宿日期 ”)=DTP3. ValueAdodc2. Recordset. UpdateAdodc2. Refreshadocon. OpenProvider二Microsoft. Jet. OLEDB. 4. 0;DatdSource二& App. Pa

40、th & DB_KFGL. mdb;Persist Security Info二FalseadoRs. Open select * from tb_djys, adocon, adOpenKeyset, adLockOptimiSticadoRs. AddNewIf bh. Text ” Then adoRs. Fields C凭证号码)=bh. TextIf ZSDJ(0). Text ” Then adoRs. Fieldsf 姓 名)=ZSDJ(O).TextIf Combol. Text Then adoRs. Fields C 证件名 称)=Combol. TextIf ZSDJ(l

41、).Text ZSDJ(l).TextIf ZSDJ(2).Text ZSDJ(2).TextIf ZSDJ(4).Text ZSDJ(4).TextIf Combo3. Text Vai (Combo3. Text)If ZSDJ(5).Text Vai(ZSDJ(5). Text)If DTP1. Value DTP1. ValueIf ZSDJ(6). Text ZSDJ(6).TextIf ZSDJ(7).Text ZSDJ(7). TextIf DTP3. Value DTP3. Value” Then adoRs. Fields (证件号码)= ” Then adoRs. Fiel

42、ds C 详细地址)= ” Then adoRs. Fields (-客房类型)= ” Then adoRs. Fields C 房间号”)= ” Then adoRs. Fields C 客房价格)= Then adoRs. Fields C 住宿日期)=Then adoRs. Fields (，?住宿天数)=” Then adoRs. Fields C 宿 费)= Then adoRs. Fields C 退宿 H 期)二adoRs. Updateadocon. CloseAdodcl. RecordSource = select *from tb_kf where 房间号 like +

43、Combo3. Text + ，”If Combo3. Text Then Adodcl. Recordset. Fields C房态)= 入住Adodcl. Recordset. UpdateFor 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: Comp

44、rint. Enabled 二 True： Comdj. Enabled =TrueComprint. SetFocusEnd IfEnd SubPrivate Sub comcancel_Click()For i = 0 To 2ZSDJ(i). Enabled = FalseNext iFor i = 4 To 6ZSDJ(i). Enabled = FalseNext iComok.Enabled = False: Combo3.Enabled = FalseCombol. Enabled = False: DTP3 .Enabled = False Comdj. Enabled = T

45、rueEnd SubPrivate Sub comend_Click()Unload Memain. Enabled = TrueEnd Sub4.1.5退宿登记模块按照如上方法设计窗体如下:代码设计：Private Sub Form_Load()Adodcl. Connectionstring 二PROVIDER二MSDASQL;DRIVER二Oracle in OraDb11g_home1 ;&server二webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scot t;PWD二123456AdodclRecordSource = s

46、elect * from tb_djbAdodcl RefreshAdodc2. Connectionstring 二PROVIDER二MSDASQL;DRIVER二Oracle in OraDb11g_home1 ;&server二webserver;DSN=;databasename=aa;databasefile=d:aa;UID二scot t;PWD二123456Adodc2 RecordSource = select * from tb kfAdodc2 RefreshAdodc3. Connectionstring 二PROVIDER二MSDASQL;DRIVER二Oracle i

47、n OraDb11g_home1;&server二webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scot t;PWD二123456Adodc3 RecordSource = select * from tb_gzmx Adodc3 RefreshAdodc4. Connectionstring 二PROVIDER二MSDASQL;DRIVER二Oracle in OraDb11g_home1 ;&server二webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scot t;PWD

48、二123456Adodc4. RecordSource = select * from tb_djys Adodc4. RefreshAdodco. Connectionstring 二PROVIDER二MSDASQL;DRIVER二Oracle in OraDb11g_home1;&server二webserver;DSN=;databasename=aa;databasefile=d:aa;UID二scot t;PWD二123456Adodco. RecordSource = select 凭 证号码 from tb_djb where 标志 =,r order by凭证号码Adodc5

49、RefreshIf Adodc5 Recordset RecordCount 0 ThenFor i = 1 To Adodc5 Recordset RecordCountCombo4. Additem Adodco. Recordset. Fields （凭证号码）.ValueAdodc5 Recordset MoveNextNext iEnd IfEnd SubJ Private Sub Form_Activate（）czy. Text = main. StatusBarl. Panels （4）. Text 赋值给 czy,DTP2. Value = Date: tim2. Value = TimePrivate Sub combo4_Click（）If Combo4. Text