餐飲企業(yè)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

1、   餐飲企業(yè)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn) 所在院(系)： 管理信息系統(tǒng)學(xué) 生： 指導(dǎo)教師： 研究起止日期： 摘 要隨著我國(guó)經(jīng)濟(jì)的快速發(fā)展，人民生活水平日益提高，餐飲消費(fèi)需求越來(lái)越高，餐飲業(yè)突飛猛進(jìn)。但與此同時(shí)，其所面臨的競(jìng)爭(zhēng)也越來(lái)越激烈。餐飲業(yè)要想在白熱化的競(jìng)爭(zhēng)環(huán)境下生存，就必須運(yùn)用科學(xué)的管理思想與先進(jìn)的管理方法，使點(diǎn)餐與管理一體化。因此，餐飲企業(yè)的管理者需要一種綜合，實(shí)時(shí)的管理模式，減輕工作負(fù)擔(dān)，提高工作效率、降低經(jīng)營(yíng)成本，從更科學(xué)的管理中取得競(jìng)爭(zhēng)的優(yōu)勢(shì)，在競(jìng)爭(zhēng)激烈的商業(yè)市場(chǎng)中取勝。首先分析了餐飲系統(tǒng)對(duì)現(xiàn)實(shí)餐飲運(yùn)營(yíng)管理的必要性，接著介紹了本系統(tǒng)所涉及到的相關(guān)技術(shù)和開(kāi)發(fā)環(huán)境。在此基礎(chǔ)之上介

2、紹了系統(tǒng)的總體設(shè)計(jì)以及公共模塊、主窗體模塊、登入模塊、開(kāi)臺(tái)管理模塊、進(jìn)貨模塊等典型模塊的詳細(xì)設(shè)計(jì)與實(shí)現(xiàn)。本系統(tǒng)主要包括前臺(tái)管理、后臺(tái)管理、財(cái)務(wù)管理、系統(tǒng)管理、報(bào)表打印等功能。實(shí)現(xiàn)了實(shí)時(shí)的管理模式，可以減輕工作負(fù)擔(dān)、提高工作效率、降低經(jīng)營(yíng)成本。方便、快捷、易用，達(dá)到了設(shè)計(jì)的目的。關(guān)鍵詞：餐飲；管理信息系統(tǒng); Visual Basic 6.0; SQL Server2000目 錄1 緒論.1 1.1引言11.2系統(tǒng)設(shè)計(jì)目的和現(xiàn)實(shí)意義11.3開(kāi)發(fā)工具介紹12 餐飲企業(yè)管理系統(tǒng)分析.42.1設(shè)計(jì)目標(biāo)42.2需求分析42.3系統(tǒng)可行性分析43 餐飲企業(yè)管理系統(tǒng)設(shè)計(jì).53.1系統(tǒng)功能分析53.2系統(tǒng)功能結(jié)

3、構(gòu)54 餐飲企業(yè)管理系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì).64.1數(shù)據(jù)庫(kù)概念設(shè)計(jì)64.2數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)84.3數(shù)據(jù)庫(kù)結(jié)構(gòu)的實(shí)現(xiàn).115 餐飲企業(yè)管理系統(tǒng)實(shí)現(xiàn).125.1公共模塊設(shè)計(jì).12數(shù)據(jù)庫(kù)連接.12錯(cuò)誤信息顯示函數(shù).135.2主窗體的創(chuàng)建.135.3系統(tǒng)登入模塊的實(shí)現(xiàn).155.4開(kāi)臺(tái)管理模塊的實(shí)現(xiàn).175.5進(jìn)貨管理模塊的實(shí)現(xiàn).226 系統(tǒng)測(cè)試.267 開(kāi)發(fā)總結(jié).27參考文獻(xiàn)28致謝.291 緒論1.1 引言隨著我國(guó)經(jīng)濟(jì)的快速發(fā)展，人民生活水平日益提高，餐飲消費(fèi)需求越來(lái)越高，餐飲業(yè)突飛猛進(jìn)。但與此同時(shí)，其所面臨的競(jìng)爭(zhēng)也越來(lái)越激烈，餐飲業(yè)要想在白熱化的競(jìng)爭(zhēng)環(huán)境下生存，就必須運(yùn)用科學(xué)的管理思想與先進(jìn)的管理方法，

4、使點(diǎn)餐與管理一體化。因此，餐飲企業(yè)的管理者需要一種綜合，實(shí)時(shí)的管理模式，減輕工作負(fù)擔(dān)，提高工作效率、降低經(jīng)營(yíng)成本，從更科學(xué)的管理中取得競(jìng)爭(zhēng)的優(yōu)勢(shì)，在競(jìng)爭(zhēng)激烈的商業(yè)市場(chǎng)中取勝，開(kāi)發(fā)出一個(gè)信息管理系統(tǒng)-餐飲管理系統(tǒng)便成為必然。1.2 系統(tǒng)設(shè)計(jì)目的和現(xiàn)實(shí)意義在金融危機(jī)的沖擊下，我國(guó)改革開(kāi)放不斷深入，市場(chǎng)競(jìng)爭(zhēng)日趨激烈，企業(yè)要想進(jìn)一步發(fā)展，不得不進(jìn)行現(xiàn)代化的管理。餐飲企業(yè)管理的自動(dòng)化、信息化是必然選擇。為了應(yīng)對(duì)激烈的市場(chǎng)競(jìng)爭(zhēng)，提高餐飲企業(yè)運(yùn)作效率，建立餐飲管理系統(tǒng)已十分必要。通過(guò)對(duì)餐飲企業(yè)日常運(yùn)作的了解，參考大量的資料，綜合系統(tǒng)結(jié)構(gòu)組織，功能實(shí)現(xiàn)，技術(shù)要求以及可行性等多方面的考慮，認(rèn)為本課題是一個(gè)符合現(xiàn)

