餐飲管理系統(tǒng)分析

1、餐飲企業(yè)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)所在院（系）： 學(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ǔ)之上介紹了系統(tǒng)的總體設(shè)計(jì)以及公共

2、模塊、主窗體模塊、登入模塊、開(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 Server2000AbstractWith Chinese rapid economic development and increasing of people's living standards, consumer dema nd higher and

3、higher food and beverage. Food and beverage in dustry is develop ing more and more quickly. At the same time, they face increasingly fierce competition. In order to survive in the intense competitive environment, the manager must use scientific management ideas and advaneed management methods to mak

4、e ordering and management be integrative. Therefore, managers need a comprehensive, real-time man ageme nt model to reduce workload, improve efficie ncy, reduce operat ing costs. With a more scie ntific man ageme nt, they will gain adva ntage in the competiti on and to be a winner.First, the food an

5、d beverage management system is very essential for real catering enterprises. The paper in troduces the releva nt tech no logy and develop ing environment. On this basis, it in troduces the overall desig n of the system and public module, the main module, logi n module, the founding man ageme nt mod

6、ule, purchas ing module and other typical desig n and impleme ntati on of the module.The system in cludes front desk man ageme nt, backgro und man ageme nt, finan cial man ageme nt, system man ageme nt, report prin ti ng. The system achieves real-time man age, reduce workload, improve efficie ncy an

7、d reduce operati ng costs. Besides, it realizes the goal which is convenient, fast, easy to use.Keywords:Food and beverage; Management information system; Visual Basic 6.0; SQL Server20001緒論 .11.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)功

8、能結(jié)構(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ì) .125.1.1數(shù)據(jù)庫(kù)連接.125.1.2錯(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)用 科

9、學(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)中取勝，開(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ù)要求 以及可行性

10、等多方面的考慮，認(rèn)為本課題是一個(gè)符合現(xiàn)今餐飲企業(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

11、平臺(tái)，完成對(duì)餐飲管理系統(tǒng)的開(kāi)發(fā)，包括前臺(tái)管理、后臺(tái)管理以 及系統(tǒng)配置管理；實(shí)現(xiàn)對(duì)工作人員的管理，訪問(wèn)權(quán)限管理；實(shí)現(xiàn)銷售報(bào)表的生成。數(shù)據(jù)庫(kù)采用SQLSERVER 2000, ADO連接方式，通過(guò)建立 ODBC數(shù)據(jù)源進(jìn)行數(shù)據(jù)的訪問(wèn)，修改。開(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ī)編程入門語(yǔ) 言及最主流的計(jì)算機(jī)教學(xué)語(yǔ)言。Visual Basic 6.0是微軟公司于1998年推出的Visual Studio 98中的一個(gè)組件。Visual Stu

12、dio 98 主要包括 Visual c+ 6.0、Visual Basic 6.0、Visual Foxpro 6.0、Visual J+ 6.0、Visual In ternet 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ù)的

13、主要語(yǔ)言，幾乎可以做任何想做的事情。VB 一個(gè)很大的優(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公

14、司開(kāi)發(fā)和推廣的高性能的客戶端/服務(wù)器結(jié)構(gòu)的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)（DBMS），最初由Microsoft、Sybase和Ashto n-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公司則專注于 SQLServer在UNIX操作系統(tǒng)上的應(yīng)用。2000年Microsoft公司正式發(fā)行了 SQL Server 2000版本，SQL Server 2000在數(shù)據(jù)庫(kù)性能、數(shù) 據(jù)可靠性

