【文章內(nèi)容簡(jiǎn)介】 房臺(tái)名稱 char 30 設(shè)為主鍵類型說(shuō)明 Char 20 允許為空餐飲部門(mén) Char 20 允許為空服務(wù)費(fèi) money 8 允許為空簡(jiǎn)要說(shuō)明 char 30 允許為空狀態(tài) char 10 允許為空容納人數(shù) Int 4 允許為空13第四章 系統(tǒng)詳細(xì)設(shè)計(jì)及實(shí)現(xiàn) 系統(tǒng)登陸界面設(shè)計(jì) 程序啟動(dòng)后，首先登陸此界面驗(yàn)證操作員的密碼。主要實(shí)現(xiàn)的功能如下： 1)以圖標(biāo)形式顯示數(shù)據(jù)庫(kù)中操作員，并憑口令登入到主界面。2)操作員輸入錯(cuò)誤密碼提醒錯(cuò)誤并返回，三次輸入錯(cuò)誤口令則退出系統(tǒng)。3)實(shí)現(xiàn)權(quán)限登錄：系統(tǒng)管理員擁有一切權(quán)利，其他操作員則被限制一些操作權(quán)限。系統(tǒng)登錄界面如圖 所示。圖 系統(tǒng)登錄界面 （1）添加窗體設(shè)置窗體 caption 屬性為“登錄窗口” ，保存窗體為 。 （2）向窗體中添加Datasource、Query、Edit、Listview、ImageList、Image、Time、Label 等控件。主要控件對(duì)象的屬性如表 421 所示。表 421 主要控件對(duì)象的屬性列表控件名 屬性 值 功能Query1 Databasename SQL060412079Select * from 員工信表權(quán)限查詢Database1 Dataset Query1 設(shè)置數(shù)據(jù)源： ①單擊“登陸”按鈕，將判斷操作員、操作密碼是否正確，如果正確進(jìn)入主界面14并根據(jù)操作員權(quán)限設(shè)置菜單和工具是否可用。如果輸入密碼錯(cuò)誤將提醒并返回，三次錯(cuò)誤輸入則自動(dòng)退出系統(tǒng)。procedure (Sender: TObject)。begin :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。if (39。編號(hào)39。).AsString=39。controller39。 then //如果是系統(tǒng)管理員 begin if (39。密碼39。).AsString then begin ShowMessage(39。[39。+(39。姓名39。).AsString+39。]的口令錯(cuò)誤.39。)。 //口令錯(cuò)誤 。 End Else begin [1].Text:=39。用戶[39。+(39。姓名39。).15AsString+39。]39。 :=(39。姓名39。).AsString。 User_Close:=3。 :=False。 Close。 end。 End Else begin :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 if (39。密碼39。).AsString then begin ShowMessage(39。[39。+(39。姓名39。).AsString+39。]的口令錯(cuò)誤.39。)。 。 End Else begin Name:=(39。權(quán)限39。).AsString。16 (Name)。 //設(shè)置操作員權(quán)限 [1].Text:=39。用戶[39。+(39。姓名39。).AsString+39。]39。 User_Close:=3。 :=False。 Close。 end。 end。 END。②窗體啟動(dòng)，關(guān)閉鑰匙，后將所有操作員添加到操作員列表。procedure (Sender: TObject)。var List:Array[0..1]of TListItem。begin :=True。 User_Close:=0。 //打開(kāi)關(guān)閉鑰匙 。 。 。 While not do begin List[0]:=。 List[0].Caption:=(39。姓名39。).AsString。 if (39。編號(hào)39。).AsString=39。controller39。 then begin List[0].ImageIndex:=0。 End Else begin List[0].ImageIndex:=1。 end。 。17 end。end。③選擇操作員，點(diǎn)擊其中一個(gè)則將員工的姓名和類型添加到了相應(yīng)位置。procedure (Sender: TObject)。var List:Array[0..1]of TListItem。begin List[0]:=。 if List[0]Nil then begin (39。姓名39。,List[0].Caption,[loCaseInsensitive])。//查詢姓名,但是如果有從名的按第一個(gè)算. end。end。 主界面設(shè)計(jì)程序啟動(dòng)后。系統(tǒng)在“登陸界面”驗(yàn)證操作員密碼后，將進(jìn)入此界面。系統(tǒng)主界面主要功能：⑴根據(jù)操作員權(quán)限設(shè)置相應(yīng)權(quán)限的菜單和工具欄功能。⑵可通過(guò)菜單或快捷鍵進(jìn)入相應(yīng)子界面。⑶顯示了系統(tǒng)當(dāng)前時(shí)間和相應(yīng)操作員。主程序界面如圖 所示。圖 主程序界面18 （1）啟動(dòng) Delphi,設(shè)置窗體名為 mainfrom,設(shè)置窗體 caption 為“餐飲管理系統(tǒng)”，保存為 。 （2）向窗體中添加Imagelist、mainmenu、image、toolbutton、stausbar、panel、time、label 等控件主要屬性為：控件名 屬性 值 功能Toolbar1 images Imagelist1 設(shè)置工具欄圖標(biāo)stausbar 1 Panel1 用戶登錄【管理員】 顯示程序狀態(tài)、參數(shù) （3）主要程序代碼如下：①使應(yīng)用項(xiàng)目的提示信息掛鉤程序。 procedure (Sender: TObject)。begin:=DisPlayHint。 //與應(yīng)用項(xiàng)目的提示信息掛鉤end。②先調(diào)用系統(tǒng)登陸窗口，再設(shè)置窗體狀態(tài)參數(shù)程序。procedure (Sender: TObject)。var Year,Month,Day: Word。begin Close_1:=1。 。 //調(diào)用系統(tǒng)登陸窗口 If Close_1 = 0 Then Close Else begin :=wsMaximized。 :=wsNormal。 DecodeDate(StrToDate(DateTOStr(Date)),Year,Month,day)。 //分解日期 [2].Text:=39。系統(tǒng)日期:39。+IntToStr(Year)+39。年39。+IntToStr(Month)+39。月39。+IntToStr(day)+39。日39。 end。19end。③調(diào)入開(kāi)臺(tái)界面程序。procedure (Sender: TObject)。beginIf Assigned(KTGL) Thenbegin。//打開(kāi)臺(tái)號(hào)信息表。// 打開(kāi)餐飲部門(mén)表。//打開(kāi)結(jié)帳編號(hào)表KTGL:=(Self)。end。end。④設(shè)置“B”類權(quán)限有系統(tǒng)管理和系統(tǒng)維護(hù)操作權(quán)， “A”類權(quán)限即系統(tǒng)管理員的操作享有一切操作權(quán)限。如圖 所示。圖 B 類權(quán)限主程序界面代碼如下：Function (key:String):Boolean。//聲明操作權(quán)限函數(shù) EnabledKeybegin if Pos(39。A39。,key)0 then //具有A類權(quán)限 begin20 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=