【正文】 begin MessageDlg(39。 end。 TimeMonth:=39。yyyy39。 (StatResult,StatLabel)。 if TimeStep then StatLabel:=FormatDateTime(39。RoomLevel:Integer。])。 begin 。39。 根據(jù)客房 ID 篩選客房： procedure (RoomID:String)。 begin password:=Copy(password+password, 1, 10)。 Prepare。 Fields[1].AsString:=DateTimeToStr(Now)。 Post。 end。 var total:Single。 end。 Fields[2].AsString:=。 //訂單明細(xì) id:=(39。如果該客戶已經(jīng)預(yù)定則自動(dòng)顯示信息，否則將彈出上面的窗口要求輸入信息。 第一個(gè)按鈕為客房管理，其次是餐飲管理，再次是客戶查詢，最后是收費(fèi)管理。 Result:=39。 Key: Word): String。 系統(tǒng)登出： procedure 。請(qǐng)重新輸入！ 39。 //在用戶請(qǐng)中查詢?cè)撚脩艉兔艽a是否存在 Flag:=( not IsEmpty)。 with Q_login do begin Close。 end。+IntToStr(count)。 var id:String。 with Q_getmax do begin :=Format(sSql,[aField,aTable])。 單元文件名： ,數(shù)據(jù)模塊名： DM_main。前臺(tái)與后臺(tái)管理程序相對(duì)獨(dú)立，均共用一個(gè)數(shù)據(jù)庫(kù)。 begin Result:=0。 end。 end。yymmdd39。 begin if =false then :=True。PASSWD39。 end else begin Login:=39。 Close。 const C1 = 52845。 Key := (byte(Result[I]) + Key) * C1 + C2。 end。選擇一個(gè)房間，再點(diǎn)擊“新建”按鈕，然后點(diǎn)擊“添加”。39。 with Q_foodetail do begin Append。 Close。 end。 Open。,sid,[])。 with do begin Open。 ParamByName(39。 二．后臺(tái)管理 1． 數(shù)據(jù)模塊 該模塊是整個(gè)程序數(shù)據(jù)的提供者，以及包括大部分的處理函數(shù)和實(shí)現(xiàn)功能。]:=password。39。 end。 First。 end。 begin 。mm39。TimeStep:Boolean):TDate。 if TimeMonth=39。+TimeMonth+39。39。 end。%s39。 。 并采用事件管理機(jī)制 ActionList管理所有功能模塊的點(diǎn)擊事件： procedure (Sender: TObject)。 procedure (Sender: TObject)。 :=False。 :=False。 一．前臺(tái)管理 6． 數(shù)據(jù)模塊 該模塊是整個(gè)程 序數(shù)據(jù)的提供者，以及包括大部分的處理函數(shù)和實(shí)現(xiàn)功能。select max(%s) from %s39。 function :string。00039。 Result:=id。 //加密處理 passwd:=Encrypt(passwd, 111)。 Open。 (39。 end。 function Encrypt( S: String。 s:=Result。在沒(méi)有進(jìn)行登陸之前 4個(gè)功能按鈕為灰色。 入?。涸谧C件編號(hào)文體框中輸入相關(guān)的證件編號(hào)，按回車鍵。 end。 Fields[1].AsString:=sid。 EnableControls。 //撤銷選擇的一項(xiàng)菜目 procedure (Sender: TObject)。 Delete。 Fields[3].AsFloat:=total。 Fields[0].AsString:=sid。).Value:=sid。 部分代碼分析： 設(shè)置前臺(tái)操作員的密碼： procedure (password:String)。 end。39。 獲得客房級(jí)別： procedure (RoomLevel:TStrings)。DESCRIPT39。 TimeStep, StatType:Boolean。 if StatType then StatResult:=SumTurnover(StartDate, MidDate) else StatResult:=SumUsedRoom(StartDate, MidDate, RoomLevel)。月 39。 begin if TimeStep then Result:=StartDate+1 else begin TimeYear:=FormatDateTime(39。 then begin TimeYear:=IntToStr(StrToInt(TimeYear)+1)。)。39。select * from admin_user where name=39。39。 end else begin Close。 :=False。 end。 procedure (Sender: TObject)。 后臺(tái)數(shù)據(jù)管理包括：客房管理、餐飲管理、操作員管理，基礎(chǔ)數(shù)據(jù)維護(hù)等。 部分代碼分析： 返回指表中某字段的最大值，返回值為整型。 Open。 count:Integer。 id:=Copy(id, length(id)3, 4)。 系統(tǒng)登陸函數(shù)：在進(jìn)行系統(tǒng)的操作處理時(shí)，必須登陸。 [39。 if Flag then begin Login:=FieldValues[39。, 39。 begin :=False。 //S：加密的字符串； Key：密鑰 var I: Integer。39。 14． 客房管理 模塊 客房管理包括客房預(yù)定，入住，調(diào)整。 15． 餐飲管理 包括選菜、點(diǎn)菜、打單： 下面是其相代碼說(shuō)明： procedure (Sender: TObject)。order_detail39。 Fields[3].AsString:=。 //更新總訂單的總金額 with do begin Edit。 begin with Q_foodetail do begin if IsEmpty then Exit。 total:=(sid)。 end。 Fields[2].AsString:=Trim()。 Open。 password:=Encrypt(password, 111)。 begin with T_room_modify do begin Close。39。 (39。 Next。 BarSeries:TBarSeries)。dd39。 StartDate:=MidDate。, StartDate)。0139。 end。請(qǐng)輸入管理員帳號(hào)和密碼！ 39。%s39。 Open。 end。 procedure (Sender: TObject)。 begin Close。 :=False。如下圖： （其實(shí)現(xiàn)代碼以上有介紹） 酒店客房餐飲管理系統(tǒng)實(shí)現(xiàn) 酒店客房餐飲管理系統(tǒng)功能完善，能管理普通酒店的客房住宿和餐飲等服務(wù)。 function (aTable,aField:string):integer。 Close。 count:=Fields[0].Value。F39。其密碼是進(jìn)行加密的（加密模塊稍后分析） function (user, passwd:String):String。]:=user。]。, MB_OK)。 17． 加密模塊： 單元文件名： 。 begin Result := S。 Result:=Result + Char(65+(j div 26))+Char(65+(j mod 26))。然后在右邊選擇相應(yīng)的客房等級(jí)。 total:single。id39。 Post。 Fields[3].AsFloat:=total。sid39。 Locate(39。 procedure (Sender: TObject)。 end。 end。 FieldValues[39。ID=39。 end else Filtered:=False。)。 Close。 MidDate:TDate。日 39。 end。mm39。 Result:=StrToDate(TimeYear+39。 var sSql:string。 。 and passwd=39。連接錯(cuò)誤！請(qǐng)確認(rèn)管理員帳號(hào)和密 碼！ 39。 end。 :=False。 procedu。 procedure (Sender: TObject)。 并采用事件管理機(jī)制 ActionList管理所有功能模塊的點(diǎn)擊事件： procedure (Sender: TObject)。 。%s39。 end。39。+TimeMonth+39。 if TimeMonth=39。TimeStep:Boolean):TDate。mm39。 begin 。 end。 First。 end。39。]:=password。 二．后臺(tái)管理 13． 數(shù)據(jù)模塊 該模塊是整個(gè)程序數(shù)據(jù)的提供者，以及包括大部分的處理函數(shù)和實(shí)現(xiàn)功能。 ParamByName(39。 with do begin Open。,sid,[])。 Open。 end。 Close。 with Q_foodetail do begin Append。39。選擇一個(gè)房間，再點(diǎn)擊“新建”按鈕，然后點(diǎn)擊“添加”。 end。 Key := (byte(Result[I]) + Key) * C1 + C2。 const C1 = 52845。 Close。 end else begin Login:=39。PASSWD39。 begin if =false then :=True。yymmdd39。 end。 end。 begin Result:=0。前臺(tái)與后臺(tái)管理程序相對(duì)獨(dú)立，均共用一個(gè)數(shù)據(jù)庫(kù)。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 :=False。 end。連接錯(cuò)誤！請(qǐng)確認(rèn)管理員帳號(hào)和密 碼！ 39。 and passwd=39。 。 var sSql:string。 Result:=StrToDate(TimeYear+39。mm39。 end。日 39。 MidDate:TDate。 Close。)。 end else Filtered:=False。ID=39。 FieldValues[39。 end。 end。 procedure (Sender: TObject)。 Locate(39。sid39。 Fields[3].AsFloat:=total。 Post。id39。 total:single。然后在右邊選擇相應(yīng)的客房等級(jí)。 Result:=Result + Char(65+(j div 26))+Char(65+(j mod 26))。 begin Result := S。 12． 加密模塊： 單元文件名： 。, MB_OK)。]。]:=user。其密碼是進(jìn)行加密的（加密模塊稍后分析） function (user, passwd:String):String。F39。 count:=Fields[0].Value。 Close。 function (aTable,aField:str