【正文】 客戶機(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ù)流程圖如圖所示。(b)選擇新產(chǎn)生的窗口 form1，設(shè)置窗口 name 屬性為MainForm ，設(shè)置窗口 caption 屬性為“餐飲管理系統(tǒng)”，.(c)向窗體中添加 Imagelist、MainMenu、Image、TooButton、StatusBar、Panel、Time、label 等控件，并設(shè)置相應(yīng)屬性。:=True。procedure (Sender: TObject)。List[0].Caption:=(39。EndElse begin List[0].ImageIndex:=1。(b)自動(dòng)生成結(jié)帳編號(hào)，自動(dòng)計(jì)算總金額。Procedure (Sender:object)。(b)提供查看消費(fèi)金額窗口。 結(jié)帳數(shù)據(jù)分析窗口(1)實(shí)現(xiàn)目標(biāo)：(a)類(lèi)如資源管理器，使用方便、快捷。procedure (Sender: TObject)。end。end。end。 :=False。B39。(39。 //顯示統(tǒng)計(jì)金額:=IntToStr()。 :=False。 :=False。 :=True。 :=True。end。沒(méi)有員工工資信息,無(wú)法修改.39。 End。(b)向窗體中添加Query、panel、groupbox、time等控件，并設(shè)置相應(yīng)屬性。 End Else //瀏覽狀態(tài) begin :=True。procedure (Sender: TObject。procedure (Sender: TObject。 第6章 結(jié)束語(yǔ)此次畢業(yè)設(shè)計(jì)是我們從大學(xué)畢業(yè)生走向軟件開(kāi)發(fā)人員重要的一步。比如缺乏綜合應(yīng)用專業(yè)知識(shí)的能力。同時(shí)，在畢業(yè)設(shè)計(jì)的過(guò)程中，查閱了大量的資料，也增強(qiáng)了我進(jìn)行資料收集、查找和對(duì)資料進(jìn)行篩選的能力。 :=True。:=True。:=True。:=True。:=True。 end。F39。 beginClose_1:=1。+IntToStr(Year)+39。procedure (Sender: TObject)。 :=True。 :=True。 :=True。 :=True。 then //如果是系統(tǒng)管理員 begin if (39。)。 [1].Text:=39。).AsString。 :=False。 :=False。 :=False。 :=False。[39。權(quán)限39。]39。 :=False。 if List[0]Nil then begin (39。 //閃爍窗體一次end。End else ShowMessage(39。 //查看結(jié)帳單據(jù)的酒菜信息beginIf = True Then //如果組件處于激活狀態(tài)If 0 Then //記錄不為空 If Not Assigned(CKJZDJDJCXX) Then //判斷引用過(guò)程是否為空 begin CKJZDJDJCXX:=(Self)。).AsInteger:=(39。)。員工編號(hào)39。Select * From 房間臺(tái)號(hào)信息表 where 編號(hào) = :A39。 :=(39。).AsString。簡(jiǎn)要說(shuō)明39。A39。 。A39。 。A39。 。A39。 。 //調(diào)入點(diǎn)菜信息瀏覽窗口 end。 //釋放YYCXFX:=Nil。 :=False。 //處理DBEdit1控件的鍵盤(pán)操作begin if key=13 then PerForm(WM_NEXTDLGCTL,0,0) //回車(chē) Else if key=8 then key:=8 //退格鍵 Else if (key39。 :=True。 :=False。 (39。 If Length() = 0 Then begin [1].AsFloat:=0。 If Length() = 0 Then begin [0].AsFloat:=0。 //統(tǒng)一更新工資修改begin 。procedure (Sender: TObject)。procedure (Sender: TObject)。procedure (Sender: TObject。 //保存?zhèn)€人工資修改begin If Then //如果出于編輯狀態(tài) begin :=False。 var Action: TCloseAction)。 。結(jié)帳編號(hào)39。)。結(jié)帳編號(hào)39。)。結(jié)帳編號(hào)39。)。結(jié)帳編號(hào)39。)。).AsString。 :=(39。).AsInteger。 。 。 (39。 //選擇當(dāng)月點(diǎn)菜信息 (39。End。 //打印營(yíng)業(yè)信息begin If = True Then beginIf 0 Then //記錄不為空begin 。begin FlashWindow(,True)。 //選擇操作員var List:Array[0..1]of TListItem。]39。姓名39。 。密碼39。 :=False。 :=False。 :=False。 :=False。 :=(39。).AsString+39。).AsString+39。).AsString=39。 :=True。 :=True。 :=True。 :=True。end。 //分解日期[2].Text:=39。procedure (Sender: TObject)。 end。 :=True。:=True。:=True。:=True。,key)0 then //具有B類(lèi)權(quán)限begin:=True。A39。經(jīng)過(guò)兩個(gè)多月的學(xué)習(xí)，我初步掌握了 Delphi 的基本應(yīng)用，基本達(dá)到了畢業(yè)設(shè)計(jì)的要求。同時(shí)，仍有很多課題需要后輩去努力去完善。begin if key=13 then 。begin if key=13 then 。 end。 //查詢輸入框不可用 :=False。菜譜信息設(shè)置界面如圖511所示。 Begin 。 :=True。 圖59 員工工資管理 (c)代碼如下： procedure (Sender: TObject)。修改39。 :=True。 。 :=False。 //定義函數(shù)Aenabled（判斷控件屬性）begin If key = 1 Then begin :=False。 //設(shè)置參數(shù)B為結(jié)束日期 。Select Sum(費(fèi)用) From 月結(jié)算費(fèi)用信息表 Where 日期 = :A and 日期 = :B39。).AsDateTime:=。(c)詳細(xì)代碼如附錄13：procedure (Sender: TObject)。begin 。procedure (Sender: TObject)。 。 。 //啟動(dòng)時(shí)將焦點(diǎn)跳轉(zhuǎn)到不打折結(jié)賬按鈕begin 。End。End。begin。如果操作員錯(cuò)誤或密碼錯(cuò)誤將提醒并返回錯(cuò)誤點(diǎn)，三次口令錯(cuò)誤，退出系統(tǒng)。controller39?！　　　　　　　　　　　　　D５－２　系統(tǒng)登陸主界面(2)實(shí)現(xiàn)過(guò)程(a)添加新窗體,設(shè)置窗體name 屬性為 user ,設(shè)置窗體caption 屬性為”系統(tǒng)登陸窗口”.(b)向窗體中添加Datasource 、Query、Dbedit、Edit、listcview、Imagelist、Bevel、Image、Panel、Time、Label等控件，并設(shè)置相應(yīng)屬性。//打開(kāi)開(kāi)臺(tái)管理:=True。(c)顯示當(dāng)前系統(tǒng)時(shí)間，當(dāng)前操作員和公司名稱等內(nèi)容。點(diǎn)菜收銀、營(yíng)業(yè)分析、庫(kù)房管理的有機(jī)結(jié)合，可為飯店經(jīng)營(yíng)方向提供依據(jù)，為飯店的發(fā)展提供重要保證。Open方法和ExecSQL 方法的區(qū)別我們?cè)诤竺娴恼鹿?jié)里會(huì)進(jìn)一步地加以討論的。如果是SQL中的查詢命令，把TQuery部件通過(guò)TDataSource部件與數(shù)據(jù)控制部件相連，查詢的結(jié)果將會(huì)顯示在與 TQuery部件相連接的數(shù)據(jù)瀏覽部件中。 它實(shí)現(xiàn)了Delphi對(duì)SQL語(yǔ)言的支持，在Delphi開(kāi)發(fā)的數(shù)據(jù)庫(kù)應(yīng)用中，SQL語(yǔ)句是通過(guò)TQuery部件傳遞到要訪問(wèn)的數(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)作。在伸縮性方面的改進(jìn)包括對(duì)多達(dá)32顆CPU和64 GB RAM的支持。此外，XML支持還簡(jiǎn)化了后端系統(tǒng)集成，并實(shí)現(xiàn)了跨防火墻的無(wú)縫數(shù)據(jù)傳輸。 兼容性良好 　 由于今天Windows操作系統(tǒng)占領(lǐng)著主導(dǎo)地的位，選擇SQL Server一定會(huì)在兼容性方面取得一些優(yōu)勢(shì)。1989年，美國(guó)ANSI采納在ANSI ，稱為ANSI SQL 89， 該標(biāo)準(zhǔn)替代ANSI 。 Delphi7功能十分完善和強(qiáng)大，本欄目將以它為基礎(chǔ)，介紹Delphi的開(kāi)發(fā)環(huán)境、基本概念、控件的使用、常用的編程方法和編程技巧。delphi 7 特點(diǎn)Delphi具有以下的特性：基于窗體和面向?qū)ο蟮姆椒?，高速的編譯器，強(qiáng)大的數(shù)據(jù)庫(kù)支持，與Windows編程緊密結(jié)合，強(qiáng)大而成熟的組件技術(shù)。 Forms窗口是開(kāi)展大部分設(shè)計(jì)的工作區(qū)域。在“Form1”窗體的任意可見(jiàn)位置單擊鼠標(biāo)，可以恢復(fù)主窗體可見(jiàn)以下我們將對(duì)這四個(gè)窗口分別進(jìn)行介紹。而Delphi是完全面向?qū)ο蟮?，這就使得Delphi成為一種觸手可及的促進(jìn)軟件重用的開(kāi)發(fā)工具，從而具有強(qiáng)大的吸引力。您所需要做的，只是在程序中加入完成您所需功能的代碼而已。Delphi實(shí)際上是Pascal語(yǔ)言的一種版本，但它與傳統(tǒng)的Pascal語(yǔ)言有天壤之別。Delphi是全新的可視化編程環(huán)境，為我們提供了一種方便、快捷的Windows應(yīng)用程序開(kāi)發(fā)工具。以上就是自己在做這個(gè)系統(tǒng)過(guò)程中，總結(jié)出的一些想法。在下面的幾個(gè)章節(jié)中，我們會(huì)陸續(xù)地向您介紹這個(gè)軟件的功能及設(shè)計(jì)過(guò)程 。在和一些小型飯店的老板交流過(guò)程中，我們仔細(xì)研究了他們的需求后。這樣那些好的供應(yīng)商依靠自己物美價(jià)廉的產(chǎn)品自然會(huì)找到自己的客戶，同時(shí)省去了大量的交易成本。這些信息庫(kù)的建立將成為飯店信息化管理和辦公自動(dòng)化的重要基礎(chǔ)。新的環(huán)保技術(shù)和環(huán)保產(chǎn)品在飯店業(yè)的應(yīng)用已成為新潮流。先進(jìn)科學(xué)技術(shù)為飯店提供了全面科學(xué)化、數(shù)字化、效率化和精細(xì)化的管理。飯店是一個(gè)以服務(wù)為本的行業(yè)，依靠客人對(duì)各項(xiàng)服務(wù)的滿意度來(lái)提升飯店的入住率和經(jīng)營(yíng)效益。 我的構(gòu)想 下面我將簡(jiǎn)要介紹一下我對(duì)飯店信息化的一些構(gòu)想： 直接飯店消費(fèi) 最終顧客 中小型飯店飯店上游供應(yīng)商 潛在顧客以飯店為中心的信息共享平臺(tái) 通過(guò)網(wǎng)站了解，朋友介紹 以客戶為中心的CRM管理系統(tǒng)及飯店網(wǎng)站 圖11 飯店信息構(gòu)想我作為一個(gè)飯店的經(jīng)理，首先第一要解決的問(wèn)題是采購(gòu)問(wèn)題。我要把我們飯店的存貨信息實(shí)時(shí)地在我和供應(yīng)商的平臺(tái)上公布，這樣的話，當(dāng)供應(yīng)商見(jiàn)到我們的存貨信息達(dá)到了需要供應(yīng)的數(shù)量時(shí)，他們會(huì)結(jié)合我們飯店的需求訂單自發(fā)的供應(yīng)蔬菜等產(chǎn)品。在此軟件的開(kāi)發(fā)過(guò)程中，我們參考了一些市場(chǎng)的用得較多的飯店管理軟件，以及點(diǎn)菜系統(tǒng)以后，我們根據(jù)我們所能采用的技術(shù)層次，挑選了一些他們的實(shí)現(xiàn)方式，運(yùn)用我們的技術(shù)來(lái)實(shí)現(xiàn)點(diǎn)菜功能。在客戶關(guān)系管理這塊，我們?cè)谲浖](méi)有實(shí)現(xiàn)，有待于今后擴(kuò)充，而飯店的網(wǎng)站，我們也已經(jīng)初步建立?！罢嬲某绦騿T用c，聰明的程序員用Delphi”，這句話是對(duì)Delphi最經(jīng)典、最實(shí)在的描述。您的工作只是在“骨架”中加入您的程序。Delphi把Windows編程的回調(diào)、句柄處理等繁復(fù)過(guò)程都放在一個(gè)不可見(jiàn)的Romulam覆蓋物下面，這樣您可以不為它們所困擾，輕松從容地對(duì)可視部件進(jìn)行編程。它通過(guò)給程序中加入擴(kuò)展語(yǔ)句，把函數(shù)“封裝”進(jìn)Windows編程所必需的“對(duì)象”中。您不必自己建立對(duì)象，只要在提供的程序框架中加入完成功能的代碼，其余的都交給Delphi去做。為避免隱藏在Delphi后的Program Manager和曾經(jīng)運(yùn)行過(guò)的其它程序擾亂版面，分散您的注意力，不妨在啟動(dòng)Delphi前關(guān)掉其它應(yīng)用程序；啟動(dòng)Delphi后，再最小化隱藏在后面的Delphi 。Speed Bar位于主窗口的左下端，由兩排共14個(gè)加速按鈕組成。按動(dòng)Object Inspector下端的“Events”頁(yè)標(biāo)簽，使得Events頁(yè)可見(jiàn)，這一定的事件后邊的空白處，可以