5、今餐飲企業(yè)發(fā)展需要的計(jì)算機(jī)信息管理系統(tǒng)，具有一定的實(shí)際開(kāi)發(fā)價(jià)值和使用價(jià)值。用計(jì)算機(jī)管理信息系統(tǒng)已成為現(xiàn)代化企業(yè)管理的重要標(biāo)志，它給企業(yè)管理來(lái)了明顯的經(jīng)濟(jì)效益和社會(huì)效益。主要表現(xiàn)：極大提高了工作人員的工作效率，大大減少了人工操作的繁雜；基于餐飲企業(yè)管理的全面自動(dòng)化，可以減少進(jìn)貨管理、銷售管理及庫(kù)存管理中的漏洞，可以減少管理開(kāi)支，增加收益。餐飲企業(yè)管理的信息化有利于全面提高了餐飲企業(yè)的管理水平。因此，開(kāi)發(fā)一個(gè)易于操作的餐飲企業(yè)管理軟件對(duì)我國(guó)餐飲企業(yè)的發(fā)展具有重要意義，這正是本系統(tǒng)開(kāi)發(fā)的目的和意義。1.3 開(kāi)發(fā)工具介紹本系統(tǒng)基于Visual Basic 6.0 平臺(tái)，完成對(duì)餐飲管理系統(tǒng)的開(kāi)發(fā)，包括前

6、臺(tái)管理、后臺(tái)管理以及系統(tǒng)配置管理；實(shí)現(xiàn)對(duì)工作人員的管理，訪問(wèn)權(quán)限管理；實(shí)現(xiàn)銷售報(bào)表的生成。數(shù)據(jù)庫(kù)采用SQL SERVER 2000，ADO連接方式，通過(guò)建立ODBC數(shù)據(jù)源進(jìn)行數(shù)據(jù)的訪問(wèn)，修改。(1)開(kāi)發(fā)工具：Microsoft Visual Basic 6.0。Visual Basic 6.0簡(jiǎn)介Visual Basic 6.0起源于DOS時(shí)代的BASIC語(yǔ)言，BASIC語(yǔ)言曾是最流行的計(jì)算機(jī)編程入門(mén)語(yǔ)言及最主流的計(jì)算機(jī)教學(xué)語(yǔ)言。Visual Basic 6.0是微軟公司于1998年推出的Visual Studio 98中的一個(gè)組件。Visual Studio 98主要包括Visual c+

7、6.0、Visual Basic 6.0、Visual Foxpro 6.0、Visual J+ 6.0、Visual Internet 6.0和MSDN Library 6.0，幾乎囊括了當(dāng)前應(yīng)用程序開(kāi)發(fā)的各個(gè)方面，從中總可以找到滿足需要的工具，VB是一種可視化的、面向?qū)ο蟮腤indows開(kāi)發(fā)語(yǔ)言。VB從其問(wèn)世之初，就有易用、通用和開(kāi)發(fā)效率高的特點(diǎn)，這一特點(diǎn)VB一直保持著。隨著微軟對(duì)它不斷的改進(jìn)以及計(jì)算機(jī)本身在性能上的迅速提高，VB在程序性能上的缺陷也變得不那么關(guān)鍵。這使VB越來(lái)越適合于一般的應(yīng)用程序開(kāi)發(fā)。VB在頂尖的開(kāi)發(fā)場(chǎng)所是開(kāi)發(fā)關(guān)鍵性任務(wù)的主要語(yǔ)言，幾乎可以做任何想做的事情。VB一個(gè)很大

8、的優(yōu)點(diǎn)是迅速有效地編制程序界面。VB的快速程序開(kāi)發(fā)環(huán)境在界面設(shè)計(jì)和程序開(kāi)發(fā)中是很有效的。另外，在現(xiàn)代社會(huì)中，程序必須隨著外界的變化而不斷改變，VB就很適合于這類工作。使用VB的一個(gè)有效方法是將VB與其它開(kāi)發(fā)工具結(jié)合起來(lái)。VB可以用來(lái)做程序界面，以及其它一些經(jīng)常變化的部分，而用C語(yǔ)言來(lái)編制的動(dòng)態(tài)鏈接庫(kù)被VB調(diào)用以優(yōu)化速度。也可以用C語(yǔ)言產(chǎn)生自己的OLE控件，然后在VB中使用。(2)后臺(tái)數(shù)據(jù)庫(kù):采用Microsoft SQL Server 2000設(shè)計(jì)。SQL Server 2000簡(jiǎn)介SQL Server是由Microsoft公司開(kāi)發(fā)和推廣的高性能的客戶端/服務(wù)器結(jié)構(gòu)的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)（DBM

9、S），最初由Microsoft、Sybase和Ashton-Tate三家公司共同開(kāi)發(fā)，1988年推出第一個(gè)版本。1990年，Ashton-Tate公司退出開(kāi)發(fā)，1992年，SQL Server移植到NT上，1994年兩家公司分別開(kāi)發(fā)，Microsoft公司專注于開(kāi)發(fā)和推廣SQL Server的Windows NT版，而Sybase公司則專注于SQL Server在UNIX操作系統(tǒng)上的應(yīng)用。2000年Microsoft公司正式發(fā)行了SQL Server 2000版本，SQL Server 2000在數(shù)據(jù)庫(kù)性能、數(shù)據(jù)可靠性、易用性方面做了重大改進(jìn)，并新增了許多新功能。SQL Server 2000

10、有七種不同的可用版本：企業(yè)版、企業(yè)評(píng)估版、標(biāo)準(zhǔn)版、開(kāi)發(fā)版、個(gè)人版、Windows CE版和桌面引擎版。由于企業(yè)版支持SQL Server 2000中的所有可用功能，并可根據(jù)支持最大的Web站點(diǎn)和企業(yè)聯(lián)機(jī)事務(wù)處理（OLTP）及數(shù)據(jù)倉(cāng)庫(kù)系統(tǒng)所需的性能水平進(jìn)行伸縮，多作為生產(chǎn)數(shù)據(jù)庫(kù)服務(wù)器使用，故本系統(tǒng)采用企業(yè)版。SQL Server 采用二級(jí)安全驗(yàn)證、登錄驗(yàn)證及數(shù)據(jù)庫(kù)用戶帳號(hào)和角色的許可驗(yàn)證。SQL Server 支持兩種身份驗(yàn)證模式：Windows NT身份驗(yàn)證和SQL Server 身份驗(yàn)證。SQL Server為公共的管理功能提供了預(yù)定義的服務(wù)器和數(shù)據(jù)庫(kù)角色，可以很容易為某一特定用戶授予一組選

