專(zhuān)業(yè)課程設(shè)計(jì)報(bào)告范文-Delphi餐飲管理系統(tǒng)(共61頁(yè))

1、精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)南京審計(jì)學(xué)院信息科學(xué)學(xué)院南京審計(jì)學(xué)院信息科學(xué)學(xué)院課程設(shè)計(jì)報(bào)告書(shū)課程設(shè)計(jì)報(bào)告書(shū)課程名稱：課程名稱： 信息系統(tǒng)開(kāi)發(fā)工具課程設(shè)計(jì)信息系統(tǒng)開(kāi)發(fā)工具課程設(shè)計(jì) 課題名稱：課題名稱： 餐餐 飲飲 管管 理理 系系 統(tǒng)統(tǒng) 專(zhuān)專(zhuān) 業(yè)：業(yè)：信息管理與信息系統(tǒng)信息管理與信息系統(tǒng) 班班 級(jí)：級(jí)： 08 級(jí)信息管理級(jí)信息管理 1 班班 學(xué)學(xué) 號(hào)：號(hào)： 姓姓 名：名： 孫曉剛孫曉剛 成成 績(jī)：績(jī)： 2010 年年 12 月月 26 日日精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)目 錄 4.5.2 客戶放棄開(kāi)臺(tái)設(shè)計(jì). 374.5.3 客戶點(diǎn)菜完畢返回設(shè)計(jì).37精選優(yōu)質(zhì)文檔-傾情為你

2、奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)摘要摘要近幾年來(lái)，隨著我國(guó)國(guó)民經(jīng)濟(jì)的穩(wěn)定增長(zhǎng)，餐飲業(yè)的競(jìng)爭(zhēng)也越來(lái)越激勵(lì)，想在這樣競(jìng)爭(zhēng)激勵(lì)的環(huán)境下生存，就必須運(yùn)用科學(xué)的管理思想與先進(jìn)的管理方法，使用點(diǎn)餐與管理一體化。這樣不僅提高了工作效率，也避免了以前手工作業(yè)的麻煩，從而使得管理者能夠準(zhǔn)確，有效的管理餐飲。因此，餐飲業(yè)的管理者更需要一種綜合實(shí)時(shí)的管理模式，希望從更科學(xué)的管理中取得競(jìng)爭(zhēng)的優(yōu)勢(shì)，在競(jìng)爭(zhēng)激烈的商業(yè)市場(chǎng)中取勝。結(jié)合管理信息系統(tǒng)的開(kāi)發(fā)方法及步驟，以此為理論根據(jù)，開(kāi)發(fā)出一個(gè)信息管理系統(tǒng)餐飲管理系統(tǒng)。它采用國(guó)際通用的先進(jìn)餐飲管理模式，并結(jié)合中國(guó)的管理實(shí)際特點(diǎn)開(kāi)發(fā)而成。通過(guò)本系統(tǒng)功能模塊，可為各種大小不同的餐飲管理所使用。

3、為管理者提供高效的管理手段，本系統(tǒng)有著人性理的設(shè)置理念，流程清晰、易懂。具有獨(dú)特的功能對(duì)于開(kāi)臺(tái)管理、點(diǎn)菜、菜譜設(shè)置等為管理人員帶來(lái)很大的方便，減少人為因素的錯(cuò)誤，提高服務(wù)水平，提升企業(yè)形象。關(guān)鍵字：餐飲管理系統(tǒng)、提高服務(wù)水平、提高工作效率精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)第一章第一章 系統(tǒng)需求分析系統(tǒng)需求分析1.11.1 系統(tǒng)功能需求分析系統(tǒng)功能需求分析隨著現(xiàn)在連鎖餐飲店的不斷崛起，作為餐飲業(yè)不可缺少的一部分餐飲管理系統(tǒng)，它的內(nèi)容對(duì)于餐飲業(yè)的決策者和管理者來(lái)說(shuō)都非常重要。本系統(tǒng)基于餐飲管理系統(tǒng)之下的一個(gè)子系統(tǒng)，可以把整個(gè)餐飲店的日常經(jīng)營(yíng)管理信息化，包括點(diǎn)餐、庫(kù)存管理、員工信息等日常經(jīng)營(yíng)

4、的一些統(tǒng)計(jì)功能?，F(xiàn)在此系統(tǒng)還不夠完善，將來(lái)使此系統(tǒng)會(huì)集成更多的功能，例如：餐飲管理系統(tǒng)的開(kāi)發(fā)成功，實(shí)現(xiàn)了餐飲業(yè)的現(xiàn)代化，表明了餐飲管理正與國(guó)際化接軌，有了更為深入的發(fā)展。餐軟管理系統(tǒng)采用國(guó)際通用的先進(jìn)餐飲管理模式，并結(jié)合中國(guó)的管理實(shí)際特點(diǎn)開(kāi)發(fā)而成。通過(guò)本系統(tǒng)功能模塊，可為各種大小不同的餐飲管理所使用。為管理者提供高效的管理手段，本系統(tǒng)有著人性理的設(shè)置理念，流程清晰、易懂。具有獨(dú)特的功能對(duì)于開(kāi)臺(tái)管理、點(diǎn)菜、菜譜設(shè)置等為管理人員帶來(lái)很大的方便，減少人為因素的錯(cuò)誤，提高服務(wù)水平，提升企業(yè)形象。根據(jù)實(shí)際情況的需要，系統(tǒng)主要功能如下： 前臺(tái)管理：開(kāi)臺(tái)管理、客戶結(jié)賬、退出系統(tǒng)。 系統(tǒng)管理：權(quán)限管理、系統(tǒng)管