15、、易用性方面做了重大改進(jìn)，并新增了許多新功能。SQL Server 2000有七種不同的可用版本：企業(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為公共的管

16、理功能提供了預(yù)定義的服務(wù)器和數(shù)據(jù)庫(kù)角色，可以很容易為某一特定用戶授予一組選擇好的許可權(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è)索

17、引。SQL Server所使用的數(shù)據(jù)庫(kù)查詢語(yǔ)言稱為Transact-SQL，它是SQL Server的核心，Transact-SQL強(qiáng)化了原有的SQL關(guān)鍵字以進(jìn)行數(shù)據(jù)的存取，儲(chǔ)存及處理等功能，Transact-SQL擴(kuò)充了流程控制指定，可以使你方便的編寫功能強(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ā)的總體

18、任務(wù)是實(shí)現(xiàn)餐飲企業(yè)管理的系統(tǒng)化和自動(dòng)化，從而提高企業(yè)管理 效率。餐飲管理系統(tǒng)以經(jīng)濟(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)可行性分析2.3.1經(jīng)濟(jì)上可行性目前，計(jì)算機(jī)的價(jià)格便宜，性能高，并且

19、網(wǎng)絡(luò)已普及。本系統(tǒng)的開(kāi)發(fā)體現(xiàn)了以下幾個(gè)特點(diǎn)：第一，本系統(tǒng)的運(yùn)行可以提高餐飲企業(yè)管理的效率，為企業(yè)節(jié)省大量的人力物力，降低企業(yè)運(yùn)作成本； 第二，本系統(tǒng)操作簡(jiǎn)單，非計(jì)算機(jī)專業(yè)人士通過(guò)短期的學(xué)習(xí)就可熟練操作。所以，本系統(tǒng)在經(jīng)濟(jì)上是可行的。2.3.2技術(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ù)上也是可行的。2.3.3運(yùn)行上可行性本系統(tǒng)是為一個(gè)中小型餐飲企業(yè)而設(shè)計(jì)的管理系統(tǒng)，對(duì)電腦在硬件和軟件的要求都不高，因

20、此,本系統(tǒng)運(yùn)行上是可行的。3餐飲企業(yè)管理系統(tǒng)設(shè)計(jì)3.1系統(tǒng)功能分析餐飲管理系統(tǒng)是一個(gè)中小型而又實(shí)用的餐飲企業(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í)別管理、 部門信息管理、倉(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è)管理系

21、統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)在開(kāi)發(fā)餐飲管理系統(tǒng)之前，分析了本系統(tǒng)的數(shù)據(jù)量。由于后臺(tái)的原材料信息和點(diǎn)餐的人數(shù)可能 會(huì)很多，因此原材料信息、點(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所示。用戶權(quán)

22、限信息圖4-1用戶權(quán)限信息實(shí)體 E-R圖部門信息實(shí)體的 E-R圖如圖4-2所示。部門編號(hào)部門名稱負(fù)責(zé)人房間臺(tái)號(hào)信息實(shí)體的4-3所示。部門電話E-R圖如圖房臺(tái)名稱所屬部門類型說(shuō)明可容納人數(shù)狀態(tài)點(diǎn)單臨時(shí)信息實(shí)體的E-R圖如圖4-4所示。點(diǎn)單臨時(shí)信息E-R圖如圖4-5所示。E-R圖商品基礎(chǔ)信息實(shí)體的商品基礎(chǔ)信息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員

23、工級(jí)別varchar20密碼varchar50權(quán)限varchar20部門信息表部門信息表是根據(jù)餐飲店的實(shí)際情況設(shè)計(jì)出來(lái)的，其中包含所有部門的相關(guān)信息，在用戶輸入部門時(shí)可以以下拉列表框的形式列出所有部門，使其操作更方便、快捷。部門信息表結(jié)構(gòu)如表4-2所示。表4-2部門信息表結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度部門編號(hào)varchar10部門名稱varchar20負(fù)責(zé)人varchar10部門電話varchar10部門職能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所

24、示。表4-3房間臺(tái)號(hào)信息表結(jié)構(gòu)字段名數(shù)據(jù)類型長(zhǎng)度編號(hào)varchar10房臺(tái)名稱varchar30類型說(shuō)明varchar20部門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ù)量nu meric9單價(jià)money8金額money8點(diǎn)單日期da

