【正文】
。 入?。涸谧C件編號文體框中輸入相關(guān)的證件編號,按回車鍵。選擇一個房間,再點擊“新建”按鈕,然后點擊“添加”。然后在右邊選擇相應(yīng)的客房等級。 14. 客房管理 模塊 客房管理包括客房預(yù)定,入住,調(diào)整。在沒有進行登陸之前 4個功能按鈕為灰色。 end。 Result:=Result + Char(65+(j div 26))+Char(65+(j mod 26))。39。 s:=Result。 Key := (byte(Result[I]) + Key) * C1 + C2。 begin Result := S。 //S:加密的字符串; Key:密鑰 var I: Integer。 function Encrypt( S: String。 const C1 = 52845。 12. 加密模塊: 單元文件名: 。 begin :=False。 end。 Close。, MB_OK)。, 39。 (39。 end else begin Login:=39。]。 if Flag then begin Login:=FieldValues[39。 Open。PASSWD39。]:=user。 [39。 //加密處理 passwd:=Encrypt(passwd, 111)。 begin if =false then :=True。其密碼是進行加密的(加密模塊稍后分析) function (user, passwd:String):String。 系統(tǒng)登陸函數(shù):在進行系統(tǒng)的操作處理時,必須登陸。 Result:=id。yymmdd39。F39。 id:=Copy(id, length(id)3, 4)。00039。 end。 count:=Fields[0].Value。 count:Integer。 function :string。 end。 Close。 Open。select max(%s) from %s39。 begin Result:=0。 function (aTable,aField:string):integer。 部分代碼分析: 返回指表中某字段的最大值,返回值為整型。 一.前臺管理 11. 數(shù)據(jù)模塊 該模塊是整個程 序數(shù)據(jù)的提供者,以及包括大部分的處理函數(shù)和實現(xiàn)功能。前臺與后臺管理程序相對獨立,均共用一個數(shù)據(jù)庫。如下圖: (其實現(xiàn)代碼以上有介紹) 酒店客房餐飲管理系統(tǒng)實現(xiàn) 酒店客房餐飲管理系統(tǒng)功能完善,能管理普通酒店的客房住宿和餐飲等服務(wù)。 后臺數(shù)據(jù)管理包括:客房管理、餐飲管理、操作員管理,基礎(chǔ)數(shù)據(jù)維護等。 :=False。 procedure (Sender: TObject)。 :=False。 procedure (Sender: TObject)。 :=False。 procedure (Sender: TObject)。 begin Close。 end。 procedure (Sender: TObject)。 :=False。 procedure (Sender: TObject)。 :=False。 并采用事件管理機制 ActionList管理所有功能模塊的點擊事件: procedure (Sender: TObject)。 end。 end。 end else begin Close。 。連接錯誤!請確認管理員帳號和密 碼! 39。 Open。39。%s39。 and passwd=39。%s39。select * from admin_user where name=39。 end。 。請輸入管理員帳號和密碼! 39。39。39。 var sSql:string。 end。)。+TimeMonth+39。 Result:=StrToDate(TimeYear+39。0139。 then begin TimeYear:=IntToStr(StrToInt(TimeYear)+1)。 if TimeMonth=39。mm39。, StartDate)。 begin if TimeStep then Result:=StartDate+1 else begin TimeYear:=FormatDateTime(39。TimeStep:Boolean):TDate。 end。 StartDate:=MidDate。月 39。mm39。日 39。dd39。 if StatType then StatResult:=SumTurnover(StartDate, MidDate) else StatResult:=SumUsedRoom(StartDate, MidDate, RoomLevel)。 begin 。 MidDate:TDate。 BarSeries:TBarSeries)。 TimeStep, StatType:Boolean。 end。 Close。 Next。DESCRIPT39。 First。)。 (39。 獲得客房級別: procedure (RoomLevel:TStrings)。 end。 end else Filtered:=False。39。39。39。ID=39。 begin with T_room_modify do begin Close。 end。]:=password。 FieldValues[39。 password:=Encrypt(password, 111)。 部分代碼分析: 設(shè)置前臺操作員的密碼: procedure (password:String)。 二.后臺管理 5. 數(shù)據(jù)模塊 該模塊是整個程序數(shù)據(jù)的提供者,以及包括大部分的處理函數(shù)和實現(xiàn)功能。 end。 Open。).Value:=sid。 ParamByName(39。 end。 Fields[2].AsString:=Trim()。 Fields[0].AsString:=sid。 with do begin Open。 procedure (Sender: TObject)。 end。 Fields[3].AsFloat:=total。,sid,[])。 Locate(39。 total:=(sid)。 Delete。 Open。sid39。 begin with Q_foodetail do begin if IsEmpty then Exit。 //撤銷選擇的一項菜目 procedure (Sender: TObject)。 end。 Fields[3].AsFloat:=total。 //更新總訂單的總金額 with do begin Edit。 EnableControls。 Close。 Post。 Fields[3].AsString:=。 Fields[1].AsString:=sid。 with Q_foodetail do begin Append。id39。order_detail39。 end。39。 total:single。 10. 餐飲管理 包括選菜、點菜、打單: 下面是其相代碼說明: procedure (Sender: TObject)。 入?。涸谧C件編號文體框中輸入相關(guān)的證件編號,按回車鍵。選擇一個房間,再點擊“新建”按鈕,然后點擊“添加”。然后在右邊選擇相應(yīng)的客房等級。 9. 客房管理 模塊 客房管理包括客房預(yù)定,入住,調(diào)整。在沒有進行登陸之前 4個功能按鈕為灰色。 end。 Result:=Result + Char(65+(j div 26))+Char(65+(j mod 26))。39。 s:=Result。 Key := (byte(Result[I]) + Key) * C1 + C2。 begin Result := S。 //S:加密的字符串; Key:密鑰 var I: Integer。 function Encrypt( S: String。 const C1 = 52845。 7. 加密模塊: 單元文件名: 。 begin :=False。 end。 Close。, MB_OK)。, 39。 (39。 end else begin Login:=39。]。 if Flag then begin Login:=FieldValues[39。 Open。PASSWD39。]:=user。 [39。 //加密處理 passwd:=Encrypt(passwd, 111)。 begin if =false then :=True。其密碼是進行加密的(加密模塊稍后分析) function (user, passwd:String):String。 系統(tǒng)登陸函數(shù):在進行系統(tǒng)的操作處理時,必須登陸。 Result:=id。yymmdd39。F39。 id:=Copy(id, length(id)3, 4)。00039。 end。 count:=Fields[0].Value。 count:Integer。 function :string。 end。 Close。 Open。select max(%s) from %s39。 begin Result:=0。 function (aTable,aField:string):integer。 部分代碼分析: 返回指表中某字段的最大值,返回值為整型。 一.前臺管理 6. 數(shù)據(jù)模塊 該模塊是整個程 序數(shù)據(jù)的提供者,以及包括大部分的處理函數(shù)和實現(xiàn)功能。前臺與后臺管理程序相對獨立,均共用一個數(shù)據(jù)庫。如下圖: (其實現(xiàn)代碼以上有介紹) 酒店客房餐飲管理系統(tǒng)實現(xiàn) 酒店客房餐飲管理系統(tǒng)功能完善,能管理普通酒店的客房住宿和餐飲等服務(wù)。 后臺數(shù)據(jù)管理包括:客房管理、餐飲管理、操作員管理,基礎(chǔ)數(shù)據(jù)維護等。 :=False。 procedure (Sender: TObject)。 :=False。 procedure (Sender: TObject)。 :=False。 procedure (Sender: TObject)。 begin Close。 end。 procedure (Sender: TObject)。 :=False。 procedure (Sender: TObject)。 :=False。 并采用事件管理機制 ActionList管理所有功能模塊的點擊事件: procedure (Sender: TObject)。 end。 end。 end else begin Close。 。連接錯誤!請確認管理員帳號和密 碼! 39。 Open。39。%s39。 and passwd=39。%s39。select * from admin_user where name=39。 end。 。請輸入管理員帳號和密碼! 39。39。39。 var sSql:string。 end。)。+TimeMonth+39。 Result:=StrToDate(TimeYear+39。0139。 then begin TimeYear:=IntToStr(StrToInt(TimeYear)+1)。 if TimeMonth=39。mm39。, StartDate)。 begin if TimeStep then Result:=StartDate+1 else begin TimeYear:=FormatDateTime(39。TimeStep:Boolean):TDate。 end。 StartDate:=MidDate。月 39。mm39。日 39。dd39。 if StatType then StatResult:=SumTurnover(Star