5、理、幫助。 基礎(chǔ)信息管理：酒水信息查詢、菜譜信息查詢及設(shè)置。1.21.2 系統(tǒng)數(shù)據(jù)流圖系統(tǒng)數(shù)據(jù)流圖根據(jù)實(shí)際情況要求，系統(tǒng)數(shù)據(jù)流圖如圖 1.2.1 所示精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)圖 1.2.1 數(shù)據(jù)流圖1.31.3 數(shù)據(jù)字典數(shù)據(jù)字典在這定義的酒店餐飲數(shù)據(jù)字典，主要對(duì)數(shù)據(jù)流程圖中的數(shù)據(jù)流、數(shù)據(jù)存儲(chǔ)和處理過(guò)程進(jìn)行說(shuō)明。（1）主要的數(shù)據(jù)流定義1)數(shù)據(jù)流名稱：客戶信息 位置：客戶P2 定義：客戶信息=房間臺(tái)號(hào)+所點(diǎn)菜+酒水+開(kāi)單時(shí)間+服務(wù)員編號(hào) 數(shù)據(jù)流量： 說(shuō)明：客人點(diǎn)菜時(shí)可以進(jìn)行特色菜和酒水信息的查詢，買(mǎi)單時(shí)要核對(duì)消費(fèi)名目是否屬實(shí)。2）數(shù)據(jù)流名稱：菜譜信息位置：菜譜P2定義：菜譜信息=

6、編號(hào)+房間臺(tái)號(hào)+菜名+單位+價(jià)格+菜系類(lèi)別+口味說(shuō)明數(shù)據(jù)流量：說(shuō)明：編號(hào)不能有重復(fù)的。3）數(shù)據(jù)流名稱：桌臺(tái)狀況 位置：桌臺(tái)P1 定義：桌臺(tái)狀況=編號(hào)+房臺(tái)名稱+類(lèi)型說(shuō)+餐飲部門(mén)+服務(wù)費(fèi)+簡(jiǎn)要說(shuō)明+狀態(tài) 數(shù)據(jù)流量：精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)說(shuō)明：只有狀態(tài)為空閑的房臺(tái)才能開(kāi)臺(tái)。4）數(shù)據(jù)流名稱：開(kāi)臺(tái)人 位置：服務(wù)員定義：開(kāi)臺(tái)人編號(hào)姓名員工類(lèi)別密碼數(shù)據(jù)流量：說(shuō)明：不同的員工類(lèi)別具有不同的權(quán)限，管理員具有所有權(quán)限，服務(wù)員不具備系統(tǒng)維修等權(quán)限。5）數(shù)據(jù)流名稱：?jiǎn)T工信息位置：定義：?jiǎn)T工信息員工編號(hào)姓名性別出生日期聯(lián)系電話聯(lián)系地址聘用日期工作部門(mén)員工類(lèi)別身份證號(hào)備注數(shù)據(jù)流量：說(shuō)明：?jiǎn)T工編號(hào)不可

7、相同。6）數(shù)據(jù)流名稱：管理員情況位置：管理員定義：管理員姓名口令數(shù)據(jù)流量：平均流量為每年傳輸 50 次。說(shuō)明：通過(guò)管理員來(lái)不斷的更新和維護(hù)這個(gè)系統(tǒng)。7 ）數(shù)據(jù)流名稱：開(kāi)臺(tái)信息 位置：P1P4 定義：開(kāi)臺(tái)信息=房間臺(tái)號(hào)+服務(wù)費(fèi) 數(shù)據(jù)流量： 說(shuō)明：服務(wù)費(fèi)可以省去。8）數(shù)據(jù)流名稱：點(diǎn)菜信息 位置：P2P4 定義：點(diǎn)菜信息=房間臺(tái)號(hào)+類(lèi)別+編號(hào)+名稱+類(lèi)型+數(shù)量+價(jià)格+合計(jì)+點(diǎn)但日期+結(jié)單日期+服務(wù)員編號(hào)+服務(wù)員姓名+結(jié)帳編號(hào) 數(shù)據(jù)流量： 說(shuō)明：房間臺(tái)號(hào)是根據(jù)開(kāi)臺(tái)而來(lái)的。（2）主要的數(shù)據(jù)存儲(chǔ)定義）數(shù)據(jù)存儲(chǔ)編號(hào)：精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)數(shù)據(jù)存儲(chǔ)名稱：桌臺(tái)信息輸入：輸出：數(shù)據(jù)結(jié)構(gòu)：桌臺(tái)信

8、息=編號(hào)+房臺(tái)名稱+類(lèi)型說(shuō)+餐飲部門(mén)+服務(wù)費(fèi)+簡(jiǎn)要說(shuō)明+狀態(tài)存取方式：檢索和更新處理，以檢索為主。說(shuō)明：編號(hào)具有唯一性，狀態(tài)只能是空閑或者營(yíng)業(yè)。）數(shù)據(jù)存儲(chǔ)編號(hào)：D2數(shù)據(jù)存儲(chǔ)名稱：?jiǎn)T工信息輸入：P1輸出：P3數(shù)據(jù)結(jié)構(gòu)：?jiǎn)T工信息=員工類(lèi)別+口令存取方式：主要是檢索。說(shuō)明：根據(jù)員工類(lèi)別的不同，在后面的操作中具有不同的權(quán)限。3）數(shù)據(jù)存儲(chǔ)編號(hào)：D3數(shù)據(jù)存儲(chǔ)名稱：菜譜信息輸入：P2輸出：P2數(shù)據(jù)結(jié)構(gòu)：菜譜信息=菜名+單位+價(jià)格+菜系類(lèi)別+口味說(shuō)明存取方式：檢索說(shuō)明：在點(diǎn)菜時(shí)對(duì)菜譜進(jìn)行查詢。（3）主要處理過(guò)程1）處理過(guò)程編號(hào)：P1 處理過(guò)程名：開(kāi)臺(tái) 輸入：服務(wù)員權(quán)限，桌臺(tái)狀況 輸出：開(kāi)臺(tái)信息 處理說(shuō)明：綜合

