【正文】 tr(StrToInt(TimeMonth)+1)。0139。 2． 系統(tǒng)登陸模塊 該系統(tǒng)登陸將連接數(shù)據(jù)庫(kù)的管理員用戶表進(jìn)行驗(yàn)證： procedure (Sender: TObject)。)or(=39。, mtWarning, [mbOK, mbHelp], 6)。 sSql:=39。39。39。 if IsEmpty then begin MessageDlg(39。 Exit。 end。 begin (TF_add, F_add)。 begin (TF_modify, F_modify)。 begin 。 end。 end。 end。 end。本系統(tǒng)采用 DELPHI和 SQL SERVER工具開(kāi)發(fā)，分為前臺(tái)和后臺(tái)管理。 單元文件名： ,數(shù)據(jù)模塊名： DM_main。 var sSql:string。 with Q_getmax do begin :=Format(sSql,[aField,aTable])。 end。 var id:String。 Close。+IntToStr(count)。+FormatDateTime(39。 end。 var Flag:Boolean。 with Q_login do begin Close。 [39。 //在用戶請(qǐng)中查詢?cè)撚脩艉兔艽a是否存在 Flag:=( not IsEmpty)。 IsPass:=Flag。請(qǐng)重新輸入！ 39。 end。 系統(tǒng)登出： procedure 。 簡(jiǎn)單的加密算法。 Key: Word): String。 for I := 1 to Length(S) do begin Result[I] := char(byte(S[I]) xor (Key shr 8))。 Result:=39。 end。 第一個(gè)按鈕為客房管理，其次是餐飲管理，再次是客戶查詢，最后是收費(fèi)管理。在網(wǎng)格中將顯示該等級(jí)的所有空閑房號(hào)。如果該客戶已經(jīng)預(yù)定則自動(dòng)顯示信息，否則將彈出上面的窗口要求輸入信息。 begin if sid=39。 //訂單明細(xì) id:=(39。)。 Fields[2].AsString:=。 DisableControls。 end。 Post。 var total:Single。).Value:=sid。 end。id39。 Post。 begin //新建總訂單 sid:=。 Fields[1].AsString:=DateTimeToStr(Now)。 with Q_foodetail do begin Close。 Prepare。 打單：票據(jù)示例如下。 begin password:=Copy(password+password, 1, 10)。PASSWD39。 根據(jù)客房 ID 篩選客房： procedure (RoomID:String)。39。39。 Open。 begin 。 with Q_room_level do begin Open。])。 end。RoomLevel:Integer。 StatLabel:String。 if TimeStep then StatLabel:=FormatDateTime(39。 else StatLabel:=FormatDateTime(39。 (StatResult,StatLabel)。 換算下個(gè)月（日）日期： function (StartDate:TDate。yyyy39。, StartDate)。 TimeMonth:=39。39。 end。 begin if (Trim()=39。) then begin MessageDlg(39。 Exit。39。39。 with do begin :=Format(sSql,[Trim(),])。, mtWarning, [mbOK, mbHelp], 6)。 。 登陸界面： 7． 主控程序 后臺(tái)管理主窗口如下： 后臺(tái)管理程序采用 MDI風(fēng)格窗體。 end。 end。 procedure (Sender: TObject)。 begin (TF_operator, F_operator)。 begin (TF_code, F_code)。 begin (TF_stat, F_stat)。 8． 客房統(tǒng)計(jì)表 該統(tǒng)計(jì)表能統(tǒng)計(jì)某個(gè)時(shí)間段的所有客房的營(yíng)業(yè)額和使用頻率，通過(guò)生成統(tǒng)計(jì)表以支持上層決策。下面對(duì)該系統(tǒng)的部份功能和模塊以及代碼進(jìn)行分析。因此該函數(shù)只能應(yīng)用字段為整型的表。 sSql:=39。 if not IsEmpty then Result:=Fields[0].AsInteger+1。 接下來(lái)這個(gè)函數(shù)也是返回最大值，但是其為一個(gè)訂單的最大編號(hào)為字符型。 begin with Q_count_order do begin Open。 id:=39。 id:=39。,now)+id。該函數(shù)對(duì)用戶輸入的用戶名和密碼數(shù) 據(jù)庫(kù)驗(yàn)證。 passwd:=Copy(passwd+passwd, 1, 10)。ID39。]:=passwd。NAME39。39。登錄失敗 39。 end。 //斷開(kāi)數(shù)據(jù)庫(kù)的連接 end。 C2 = 22719。 j: Integer。 end。 for i:=1 to length(s) do begin j:=Integer(s[i])。 13． 主模塊 系統(tǒng)的主界面，包括系統(tǒng)登陸。其界面如下： 操作介紹： 預(yù)定：首先在證件編號(hào)文體框中輸入相關(guān)的證件編號(hào)，按回車鍵，顯示如下窗口： 輸入完整后單擊添加則返回上一個(gè)界面，相關(guān)的數(shù)據(jù)將自動(dòng)填寫(xiě)?？头款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： 開(kāi)始日期； 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:=IntToStr(StrToInt(TimeMonth)+1)。0139。 10． 系統(tǒng)登陸模塊 該系統(tǒng)登陸將連接數(shù)據(jù)庫(kù)的管理員用戶表進(jìn)行驗(yàn)證： procedure (Sender: TObject)。)or(=39。, mtWarning, [mbOK, mbHelp], 6)。 sSql:=39。39。39。 if IsEmpty then begin MessageDlg(39。 Exit。 end。 begin (TF_add, F_add)。 begin (TF_modify, F_modify)。 begin 。 end。 end。 end。 end。本系統(tǒng)采用 DELPHI和 SQL SERVER工具開(kāi)發(fā)，分為前臺(tái)和后臺(tái)管理。 單元文件名： ,數(shù)據(jù)模塊名： DM_main。 var sSql:string。 with Q_getmax do begin :=Format(sSql,[aField,aTable])。 end。 var id:String。 Close。+IntToStr(count)。+FormatDateTime(39。 end。 var Flag:Boolean。 with Q_login do begin Close。 [39。 //在用戶請(qǐng)中查詢?cè)撚脩艉兔艽a是否存在 Flag:=( not IsEmpty)。 IsPass:=Flag。請(qǐng)重新輸入！ 39。 end。 系統(tǒng)登出： procedure 。 簡(jiǎn)單的加密算法。 Key: Word): String。 for I := 1 to Length(S) do begin Result[I] := char(byte(S[I]) xor (Key shr 8))。 Result:=39。 end。 第一個(gè)按鈕為客房管理，其次是餐飲管理，再次是客戶查詢，最后是收費(fèi)管理。在網(wǎng)格中將顯示該等級(jí)的所有空閑房號(hào)。如果該客戶已經(jīng)預(yù)定則自動(dòng)顯示信息，否則將彈出上面的窗口要求輸入信息。 begin if sid=39。 //訂單明細(xì) id:=(39。)。 Fields[2].AsString:=。 DisableControls。 end。 Post。 var total:Single。).Value:=sid。 end。id39。 Post。 begin //新建總訂單 sid:=。 Fields[1].AsString:=DateTimeToStr(Now)。 with Q_foodetail do begin Close。 Prepare。 打單：票據(jù)示例如下。 begin password:=Copy(password+password, 1, 10)。PASSWD39。 根據(jù)客房 ID 篩選客房： procedure (RoomID:String)。39。39。 Open。 begin 。 with Q_room_level do begin Open。])。 end。RoomLevel:Integer。 StatLabel:String。 if TimeStep then StatLabel:=FormatDateTime(39。 else StatLabel:=FormatDateTime(39。 (StatResult,StatLabel)。 換算下個(gè)月（日）日期： function (StartDate:TDate。yyyy39。, StartDate)。 TimeMonth:=39。39。 end。 begin if (Trim()=39。) then begin MessageDlg(39。 Exit。39。39。 with do begin :=Format(sSql,[Trim(),])。, mtWarning, [mbOK, mbHelp], 6)。 。 登陸界面： 15． 主控程序 后臺(tái)管理主窗口如下： 后臺(tái)管理程序采用 MDI風(fēng)格窗體。 end。 end。 procedure (Sender: TObjec