【文章內容簡介】 mID:String)。 begin with T_room_modify do begin Close。 if length(RoomID)0 then begin Filter:=39。ID=39。39。39。+RoomID+39。39。39。39。 Filtered:=True。 end else Filtered:=False。 Open。 end。 end。 獲得客房級別： procedure (RoomLevel:TStrings)。 begin 。 (39。全部級別 39。)。 with Q_room_level do begin Open。 First。 while not Eof do begin (FieldValues[39。DESCRIPT39。])。 Next。 end。 Close。 end。 end。 客房統(tǒng)計圖實現函數： //StarDate： 開始日期； EndDate：結束日期； procedure (StartDate,EndDate:TDate。 TimeStep, StatType:Boolean。RoomLevel:Integer。 BarSeries:TBarSeries)。 var StatResult:integer。 MidDate:TDate。 StatLabel:String。 begin 。 while StartDateEndDate do begin MidDate:=GetNextDate(StartDate, TimeStep)。 if StatType then StatResult:=SumTurnover(StartDate, MidDate) else StatResult:=SumUsedRoom(StartDate, MidDate, RoomLevel)。 if TimeStep then StatLabel:=FormatDateTime(39。dd39。, StartDate)+39。日 39。 else StatLabel:=FormatDateTime(39。mm39。, StartDate)+39。月 39。 (StatResult,StatLabel)。 StartDate:=MidDate。 end。 end。 換算下個月（日）日期： function (StartDate:TDate。TimeStep:Boolean):TDate。 var TimeYear,TimeMonth:String。 begin if TimeStep then Result:=StartDate+1 else begin TimeYear:=FormatDateTime(39。yyyy39。, StartDate)。 TimeMonth:=FormatDateTime(39。mm39。, StartDate)。 if TimeMonth=39。1239。 then begin TimeYear:=IntToStr(StrToInt(TimeYear)+1)。 TimeMonth:=39。0139。 end else TimeMonth:=IntToStr(StrToInt(TimeMonth)+1)。 Result:=StrToDate(TimeYear+39。39。+TimeMonth+39。0139。)。 end。 end。 6． 系統(tǒng)登陸模塊 該系統(tǒng)登陸將連接數據庫的管理員用戶表進行驗證： procedure (Sender: TObject)。 var sSql:string。 begin if (Trim()=39。39。)or(=39。39。) then begin MessageDlg(39。請輸入管理員帳號和密碼！ 39。, mtWarning, [mbOK, mbHelp], 6)。 。 Exit。 end。 sSql:=39。select * from admin_user where name=39。39。%s39。39。 and passwd=39。39。%s39。39。39。 with do begin :=Format(sSql,[Trim(),])。 Open。 if IsEmpty then begin MessageDlg(39。連接錯誤！請確認管理員帳號和密 碼！ 39。, mtWarning, [mbOK, mbHelp], 6)。 。 Exit。 end else begin Close。 。 end。 end。 end。 登陸界面： 7． 主控程序 后臺管理主窗口如下： 后臺管理程序采用 MDI風格窗體。 并采用事件管理機制 ActionList管理所有功能模塊的點擊事件： procedure (Sender: TObject)。 begin (TF_add, F_add)。 :=False。 end。 procedure (Sender: TObject)。 begin (TF_modify, F_modify)。 :=False。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin Close。 end。 procedure (Sender: TObject)。 begin (TF_operator, F_operator)。 :=False。 end。 procedure (Sender: TObject)。 begin (TF_code, F_code)。 :=False。 end。 procedure (Sender: TObject)。 begin (TF_stat, F_stat)。 :=False。 end。 后臺數據管理包括：客房管理、餐飲管理、操作員管理，基礎數據維護等。 8． 客房統(tǒng)計表 該統(tǒng)計表能統(tǒng)計某個時間段的所有客房的營業(yè)額和使用頻率，通過生成統(tǒng)計表以支持上層決策。如下圖： （其實現代碼以上有介紹） 酒店客房餐飲管理系統(tǒng)實現 酒店客房餐飲管理系統(tǒng)功能完善，能管理普通酒店的客房住宿和餐飲等服務。本系統(tǒng)采用 DELPHI和 SQL SERVER工具開發(fā)，分為前臺和后臺管理。前臺與后臺管理程序相對獨立，均共用一個數據庫。下面對該系統(tǒng)的部份功能和模塊以及代碼進行分析。 一．前臺管理 11． 數據模塊 該模塊是整個程 序數據的提供者，以及包括大部分的處理函數和實現功能。 單元文件名： ,數據模塊名： DM_main。 部分代碼分析： 返回指表中某字段的最大值，返回值為整型。因此該函數只能應用字段為整型的表。 function (aTable,aField:string):integer。 var sSql:string。 begin Result:=0。 sSql:=39。select max(%s) from %s39。 with Q_getmax do begin :=Format(sSql,[aField,aTable])。 Open。 if not IsEmpty then Result:=Fields[0].AsInteger+1。 Close。 end。 end。 接下來這個函數也是返回最大值，但是其為一個訂單的最大編號為字符型。 function :string。 var id:String。 count:Integer。 begin with Q_count_order do begin Open。 count:=Fields[0].Value。 Close。 end。 id:=39。00039。+IntToStr(count)。 id:=Copy(id, length(id)3, 4)。 id:=39。F39。+FormatDateTime(39。yymmdd39。,now)+id。 Result:=id。 end。 系統(tǒng)登陸函數：在進行系統(tǒng)的操作處理時，必須登陸。該函數對用戶輸入的用戶名和密碼數 據庫驗證。其密碼是進行加密的（加密模塊稍后分析） function (user, passwd:String):String。 var Flag:Boolean。 begin if =false then :=True。 passwd:=Copy(passwd+passwd, 1, 10)。 //加密處理 passwd:=Encrypt(passwd, 111)。 with Q_login do begin Close。 [39。ID39。]:=user。 [39。PASSWD39。]:=passwd。 Open。 //在用戶請中查詢該用戶和密碼是否存在 Flag:=( not IsEmpty)。 if Flag then begin Login:=FieldValues[39。NAME39。]。 IsPass:=Flag。 end else begin Login:=39。39。 (39。請重新輸入！ 39。, 39。登錄失敗 39。, MB_OK)。 end。 Close。 end。 end。 系統(tǒng)登出： procedure 。 begin :=False。 //斷開數據庫的連接 end。 12． 加密模塊： 單元文件名： 。 簡單的加密算法。 const C1 = 52845。 C2 = 22719。 function Encrypt( S: String。 Key: Word): String。 //S：加密的字符串； Key：密鑰 var I: Integer。 j: Integer。 begin Result := S。 for I := 1 to Length(S) do begin Result[I] := char(byte(S[I]) xor (Key shr 8))。 Key := (byte(Result[I]) + Key) * C1 + C2。 end。 s:=Result。 Result:=39。39。 for i:=1 to length(s) do begin j:=Integer(s[i])。 Result:=Result + Char(65+(j div 26))+Char(65+(j mod 26))。 end。 end。 13． 主模塊 系統(tǒng)的主界面，包括系統(tǒng)登陸。在沒有進行登陸之前 4個功能按鈕為灰色。 第一個按鈕為客房管理，其次是餐飲管理，再次是客戶查詢，最后是收費管理。 14． 客房管理 模塊 客房管理包括客房預定，入住，調整。其界面如下： 操作介紹： 預定：首先在證件編號文體框中輸入相關的證件編號，按回車鍵，顯示如下窗口： 輸入完整后單擊添加則返回上一個界面，相關的數據將自動填寫。然后在右邊選擇相應的客房等級。在網格中將顯示該等級的所有空閑房號。選擇一個房間，再點擊“新建”按鈕，然后點擊“添加”?？头款A定完畢。 入?。涸谧C件編號文體框中輸入相關的證件編號，按回車鍵。如果該客戶已經預定則自動顯示信息，否則將彈出上面的窗口要求輸入信息。 15． 餐飲管理 包括選菜、點菜、打單： 下面是其相代碼說明： procedure (Sender: TObject)。 var id:integer。 total:single。 begin if sid=39。39。 then begin B_neworderClick(nil)。 end。 //訂單明細 id:=(39。order_detail39。,39。id39。)。 with Q_foodetail do begin Append。 F