9、各方面信息，進(jìn)行客人消費(fèi)前最基本的準(zhǔn)備。2）處理過(guò)程編號(hào)：P2處理過(guò)程名：點(diǎn)菜 輸入：D1，D3，D4 輸出：點(diǎn)菜信息 處理說(shuō)明：客人根據(jù)菜譜信息，酒水信息，特色菜信息，選擇自己中意的項(xiàng)目精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)進(jìn)行。3）處理過(guò)程編號(hào)：P3 處理過(guò)程名：權(quán)限管理 輸入：?jiǎn)T工類(lèi)型，口令 輸出：相應(yīng)的操作權(quán)限 處理說(shuō)明：輸入員工類(lèi)別和口令獲得相應(yīng)的操作權(quán)限，管理員比服務(wù)員具有更多的操作權(quán)限。第二章第二章 系統(tǒng)概要設(shè)計(jì)系統(tǒng)概要設(shè)計(jì)2.12.1 系統(tǒng)總體框架設(shè)計(jì)系統(tǒng)總體框架設(shè)計(jì)根據(jù)業(yè)務(wù)情況，該系統(tǒng)共分為開(kāi)臺(tái)管理、客人買(mǎi)單、菜譜信息設(shè)置、客戶點(diǎn)菜、酒水信息設(shè)置等模塊，系統(tǒng)結(jié)構(gòu)圖如圖 2

10、.1 所示。圖 2.1 餐飲管理系統(tǒng)結(jié)構(gòu)圖精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)2.22.2 各模塊功能分析各模塊功能分析（1）系統(tǒng)登錄窗口主要功能）系統(tǒng)登錄窗口主要功能：1）以圖標(biāo)形式顯示數(shù)據(jù)庫(kù)中操作員，并憑口令登入到主界面。2）操作員輸入錯(cuò)誤密碼提醒錯(cuò)誤并返回，三次輸入錯(cuò)誤口令則退出系統(tǒng)。3）實(shí)現(xiàn)權(quán)限登錄：系統(tǒng)管理員擁有一切權(quán)利，其他操作員則被限制一些操作權(quán)限。（2）系統(tǒng)主界面主要功能）系統(tǒng)主界面主要功能1）根據(jù)操作員權(quán)限設(shè)置相應(yīng)權(quán)限的菜單和工具欄功能。2）可通過(guò)菜單或快捷鍵進(jìn)入相應(yīng)子界面。3）顯示了系統(tǒng)當(dāng)前時(shí)間和相應(yīng)操作員。（3）系統(tǒng)菜譜信息設(shè)置界面主要功能：）系統(tǒng)菜譜信息設(shè)置界面主

11、要功能：實(shí)現(xiàn)對(duì)菜譜信息的添加、修改、刪除、查詢的功能。（4 4）系統(tǒng)開(kāi)臺(tái)管理界面主要功能：）系統(tǒng)開(kāi)臺(tái)管理界面主要功能：1）以圖標(biāo)模式顯示空臺(tái)、營(yíng)業(yè)臺(tái)，點(diǎn)擊臺(tái)號(hào)圖標(biāo)則自動(dòng)顯示相應(yīng)臺(tái)號(hào)信息。2）通過(guò)輸入臺(tái)號(hào)檢索符合條件的臺(tái)號(hào)。3）點(diǎn)擊空房自動(dòng)彈出與昂查詢窗口從而自動(dòng)開(kāi)臺(tái)。（5 5）系統(tǒng)點(diǎn)菜界面主要功能：）系統(tǒng)點(diǎn)菜界面主要功能：1）實(shí)現(xiàn)菜譜，酒水查詢的鏈接。2）點(diǎn)擊“開(kāi)始點(diǎn)菜”按鈕臺(tái)號(hào)狀態(tài)自動(dòng)變?yōu)殚_(kāi)臺(tái)，并聚焦到編號(hào)欄。3）在編號(hào)欄輸入菜編號(hào)按回車(chē)自動(dòng)錄入菜的信息， 。4）自動(dòng)生成結(jié)賬編號(hào)，輸入菜數(shù)量自動(dòng)計(jì)算合計(jì)消費(fèi)金額。5）可實(shí)現(xiàn)掛單、讀單、放棄開(kāi)臺(tái)和點(diǎn)菜完畢返回的功能。精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)

12、心-專(zhuān)注-專(zhuān)業(yè)第三章第三章 數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)設(shè)計(jì)3.13.1 系統(tǒng)系統(tǒng) E-RE-R 圖的設(shè)計(jì)圖的設(shè)計(jì)系統(tǒng) E-R 圖如圖 3.1 所示精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)圖 3.1 系統(tǒng) E-R 圖3.23.2 數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)是總體設(shè)計(jì)階段非常重要的環(huán)節(jié)，好的數(shù)據(jù)庫(kù)結(jié)構(gòu)可以簡(jiǎn)化開(kāi)發(fā)過(guò)程，使系統(tǒng)功能更加清晰明確。因?yàn)閿?shù)據(jù)庫(kù)結(jié)構(gòu)的變化會(huì)造成編碼的改動(dòng)，所以必須認(rèn)真設(shè)計(jì)數(shù)據(jù)庫(kù)后再進(jìn)行編碼，從而避免了無(wú)謂的重復(fù)的工作。本系統(tǒng)采用了 SQL Server 數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)名稱為。該數(shù)據(jù)庫(kù)包含 4 個(gè)表，分別是：開(kāi)臺(tái)表，點(diǎn)菜表，菜

13、譜費(fèi)用信息表，臺(tái)號(hào)信息表。下面分別介紹數(shù)據(jù)表的結(jié)構(gòu)。1、 開(kāi)臺(tái)表開(kāi)臺(tái)表用于保存開(kāi)臺(tái)的相關(guān)信息。開(kāi)臺(tái)表的結(jié)構(gòu)見(jiàn)表 3-2-1 所示。表 3-2-1 開(kāi)臺(tái)表結(jié)構(gòu)字段名稱數(shù)據(jù)類(lèi)型字段大小允許為空否編號(hào)int4設(shè)置為主鍵房臺(tái)名稱char30允許為空類(lèi)型說(shuō)明char20允許為空精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)餐飲部門(mén)char20允許為空服務(wù)費(fèi)money8允許為空簡(jiǎn)要說(shuō)明char30允許為空狀態(tài)char20允許為空2、 點(diǎn)菜表點(diǎn)菜表用于保存點(diǎn)菜信息和相應(yīng)的消費(fèi)信息。點(diǎn)菜表的結(jié)構(gòu)見(jiàn)表 3-2-2 所示。表 3-2-2 點(diǎn)菜表結(jié)構(gòu)字段名稱數(shù)據(jù)類(lèi)型字段大小是否允許為空idchar16設(shè)置為主鍵房間臺(tái)號(hào)

