課程設計報告飯店點菜系統(tǒng)

1、院院 系系 土木工程學院土木工程學院 專專 業(yè)業(yè) 土木工程土木工程 學學 號號 2010040420100404 完成日期完成日期 20102010 年年 9 9 月月 5 5 日日 飯店點菜系統(tǒng)飯店點菜系統(tǒng)飯店點菜系統(tǒng)飯店點菜系統(tǒng)飯店點菜系統(tǒng)飯店點菜系統(tǒng) 摘摘 要要 此飯店點菜系統(tǒng)是利用此飯店點菜系統(tǒng)是利用 vbvb 知識編寫的程序，最終生成的軟件。知識編寫的程序，最終生成的軟件。 在設計過程中主要運用了數(shù)據(jù)庫的知識來實現(xiàn)飯店內(nèi)菜庫的添加，在設計過程中主要運用了數(shù)據(jù)庫的知識來實現(xiàn)飯店內(nèi)菜庫的添加， 修改，刪除等功能。同時還能滿足顧客的點菜的功能，當顧客的消修改，刪除等功能。同時還能滿足顧客的

2、點菜的功能，當顧客的消 費額達到一定的值時，會自動彈出不同檔次的抽獎系統(tǒng)。若此系統(tǒng)費額達到一定的值時，會自動彈出不同檔次的抽獎系統(tǒng)。若此系統(tǒng) 應用于飯店工作中，會從一定程度上提高工作效率?？傊诖舜螌崙糜陲埖旯ぷ髦?，會從一定程度上提高工作效率?？傊诖舜螌?習中我確確實實學到了很多東西，深刻的了解到計算機語言的重要習中我確確實實學到了很多東西，深刻的了解到計算機語言的重要 性和自己計算機操作能力的空洞。很快就結(jié)束了十天的實習，很難性和自己計算機操作能力的空洞。很快就結(jié)束了十天的實習，很難 忘，也有忘，也有很多收獲。很多收獲。 關鍵詞關鍵詞：數(shù)據(jù)庫數(shù)據(jù)庫 菜庫菜庫 點菜點菜 抽獎系統(tǒng)抽獎系統(tǒng)

3、目錄目錄 1.1.選題的意義選題的意義.3 2 2系統(tǒng)功能需求分析系統(tǒng)功能需求分析.4 2.1 系統(tǒng)概述.4 2.2 系統(tǒng)的構(gòu)成及各模塊的功能.4 3 3系統(tǒng)設計系統(tǒng)設計.5 3.1 總體結(jié)構(gòu)設計 .5 3.2 數(shù)據(jù)庫設計 .5 4 4系統(tǒng)實現(xiàn)系統(tǒng)實現(xiàn).5 4.1 登陸模塊的設計與實現(xiàn).6 4.2 學生信息維護模塊的設計與實現(xiàn).7 5 5總結(jié)總結(jié).22 5.1 總結(jié) .22 5.2 存在的主要問題.22 6.6.參考文獻參考文獻.23 選題的意義選題的意義 選擇該題目的原因選擇該題目的原因 拿到課題后經(jīng)過對所有題目的認真思考和對比后，我選擇了這一個課程設計。原因：拿到課題后經(jīng)過對所有題目的認真

4、思考和對比后，我選擇了這一個課程設計。原因： 自己對飯店比較熟悉而且在認真考慮后有些設計思路自己對飯店比較熟悉而且在認真考慮后有些設計思路 自己對飯店比較熟悉而且在認真考慮后有些設計思路自己對飯店比較熟悉而且在認真考慮后有些設計思路自己對飯店比較熟悉而且在認真考慮后有些設計思路自己對飯店比較熟悉而且在認真考慮后有些設計思路 飯店點菜系統(tǒng)有挑戰(zhàn)性，能促使自己學習沒有掌握的知識，并想通過實習讓自己這飯店點菜系統(tǒng)有挑戰(zhàn)性，能促使自己學習沒有掌握的知識，并想通過實習讓自己這 飯店點菜系統(tǒng)有挑戰(zhàn)性，能促使自己學習沒有掌握的知識，并想通過實習讓自己這飯店點菜系統(tǒng)有挑戰(zhàn)性，能促使自己學習沒有掌握的知識，并想

