【正文】 Try = (CmdStr) Catch ex As Exception (ex) End Try = End Sub當(dāng)根據(jù)姓名查找、根據(jù)日期查找和根據(jù)餐桌號(hào)查找的文本框中的數(shù)據(jù)被改動(dòng)時(shí)，系統(tǒng)根據(jù)改動(dòng)后的數(shù)據(jù)，使用CmdStr所代表的SQL語(yǔ)句查找數(shù)據(jù)庫(kù)中的信息。并將新的信息顯示在DataGridView組件中。 客戶充值 客戶充值用戶充值會(huì)模塊會(huì)調(diào)取數(shù)據(jù)庫(kù)中的customer表里的money數(shù)據(jù)，當(dāng)用戶選擇要充值的客戶后，系統(tǒng)會(huì)提取對(duì)應(yīng)客戶的客戶余額，當(dāng)用戶確定添加后，系統(tǒng)會(huì)用客戶余額加上客戶充值的金額，然后把得到的結(jié)果更新到數(shù)據(jù)庫(kù)中客戶的賬戶余額中同時(shí)系統(tǒng)也會(huì)以同樣的方法更新數(shù)據(jù)庫(kù)user表中的收款金額money數(shù)據(jù)。 然后再刷新DataGridView組件中的數(shù)據(jù)信息。當(dāng)用戶點(diǎn)擊充值按鈕時(shí)，系統(tǒng)執(zhí)行以下代碼： If Then a = If Then b = money = a + b CmdStr = update customer set money =39。 + + 39。 where name=39。 + + 39。 Try (CmdStr) //更新充值后的客戶數(shù)據(jù)庫(kù) Cmd = SELECT money FROM [user] where user_id=39。 + userid + 39。 money = ((Cmd).Rows(0).Item(0)) a = money + b CmdStr = update [user] set money =39。 + + 39。 where user_id=39。 + userid + 39。 (CmdStr) //更新充值后的用戶數(shù)據(jù)庫(kù) MsgBox(充值成功) Catch ex As Exception (ex) End Try sqlobject = New SQL_Conn CmdStr = SELECT name as 39?？蛻粜彰?9。,id as 39。身份證39。,money as 39。余額39。 FROM customer Try = (CmdStr) Catch ex As Exception (ex) End Try = = = = = Else : MsgBox(請(qǐng)輸入金額) End If Else : MsgBox(請(qǐng)選擇客戶) End If用戶充值其實(shí)是更新數(shù)據(jù)庫(kù)中兩張表的內(nèi)容，系統(tǒng)先把客戶的賬戶余額和用戶的實(shí)收金額從數(shù)據(jù)庫(kù)中調(diào)出來(lái)，加上用戶的充值金額后，再把更新后的金額填入數(shù)據(jù)庫(kù)。再用同樣的方法對(duì)用戶收款金額進(jìn)行更新。兩張數(shù)據(jù)表的作用不同，客戶表中的數(shù)據(jù)指客戶的賬戶余額，用戶表中的數(shù)據(jù)指用戶收款金額，方便店長(zhǎng)查詢員工的收款金額。 客戶結(jié)算 客戶買單買單分為現(xiàn)金支付和余額支付現(xiàn)金支付：客戶使用現(xiàn)金支付的話會(huì)增加用戶的收款金額，方法和上面的用戶充值類似余額支付：用戶若選擇余額支付的話需要使用客戶密碼驗(yàn)證客戶身份，然后系統(tǒng)會(huì)從數(shù)據(jù)庫(kù)中調(diào)出客戶余額情況，若客戶余額不足，系統(tǒng)會(huì)給出提示。若余額足夠支付客戶的消費(fèi)金額，系統(tǒng)會(huì)在客戶余額中扣除消費(fèi)金額。余額支付和現(xiàn)金支付的最大區(qū)別就是余額支付扣客戶賬戶金額，現(xiàn)金支付增加用戶實(shí)收金額 折扣設(shè)定折扣設(shè)定其實(shí)就是往數(shù)據(jù)庫(kù)discount表中添加以消費(fèi)金額與其對(duì)應(yīng)的折扣程度，在操作中要切記折扣金額從小到大依次添加因?yàn)橄到y(tǒng)在為客戶打折時(shí)是從折扣表的第0行開(kāi)始向后依次類推為客戶查詢對(duì)應(yīng)的折扣程度，所以若表中數(shù)據(jù)順序打亂的話，系統(tǒng)得到的折扣程度會(huì)變高。 用戶管理 用戶的添加 用戶添加系統(tǒng)先對(duì)填入的數(shù)據(jù)進(jìn)行核對(duì)，確認(rèn)沒(méi)有和數(shù)據(jù)庫(kù)中的已有數(shù)據(jù)重復(fù)且符合要求后系統(tǒng)會(huì)將其添加到user表中。 用戶的刪除用戶刪除模塊的設(shè)計(jì)要考慮幾個(gè)問(wèn)題：刪除的是管理員（店長(zhǎng)）還是普通職員。如果刪除的是管理員，那么數(shù)據(jù)庫(kù)里還有沒(méi)有其他管理員權(quán)限的賬號(hào)以便下次使用。如果刪除的賬號(hào)就是管理員現(xiàn)在所使用的賬號(hào)怎么辦。用戶刪除模塊的主要代碼如下：Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim i As Integer Dim j As String j = 店長(zhǎng) If = Then MsgBox(請(qǐng)選擇要?jiǎng)h除的員工) Else If = 店長(zhǎng) Then CmdStr = select Style from [user] where Style=39。 + j + 39。 i = (CmdStr). //店長(zhǎng)級(jí)別員工數(shù)量 If i 1 Then CmdStr = delete from [user] where id=39。 + + 39。 Try (CmdStr) If = userid Then //刪除的賬號(hào)是正在登陸的賬號(hào) MsgBox(刪除成功,請(qǐng)重新登錄) = = False For Each ChildForm As Form In () Next (sender, e) () = 登錄 () Else MsgBox(刪除成功) End If Catch ex As Exception (ex) End Try Else : MsgBox(至少保留一個(gè)店長(zhǎng)用戶) End If Else CmdStr = delete from [user] where id=39。 + + 39。 Try (CmdStr) MsgBox(刪除成功) Catch ex As Exception (ex) End Try End If End If Call zhiyuanguanli_Load(sender, e) = ...... End Sub刪除用戶時(shí)，如果刪除的是職員賬戶，那么可以直接刪除。如果刪除的是店主賬戶，那么系統(tǒng)先判斷店主賬戶有幾個(gè)，如果只有一個(gè)，系統(tǒng)會(huì)拒絕刪除請(qǐng)求，以防止下次沒(méi)有店主賬戶的情況導(dǎo)致無(wú)法進(jìn)入用戶管理。如果系統(tǒng)有不止一個(gè)店主賬戶，系統(tǒng)會(huì)判斷刪除的賬戶是不是現(xiàn)在登陸的賬戶，如果是的話刪除完成后需重新登錄?？? 結(jié)當(dāng)初之所以選擇餐飲信息管理系統(tǒng)，不僅僅是因?yàn)槠渚哂刑魬?zhàn)性，更是因?yàn)樗臃现袊?guó)廣大的中小餐飲企業(yè)的發(fā)展需要，大家都知道，中國(guó)的餐飲服務(wù)行業(yè)最多的是個(gè)體經(jīng)營(yíng)模式，他們根本不會(huì)花費(fèi)過(guò)多的費(fèi)用架設(shè)網(wǎng)絡(luò)服務(wù)器，大多數(shù)店主都希望有一款產(chǎn)品可以滿足餐飲管理的需要而且花費(fèi)的價(jià)格也相對(duì)低廉，甚至一次投資終身受益。而餐飲信息管理系統(tǒng)的出現(xiàn)就完全可以滿足他們的愿望。餐飲信息管理系統(tǒng)的誕生可以為他們提供便捷的管理服務(wù)。并且?guī)缀鯙榱愕腻e(cuò)誤率也使得餐廳可以更好的為顧客服務(wù)。它不僅可以為餐廳降低人力資源的付出，節(jié)省了成本，而且也可以提升自身的形象，使餐廳迎來(lái)更多的食客。經(jīng)過(guò)這么長(zhǎng)時(shí)間的努力，餐飲信息管理系統(tǒng)終于得以實(shí)現(xiàn)其功能了，程序開(kāi)發(fā)到后來(lái)比剛剛開(kāi)發(fā)時(shí)的速度要快上好多，一開(kāi)始遇到問(wèn)題，我需要停下來(lái)查找相關(guān)資料，在網(wǎng)上搜實(shí)例代碼下來(lái)學(xué)習(xí)，自己解決不了還要去請(qǐng)教指導(dǎo)老師，但程序編寫到后來(lái)就輕松多了，遇到的問(wèn)題幾乎都能自己解決而不像一開(kāi)始那樣。世界上沒(méi)有任何一樣?xùn)|西是十全十美的，在完成了餐飲信息管理系統(tǒng)后，我發(fā)現(xiàn)，原本看上去應(yīng)該比較完善的系統(tǒng)又有了新的可以改進(jìn)的地方，如預(yù)定的餐點(diǎn)要取消其中的一份該如何實(shí)現(xiàn)。我想如果我把這個(gè)功能實(shí)現(xiàn)了，也許又會(huì)有新的功能需要我去做，系統(tǒng)的完善不是一朝一夕可以完成的，如果給我更多的時(shí)間，我一定能將它制作的更好。此次論文的完成既為大學(xué)三年劃上了一個(gè)完美的句號(hào)，也為將來(lái)的計(jì)算機(jī)事業(yè)奠定了良好的基礎(chǔ)。 在大學(xué)里，我一直使自己保持著積極向上的心態(tài)，它使我不怕任何困難，以一定要成功的信念完成我的畢業(yè)設(shè)計(jì)內(nèi)容。而且我相信付出總有回報(bào)，三年的大學(xué)學(xué)習(xí)生活成就了我扎實(shí)的專業(yè)知識(shí)，務(wù)實(shí)的工作作風(fēng)，良好的組織能力和團(tuán)隊(duì)協(xié)作精神，相信這些會(huì)在我未來(lái)的生活和工作中給我?guī)?lái)巨大的幫助。謝 辭在論文完成之際，我的心情萬(wàn)分激動(dòng)，雖然已經(jīng)是深夜，但我依然沒(méi)有困意。從論文的選題、資料的收集、程序的設(shè)計(jì)到論文的撰寫、編排整個(gè)過(guò)程中，我付出了很多的努力，但功夫不負(fù)有心人，那份鍥而不舍的精神使我終于成功了！畢業(yè)論文是對(duì)學(xué)生大學(xué)階段學(xué)習(xí)知識(shí)的總結(jié)，也是對(duì)學(xué)生分析問(wèn)題、解決問(wèn)題能力的綜合考察。在本次畢業(yè)設(shè)計(jì)中，我首先要感謝教過(guò)我的每一位老師，是你們將我領(lǐng)入了計(jì)算機(jī)科學(xué)的大門，并對(duì)我的學(xué)習(xí)給予了很大的幫助，使我在畢業(yè)設(shè)計(jì)中有了目標(biāo)和方向。在大學(xué)這近三年的時(shí)間里，你們對(duì)我悉心的指導(dǎo)和教育。使我能夠不斷地提高學(xué)習(xí)成績(jī)，而且這些課題的研究成果也成為了本論文的主要素材。同時(shí)，我從指導(dǎo)老師翁老師身上學(xué)到了很多東西。在我實(shí)習(xí)期間，翁老師來(lái)到我的實(shí)習(xí)單位，指導(dǎo)我的工作，向?qū)嵙?xí)單位了解我的情況使我非常感動(dòng)。翁老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我受益匪淺。無(wú)論在理論上還是在實(shí)踐中，她都點(diǎn)撥我指導(dǎo)我，使我學(xué)到了很多書本上沒(méi)有的東西，這對(duì)于我以后的工作和學(xué)習(xí)來(lái)說(shuō)都將是一種寶貴的財(cái)富，在此表示最誠(chéng)摯的謝意。此外，我還要感謝在實(shí)習(xí)期間一起學(xué)習(xí)工作生活的同事們，從你們身上，我學(xué)到了很多學(xué)校里不曾接觸的東西。衷心感謝各位評(píng)審的點(diǎn)撥和指導(dǎo)。參考文獻(xiàn)［1］林卓然 . VB語(yǔ)言程序設(shè)計(jì) . 電子工業(yè)出版社 . 200911［2］李英杰 . 2005 程序設(shè)計(jì)實(shí)例教程 . 天津大學(xué)出版社 . 2008111［3］楊晶 . . 科學(xué)出版社 . 20060901［4］劉志嫵 . 基于VB和SQL的數(shù)據(jù)庫(kù)編程技術(shù) . 清華大學(xué)出版社 . 200841［5］劉玉山 . VB數(shù)據(jù)庫(kù)項(xiàng)目設(shè)計(jì)模塊化教程 . 機(jī)械工業(yè)出版社 . 200981［6］孟德欣 . VB程序設(shè)計(jì) . 清華大學(xué)出版社 . 200971［7］（美）依夫杰 . VB2005amp。. . 清華大學(xué)出版社 . 200821［8］百度百科 .