14、int4允許為空類(lèi)別Char 10允許為空編號(hào)int4允許為空名稱char50允許為空類(lèi)型char20允許為空單位char10允許為空數(shù)量int4允許為空價(jià)格money8允許為空合計(jì)Money8允許為空點(diǎn)單日期datetime8允許為空結(jié)單日期datetime8允許為空服務(wù)員編號(hào)int8允許為空服務(wù)員姓名char12允許為空狀態(tài)char10允許為空結(jié)賬編號(hào)int4允許為空是否結(jié)單char10允許為空3、菜譜費(fèi)用信息表用于查詢餐飲店所有的菜的信息。菜譜費(fèi)用信息表的結(jié)構(gòu)如圖 3-2-3 所示。表 3-2-3 菜譜費(fèi)用信息結(jié)構(gòu)精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)字段名稱數(shù)據(jù)類(lèi)型字段大小是否允許

15、為空編號(hào)int4設(shè)為主鍵菜名char50允許為空單位char10允許為空價(jià)格money8允許為空菜系類(lèi)別char20允許為空口味說(shuō)明char30允許為空4、臺(tái)號(hào)信息表用于臺(tái)號(hào)信息的查詢，方便了消費(fèi)者選臺(tái)，開(kāi)臺(tái)及其他的作用。臺(tái)號(hào)信息表的結(jié)構(gòu)如圖 3-2-4 示。表 3-2-4 臺(tái)號(hào)信息表結(jié)構(gòu)字段名稱數(shù)據(jù)類(lèi)型字段大小是否允許為空編號(hào)int4設(shè)為主鍵房臺(tái)名稱char30設(shè)為主鍵類(lèi)型說(shuō)明Char20允許為空餐飲部門(mén)Char20允許為空服務(wù)費(fèi)money 8允許為空簡(jiǎn)要說(shuō)明char30允許為空狀態(tài)char10允許為空容納人數(shù)Int4允許為空第四章第四章 系統(tǒng)詳細(xì)設(shè)計(jì)及實(shí)現(xiàn)系統(tǒng)詳細(xì)設(shè)計(jì)及實(shí)現(xiàn)4.14.1 系

16、統(tǒng)登陸界面設(shè)計(jì)系統(tǒng)登陸界面設(shè)計(jì)1.實(shí)現(xiàn)目標(biāo) 程序啟動(dòng)后，首先登陸此界面驗(yàn)證操作員的密碼。主要實(shí)現(xiàn)的功能如下： 1)以圖標(biāo)形式顯示數(shù)據(jù)庫(kù)中操作員，并憑口令登入到主界面。2)操作員輸入錯(cuò)誤密碼提醒錯(cuò)誤并返回，三次輸入錯(cuò)誤口令則退出系統(tǒng)。精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)3)實(shí)現(xiàn)權(quán)限登錄：系統(tǒng)管理員擁有一切權(quán)利，其他操作員則被限制一些操作權(quán)限。系統(tǒng)登錄界面如圖 4.1.1 所示。圖 4.1.1 系統(tǒng)登錄界面2.實(shí)現(xiàn)過(guò)程 （1）添加窗體設(shè)置窗體 caption 屬性為“登錄窗口” ，保存窗體為 u79in.pas。 （2）向窗體中添加Datasource、Query、Edit、Listview

17、、ImageList、Image、Time、Label 等控件。主要控件對(duì)象的屬性如表 4-2-1 所示。表 4-2-1 主要控件對(duì)象的屬性列表控件名屬性值功能Query1Databasename SQLSelect * from 員工信表權(quán)限查詢Database1DatasetQuery1設(shè)置數(shù)據(jù)源3.程序主要代碼如下： 單擊“登陸”按鈕，將判斷操作員、操作密碼是否正確，如果正確進(jìn)入主界面并根據(jù)操作員權(quán)限設(shè)置菜單和工具是否可用。如果輸入密碼錯(cuò)誤將提醒并返回，三次錯(cuò)誤輸入則自動(dòng)退出系統(tǒng)。procedure TUser.BitBtn1Click(Sender: TObject);begin Ma

18、inForm.ToolButton1.Enabled:=True; MainForm.ToolButton2.Enabled:=True; MainForm.ToolButton5.Enabled:=True;精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) MainForm.ToolButton6.Enabled:=True; MainForm.N1.Enabled:=True; MainForm.N2.Enabled:=True; MainForm.N4.Enabled:=True; MainForm.N3.Enabled:=True; MainForm.N5.Enabled:=True; Ma

19、inForm.N6.Enabled:=True; MainForm.N7.Enabled:=True; MainForm.N8.Enabled:=True; MainForm.N9.Enabled:=True; MainForm.N17.Enabled:=True; MainForm.N19.Enabled:=True;if Query1.FieldByName(編號(hào)).AsString=controller then /如果是系統(tǒng)管理員 begin if Edit1.TextQuery1.FieldByName(密碼).AsString then begin ShowMessage(+Que

20、ry1.FieldByName(姓名).AsString+的口令錯(cuò)誤.); /口令錯(cuò)誤 Edit1.SetFocus; End Else begin MainForm.StatusBar1.Panels1.Text:=用戶+Query1.FieldByName(姓名).AsString+; MainForm.User1:=Query1.FieldByName(姓名).AsString; User_Close:=3; Timer1.Enabled:=False; Close; end; End精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) Else begin MainForm.ToolButton

21、1.Enabled:=False; MainForm.ToolButton2.Enabled:=False; MainForm.ToolButton5.Enabled:=False; MainForm.N1.Enabled:=False; MainForm.N2.Enabled:=False; MainForm.N4.Enabled:=False; MainForm.N3.Enabled:=False; MainForm.N5.Enabled:=False; MainForm.N6.Enabled:=False; MainForm.N7.Enabled:=False; MainForm.N8.

