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