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 系统数据需求根据数据需求分析可知该系统至少应该具有以下的一些数据需求：DESKT

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

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

6、EPE角色-权限关联表（角色权限编号，角色编号，权限编号）。 PERMISSIONGRO权限组表（权限组编号，权限组名称）。2.3系统功能模块图酒店管理系统功能结构如图2-3所示*护计0自新t吏juj .懐 ¥AJ dji 查看空畲庭冋報髀唸吐書伽；颍莉F _性II 轧市-图2-3系统功能结构图2.4系统部分流程图客房订单流程图如图2-4所示图2-4客房订单管理流程图餐饮部分开台流程图如图2-5所示三、数据库设计3.1数据库概念模型数据库概念模型图如图3-1所示:ROOMTYPEROOMTYPEID ROOMTYPENAME<pi>N100<M>VA20ROO

7、MTYPEPAYN20ROOMTYPEREMARKTXT100Identifier 1 <pi>Relationship_15ROOMINFOROOMID <pi> N20<M>ROOMCHECK N10ROOMREMARKTXT100ROOMCUSTINFOROOMCUSTIDXpiA N<M>CNAMEVA15CIDVA20Identifier_1 <pi>PERMISSIONGROUPGROUPID <pi> I<M>GROUPNAMEVA15RelationshipORDERIDldentifier_1

8、 <pi>shuyu1PERMISSIONPERMISSIONID <pi>PERMISSIONNAMEVA2CPERMISSIONURLVA25PERMISSIONNOTETXT6 0Identifier 1 <pi>RelationShip_12ROOMTICKET<pi>CLIENTINDATECLIENTOUTDATECLIENTMARGIN CLIENTAMOUNTORDERTIMEORDERREMARKldentifier_1 <pi><M>VA20VA20N20N20VA20TXT100CARDIDCUSTI

9、NFO<pi>VA20 <M>Identifier_1 <pi>Relationship_4iRelationship_17ORDERIDCUSTSEX CUSTPHONEVA10VA20>0S 'Felationship_1Relationship 13FOODTICKET<pi><M>ORDERTIMEVA20<M>REALPAYMONEYROLETOTALMONEYORDERSTATUS<M>ROLEID <pi><M>ORDERREMARKVA50ROLENAMEV

10、A20ROLENOTETXT60Identifier_1 <pi>VIPCHECK1CustdateIdentifier_1 <pi>N10VA20Relation6hip_14DESKTYPEID<pi>N<M>DESKSEATNUMBERN<M>DESKDIRECTIONVA10<M>DESKTYPEREMARKVA50DESKTYPEIdentifier_1 <pi>Relationship_5DESKDESKIDDEPARTMENTDEPARTMENTID <pi> DEPARTMENTNA

11、ME DEPARTMENTNOTE PARENTIDIVA10TXT6Ildentifier_1 <pi>USERSUSERID<pi>I<M>USERNAMEVA10USERPWDVA20USERNOTETXT60REALNAMEVA20USERAGEIUSERSEXVA5USERINDATEVA20USERPHONEVA15Identifier_1 <pi>shuyuRelatiohip_11ldentifier_1 <pi>Relationship_16FOODLIST<M><pi><M>DE

12、SKISUSINGDESKREMARKldentifier_1 <pi><M>VA50,Relatianghip_19FOODLISTID <pi> NFOODSTATUS VA20 <M>MENUREMARKVA50FOODTYPEFOODTYPEID<pi>N<M>FOODTYPENAMEVA20<M>FOODTYPEREMARKVA50ldentifier_1 <pi>1Identifier_1 <pi>Relationship_8Relationship_6FOODID<p