22、Enabled:=False; MainForm.N9.Enabled:=False; MainForm.N17.Enabled:=False; MainForm.N19.Enabled:=False; if Edit1.TextQuery1.FieldByName(密碼).AsString then begin ShowMessage(+Query1.FieldByName(姓名).AsString+的口令錯(cuò)誤.); Edit1.SetFocus; End Else begin Name:=Query1.FieldByName(權(quán)限).AsString; MainForm.EnabledKe

23、y(Name); /設(shè)置操作員權(quán)限 MainForm.StatusBar1.Panels1.Text:=用戶+Query1.FieldByName(姓名).AsString+; User_Close:=3; Timer1.Enabled:=False; Close; end;精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) end; END;窗體啟動(dòng)，關(guān)閉鑰匙，后將所有操作員添加到操作員列表。procedure TUser.FormShow(Sender: TObject);var List:Array0.1of TListItem;begin Timer1.Enabled:=True; User_

24、Close:=0; /打開(kāi)關(guān)閉鑰匙 Query1.Close; Query1.Open; ListView1.Items.Clear; While not Query1.Eof do begin List0:=ListView1.Items.Add; List0.Caption:=Query1.FieldByName(姓名).AsString; if Query1.FieldByName(編號(hào)).AsString=controller then begin List0.ImageIndex:=0; End Else begin List0.ImageIndex:=1; end; Query1.

25、Next; end;end;選擇操作員，點(diǎn)擊其中一個(gè)則將員工的姓名和類(lèi)型添加到了相應(yīng)位置。procedure TUser.ListView1Click(Sender: TObject);var List:Array0.1of TListItem;begin List0:=ListView1.Selected;精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) if List0Nil then begin Query1.Locate(姓名,List0.Caption,loCaseInsensitive);/查詢姓名,但是如果有從名的按第一個(gè)算. end;end;4.24.2 主界面設(shè)計(jì)主界面設(shè)計(jì)1、程序

26、啟動(dòng)后。系統(tǒng)在“登陸界面”驗(yàn)證操作員密碼后，將進(jìn)入此界面。系統(tǒng)主界面主要功能：根據(jù)操作員權(quán)限設(shè)置相應(yīng)權(quán)限的菜單和工具欄功能。可通過(guò)菜單或快捷鍵進(jìn)入相應(yīng)子界面。顯示了系統(tǒng)當(dāng)前時(shí)間和相應(yīng)操作員。主程序界面如圖 4.2.1 所示。圖 4.2.1 主程序界面2.實(shí)現(xiàn)過(guò)程 （1）啟動(dòng) Delphi,設(shè)置窗體名為 mainfrom,設(shè)置窗體 caption 為“餐飲管理系統(tǒng)”，保存為 u791.pas。 （2）向窗體中添加Imagelist、mainmenu、image、toolbutton、stausbar、panel、time、label 等控件主要屬性為：控件名屬性值功能精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)

27、心-專(zhuān)注-專(zhuān)業(yè)Toolbar1imagesImagelist1設(shè)置工具欄圖標(biāo)stausbar 1Panel1用戶登錄【管理員】顯示程序狀態(tài)、參數(shù) （3）主要程序代碼如下：使應(yīng)用項(xiàng)目的提示信息掛鉤程序。 procedure TMainForm.FormCreate(Sender: TObject);beginApplication.OnHint:=DisPlayHint; /與應(yīng)用項(xiàng)目的提示信息掛鉤end;先調(diào)用系統(tǒng)登陸窗口，再設(shè)置窗體狀態(tài)參數(shù)程序。procedure TMainForm.FormShow(Sender: TObject);var Year,Month,Day: Word;beg

28、in Close_1:=1; User.ShowModal; /調(diào)用系統(tǒng)登陸窗口 If Close_1 = 0 Then Close Else begin Application.MainForm.WindowState:=wsMaximized; Application.MainForm.WindowState:=wsNormal; DecodeDate(StrToDate(DateTOStr(Date),Year,Month,day); /分解日期 StatusBar1.Panels2.Text:=系統(tǒng)日期:+IntToStr(Year)+年+IntToStr(Month)+月+IntTo

29、Str(day)+日; end;end;調(diào)入開(kāi)臺(tái)界面程序。procedure TMainForm.N8Click(Sender: TObject);beginIf Assigned(KTGL) ThenbeginDataModule1.THXX.Open;/打開(kāi)臺(tái)號(hào)信息表精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)DataModule1.cybmb.Open;/ 打開(kāi)餐飲部門(mén)表DataModule1.JZBH.Open;/打開(kāi)結(jié)帳編號(hào)表KTGL:=TKTGL.Create(Self);KTGL.ShowModal;end;end;設(shè)置“B”類(lèi)權(quán)限有系統(tǒng)管理和系統(tǒng)維護(hù)操作權(quán)， “A”類(lèi)權(quán)限即系統(tǒng)管

30、理員的操作享有一切操作權(quán)限。如圖 4.2.2 所示。圖 4.2.2 B 類(lèi)權(quán)限主程序界面代碼如下：Function TMainForm.EnabledKey(key:String):Boolean;/聲明操作權(quán)限函數(shù) EnabledKeybegin if Pos(A,key)0 then /具有A類(lèi)權(quán)限 begin MainForm.ToolButton1.Enabled:=True; MainForm.ToolButton2.Enabled:=True; MainForm.ToolButton5.Enabled:=True; MainForm.ToolButton6.Enabled:=Tru

31、e; MainForm.N1.Enabled:=True; MainForm.N2.Enabled:=True; MainForm.N4.Enabled:=True;精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) MainForm.N3.Enabled:=True; MainForm.N8.Enabled:=True; MainForm.N9.Enabled:=True; MainForm.N17.Enabled:=True; MainForm.N19.Enabled:=True; End Else if Pos(B,key)0 then /具有B類(lèi)權(quán)限 begin MainForm.ToolBu