25、tetime8結(jié)賬日期datetime8服務(wù)員編號(hào)varchar10服務(wù)員姓名varchar12狀態(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

26、本級(jí)簡(jiǎn)稱varchar10商品全稱varchar50單位varchar10單價(jià)money8商品說(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 ServerCYGLXT。2000,選擇菜單文件-新建，新建一個(gè)數(shù)據(jù)庫(kù)文件，命名為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é)

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

28、 '用于記錄 ADO指針位置的整形變量Dim myform As Form '定義窗體類型變量5.1.1數(shù)據(jù)庫(kù)連接在餐飲管理系統(tǒng)中頻繁地使用了數(shù)據(jù)庫(kù)連接，因此需要一個(gè)公共的數(shù)據(jù)庫(kù)連接函數(shù)，用以數(shù)據(jù)庫(kù)連接。代碼如下：Public Fun ction cnn() As Stri ng' 定義函數(shù)'返回一個(gè)數(shù)據(jù)庫(kù)連接cnn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=CYGLXT;lnitialCatalog=CYGLXT"'定義一個(gè)數(shù)據(jù)連

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

30、n.ConnectionString' 設(shè)置 Ado 的連接字符串.CommandType = adCmdText ' 設(shè)置 Ado 的命令類型.RecordSource = Str ' 設(shè)置 Ado 的記錄源.Refresh ' 刷新Ado的記錄集End WithExit Fun cti onerr1:ErrMessageBox "與數(shù)據(jù)庫(kù)連接失?。?quot;'顯示錯(cuò)誤信息End Function5.1.2錯(cuò)誤信息顯示函數(shù)處理程序中錯(cuò)誤時(shí)經(jīng)常要提示錯(cuò)誤信息，為了減少代碼的書寫量以及維護(hù)的工作量，更好的實(shí)現(xiàn)代碼重用，編寫錯(cuò)誤處理函數(shù)，代碼如下

31、：Public Sub ErrMessageBox(ByVal sPrompt As Stri ng)Dim msg As String '變量msg用于記錄要在彈出對(duì)話框中顯示的信息Dim ErrMsg As Stri ng'ErrMsgErrMsg ="錯(cuò)誤 #" & CStr(Err.Number) & ” msg = sPrompt & vbCrLf & ErrMsg 'MsgBox msg, vbOKO nly + vbl nformatio nEnd Sub記錄錯(cuò)誤信息代碼以及描述:"&

32、Err.Description'錯(cuò)誤信息代碼以及描述彈出對(duì)話框中顯示的錯(cuò)誤信息'顯示彈出對(duì)話框5.2主窗體的創(chuàng)建餐飲管理系統(tǒng)的主界面主要由菜單欄、工具欄、狀態(tài)欄和部分空間組成。位于窗體頂端的菜單5-1所示。欄主要用來(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主窗體運(yùn)行圖工具欄是 Windows窗口的組成部分，它為用戶提供了應(yīng)用程序中最常用的菜單命令的快速訪問(wèn)方式，大多數(shù)工具欄都是通過(guò)Toolbar控件實(shí)現(xiàn)的。在利用 Toolbar控件創(chuàng)建工具欄時(shí)，還需要使用ImageL

33、ist控件為工具欄按鈕添加圖標(biāo)。除了工具欄，界面還用到菜單、狀態(tài)欄控件StatuBar控件、TextBox控件和Timer控件。各控件的屬性設(shè)置值如表 5-1所示。表5-1主窗體主要空間屬性對(duì)象屬性值功能Adodc名稱AdoMemo連接數(shù)據(jù)庫(kù)VisibleFalseTextBox名稱Text1記錄打開(kāi)的窗體VisibleFalseTimer名稱Timer1執(zhí)行顯示系統(tǒng)時(shí)間的In terval100過(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ò)程如下:P

34、rivate Sub ktgl_Click() ' 調(diào)入開(kāi)臺(tái)管理Load ma in _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") &

35、; " " & Time'使用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所示：?jiǎn)T工1小欣員工類叮級(jí)f密碼確定寸 .i退出圖5-2登錄窗體運(yùn)行效果窗體涉及到的控件及其屬性設(shè)置如表5-2所述。表5-2登入窗體中主要

36、控件的屬性對(duì)象屬性值功能Adodc名稱Adodc1連接數(shù)據(jù)庫(kù)VisbleFalseComboBox名稱Czy顯示可以操作系統(tǒng)員BackColor&H00C0FFFF&工的名稱名稱Texttime記錄登入次數(shù)TextBoxText空值名稱Text1輸入登錄密碼PasswordChar*名稱LabLogi n登錄系統(tǒng)Comma ndButto nCapti on確定名稱LabExit退出系統(tǒng)Capti on退出Label名稱Label顯示提示信息BackStyle0如果員工的登錄信息正確，根據(jù)員工的權(quán)限賦予員工權(quán)限。登錄流程圖如5-3下:圖5-3登錄流程圖實(shí)現(xiàn)員工登錄的代碼如下：T

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

38、;錯(cuò)誤登錄次數(shù)加 1If TIM = 2Then '如果登錄次數(shù)等于 3MESSAGE = MsgBox（"密碼輸入錯(cuò)誤，請(qǐng)向系統(tǒng)管理員查詢!", 0,""）'提示錯(cuò)誤 If MESSAGE = vbOK The n End' 結(jié)束程序End IfExit SubEnd If'判斷操作員及密碼If czy.text <> "" A nd Text1.text = Trim（Adodc1.Recordset.Fields（" 密碼"）The n '如果密碼正確Loa

39、d 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)、營(yíng)業(yè)房臺(tái)、維修房臺(tái)信息。（2 ）以列表形式顯示營(yíng)業(yè)房臺(tái)和已定菜譜信息。（3）匯總當(dāng)前空

40、閑、營(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 aCall list_change'調(diào)用房臺(tái)列表函數(shù)i = SSTab1.TabIf ListView1(i).Listltems.Count > 0 Th

41、en'如果 ListView 控件中的列表不為空Sql = "select * from 房間臺(tái)號(hào)信息表where房間臺(tái)號(hào)信息表.狀態(tài)="+ Left(SSTab1.Caption,2) + “" & _"and房間臺(tái)號(hào)信息表.部門='"+ Combol.text + "'order by 編號(hào)”'查詢房臺(tái)信息Call FunAdo(Adodc1, Sql)'調(diào)用ADC控件的執(zhí)行函數(shù)AdodcI.Refresh '刷新ADC控件的記錄集For a = 0 To 7 '顯示

42、房臺(tái)信息If AdodcI.Recordset.RecordCount > 0 Then '如果 Adodcl 的記錄集不為空Label4(a).Caption = Trim(Adodc1.Recordset.Fields(a)'顯示房臺(tái)信息If i = 1 Then '如果是營(yíng)業(yè)房臺(tái)Next aEnd IfMe.Caption = Me.Caption & "" & frm_main.Stl.Panels(3).text '顯示窗體的標(biāo)題'打開(kāi)”部門信息表”rs1.Open "select 部門名稱f

43、rom 部門信息表order by 部門編號(hào)", cnn, adOpenKeyset,adLockOptimistic'添加部門信息If rs1.BOF = False Then rs1.MoveFirst '如果記錄集指針不在首部，指針移動(dòng)到第一條記錄For i = 0 To rs1.RecordCount - 1 '向列表框中添加部門名稱Combo1.Addltem (Trim(rs1.Fields(” 部門名稱")'添加列表項(xiàng)rs1.MoveNext '記錄集移向下一條記錄Next iIf Combo1.ListCount &g

44、t; 0 Then Combo1.ListIndex = 0'設(shè)置 Combo1 的索引值rs1.Close '關(guān)閉數(shù)據(jù)集對(duì)象SSTab1.Tab = 0為了便于添加房臺(tái)信息，建立了定義房間列表函數(shù)list_cha nge()。函數(shù)的定義如下：Public Sub list_change()'定義房臺(tái)列表函數(shù)i = SSTab1.Tab '把當(dāng)前選項(xiàng)卡的值賦給變量iSql = "select * from 房間臺(tái)號(hào)信息表where 狀態(tài)="'+ Left(SSTab1.C aptio n, 2) + “" & _&q

45、uot;and房間臺(tái)號(hào)信息表.部門='"+ Combol.text + "'and 房間臺(tái)號(hào)信息表.房臺(tái)名稱like '" & _""+ Textl.text + "'+'%'order by 編號(hào)"查詢符合條件的房臺(tái)信息Call FunAdo(Adodc1, Sql)'調(diào)用 ADO的執(zhí)行函數(shù)Adodcl.Refresh '刷新 Adodcl 的記錄集If Adodcl.Recordset.RecordCount > 0 Then '如果

46、Adodcl 的記錄集不為空ListView1(i).Listltems.Clear '清空 ListView 中的列表項(xiàng)Adodcl.Recordset.MoveFirst 'Adodcl 的記錄指針移到第一條記錄Do While Adodc1.Recordset.EOF = False '如果不是記錄集的尾部循環(huán)key = "(" & Trim(Adodc1.Recordset.Fields("編號(hào)")& ”)" _& Trim(Adodc1.Recordset.Fields("房臺(tái)

47、名稱")記錄房臺(tái)編號(hào)和房臺(tái)名稱Set itmX = ListView1(i).Listltems.Add(, , key, 2)'添加房臺(tái)到 ListView 控件中Else '如果不是營(yíng)業(yè)房臺(tái)Set itmX = ListView1(i).ListItems.Add(, , key, 1)'添加房臺(tái)到 ListView 控件中End IfAdodc1.Recordset.MoveNext 'Adodc1 的記錄集指針移到下一條記錄Loop '返回到DoWhile，繼續(xù)循環(huán)Else '不過(guò)Adodc1的記錄集為空ListView1(i)

48、.Listltems.Clear '清空 ListView 中的列表項(xiàng)End IfLabel2(i).Captio n = Left(SSTab1.Captio n, 2) & ” 總數(shù)：” _& Adodc1.Recordset.RecordCount & ” 個(gè)”'顯示房臺(tái)數(shù)目End Sub選擇部門，選擇部門以后可以改變房臺(tái)信息，以及當(dāng)前的房臺(tái)信息。代碼如下：Private Sub Combo1_Click() '選擇部門Call list_cha nge '調(diào)用房臺(tái)列表函數(shù)i = SSTab1.Tab '把SSTab1的選項(xiàng)

49、卡值賦給變量 iIf ListView1(i).ListItems.Count = 0 Then'如果當(dāng)前 ListView 控件的列表項(xiàng)為空For a = 0 To 7 '清空當(dāng)前房態(tài)信息Label4(a).Caption =設(shè)置但前房態(tài)信息為空Next aEnd IfEnd 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 = ""

50、 Then'如果沒(méi)有選中房臺(tái)MsgBox ("請(qǐng)選擇房間！ ”)提示選擇房臺(tái)Else '否則，如果選中了一個(gè)房臺(tái)If Label4(6).Caption ="營(yíng)業(yè)"Or Label4 (6) .C aptio n = ” 維修 ” The n '如果選中的不是空閑房臺(tái)MsgBox ("對(duì)不起，您選擇的房間正在” & Label4(6).Caption & ” ，請(qǐng)重新選擇！")'提示選擇錯(cuò)誤Else '否則，如果選中的是空閑房臺(tái)Load main_dialog_ygxx '載入員工

51、信息窗口 main_dialog_ygxx.Show '顯示員工信息窗口 frm_main.Enabled = False '主窗體不可用 main_qtgl_ktgl.Enabled = False '開(kāi)臺(tái)管理窗體不可用 End IfEnd IfListView1(0).Refresh '刷新 ListView(O)控件列表ListView1(1).Refresh '刷新 ListView(1)控件列表ListView1(2).Refresh '刷新 ListView(2)控件列表End Sub5.5進(jìn)貨管理模塊的實(shí)現(xiàn)在主窗體選擇“后臺(tái)管理 /

52、進(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) 統(tǒng)計(jì)進(jìn)貨品種、進(jìn)貨數(shù)量、進(jìn)貨金額。(5 )打印進(jìn)貨票據(jù)。進(jìn)貨管理運(yùn)行效果如圖 5-5所示。卜后臺(tái)管理：進(jìn)貨管理小廉岡圖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. S

53、hift As Integer)'添加貨物信息If KeyCode = vbKeyReturn Then '如果輸入的是回車鍵grid1.Visible = False '輔助輸入項(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í)名稱")<> "&qu

54、ot;Then MS1.TextMatrix(MS1.Row, 1) = _Trim(.Fields("本級(jí)名稱")'顯示數(shù)據(jù)庫(kù)中的數(shù)據(jù)If .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(&qu

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

56、'結(jié)束 With語(yǔ)句塊End If '結(jié)束If語(yǔ)句If MSI.Col = 7 Then '如果是第 7 列MSI.Row = MSI.Row + 1'焦點(diǎn)移到下一行MSI.Col = 1 '焦點(diǎn)移到第一列Else '如果不是最后一行If MSI.Col + 1 <= MSI.Cols - 1 Then '如果不是最后一列MSI.Col = MS1.Col + 1 '焦點(diǎn)移到下一列Else '如果是最后一列If MS1.Row + 1 <= MS1.Rows - 1 Then '如果不是最后一行 MS1

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