【正文】 se。 :=False。 :=False。 :=False。 //定義函數(shù)Aenabled（判斷控件屬性）begin If key = 1 Then begin :=False。 (b)可按員工編號(hào)或姓名查詢員工信息. (c)可使用導(dǎo)航條瀏覽員工信息.員工信息界面如圖5－8所示。end。 //顯示統(tǒng)計(jì)金額:=IntToStr()。 //設(shè)置參數(shù)B為結(jié)束日期 。B39。).AsDateTime:=。(39。Select Sum(費(fèi)用) From 月結(jié)算費(fèi)用信息表 Where 日期 = :A and 日期 = :B39。 //設(shè)置參數(shù)B為結(jié)束日期。B39。).AsDateTime:=。(39。Select * From 月結(jié)算費(fèi)用信息表 where 日期 = :A and 日期 = :B ORDER BY 結(jié)帳編號(hào) ASC39。(c)詳細(xì)代碼如附錄13：procedure (Sender: TObject)。營(yíng)業(yè)查詢界面如圖5－7所示。end。 :=False。begin 。end。begin 。end。procedure (Sender: TObject)。 。 var CanClose: Boolean)。end。 。 。 　　　　　　 　圖5－6　日結(jié)算管理(2)實(shí)現(xiàn)過程:(a)添加新窗體,設(shè)置窗體name 屬性為 rjsg1,設(shè)置窗體caption 屬性為”日結(jié)算管理:”(b)向窗體中添加Qurey、datasource、label、panel、bitbtn、bevel等控件，并設(shè)置相應(yīng)屬性(c)代碼如下:procedure (Sender: TObject)。end。 。 //打印點(diǎn)菜信息begin :=。end。procedure (Sender: TObject)。 //啟動(dòng)時(shí)將焦點(diǎn)跳轉(zhuǎn)到不打折結(jié)賬按鈕begin 。(2)實(shí)現(xiàn)過程(a)添加新窗體，設(shè)置窗體name 屬性為JZSJFX ，設(shè)置窗體caption 屬性為“結(jié)帳數(shù)據(jù)分析”(b)向窗體中添加Query、Datasource、Groupbox、Dbgrid、imgagelist、treeview、lable等控件，并設(shè)置相應(yīng)屬性。(c)自動(dòng)匯總總金額。 結(jié)帳數(shù)據(jù)分析窗口(1)實(shí)現(xiàn)目標(biāo)：(a)類如資源管理器，使用方便、快捷。(c)程序代碼如下：Procedure (Sender:TObject)?？腿速I單界面如圖5－4所示。(b)提供查看消費(fèi)金額窗口。End。:=true。:=true。Procedure (Sender:object)。End。begin[1,0]:=‘編號(hào)’；[2,0]:=‘名稱’；[3,0]:=‘類型’；[4,0]:=‘單位’；[5,0]:=‘?dāng)?shù)量’；[6,0]:=‘價(jià)格’；[7,0]:=‘狀態(tài)’；[8,0]:=‘合計(jì)’；For a:=1 to do Begin [0,a]:=intToStr(a)。下面這段代碼主要設(shè)置表格控件的列題和行號(hào)：procedure (Sender:Tobject)。begin。(b)向窗體中添加Query、Groupbox、Panel、Dbtext、Imagelist、Listbox、StringGrid、Bevel、Image、Label、Bitbtn等控件，并設(shè)置相應(yīng)屬性。點(diǎn)菜服務(wù)窗口如圖5－3所示。(b)自動(dòng)生成結(jié)帳編號(hào)，自動(dòng)計(jì)算總金額。如果操作員錯(cuò)誤或密碼錯(cuò)誤將提醒并返回錯(cuò)誤點(diǎn)，三次口令錯(cuò)誤，退出系統(tǒng)。end。 。EndElse begin List[0].ImageIndex:=1。controller39。編號(hào)39。).AsString。List[0].Caption:=(39。 //打開關(guān)閉鑰匙。begin:=True。procedure (Sender: TObject)。　　　　　　　　　　　　　　圖５－２　系統(tǒng)登陸主界面(2)實(shí)現(xiàn)過程(a)添加新窗體,設(shè)置窗體name 屬性為 user ,設(shè)置窗體caption 屬性為”系統(tǒng)登陸窗口”.(b)向窗體中添加Datasource 、Query、Dbedit、Edit、listcview、Imagelist、Bevel、Image、Panel、Time、Label等控件，并設(shè)置相應(yīng)屬性。(c)支持鍵盤操作，系統(tǒng)管理員擁有管理系統(tǒng)的一切權(quán)力。系統(tǒng)登陸窗口主要實(shí)現(xiàn)如下功能：(a)以形象的圖標(biāo)形式顯示操作員，并憑口令進(jìn)入主界面。:=True。//打開開臺(tái)管理:=True。,key)0 then //具有A類權(quán)限begin:=True。 //聲明操作權(quán)限函數(shù) EnabledKeybeginif Pos(39。(b)選擇新產(chǎn)生的窗口 form1，設(shè)置窗口 name 屬性為MainForm ，設(shè)置窗口 caption 屬性為“餐飲管理系統(tǒng)”，.(c)向窗體中添加 Imagelist、MainMenu、Image、TooButton、StatusBar、Panel、Time、label 等控件，并設(shè)置相應(yīng)屬性。(c)顯示當(dāng)前系統(tǒng)時(shí)間，當(dāng)前操作員和公司名稱等內(nèi)容。 表４－６　工資管理信息表結(jié)構(gòu) 字段名稱數(shù)據(jù)類型字段大小工資編號(hào)Int姓名Char12基本工資Money獎(jiǎng)金Money加班費(fèi)Money其他費(fèi)用Money扣除費(fèi)用說(shuō)明char30扣除費(fèi)用Money合計(jì)Money是否發(fā)表Char10房間臺(tái)號(hào)信息表功能：房間臺(tái)號(hào)信息表用于保存房間的相關(guān)信息表４－７　房間臺(tái)號(hào)信息表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小編號(hào)Int房間名稱char30類型說(shuō)明Char20餐飲部門Char20服務(wù)費(fèi)Money簡(jiǎn)要說(shuō)明Char30狀態(tài)char10權(quán)限信息表功能：權(quán)限信息表用于保存設(shè)置權(quán)限相關(guān)信息表４－８　權(quán)限信息表結(jié)構(gòu)字段名稱數(shù)據(jù)類型字段大小編號(hào)Char10姓名Char12員工類別Char20密碼Char10權(quán)限char20　　　　　　　　第5章 系統(tǒng)實(shí)現(xiàn) 主程序窗體設(shè)計(jì)(1) 實(shí)現(xiàn)目標(biāo)程序啟動(dòng)后，在“系統(tǒng)登陸”界面驗(yàn)證操作員密碼后，將進(jìn)入主界面主界面主要實(shí)現(xiàn)如下功能：(a)根據(jù)操作員操作權(quán)限，設(shè)置相應(yīng)權(quán)限的菜單和工具欄功能。數(shù)據(jù)庫(kù)包含一下幾個(gè)表：菜譜費(fèi)用信息表、酒水費(fèi)用信息表、掛單菜譜表員工信息表、日結(jié)算費(fèi)用信息表、工資管理信息表、房間臺(tái)號(hào)信息表、權(quán)限信息表。 系統(tǒng)運(yùn)行需求硬件平臺(tái)方案 　　服務(wù)器 　　　　 □ Pentium 4 Celeron 中央處理器　　　　 □ Intel 845 Desktop 主板　　　　 □ HY 256M DDR內(nèi)存　　　　 □ ST 80G 硬盤　　　　 □ LG套裝 鍵盤、鼠標(biāo)　　　　 □普通 17 純平顯示器　　　　 □ 打印機(jī)： HP3558彩噴 客戶機(jī) 　　　　 □ Celeron4 中央處理器　　　　 □ ASROCK 845GV 主板　　　　 □ HY 128M DDR內(nèi)存　　　　 □ ST 40G 硬盤　　　　 □ LG套裝 鍵盤、鼠標(biāo)　　　　 □普通 17 彩色顯示器 其他硬件 　　　　 □ HP打印服務(wù)器　　　　 □ 四通UPS不間斷電源　　　　 □ 集線器、網(wǎng)線、水晶頭等網(wǎng)絡(luò)設(shè)備 軟件平臺(tái)方案 　 服務(wù)器 　　　　 □ 操作系統(tǒng)：Microsoft Windows xp Server中文版 　　　　 Microsoft Windows xp Service Pack 4中文版　　　　 □ 數(shù) 據(jù) 庫(kù)：Microsoft SQL Server 2000 Enterprise Edition中文版　　客戶機(jī) 　　　　 □ 操作系統(tǒng)：Microsoft Windows xp Professional中文版  　　　　Microsoft Windows xp Service Pack 4中文版 第4章 系統(tǒng)設(shè)計(jì) 系統(tǒng)層次框架飯店管理系統(tǒng)前 臺(tái) 管 理員 工 管 理財(cái) 務(wù) 管 理 基礎(chǔ)信息管 理餐具管理酒水信息菜譜信息商品基礎(chǔ)信息員工信息管理員工資料管理日結(jié)算管理公司資金管理 圖41 飯店管理系統(tǒng)系統(tǒng)層次圖 系統(tǒng)流程圖 根據(jù)餐飲業(yè)的特點(diǎn)和該飯店的實(shí)際情況，系統(tǒng)業(yè)務(wù)流程圖如圖所示。點(diǎn)菜收銀、營(yíng)業(yè)分析、庫(kù)房管理的有機(jī)結(jié)合，可為飯店經(jīng)營(yíng)方向提供依據(jù)，為飯店的發(fā)展提供重要保證。庫(kù)房管理可記錄商品入庫(kù)、出庫(kù)等情況。本系統(tǒng)就是利用計(jì)算機(jī)信息技術(shù)提高飯店的管理水平，主要對(duì)點(diǎn)菜收銀、庫(kù)房進(jìn)行管理，同時(shí)具有營(yíng)業(yè)分析功能。調(diào)用propare 方法并不是必須的，但是對(duì)于要多次執(zhí)行TQuery部件中SQL屬性中的動(dòng)態(tài)SQL語(yǔ)句，調(diào)用Prepare可以大大提高TQuery部件執(zhí)行SQL語(yǔ)句的性能。Open方法和ExecSQL 方法的區(qū)別我們?cè)诤竺娴恼鹿?jié)里會(huì)進(jìn)一步地加以討論的。(4)通過調(diào)用TQuery部件的Open方法或ExecSQl方法執(zhí)行 SQL 命令。詳細(xì)情況請(qǐng)參看“TDatabase部件的使用”；(2)為TQuery部件設(shè)置SQL屬性，TQuery部件的SQL屬性值就是應(yīng)用程序要執(zhí)行的SQL 命令文本，設(shè)置SQL屬性有兩種方法：在程序設(shè)計(jì)過程中，我們可以通過對(duì)象瀏覽器(Object Inspector)編輯SQL屬性在Object Inspector中選擇SQL屬性，這樣會(huì)打開String List Editor窗口，在其中我們便可以編寫SQL命令，我還可以打開Visual Query Builder來(lái)編寫SQL命令 (只有Delphi的客戶/服務(wù)器版本才具有這一工具)。TQuery部件的SQL 屬性中的SQL語(yǔ)句的編寫也有兩種方法，一種方法是在程序設(shè)置階段便將相應(yīng)的SQL語(yǔ)句寫入到TQuery的SQL屬性中，另一種方法是在Delphi開發(fā)的應(yīng)用程序?qū)QL語(yǔ)句，包含在Pascal代碼單元中。如果是SQL中的查詢命令，把TQuery部件通過TDataSource部件與數(shù)據(jù)控制部件相連，查詢的結(jié)果將會(huì)顯示在與 TQuery部件相連接的數(shù)據(jù)瀏覽部件中。而動(dòng)態(tài)SQL語(yǔ)句編程是SQL語(yǔ)句中包含一系列的參數(shù)，在程序運(yùn)行過程中各參數(shù)值是可變的，即可以動(dòng)態(tài)地給SQL語(yǔ)句中的參數(shù)賦值。在Delphi應(yīng)用程序中編寫和使用的SQL語(yǔ)句有兩種：即靜態(tài)SQL語(yǔ)句、動(dòng)態(tài)SQL 語(yǔ)句。TTable部件通過Delphi內(nèi)置的BDE可以實(shí)現(xiàn)對(duì)各種數(shù)據(jù)庫(kù)系統(tǒng)的訪問，然而TQuery部件提供了一些 TTable部件不具備的功能，它們是：(1)多表聯(lián)接查詢(2) 復(fù)雜的嵌套查詢(Select中包含著Select子查詢)明確需要按SQL語(yǔ)言進(jìn)行的操作(3) 因?yàn)門Tabel部件不能使用SQL語(yǔ)言，而在TQuery部件可以使用SQL語(yǔ)言，因而TQuery部件也就具備了強(qiáng)大的關(guān)系查詢能力。 它實(shí)現(xiàn)了Delphi對(duì)SQL語(yǔ)言的支持，在Delphi開發(fā)的數(shù)據(jù)庫(kù)應(yīng)用中，SQL語(yǔ)句是通過TQuery部件傳遞到要訪問的數(shù)據(jù)庫(kù)系統(tǒng)的數(shù)據(jù)庫(kù)引擎中，由數(shù)據(jù)庫(kù)引擎具體執(zhí)行SQL語(yǔ)句，以實(shí)現(xiàn)對(duì)數(shù)據(jù)的操作，而不是傳遞給Delphi中的BDE，由BDE實(shí)施具體的SQL動(dòng)作。 TQuery部件的使用　 TQuery部件是一個(gè)數(shù)據(jù)集部件，它在Delphi部件選擇板上的數(shù)據(jù)訪問頁(yè)(Data Access)上，它與TTable部件具有很多共同的特性，我們?cè)诘谑逭隆皵?shù)據(jù)訪問部件的應(yīng)用及編程”中較詳細(xì)地進(jìn)行了介紹。在部署解決方案的過程中，企業(yè)用戶不一定要拆除原有的設(shè)備從頭。 利于構(gòu)筑“敏捷性商務(wù)” 　 所謂“敏捷性商務(wù)” 就是能夠打破內(nèi)部和外部的商業(yè)界限，對(duì)迅速改變的環(huán)境做出快速反應(yīng)。在伸縮性方面的改進(jìn)包括對(duì)多達(dá)32顆CPU和64 GB RAM的支持。增強(qiáng)的在線商務(wù) 　 Microsoft SQL Server 2000簡(jiǎn)化了管理、優(yōu)化工作，并且增強(qiáng)了迅速、成功的部署在線商務(wù)應(yīng)用程序所需的可靠性和伸縮性。數(shù)據(jù)挖掘功能能夠揭示出隱藏在大量數(shù)據(jù)中的傾向及趨勢(shì)，它允許組織或機(jī)構(gòu)最大限度的從數(shù)據(jù)中獲取價(jià)值。數(shù)據(jù)倉(cāng)庫(kù) Microsoft SQL Server 2000非常明顯的改進(jìn)就是增加了OLAP(聯(lián)機(jī)分析處理)功能,這可以讓很多中小企業(yè)用戶也可以使用數(shù)據(jù)倉(cāng)庫(kù)的一些特性進(jìn)行分析。此外，XML支持還簡(jiǎn)化了后端系統(tǒng)集成，并實(shí)現(xiàn)了跨防火墻的無(wú)縫數(shù)據(jù)傳輸。其增強(qiáng)的特性包括對(duì)豐富的擴(kuò)展標(biāo)記語(yǔ)言（XML）的支持、綜合分析服務(wù)以及便捷的數(shù)據(jù)庫(kù)管理。 　 Microsoft SQL Server 2000是在SQL Server 、可靠性、質(zhì)量以及易用性進(jìn)行了擴(kuò)展。尤其是它可以直接存貯 XML 數(shù)據(jù)，可以將搜索結(jié)果以 XML格式輸出等特點(diǎn)，有利于構(gòu)建了異構(gòu)系統(tǒng)的互操作性，奠定了面向互聯(lián)網(wǎng)的企業(yè)應(yīng)用和服務(wù)的基石。 兼容性良好 　 由于今天Windows操作系統(tǒng)占領(lǐng)著主導(dǎo)地的位，選擇SQL Server一定會(huì)在兼容性方面取得一些優(yōu)勢(shì)。因?yàn)檫@些大型數(shù)據(jù)庫(kù)對(duì)于設(shè)備、平臺(tái)、人員知識(shí)的要求往往較高，而并不是每個(gè)人都具備這樣的條件，且有機(jī)會(huì)去