32、tton1.Enabled:=True; MainForm.ToolButton2.Enabled:=True; MainForm.ToolButton6.Enabled:=True; MainForm.N1.Enabled:=True; MainForm.N5.Enabled:=True; MainForm.N6.Enabled:=True; MainForm.N7.Enabled:=True; MainForm.N4.Enabled:=True; MainForm.N3.Enabled:=True; MainForm.N8.Enabled:=True; MainForm.N9.Enable

33、d:=True; MainForm.N17.Enabled:=True; MainForm.N19.Enabled:=True; End;end;調(diào)入菜譜信息設(shè)置界面程序。procedure TMainForm.N6Click(Sender: TObject);begin If Assigned(CPXXSZ) Then begin DataModule1.CPFYXX.Open;/打開(kāi)菜譜費(fèi)用信息表 DataModule1.cxlbxx.open;/打開(kāi)菜系類(lèi)別信息表精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) CPXXSZ:=TCPXXSZ.Create(Self); CPXXSZ.Show

34、Modal; end;end;4.34.3 菜譜信息設(shè)置界面設(shè)計(jì)菜譜信息設(shè)置界面設(shè)計(jì)4.3.14.3.1 菜譜設(shè)置模塊菜譜設(shè)置模塊1.實(shí)現(xiàn)目標(biāo)程序啟動(dòng)后，調(diào)用菜單“基礎(chǔ)信息設(shè)置”下的“菜譜信息設(shè)置”項(xiàng)，將打開(kāi)“菜譜信息設(shè)置界面” 。系統(tǒng)菜譜信息設(shè)置界面主要功能：實(shí)現(xiàn)對(duì)菜譜信息的添加、修改、刪除、查詢的功能。2.實(shí)現(xiàn)過(guò)程 （1）添加新窗體，設(shè)置窗體名為 cpxxsz，設(shè)置窗體 caption 為“菜譜信息設(shè)置” ，保存為 u79cpset.pas。 （2）向窗體中添加query、panel、groupbox、dbgrid、dbedit、edit、dbtext、bitbtn、dblookupcom

35、bobox、time、datasetfrist、actionlist、label 等控件，主要控件屬性如表 4-3-1 所示。表 4-3-1 主要控件屬性對(duì)象屬性值功能Query1DatabasenamesqlSlect MAX(編號(hào)) from 菜譜信息費(fèi)用表設(shè)置數(shù)據(jù)范圍DatasetFrist1DatasourceCaptionHintDatabase1.cpxxfys首記錄移動(dòng)到第一條記錄移動(dòng)到首記錄DatasetLast1DatasourceCaptionHintDatabase1.cpxxfys尾記錄移動(dòng)到最后一條記錄移動(dòng)到尾記錄DatasetNext1DatasourceCapti

36、onDatabase1.cpxxfys下一條記錄移動(dòng)到下一條精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)Hint移動(dòng)到下一條記錄記錄DatasetPrior1DatasourceCaptionHintDatabase1.cpxxfys上一條記錄移動(dòng)到上一條記錄移動(dòng)到上一條記錄DBLookupComBox1ListsourceKeyfieldListfieldDatasourceDtafirldDatabase1.cpfyxxs菜系名稱菜系名稱Database1.cxlbxxs菜系類(lèi)別選擇菜系類(lèi)別4.3.24.3.2 菜譜查詢?cè)O(shè)計(jì)菜譜查詢?cè)O(shè)計(jì)1.菜譜信息設(shè)置查詢界面如圖 4.3.1 所示。圖 4.

37、3.1 菜譜信息查詢?cè)O(shè)置界面2.代碼如下：procedure TCPXXSZ.BitBtn1Click(Sender: TObject);var a,b,c:integer;d:String;begin If Length(Edit1.Text) = 0 Then /如果輸入查詢信息為空 begin ShowMessage(請(qǐng)輸入查詢的編號(hào)或菜名信息);精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) Edit1.SetFocus; End Else begin a:=Length(Edit1.Text); c:=0; for b:=1 to a do /for 語(yǔ)句用于判斷查詢是按菜譜編號(hào)還是按菜

38、名查詢 begin D:=COPY(edit1.text,b,1); if (D=0) or (D=9) then begin c:=c+1; end; end; If c = Length(Edit1.Text) Then /按菜譜編號(hào)查詢 begin if DataModule1.CPFYXX.Locate(編號(hào),StrTOInt(Edit1.Text),loCaseInsensitive) then begin DBGrid1.Setfocus; DBGrid1.SelectedIndex:=0; End Else begin ShowMessage(對(duì)不起，沒(méi)有找到。); Edit1.

39、setfocus; end; End Else /按菜譜編號(hào)查詢 begin if DataModule1.CPFYXX.Locate(菜名,Edit1.Text,loPartialKey) then精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) begin DBGrid1.Setfocus; DBGrid1.SelectedIndex:=1; End Else begin ShowMessage(對(duì)不起，沒(méi)有找到。); Edit1.setfocus; end; end; end;end;4.3.34.3.3 菜譜添加設(shè)計(jì)菜譜添加設(shè)計(jì)1.菜譜信息設(shè)置添加界面如圖 4.3.2 所示。圖 4.3.2

40、菜譜信息添加設(shè)置界面2.代碼如下：procedure TCPXXSZ.BitBtn2Click(Sender: TObject);vara:integer;begin Query1.Close; Query1.Open;精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) if Query1.RecordCount0 then a:=Query1.Fields0.AsInteger else a:=1; if Bitbtn2.Caption=添加 then /添加菜譜信息 begin DataModule1.CPFYXX.Refresh; If DataModule1.CPFYXX.RecordCoun

41、t = 0 Then A:=79000 /添加菜譜信息 Else begin DataModule1.CPFYXX.Last; a:=DataModule1.CPFYXX.FieldByName(編號(hào)).AsInteger; end; BitBtn2.Caption:=保存; BitBtn3.CaPtion:=取消; Aenabled(1); DataModule1.CPFYXX.Insert; DataModule1.CPFYXX.FieldByName(編號(hào)).AsInteger:=a+1; DataModule1.CPFYXX.FieldByName(菜系類(lèi)別).AsString:=Da