11、擇好的許可權(quán)限。SQL Server可以在不同的操作平臺(tái)上運(yùn)行，支持多種不同類型的網(wǎng)絡(luò)協(xié)議如TCP/IP、IPX/SPX、Apple Talk等。SQL Server提供服務(wù)器端的軟件，這部分需要安裝在NT Server上，SQL Server的用戶端則可以安裝在許多用戶端PC系統(tǒng)中，Windows可以讓用戶端進(jìn)行數(shù)據(jù)庫(kù)的建立，維護(hù)及存取等操作，SQL Server可以最多定義32767個(gè)數(shù)據(jù)庫(kù)，每個(gè)數(shù)據(jù)庫(kù)中，可以定義20億個(gè)表格，每個(gè)表格可以有250個(gè)字段，每個(gè)表格的數(shù)據(jù)個(gè)數(shù)并沒(méi)有限制，每一個(gè)表格可以定義250個(gè)索引。SQL Server所使用的數(shù)據(jù)庫(kù)查詢語(yǔ)言稱為T(mén)ransact-SQL，它

12、是SQL Server的核心，Transact-SQL強(qiáng)化了原有的SQL關(guān)鍵字以進(jìn)行數(shù)據(jù)的存取，儲(chǔ)存及處理等功能，Transact-SQL擴(kuò)充了流程控制指定，可以使你方便的編寫(xiě)功能強(qiáng)大的存儲(chǔ)過(guò)程，他們存放在服務(wù)器端，并預(yù)先編譯過(guò)，執(zhí)行速度非常塊，觸發(fā)是一種特殊的存儲(chǔ)過(guò)程，用來(lái)確保SQL Server數(shù)據(jù)庫(kù)引用的完整性，可以建立插入，刪除和更新觸發(fā)以控制相關(guān)的表格中對(duì)數(shù)據(jù)列的插入，刪除和更新，還可以使用規(guī)則，缺省以及限制，來(lái)協(xié)助將新的數(shù)值套用到表格中去。2 餐飲企業(yè)管理系統(tǒng)分析2.1 設(shè)計(jì)目標(biāo)餐飲企業(yè)管理系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)餐飲企業(yè)管理的系統(tǒng)化和自動(dòng)化，從而提高企業(yè)管理效率。餐飲管理系統(tǒng)以經(jīng)

13、濟(jì)、實(shí)用、便捷、高效為原則，為企業(yè)管理者、員工提供一個(gè)便捷、輕松的工作環(huán)境。2.2 需求分析本系統(tǒng)是為方便餐飲企業(yè)管理而開(kāi)發(fā)的，系統(tǒng)的用戶對(duì)象是餐飲企業(yè)的工作人員，由于本系統(tǒng)界面友好，操作簡(jiǎn)單易學(xué)。本系統(tǒng)主要具有以下功能：（1）實(shí)現(xiàn)信息共享，相互之間的信息傳遞準(zhǔn)確、快捷。（2）業(yè)務(wù)管理信息化，方便的數(shù)據(jù)查詢，提高準(zhǔn)確性，減少人為失誤。（3）如果系統(tǒng)的使用對(duì)象較多，則要求有較好的權(quán)限管理。（4）有效管理原材料及庫(kù)存信息。（5）結(jié)算方便可靠。2.3 系統(tǒng)可行性分析 經(jīng)濟(jì)上可行性目前，計(jì)算機(jī)的價(jià)格便宜，性能高，并且網(wǎng)絡(luò)已普及。本系統(tǒng)的開(kāi)發(fā)體現(xiàn)了以下幾個(gè)特點(diǎn)：第一，本系統(tǒng)的運(yùn)行可以提高餐飲企業(yè)管理的效

14、率，為企業(yè)節(jié)省大量的人力物力，降低企業(yè)運(yùn)作成本；第二，本系統(tǒng)操作簡(jiǎn)單，非計(jì)算機(jī)專業(yè)人士通過(guò)短期的學(xué)習(xí)就可熟練操作。 所以，本系統(tǒng)在經(jīng)濟(jì)上是可行的。 技術(shù)上可行性本系統(tǒng)前臺(tái)采用VB作為開(kāi)發(fā)工具，后臺(tái)數(shù)據(jù)庫(kù)使用的是SQL Server 2000，該數(shù)據(jù)庫(kù)系統(tǒng)具有安全性好、準(zhǔn)確性高、運(yùn)行速度快、處理數(shù)據(jù)量大、效率高等優(yōu)點(diǎn)。所以，本系統(tǒng)的設(shè)計(jì)開(kāi)發(fā)在技術(shù)和硬件設(shè)備上的要求都可滿足，因此，它在技術(shù)上也是可行的。 運(yùn)行上可行性本系統(tǒng)是為一個(gè)中小型餐飲企業(yè)而設(shè)計(jì)的管理系統(tǒng)，對(duì)電腦在硬件和軟件的要求都不高，因此，本系統(tǒng)運(yùn)行上是可行的。3 餐飲企業(yè)管理系統(tǒng)設(shè)計(jì)3.1 系統(tǒng)功能分析餐飲管理系統(tǒng)是一個(gè)中小型而又實(shí)用的

15、餐飲企業(yè)管理軟件，它對(duì)系統(tǒng)的要求不高，操作方便，簡(jiǎn)單實(shí)用，主要功能如下：（1）前臺(tái)管理前臺(tái)管理的使用最為頻繁，可以實(shí)現(xiàn)開(kāi)臺(tái)管理、菜單管理、買單管理、當(dāng)日結(jié)賬等功能。（2）后臺(tái)管理主要實(shí)現(xiàn)進(jìn)貨管理、進(jìn)貨查詢、庫(kù)存查詢、原材料信息管理、員工信息管理、員工級(jí)別管理、部門(mén)信息管理、倉(cāng)庫(kù)信息管理等功能。（3）財(cái)務(wù)管理主要包括月結(jié)算管理、應(yīng)付款管理、月?tīng)I(yíng)業(yè)分析、年?duì)I業(yè)分析等功能。（4）系統(tǒng)主要有權(quán)限管理、本單位定義等功能。3.2 系統(tǒng)功能結(jié)構(gòu)本系統(tǒng)功能模塊如圖3-1 ：圖3-1 功能模塊圖4 餐飲企業(yè)管理系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)在開(kāi)發(fā)餐飲管理系統(tǒng)之前，分析了本系統(tǒng)的數(shù)據(jù)量。由于后臺(tái)的原材料信息和點(diǎn)餐的人數(shù)可能會(huì)很多

