【正文】 //“刪除“按鈕可用 :=True。 //“退出“按鈕可用 :=True。 //“查詢“按鈕可用 :=True。 :=True。 :=False。 end。end。 系統(tǒng)開臺管理設(shè)計程序啟動后，調(diào)用菜單“前臺管理”下的“開臺管理”項，將打開“開臺管理”界面。系統(tǒng)開臺管理界面主要功能：⑴以圖標模式顯示空臺、營業(yè)臺，點擊臺號圖標則自動顯示相應(yīng)臺號信息。⑵通過輸入臺號檢索符合條件的臺號。⑶點擊空房自動彈出與昂查詢窗口從而自動開臺。 （1）添加新窗體，設(shè)置窗體名為 ktgl，設(shè)置窗體 caption 為“開臺管理” ，保存為 。 （2）向窗體中添加datasource、query、groupbox、panel、pagecontrol、dbgrid、dbedit、edit、db30text、bitbtn、dblookupbobox、image、label 等控件，主要控件屬性如表 431 所示。表 431 主要控件屬性控件名 屬性 值 功能打他搜如廁 Dataset Query 設(shè)置數(shù)據(jù)源DBLookupComBox1 ListsourceKeyfieldListfield部門名稱部門名稱選擇餐飲部門Dbgrid1 datasource 顯示臺號信息 搜索臺號設(shè)計 所示。圖 開臺管理搜索臺號界面：procedure (Sender: TObject)。 //搜索房臺var List:TListItem。 Lists:integer。 ListText:String。 a,b,c:integer。 d:String。begin If Length() = 0 Then begin31 ShowMessage(39。請輸入查詢的[房臺編號或房臺名稱]信息39。)。 。 End Else begin a:=Length()。 c:=0。 for b:=1 to a do begin D:=COPY(,b,1)。 if (D=39。039。) or (D=39。939。) then begin c:=c+1。 end。 end。 If c = Length() Then begin if (39。編號39。,StrTOInt(),[loCaseInsensitive]) then begin if (39。狀態(tài)39。).AsString39?？臻e39。 then begin :=1。 //顯示第二頁 。//將焦點移到點菜服務(wù)按扭上 End Else begin :=0。 //顯示第一頁 。//將焦點移到開臺設(shè)置按扭上 end。 End32 Else begin ShowMessage(39。對不起，沒有找到。39。)。 end。 End Else begin if (39。房臺名稱39。,[loPartialKey]) then begin if (39。狀態(tài)39。).AsString39?？臻e39。 then begin :=1。 //顯示第二頁 。//將焦點移到點菜服務(wù)按扭上 End Else begin :=0。 //顯示第一頁 。//將焦點移到開臺設(shè)置按扭上 end。 End Else begin ShowMessage(39。對不起，沒有找到。39。)。 end。 end。 end。end。 開臺設(shè)置設(shè)計 所示。33圖 開臺管理開臺設(shè)置界面：procedure (Sender: TObject)。begin GB:=2。 If Length() = 0 Then begin ShowMessage(39。請輸入員工編號39。)。 。 End Else if (39。員工編號39。,StrToInt(),[loCaseInsensitive]) then begin If not Assigned(DCFY_LR) Then begin DCFY_LR:=(Self)。 :=。 :=(39。姓名39。).AsSTring。 :=DateTimeToStr(Now)。 If = 0 Then begin34 。 (39。編號39。).AsInteger:=1。 。 End Else :=IntToStr((39。編號39。).AsInteger+1)。 。 end。 GB:=1。 。 End Else begin ShowMessage(39。對不起,沒有找到此員工信息.39。)。 。 end。end。 臺號信息查詢的設(shè)計 所示。圖 開臺管理臺號信息查詢界面：procedure (Sender: TObject)。 //選擇房臺var list:TListItem。35 ListString:String。begin List:=TlistView(Sender).Selected。 If List nil Then begin ListString:=。 If Length(ListString) 0 Then if (39。房臺名稱39。,ListString,[loPartialKey]) then begin 。 。 (39。select 編號,名稱,類型,單位,數(shù)量,價格,合計,狀態(tài),服務(wù)員姓名 from 點菜臨時表39。)。 (39。where 房間臺號=:a and 是否結(jié)單=:b39。)。 [0].AsInteger:=(39。編號39。).AsInteger。 [1].AsString:=39。否39。 。 。 。 (39。Select Sum(合計) From 點菜臨時表39。)。 (39。Where 房間臺號=:A and 是否結(jié)單=:B39。)。 [0].AsInteger:=(39。編號39。).AsInteger。 [1].AsString:=39。否39。 。 If 0 Then begin 。 :=(39。服務(wù)員姓名39。).AsString。 36:=FloatToStr([0].AsFloat+ldByName(39。服務(wù)費39。).AsFloat)。 End Else begin :=39。39。 :=39。39。 end。 end。end。end。 房臺列表顯示函數(shù)的設(shè)計function ADDListView:Boolean。 //定義房臺列表顯示函數(shù)begin 。 。 :=Format(39。狀態(tài)39。+39。=39。+39。39。39。%S39。39。39。,[39?？臻e39。])。 :=True。 While not do begin :=(39。房臺名稱39。).asstring。 。 end。 :=39?？臻e總數(shù)：39。+IntToStr()。 。 :=Format(39。狀態(tài)39。+39。39。+39。39。39。%S39。39。39。,[39?？臻e39。])。 //39。39。39。狀態(tài)39。39。39。+39。39。+39。39。39。空閑39。39。39。 :=True。37 While not do begin :=(39。房臺名稱39。).AsString。 。 end。 :=39。營業(yè)總數(shù)：39。+IntToStr()。 :=False。end。 點菜管理模塊系統(tǒng)點菜界面主要功能：⑴實現(xiàn)菜譜，酒水查詢的鏈接。⑵點擊“開