42、taModule1.CXLBXX.FieldByName(菜系名稱).AsString; DBEdit2.SetFocus; End Else /保存菜譜信息 begin if (Length(DataModule1.CPFYXX.FieldByname(菜名).AsString)=0) or (Length(DataModule1.CPFYXX.FieldByname(單位).AsString)=0) or (Length(DataModule1.CPFYXX.FieldByname(價(jià)格).AsString)=0) then begin ShowMessage(請(qǐng)將菜名、單位、價(jià)格的數(shù)據(jù)添

43、全。); DBEdit1.SetFocus; EndElse begin精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) AEnabled(2); BitBtn2.Caption:=添加; BitBtn3.Caption:=修改; DataModule1.CPFYXX.Post; /保存菜譜信息 end; end;end;4.3.44.3.4 菜譜修改設(shè)計(jì)菜譜修改設(shè)計(jì)1.菜譜信息設(shè)置修改界面如圖 4.3.3 所示。圖 4.3.3 菜譜信息設(shè)置修改界面2.代碼如下：procedure TCPXXSZ.BitBtn3Click(Sender: TObject);begin if BitBtn3.Capt

44、ion=修改 then begin DataModule1.CPFYXX.Refresh; If DataModule1.CPFYXX.RecordCount = 0 Then /如果數(shù)據(jù)為空 begin ShowMessage(對(duì)不起，沒(méi)有數(shù)據(jù)可以修改。); End Else /如果數(shù)據(jù)不為空 begin精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) AEnabled(1); BitBtn2.Caption:=保存; BitBtn3.Caption:=取消; DataModule1.CPFYXX.Edit; /編輯 DBEdit1.SetFocus; end; End Else begin AE

45、Nabled(2); Bitbtn2.Caption:=添加; BitBtn3.Caption:=修改; DataModule1.CPFYXX.Cancel; /取消保存信息 end;end;4.3.54.3.5 菜譜刪除設(shè)計(jì)菜譜刪除設(shè)計(jì)1.菜譜信息設(shè)置刪除界面如圖 4.3.3 所示。圖 4.3.3 菜譜信息設(shè)置刪除界面2.代碼如下：procedure TCPXXSZ.BitBtn4Click(Sender: TObject);精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)begin DataModule1.CPFYXX.Refresh; If DataModule1.CPFYXX.RecordC

46、ount = 1 Then begin ShowMessage(對(duì)不起，這是最后一個(gè)菜，不能刪除。); End Else if MessageDLG(確認(rèn)刪除指定的菜譜信息嗎？,mtCustom,mbYes,mbNO,0)=mrYes then begin DataModule1.CPFYXX.Delete; /刪除數(shù)據(jù) end;end;5. 狀態(tài)編輯與瀏覽狀態(tài)函數(shù)function AEnabled(key:integer):Boolean ; /定義狀態(tài)編輯與瀏覽狀態(tài)函數(shù)begin If key = 1 Then /編輯狀態(tài) begin CPXXSZ.BitBtn4.Enabled:=Fal

47、se; /“刪除“按鈕不可用 CPXXSZ.BitBtn5.Enabled:=False; /“退出“按鈕不可用 CPXXSZ.BitBtn1.Enabled:=False; /“查詢“按鈕不可用 CPXXSZ.Edit1.Enabled:=False; /查詢輸入框不可用 CPXXSZ.DBGrid1.Enabled:=False; CPXXSZ.GroupBox1.Visible:=True; End Else /瀏覽狀態(tài) begin CPXXSZ.BitBtn4.Enabled:=True; /“刪除“按鈕可用 CPXXSZ.BitBtn5.Enabled:=True; /“退出“按鈕可

48、用 CPXXSZ.BitBtn1.Enabled:=True; /“查詢“按鈕可用精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) CPXXSZ.Edit1.Enabled:=True; CPXXSZ.DBGrid1.Enabled:=True; CPXXSZ.GroupBox1.Visible:=False; end;end;4.44.4 系統(tǒng)開(kāi)臺(tái)管理設(shè)計(jì)系統(tǒng)開(kāi)臺(tái)管理設(shè)計(jì)1.實(shí)現(xiàn)目標(biāo)程序啟動(dòng)后，調(diào)用菜單“前臺(tái)管理”下的“開(kāi)臺(tái)管理”項(xiàng)，將打開(kāi)“開(kāi)臺(tái)管理”界面。系統(tǒng)開(kāi)臺(tái)管理界面主要功能：以圖標(biāo)模式顯示空臺(tái)、營(yíng)業(yè)臺(tái)，點(diǎn)擊臺(tái)號(hào)圖標(biāo)則自動(dòng)顯示相應(yīng)臺(tái)號(hào)信息。通過(guò)輸入臺(tái)號(hào)檢索符合條件的臺(tái)號(hào)。點(diǎn)擊空房自動(dòng)彈出與昂

49、查詢窗口從而自動(dòng)開(kāi)臺(tái)。2.實(shí)現(xiàn)過(guò)程 （1）添加新窗體，設(shè)置窗體名為 ktgl，設(shè)置窗體 caption 為“開(kāi)臺(tái)管理” ，保存為 u79ktgl.pas。 （2）向窗體中添加datasource、query、groupbox、panel、pagecontrol、dbgrid、dbedit、edit、dbtext、bitbtn、dblookupcombobox、image、label 等控件，主要控件屬性如表 4-3-1 所示。表 4-3-1 主要控件屬性控件名屬性值功能打他搜如廁DatasetQuery設(shè)置數(shù)據(jù)源DBLookupComBox1ListsourceKeyfieldListfiel

50、dDatabase1.cybmbs部門(mén)名稱部門(mén)名稱選擇餐飲部門(mén)Dbgrid1datasourceDatabase1.thxxs顯示臺(tái)號(hào)信息4.4.14.4.1 搜索臺(tái)號(hào)設(shè)計(jì)搜索臺(tái)號(hào)設(shè)計(jì)1.開(kāi)臺(tái)管理搜索臺(tái)號(hào)界面如圖 4.4-1 所示。精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè)圖 4.4-1 開(kāi)臺(tái)管理搜索臺(tái)號(hào)界面2.代碼如下：procedure TKTGL.BitBtn1Click(Sender: TObject); /搜索房臺(tái)var List:TListItem; Lists:integer; ListText:String; a,b,c:integer; d:String;begin If L

