【正文】 清晰、編寫容易。欲生成漂亮的界面和結(jié)構(gòu)良好的程序絲毫不必絞盡腦汁，Delphi將幫助您輕松地完成。這樣屏幕上就只留下Delphi窗口可見了。這些按鈕是菜單功能的快捷方式，各種圖標(biāo)直觀地表示了它能執(zhí)行的動(dòng)作。首次啟動(dòng)時(shí)，Object Inspector窗口顯示的是當(dāng)前窗體Form1的屬性。它顯示了窗體上所有部件的名稱和類型，也包含窗體本身。想使Object Inspector一直可見，可將鼠標(biāo)移到Object Inspector上，按動(dòng)右鍵，以啟動(dòng)Object Inspector的彈出式菜單，將其設(shè)置為Stay On Top。窗體上有柵格(Grids)，供放置部件時(shí)對(duì)齊位置用，在程序運(yùn)行時(shí)Grids是不可見的。當(dāng)部件被放到窗體上時(shí)，Delphi會(huì)自動(dòng)生成大部分的用戶界面代碼。可以在其中書寫Delphi應(yīng)用程序的源代碼。除此之外，還允許用戶掛接其它的應(yīng)用程序開發(fā)工具，如Borland公司的資源編輯器（Resourse Workshop）。70年代中期，IBM公司在研制 SYSTEM R關(guān)系數(shù)據(jù)庫管理系統(tǒng)中研制了SQL語言，最早的SQL語言(叫SEQUEL2)是在1976 年 11 月的IBM Journal of Ramp。由于SQL Server與Windows界面風(fēng)格完全一致，且有許多向?qū)?Wizard)幫助，因此易于安裝和學(xué)習(xí)，有關(guān)SQL Server的資料、培訓(xùn)隨處可得，并且目前國(guó)內(nèi)具有MCDBA認(rèn)證的工程師不在少數(shù)。 　 Microsoft SQL Server 2000是在SQL Server 、可靠性、質(zhì)量以及易用性進(jìn)行了擴(kuò)展。數(shù)據(jù)挖掘功能能夠揭示出隱藏在大量數(shù)據(jù)中的傾向及趨勢(shì)，它允許組織或機(jī)構(gòu)最大限度的從數(shù)據(jù)中獲取價(jià)值。在部署解決方案的過程中，企業(yè)用戶不一定要拆除原有的設(shè)備從頭。在Delphi應(yīng)用程序中編寫和使用的SQL語句有兩種：即靜態(tài)SQL語句、動(dòng)態(tài)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來編寫SQL命令 (只有Delphi的客戶/服務(wù)器版本才具有這一工具)。本系統(tǒng)就是利用計(jì)算機(jī)信息技術(shù)提高飯店的管理水平，主要對(duì)點(diǎn)菜收銀、庫房進(jìn)行管理，同時(shí)具有營(yíng)業(yè)分析功能。數(shù)據(jù)庫包含一下幾個(gè)表：菜譜費(fèi)用信息表、酒水費(fèi)用信息表、掛單菜譜表員工信息表、日結(jié)算費(fèi)用信息表、工資管理信息表、房間臺(tái)號(hào)信息表、權(quán)限信息表。 //聲明操作權(quán)限函數(shù) EnabledKeybeginif Pos(39。系統(tǒng)登陸窗口主要實(shí)現(xiàn)如下功能：(a)以形象的圖標(biāo)形式顯示操作員，并憑口令進(jìn)入主界面。begin:=True。).AsString。 。點(diǎn)菜服務(wù)窗口如圖5－3所示。下面這段代碼主要設(shè)置表格控件的列題和行號(hào)：procedure (Sender:Tobject)。:=true。客人買單界面如圖5－4所示。(c)自動(dòng)匯總總金額。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)。 var CanClose: Boolean)。begin 。end。Select * From 月結(jié)算費(fèi)用信息表 where 日期 = :A and 日期 = :B ORDER BY 結(jié)帳編號(hào) ASC39。 //設(shè)置參數(shù)B為結(jié)束日期。).AsDateTime:=。end。 :=False。 :=39。 :=True。 :=False。(b)可查詢、瀏覽及打印工資信息。 EndElse begin 。end。var key:char)’ Begin If key=13 then 。 //定義狀態(tài)編輯與瀏覽狀態(tài)函數(shù)begin If key = 1 Then //編輯狀態(tài) begin :=False。 //“退出“按鈕可用 :=True。begin if key=13 then PerForm(WM_NEXTDLGCTL,0,0)。begin if key=13 then 。其間，查找資料，老師指導(dǎo)，與同學(xué)交流，反復(fù)修改代碼，每一個(gè)過程都是對(duì)自己能力的一次檢驗(yàn)和充實(shí)。　　致 謝緊張忙碌的畢業(yè)設(shè)計(jì)即將結(jié)束了，在這幾個(gè)月的畢業(yè)設(shè)計(jì)中，我看到了我自身水平的不足。他一直都在為我的畢業(yè)設(shè)計(jì)提供耐心的指導(dǎo)，并且?guī)椭医鉀Q了很多疑難問題，這樣才有了我的這份畢業(yè)設(shè)計(jì)。:=True。:=True。:=True。:=True。C39。E39。 :=True。 //調(diào)用系統(tǒng)登陸窗口If Close_1 = 0 ThenCloseElsebegin。+IntToStr(Month)+39。 //與應(yīng)用項(xiàng)目的提示信息掛鉤end。 :=True。 :=True。 :=True。 :=True。).AsString then begin ShowMessage(39。 End Else begin [1].Text:=39。+(39。 :=False。 :=False。 :=False。 :=False。 :=False。姓名39。 (Name)。用戶[39。 end。,List[0].Caption,[loCaseInsensitive])。 var Key: Char)。)。 。).AsInteger。A39。 //顯示員工編號(hào) :=(39。 //選擇房臺(tái)信息 (39。).AsString。餐飲部門39。 。點(diǎn)單39。 //點(diǎn)單記錄數(shù) 。贈(zèng)單39。 //贈(zèng)單記錄數(shù) 。點(diǎn)單39。 //點(diǎn)單金額 。贈(zèng)單39。 //贈(zèng)單金額 if Length()=0 then := Else if Length()=0 then := Else :=FloatToStr(StrToFloat()+StrtoFloat())。procedure (Sender: TObject)。procedure (Sender: TObject)。 :=False。) or (key39。 :=True。 :=False。)。 If Length() 。扣除費(fèi)用=:E,合計(jì)=基本工資+獎(jiǎng)金+加班費(fèi)+其它費(fèi)用扣除費(fèi)用39。end。 。) then key:=0。 //保存修改 end。 //退出營(yíng)業(yè)查詢分析end。end。結(jié)帳編號(hào)39。B39。 (39。B39。 (39。B39。 (39。B39。 (39。 :=(39。類型說明39。).AsInteger:=(39。).AsString。服務(wù)員編號(hào)39。 。Select * From 月點(diǎn)菜信息表 Where 結(jié)帳編號(hào) = :A39。沒有數(shù)據(jù)無法打印.39。 //回車焦點(diǎn)移“登陸“按鈕end。end。end。姓名39。用戶[39。]的口令錯(cuò)誤.39。 :=False。 :=False。 :=False。 :=False。 end。).AsString+39。+(39。+(39。 if (39。 :=True。 :=True。 :=True。 //登陸begin :=True。+IntToStr(day)+39。:=wsNormal。 end。 :=True。D39。:=True。:=True。:=True。EndElseif Pos(39。最后，也是最重要的，感謝所有這四年中傳授我知識(shí)，給予我關(guān)懷和幫助的老師們！參 考 文 獻(xiàn)[1]鄭齊心 《delphi 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例解析》 機(jī)械工業(yè)出版社 (2004)[2]鄭阿奇 《delphi 實(shí)用教程》 電子工業(yè)出版社(2004)[3]閃四清 《完全掌握SQL Server2000[M] 》 人民郵電出版社(2005)[4]劉瑞新 《delphi程序設(shè)計(jì)教程》 機(jī)械工業(yè)出版社(2003)[5]任俊良 《delphi6課程設(shè)計(jì)案例精編》 中國(guó)水利水電出版社(2004)[6]鄭人杰 《軟件工程》 電子工業(yè)出版社(2005)[7]王業(yè)龍 《Delphi 軟件工程案例精解》 電子工業(yè)出版社(2005)[8]張雷 《Delphi應(yīng)用與開發(fā)案例教程》 清華大學(xué)出版社(2005)[9]李維 《面向?qū)ο箝_發(fā)實(shí)踐之路》 電子工業(yè)出版社(2005)[10]溫尚濤 《delphi案例開發(fā)：項(xiàng)目開發(fā)風(fēng)暴》 中國(guó)水利水電出版社(2005)[11]明日科技《delphi數(shù)據(jù)庫系統(tǒng)開發(fā)案例精選》 人民郵電出版社(2006)[12]塞奎春 《delphi信息系統(tǒng)開發(fā)實(shí)例精選》 機(jī)械工業(yè)出版社(2005)[13]康祥順 《delphi案例開發(fā)集錦》 電子工業(yè)出版社(2005)[14]梁燦 《delphi 2005數(shù)據(jù)庫開發(fā)教程》 清華大學(xué)出版社(2005)[15]李獻(xiàn)軍 《軟件項(xiàng)目開發(fā)綜合實(shí)訓(xùn)》 人民郵電出版社(2005)[16]彭文明 《delphi管理信息系統(tǒng)項(xiàng)目開發(fā)實(shí)踐》 科學(xué)出版社(2005)[17]求是科技《delphi信息管理系統(tǒng)開發(fā)實(shí)例導(dǎo)航》 人民郵電出版社(2005)[18]黃明 《delphi7信息系統(tǒng)設(shè)計(jì)與開發(fā)實(shí)例》 機(jī)械工業(yè)出版社(2005)[19]杜大鵬 《sql編程實(shí)用大全》 中國(guó)水利水電出版社(2005)[20]章立民 《sql server 2000 transact sql程序設(shè)計(jì)》中國(guó)鐵道出版社(2003) [21]曹軍生 《sql server 2000 實(shí)用教程》 北京理工大學(xué)出版社(2004)附 錄代碼11Function (key:String):Boolean。大學(xué)四年的學(xué)習(xí)即將結(jié)束，我也即將走向新的起點(diǎn)。此次畢業(yè)設(shè)計(jì)是對(duì)我專業(yè)知識(shí)和專業(yè)基礎(chǔ)知識(shí)一次實(shí)際檢驗(yàn)和鞏固，同時(shí)也是走向工作崗位前的一次熱身。procedure (Sender: TObject。procedure (Sender: TObject。 :=True。 //“退出“按鈕不可用 :=False。 菜譜信息設(shè)置窗口設(shè)計(jì)(1)實(shí)現(xiàn)目標(biāo)(a)添加、修改、刪除菜譜信息。 : 圖510 酒水信息設(shè)置(2)實(shí)現(xiàn)過程:(a)添加新窗體 name 屬性為 jsxxsz ,設(shè)置窗體 caption 屬性為”酒水信息設(shè)置”(b)向窗體中添加 Query、panel、groupbox、dbgrid、edit 等控件，并設(shè)置相應(yīng)屬性。 :=True。員工工資管理界面如圖59所示。添加39。 :=True。 :=39。 :=False。 (b)可按員工編號(hào)或姓名查詢員工信息. (c)可使用導(dǎo)航條瀏覽員工信息.員工信息界面如圖5－8所示。B39。(39。營(yíng)業(yè)查詢界面如圖5－7所示。end。 。 。 //打印點(diǎn)菜信息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)程序代碼如下：Procedure (Sender:TObject)。:=true。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)。(b)向窗體中添加Query、Groupbox、Panel、Dbtext、Imagelist、Listbox、StringGrid、Bevel、Image、Label、Bitbtn等控件，并設(shè)置相應(yīng)屬性。end。編號(hào)39。 //打開關(guān)閉鑰匙。(c)支持鍵盤操作，系統(tǒng)管理員擁有管理系統(tǒng)的一切權(quán)力。,key)0 then //具有A類權(quán)限begin:=