16、，因此原材料信息、點(diǎn)單信息等數(shù)據(jù)量都比較大，要占用大量的數(shù)據(jù)空間，數(shù)據(jù)庫(kù)在一個(gè)信息管理系統(tǒng)中占有重要地位，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接影響系統(tǒng)的效率以及功能的實(shí)現(xiàn)。本系統(tǒng)使用SQL server 2000，數(shù)據(jù)庫(kù)名稱為CYGLXT。下面主要從概念結(jié)構(gòu)設(shè)計(jì)、邏輯結(jié)構(gòu)設(shè)計(jì)和數(shù)據(jù)庫(kù)實(shí)現(xiàn)這幾方面介紹本系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì)。4.1數(shù)據(jù)庫(kù)概念設(shè)計(jì) 通過(guò)對(duì)系統(tǒng)進(jìn)行的需求分析、業(yè)務(wù)流程設(shè)計(jì)以及系統(tǒng)功能結(jié)構(gòu)的確定，規(guī)劃出系統(tǒng)中使用的數(shù)據(jù)庫(kù)實(shí)體對(duì)象及實(shí)體E-R圖。用戶權(quán)限信息實(shí)體的E-R圖如圖4-1所示。圖4-1 用戶權(quán)限信息實(shí)體E-R圖部門(mén)信息實(shí)體的E-R圖如圖4-2所示。 圖4-2 部門(mén)信息實(shí)體E-R圖房間臺(tái)號(hào)信息

17、實(shí)體的E-R圖如圖4-3所示。圖4-3 房間臺(tái)號(hào)信息實(shí)體E-R圖點(diǎn)單臨時(shí)信息實(shí)體的E-R圖如圖4-4所示。圖4-4 點(diǎn)單臨時(shí)信息實(shí)體E-R圖商品基礎(chǔ)信息實(shí)體的E-R圖如圖4-5所示。圖4-5 商品基礎(chǔ)信息實(shí)體E-R圖4.2 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)根據(jù)以上的實(shí)體關(guān)系E-R圖，設(shè)計(jì)出的表格結(jié)構(gòu)如下。權(quán)限信息表根據(jù)用戶登錄系統(tǒng)的需求設(shè)計(jì)出權(quán)限信息表，用來(lái)存儲(chǔ)用戶登錄系統(tǒng)的用戶名、密碼、權(quán)限信息等。表結(jié)構(gòu)如表4-1所示。表4-1 權(quán)限信息表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度編號(hào)varchar10操作員姓名varchar12員工級(jí)別varchar20密碼varchar50權(quán)限varchar20部門(mén)信息表部門(mén)信息表是根

18、據(jù)餐飲店的實(shí)際情況設(shè)計(jì)出來(lái)的，其中包含所有部門(mén)的相關(guān)信息，在用戶輸入部門(mén)時(shí)可以以下拉列表框的形式列出所有部門(mén)，使其操作更方便、快捷。部門(mén)信息表結(jié)構(gòu)如表4-2所示。表4-2 部門(mén)信息表結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度部門(mén)編號(hào)varchar10部門(mén)名稱varchar20負(fù)責(zé)人varchar10部門(mén)電話varchar10部門(mén)職能varchar50房間臺(tái)號(hào)信息表根據(jù)房間臺(tái)號(hào)信息的特征構(gòu)造了房間臺(tái)號(hào)信息表。通過(guò)房間臺(tái)號(hào)信息表可以讓用戶了解房間臺(tái)號(hào)的信息，方便用戶根據(jù)客人的實(shí)際情況為客人安排房間。房間臺(tái)號(hào)信息表結(jié)構(gòu)如表4-3所示。表4-3 房間臺(tái)號(hào)信息表結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度編號(hào)varchar10房臺(tái)名稱varch

19、ar30類型說(shuō)明varchar20部門(mén)varchar20服務(wù)費(fèi)money8簡(jiǎn)要說(shuō)明varchar30狀態(tài)varchar10容納人數(shù)int4點(diǎn)單臨時(shí)信息表因?yàn)榭腿说男枨蠼?jīng)常變化，點(diǎn)單以后常會(huì)改動(dòng)，所以構(gòu)建了一個(gè)點(diǎn)單臨時(shí)表，用來(lái)存儲(chǔ)客人的點(diǎn)單信息。點(diǎn)單臨時(shí)表的結(jié)構(gòu)如表4-4所示。表4-4 點(diǎn)單臨時(shí)表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度房臺(tái)編號(hào)varchar10房臺(tái)類別varchar10商品編號(hào)varchar10商品名稱varchar50單位varchar10數(shù)量numeric9單價(jià)money8金額money8點(diǎn)單日期datetime8結(jié)賬日期datetime8服務(wù)員編號(hào)varchar10服務(wù)員姓名varcha

20、r12狀態(tài)varchar10單據(jù)號(hào)varchar30是否結(jié)賬varchar4備注varchar50商品基礎(chǔ)信息表為了了解每一種商品的基本特征性和詳細(xì)信息，構(gòu)建了一個(gè)用來(lái)存放商品信息的商品基礎(chǔ)信息表。在用戶進(jìn)行進(jìn)貨登記時(shí)，商品基礎(chǔ)信息表以輔助輸入的形式顯示，用戶只需選中相應(yīng)的信息即可把商品信息插入到進(jìn)貨統(tǒng)計(jì)中，方便、省時(shí)、省力。商品基礎(chǔ)信息表的結(jié)構(gòu)如表4-5所示。表4-5 商品基礎(chǔ)信息表的結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度商品級(jí)別varchar4本級(jí)編號(hào)varchar6商品編號(hào)varchar20本級(jí)名稱varchar20本級(jí)簡(jiǎn)稱varchar10商品全稱varchar50單位varchar10單價(jià)money

