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

1、<p><b>　　目 錄</b></p><p>　　第一章 餐飲信息管理系統(tǒng)的開(kāi)發(fā)背景1</p><p>　　1.1 開(kāi)發(fā)背景1</p><p>　　1.2 開(kāi)發(fā)工具和相關(guān)技術(shù)簡(jiǎn)介1</p><p>　　第二章 系統(tǒng)定義與系統(tǒng)需求4</p><p>　　2.1 系統(tǒng)定義

2、4</p><p>　　2.2 系統(tǒng)需求分析4</p><p>　　第三章 系統(tǒng)總體設(shè)計(jì)6</p><p>　　3.1 系統(tǒng)功能模塊的劃分6</p><p>　　3.2 管理員權(quán)限模塊劃分8</p><p>　　3.3 員工權(quán)限模塊劃分8</p><p>　　3.4 系統(tǒng)流程分析8&

3、lt;/p><p>　　3.5 數(shù)據(jù)庫(kù)設(shè)計(jì)9</p><p>　　3.5.1 數(shù)據(jù)庫(kù)規(guī)劃9</p><p>　　3.5.2 E-R圖10</p><p>　　3.5.3 數(shù)據(jù)表的設(shè)計(jì)11</p><p>　　第四章 系統(tǒng)詳細(xì)設(shè)計(jì)15</p><p>　　4.1 數(shù)據(jù)庫(kù)15</p&g

4、t;<p>　　4.1.1 數(shù)據(jù)庫(kù)的鏈接15</p><p>　　4.1.2 Is_SQL_Cmd方法15</p><p>　　4.1.3 SQL_Ada方法16</p><p>　　4.1.4 ExecCmd過(guò)程16</p><p>　　4.2 系統(tǒng)的登錄與注銷(xiāo)17</p><p>　　4.2

5、.1 用戶(hù)登陸模塊的實(shí)現(xiàn)17</p><p>　　4.2.2 用戶(hù)注銷(xiāo)模塊的實(shí)現(xiàn)18</p><p>　　4.3 客戶(hù)信息管理19</p><p>　　4.3.1 客戶(hù)信息的添加19</p><p>　　4.3.2 圖像的處理20</p><p>　　4.3.3 客戶(hù)信息的修改21</p>&

6、lt;p>　　4.3.4 客戶(hù)信息的刪除23</p><p>　　4.3.5 客戶(hù)信息的查詢(xún)24</p><p>　　4.4 添加預(yù)定信息26</p><p>　　4.4.1 日期時(shí)間桌號(hào)的核對(duì)27</p><p>　　4.4.2 打折信息處理27</p><p>　　4.4.3 取消預(yù)定信息28&l

7、t;/p><p>　　4.4.4 預(yù)定信息查詢(xún)29</p><p>　　4.5充值與結(jié)算31</p><p>　　4.5.1 客戶(hù)充值31</p><p>　　4.5.2 客戶(hù)結(jié)算33</p><p>　　4.6 折扣設(shè)定33</p><p>　　4.7 用戶(hù)管理34</p>

8、<p>　　4.7.1 用戶(hù)的添加34</p><p>　　4.7.2 用戶(hù)的刪除34</p><p><b>　　總 結(jié)37</b></p><p><b>　　謝 辭39</b></p><p><b>　　參考文獻(xiàn)40</b></p&

9、gt;<p>　　第一章 餐飲信息管理系統(tǒng)的開(kāi)發(fā)背景</p><p><b>　　1.1 開(kāi)發(fā)背景</b></p><p>　　傳統(tǒng)的餐飲管理現(xiàn)在已經(jīng)很難應(yīng)對(duì)當(dāng)今社會(huì)對(duì)餐飲業(yè)的管理要求，它與現(xiàn)在的基于計(jì)算機(jī)技術(shù)發(fā)展起來(lái)的餐飲信息管理系統(tǒng)對(duì)比，有以下幾大不同：</p><p>　　便捷性方面：傳統(tǒng)的人工對(duì)餐飲信息進(jìn)行管理，如：顧客信

10、息管理，菜單信息管理和訂餐信息的管理，都是很繁瑣的過(guò)程，其中的任何一步過(guò)程都要浪費(fèi)大量的時(shí)間，而隨著計(jì)算機(jī)技術(shù)的發(fā)展，這些原本繁瑣的問(wèn)題都會(huì)變得輕而易舉。</p><p>　　安全性方面：傳統(tǒng)的紙質(zhì)記錄方式查詢(xún)起來(lái)很麻煩，而且保密性很差，并且容易磨損丟失，對(duì)于會(huì)員余額的管理是非常不利的。但如果采用的是電子文檔的方式進(jìn)行數(shù)據(jù)的保存，這一切都變得非常簡(jiǎn)便，你可以方便的對(duì)數(shù)據(jù)信息進(jìn)行備份查詢(xún)，并且數(shù)據(jù)的安全性可以得到最

11、大程度的保證。</p><p>　　準(zhǔn)確性方面：傳統(tǒng)的人工記賬容易出錯(cuò)，如果采用這種方式來(lái)處理現(xiàn)在的含有打折信息的消費(fèi)結(jié)算會(huì)使得工作量很大，如果計(jì)算出錯(cuò)將嚴(yán)重影響自己的聲譽(yù)。而如果使用軟件系統(tǒng)，這些問(wèn)題都將不會(huì)出現(xiàn)，計(jì)算機(jī)的錯(cuò)誤率幾乎為零。</p><p>　　鑒于以上傳統(tǒng)的人工管理方式的種種缺陷，我設(shè)計(jì)了方便中小級(jí)別餐飲企業(yè)使用的應(yīng)用程序，通過(guò)它，管理者可以基本解決以上所遇到的種種問(wèn)題，

12、并且更加科學(xué)的對(duì)老客戶(hù)進(jìn)行打折，而且添加了主顧權(quán)限的不同設(shè)計(jì)使得它更加方便雇主對(duì)雇員的管理與監(jiān)督。</p><p>　　第二章 系統(tǒng)定義與系統(tǒng)需求</p><p><b>　　2.1 系統(tǒng)定義</b></p><p>　　計(jì)算機(jī)技術(shù)產(chǎn)生以后，迅速在管理領(lǐng)域得到了廣泛的應(yīng)用。20世紀(jì)60年代，美國(guó)經(jīng)營(yíng)管理協(xié)會(huì)及其事業(yè)部第一次提出了建立管理信息系統(tǒng)

13、的設(shè)想，即建立一個(gè)有效的信息系統(tǒng)，使得各級(jí)管理部門(mén)都能了解本單位的一切有關(guān)經(jīng)營(yíng)活動(dòng)，為各級(jí)決策人員提供所需要的信息。</p><p>　　對(duì)于信息管理系統(tǒng)的定義，目前還沒(méi)有一個(gè)統(tǒng)一的認(rèn)識(shí)。由于餐飲管理系統(tǒng)是基于C/S模式，本文更傾向于采納下述定義：餐飲信息管理系統(tǒng)是通過(guò)對(duì)整個(gè)餐飲服務(wù)流程的管理，實(shí)現(xiàn)業(yè)務(wù)的整體優(yōu)化，提高企業(yè)運(yùn)行控制和外部交易過(guò)程的效率的管理工具。</p><p>　　2.2

14、 系統(tǒng)需求分析</p><p>　　現(xiàn)在的管理系統(tǒng)不僅要有漂亮的用戶(hù)界面，更要有嚴(yán)謹(jǐn)?shù)囊?guī)劃，注重每一個(gè)細(xì)小的環(huán)節(jié)。這樣才能使得在電子交易時(shí)避免不必要錯(cuò)誤發(fā)生。本系統(tǒng)的設(shè)計(jì)與實(shí)施迎合了二十一世紀(jì)經(jīng)濟(jì)高速發(fā)展、人們的生活節(jié)奏日益加快以及現(xiàn)代餐飲業(yè)越來(lái)越發(fā)達(dá)和便捷這一現(xiàn)狀。它將極大地方便食客的就餐，同時(shí)也有利于我們的管理和服務(wù)。同時(shí)，我們的餐飲信息管理系統(tǒng)還能幫助餐廳降低錯(cuò)誤率，擴(kuò)大營(yíng)業(yè)范圍，增加知名度等。</p

15、><p>　　為了使系統(tǒng)更加人性化，便于管理員管理，此系統(tǒng)的用戶(hù)將分為兩種類(lèi)型，一個(gè)是針對(duì)員工的餐飲管理系統(tǒng)，另一個(gè)是針對(duì)管理員（店主）的餐飲管理系統(tǒng)。</p><p>　　員工使用本餐飲信息管理系統(tǒng)應(yīng)可以實(shí)現(xiàn)以下功能：</p><p>　　添加修改查詢(xún)客戶(hù)會(huì)員信息(修改客戶(hù)信息需客戶(hù)確認(rèn))</p><p><b>　　查詢(xún)菜單<

16、/b></p><p>　　添加查詢(xún)預(yù)定信息，為老顧客打折</p><p>　　客戶(hù)可以在自己的會(huì)員賬戶(hù)里充值</p><p>　　顧客可以用現(xiàn)金買(mǎi)單也可以從會(huì)員賬戶(hù)里扣取</p><p>　　管理員使用本餐飲信息管理系統(tǒng)應(yīng)可以實(shí)現(xiàn)以下功能：</p><p>　　添加修改查詢(xún)客戶(hù)會(huì)員信息(修改客戶(hù)信息需客戶(hù)確認(rèn))

17、</p><p>　　添加修改查詢(xún)菜單信息，最好能看到菜品圖片</p><p>　　添加查詢(xún)預(yù)定信息，為老顧客打折</p><p>　　客戶(hù)可以在自己的會(huì)員賬戶(hù)里充值</p><p>　　顧客可以用現(xiàn)金買(mǎi)單也可以從會(huì)員賬戶(hù)里扣取</p><p><b>　　設(shè)定具體的打折方法</b></p&

18、gt;<p>　　添加職員信息，權(quán)限也可以定為管理員。</p><p>　　可以查詢(xún)使用者的現(xiàn)金收款金額</p><p>　　除了實(shí)現(xiàn)以上功能外，本系統(tǒng)還需要方便用戶(hù)地使用，使得用戶(hù)可以很快地熟練掌握，從而可以讓用戶(hù)快速的投入工作。并且要避免邏輯錯(cuò)誤的出現(xiàn)。</p><p>　　第三章 系統(tǒng)總體設(shè)計(jì)</p><p>　　3.1

19、系統(tǒng)功能模塊的劃分</p><p>　　根據(jù)以上需求，餐飲信息管理系統(tǒng)功能被劃分為以下模塊，如圖3.1所示：</p><p>　　圖3.1 餐飲信息管理系統(tǒng)功能模塊圖</p><p>　　系統(tǒng)登錄退出模塊：本模塊是被用于用戶(hù)登錄，注銷(xiāo)和退出。模塊根據(jù)用戶(hù)的不同類(lèi)型賦予用戶(hù)不同的管理權(quán)限。低等級(jí)的用戶(hù)不可訪(fǎng)問(wèn)高等級(jí)用戶(hù)的個(gè)別功能，而高等級(jí)用戶(hù)可以使用低等級(jí)用戶(hù)的所有系

20、統(tǒng)功能。</p><p>　　客戶(hù)信息管理模塊：本模塊將餐飲企業(yè)松散的客戶(hù)資源加以整合，通過(guò)標(biāo)準(zhǔn)化的管理操作，將客戶(hù)資料加以收集。用戶(hù)使用本模塊可以方便的查詢(xún)客戶(hù)的所有資料和客戶(hù)消費(fèi)信息。并且特意添加了圖像模塊，使得用戶(hù)的圖像信息加以保留，方便使用者的查詢(xún)和記憶，當(dāng)客戶(hù)再次光臨時(shí)，服務(wù)人員可以直接認(rèn)出客戶(hù)，這將使得客戶(hù)感到無(wú)微不至的關(guān)懷，提升餐廳的品牌形象?？蛻?hù)的資料變更需經(jīng)客戶(hù)的確認(rèn)，以避免出現(xiàn)因失誤操作導(dǎo)致的

21、客戶(hù)信息流失。</p><p>　　菜單信息管理模塊：本模塊將餐廳的菜品信息通過(guò)標(biāo)準(zhǔn)化的管理操作加以整合，使得菜品的價(jià)格、配料、功效和圖片可以完全呈現(xiàn)在客戶(hù)面前，使得客戶(hù)可以方便地選擇自己想要的食物。本模塊的分權(quán)限設(shè)計(jì)將限制普通員工對(duì)菜單信息加以修改，以防止菜單價(jià)格被惡意修改，以此保證餐廳正?？煽康倪\(yùn)營(yíng)。</p><p>　　訂餐信息管理模塊：通過(guò)訂餐模塊使得傳統(tǒng)餐飲訂餐過(guò)程變得輕松方便，

22、訂餐信息管理模塊會(huì)在客戶(hù)訂餐的同時(shí)核對(duì)客戶(hù)所預(yù)定的餐桌的使用情況，避免傳統(tǒng)訂餐易出現(xiàn)的預(yù)定重合問(wèn)題。并且本模塊在客戶(hù)訂餐的同時(shí)會(huì)給出已預(yù)定的菜品價(jià)格，幫助客戶(hù)開(kāi)心合理地消費(fèi)。模塊中包含的打折服務(wù)是本模塊的一大特色。它將參考客戶(hù)以往的消費(fèi)情況和管理員設(shè)定的折扣程度對(duì)客戶(hù)進(jìn)行打折服務(wù)。而不是傳統(tǒng)餐飲打折中的沒(méi)有規(guī)律和憑據(jù)以詢(xún)。后臺(tái)的廚房通過(guò)本系統(tǒng)可以清楚地知道客戶(hù)預(yù)定的菜品，這樣就節(jié)省了大量用于菜品核對(duì)的時(shí)間，提高了廚房的效率，縮短了廚房上

23、菜的時(shí)間。減少了不必要的人力物力財(cái)力資源的消耗，降低餐廳的運(yùn)營(yíng)成本，使餐廳以更好性?xún)r(jià)比服務(wù)于消費(fèi)者，消費(fèi)者可以得到更好的消費(fèi)體驗(yàn)。</p><p>　　充值結(jié)算管理模塊：通過(guò)此模塊，用戶(hù)可以方便的為客戶(hù)提供充值結(jié)算服務(wù)，充值收取的現(xiàn)金將會(huì)計(jì)入用戶(hù)的收款現(xiàn)金中，便于管理員結(jié)算時(shí)核對(duì)收款金額。結(jié)算方式分為兩種，一種是現(xiàn)金結(jié)算，一種是賬戶(hù)余額結(jié)算，現(xiàn)金結(jié)算的收款金額會(huì)計(jì)入用戶(hù)的收款現(xiàn)金，而賬戶(hù)余額結(jié)算的金額會(huì)從客戶(hù)的賬

24、戶(hù)里扣除。</p><p>　　折扣信息管理模塊：本模塊只限于管理員使用，通過(guò)它可以設(shè)定為客戶(hù)打折時(shí)用到的折扣程度</p><p>　　員工信息管理模塊：本模塊只限于管理員使用，管理員使用它，可以添加刪除用戶(hù)。用戶(hù)類(lèi)型分為店長(zhǎng)（管理員）和職員。管理員刪除用戶(hù)時(shí)，如果要?jiǎng)h除的是普通職員，系統(tǒng)將直接執(zhí)行命令，如果要?jiǎng)h除的是管理員賬戶(hù)，系統(tǒng)會(huì)先查看剩下的管理員賬戶(hù)數(shù)量，最少保留一個(gè)管理員賬戶(hù)，以

25、便下次的登錄。如果刪除的用戶(hù)是管理員本人，則在刪除賬戶(hù)后，系統(tǒng)將會(huì)要求使用者重新登錄。</p><p>　　3.2 管理員權(quán)限模塊劃分</p><p>　　管理員權(quán)限劃分如圖3.2所示：</p><p>　　圖3.2 店長(zhǎng)權(quán)限模塊圖</p><p>　　管理員使用本系統(tǒng)將能使用系統(tǒng)的所有功能。</p><p>　　3.

26、3 員工權(quán)限模塊劃分</p><p>　　員工權(quán)限劃分如圖3.3所示：</p><p>　　圖3.3 雇員權(quán)限模塊圖</p><p>　　員工使用本系統(tǒng)可以使用除了菜單信息編輯、折扣信息管理模塊和員工信息管理模塊之外的所有功能。</p><p>　　3.4 系統(tǒng)流程分析</p><p>　　系統(tǒng)流程分析如圖3.4所示：

27、</p><p>　　圖3.4 系統(tǒng)流程分析</p><p>　　流程圖簡(jiǎn)介：?jiǎn)T工登錄系統(tǒng)后為客戶(hù)添加基本信息，客戶(hù)可以根據(jù)需要在開(kāi)通的賬戶(hù)里充值（增加用戶(hù)的收款金額）?？蛻?hù)通過(guò)餐飲信息管理系統(tǒng)進(jìn)行訂餐（老用戶(hù)在此環(huán)節(jié)中可能會(huì)享受打折服務(wù)）。客戶(hù)用完餐后來(lái)到服務(wù)臺(tái)買(mǎi)單，用戶(hù)可以選擇使用現(xiàn)金或者從用戶(hù)余額里扣除，支付成功會(huì)增加客戶(hù)的已消費(fèi)金額。若余額不足，系統(tǒng)將會(huì)提示，那么客戶(hù)只能使用現(xiàn)金支

28、付。使用現(xiàn)金支付的話(huà)會(huì)增加用戶(hù)的收款金額。管理員登錄的話(huà)可以使用員工的所有功能，而且可以設(shè)定為客戶(hù)打折的折扣程度和添加菜單，以及管理員工賬戶(hù)。</p><p><b>　　3.5 數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>　　3.5.1 數(shù)據(jù)庫(kù)規(guī)劃</p><p>　　根據(jù)以上模塊劃分圖分析，針對(duì)餐飲信息管理系統(tǒng)，分別對(duì)用戶(hù)、客戶(hù)、食譜、預(yù)定、折扣這

29、幾個(gè)實(shí)體進(jìn)行詳細(xì)的調(diào)研和分析。數(shù)據(jù)庫(kù)的設(shè)計(jì)采用一庫(kù)多表式設(shè)計(jì)。即設(shè)計(jì)了一個(gè)數(shù)據(jù)庫(kù)。把每個(gè)使用到的獨(dú)立的對(duì)象設(shè)計(jì)為獨(dú)立的應(yīng)用實(shí)體。</p><p>　　3.5.2 E-R圖</p><p>　　圖3.5 用戶(hù)E-R圖</p><p>　　主要存儲(chǔ)一些用戶(hù)信息，如用戶(hù)的賬號(hào)、密碼和類(lèi)型地點(diǎn)等等，主要用于用戶(hù)登錄，添加客戶(hù)和添加預(yù)定時(shí)會(huì)使用到用戶(hù)信息。</p>

30、<p>　　圖3.6 客戶(hù)E-R圖</p><p>　　主要存儲(chǔ)一些客戶(hù)信息，如客戶(hù)的賬號(hào)、密碼、聯(lián)系方式和消費(fèi)情況等等，主要用于客戶(hù)訂餐、充值和結(jié)算，使用于添加預(yù)定。</p><p>　　圖3.7 食譜E-R圖</p><p>　　主要存儲(chǔ)一些食譜信息，如食譜的名稱(chēng)、價(jià)格和照片等等，主要用于客戶(hù)訂餐，使用于添加預(yù)定。</p><p

31、>　　圖3.8 預(yù)定E-R圖</p><p>　　主要存儲(chǔ)一些預(yù)定信息，如客戶(hù)的賬號(hào)、預(yù)定的時(shí)間、桌號(hào)和菜單等等，主要用于記錄客戶(hù)的預(yù)定信息，會(huì)使用到用戶(hù)、客戶(hù)、菜單和折扣信息。</p><p>　　圖3.9 折扣E-R圖</p><p>　　存儲(chǔ)管理員（店主）設(shè)定的打折信息，用來(lái)計(jì)算打折后的應(yīng)付金額，使用在添加預(yù)定時(shí)打折。</p><p&

32、gt;　　3.5.3 數(shù)據(jù)表的設(shè)計(jì)</p><p><b>　　user（用戶(hù)表）</b></p><p>　　表3.1 user</p><p>　　用戶(hù)表主要用于存儲(chǔ)一些用戶(hù)信息，如用戶(hù)的賬號(hào)、密碼和類(lèi)型地點(diǎn)等等，主要用于用戶(hù)登錄，添加客戶(hù)和添加預(yù)定時(shí)會(huì)使用到用戶(hù)信息來(lái)記錄經(jīng)手的用戶(hù)，字段money用于記錄用戶(hù)的收款金額，便于結(jié)算時(shí)對(duì)收款

33、現(xiàn)金的核對(duì)。</p><p>　　customer（客戶(hù)表）</p><p>　　表3.2 customer</p><p>　　客戶(hù)表主要用于存儲(chǔ)一些客戶(hù)信息，如客戶(hù)的賬號(hào)、密碼、聯(lián)系方式和消費(fèi)情況等等，主要用于客戶(hù)訂餐、充值和結(jié)算，字段money用于儲(chǔ)存賬戶(hù)余額，在使用充值和賬戶(hù)余額支付時(shí)會(huì)使用到它。字段usedmoney用于記錄客戶(hù)的消費(fèi)情況，為客戶(hù)打折時(shí)會(huì)

34、使用到它。</p><p>　　food (食譜表)</p><p>　　表3.3 food</p><p>　　食譜表主要用于存儲(chǔ)一些食譜信息，如食譜的名稱(chēng)、價(jià)格和照片等等，主要用于客戶(hù)訂餐，使用于添加預(yù)定。字段Price記錄的是食物的價(jià)格。當(dāng)客戶(hù)預(yù)定餐點(diǎn)時(shí)，系統(tǒng)使用它來(lái)算費(fèi)用。</p><p>　　YuDing（預(yù)定表）</p&g

35、t;<p>　　表3.4 YuDing</p><p>　　預(yù)定表主要用于存儲(chǔ)一些預(yù)定信息，如客戶(hù)的賬號(hào)、預(yù)定的時(shí)間、桌號(hào)和菜單等等，主要用于記錄客戶(hù)的預(yù)定信息，會(huì)使用到用戶(hù)、客戶(hù)、菜單和折扣信息。當(dāng)系統(tǒng)預(yù)定餐點(diǎn)時(shí)，會(huì)從其他各表中調(diào)出需要的信息，經(jīng)過(guò)計(jì)算和處理后，將最終信息儲(chǔ)存到Y(jié)uDing表，該表和其它各表都有緊密的聯(lián)系。</p><p>　　discount（折扣表）&

36、lt;/p><p>　　表3.5 discount</p><p>　　折扣表用于存儲(chǔ)管理員（店主）設(shè)定的打折信息，用來(lái)計(jì)算打折后的應(yīng)付金額，使用在添加預(yù)定時(shí)打折。當(dāng)客戶(hù)預(yù)定餐點(diǎn)時(shí)，打折服務(wù)的折扣程度就是參照該表。</p><p>　　第四章 系統(tǒng)詳細(xì)設(shè)計(jì)</p><p><b>　　4.1 數(shù)據(jù)庫(kù)</b></p>

37、;<p>　　4.1.1 數(shù)據(jù)庫(kù)的鏈接</p><p>　　為了便于用戶(hù)使用和維護(hù)，我們將與數(shù)據(jù)庫(kù)的連接，單獨(dú)寫(xiě)出來(lái)并進(jìn)行編譯，這樣系統(tǒng)在新的環(huán)境使用時(shí)，只需改動(dòng)一處數(shù)據(jù)庫(kù)連接代碼，即可立即使用，連接關(guān)鍵代碼如下：</p><p>　　Public Shared constr As String = "Data Source=WWW-3C702F2C1C8\SQLE

38、XPRESS;Initial Catalog=dcdatebase;Integrated Security=True"</p><p>　　其中Public Shared constr As String = "Data Source=WWW-3C702F2C1C8\SQLEXPRESS;Initial Catalog=dcdatebase;Integrated Security=True&q

39、uot;是數(shù)據(jù)庫(kù)連接語(yǔ)句，WWW-3C702F2C1C8是計(jì)算機(jī)名。</p><p>　　4.1.2 Is_SQL_Cmd方法</p><p>　　方法Is_SQL_Cmd是判斷數(shù)據(jù)是否存在，當(dāng)系統(tǒng)登錄和添加客戶(hù)需要驗(yàn)證數(shù)據(jù)庫(kù)中是否存在提交的數(shù)據(jù)時(shí)會(huì)用到它。其主要代碼如下：</p><p>　　Public Function Is_SQL_Cmd(ByVal cmd

40、str As String) As Boolean</p><p>　　SqlConn = New SqlConnection(constr)</p><p>　　SqlConn.Open()</p><p>　　SqlCmd = New SqlCommand(cmdstr, SqlConn)</p><p><b>　　Try&l

41、t;/b></p><p>　　SqlDr = SqlCmd.ExecuteReader()</p><p>　　If SqlDr.HasRows Then</p><p>　　Return True</p><p><b>　　Else</b></p><p>　　Return False

42、</p><p><b>　　End If</b></p><p>　　Catch ex As Exception</p><p>　　Return False</p><p><b>　　Finally</b></p><p>　　SqlConn.Close()</p

43、><p><b>　　End Try</b></p><p>　　End Function</p><p>　　4.1.3 SQL_Ada方法</p><p>　　方法SQL_Ada是為了查詢(xún)數(shù)據(jù)庫(kù)，并將查詢(xún)到的結(jié)果存放在內(nèi)存中的datatable表中，餐飲信息管理系統(tǒng)中使用到的組件DataGridView再?gòu)膁atatab

44、le表中得到數(shù)據(jù)。</p><p>　　Public Function SQL_Ada(ByVal adastr As String) As DataTable</p><p>　　SqlConn = New SqlConnection(constr)</p><p>　　SqlConn.Open()</p><p>　　SqlAda = N

45、ew SqlDataAdapter(adastr, SqlConn)</p><p>　　ds = New DataSet</p><p><b>　　Try</b></p><p>　　SqlAda.Fill(ds)</p><p>　　Return ds.Tables(0)</p><p>　

46、　Catch ex As Exception</p><p>　　Return New DataTable</p><p><b>　　Finally</b></p><p>　　SqlConn.Close()</p><p><b>　　End Try</b></p><p&g

47、t;　　End Function</p><p>　　4.1.4 ExecCmd過(guò)程</p><p>　　ExecCmd是為系統(tǒng)中的添加、刪除、修改服務(wù)，系統(tǒng)里的客戶(hù)、菜單、折扣和員工的添加、刪除和修改都用到了該過(guò)程。</p><p>　　Public Sub ExecCmd(ByVal cmdstr As String)</p><p>　

48、　SqlConn = New SqlConnection(constr)</p><p>　　SqlConn.Open()</p><p>　　SqlCmd = New SqlCommand(cmdstr, SqlConn)</p><p>　　SqlCmd.ExecuteNonQuery()</p><p><b>　　End S

49、ub</b></p><p>　　4.2 系統(tǒng)的登錄與注銷(xiāo)</p><p>　　4.2.1 用戶(hù)登陸模塊的實(shí)現(xiàn)</p><p><b>　　圖4.1 用戶(hù)登錄</b></p><p>　　用戶(hù)登陸模塊是防止非法用戶(hù)登陸的第一道防線(xiàn)，通過(guò)它可以保護(hù)后臺(tái)數(shù)據(jù)庫(kù)的安全性，當(dāng)用戶(hù)要進(jìn)行系統(tǒng)操作時(shí)，首先要進(jìn)入的就是身份

50、驗(yàn)證界面，只有在密碼正確的情況下才能進(jìn)行以后的操作，如果輸入的密碼不正確，則不能進(jìn)行登錄對(duì)系統(tǒng)進(jìn)行操作。如果用戶(hù)以職員的身份進(jìn)入系統(tǒng)，則只能進(jìn)行顧客信息管理、菜單信息查詢(xún)、預(yù)定信息管理和充值結(jié)算管理，而菜單信息管理、折扣設(shè)定、員工管理這些功能將被屏蔽，如果用戶(hù)以管理員（店長(zhǎng)）身份登錄，系統(tǒng)的所有功能都將可以使用。以下是“登錄”按鈕的代碼：</p><p>　　cmdstr = "select * fro

51、m [user] where [user_id] ='" + TextBox1.Text + "' and [pwd]= '" + TextBox2.Text + "' and [style]= '" + ComboBox1.Text + "'"</p><p><b>　　Try<

52、;/b></p><p>　　If sqlobject.Is_SQL_Cmd(cmdstr) Then</p><p>　　main.m_Login = True</p><p>　　...... //類(lèi)似部分省略</p><p>　　Me.Close()</p><p>&

53、lt;b>　　Else</b></p><p>　　MsgBox("請(qǐng)?zhí)顚?xiě)正確的用戶(hù)名、密碼和用戶(hù)類(lèi)型!")</p><p><b>　　End If</b></p><p>　　Catch ex As Exception</p><p>　　main.OPErr.WriteErr(

54、ex)</p><p><b>　　End Try</b></p><p>　　系統(tǒng)先進(jìn)行數(shù)據(jù)庫(kù)操作，判斷是否存在用戶(hù)名、用戶(hù)密碼和用戶(hù)類(lèi)型完全符合要求的數(shù)據(jù)，如果存在，則說(shuō)明用戶(hù)可以登錄，同時(shí)把登錄的用戶(hù)類(lèi)型和用戶(hù)名告訴需要用到用戶(hù)類(lèi)型和用戶(hù)名數(shù)據(jù)的模塊如系統(tǒng)主界面、充值模塊和買(mǎi)單模塊等等。</p><p>　　4.2.2 用戶(hù)注銷(xiāo)模塊的實(shí)現(xiàn)

55、</p><p>　　用戶(hù)注銷(xiāo)模塊的代碼如下： </p><p>　　Private Sub 注銷(xiāo)ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 注銷(xiāo)ToolStripMenuItem.Click</p><p>　　Me.m_st

56、yle = ""</p><p>　　Me.m_Login = False</p><p>　　For Each ChildForm As Form In Me.MdiChildren</p><p>　　ChildForm.Close()</p><p><b>　　Next</b></p&g

57、t;<p>　　main_Load(sender, e)</p><p>　　Login.Show()</p><p>　　Me.ToolStripStatusLabel1.Text = "登錄"</p><p><b>　　End Sub</b></p><p>　　用戶(hù)通過(guò)本模塊可以

58、注銷(xiāo)系統(tǒng)，系統(tǒng)恢復(fù)到登錄前畫(huà)面，這樣就可以防止在用戶(hù)離開(kāi)后，系統(tǒng)數(shù)據(jù)被人惡意修改。</p><p>　　4.3 客戶(hù)信息管理</p><p>　　4.3.1 客戶(hù)信息的添加</p><p>　　圖4.2 客戶(hù)的添加</p><p>　　當(dāng)用戶(hù)點(diǎn)擊添加按鈕時(shí)，系統(tǒng)執(zhí)行以下代碼：</p><p>　　CmdStr = &q

59、uot;SELECT id FROM [customer] where id='" + TextBox2.Text + "'"</p><p>　　If TextBox2.Text = "" Then //身份證不為空</p><p>　　MsgBox("請(qǐng)輸入身份證號(hào)&quo

60、t;)</p><p>　　TextBox2.Focus()</p><p>　　ElseIf sqlobject.Is_SQL_Cmd(CmdStr) Then //檢查是否已注冊(cè)</p><p>　　MsgBox("該客戶(hù)已經(jīng)存在")</p><p>　　TextBox2.Focus()</p>

61、<p>　　...... //中間還有很多類(lèi)似的驗(yàn)證</p><p><b>　　Else</b></p><p>　　CmdStr = "insert into customer (name,id,address,birthday,pwd,addtime,money,usedmoney,tel

62、,mobilephone,userid)VALUES('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + DateTimePicker1.Value.ToString + "','&qu

63、ot; + TextBox6.Text + "','" + Now + "','" + "0" + "','" + "0" + "','" + TextBox4.Text + "','" + TextBox5.Text

64、+ "','" + user + "')"</p><p><b>　　Try</b></p><p>　　sqlobject.ExecCmd(CmdStr) //添加客戶(hù)</p><p>　　MsgBox("添加成功")

65、 // 添加成功提示</p><p>　　FileUrl = "" //復(fù)位空格</p><p><b>　　......</b></p><p>　　Catch ex As Exception</p><p>　　main.OPErr.Wri

66、teErr(ex)</p><p><b>　　End Try</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　在添加用戶(hù)前，系統(tǒng)進(jìn)行了詳細(xì)的表單驗(yàn)證，包括驗(yàn)證要提交的客戶(hù)是否已經(jīng)存在，用戶(hù)兩次輸

67、入的密碼是否一樣，以及聯(lián)系方式不為空等等。使用insert語(yǔ)句將通過(guò)驗(yàn)證的表格中的數(shù)據(jù)提交到數(shù)據(jù)庫(kù)。菜單信息添加模塊與本模塊的原理類(lèi)似，以下不再闡述。</p><p>　　4.3.2 圖像的處理</p><p>　　如果用戶(hù)在上面添加客戶(hù)信息時(shí)，添加了圖像信息，那么系統(tǒng)就會(huì)執(zhí)行以下命令：</p><p>　　If FileUrl <> "&qu

68、ot; Then //圖像存在的話(huà)，添加圖像</p><p>　　Dim imgstreem As New FileStream(FileUrl, FileMode.Open, FileAccess.Read)</p><p>　　Dim imgbyte(imgstreem.Length) As Byte</p><p>　　imgstreem.Re

69、ad(imgbyte, 0, imgstreem.Length)</p><p>　　imgstreem.Close()</p><p>　　Dim sqlcmd As New System.Data.SqlClient.SqlCommand</p><p>　　Dim sqlconn As New System.Data.SqlClient.SqlConnecti

70、on(SQL_Conn.constr)</p><p>　　CmdStr = "update customer set photo=@image where id='" + TextBox2.Text + "'"</p><p>　　sqlcmd.Parameters.Add("@image", SqlDbType

71、.Image)</p><p>　　sqlcmd.Parameters("@image").Value = imgbyte</p><p>　　sqlcmd.Connection = sqlconn</p><p>　　sqlcmd.CommandText = CmdStr</p><p><b>　　Try&l

72、t;/b></p><p>　　sqlconn.Open()</p><p>　　sqlcmd.ExecuteNonQuery()</p><p>　　sqlconn.Close()</p><p>　　Catch ex As Exception</p><p>　　main.OPErr.WriteErr(ex)

73、</p><p><b>　　End Try</b></p><p><b>　　End If</b></p><p>　　如果用戶(hù)提交了客戶(hù)的相片，相片將會(huì)被轉(zhuǎn)化為二進(jìn)制數(shù)據(jù)提交到數(shù)據(jù)庫(kù)中，這樣就可以方便用戶(hù)日后對(duì)客戶(hù)資料進(jìn)行維護(hù)，也有助于服務(wù)人員記住客戶(hù)，當(dāng)客戶(hù)再次光臨時(shí)，一口報(bào)出客戶(hù)的名字將會(huì)使客戶(hù)對(duì)餐廳的好感大增。

74、</p><p>　　4.3.3 客戶(hù)信息的修改</p><p>　　圖4.3 客戶(hù)信息的修改</p><p>　　當(dāng)客戶(hù)資料因?qū)嶋H情況發(fā)生變更時(shí)，可以修改系統(tǒng)中的資料數(shù)據(jù)，用戶(hù)需提供注冊(cè)時(shí)所使用的客戶(hù)密碼。使用密碼可以防止客戶(hù)的資料被惡意修改。充分保護(hù)客戶(hù)權(quán)益，即使是管理員也不能在不經(jīng)過(guò)客戶(hù)同意的情況下修改客戶(hù)數(shù)據(jù)。以下是修改按鈕的代碼。</p>&

75、lt;p>　　CmdStr = "select pwd from customer where pwd='" + TextBox12.Text + "' and id ='" + TextBox8.Text + "'" //確定客戶(hù)身份代碼</p><p>　　......

76、 //省略驗(yàn)證信息</p><p>　　If sqlobject.Is_SQL_Cmd(CmdStr) Then //如果客戶(hù)同意修改的話(huà)繼續(xù)</p><p>　　CmdStr = "update customer set address='" + TextBox9.Text + "'" + ",te

77、l='" + TextBox10.Text + "'" + ",mobilephone='" + TextBox11.Text + "'" + ",pwd='" + TextBox13.Text + "'" + " where id='" + TextB

78、ox8.Text + "'"</p><p><b>　　Try</b></p><p>　　sqlobject.ExecCmd(CmdStr) //執(zhí)行更新</p><p>　　MsgBox("修改成功")</p><p>　　TextBox8.Text

79、 = ""</p><p><b>　　......</b></p><p>　　PictureBox2.Image = Nothing</p><p>　　Call TabControl1_SelectedIndexChanged(sender, e)</p><p>　　Catch ex As E

80、xception</p><p>　　main.OPErr.WriteErr(ex)</p><p><b>　　End Try</b></p><p><b>　　Else</b></p><p>　　MsgBox("密碼錯(cuò)誤")</p><p><

81、;b>　　End If</b></p><p>　　使用方法Is_SQL_Cmd驗(yàn)證客戶(hù)密碼的正確性，如果原始密碼正確，用戶(hù)在輸入新密碼后可以進(jìn)行對(duì)聯(lián)系方式等基本資料進(jìn)行修改。使用update語(yǔ)句將空格中的數(shù)據(jù)更新到服務(wù)器。如果更新成功，系統(tǒng)會(huì)彈出“修改成功的提示”。 菜單信息修改模塊與本模塊的原理類(lèi)似，以下不再闡述。</p><p>　　4.3.4 客戶(hù)信息的刪除<

82、;/p><p>　　客戶(hù)信息可以在得到客戶(hù)確認(rèn)的情況下刪除，因設(shè)計(jì)到賬戶(hù)余額問(wèn)題所以在進(jìn)行此操作時(shí)萬(wàn)分謹(jǐn)慎?？蛻?hù)資料來(lái)之不易，建議不要輕易刪除客戶(hù)資料。以下是刪除模塊的程序代碼：</p><p>　　Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butt

83、on6.Click</p><p>　　If TextBox12.Text = "" Then</p><p>　　MsgBox("請(qǐng)輸入用戶(hù)密碼")</p><p>　　TextBox12.Focus()</p><p><b>　　Else</b></p><

84、;p>　　CmdStr = "select pwd from customer where pwd='" + TextBox12.Text + "' and id ='" + TextBox8.Text + "'" //用戶(hù)密碼確認(rèn)</p><p>　　If sqlob

85、ject.Is_SQL_Cmd(CmdStr) Then</p><p>　　CmdStr = "delete from customer where id='" + TextBox8.Text + "'"</p><p><b>　　Try</b></p><p>　　sqlobject

86、.ExecCmd(CmdStr) //執(zhí)行刪除命令</p><p>　　MsgBox("刪除成功")</p><p>　　PictureBox2.Image = Nothing</p><p>　　Catch ex As Exception</p><p>　　main.OPErr.WriteErr(ex)

87、</p><p><b>　　End Try</b></p><p><b>　　Else</b></p><p>　　MsgBox("密碼錯(cuò)誤")</p><p><b>　　End If</b></p><p><b>

88、　　End If</b></p><p>　　Call TabControl1_SelectedIndexChanged(sender, e)</p><p><b>　　End Sub</b></p><p>　　系統(tǒng)先對(duì)客戶(hù)密碼進(jìn)行了核對(duì)，密碼正確的話(huà)，使用delete語(yǔ)句，根據(jù)客戶(hù)的身份證號(hào)對(duì)數(shù)據(jù)庫(kù)中的客戶(hù)數(shù)據(jù)進(jìn)行刪除。因添加

89、客戶(hù)數(shù)據(jù)時(shí)要求身份證號(hào)是唯一的，所以不用擔(dān)心誤刪的問(wèn)題。菜單信息刪除模塊與本模塊的原理類(lèi)似，以下不再闡述。</p><p>　　4.3.5 客戶(hù)信息的查詢(xún)</p><p>　　圖4.4 客戶(hù)信息的查詢(xún)</p><p>　　1、客戶(hù)查詢(xún)模塊載入</p><p>　　Private Sub kehuchaxun_Load(ByVal sender

90、 As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load</p><p>　　sqlobject = New SQL_Conn</p><p>　　CmdStr = "SELECT name as '客戶(hù)姓名',id as '身份證',address as '家庭

91、地址',tel as '電話(huà)號(hào)碼',mobilephone as '手機(jī)號(hào)碼' ,money as '賬戶(hù)余額' ,usedmoney as '已消費(fèi)額'FROM customer"</p><p><b>　　Try</b></p><p>　　Me.DataGridView1.Dat

92、aSource = sqlobject.SQL_Ada(CmdStr)</p><p>　　Catch ex As Exception</p><p>　　main.OPErr.WriteErr(ex)</p><p><b>　　End Try</b></p><p>　　Me.DataGridView1.AutoSi

93、zeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells</p><p><b>　　End Sub</b></p><p>　　使用SQL_Ada方法，查詢(xún)customer表中的個(gè)別數(shù)據(jù)，將數(shù)據(jù)庫(kù)中的數(shù)據(jù)提取出來(lái)保存在內(nèi)存中的datatable表中，客戶(hù)信息查詢(xún)中的DataGridView組件將內(nèi)存

94、中的datatable數(shù)據(jù)表里的數(shù)據(jù)提取出來(lái)顯示給用戶(hù)查看。</p><p>　　2、當(dāng)點(diǎn)擊DataGridView組建中的任意一客戶(hù)資料時(shí)，在組件左邊的PictureBox中將顯示客戶(hù)照片。</p><p>　　Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.For

95、ms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick</p><p>　　If row <> e.RowIndex And e.RowIndex >= 0 Then </p><p>　　row = e.RowIndex</p><p>　　Label1.Text = Me.

96、DataGridView1.Item(0, row).Value.ToString.Trim()</p><p>　　If Label1.Text <> "" Then</p><p>　　CmdStr = "select photo from customer where name='" + Label1.Text + &quo

97、t;'"</p><p>　　DisplayImg(CmdStr)</p><p>　　Else : PictureBox1.Image = Nothing</p><p><b>　　End If</b></p><p><b>　　End If</b></p>&

98、lt;p><b>　　End Sub</b></p><p>　　其中If row <> e.RowIndex And e.RowIndex >= 0 中e.RowIndex指的是點(diǎn)擊的行數(shù)，第一行為0。Label1.Text = Me.DataGridView1.Item(0, row).Value.ToString.Trim()是為了取所選行數(shù)的第一列值，即客戶(hù)姓

99、名。If Label1.Text <> "" Then是指如果label1不為空， CmdStr = "select photo from customer where name='" + Label1.Text + "'"是SQL語(yǔ)句查詢(xún)圖片數(shù)據(jù)。DisplayImg(CmdStr)是在DisplayImg方法中執(zhí)行SQL語(yǔ)句。Else : Pic

100、tureBox1.Image = Nothing指不滿(mǎn)足條件時(shí)，清空?qǐng)D像。</p><p>　　3、DisplayImg方法</p><p>　　Private Sub DisplayImg(ByVal str As String)</p><p>　　sqlobject.SQL_Ada(str)</p><p>　　If sqlobject

101、.SQL_Ada(str).Rows(0).Item(0) Is DBNull.Value Then</p><p>　　PictureBox1.Image = Nothing</p><p><b>　　Else</b></p><p>　　Dim imgbyte() As Byte = sqlobject.SQL_Ada(str).Rows

102、(0).Item(0)</p><p>　　Dim imgmemory As New MemoryStream(imgbyte)</p><p>　　PictureBox1.Image = Image.FromStream(imgmemory)</p><p><b>　　End If</b></p><p><b

103、>　　End Sub</b></p><p>　　DisplayImg方法的作用是讀出數(shù)據(jù)庫(kù)中保存的二進(jìn)制圖像。</p><p>　　菜單信息查詢(xún)模塊與本模塊的原理類(lèi)似，以下不在闡述。</p><p>　　4.4 添加預(yù)定信息</p><p>　　圖4.5 添加預(yù)定信息</p><p>　　系統(tǒng)在窗口

104、載入時(shí)，先查詢(xún)了客戶(hù)和菜單兩張表，將數(shù)據(jù)顯示在窗體左邊，供用戶(hù)選擇時(shí)使用，其代碼和客戶(hù)查詢(xún)類(lèi)似這里不再敘述。本節(jié)介紹其他功能的實(shí)現(xiàn)。</p><p>　　4.4.1 日期時(shí)間桌號(hào)的核對(duì)</p><p>　　為了防止客戶(hù)預(yù)定的餐桌出現(xiàn)重合的情況，添加預(yù)定的餐桌時(shí)系統(tǒng)執(zhí)行以下代碼：</p><p>　　Private Sub DateTimePicker1_ValueC

105、hanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged</p><p>　　sqlobject = New SQL_Conn</p><p>　　CmdStr = "select tableid from YuDing where

106、 tableid='" + ComboBox1.Text + "'and date='" + DateTimePicker1.Value.ToString + "'and time='" + ComboBox2.Text + "'"</p><p>　　If sqlobject.Is_SQL_Cm

107、d(CmdStr) Then</p><p>　　MsgBox("在此時(shí)刻此桌已有預(yù)定")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　當(dāng)桌號(hào)、時(shí)間或者日期中任何一條改動(dòng)時(shí)，程序都會(huì)使用方法Is_SQL

108、_Cmd執(zhí)行查找一次數(shù)據(jù)庫(kù)，看在此時(shí)刻此桌是否已有預(yù)定信息的記錄，如果已有相同記錄，系統(tǒng)就會(huì)提示“在此時(shí)刻此桌已有預(yù)定”。</p><p>　　4.4.2 打折信息處理</p><p>　　當(dāng)用戶(hù)向系統(tǒng)添加預(yù)定的菜品時(shí)，系統(tǒng)會(huì)執(zhí)行以下代碼：</p><p>　　If Label6.Text = "" Then //選

109、擇客戶(hù)</p><p>　　MsgBox("請(qǐng)選擇客戶(hù)")</p><p>　　ElseIf Label12.Text = "" Then //選擇菜單</p><p>　　MsgBox("請(qǐng)選擇菜單")</p><p><b>　　Else</b

110、></p><p>　　Label14.Text = Label14.Text + Label10.Text + " " //所點(diǎn)菜單</p><p>　　price = Label12.Text</p><p>　　totle += price //總消費(fèi)金額</p>

111、<p>　　Label16.Text = totle</p><p>　　Label18.Text = totle</p><p>　　CmdStr = "select usedmoney from discount" //查詢(xún)?cè)O(shè)定的消費(fèi)金額</p><p>　　Cmd = "select discount from di

112、scount" //查詢(xún)?cè)O(shè)定的打折程度</p><p>　　Cm = "SELECT usedmoney FROM [customer] where id='" + Label6.Text + "'" //客戶(hù)已消費(fèi)金額</p><p>　　f = (sqlobject.SQL_Ada(Cm).Rows(0).It

113、em(0)) //f為客戶(hù)已消費(fèi)金額</p><p><b>　　Try</b></p><p>　　For i = 0 To sqlobject.SQL_Ada(CmdStr).Rows.Count – 1 //打折表行數(shù)</p><p>　　j = (sqlobject.SQL_Ada(CmdStr).Rows(i).Item(0)) //

114、打折表行消費(fèi)金額</p><p>　　d = (sqlobject.SQL_Ada(Cmd).Rows(i).Item(0)) //打折表行折扣率</p><p>　　If (f >= j) Then</p><p>　　Label18.Text = totle * d / 10</p><p><b>　　End If

115、</b></p><p><b>　　Next i</b></p><p>　　Catch ex As Exception</p><p>　　main.OPErr.WriteErr(ex)</p><p><b>　　End Try</b></p><p>&l

116、t;b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　首先選擇客戶(hù)和預(yù)定的餐點(diǎn)，客戶(hù)信息用于判斷打折程度，餐點(diǎn)用于結(jié)算消費(fèi)金額。用累加的方法計(jì)算出總消費(fèi)金額，系統(tǒng)先在數(shù)據(jù)表中查詢(xún)客戶(hù)信息中的客戶(hù)已消費(fèi)金額，再用查出的金額與數(shù)據(jù)庫(kù)對(duì)比，判斷打折程度。具體方法是系統(tǒng)先查看折扣數(shù)據(jù)表中共有的數(shù)據(jù)行數(shù)，然后

117、從第0行開(kāi)始依次向下掃描，由于添加打折信息時(shí)是按照消費(fèi)額度遞增方式添加的，所以系統(tǒng)查到的數(shù)據(jù)會(huì)越來(lái)越大，越來(lái)越接近客戶(hù)已消費(fèi)金額，當(dāng)已消費(fèi)金額剛好超過(guò)設(shè)定的金額時(shí)系統(tǒng)停止繼續(xù)向下查找新的設(shè)定金額，同時(shí)查找設(shè)定金額對(duì)應(yīng)的打折程度，再用此打折程度計(jì)算打折后的實(shí)付金額。</p><p>　　4.4.3 取消預(yù)定信息</p><p>　　系統(tǒng)根據(jù)用戶(hù)選擇的預(yù)定信息，執(zhí)行刪除命令，其關(guān)鍵代碼如下：&

118、lt;/p><p>　　CmdStr = "delete from YuDing where name='" + Label25.Text + "'and date='" + Label27.Text + "'and time='" + Label28.Text + "'and tableid=

119、9;" + Label30.Text + "'"</p><p><b>　　Try</b></p><p>　　sqlobject.ExecCmd(CmdStr)</p><p>　　4.4.4 預(yù)定信息查詢(xún)</p><p><b>　　圖4.6 預(yù)定查詢(xún)</b&g

120、t;</p><p>　　當(dāng)預(yù)定查詢(xún)模塊載入時(shí)，系統(tǒng)執(zhí)行以下語(yǔ)句：</p><p>　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load</p><p>　　sqlobject = New SQL_Conn<

121、;/p><p>　　CmdStr = "SELECT name as '客戶(hù)姓名',customerid as '身份證',date as '預(yù)定日期',time as '預(yù)定時(shí)間',tableid as '餐桌號(hào)',money as '結(jié)算價(jià)格',food as '預(yù)定菜單',userid as

122、 '服務(wù)員編號(hào)' FROM YuDing"</p><p><b>　　Try</b></p><p>　　Me.DataGridView1.DataSource = sqlobject.SQL_Ada(CmdStr)</p><p>　　Catch ex As Exception</p><p&g

123、t;　　main.OPErr.WriteErr(ex)</p><p><b>　　End Try</b></p><p>　　Me.DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells</p><p><b>　　End

124、Sub</b></p><p>　　當(dāng)預(yù)定查詢(xún)模塊載入時(shí)讀取數(shù)據(jù)庫(kù)中的預(yù)定信息并且顯示在DataGridView組件中顯示給用戶(hù)查看，餐廳的廚房就是使用這一模塊來(lái)獲取需要準(zhǔn)備的餐點(diǎn)。</p><p>　　當(dāng)用戶(hù)知道想要查找的預(yù)定信息中的某些確切內(nèi)容時(shí)，可以將知道的內(nèi)容輸入空格中，系統(tǒng)將會(huì)自動(dòng)在數(shù)據(jù)庫(kù)中查找這些內(nèi)容。關(guān)鍵代碼如下：</p><p>　　Pr

125、ivate Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged</p><p>　　TextBox2.Text = ""</p><p>　　TextBox3.Text = ""

126、;</p><p>　　sqlobject = New SQL_Conn</p><p>　　CmdStr = "SELECT name as '客戶(hù)姓名',customerid as '身份證',date as '預(yù)定日期',time as '預(yù)定時(shí)間',tableid as '餐桌號(hào)',money