【正文】 public String execute() { Foodtype foodtype = (foodtypeid)。 } public String getFoodprice() { return foodprice。 private FoodServices foodServices。 return LoginSuccess。ListPermission permissionlist=new ArrayListPermission()。 for (int i = 0。 /td td height=24 valign=bottom input type=password name=userPwd id=textfield2style=width: 100px。 /td td width=114 height=24 valign=bottom div align=left input type=text name=userName id=textfieldstyle=width: 100px。 amp。39。databasename=aa。 Set = Adodc1 (8) = 0 (20) = 0 (24) = 0 (25) = 0 (27) = 0End SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd SubPrivate Sub Command1_Click() = select * from tb_djb where 姓名 like 39。DRIVER={Oracle in OraDb11g_home1 }。End If 39。 = CDate() + 1 39。If (結(jié)款方式) Then = (結(jié)款方式) 39。 = Date: = TimePrivate Sub bo4_Click() If Then = select * from tb_djb where 憑證號(hào)碼=39。 For i = 1 To 39。databasename=aa。databasefile=d:\\aa\\。UID=scott。PWD=123456 = select * from tb_kf 39。 = PROVIDER=MSDASQL。DRIVER={Oracle in OraDb11g_home1 }。139。UID=scott。 d amp。databasefile=d:\\aa\\。PWD=123456 = select * from tb_kf where 房態(tài)=39。②代碼設(shè)計(jì)Private Sub dj_Click() = PROVIDER=MSDASQL。 。end。end。end。退出代碼為：close。姓名或密碼錯(cuò)誤39。BEGINresults:=(39。select * from fjxx where 房間號(hào)碼=:a39。在其中加入客房登記所需控件,8個(gè)label，8個(gè)Edit，兩個(gè)bitbtn如圖：可以在bitbtn按鈕中添加圖片，使其更加生動(dòng)，選中按鈕，在其屬性選擇Glyph，選擇需要的圖片即可，注意圖片格式要符合要求，還可以為界面換顏色。菜系表：用來存儲(chǔ)菜系的信息，其中FOODTYPEID字段為主鍵。CUSTINFO客戶信息表 （身份證號(hào)，客戶姓名，客戶性別，客戶電話，是否會(huì)員，信息錄入時(shí)間，備注）。FOODYPE菜系 （菜系編號(hào)，菜系名稱，備注）。 實(shí)現(xiàn)Delphi和oracle的連接，進(jìn)行數(shù)據(jù)的插入。 實(shí)現(xiàn)客房的登記入住和查詢功能，查詢酒店信息，客人信息，客房信息等功能。DESK餐桌表（餐桌編號(hào)，餐桌類別編號(hào)，餐桌狀態(tài)，備注）。ROOMTICKET客房訂單管理表 （訂單編號(hào)，房間號(hào)，下單服務(wù)員ID，身份證號(hào)，入住時(shí)間，離開時(shí)間，押金金額，結(jié)算金額，下單時(shí)間，備注）。酒店管理系統(tǒng)功能結(jié)構(gòu)如圖23所示圖23 系統(tǒng)功能結(jié)構(gòu)圖客房訂單流程圖如圖24所示圖24 客房訂單管理流程圖餐飲部分開臺(tái)流程圖如圖25所示圖25 餐飲部分開臺(tái)流程圖三、數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫概念模型圖如圖31所示：圖31數(shù)據(jù)庫概念模型圖數(shù)據(jù)庫物理模型圖如圖32所示：圖32 數(shù)據(jù)庫物理模型圖本系統(tǒng)數(shù)據(jù)庫采用Oracle數(shù)據(jù)庫，系統(tǒng)數(shù)據(jù)庫名稱為HotelDB，共包含17張表。在其中加入客房登記所需控件：⑷再建立一個(gè)Form3，默認(rèn)格式即可,并且在projectoptions中設(shè)置其為主窗體。 (39。關(guān)閉鍵的代碼如下：。 進(jìn)行窗體之間的轉(zhuǎn)換（1）在form3中進(jìn)行密碼設(shè)置，雙擊登錄按鈕進(jìn)行代碼輸入如下：varresults: Variant。endelsebegin(39。end。在form2中進(jìn)行和form1間的轉(zhuǎn)換，代碼如下： 雙擊關(guān)閉按鈕添加代碼： 。②代碼設(shè)計(jì)Private Sub Image1_Click() If = 7 And = 123456 Then Else MsgBox 密碼錯(cuò)誤！, vbCritical, 提示 End IfEnd SubPrivate Sub Image2_Click()EndEnd Sub①窗體設(shè)計(jì)⑴添加新窗體命名為main_kfdj，Caption屬性為“住宿登記”；⑵添加兩個(gè)Adodc控件、TextBox控件數(shù)組以及2個(gè)DTPicker控件；⑶添加3個(gè)ComboBox控件。UID=scott。databasename=aa。 Format(Val(Right(, 3)) + 1, 000) = Val(Right(, 3)) + 1 End If If Then = Fdate amp。databasefile=d:\\aa\\。 and 標(biāo)志 like 39。 If Then (房態(tài)) = 入住 For i = 0 To 6 ZSDJ(i).Enabled = False Next i ZSDJ(8).Enabled = False: ZSDJ(10).Enabled = False: ZSDJ(11).Enabled = False = False: = False End If = False: = True: = True End IfEnd SubPrivate Sub cancel_Click() For i = 0 To 2 ZSDJ(i).Enabled = False Next i For i = 4 To 6 ZSDJ(i).Enabled = False Next i = False: = False = False: = False = TrueEnd SubPrivate Sub end_Click() Unload Me = TrueEnd Sub按照如上方法設(shè)計(jì)窗體如下：代碼設(shè)計(jì)：Private Sub Form_Load() = PROVIDER=MSDASQL。PWD=123456 = select * from tb_djb 39。UID=scott。databasefile=d:\\aa\\。databasename=aa。DSN=。 If 0 Then 39。賦值給czy39。If (預(yù)收金額) Then = (預(yù)收金額) Else = 0 39。If 6:00:00 PM Then 39。 = CDate() 39。End If = Val() * Val() End IfEnd Sub按照如上方法設(shè)計(jì)窗體如下：代碼設(shè)計(jì)：Private Sub Form_Load() = PROVIDER=MSDASQL。PWD=123456 = select * from tb_djb 39。DSN=。 39。 server=。nbsp。nbsp。 if(()==0) flag=0。 ListRoleper rolepers=(())。 ().getSession().put(permissionlist,permissionlit)。 private int foodtypeid。 } public void setFoodname(String foodname) { = foodname。 } public void setFoodServices(FoodServices foodServices) { = foodServices。 if ((food)) { return addFoodSuccess。 ActionContext session = ()。return clickdel()。 return selectAllRoomTypeSuccess。 通過本次課程設(shè)計(jì)，基本掌握了利用VB建立酒店管理系統(tǒng)的前臺(tái)界面，結(jié)合上課所學(xué)內(nèi)容在Oracle上建立表格，并通過添加新數(shù)據(jù)源的方法將前臺(tái)與后臺(tái)Oracle數(shù)據(jù)連接，基本實(shí)現(xiàn)了課程設(shè)計(jì)的要求。 } public void setRoomTypeServices(RoomTypeServices rTypeServices) { = rTypeServices。 private ListRoomtype rTypeList。 return success。return clickdel()。 (foodname)。 } public void setFoodremark(String foodremark) { = foodremark。 } public void setFo