21、8商品說(shuō)明varchar30供應(yīng)商varchar20聯(lián)系地址varchar30聯(lián)系電話varchar15聯(lián)系人varchar124.3 數(shù)據(jù)庫(kù)結(jié)構(gòu)的實(shí)現(xiàn)經(jīng)過(guò)之前的分析和概念結(jié)構(gòu)設(shè)計(jì)，得到數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)。然后，創(chuàng)建數(shù)據(jù)庫(kù)。運(yùn)行SQL Server 2000，選擇菜單文件->新建，新建一個(gè)數(shù)據(jù)庫(kù)文件，命名為CYGLXT。5 餐飲企業(yè)管理系統(tǒng)實(shí)現(xiàn)完成前面的工作，下面就是具體地來(lái)實(shí)現(xiàn)本管理系統(tǒng)。本章將從公共模塊、系統(tǒng)登入模塊、開(kāi)臺(tái)管理模塊、進(jìn)貨管理模塊等方面介紹餐飲企業(yè)管理系統(tǒng)功能的具體實(shí)現(xiàn)方法。 5.1 公共模塊設(shè)計(jì)為了節(jié)省系統(tǒng)資源，在系統(tǒng)中新建一個(gè)module1模塊來(lái)存放整個(gè)工程項(xiàng)目中共用

22、的函數(shù)、過(guò)程、全局變量等。整個(gè)工程中的任何地方都可以調(diào)用此模塊中的函數(shù)、過(guò)程、變量。這樣就實(shí)現(xiàn)代碼的復(fù)用，減少代碼的書(shū)寫(xiě)量以及維護(hù)的工作量。公用變量聲明：系統(tǒng)中有多處要用到字符串、記錄ADO的指針等的變量，其聲明如下：Option Explicit '限制變量必須先聲明后使用Public cn As ADODB.Connection '定義公用ADO連接變量Public Sql, sqlStr As String '定義公用字符串變量Public Bkm, FormNumber As Integer '用于記錄ADO指針位置的整形變量Dim myform As

23、Form '定義窗體類型變量 數(shù)據(jù)庫(kù)連接在餐飲管理系統(tǒng)中頻繁地使用了數(shù)據(jù)庫(kù)連接，因此需要一個(gè)公共的數(shù)據(jù)庫(kù)連接函數(shù)，用以數(shù)據(jù)庫(kù)連接。代碼如下：Public Function cnn() As String '定義函數(shù) '返回一個(gè)數(shù)據(jù)庫(kù)連接 cnn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=CYGLXT;Initial Catalog=CYGLXT" ' 定義一個(gè)數(shù)據(jù)連接End Function此過(guò)程定義了一個(gè)通過(guò)通用接口ODBC連接數(shù)據(jù)庫(kù)，通

24、過(guò)通用接口連接數(shù)據(jù)庫(kù)時(shí)需要先創(chuàng)建一個(gè)新的ODBC數(shù)據(jù)源CYGLXT。系統(tǒng)中多處使用ADO控件動(dòng)態(tài)地連接數(shù)據(jù)庫(kù)，而ADO的數(shù)據(jù)庫(kù)連接又比較麻煩，所以構(gòu)造了一個(gè)用于ADO控件連接數(shù)據(jù)庫(kù)的函數(shù)。Public Function FunAdo(ByVal ado As Adodc, ByVal Str As String) '構(gòu)造連接ADO的連接執(zhí)行函數(shù)On Error GoTo err1 '執(zhí)行過(guò)程中如果發(fā)生錯(cuò)誤轉(zhuǎn)向錯(cuò)誤處理 With ado .Visible = False .ConnectionString = cn.ConnectionString '設(shè)置Ado的連接字符

25、串 .CommandType = adCmdText '設(shè)置Ado的命令類型 .RecordSource = Str '設(shè)置Ado的記錄源 .Refresh '刷新Ado的記錄集 End With Exit Function err1: ErrMessageBox "與數(shù)據(jù)庫(kù)連接失??！" '顯示錯(cuò)誤信息End Function 錯(cuò)誤信息顯示函數(shù)處理程序中錯(cuò)誤時(shí)經(jīng)常要提示錯(cuò)誤信息，為了減少代碼的書(shū)寫(xiě)量以及維護(hù)的工作量，更好的實(shí)現(xiàn)代碼重用，編寫(xiě)錯(cuò)誤處理函數(shù)，代碼如下：Public Sub ErrMessageBox(ByVal sPrompt A

26、s String) Dim msg As String '變量msg用于記錄要在彈出對(duì)話框中顯示的信息 Dim ErrMsg As String 'ErrMsg記錄錯(cuò)誤信息代碼以及描述 ErrMsg = "錯(cuò)誤#" & CStr(Err.Number) & "：" & Err.Description '錯(cuò)誤信息代碼以及描述 msg = sPrompt & vbCrLf & ErrMsg '彈出對(duì)話框中顯示的錯(cuò)誤信息 MsgBox msg, vbOKOnly + vbInformati

27、on '顯示彈出對(duì)話框End Sub5.2 主窗體的創(chuàng)建餐飲管理系統(tǒng)的主界面主要由菜單欄、工具欄、狀態(tài)欄和部分空間組成。位于窗體頂端的菜單欄主要用來(lái)連接實(shí)現(xiàn)系統(tǒng)功能對(duì)應(yīng)的窗體；菜單欄下面的工具欄主要用來(lái)連接常用的系統(tǒng)功能窗體；位于窗體底部的狀態(tài)欄主要用來(lái)顯示系統(tǒng)當(dāng)前狀態(tài)信息。窗體運(yùn)行界面如圖5-1所示。圖5-1 主窗體運(yùn)行圖工具欄是Windows窗口的組成部分，它為用戶提供了應(yīng)用程序中最常用的菜單命令的快速訪問(wèn)方式，大多數(shù)工具欄都是通過(guò)Toolbar控件實(shí)現(xiàn)的。在利用Toolbar控件創(chuàng)建工具欄時(shí)，還需要使用ImageList控件為工具欄按鈕添加圖標(biāo)。除了工具欄，界面還用到菜單、狀態(tài)欄