5、通過實習讓自己這飯店點菜系統(tǒng)有挑戰(zhàn)性，能促使自己學習沒有掌握的知識，并想通過實習讓自己這飯店點菜系統(tǒng)有挑戰(zhàn)性，能促使自己學習沒有掌握的知識，并想通過實習讓自己這 一一 一一一一 年的知識融會貫通起來。年的知識融會貫通起來。 年的知識融會貫通起來。年的知識融會貫通起來。年的知識融會貫通起來。年的知識融會貫通起來。 完成次題目用到的數(shù)據(jù)結(jié)構(gòu)和知識點完成次題目用到的數(shù)據(jù)結(jié)構(gòu)和知識點 在建立界面時用到了 在建立界面時用到了 在建立界面時用到了在建立界面時用到了在建立界面時用到了在建立界面時用到了 timer timer timertimertimertimer 控件及其屬性 控件及其屬性 控件及其屬性

6、控件及其屬性控件及其屬性控件及其屬性 caption caption captioncaptioncaptioncaption、 、 、label label labellabellabellabel、 、 、text text texttexttexttext 等的各種屬性（如 等的各種屬性（如 等的各種屬性（如等的各種屬性（如等的各種屬性（如等的各種屬性（如 backstylebackstyle backstylebackstylebackstylebackstyle、 、 、enabled enabled enabledenabledenabledenabled、 、 、visible

7、visible visiblevisiblevisiblevisible、 、 、 、 、 、 、picture picture picturepicturepicturepicture、 、 、autsize autsize autsizeautsizeautsizeautsize 等） 等） 等）等）等）等） 在這次設計中主要使用了 在這次設計中主要使用了 在這次設計中主要使用了在這次設計中主要使用了在這次設計中主要使用了在這次設計中主要使用了 command command commandcommandcommandcommand、 、 、label label labellabella

8、bellabel 和 和 和和和和 text text texttexttexttext 的功能，這也是重要并且基礎 的功能，這也是重要并且基礎 的功能，這也是重要并且基礎的功能，這也是重要并且基礎的功能，這也是重要并且基礎的功能，這也是重要并且基礎 的知識，除此之外還使用了的知識，除此之外還使用了 的知識，除此之外還使用了的知識，除此之外還使用了的知識，除此之外還使用了的知識，除此之外還使用了 timer timer timertimertimertimer 的功能，本來打算再添加一個背景音樂使用相對路 的功能，本來打算再添加一個背景音樂使用相對路 的功能，本來打算再添加一個背景音樂使用相對

9、路的功能，本來打算再添加一個背景音樂使用相對路的功能，本來打算再添加一個背景音樂使用相對路的功能，本來打算再添加一個背景音樂使用相對路 徑的，但是因為時間的原因只好留下了這些遺憾。徑的，但是因為時間的原因只好留下了這些遺憾。 徑的，但是因為時間的原因只好留下了這些遺憾。徑的，但是因為時間的原因只好留下了這些遺憾。徑的，但是因為時間的原因只好留下了這些遺憾。徑的，但是因為時間的原因只好留下了這些遺憾。 系統(tǒng)功能需求分析系統(tǒng)功能需求分析 系統(tǒng)概述系統(tǒng)概述 隨著社會的發(fā)展人們的物質(zhì)條件已經(jīng)不再被擔心了，相應的精神享受收到了極大的重隨著社會的發(fā)展人們的物質(zhì)條件已經(jīng)不再被擔心了，相應的精神享受收到了極大

10、的重 隨著社會的發(fā)展人們的物質(zhì)條件已經(jīng)不再被擔心了，相應的精神享受收到了極大的重隨著社會的發(fā)展人們的物質(zhì)條件已經(jīng)不再被擔心了，相應的精神享受收到了極大的重隨著社會的發(fā)展人們的物質(zhì)條件已經(jīng)不再被擔心了，相應的精神享受收到了極大的重隨著社會的發(fā)展人們的物質(zhì)條件已經(jīng)不再被擔心了，相應的精神享受收到了極大的重 視。就飯店吃飯來說人們已經(jīng)不僅僅只是要求飯菜可口，對就餐環(huán)境、服務態(tài)度外還想要視。就飯店吃飯來說人們已經(jīng)不僅僅只是要求飯菜可口，對就餐環(huán)境、服務態(tài)度外還想要 視。就飯店吃飯來說人們已經(jīng)不僅僅只是要求飯菜可口，對就餐環(huán)境、服務態(tài)度外還想要視。就飯店吃飯來說人們已經(jīng)不僅僅只是要求飯菜可口，對就餐環(huán)境

11、、服務態(tài)度外還想要視。就飯店吃飯來說人們已經(jīng)不僅僅只是要求飯菜可口，對就餐環(huán)境、服務態(tài)度外還想要視。就飯店吃飯來說人們已經(jīng)不僅僅只是要求飯菜可口，對就餐環(huán)境、服務態(tài)度外還想要 些娛樂活動。本系統(tǒng)除了簡單的界面外，做了顧客自助點菜系統(tǒng)些娛樂活動。本系統(tǒng)除了簡單的界面外，做了顧客自助點菜系統(tǒng) 些娛樂活動。本系統(tǒng)除了簡單的界面外，做了顧客自助點菜系統(tǒng)些娛樂活動。本系統(tǒng)除了簡單的界面外，做了顧客自助點菜系統(tǒng)些娛樂活動。本系統(tǒng)除了簡單的界面外，做了顧客自助點菜系統(tǒng)些娛樂活動。本系統(tǒng)除了簡單的界面外，做了顧客自助點菜系統(tǒng), , , , ,并可在提交之前隨時進行 并可在提交之前隨時進行 并可在提交之前隨時進

12、行并可在提交之前隨時進行并可在提交之前隨時進行并可在提交之前隨時進行 修改，在就餐過程可對本餐廳進行認識。在消費一定金額時進行抽獎活動。修改，在就餐過程可對本餐廳進行認識。在消費一定金額時進行抽獎活動。 修改，在就餐過程可對本餐廳進行認識。在消費一定金額時進行抽獎活動。修改，在就餐過程可對本餐廳進行認識。在消費一定金額時進行抽獎活動。修改，在就餐過程可對本餐廳進行認識。在消費一定金額時進行抽獎活動。修改，在就餐過程可對本餐廳進行認識。在消費一定金額時進行抽獎活動。 系統(tǒng)的組成及各模塊的功能系統(tǒng)的組成及各模塊的功能 點菜系統(tǒng)由登陸頁面、主頁面點菜系統(tǒng)由登陸頁面、主頁面 點菜系統(tǒng)由登陸頁面、主頁面

13、點菜系統(tǒng)由登陸頁面、主頁面點菜系統(tǒng)由登陸頁面、主頁面點菜系統(tǒng)由登陸頁面、主頁面 菜庫管理、點菜界面、抽獎界面、留言板組成 菜庫管理、點菜界面、抽獎界面、留言板組成 菜庫管理、點菜界面、抽獎界面、留言板組成菜庫管理、點菜界面、抽獎界面、留言板組成菜庫管理、點菜界面、抽獎界面、留言板組成菜庫管理、點菜界面、抽獎界面、留言板組成 登陸頁面：當輸入正確的用戶名和密碼是進入主頁面，同時設計了滾動電子板，使頁登陸頁面：當輸入正確的用戶名和密碼是進入主頁面，同時設計了滾動電子板，使頁 登陸頁面：當輸入正確的用戶名和密碼是進入主頁面，同時設計了滾動電子板，使頁登陸頁面：當輸入正確的用戶名和密碼是進入主頁面，同

14、時設計了滾動電子板，使頁登陸頁面：當輸入正確的用戶名和密碼是進入主頁面，同時設計了滾動電子板，使頁登陸頁面：當輸入正確的用戶名和密碼是進入主頁面，同時設計了滾動電子板，使頁 面更美觀面更美觀 面更美觀面更美觀面更美觀面更美觀 主頁面：該頁有飯店的簡單介紹及菜庫管理、點菜、留言板三個功能按鈕，點擊可以主頁面：該頁有飯店的簡單介紹及菜庫管理、點菜、留言板三個功能按鈕，點擊可以 主頁面：該頁有飯店的簡單介紹及菜庫管理、點菜、留言板三個功能按鈕，點擊可以主頁面：該頁有飯店的簡單介紹及菜庫管理、點菜、留言板三個功能按鈕，點擊可以主頁面：該頁有飯店的簡單介紹及菜庫管理、點菜、留言板三個功能按鈕，點擊可以主

15、頁面：該頁有飯店的簡單介紹及菜庫管理、點菜、留言板三個功能按鈕，點擊可以 進入相應頁面。右下方有返回按鈕，點擊返回登錄頁面。進入相應頁面。右下方有返回按鈕，點擊返回登錄頁面。 進入相應頁面。右下方有返回按鈕，點擊返回登錄頁面。進入相應頁面。右下方有返回按鈕，點擊返回登錄頁面。進入相應頁面。右下方有返回按鈕，點擊返回登錄頁面。進入相應頁面。右下方有返回按鈕，點擊返回登錄頁面。 菜庫管理菜庫管理 菜庫管理菜庫管理菜庫管理菜庫管理: : : : : :添加了 添加了 添加了添加了添加了添加了 sstab sstab sstabsstabsstabsstab 控件，點擊不同的選項卡可以分別實現(xiàn)對肉菜、

16、素菜、湯、主 控件，點擊不同的選項卡可以分別實現(xiàn)對肉菜、素菜、湯、主 控件，點擊不同的選項卡可以分別實現(xiàn)對肉菜、素菜、湯、主控件，點擊不同的選項卡可以分別實現(xiàn)對肉菜、素菜、湯、主控件，點擊不同的選項卡可以分別實現(xiàn)對肉菜、素菜、湯、主控件，點擊不同的選項卡可以分別實現(xiàn)對肉菜、素菜、湯、主 食的添加、修改、刪除及查看第一個、上一個、下一個、最后一個等功能。食的添加、修改、刪除及查看第一個、上一個、下一個、最后一個等功能。 食的添加、修改、刪除及查看第一個、上一個、下一個、最后一個等功能。食的添加、修改、刪除及查看第一個、上一個、下一個、最后一個等功能。食的添加、修改、刪除及查看第一個、上一個、下一

17、個、最后一個等功能。食的添加、修改、刪除及查看第一個、上一個、下一個、最后一個等功能。 點菜頁面：可以分別點肉菜、素菜、湯、主食，在點擊時可以看到菜種對應的樣品圖點菜頁面：可以分別點肉菜、素菜、湯、主食，在點擊時可以看到菜種對應的樣品圖 點菜頁面：可以分別點肉菜、素菜、湯、主食，在點擊時可以看到菜種對應的樣品圖點菜頁面：可以分別點肉菜、素菜、湯、主食，在點擊時可以看到菜種對應的樣品圖點菜頁面：可以分別點肉菜、素菜、湯、主食，在點擊時可以看到菜種對應的樣品圖點菜頁面：可以分別點肉菜、素菜、湯、主食，在點擊時可以看到菜種對應的樣品圖 片。同時可以實現(xiàn)退菜、查看價格等功能。落單時，根據(jù)消費額的高低可

18、以進入對應的抽片。同時可以實現(xiàn)退菜、查看價格等功能。落單時，根據(jù)消費額的高低可以進入對應的抽 片。同時可以實現(xiàn)退菜、查看價格等功能。落單時，根據(jù)消費額的高低可以進入對應的抽片。同時可以實現(xiàn)退菜、查看價格等功能。落單時，根據(jù)消費額的高低可以進入對應的抽片。同時可以實現(xiàn)退菜、查看價格等功能。落單時，根據(jù)消費額的高低可以進入對應的抽片。同時可以實現(xiàn)退菜、查看價格等功能。落單時，根據(jù)消費額的高低可以進入對應的抽 獎頁面。獎頁面。 獎頁面。獎頁面。獎頁面。獎頁面。 抽獎頁面：點擊按鈕會隨機產(chǎn)生抽獎頁面：點擊按鈕會隨機產(chǎn)生 抽獎頁面：點擊按鈕會隨機產(chǎn)生抽獎頁面：點擊按鈕會隨機產(chǎn)生抽獎頁面：點擊按鈕會隨機產(chǎn)

19、生抽獎頁面：點擊按鈕會隨機產(chǎn)生 1-3 1-3 1-31-31-31-3 之間的任一個數(shù)，顯示顧客中了幾等獎，并對應 之間的任一個數(shù)，顯示顧客中了幾等獎，并對應 之間的任一個數(shù)，顯示顧客中了幾等獎，并對應之間的任一個數(shù)，顯示顧客中了幾等獎，并對應之間的任一個數(shù)，顯示顧客中了幾等獎，并對應之間的任一個數(shù)，顯示顧客中了幾等獎，并對應 不同的獎品。不同的獎品。 不同的獎品。不同的獎品。不同的獎品。不同的獎品。 留言板：通過文本框輸入的留言可以保存到系統(tǒng)磁盤，主要運用的是通用對話框。當留言板：通過文本框輸入的留言可以保存到系統(tǒng)磁盤，主要運用的是通用對話框。當 留言板：通過文本框輸入的留言可以保存到系統(tǒng)

20、磁盤，主要運用的是通用對話框。當留言板：通過文本框輸入的留言可以保存到系統(tǒng)磁盤，主要運用的是通用對話框。當留言板：通過文本框輸入的留言可以保存到系統(tǒng)磁盤，主要運用的是通用對話框。當留言板：通過文本框輸入的留言可以保存到系統(tǒng)磁盤，主要運用的是通用對話框。當 點擊查看留言時，利用文件系統(tǒng)控件、組合框、文本框等，制作一個簡單的瀏覽器可以找點擊查看留言時，利用文件系統(tǒng)控件、組合框、文本框等，制作一個簡單的瀏覽器可以找 點擊查看留言時，利用文件系統(tǒng)控件、組合框、文本框等，制作一個簡單的瀏覽器可以找點擊查看留言時，利用文件系統(tǒng)控件、組合框、文本框等，制作一個簡單的瀏覽器可以找點擊查看留言時，利用文件系統(tǒng)控

21、件、組合框、文本框等，制作一個簡單的瀏覽器可以找點擊查看留言時，利用文件系統(tǒng)控件、組合框、文本框等，制作一個簡單的瀏覽器可以找 到留言并查看。到留言并查看。 到留言并查看。到留言并查看。到留言并查看。到留言并查看。 系統(tǒng)設計系統(tǒng)設計 總體機構(gòu)設計 總體機構(gòu)設計 總體機構(gòu)設計總體機構(gòu)設計總體機構(gòu)設計總體機構(gòu)設計 這個系統(tǒng)是我根據(jù)總分的結(jié)構(gòu)設計的，由主頁面展開得到。由于水平有限，只能粗糙地完這個系統(tǒng)是我根據(jù)總分的結(jié)構(gòu)設計的，由主頁面展開得到。由于水平有限，只能粗糙地完 這個系統(tǒng)是我根據(jù)總分的結(jié)構(gòu)設計的，由主頁面展開得到。由于水平有限，只能粗糙地完這個系統(tǒng)是我根據(jù)總分的結(jié)構(gòu)設計的，由主頁面展開得到。

22、由于水平有限，只能粗糙地完這個系統(tǒng)是我根據(jù)總分的結(jié)構(gòu)設計的，由主頁面展開得到。由于水平有限，只能粗糙地完這個系統(tǒng)是我根據(jù)總分的結(jié)構(gòu)設計的，由主頁面展開得到。由于水平有限，只能粗糙地完 成，很多地方還有待提高?？傮w結(jié)構(gòu)設計如下：成，很多地方還有待提高?？傮w結(jié)構(gòu)設計如下： 成，很多地方還有待提高?？傮w結(jié)構(gòu)設計如下：成，很多地方還有待提高。總體結(jié)構(gòu)設計如下：成，很多地方還有待提高?？傮w結(jié)構(gòu)設計如下：成，很多地方還有待提高?？傮w結(jié)構(gòu)設計如下： 數(shù)據(jù)庫設計數(shù)據(jù)庫設計 數(shù)據(jù)庫內(nèi)的內(nèi)容根據(jù)菜種的不同，可以分為肉菜素菜、湯、主食等幾大類。每個大類中又數(shù)據(jù)庫內(nèi)的內(nèi)容根據(jù)菜種的不同，可以分為肉菜素菜、湯、主食等幾

23、大類。每個大類中又 分為若干菜的具體內(nèi)容。包括菜的名字、價格、和菜樣的圖片地址。這樣在點菜時才能顯分為若干菜的具體內(nèi)容。包括菜的名字、價格、和菜樣的圖片地址。這樣在點菜時才能顯 示圖樣。由于時間有限，數(shù)據(jù)庫內(nèi)數(shù)據(jù)太少，有待提高。示圖樣。由于時間有限，數(shù)據(jù)庫內(nèi)數(shù)據(jù)太少，有待提高。 主頁面 菜庫管理點菜頁面留言界頁面 各種界面名稱和圖片組合搭配 系統(tǒng)實現(xiàn)系統(tǒng)實現(xiàn) 登錄模塊的設計與實現(xiàn)登錄模塊的設計與實現(xiàn) privateprivate subsub command1_click()command1_click() 登陸界面登陸界面 ifif text1.texttext1.text = = 鐵大鐵大

24、 andand text2.texttext2.text = = 110110 thenthen form1.hideform1.hide form2.showform2.show elseelse msgboxmsgbox 用戶名或密碼不正確用戶名或密碼不正確, 48,48, 警告！警告！ text1.setfocustext1.setfocus endend ifif text1.texttext1.text = = : text2.texttext2.text = = endend subsub privateprivate subsub command2_click()command2

25、_click() 退出退出 endend endend subsub privateprivate subsub form_load()form_load() 設置滾動條幅設置滾動條幅 timer1.enabledtimer1.enabled = = truetrue ：text2.passwordchartext2.passwordchar = = * endend subsub privateprivate subsub timer1_timer()timer1_timer() 滾動字符滾動字符 ifif label1.leftlabel1.left + + label1.widthlab

26、el1.width 0 0 thenthen label1.movelabel1.move label1.leftlabel1.left - - 5050 elseelse label1.leftlabel1.left = = form1.scalewidthform1.scalewidth endend ifif endend subsub 信息維護模塊的設計與實現(xiàn)信息維護模塊的設計與實現(xiàn) privateprivate subsub command1_click()command1_click() 進入菜庫進入菜庫 form2.hide:form2.hide: form3.showform3

27、.show endend subsub privateprivate subsub command2_click()command2_click() 進入點菜系統(tǒng)進入點菜系統(tǒng) form2.hide:form2.hide: form4.showform4.show endend subsub privateprivate subsub command3_click()command3_click() 進入留言板進入留言板 form2.hide:form2.hide: form5.showform5.show endend subsub privateprivate subsub command4

28、_click()command4_click() 返回登錄頁面返回登錄頁面 form2.hide:form2.hide: form1.showform1.show endend subsub privateprivate subsub command1_click()command1_click() 添加菜的信息到數(shù)據(jù)庫添加菜的信息到數(shù)據(jù)庫 ifif command1.captioncommand1.caption = = 添加添加 thenthen command1.captioncommand1.caption = = 確定確定 markmark = = data1.recordset.b

29、ookmarkdata1.recordset.bookmark data1.recordset.addnewdata1.recordset.addnew text1.setfocustext1.setfocus elseelse ifif text1.texttext1.text = = oror text2.texttext2.text = = oror text3.texttext3.text = = thenthen msgboxmsgbox 請輸入數(shù)據(jù)請輸入數(shù)據(jù), 48,48, 警告警告! 判斷字符是否為空判斷字符是否為空 exitexit subsub endend ifif com

30、mand1.captioncommand1.caption = = 添加添加 使按鈕回到添加狀態(tài)使按鈕回到添加狀態(tài) data1.recordset.updatedata1.recordset.update 調(diào)用調(diào)用 updateupdate 方法，保存添加的數(shù)據(jù)方法，保存添加的數(shù)據(jù) endend ifif endend subsub privateprivate subsub command2_click()command2_click() 修改菜的信息修改菜的信息 ifif command2.captioncommand2.caption = = 修改修改 thenthen command2

31、.captioncommand2.caption = = 確定確定 markmark = = data1.recordset.bookmarkdata1.recordset.bookmark data1.recordset.editdata1.recordset.edit text1.setfocustext1.setfocus elseelse command1.captioncommand1.caption = = 修改修改 data1.recordset.updatedata1.recordset.update endend ifif endend subsub privatepriva

32、te subsub command29_click()command29_click() form3.hideform3.hide form2.showform2.show endend subsub privateprivate subsub command3_click()command3_click() 刪除菜的信息刪除菜的信息 dimdim m m asas stringstring m m = = msgbox(msgbox(確定刪除？確定刪除？, 4 4 + + 256,256, 提醒！提醒！) ifif m m = = vbyesvbyes thenthen data1.reco

33、rdset.deletedata1.recordset.delete data1.recordset.movenextdata1.recordset.movenext ifif data1.recordset.eofdata1.recordset.eof thenthen data1.recordset.movelast:data1.recordset.movelast: msgboxmsgbox 已經(jīng)是最后一個已經(jīng)是最后一個 , 48,48, 提示！提示！ 如果是最后一個提示并返回最后一個如果是最后一個提示并返回最后一個 endend ifif endend subsub privatepr

34、ivate subsub command4_click()command4_click() 返回第一個記錄返回第一個記錄 data1.recordset.movefirstdata1.recordset.movefirst endend subsub privateprivate subsub command5_click()command5_click() 返回上一個記錄返回上一個記錄 data1.recordset.movepreviousdata1.recordset.moveprevious ifif data1.recordset.bofdata1.recordset.bof the

35、nthen data1.recordset.movefirstdata1.recordset.movefirst msgboxmsgbox 已經(jīng)是第一個已經(jīng)是第一個, 48,48, 注意啦注意啦 如果已經(jīng)是第一個提示如果已經(jīng)是第一個提示 并返回第一個并返回第一個 endend ifif endend subsub privateprivate subsub command6_click()command6_click() 返回下一條記錄返回下一條記錄 data1.recordset.movenextdata1.recordset.movenext ifif data1.recordset.eo

36、fdata1.recordset.eof thenthen data1.recordset.movelastdata1.recordset.movelast msgboxmsgbox 已經(jīng)是最后一個已經(jīng)是最后一個, 48,48, 注意啦注意啦 如果是最后一個提示并返回最后一個如果是最后一個提示并返回最后一個 endend ifif endend subsub privateprivate subsub command7_click()command7_click() data1.recordset.movelastdata1.recordset.movelast 返回最后一條記錄返回最后一條記

37、錄 privateprivate subsub command1_click()command1_click() 點菜點菜 list1.additemlist1.additem text1.texttext1.text & & space(10)space(10) & & text2.texttext2.text 列表框內(nèi)顯示的信息列表框內(nèi)顯示的信息 endend subsub privateprivate subsub command2_click()command2_click() 退菜退菜 ifif list1.listindexlist1.listindex -1-1 thenthen

38、 x x = = list1.listindexlist1.listindex endend ifif mitemmitem = = list1.list(x)list1.list(x) list1.removeitemlist1.removeitem x x text3.texttext3.text = = val(text3.text)val(text3.text) - - val(text2.text)val(text2.text) 自動更新落單價格自動更新落單價格 endend subsub privateprivate subsub command37_click()command3

39、7_click() form4.hideform4.hide form2.showform2.show endend subsub privateprivate subsub command4_click()command4_click() 落單落單 當消費額達到一定的數(shù)量時自動彈出不同層次當消費額達到一定的數(shù)量時自動彈出不同層次 的抽獎對話框的抽獎對話框 sumsum = = val(text2.text)val(text2.text) text3.texttext3.text = = sumsum + + val(text3.text)val(text3.text) ifif val(te

40、xt3.text)val(text3.text) = 150150 andand val(text3.text)val(text3.text) = 300300 thenthen form7.showform7.show 符合抽獎的條件符合抽獎的條件 endend subsub privateprivate subsub command5_click()command5_click() 查看肉菜信息查看肉菜信息 data1.recordsourcedata1.recordsource = = selectselect * * fromfrom 肉菜肉菜 data1.refreshdata1.r

41、efresh endend subsub privateprivate subsub command6_click()command6_click() 查看素菜信息查看素菜信息 data1.recordsourcedata1.recordsource = = selectselect * * fromfrom 素菜素菜 data1.refreshdata1.refresh endend subsub privateprivate subsub command7_click()command7_click() 查看湯類信息查看湯類信息 data1.recordsourcedata1.record

42、source = = selectselect * * fromfrom 湯湯 data1.refreshdata1.refresh endend subsub privateprivate subsub command8_click()command8_click() 查看主食信息查看主食信息 data1.recordsourcedata1.recordsource = = selectselect * * fromfrom 主食主食 data1.refreshdata1.refresh endend subsub privateprivate subsub form_load()form_

43、load() 設置控件顏色設置控件顏色 list1.backcolorlist1.backcolor = = rgb(100,rgb(100, 100,100, 10)10) sstab1.backcolorsstab1.backcolor = = vbbluevbblue list2.backcolorlist2.backcolor = = rgb(100,rgb(100, 50,50, 0)0) list3.backcolorlist3.backcolor = = rgb(50,rgb(50, 250,250, 50)50) list4.backcolorlist4.backcolor =

44、 = rgb(150,rgb(150, 50,50, 50)50) list5.backcolorlist5.backcolor = = rgb(0,rgb(0, 150,150, 50)50) text1.backcolortext1.backcolor = = vbredvbred text2.backcolortext2.backcolor = = vbredvbred text3.backcolortext3.backcolor = = vbredvbred text4.backcolortext4.backcolor = = vbredvbred text5.backcolortex

45、t5.backcolor = = vbredvbred text6.backcolortext6.backcolor = = vbredvbred text7.backcolortext7.backcolor = = vbredvbred text8.backcolortext8.backcolor = = vbredvbred text9.backcolortext9.backcolor = = vbredvbred text10.backcolortext10.backcolor = = vbredvbred text11.backcolortext11.backcolor = = vbr

46、edvbred text12.backcolortext12.backcolor = = vbredvbred text13.backcolortext13.backcolor = = vbredvbred text14.backcolortext14.backcolor = = vbredvbred text15.backcolortext15.backcolor = = vbredvbred text16.backcolortext16.backcolor = = vbredvbred text17.backcolortext17.backcolor = = vbredvbred text

47、18.backcolortext18.backcolor = = vbredvbred text20.backcolortext20.backcolor = = vbredvbred endend subsub privateprivate subsub msflexgrid1_mousedown(buttonmsflexgrid1_mousedown(button asas integer,integer, shiftshift asas inger,inger, x x asas single,single, y y asas single)single) text1.texttext1.

48、text = = msflexgrid1.textmatrix(msflexgrid1.row,msflexgrid1.textmatrix(msflexgrid1.row, 0)0) 提取數(shù)據(jù)庫內(nèi)第一提取數(shù)據(jù)庫內(nèi)第一 列的信息并顯示在文本框里列的信息并顯示在文本框里 text2.texttext2.text = = msflexgrid1.textmatrix(msflexgrid1.row,msflexgrid1.textmatrix(msflexgrid1.row, 1)1) 提取數(shù)據(jù)庫內(nèi)第二提取數(shù)據(jù)庫內(nèi)第二 列的信息并顯示在文本框里列的信息并顯示在文本框里 text4.texttext

49、4.text = = msflexgrid1.textmatrix(msflexgrid1.row,msflexgrid1.textmatrix(msflexgrid1.row, 2)2) 提取數(shù)據(jù)庫內(nèi)第三列提取數(shù)據(jù)庫內(nèi)第三列 的信息并顯示在文本框里的信息并顯示在文本框里 picture1.picturepicture1.picture = = loadpicture(text4.text)loadpicture(text4.text) endend subsub privateprivate subsub list1_click()list1_click() ifif list1.listi

50、ndexlist1.listindex -1-1 thenthen x x = = list1.listindexlist1.listindex endend ifif mitemmitem = = list1.list(x)list1.list(x) text1.texttext1.text = = left(mitem,left(mitem, 5)5) text2.texttext2.text = = mid(mitem,mid(mitem, 6,6, 3)3) endend subsub 以上是第一桌以上是第一桌 由于每桌的情況是一樣的所以不再一一列舉其他的由于每桌的情況是一樣的所以不再

51、一一列舉其他的 privateprivate subsub command1_click()command1_click() 中消費抽獎中消費抽獎 dimdim m m asas integerinteger 隨機產(chǎn)生隨機產(chǎn)生 1-31-3 之間的數(shù)并對應不同獎品之間的數(shù)并對應不同獎品 m m = = int(rndint(rnd * * 3 3 + + 1)1) text1.texttext1.text = = m m selectselect casecase m m casecase 1 1 x x = = 心相印心相印 casecase 2 2 x x = = 打火機打火機 casec

52、ase 3 3 x x = = 精美紀念品精美紀念品 endend selectselect text2.texttext2.text = = x x endend subsub privateprivate subsub command1_click()command1_click() 高消費抽獎高消費抽獎 dimdim m m asas integerinteger 隨機產(chǎn)生隨機產(chǎn)生 1-31-3 之間的數(shù)并對應不同獎品之間的數(shù)并對應不同獎品 m m = = int(rndint(rnd * * 3)3) + + 1 1 text1.texttext1.text = = m m selec

53、tselect casecase m m casecase 1 1 x x = = 精美水杯精美水杯 casecase 2 2 x x = = 中南海。中南海。88 casecase 3 3 x x = = 太陽傘太陽傘 endend selectselect text2.texttext2.text = = x x endend subsub privateprivate subsub command1_click()command1_click() 保存留言保存留言 withwith commondialog1commondialog1 留言的地址及文件類型留言的地址及文件類型 .defa

54、ultext.defaultext = = txttxt .initdir.initdir = = d:d:課程設計課程設計 留言板留言板 .filename.filename = = 留言留言.txt.txt .filter.filter = = 文本文件文本文件|*.txt|all|*.txt|all files(*.*)|*.*files(*.*)|*.* .filterindex.filterindex = = 1 1 .action.action = = 2 2 endend withwith openopen commondialog1.filenamecommondialog1.

55、filename forfor outputoutput asas #1#1 printprint #1,#1, text1.texttext1.text closeclose #1#1 endend subsub privateprivate subsub command2_click()command2_click() 打開以往的留言打開以往的留言 form5.hideform5.hide form8.showform8.show endend subsub privateprivate subsub command3_click()command3_click() 返回主頁返回主頁 fo

56、rm5.hideform5.hide form2.showform2.show endend subsub privateprivate subsub combo1_click()combo1_click() file1.patternfile1.pattern = = combo1.textcombo1.text endend subsub privateprivate subsub command1_click()command1_click() 退出退出 endend endend subsub privateprivate subsub command2_click()command2

57、_click() 返回留言板返回留言板 form5.showform5.show unloadunload meme endend subsub privateprivate subsub dir1_change()dir1_change() file1.pathfile1.path = = dir1.pathdir1.path endend subsub privateprivate subsub drive1_change()drive1_change() dir1.pathdir1.path = = drive1.drivedrive1.drive endend subsub priva

58、teprivate subsub file1_dblclick()file1_dblclick() 打開過往留言打開過往留言 dimdim s s asas stringstring openopen file1.pathfile1.path + + + + file1.filenamefile1.filename forfor inputinput asas #1#1 dodo whilewhile notnot eof(1)eof(1) lineline inputinput #1,#1, s s text1.texttext1.text = = text1.texttext1.text + + s s + + chr(13)chr(13) + + chr(10)chr(10) looploop closeclose #1#1 endend subsub text1.texttext1.text = = text1.texttext1.text + + s s + + chr(13)chr(13) + + chr(10)chr(10) 留言顯示留言顯示 looploop closeclose #1#1 endend subsub 總