【正文】 If Length() 。 If Length() = 0 Then begin [1].AsFloat:=0。 If Length() = 0 Then begin [0].AsFloat:=0?？鄢M(fèi)用=:E,合計(jì)=基本工資+獎(jiǎng)金+加班費(fèi)+其它費(fèi)用扣除費(fèi)用39。)。 (39。 //統(tǒng)一更新工資修改begin 。end。 :=False。 :=False。procedure (Sender: TObject)。 。 :=True。 :=True。procedure (Sender: TObject)。) then key:=0。) or (key39。 //處理DBEdit1控件的鍵盤操作begin if key=13 then PerForm(WM_NEXTDLGCTL,0,0) //回車 Else if key=8 then key:=8 //退格鍵 Else if (key39。procedure (Sender: TObject。 //保存修改 end。 :=False。 :=False。 //保存?zhèn)€人工資修改begin If Then //如果出于編輯狀態(tài) begin :=False。 //退出營業(yè)查詢分析end。procedure (Sender: TObject)。 //釋放YYCXFX:=Nil。 var Action: TCloseAction)。end。procedure (Sender: TObject)。 //調(diào)入點(diǎn)菜信息瀏覽窗口 end。 。結(jié)帳編號39。 //贈單金額 if Length()=0 then := Else if Length()=0 then := Else :=FloatToStr(StrToFloat()+StrtoFloat())。 。結(jié)帳編號39。B39。贈單39。A39。)。 (39。 //點(diǎn)單金額 。 。結(jié)帳編號39。B39。點(diǎn)單39。A39。)。 (39。 //贈單記錄數(shù) 。 。結(jié)帳編號39。B39。贈單39。A39。)。 (39。 //點(diǎn)單記錄數(shù) 。 。結(jié)帳編號39。B39。點(diǎn)單39。A39。)。 (39。 。簡要說明39。).AsString。 :=(39。餐飲部門39。).AsString。 :=(39。類型說明39。).AsString。 :=(39。).AsInteger。).AsInteger:=(39。 //選擇房臺信息 (39。Select * From 房間臺號信息表 where 編號 = :A39。 。).AsString。 //顯示員工編號 :=(39。員工編號39。 。服務(wù)員編號39。A39。)。 (39。 。).AsInteger。).AsInteger:=(39。 //選擇當(dāng)月點(diǎn)菜信息 (39。Select * From 月點(diǎn)菜信息表 Where 結(jié)帳編號 = :A39。 。 //查看結(jié)帳單據(jù)的酒菜信息beginIf = True Then //如果組件處于激活狀態(tài)If 0 Then //記錄不為空 If Not Assigned(CKJZDJDJCXX) Then //判斷引用過程是否為空 begin CKJZDJDJCXX:=(Self)。End。沒有數(shù)據(jù)無法打印.39。)。End else ShowMessage(39。 //打印營業(yè)信息begin If = True Then beginIf 0 Then //記錄不為空begin 。 //回車焦點(diǎn)移“登陸“按鈕end。 var Key: Char)。 //閃爍窗體一次end。begin FlashWindow(,True)。end。,List[0].Caption,[loCaseInsensitive])。 if List[0]Nil then begin (39。 //選擇操作員var List:Array[0..1]of TListItem。end。 end。 :=False。]39。姓名39。用戶[39。]39。姓名39。用戶[39。 (Name)。權(quán)限39。 。]的口令錯(cuò)誤.39。姓名39。[39。密碼39。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 end。 :=False。).AsString。 :=(39。).AsString+39。+(39。 [1].Text:=39。).AsString+39。+(39。 End Else begin [1].Text:=39。)。).AsString+39。+(39。).AsString then begin ShowMessage(39。 then //如果是系統(tǒng)管理員 begin if (39。).AsString=39。 if (39。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 //登陸begin :=True。 //與應(yīng)用項(xiàng)目的提示信息掛鉤end。procedure (Sender: TObject)。end。+IntToStr(day)+39。+IntToStr(Month)+39。+IntToStr(Year)+39。 //分解日期[2].Text:=39。:=wsNormal。 //調(diào)用系統(tǒng)登陸窗口If Close_1 = 0 ThenCloseElsebegin。 beginClose_1:=1。procedure (Sender: TObject)。 end。 :=True。F39。 end。 :=True。E39。 end。 :=True。D39。C39。:=True。:=True。:=True。:=True。:=True。:=True。:=True。:=True。:=True。:=True。:=True。:=True。:=True。,key)0 then //具有B類權(quán)限begin:=True。EndElseif Pos(39。:=True。 :=True。A39。最后，也是最重要的，感謝所有這四年中傳授我知識，給予我關(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ì)案例精編》 中國水利水電出版社(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)暴》 中國水利水電出版社(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í)用大全》 中國水利水電出版社(2005)[20]章立民 《sql server 2000 transact sql程序設(shè)計(jì)》中國鐵道出版社(2003) [21]曹軍生 《sql server 2000 實(shí)用教程》 北京理工大學(xué)出版社(2004)附 錄代碼11Function (key:String):Boolean。他一直都在為我的畢業(yè)設(shè)計(jì)提供耐心的指導(dǎo)，并且?guī)椭医鉀Q了很多疑難問題，這樣才有了我的這份畢業(yè)設(shè)計(jì)。同時(shí)，在畢業(yè)設(shè)計(jì)的過程中，查閱了大量的資料，也增強(qiáng)了我進(jìn)行資料收集、查找和對資料進(jìn)行篩選的能力。經(jīng)過兩個(gè)多月的學(xué)習(xí)，我初步掌握了 Delphi 的基本應(yīng)用，基本達(dá)到了畢業(yè)設(shè)計(jì)的要求。大學(xué)四年的學(xué)習(xí)即將結(jié)束，我也即將走向新的起點(diǎn)?！　≈?謝緊張忙碌的畢業(yè)設(shè)計(jì)即將結(jié)束了，在這幾個(gè)月的畢業(yè)設(shè)計(jì)中，我看到了我自身水平的不足。比如缺乏綜合應(yīng)用專業(yè)知識的能力。同時(shí)，仍有很多課題需要后輩去努力去完善。此次畢業(yè)設(shè)計(jì)是對我專業(yè)知識和專業(yè)基礎(chǔ)知識一次實(shí)際檢驗(yàn)和鞏固，同時(shí)也是走向工作崗位前的一次熱身。其間，查找資料，老師指導(dǎo)，與同學(xué)交流，反復(fù)修改代碼，每一個(gè)過程都是對自己能力的一次檢驗(yàn)和充實(shí)。 第6章 結(jié)束語此次畢業(yè)設(shè)計(jì)是我們從大學(xué)畢業(yè)生走向軟件開發(fā)人員重要的一步。begin if key=13 then 。procedure (Sender: TObject。begin if key=13 then 。procedure (Sender: TObject。begin if key=13 then 。procedure (Sender: TObject。begin if key=13 then PerForm(WM_NEXTDLGCTL,0,0)。procedure (Sender: TObject。 end。 :=True。 //“退出“按鈕可用 :=True。 End Else //瀏覽狀態(tài) begin :=True。 //查詢輸入框不可用 :=False。 //“退出“按鈕不可用 :=False。 //定義狀態(tài)編輯與瀏覽狀態(tài)函數(shù)begin If key = 1 Then //編輯狀態(tài) begin :=False。(b)向窗體中添加Query、panel、groupbox、time等控件，并設(shè)置相應(yīng)屬性。菜譜信息設(shè)置界面如圖511所示。 菜譜信息設(shè)置窗口設(shè)計(jì)(1)實(shí)現(xiàn)目標(biāo)(a)添加、修改、刪除菜譜信息。var key:char)’ Begin If key=13 then 。 End。 Begin 。 : 圖510 酒水信息設(shè)置(2)實(shí)現(xiàn)過程:(a)添加新窗體 name 屬性為 jsxxsz ,設(shè)置窗體 caption 屬性為”酒水信息設(shè)置”(b)向窗體中添加 Query、panel、groupbox、dbgrid、edit 等控件，并設(shè)置相應(yīng)屬性。end。 :=True。 :=True。 EndElse begin 。沒有員工工資信息,無法修改.39。 圖59 員工工資管理 (c)代碼如下： procedure (Sender: TObject)。員工工資管理界面如圖59所示。(b)可查詢、瀏覽及打印工資信息。end。修改39。添加39。 :=False。 :=True。 :=True。 :=True。 :=True。 :=True。 。 :=39。 :=39。 :=False。 :=Fal