28、控件StatuBar控件、TextBox控件和Timer控件。各控件的屬性設(shè)置值如表5-1所示。表5-1 主窗體主要空間屬性對(duì)象屬性值功能Adodc名稱Visible AdoMemoFalse連接數(shù)據(jù)庫(kù)TextBox名稱VisibleText1False記錄打開(kāi)的窗體Timer名稱IntervalTimer1100執(zhí)行顯示系統(tǒng)時(shí)間的過(guò)程關(guān)鍵代碼的設(shè)計(jì)與實(shí)現(xiàn)：餐飲管理系統(tǒng)主窗體的功能主要是為用戶提供進(jìn)入其他窗體的接口。從主窗體進(jìn)入其他窗體時(shí)通過(guò)菜單欄實(shí)現(xiàn)的，菜單欄主要是為其他窗體提供入口。如打開(kāi)“開(kāi)臺(tái)管理”窗體的實(shí)現(xiàn)過(guò)程如下：Private Sub ktgl_Click() '調(diào)入開(kāi)臺(tái)管

29、理 Load main_qtgl_ktgl '載入開(kāi)臺(tái)管理窗體 main_qtgl_ktgl.Show '顯示開(kāi)臺(tái)管理窗體 frm_main.Enabled = False '設(shè)置主窗體不可用主界面載入以后可以在狀態(tài)欄中顯示當(dāng)前系統(tǒng)的日期和時(shí)間，系統(tǒng)時(shí)間是通過(guò)Timer控件的Timer事件來(lái)顯示的。實(shí)現(xiàn)過(guò)程如下：Private Sub Timer1_Timer() '設(shè)置時(shí)間 St1.Panels(1).text = Format(Date, "long date") & " " & Time '使

30、用Format函數(shù)將系統(tǒng)當(dāng)前日期格式為長(zhǎng)日期格式，Date返回系統(tǒng)當(dāng)前日期，Time返回系統(tǒng)當(dāng)前時(shí)間 End Sub5.3 系統(tǒng)登入模塊的實(shí)現(xiàn)在“員工”文本框中輸入用戶名，“密碼”文本框中輸入密碼，單擊“確定”按鈕，觸發(fā)click事件，若用戶名和密碼都正確，即可進(jìn)入系統(tǒng)主界面。若用戶沒(méi)有輸入用戶名，密碼，或密碼錯(cuò)誤，系統(tǒng)都將給出錯(cuò)誤提示信息，三次輸入密碼錯(cuò)誤，自動(dòng)退出系統(tǒng)。系統(tǒng)登錄界面如圖5-2所示：圖5-2 登錄窗體運(yùn)行效果窗體涉及到的控件及其屬性設(shè)置如表5-2所述。表5-2 登入窗體中主要控件的屬性對(duì)象屬性值功能Adodc名稱VisbleAdodc1False連接數(shù)據(jù)庫(kù)ComboBox名稱

31、BackColorCzy&H00C0FFFF&顯示可以操作系統(tǒng)員工的名稱TextBox名稱TextTexttime空值記錄登入次數(shù)名稱PasswordCharText1*輸入登錄密碼CommandButton名稱CaptionLabLogin確定登錄系統(tǒng)名稱CaptionLabExit退出退出系統(tǒng)Label名稱BackStyleLabel0顯示提示信息選擇員工名，輸入密碼信息是否正確進(jìn)入系統(tǒng)主界面登錄次數(shù)為3登錄次數(shù)加1登錄退出系統(tǒng)如果員工的登錄信息正確，根據(jù)員工的權(quán)限賦予員工權(quán)限。登錄流程圖如5-3下： NO YES NO YES 圖5-3 登錄流程圖實(shí)現(xiàn)員工登錄的代碼如下：

32、 Textime.text = TIM Sql = "select * from 權(quán)限信息表 where 操作員姓名 = '" + Trim(czy.text) + "'" '查詢記錄集 Call FunAdo(Adodc1, Sql) '調(diào)用ADO的執(zhí)行函數(shù) Adodc1.Refresh '刷新ADO的記錄集 If Adodc1.Recordset.RecordCount = 0 Then MsgBox ("您還沒(méi)有設(shè)置操作員密碼和權(quán)限，請(qǐng)?jiān)O(shè)置員工密碼和權(quán)限!") '顯示錯(cuò)誤信息 Me

