freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

酒店客房餐飲管理系統(tǒng)實現(xiàn)—免費畢業(yè)設(shè)計論文-在線瀏覽

2025-02-03 11:56本頁面
  

【正文】 with do begin :=Format(sSql,[Trim(),])。 if IsEmpty then begin MessageDlg(39。, mtWarning, [mbOK, mbHelp], 6)。 Exit。 。 end。 登陸界面: 3. 主控程序 后臺管理主窗口如下: 后臺管理程序采用 MDI風(fēng)格窗體。 begin (TF_add, F_add)。 end。 begin (TF_modify, F_modify)。 end。 begin 。 procedure (Sender: TObject)。 end。 begin (TF_operator, F_operator)。 end。 begin (TF_code, F_code)。 end。 begin (TF_stat, F_stat)。 end。 4. 客房統(tǒng)計表 該統(tǒng)計表能統(tǒng)計某個時間段的所有客房的營業(yè)額和使用頻率,通過生成統(tǒng)計表以支持上層決策。本系統(tǒng)采用 DELPHI和 SQL SERVER工具開發(fā),分為前臺和后臺管理。下面對該系統(tǒng)的部份功能和模塊以及代碼進行分析。 單元文件名: ,數(shù)據(jù)模塊名: DM_main。因此該函數(shù)只能應(yīng)用字段為整型的表。 var sSql:string。 sSql:=39。 with Q_getmax do begin :=Format(sSql,[aField,aTable])。 if not IsEmpty then Result:=Fields[0].AsInteger+1。 end。 接下來這個函數(shù)也是返回最大值,但是其為一個訂單的最大編號為字符型。 var id:String。 begin with Q_count_order do begin Open。 Close。 id:=39。+IntToStr(count)。 id:=39。+FormatDateTime(39。,now)+id。 end。該函數(shù)對用戶輸入的用戶名和密碼數(shù) 據(jù)庫驗證。 var Flag:Boolean。 passwd:=Copy(passwd+passwd, 1, 10)。 with Q_login do begin Close。ID39。 [39。]:=passwd。 //在用戶請中查詢該用戶和密碼是否存在 Flag:=( not IsEmpty)。NAME39。 IsPass:=Flag。39。請重新輸入! 39。登錄失敗 39。 end。 end。 系統(tǒng)登出: procedure 。 //斷開數(shù)據(jù)庫的連接 end。 簡單的加密算法。 C2 = 22719。 Key: Word): String。 j: Integer。 for I := 1 to Length(S) do begin Result[I] := char(byte(S[I]) xor (Key shr 8))。 end。 Result:=39。 for i:=1 to length(s) do begin j:=Integer(s[i])。 end。 8. 主模塊 系統(tǒng)的主界面,包括系統(tǒng)登陸。 第一個按鈕為客房管理,其次是餐飲管理,再次是客戶查詢,最后是收費管理。其界面如下: 操作介紹: 預(yù)定:首先在證件編號文體框中輸入相關(guān)的證件編號,按回車鍵,顯示如下窗口: 輸入完整后單擊添加則返回上一個界面,相關(guān)的數(shù)據(jù)將自動填寫。在網(wǎng)格中將顯示該等級的所有空閑房號??头款A(yù)定完畢。如果該客戶已經(jīng)預(yù)定則自動顯示信息,否則將彈出上面的窗口要求輸入信息。 var id:integer。 begin if sid=39。 then begin B_neworderClick(nil)。 //訂單明細 id:=(39。,39。)。 Fields[0].AsInteger:=id。 Fields[2].AsString:=。 Fields[4].AsString:=。 DisableControls。 Open。 end。 total:=(sid)。 Post。 end。 var total:Single。 if not Active then begin ParamByName(39。).Value:=sid。 end。 end。 with do begin if not Active then Open。id39。 Edit。 Post。 end。 begin //新建總訂單 sid:=。 Append。 Fields[1].AsString:=DateTimeToStr(Now)。 Post。 with Q_foodetail do begin Close。sid39。 Prepare。 end。 打單:票據(jù)示例如下。 單元文件名: ,數(shù)據(jù)模塊名: DM_main。 begin password:=Copy(password+password, 1, 10)。 //加密單元 with T_operator do begin Edit。PASSWD39。 end。 根據(jù)客房 ID 篩選客房: procedure (RoomID:String)。 if length(RoomID)0 then begin Filter:=39。39。+RoomID+39。39。 Filtered:=True。 Open。 end。 begin 。全部級別 39。 with Q_room_level do begin Open。 while not Eof do begin (FieldValues[39。])。 end。 end。 客房統(tǒng)計圖實現(xiàn)函數(shù): //StarDate: 開始日期; EndDate:結(jié)束日期; procedure (StartDate,EndDate:TDate。RoomLevel:Integer。 var StatResult:integer。 StatLabel:String。 while StartDateEndDate do begin MidDate:=GetNextDate(StartDate, TimeStep)。 if TimeStep then StatLabel:=FormatDateTime(39。, StartDate)+39。 else StatLabel:=FormatDateTime(39。, StartDate)+39。 (StatResult,StatLabel)。 end。 換算下個月(日)日期: function (StartDate:TDate。 var TimeYear,TimeMonth:String。yyyy39。 TimeMonth:=FormatDateTime(39。, StartDate)。1239。 TimeMonth:=39。 end else TimeMonth:=IntToStr(StrToInt(TimeMonth)+1)。39。0139。 end。 6. 系統(tǒng)登陸模塊 該系統(tǒng)登陸將連接數(shù)據(jù)庫的管理員用戶表進行驗證: procedure (Sender: TObject)。 begin if (Trim()=39。)or(=39。) then begin MessageDlg(39。, mtWarning, [mbOK, mbHelp], 6)。 Exit。 sSql:=39。39。39。39。39。 with do begin :=Format(sSql,[Trim(),])。 if IsEmpty then begin MessageDlg(39。, mtWarning, [mbOK, mbHelp], 6)。 Exit。 。 end。 登陸界面: 7. 主控程序 后臺管理主窗口如下: 后臺管理程序采用 MDI風(fēng)格窗體。 begin (TF_add, F_add)。 end。 begin (TF_modify, F_modify)。 end。 begin 。 procedure (Sender: TObject)。 end。 begin (TF_operator, F_operator)。 end。 begin (TF_code, F_code)。 end。 begin (TF_stat, F_stat)。 end。 8. 客房統(tǒng)計表 該統(tǒng)計表能統(tǒng)計某個時間段的所有客房的營業(yè)額和使用頻率,通過生成統(tǒng)計表以支持上層決策。本系統(tǒng)采用 DELPHI和 SQL SERVER工具開發(fā),分為前臺和后臺管理。下面對該系統(tǒng)的部份功能和模塊以及代碼進行分析。 單元文件名: ,數(shù)據(jù)模塊名: DM_main。因此該函數(shù)只能應(yīng)用字段為整型的表。 var sSql:string。 sSql:=39。 with Q_getmax do begin :=Format(sSql,[aField,aTable])。 if not IsEmpty then Result:=Fields[0].AsInteger+1。 end。 接下來這個函數(shù)也是返回最大值,但是其為一個訂單的最大編號為字符型。 var id:String。 begin with Q_count_order do begin Open。 Close。 id:=39。+IntToStr(count)。 id:=39。+FormatDateTime(39。,now)+id。 end。該函數(shù)對用戶輸入的用戶名和密碼數(shù) 據(jù)庫驗證。 var Flag:Boolean。 passwd:=Copy(passwd+passwd, 1, 10)。 with Q_login do begin Close。ID39。 [39。]:=passwd。 //在用戶請中查詢該用戶和密碼是否存在 Flag:=( not IsEmpty)。NAME39。 IsPass:=Flag。39。請重新輸入! 39。登錄失敗 39。 end。 end。 系統(tǒng)登出: procedure 。 //斷開數(shù)據(jù)庫的連接 end。 簡單的加密算法。 C2 = 22719。 Key: Word): String。 j: Integer。 for I := 1 to Length(S) do begin Result[I] := char(byte(S[I]) xor (Key shr 8))。 end。 Result:=39。 for i:=1 to length(s) do begin j:=Integer(s[i])。 end。 13. 主模塊 系統(tǒng)的主界面,包括系統(tǒng)登陸。 第一個按鈕為客房管理,其次是餐飲管理,再次是客戶查詢,最后是收費管理。其界面如下: 操作介紹: 預(yù)定:首先在證件編號文體框中輸入相關(guān)的證件編號,按回車鍵,顯示如下窗口: 輸入完整后單擊添加則返回上一個界面,相關(guān)的數(shù)據(jù)將自動填寫。在網(wǎng)格中將顯示該等級的所有空閑房號??头款A(yù)定完畢。如果該客戶已經(jīng)預(yù)定則自動顯示信息,否則將彈出上面的窗口要求輸入信息。 var id:integer。 begin if sid=39。 then begin B_neworderClick(nil)。 //訂單明細 id:=(39。,39。)。 Fields[0].AsInteger:=id。 Fields[2].AsString:=。 Fields[4].AsString:=。 DisableControls。 Open。 end。 total:=(sid)。 Post。 end。 var
點擊復(fù)制文檔內(nèi)容
公司管理相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號-1