【正文】 s[1].AsString:=sid。id39。 end。 total:single。 入住：在證件編號(hào)文體框中輸入相關(guān)的證件編號(hào)，按回車鍵。然后在右邊選擇相應(yīng)的客房等級(jí)。在沒有進(jìn)行登陸之前 4個(gè)功能按鈕為灰色。 Result:=Result + Char(65+(j div 26))+Char(65+(j mod 26))。 s:=Result。 begin Result := S。 function Encrypt( S: String。 12． 加密模塊： 單元文件名： 。 end。, MB_OK)。 (39。]。 Open。]:=user。 //加密處理 passwd:=Encrypt(passwd, 111)。其密碼是進(jìn)行加密的（加密模塊稍后分析） function (user, passwd:String):String。 Result:=id。F39。00039。 count:=Fields[0].Value。 function :string。 Close。select max(%s) from %s39。 function (aTable,aField:string):integer。 一．前臺(tái)管理 11． 數(shù)據(jù)模塊 該模塊是整個(gè)程 序數(shù)據(jù)的提供者，以及包括大部分的處理函數(shù)和實(shí)現(xiàn)功能。如下圖： （其實(shí)現(xiàn)代碼以上有介紹） 酒店客房餐飲管理系統(tǒng)實(shí)現(xiàn) 酒店客房餐飲管理系統(tǒng)功能完善，能管理普通酒店的客房住宿和餐飲等服務(wù)。 :=False。 :=False。 :=False。 begin Close。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 并采用事件管理機(jī)制 ActionList管理所有功能模塊的點(diǎn)擊事件： procedure (Sender: TObject)。 end。 。 Open。%s39。%s39。 end。請(qǐng)輸入管理員帳號(hào)和密碼！ 39。39。 end。+TimeMonth+39。0139。 if TimeMonth=39。, StartDate)。TimeStep:Boolean):TDate。 StartDate:=MidDate。mm39。dd39。 begin 。 BarSeries:TBarSeries)。 end。 Next。 First。 (39。 end。39。39。 begin with T_room_modify do begin Close。]:=password。 password:=Encrypt(password, 111)。 二．后臺(tái)管理 5． 數(shù)據(jù)模塊 該模塊是整個(gè)程序數(shù)據(jù)的提供者，以及包括大部分的處理函數(shù)和實(shí)現(xiàn)功能。 Open。 ParamByName(39。 Fields[2].AsString:=Trim()。 with do begin Open。 end。,sid,[])。 total:=(sid)。 Open。 begin with Q_foodetail do begin if IsEmpty then Exit。 end。 //更新總訂單的總金額 with do begin Edit。 Close。 Fields[3].AsString:=。 with Q_foodetail do begin Append。order_detail39。39。 10． 餐飲管理 包括選菜、點(diǎn)菜、打單： 下面是其相代碼說明： procedure (Sender: TObject)。選擇一個(gè)房間，再點(diǎn)擊“新建”按鈕，然后點(diǎn)擊“添加”。 9． 客房管理 模塊 客房管理包括客房預(yù)定，入住，調(diào)整。 end。39。 Key := (byte(Result[I]) + Key) * C1 + C2。 //S：加密的字符串； Key：密鑰 var I: Integer。 const C1 = 52845。 begin :=False。 Close。, 39。 end else begin Login:=39。 if Flag then begin Login:=FieldValues[39。PASSWD39。 [39。 begin if =false then :=True。 系統(tǒng)登陸函數(shù)：在進(jìn)行系統(tǒng)的操作處理時(shí)，必須登陸。yymmdd39。 id:=Copy(id, length(id)3, 4)。 end。 count:Integer。 end。 Open。 begin Result:=0。 部分代碼分析： 返回指表中某字段的最大值，返回值為整型。前臺(tái)與后臺(tái)管理程序相對(duì)獨(dú)立，均共用一個(gè)數(shù)據(jù)庫。 后臺(tái)數(shù)據(jù)管理包括：客房管理、餐飲管理、操作員管理，基礎(chǔ)數(shù)據(jù)維護(hù)等。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 procedure (Sender: TObject)。 end。 :=False。 :=False。 end。 end else begin Close。連接錯(cuò)誤！請(qǐng)確認(rèn)管理員帳號(hào)和密 碼！ 39。39。 and passwd=39。select * from admin_user where name=39。 。39。 var sSql:string。)。 Result:=StrToDate(TimeYear+39。 then begin TimeYear:=IntToStr(StrToInt(TimeYear)+1)。mm39。 begin if TimeStep then Result:=StartDate+1 else begin TimeYear:=FormatDateTime(39。 end。月 39。日 39。 if StatType then StatResult:=SumTurnover(StartDate, MidDate) else StatResult:=SumUsedRoom(StartDate, MidDate, RoomLevel)。 MidDate:TDate。 TimeStep, StatType:Boolean。 Close。DESCRIPT39。)。 獲得客房級(jí)別： procedure (RoomLevel:TStrings)。 end else Filtered:=False。39。ID=39。 end。 FieldValues[39。 部分代碼分析： 設(shè)置前臺(tái)操作員的密碼： procedure (password:String)。 end。).Value:=sid。 end。 Fields[0].AsString:=sid。 procedure (Sender: TObject)。 Fields[3].AsFloat:=total。 Locate(39。 Delete。sid39。 //撤銷選擇的一項(xiàng)菜目 procedure (Sender: TObject)。 Fields[3].AsFloat:=total。 EnableControls。 Post。 Fields[1].AsString:=sid。id39。 end。 total:single。 入?。?在證件編號(hào)文體框中輸入相關(guān)的證件編號(hào)，按回車鍵。然后在右邊選擇相應(yīng)的客房等級(jí)。在沒有進(jìn)行登陸之前 4個(gè)功能按鈕為灰色。 Result:=Result + Char(65+(j div 26))+Char(65+(j mod 26))。 s:=Result。 begin Result := S。 function Encrypt( S: String。 2． 加密模塊： 單元文件名： 。 end。, MB_OK)。 (39。]。 Open。]:=user。 //加密處理 passwd:=Encrypt(passwd, 111)。其密碼是進(jìn)行加密的（加密模塊稍后分析） function (user, passwd:String):String。 Result:=id。F39。00039。 count:=Fields[0].Value。 function :string。 Close。select max(%s) from %s39。 function (aTable,aField:string):integer。 一．前臺(tái)管理 1． 數(shù)據(jù)模塊 該模塊是整個(gè)程序數(shù)據(jù)的提供者，以及包括大部分的處理函數(shù)和實(shí)現(xiàn)功能。酒店客房餐飲管理系統(tǒng)實(shí)現(xiàn) 酒店客房餐飲管理系統(tǒng)功能完善，能管理普通酒店的客房住宿和餐飲等服務(wù)。下面對(duì)該系統(tǒng)的部份功能和模塊以及代碼進(jìn)行分析。因此該函數(shù)只能應(yīng)用字段為整型的表 。 sSql:=39。 if not IsEmpty then Result:=Fields[0].AsInteger+1。 接下來這個(gè)函數(shù)也是返回最大值，但是其為一個(gè)訂單的最大編號(hào)為字符型。 begin with Q_count_order do begin Open。 id:=39。 id:=39。,now)+id。該函數(shù)對(duì)用戶輸入的用戶名和密碼數(shù)據(jù)庫驗(yàn)證。 passwd:=Copy(passwd+passwd, 1, 10)。ID39。]:=passwd。NAME39。39。登錄失敗 39。 end。 //斷開數(shù)據(jù)庫的連接 end。 C2 = 22719。 j: Integer。 end。 for i:=1 to length(s) do begin j:=Integer(s[i])。 3． 主模塊 系統(tǒng)的主界面，包括系統(tǒng)登陸。其界面如下： 操作介紹： 預(yù)定：首先在證件編號(hào)文體框中輸入相關(guān)的證件編號(hào)，按回車鍵，顯示如下窗口： 輸入完整后單擊添加則返回上一個(gè)界面，相關(guān)的數(shù)據(jù)將自動(dòng)填寫?？头款A(yù)定完畢。 var id:integer。 then begin B_neworderClick(nil)。,39。 Fields[0].AsInteger:=id。 Fields[4].AsString:=。 Open。 total:=(sid)。 end。 if not Active then begin ParamByName(39。 end。 with do begin if not Active then Open。 Edit。 end。 Append。 Post。sid39。 end。 單元文件名： ,數(shù)據(jù)模塊名： DM_main。 //加密單元 with T_operator do begin Edit。 end。 if length(RoomID)0 then begin Filter:=39。+RoomID+39。 Filtered:=True。 end。全部級(jí)別 39。 while not Eof do begin (FieldValues[39。 end。 客房統(tǒng)計(jì)圖實(shí)現(xiàn)函數(shù)： //StarDate： 開始日期； EndDate：結(jié)束日期； procedure (StartDate,EndDate:TDate。 var StatResult:integer。 while StartDateEndDate do begin MidDate:=GetNextDate(StartDate, TimeStep)。, StartDate)+39。, StartDate)+39。 end。 var TimeYear,TimeMonth:String。 TimeMonth:=FormatDateTime(39。1239。 end else TimeMonth:=IntToS