33、.Show '顯示本窗體 TIM = TIM + 1 '錯(cuò)誤登錄次數(shù)加1 If TIM = 2 Then '如果登錄次數(shù)等于3 MESSAGE = MsgBox("密碼輸入錯(cuò)誤,請(qǐng)向系統(tǒng)管理員查詢!", 0, "") '提示錯(cuò)誤 If MESSAGE = vbOK Then End '結(jié)束程序 End If Exit Sub End If '判斷操作員及密碼 If czy.text <> "" And Text1.text = Trim(Adodc1.Recordset.Fi

34、elds("密碼") Then '如果密碼正確 Load frm_main '載入主窗體 frm_main.Show '顯示主窗體 '設(shè)置操作員權(quán)限 If Trim(Adodc1.Recordset.Fields("權(quán)限") = "A" Then '如果用戶的權(quán)限為A frm_main.qtgl.Enabled = True '前臺(tái)管理菜單可用5.4 開(kāi)臺(tái)管理模塊的實(shí)現(xiàn)在主窗體中選擇“前臺(tái)管理”/“開(kāi)臺(tái)管理”命令，將進(jìn)入開(kāi)臺(tái)管理模塊。在開(kāi)臺(tái)管理模塊中主要實(shí)現(xiàn)如下功能：（1）查看空閑房臺(tái)、

35、營(yíng)業(yè)房臺(tái)、維修房臺(tái)信息。（2）以列表形式顯示營(yíng)業(yè)房臺(tái)和已定菜譜信息。（3）匯總當(dāng)前空閑、營(yíng)業(yè)、維修房臺(tái)數(shù)量。開(kāi)臺(tái)管理運(yùn)行界面如圖5-4 所示。圖5-4 開(kāi)臺(tái)管理運(yùn)行界面關(guān)鍵代碼設(shè)計(jì)與實(shí)現(xiàn)：在系統(tǒng)主界面中單擊工具欄中的“開(kāi)臺(tái)管理”按鈕，或者在菜單欄中選擇“前臺(tái)管理/開(kāi)臺(tái)管理”命令打開(kāi)開(kāi)臺(tái)管理窗體。系統(tǒng)載入開(kāi)臺(tái)管理窗體時(shí)，首先初始化當(dāng)前房臺(tái)信息。實(shí)現(xiàn)的代碼如下： For a = 0 To 7 '設(shè)置房臺(tái)信息初始值 Label4(a).Caption = "" '房臺(tái)信息初始值為空 Next a Call list_change '調(diào)用房臺(tái)列表函數(shù) i =

36、 SSTab1.Tab If ListView1(i).ListItems.Count > 0 Then '如果ListView控件中的列表不為空Sql = "select * from 房間臺(tái)號(hào)信息表 where 房間臺(tái)號(hào)信息表.狀態(tài)='" + Left(SSTab1.Caption, 2) + "'" & _ "and 房間臺(tái)號(hào)信息表.部門(mén)='" + Combo1.text + "'order by 編號(hào)" '查詢房臺(tái)信息 Call FunAdo(A

37、dodc1, Sql) '調(diào)用ADO控件的執(zhí)行函數(shù) Adodc1.Refresh '刷新ADO控件的記錄集 For a = 0 To 7 '顯示房臺(tái)信息 If Adodc1.Recordset.RecordCount > 0 Then '如果Adodc1的記錄集不為空 Label4(a).Caption = Trim(Adodc1.Recordset.Fields(a) '顯示房臺(tái)信息 End If Next a End If Me.Caption = Me.Caption & " " & frm_main.St

38、1.Panels(3).text '顯示窗體的標(biāo)題 '打開(kāi)"部門(mén)信息表" rs1.Open "select 部門(mén)名稱 from 部門(mén)信息表 order by 部門(mén)編號(hào)", cnn, adOpenKeyset, adLockOptimistic '添加部門(mén)信息 If rs1.BOF = False Then rs1.MoveFirst '如果記錄集指針不在首部，指針移動(dòng)到第一條記錄 For i = 0 To rs1.RecordCount - 1 '向列表框中添加部門(mén)名稱 Combo1.AddItem (Trim(r

39、s1.Fields("部門(mén)名稱") '添加列表項(xiàng) rs1.MoveNext '記錄集移向下一條記錄 Next i If Combo1.ListCount > 0 Then Combo1.ListIndex = 0 '設(shè)置Combo1的索引值 rs1.Close '關(guān)閉數(shù)據(jù)集對(duì)象 SSTab1.Tab = 0為了便于添加房臺(tái)信息，建立了定義房間列表函數(shù)list_change()。函數(shù)的定義如下：Public Sub list_change() '定義房臺(tái)列表函數(shù) i = SSTab1.Tab '把當(dāng)前選項(xiàng)卡的值賦給變量i

40、Sql = "select * from 房間臺(tái)號(hào)信息表 where 狀態(tài)='" + Left(SSTab1.Caption, 2) + "'" & _ "and 房間臺(tái)號(hào)信息表.部門(mén)='" + Combo1.text + "'and 房間臺(tái)號(hào)信息表.房臺(tái)名稱 like '" & _ "" + Text1.text + "'+'%'order by 編號(hào)" '查詢符合條件的房臺(tái)信息 Cal

41、l FunAdo(Adodc1, Sql) '調(diào)用ADO的執(zhí)行函數(shù) Adodc1.Refresh '刷新Adodc1的記錄集 If Adodc1.Recordset.RecordCount > 0 Then '如果Adodc1的記錄集不為空 ListView1(i).ListItems.Clear '清空ListView中的列表項(xiàng) Adodc1.Recordset.MoveFirst 'Adodc1的記錄指針移到第一條記錄 Do While Adodc1.Recordset.EOF = False '如果不是記錄集的尾部循環(huán) key = &

42、quot;（" & Trim(Adodc1.Recordset.Fields("編號(hào)") & "）" _ & Trim(Adodc1.Recordset.Fields("房臺(tái)名稱") '記錄房臺(tái)編號(hào)和房臺(tái)名稱 If i = 1 Then '如果是營(yíng)業(yè)房臺(tái) Set itmX = ListView1(i).ListItems.Add(, , key, 2) '添加房臺(tái)到ListView控件中 Else '如果不是營(yíng)業(yè)房臺(tái) Set itmX = ListView1(i).Li

43、stItems.Add(, , key, 1) '添加房臺(tái)到ListView控件中 End If 'Adodc1的記錄集指針移到下一條記錄 Loop '返回到DoWhile，繼續(xù)循環(huán) Else '不過(guò)Adodc1的記錄集為空 ListView1(i).ListItems.Clear '清空ListView中的列表項(xiàng) End If Label2(i).Caption = Left(SSTab1.Caption, 2) & "總數(shù)： " _ & Adodc1.Recordset.RecordCount & &quo

44、t;個(gè)" '顯示房臺(tái)數(shù)目End Sub選擇部門(mén)，選擇部門(mén)以后可以改變房臺(tái)信息，以及當(dāng)前的房臺(tái)信息。代碼如下：Private Sub Combo1_Click() '選擇部門(mén) Call list_change '調(diào)用房臺(tái)列表函數(shù) i = SSTab1.Tab '把SSTab1的選項(xiàng)卡值賦給變量i If ListView1(i).ListItems.Count = 0 Then '如果當(dāng)前ListView控件的列表項(xiàng)為空 For a = 0 To 7 '清空當(dāng)前房態(tài)信息 Label4(a).Caption = "" &#

45、39;設(shè)置但前房態(tài)信息為空 Next a End If End Sub選中空閑房臺(tái)列表中的一個(gè)房臺(tái)，單擊“開(kāi)臺(tái)服務(wù)”按鈕，執(zhí)行開(kāi)臺(tái)服務(wù)操作。代碼如下：Private Sub Comkt_Click() '調(diào)入開(kāi)臺(tái)服務(wù) If Label4(0).Caption = "" Or Label4(1).Caption = "" Then '如果沒(méi)有選中房臺(tái) MsgBox ("請(qǐng)選擇房間！") '提示選擇房臺(tái) Else '否則，如果選中了一個(gè)房臺(tái) If Label4(6).Caption = "營(yíng)業(yè)&q

46、uot; Or Label4(6).Caption = "維修" Then '如果選中的不是空閑房臺(tái) MsgBox ("對(duì)不起，您選擇的房間正在" & Label4(6).Caption & "，請(qǐng)重新選擇！") '提示選擇錯(cuò)誤 Else '否則，如果選中的是空閑房臺(tái) Load main_dialog_ygxx '載入員工信息窗口 main_dialog_ygxx.Show '顯示員工信息窗口 frm_main.Enabled = False '主窗體不可用 main_q

47、tgl_ktgl.Enabled = False '開(kāi)臺(tái)管理窗體不可用 End If End If ListView1(0).Refresh '刷新ListView(0)控件列表 ListView1(1).Refresh '刷新ListView(1)控件列表 ListView1(2).Refresh '刷新ListView(2)控件列表End Sub5.5 進(jìn)貨管理模塊的實(shí)現(xiàn)在主窗體選擇“后臺(tái)管理/進(jìn)貨管理”命令，將進(jìn)入進(jìn)貨管理模塊。該模塊主要實(shí)現(xiàn)如下功能：（1）錄入商品名稱，輸入數(shù)量，計(jì)算商品金額。（2）自動(dòng)生成進(jìn)貨票號(hào)、進(jìn)貨日期。（3）輸入供應(yīng)商信息。（4）

48、統(tǒng)計(jì)進(jìn)貨品種、進(jìn)貨數(shù)量、進(jìn)貨金額。（5）打印進(jìn)貨票據(jù)。進(jìn)貨管理運(yùn)行效果如圖5-5所示。圖5-5 進(jìn)貨管理窗體運(yùn)行效果關(guān)鍵代碼及實(shí)現(xiàn)：在系統(tǒng)主界面的菜單欄中選擇“后臺(tái)管理/進(jìn)貨管理”命令，打開(kāi)進(jìn)貨管理界面，在其中可以實(shí)現(xiàn)進(jìn)貨管理的工作。在輸入進(jìn)貨信息時(shí)，可利用方向鍵控制焦點(diǎn)的位置。實(shí)現(xiàn)這些功能的過(guò)程如下：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) '添加貨物信息 If KeyCode = vbKeyReturn Then '如果輸入的是回車鍵 grid1.Visible = False '

49、輔助輸入項(xiàng)不可見(jiàn) If MS1.Col = 1 Then '如果是第一列 'With語(yǔ)句用來(lái)在一個(gè)單一對(duì)象或一個(gè)用戶定義類型上執(zhí)行一系列的語(yǔ)句。 With Adodc2.Recordset ' If .RecordCount > 0 Then '如果記錄集不為空 '賦值給ms1表格 If .Fields("本級(jí)名稱") <> "" Then MS1.TextMatrix(MS1.Row, 1) = _ Trim(.Fields("本級(jí)名稱") '顯示數(shù)據(jù)庫(kù)中的數(shù)據(jù) If

50、 .Fields("商品編號(hào)") <> "" Then MS1.TextMatrix(MS1.Row, 2) = _ Trim(.Fields("商品編號(hào)") '顯示數(shù)據(jù)庫(kù)中的數(shù)據(jù) If .Fields("單位") <> "" Then MS1.TextMatrix(MS1.Row, 3) = _ Trim(.Fields("單位") '顯示數(shù)據(jù)庫(kù)中的數(shù)據(jù) If .Fields("單價(jià)") <> &quo

51、t;" Then MS1.TextMatrix(MS1.Row, 4) = _ .Fields("單價(jià)") '顯示數(shù)據(jù)庫(kù)中的數(shù)據(jù) text1.SetFocus '設(shè)置文本框Text1獲得焦點(diǎn) text1.text = MS1.text '設(shè)置Text1中顯示MS1中的信息 grid1.Visible = False '輔助列表項(xiàng)不可見(jiàn) MS1.Col = 4 'MS1的焦點(diǎn)移到第四列 End If '結(jié)束If語(yǔ)句 End With '結(jié)束With語(yǔ)句塊 End If '結(jié)束If語(yǔ)句 If MS1.Co

52、l = 7 Then '如果是第7列 MS1.Row = MS1.Row + 1 '焦點(diǎn)移到下一行 MS1.Col = 1 '焦點(diǎn)移到第一列 Else '如果不是最后一行 If MS1.Col + 1 <= MS1.Cols - 1 Then '如果不是最后一列 MS1.Col = MS1.Col + 1 '焦點(diǎn)移到下一列 Else '如果是最后一列 If MS1.Row + 1 <= MS1.Rows - 1 Then '如果不是最后一行 MS1.Row = MS1.Row + 1 '焦點(diǎn)移到下一行 MS1.

53、Col = 1 '焦點(diǎn)移到第一列 End If End If End If End If If KeyCode = vbKeyUp Then '如果輸入的是向上的方向鍵 If MS1.Row > 1 Then MS1.Row = MS1.Row - 1 '焦點(diǎn)移到上一行 End If If KeyCode = vbKeyDown Then '如果輸入的是向下的方向鍵 If MS1.Row < 99 Then MS1.Row = MS1.Row + 1 '焦點(diǎn)移到下一行 End If If KeyCode = vbKeyLeft Then '如果輸入的是向左的方向鍵 If text1.text <> "" Then '如過(guò)文本框Text1的內(nèi)容不為空 text1.SelStart = 0 '設(shè)置文本框的起始點(diǎn) text1.SelLength = Len(text1.text) '設(shè)置所選擇的字符數(shù) End If If MS1.Col - 7 <= MS1.Cols + 1 Then '如果焦點(diǎn)位置是中