51、ength(Edit1.Text) = 0 Then begin ShowMessage(請(qǐng)輸入查詢的房臺(tái)編號(hào)或房臺(tái)名稱信息); Edit1.SetFocus; End Else begin a:=Length(Edit1.Text); c:=0; for b:=1 to a do begin D:=COPY(edit1.text,b,1); if (D=0) or (D=9) then begin精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) c:=c+1; end; end; If c = Length(Edit1.Text) Then begin if DataModule1.THXX.Lo

52、cate(編號(hào),StrTOInt(Edit1.Text),loCaseInsensitive) then begin if DataModule1.THXX.FieldByName(狀態(tài)).AsString空閑 then begin PageControl1.ActivePageIndex:=1; /顯示第二頁(yè) BitBtn6.SetFocus;/將焦點(diǎn)移到點(diǎn)菜服務(wù)按扭上 End Else begin PageControl1.ActivePageIndex:=0; /顯示第一頁(yè) BitBtn3.SetFocus;/將焦點(diǎn)移到開(kāi)臺(tái)設(shè)置按扭上 end; End Else begin ShowMe

53、ssage(對(duì)不起，沒(méi)有找到。); end; End Else begin if DataModule1.THXX.Locate(房臺(tái)名稱,Edit1.Text,loPartialKey) then begin if DataModule1.THXX.FieldByName(狀態(tài)).AsString空閑 then begin精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) PageControl1.ActivePageIndex:=1; /顯示第二頁(yè) BitBtn6.SetFocus;/將焦點(diǎn)移到點(diǎn)菜服務(wù)按扭上 End Else begin PageControl1.ActivePageIndex:

54、=0; /顯示第一頁(yè) BitBtn3.SetFocus;/將焦點(diǎn)移到開(kāi)臺(tái)設(shè)置按扭上 end; End Else begin ShowMessage(對(duì)不起，沒(méi)有找到。); end; end; end;end;4.4.24.4.2 開(kāi)臺(tái)設(shè)置設(shè)計(jì)開(kāi)臺(tái)設(shè)置設(shè)計(jì)1.開(kāi)臺(tái)管理開(kāi)臺(tái)設(shè)置界面如圖 4.4.2 所示。圖 4.4.2 開(kāi)臺(tái)管理開(kāi)臺(tái)設(shè)置界面2.代碼如下：procedure TYGCX.BitBtn1Click(Sender: TObject);begin GB:=2;精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) If Length(Edit1.Text) = 0 Then begin ShowMes

55、sage(請(qǐng)輸入員工編號(hào)); Edit1.Setfocus; End Else if DataModule1.YGXXB.Locate(員工編號(hào),StrToInt(Edit1.Text),loCaseInsensitive) then begin If not Assigned(DCFY_LR) Then begin DCFY_LR:=TDCFY_LR.Create(Self); DCFY_LR.Label14.Caption:=YGCX.Edit1.Text; DCFY_LR.Label15.Caption:=DataModule1.YGXXB.FieldByName(姓名).AsSTrin

56、g; DCFY_LR.Label16.Caption:=DateTimeToStr(Now); If DataModule1.JZBH.RecordCount = 0 Then begin DataModule1.JZBH.Append; DataModule1.JZBH.FieldByName(編號(hào)).AsInteger:=1; DataModule1.JZBH.Post; End Else DCFY_LR.Label17.Caption:=IntToStr(DataModule1.JZBH.FieldbyName(編號(hào)).AsInteger+1); DCFY_LR.Show; end; G

57、B:=1; YGCX.Close; End Else精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) begin ShowMessage(對(duì)不起,沒(méi)有找到此員工信息.); Edit1.Setfocus; end;end;4.4.34.4.3 臺(tái)號(hào)信息查詢的設(shè)計(jì)臺(tái)號(hào)信息查詢的設(shè)計(jì)1.開(kāi)臺(tái)管理臺(tái)號(hào)信息查詢界面如圖 4.4.3 所示。圖 4.4.3 開(kāi)臺(tái)管理臺(tái)號(hào)信息查詢界面2.代碼如下：procedure TKTGL.ListView2Click(Sender: TObject); /選擇房臺(tái)var list:TListItem; ListString:String;begin List:=TlistVi

58、ew(Sender).Selected; If List nil Then begin ListString:=List.Caption; If Length(ListString) 0 Then if DataModule1.THXX.Locate(房臺(tái)名稱,ListString,loPartialKey) then begin Query1.Close; query1.sql.clear; query1.sql.add(select 編號(hào),名稱,類(lèi)型,單位,數(shù)量,價(jià)格,合計(jì),狀態(tài),服務(wù)員姓名 from 點(diǎn)菜臨時(shí)表);精選優(yōu)質(zhì)文檔-傾情為你奉上專(zhuān)心-專(zhuān)注-專(zhuān)業(yè) query1.sql.add(

59、where 房間臺(tái)號(hào)=:a and 是否結(jié)單=:b); Query1.Params0.AsInteger:=DataModule1.THXX.FieldByName(編號(hào)).AsInteger; Query1.Params1.AsString:=否; Query1.Open; Query2.Close; Query2.SQL.Clear; Query2.SQL.Add(Select Sum(合計(jì)) From 點(diǎn)菜臨時(shí)表); Query2.SQL.Add(Where 房間臺(tái)號(hào)=:A and 是否結(jié)單=:B); Query2.Params0.AsInteger:=DataModule1.THXX.

60、FieldByName(編號(hào)).AsInteger; Query2.Params1.AsString:=否; Query2.Open; If Query1.RecordCount 0 Then begin Query1.last; Label13.Caption:=Query1.FieldByName(服務(wù)員姓名).AsString; Label15.Caption:=FloatToStr(Query2.Fields0.AsFloat+DataModule1.THXX.FieldByName(服務(wù)費(fèi)).AsFloat); End Else begin Label13.Caption:=; La