13、i>N<M>FOODNAMEVA20<M>FOODPRICEN<M>FOODHELPCODEVA10<M>FOODREMARKVA50FOODldentifier_1 <pi>图3-1数据库概念模型图3.2数据库物理模型数据库物理模型图如图3-2所示:ROOMTYPEROOMTYPEID NUMBER(10G<pk>-ROOMTYPENAMVARCHAR2(20)ROOMTYPEPAYNUMBER(20) ROOMTYPEREMALOB-FK_R1ROOMINFOROOMCUSTINFOROOMCUSTIDMBER

14、<pk> ORDERID NUMBER <fk>ROOMID NUMBER(20)pk> ROOMTYPEIDUMBER(1<k> ROOMCHECKUMBER(10) ROOMREMARLOBCNAME VARCHAR2(15)VARCHAR2(20)CIDPERMISSIONGROUPGROUPID INTEGER <pk>GROUPNAMVARCHAR2(15)PERMISSIONGROUPIDPERMISSIONNAMU3CHAR2(20)PERMISSIONURVARCHAR2(25)PERMISSIONNOTOBPERMISSI

15、ONIDINTEGER<pkNTEGER<fk>ROLEPERROLEPERIDINTEGERpk> ROLEID INTEGERfkl：PERMISSIONNTEGERfk2>jfFK_R7ROLEROLEID INTEGER <pk>ROLENAMVARCHAR2(20)ROLENOTCLOBROOMTICKETORDERIDUSERIDCARDIDFOODTICKETORDERIDORDERTIMETOTALMONEYNUMBERUSERSUSERID CARDIDVARCHAR2(20)2>NUMBER(20<fk3>ORDE

16、RSTATUISUMBERORDERREMARVARCHAR2(50)ROOMIDCLIENTINDATVARCHAR2(20)CLIENTOUTDATARCHAR2(20)INTEGER <fk1>NUMBER <pk> INTEGER <fk1： VARCHAR2(<H)2： VARCHAR2(20)REALPAYMONEUMBERNUMBER <pk>FK R4CLIENTMARGNUMBER(20)CLIENTAMOUNUMBER(20) ORDERTIME VARCHAR2(20) ORDERREMACKOBFK_F6USERIDINT

17、EGERROLEIDINTEGER<pk><fk2>CUSTINFOCARDID VARCHAR2(<Pk CUSTSEX VARCHAR2(10)CUSTPHONARCHAR2(2O)VIPCHECKNUMBER(10)CUSTDATEVARCHAR2(20)DESKTYPEDESKT YPEID NUMBER <pkDESKSEATNUMNUMBERDESKDIRECTIOVARCHAR2(10)DESKTYPEREMARRCHAR2(50)DESKIDNUMBERfk2DEPARTMENTDEPARTMENINDJEGER<fk1>DEPA

18、RTMENTIDNTEGER <pk>DEPARTMENTNAMECHAR2(10)DEPARTMENTNOTOBFK UUSERNAMEUSERPWDVARCHAR2(10)VARCHAR2(20)PARENTIDINTEGERUSERNOTEREALNAMEUSERAGECLOBVARCHAR2(20)INTEGERFOODLISTFOODLISTIDNUMBER<pk>FOODIDNUMBER<fk1：USERIDINTEGER<fk3：ORDERIDNUMBER<fk2：FOODSTATUSARCHAR2(20)MENUREMARARCHAR2

19、(50)TICKET DESKFK D1DESKDESKIDDESKISUSINGJMBERDESKREMAVARCHAR2(50)TDID NUMBERpk> ORDERIDUMBERfklNUMBER<pkDESKTYPEIDUMBER<fkFOODTYPEFOODTYPEID NUMBER <pk>FOODTYPENAMVARCHAR2(20)FOODTYPEREMARRCHAR2(50)USERSEXVARCHAR2(5)USERINDATEVARCHAR2(20)USERPHONEVARCHAR2(15)FOODNUMBER <pk>FOOD

20、TYPEIDNUMBER <fk>FOODIDFOODNAME VARCHAR2(20)FOODPRICE NUMBERFOODHELPCOVARCHAR2(10)FOODREMARVARCHAR2(50)图3-2数据库物理模型图3.3酒店管理系统部分数据字典本系统数据库采用Oracle数据库，系统数据库名称为HotelDB，共包含17张表。菜系表：用来存储菜系的信息，其中FOODTYPEI字段为主键。表 3-3-1 菜系：FOODYPE字段名称类型允许空主键外键外键参考表说明FOODTYPEIDNUMBE(5)NOTYES菜系IDFOODTYPENAMEVARCHAR2(20)N

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

22、OODHELPCODEVARCHAR2(10)NOT助记码FOODREMARKVARCHAR2(50)YES备注客房类别表：用来存储客房类别的信息,表3-3-3客房类别表： ROOMTYPE字段名称类型允许空主键外键外键参考表说明ROOMTYPEIDNUMBER(5)NOTYES客房类别编号ROOMTYPENAMEVARCHAR2(20)NOT客房类别名称ROOMTYPEPAYNUMBER(5)NOT类别价格ROOMTYPEREMARKVARCHAR2(50)NOT备注客房信息表：用来存储客房信息。表3-3-4客房信息表：ROOMINFO字段名称类型允许空主键外键AL A?-# 4占丰说明外键

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

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

25、,8个label，8个Edit，两个bitbtn如图：$ Form2 *性育莖记可以在bitbtn按钮中添加图片，使其更加生动，选中按钮，在其属性选择Glyph, 选择需要的图片即可，注意图片格式要符合要求，还可以为界面换颜色。再建立一个Form4,默认格式即可。在其中加入客人信息查询所需控件，1个label，一个 Edit，2 个按钮，1 个 DBGrid:r 1i n rii ir-iri hi k 客人信息查询 nun i n n i n h i n i a u n u ； h fi 11 hei im i 議:-:»确宦:y关闍:这里需要链接数据库，与krxx表中的信息进行链

26、接。连接方式为：首先添加一个数据模板(datemodule)，然后选择 ADOQuery控件和datasource 控件添加到数据模板，选中ADOQuery空件，在其属性中找到connectionstring ， 进行数据库的链接，选择再建立一个Form5,默认格式即可。在其中加入客房登记所需控件，和上面一 样：居间信息養询*-.-s 越碉卡 I X空闭I这个窗体也要进行数据库链接，过程和上面一样，只是链接的表名不同，这里链 接的是kfxx表。双击确定添加代码如下：with Data3.AD0Query1 dobegi nClose;SQL.CIear;SQL.Add('select

27、* from fjxx where房间号码=:a');Parameters.ParamByName('a').value:=Trim(edit1.Text);Ope n;end;关闭键的代码如下：form5.close;forml.show;这样就完成了房间信息查询的操作。（7）再建立一个Form6,默认格式即可。在其中加入查看酒店信息所需控件:1 个 label，1 个按钮，1 个 DBGrid：-o-11-E总 Form &工圖二團匸回酒店基本信息这里主要就是数据库的链接，改用另外一种方式为：首先再建立一个Form7,默认格式即可。在其中加入查看客房信息所需

28、控件，和 （7） 样，不过这里可以采用（5）的方法进行数据库的链接。再建立一个再建立一个 Form8，默认格式即可。在其中加入退房所需控件：X关闭个 label , 1 个 Edit，两个 bitbtn , 1 个 DBGrid，和一个 DBNavigator 如图:r Ul I I TK-Tufj*« psis-詁ITTT卜卜miTX氓jfl将其与数据库中表krxx链接后，输入证件号码单击 DBNavigator控件上的“可 以突出显示选择的信息，然后点击退房可以实现退房功能。进行窗体之间的转换（1）在form3中进行密码设置，双击登录按钮进行代码输入如下：varresults:

29、Varia nt;BEGINresults:=ADOTable1 丄 ookup（' 姓名',edit1.text,'密码'）;if results=edit2.Text the nbeg inform3.Hide;form1.Show;endelsebeg in即plication.MessageBox（'姓名或密码错误','提示信息',64）;edit1.SetFocus;exit;end;end;退出代码为：close;（2）在form1中进行剩余各form间的连接，在form1中分别单击要实现的功能 菜单按钮，并分别输入代

30、码，得到的最后代码如下：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.N4Click(Sender: TObject); beginform1.Hide; form5.ShowModal;end;procedure TForm1.N5Click(Sender: TObject); begin

31、form1.Hide;form6.ShowModal;end;procedure TForm1.N6Click(Sender: TObject); beginform1.hide; form7.ShowModal;end;procedure TForm1.N8Click(Sender: TObject); beginform1.hide;form8.ShowModal;end;procedure TForm1.N7Click(Sender: TObject); beginclose;end;procedure TForm1.FormCreate(Sender: TObject); begin

32、end;并且要在 uint1 的连接代码上添加：usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls,Forms,Dialogs, Menus, DB, ADODB,unit2,unit4,unit5,unit6,unit7,unit8,;在 form2 中进行和 form1 间的转换，代码如下： 双击关闭按钮添加代码：form2.close;form1.show;（4）在 form4 ， form5 ， form6 ，form7 中进行 form1 间的转换，代码类似（ 3）。 3、form1 中退出菜单

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

34、系统？ ", 4,"系统提示”)=vbYes ThenEndEnd IfEnd SelectEnd SubPrivate Sub sztx_Click()Dim StrCommonDialogl.Filter = "BMP图片(*BMP)|*BMP|JPG 图片(*JPG)|*JPG|GIF图片(*.GIF)|*.GIF| 所有文件 (*.*)|*.*"CommonDialog1.ShowOpenIf CommonDialog1.FileName <> "" ThenImage2.Picture = LoadPicture

35、(CommonDialog1.FileName)Str = CommonDialog1.FileNameOpen (App.Path & "picture.txt") For Output As #1Print #1, StrClose #1CommonDialog1.FileName = ""ElseCommonDialog1.FileName = ""End IfEnd SubPrivate Sub sjbf_Click()main_sjbf.Showmain.Enabled = FalseEnd SubPrivate S

36、ub sjhf_Click()main_sjhf.ShowEnd 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 SubPr

37、ivate 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 Sub4.1.3 系统登录模块设计窗体设计添加新窗体，命名为 main_Login , Caption属性为“酒店客房管理系统”;添加Adodc控件以及两个TextBox控件，Textl放在用户名后，Text2放在密 码后;添加两个 Image 控件，分别设置 Picture 属性，添

38、加“确定” 和“退出” 按钮。 代码设计Private Sub Image1_Click()If Text1.Text = 7 And Text2.Text = 123456 Then main.ShowMe.HideElseMsgBox "密码错误！ ", vbCritical, "提示"End IfEnd SubPrivate Sub Image2_Click()EndEnd Sub住宿登记模块窗体设计添加新窗体命名为main_kfdj , Caption属性为“住宿登记”;添加两个Adodc控件、TextBox控件数组以及2个DTPicker控件;

39、 添加3个ComboBoX空件。代码设计Private Sub comdj_Click()Adodc1.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"Adodc1.RecordSource = "select * from tb_kf where 房态='空房'

40、"Adodcl.RefreshAdodc2.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"Adodc2.RecordSource = "select * from tb_djb order by 凭证号码"Adodc2.RefreshIf Not Adodc

41、2.Recordset.EOF The n Adodc2 .R ecordset.MoveLastIf lsph.Text = "" Then bh.Text = Fdate & "d" & Format(1, "#000")If lsph.Text <> "" The nyl.Text = Mon th(Fdate)y2.Text = Month(Left(lsph.Text, 10)If y1.Text = y2.Text Then'bh.Text = Fdate &

42、 "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).Text = ""ZSDJ(i).Enabled = TrueNext

43、 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=Oraclein OraDb11g_home1 ;" & "

44、server=webserver;DSN=;databasename=aa;databasefile=d:aa;UID=scott;PWD=1 23456"Adodc3.RecordSource = "select * from tb_kf where 房态 = '空房'"Adodc3.RefreshCombo3.ClearIf Adodc3.Recordset.RecordCount > 0 ThenFor i = 1 房间号 ”).ValueNext iEnd lfEnd SubPrivate Sub comok_Click()lf ZS

45、DJ(0) = "" Or Combo3 = "" ThenMsgBox "请输入完整信息 ", , "系统提示 "ElseAdodc2. RecordSource= "select * from tb_djb where 房间号 = '" &Combo3.Text & "' and 标志 like '1'"Adodc2.RefreshIf Adodc2.Recordset.RecordCount = 0 Then凭证号码&qu

46、ot;)=bh.TextIf ZSDJ(O).Text<> "" Then Adodc2.Recordset.Fields("姓名")= ZSDJ(0).Text(证件名称")= Combo1.TextIf ZSDJ(1).Tex<> "" Then Adodc2.Recordset.Fields(证件号码")=ZSDJ(1).Text(详羊细地址")= ZSDJ(2).TextIf Combo3.Text <> "" Then Adodc2.Rec

47、ordset.Fields(房间号")= Val(Combo3.Text)If ZSDJ(4).Tex<> "" Then Adodc2.Recordset.Fields(客房类型")= ZSDJ(4).TextIf DTP1.Value<> "" Then Adodc2.Recordset.Fields(住宿日期")= DTP1.ValueIf ZSDJ(5).Tex<> "" Then Adodc2.Recordset.Fields(客房价格")=Val(

48、ZSDJ(5).Text)If ZSDJ(6).Tex<> "" Then Adodc2.Recordset.Fields(住宿天数")=ZSDJ(6).TextIf ZSDJ.Text<> "" Then Adodc2.Recordset.Fields("宿费")= ZSDJ(7).Text(退宿日期")= DTP3.ValueAdodc2.Refreshadocon.Open "Provider=Microsoft.Jet.OLEDB.4.O;Data Source="

49、; &App.Path & "DB_KFGL.mdb;Persist Security Info=False"adoRs.Open "select * from tb_djys", adocon, adOpenKeyset, adLockOptimisticadoRs.AddNewIf bh.Text <> "" Then adoRs.Fields凭证号码")=bh.TextIf ZSDJ(0).Text <> "" The n adoRs.Field姓名"

50、;) = ZSDJ(0).TextIf Combo1.Text <> "" Then adoRs.Fields证件名称")=Combo1.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

51、ielc客房类型")=ZSDJ.TextIf Combo3.Text <> "" The n adoRs.Fields房间号")=Val(Combo3.Text)If ZSDJ(5).Text <> "" Then adoRs.Fielc客房价格")=Val(ZSDJ(5).Text)If DTPl.Value <> "" Then adoRs.Field住宿日期")=DTPl.ValueIf ZSDJ(6).Text <> ""

52、; Then adoRs.Field住宿天数")=ZSDJ(6).TextIf ZSDJ(7).Text <> "" The n adoRs.Field宿费")=ZSDJ(7).TextIf DTP3.Value <> "" Then adoRs.Field退宿日期")=DTP3.Value adoRs.Update adocon.CloseAdodc1.RecordSource= "select * from tb_kf where 房间号 like '" + Combo

53、3.Text + "'"If Combo3.Text <> "" The n Adodc1 .R ecordset.Fields房 态")="入住"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.Enabl

54、ed = False: Comprint.Enabled = True: Comdj.Enabled = True Comprint.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 = FalseCombo1.Enabled = False: DTP3.Enabled = FalseComdj.En

55、abled = TrueEnd SubPrivate Sub comend_Click()Unload Me main.Enabled = TrueEnd Sub4.1.5 退宿登记模块 按照如上方法设计窗体如下：代码设计：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=sc

56、ott;PWD=1 23456"Adodc1.RecordSource = "select * from tb_djb"'Adodcl.RefreshAdodc2.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"Adodc2.RecordSource = "select * from tb_kf"'Adodc2.RefreshAdodc3.Co nn ectio nStri ng = "PROVIDER=MSDASQL;DRIVER=Oraclei n OraDb11g_home1;"&"server=webserver;DSN=;database name=aa;databasefile=d: