【正文】 End Else [1].AsFloat:=StrToFloat()。)。update 工資信息表 set 獎金=:A,加班費=:B,其它費用=:C,扣除費用說明=:D,39。procedure (Sender: TObject)。 :=False。end。 :=True。 //屏蔽非數(shù)字鍵end。039。end。 :=False。end. 代碼14 procedure (Sender: TObject)。end。procedure (Sender: TObject。end。).AsString。 :=[0].AsString。).AsInteger:=(39。).AsString:=39。Select Sum(合計) From 月點菜信息表 Where 狀態(tài) = :A and 結(jié)帳編號 = :B39。 :=[0].AsString。).AsInteger:=(39。).AsString:=39。Select Sum(合計) From 月點菜信息表 Where 狀態(tài) = :A and 結(jié)帳編號 = :B39。 :=[0].AsString。).AsInteger:=(39。).AsString:=39。Select Sum(數(shù)量) From 月點菜信息表 Where 狀態(tài) = :A and 結(jié)帳編號 = :B39。 :=[0].AsString。).AsInteger:=(39。).AsString:=39。Select Sum(數(shù)量) From 月點菜信息表 Where 狀態(tài) = :A and 結(jié)帳編號 = :B39。).AsString。服務(wù)費39。 :=(39。).AsString。房間臺號39。房間臺號39。)。 //顯示員工姓名 。).AsString。).AsInteger。 //選擇員工信息 (39。 。結(jié)帳編號39。)。 。)。沒有數(shù)據(jù)無法打印.39。代碼13 procedure (Sender: TObject)。procedure (Sender: TObject。procedure (Sender: TObject)。姓名39。procedure (Sender: TObject)。 Close。).AsString+39。 [1].Text:=39。+(39。).AsString。)。+(39。 if (39。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 :=False。 End Else begin :=False。 User_Close:=3。]39。用戶[39。姓名39。 //口令錯誤 。姓名39。密碼39。編號39。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。 :=True。begin:=DisPlayHint。日39。年39。DecodeDate(StrToDate(DateTOStr(Date)),Year,Month,day)。下面代碼主要在窗體啟動時，判斷使用者是否可以登陸系統(tǒng)，如果登陸成功，在主窗體狀態(tài)欄上顯示系統(tǒng)日期與時間。,key)0 then //具有F類權(quán)限 begin :=True。 :=True。 if Pos(39。,key)0 then //具有D類權(quán)限 begin :=True。 End Else if Pos(39。:=True。:=True。:=True。 :=True。:=True。:=True。B39。//打開開臺管理:=True。 //聲明操作權(quán)限函數(shù) EnabledKeybeginif Pos(39。在整個畢業(yè)設(shè)計的實習過程中，我要衷心的感謝我的指導老師。這段畢業(yè)設(shè)計的經(jīng)歷給了我克服困難的決心和解決問題的經(jīng)驗，它將對我今后的生活、學習起到很大的幫助。這次實踐是對自己大學四年所學的一次大檢閱，使我明白自己知識還很淺薄，雖然馬上要畢業(yè)了，但是自己的求學之路還很長，以后更應(yīng)該在工作中學習，努力使自己 成為一個對社會有所貢獻的人，為計算機行業(yè)添上自己的微薄之力。　　畢業(yè)設(shè)計收獲很多，比如學會了查找相關(guān)資料相關(guān)標準，分析數(shù)據(jù)，提高了自己的編程能力，掌握了delphi 語言。從最初的選題，開題,模塊設(shè)計,直到完成設(shè)計。 var Key: Char)。var Key: Char)。 var Key: Char)。 var Key: Char)。 :=False。 //“刪除“按鈕可用 :=True。 //“查詢“按鈕不可用 :=False。(c)代碼如下：function AEnabled(key:integer):Boolean 。(b)可選擇不同查詢字段進行查詢。 Procedure (Sender:Tobject。(c)詳細代碼如附錄14: Procedure (Sender:TObject)。 end。 :=True。)。 (2)實現(xiàn)過程(a)添加新窗體，設(shè)置窗體 name 屬性為 gzgl，設(shè)置窗體 caption 屬性為“員工工資管理”(b)向窗體中添加Query、datasoure、panel等控件，并設(shè)置相應(yīng)屬性。 員工工資管理窗口設(shè)計(1)實現(xiàn)目標(a)以列表形式顯示員工信息，并可修改，更新員工工資信息功能。 :=39。 :=True。 :=True。 :=True。取消39。 :=True。 :=False。 :=False。　　　　　　　　　　　圖5－8 員工信息管理(2)實現(xiàn)過程(a)添加新窗體,設(shè)置窗體name 屬性為YGXXGL ,設(shè)置窗體 caption 屬性為”員工管理系統(tǒng)”(b)向窗體添加 Query、datasource、panel、datasetfirsr 等控件,并設(shè)置相應(yīng)屬性.(c)代碼如下: function Aenabled(key:integer):Boolean 。 //顯示統(tǒng)計記錄數(shù) 。).AsDateTime:=。A39。 (39。).AsDateTime:=。A39。(39?！　D5－7　營業(yè)查詢分析(2)實現(xiàn)過程(a)添加新窗體，設(shè)置窗體 name 屬性為yycxfx ，設(shè)置窗體 caption 屬性為“營業(yè)查詢分析”(b)向窗體中添加Query、datasource、dbgrid、edit 等控件，并設(shè)置相應(yīng)屬性。 end。procedure (Sender: TObject)。//打印當天單據(jù)procedure (Sender: TObject)。end。procedure (Sender: TObject。 。 財務(wù)管理 日結(jié)算窗口設(shè)計 (1)實現(xiàn)目標 (a)實現(xiàn)日結(jié)算功能. (b)提供營業(yè)查詢分析窗口. 日結(jié)算管理界面如圖5－6所示。 :=。begin:=?！　　　　　　　　　　　D5－5　結(jié)帳數(shù)據(jù)分析 (c)代碼如下：rocedure (Sender: TObject)。(b)以列表形式顯示結(jié)帳后菜單信息。BeginADDListView。(c)查看相應(yīng)房臺消費。Begin:.(‘狀態(tài)’).AsString:=’開臺’；。End。End。(c)程序代碼如下：procedure TDCFY_LRFormCreate(Sender:TObiect)。(c)可實現(xiàn)掛單，放棄開臺，讀單等操作。單擊“登陸”按鈕，將判斷操作員、操作員密碼是否正確，如果正確進入主界面并根據(jù)操作員權(quán)限設(shè)置菜單和工具欄是否可用。 end。).AsString=39。姓名39。var List:Array[0..1]of TListItem。系統(tǒng)登陸界面如圖5－2所示。End(1)實現(xiàn)目標程序啟動后，首先進入“系統(tǒng)登陸”界面驗證操作員密碼。 :=True。(d)詳細程序代碼如附錄11： Function (key:String):Boolean。(b)通過菜單或快捷鍵調(diào)用相應(yīng)子程序。其他費用點 菜結(jié) 帳點 菜 分 析酒 水 分 析掛 帳清 臺營業(yè)分析 圖42 飯店管理系統(tǒng)流程圖 數(shù)據(jù)庫設(shè)計 針對飯店的業(yè)務(wù)情況和業(yè)務(wù)范圍，系統(tǒng)采用了數(shù)據(jù)庫sql server,數(shù)據(jù)庫名為TLCYGLXT。營業(yè)分析可對客人點單情況、房臺營業(yè)情況、酒菜銷售情況、銷售收入等進行分析。第3章 需求分析 需求分析說明 隨著餐飲業(yè)的競爭越來越激烈，小型飯店已意識到使用計算機信息技術(shù)的重要性，決定首先在餐飲管理上采用計算機管理手段。 Open 方法只執(zhí)行Select命令，ExecSQL方法還可以執(zhí)行其它的SQL命令。在SQL編程中使用TQuery部件的具體方法步驟如下：(1)為TQuery部件設(shè)置DatabaseName屬性，它可以是用BDE建立的數(shù)據(jù)庫的別名，或桌面數(shù)據(jù)庫系統(tǒng)中的目錄名或數(shù)據(jù)庫服務(wù)器中的文件名，如果在應(yīng)用中使用了TDatabase 部件，那么TQuery部件的DatabaseName屬性可以是TDatabase部件中定義的一個數(shù)據(jù)庫別名。 靜態(tài)方式是把SQL命令文作為TQuery部件的SQL屬性值進行設(shè)置，這樣，當執(zhí)行應(yīng)用程序時，Delphi便執(zhí)行TQuery部件SQL屬性中設(shè)置的SQL命令。當然這也使數(shù)據(jù)庫應(yīng)用程序本身變得更復雜了。 TQuery 部件在 SQL 編程中占居了十分重要的地位。微軟已經(jīng)與關(guān)鍵的合作伙伴建立起了戰(zhàn)略關(guān)系，創(chuàng)造出了能夠與許多供應(yīng)商的產(chǎn)品實現(xiàn)整合的解決方案，因而企業(yè)用戶并不需要做出要么完全接受，要么全部不要的承諾。其中，用以提高可靠性的特性包括日志傳送、在線備份和故障切換群集。OLAP可以通過多維存儲技術(shù)對大型、復雜數(shù)據(jù)集執(zhí)行快速、高級的分析工作。電子商務(wù) 　 在使用由Microsoft SQL Server 2000關(guān)系數(shù)據(jù)庫引擎的情況下，XML數(shù)據(jù)可在關(guān)系表中進行存儲，而查詢則能以XML格式將有關(guān)結(jié)果返回。 戰(zhàn)略中發(fā)揮著重要的作用。但有了SQL Server的基礎(chǔ)，再去學習和使用它們就容易多了IT行業(yè)的實踐經(jīng)驗充分證明了這一點。畢竟，大多數(shù)的中小企業(yè)日常的數(shù)據(jù)應(yīng)用是建立在Windows平臺上的。1986年10月，美國ANSI采用SQL作為關(guān)系數(shù)據(jù)庫管理系統(tǒng)的標準語言(ANSI X3. 1351986)，后為國際標準化組織(ISO)采納為國際標準。另外增加了Boldsoft公司的Bold工具的專Delphi專用版本. SQL SEVER 的介紹SQL的歷史　在70年代初。Delphi５添加了對IDE（集成開發(fā)環(huán)境）的很多改進新特性，擴展了數(shù)據(jù)庫支持（ADO和InterBase數(shù)據(jù)庫），帶有Internet支持的MIDAS改進版，TeamSouse版本控制工具，轉(zhuǎn)換功能，框架概念以及很多的新組件與新特性。Delphi提供了各種開發(fā)工具，包括集成環(huán)境、圖像編輯（Image Editor），以及各種開發(fā)數(shù)據(jù)庫的應(yīng)用程序，如DesktopDataBase Expert等。要查看某一特定程序的源代碼，只需用鼠標點動寫有該庫單元文件名的頁標簽，就可以對該庫單元進行編輯了。 這個窗口中是代碼編輯器。因為在Delphi中，設(shè)計用戶界面直接在窗體中進行，運行結(jié)果和設(shè)計樣板完全一致?！?4)代碼窗口　您可以把窗體想象成一個可以放置其它部件的容器。此外，Object Inspector上還有Object Selector(對象選擇器)，位于Object Inspector上方的下拉式菜單中。按動Object Inspector下端的“Events”頁標簽，使得Events頁可見，這一定的事件后邊的空白處，可以定義對象接受到相應(yīng)事件時執(zhí)行的動作。Speed Bar位于主窗口的左下端，由兩排共14個加速按鈕組成。將“Form1”窗體移開，或單擊Form1窗體下方的狀態(tài)行，可以使其全部可見。為避免隱藏在Delphi后的Program Manager和曾經(jīng)運行過的其它程序擾亂版面，分散您的注意力，不妨在啟動Delphi前關(guān)掉其它應(yīng)用程序；啟動Delphi后，再最小化隱藏在后面的Delphi 。delphi環(huán)境您不必自己建立對象，只要在提供的程序框架中加入完成功能的代碼，其余的都交給Delphi去做。除非整個開發(fā)環(huán)境都是面向?qū)ο蟮?，否則對象產(chǎn)生的好處還沒有帶來的麻煩多。它通過給程序中加入擴展語句，把函數(shù)“封裝”進Windows編程所必需的“對象”中。Delphi把Windows編程的回調(diào)、句柄處理等繁復過程都放在一個不可見的Romulam覆蓋物下面，這樣您可以不為它們所困擾，輕松從容地對可視部件進行編程。Delphi已經(jīng)為您做好了一切基礎(chǔ)工作——程序框架就是一個已經(jīng)完成的可運行應(yīng)用程序，只是不處理任何事情。您的工作只是在“骨架”中加入您的程序。它一直是程序員至愛的編程工具?！罢嬲某绦騿T用c，聰明的程序員用Delphi”，這句話是對Delphi最經(jīng)典、最實在的描述。關(guān)于它的實現(xiàn)，我們?yōu)榱吮阌谠谀媲把菔?，我們采用了瀏覽器瀏覽的方式進行。在客戶關(guān)系管理這塊，我們在軟件并沒有實現(xiàn)，有待于今后擴充，而飯店的網(wǎng)站，我們也已經(jīng)初步建立。而在用戶權(quán)限設(shè)置這個模塊中，我們采取了行業(yè)應(yīng)用軟件普遍的方式來進行