酒店客房餐飲管理系統(tǒng)實(shí)現(xiàn)-資料下載頁
2025-04-09 07:38本頁面
【正文】 39。0139。 end else TimeMonth:=IntToStr(StrToInt(TimeMonth)+1)。 Result:=StrToDate(TimeYear+39。39。+TimeMonth+39。0139。)。 end。end。2． 系統(tǒng)登陸模塊該系統(tǒng)登陸將連接數(shù)據(jù)庫的管理員用戶表進(jìn)行驗(yàn)證：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。連接錯(cuò)誤！請確認(rèn)管理員帳號和密碼！39。, mtWarning, [mbOK, mbHelp], 6)。 。 Exit。 end else begin Close。 。 end。 end。end。登陸界面：3． 主控程序后臺管理主窗口如下：后臺管理程序采用MDI風(fēng)格窗體。并采用事件管理機(jī)制ActionList管理所有功能模塊的點(diǎn)擊事件：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。后臺數(shù)據(jù)管理包括：客房管理、餐飲管理、操作員管理，基礎(chǔ)數(shù)據(jù)維護(hù)等。4． 客房統(tǒng)計(jì)表該統(tǒng)計(jì)表能統(tǒng)計(jì)某個(gè)時(shí)間段的所有客房的營業(yè)額和使用頻率，通過生成統(tǒng)計(jì)表以支持上層決策。如下圖：（其實(shí)現(xiàn)代碼以上有介
公司管理相關(guān)推薦
鄂ICP備17016276號-1