【正文】 .......VB200981［6］孟德欣機械工業(yè)出版社數(shù)據(jù)庫項目設(shè)計模塊化教程...SQLVB...2008111［3］楊晶天津大學(xué)出版社程序設(shè)計實例教程200911［2］李英杰電子工業(yè)出版社語言程序設(shè)計.衷心感謝各位評審的點撥和指導(dǎo)。無論在理論上還是在實踐中，她都點撥我指導(dǎo)我，使我學(xué)到了很多書本上沒有的東西，這對于我以后的工作和學(xué)習(xí)來說都將是一種寶貴的財富，在此表示最誠摯的謝意。使我能夠不斷地提高學(xué)習(xí)成績，而且這些課題的研究成果也成為了本論文的主要素材。在本次畢業(yè)設(shè)計中，我首先要感謝教過我的每一位老師，是你們將我領(lǐng)入了計算機科學(xué)的大門，并對我的學(xué)習(xí)給予了很大的幫助，使我在畢業(yè)設(shè)計中有了目標(biāo)和方向。36餐飲信息管理系統(tǒng)的設(shè)計與實現(xiàn)謝 辭在論文完成之際，我的心情萬分激動，雖然已經(jīng)是深夜，但我依然沒有困意。在大學(xué)里，我一直使自己保持著積極向上的心態(tài)，它使我不怕任何困難，以一定要成功的信念完成我的畢業(yè)設(shè)計內(nèi)容。此次論文的完成既為大學(xué)三年劃上了一個完美的句號，也為將來的計算機事業(yè)奠定了良好的基礎(chǔ)。世界上沒有任何一樣?xùn)|西是十全十美的，在完成了餐飲信息管理系統(tǒng)后，我發(fā)現(xiàn)，原本看上去應(yīng)該比較完善的系統(tǒng)又有了新的可以改進的地方，如預(yù)定的餐點要取消其中的一份該如何實現(xiàn)。經(jīng)過這么長時間的努力，餐飲信息管理系統(tǒng)終于得以實現(xiàn)其功能了，并且?guī)缀鯙榱愕腻e誤率也使得餐廳可以更好的為顧客服務(wù)。而餐飲信息管理系統(tǒng)的出現(xiàn)就完全可以滿足他們的愿望。如果系統(tǒng)有不止一個店主賬戶，系統(tǒng)會判斷刪除的賬戶是不是現(xiàn)在登陸的賬戶，如果是的話刪除完成后需重新登錄。Sub刪除用戶時，如果刪除的是職員賬戶，那么可以直接刪除。=zhiyuanguanli_Load(sender,IfEndException34餐飲信息管理系統(tǒng)的設(shè)計與實現(xiàn)(ex)Endex39。wherefrom=MsgBox(至少保留一個店長用戶)EndTryElseAsIfCatch=()Next(sender,FormChildFormFalseForThen //刪除的賬號是正在登陸的賬號MsgBox(刪除成功,請重新登錄)=Try(CmdStr)If+wherefrom=1i=39。jwherefromselectThenCmdStr=ThenMsgBox(請選擇要刪除的員工)ElseIf=店長IfStringjjAsDimAs)ByValAsButton2_Click(ByVal用戶刪除模塊的主要代碼如下：Private如果刪除的是管理員，那么數(shù)據(jù)庫里還有沒有其他管理員權(quán)限的賬號以便下次使用。user用戶管理行開始向后依次類推為客戶查詢對應(yīng)的折扣程度，所以若表中數(shù)據(jù)順序打亂的話，系統(tǒng)得到的折扣程度會變高。表中添加以消費金額與其對應(yīng)的折扣程度，在操作中要切記折扣金額從小到大依次添加因為系統(tǒng)在為客戶打折時是從折扣表的第折扣設(shè)定折扣設(shè)定其實就是往數(shù)據(jù)庫若余額足夠支付客戶的消費金額，系統(tǒng)會在客戶余額中扣除消費金額。31餐飲信息管理系統(tǒng)的設(shè)計與實現(xiàn)再用同樣的方法對用戶收款金額進行更新。MsgBox(請選擇客戶)EndIfElse:====TryAs(CmdStr)CatchcustomerTry余額39。as身份證39。as客戶姓名39。asSELECTSQL_ConnCmdStr=Exception(ex)Endex39。useriduser_id=39。++=39。setupdatebCmdStrmoney((Cmd).Rows(0).Item(0))30餐飲信息管理系統(tǒng)的設(shè)計與實現(xiàn)amoney++user_id=39。[user]money=39。where++=39。setupdatebCmdStramoneyThenbIfThena當(dāng)用戶點擊充值按鈕時，系統(tǒng)執(zhí)行以下代碼：IfDataGridView數(shù)據(jù)。表中的收款金額數(shù)據(jù)，當(dāng)用戶選擇要充值的客戶后，系統(tǒng)會提取對應(yīng)客戶的客戶余額，當(dāng)用戶確定添加后，系統(tǒng)會用客戶余額加上客戶充值的金額，然后把得到的結(jié)果更新到數(shù)據(jù)庫中客戶的賬戶余額中同時系統(tǒng)也會以同樣的方法更新數(shù)據(jù)庫表里的客戶充值用戶充值會模塊會調(diào)取數(shù)據(jù)庫中的客戶充值圖29餐飲信息管理系統(tǒng)的設(shè)計與實現(xiàn)并將新的信息顯示在DataGridViewSQLCmdStr=EndException(ex)Endex=+39。+name=39。YuDing39。,useridas39。結(jié)算價格39。as餐桌號39。as預(yù)定時間39。as預(yù)定日期39。as身份證39。as客戶姓名39。asSELECTSQL_ConnCmdStr===HandleseAs,senderSub當(dāng)用戶知道想要查找的預(yù)定信息中的某些確切內(nèi)容時，可以將知道的內(nèi)容輸入空格中，系統(tǒng)將會自動在數(shù)據(jù)庫中查找這些內(nèi)容。DataGridView=EndException(ex)Endex=FROM服務(wù)員編號39。as預(yù)定菜單39。,food39。,money39。,tableid39。,time39。,date39。,customerid39。name=NewsqlobjectAs)ByValAsForm1_Load(ByVal預(yù)定查詢當(dāng)預(yù)定查詢模塊載入時，系統(tǒng)執(zhí)行以下語句：Private預(yù)定信息查詢27餐飲信息管理系統(tǒng)的設(shè)計與實現(xiàn)圖39。+tableid=39。39。and+and++name=39。YuDingdelete取消預(yù)定信息系統(tǒng)根據(jù)用戶選擇的預(yù)定信息，執(zhí)行刪除命令，其關(guān)鍵代碼如下：CmdStr行開始依次向下掃描，由于添加打折信息時是按照消費額度遞增方式添加的，所以系統(tǒng)查到的數(shù)據(jù)會越來越大，越來越接近客戶已消費金額，當(dāng)已消費金額剛好超過設(shè)定的金額時系統(tǒng)停止繼續(xù)向下查找新的設(shè)定金額，同時查找設(shè)定金額對應(yīng)的打折程度，再用此打折程度計算打折后的實付金額。具體方法是系統(tǒng)先查看折扣數(shù)據(jù)表中共有的數(shù)據(jù)行數(shù)，然后從第Sub首先選擇客戶和預(yù)定的餐點，客戶信息用于判斷打折程度，餐點用于結(jié)算消費金額。TryEndAsi26餐飲信息管理系統(tǒng)的設(shè)計與實現(xiàn)Catch10EnddtotleThen=((Cmd).Rows(i).Item(0)) //打折表行折扣率If//打折表行消費金額d=1(CmdStr).0i((Cm).Rows(0).Item(0)) //客戶已消費金額f++id=39。[customer]usedmoney=fromselect//查詢設(shè)定的消費金額CmdfromselecttotleCmdStrtotleprice //總消費金額totle //所點菜單priceThen //選擇菜單MsgBox(請選擇菜單)Else=Then //選擇客戶MsgBox(請選擇客戶)ElseIf=打折信息處理當(dāng)用戶向系統(tǒng)添加預(yù)定的菜品時，系統(tǒng)會執(zhí)行以下代碼：If執(zhí)行查找一次數(shù)據(jù)庫，看在此時刻此桌是否已有預(yù)定信息的記錄，如果已有相同記錄，系統(tǒng)就會提示“在此時刻此桌已有預(yù)定”。Sub當(dāng)桌號、時間或者日期中任何一條改動時，程序都會使用方法ThenMsgBox(在此時刻此桌已有預(yù)定)25餐飲信息管理系統(tǒng)的設(shè)計與實現(xiàn)EndIf+and++date=39。+39。+tableid=39。YuDingtableid=Newsqlobject)ByValeAsDateTimePicker1_ValueChanged(ByVal日期時間桌號的核對為了防止客戶預(yù)定的餐桌出現(xiàn)重合的情況，添加預(yù)定的餐桌時系統(tǒng)執(zhí)行以下代碼：Private本節(jié)介紹其他功能的實現(xiàn)。方法的作用是讀出數(shù)據(jù)庫中保存的二進制圖像。IfEnd=Newimgmemory=AsNothingElseDimThenIsString)(str)IfstrSubDisplayImgNothing:語句。方法中執(zhí)行DisplayImg(CmdStr)是在是++name=39。customerphoto=不為空，是指如果row).()是為了取所選行數(shù)的第一列值，即客戶姓名。=0。0rowSub其中IfEnd=:39。wherefromselectThenCmdStrrow).()If==0rowAs)ByValAsDataGridView1_CellClick(ByValPrivatePictureBoxDataGridView數(shù)據(jù)23餐飲信息管理系統(tǒng)的設(shè)計與實現(xiàn)表里的數(shù)據(jù)提取出來顯示給用戶查看。組件將內(nèi)存中的表中，客戶信息查詢中的表中的個別數(shù)據(jù)，將數(shù)據(jù)庫中的數(shù)據(jù)提取出來保存在內(nèi)存中的方法，查詢Sub使用TryAs(CmdStr)CatchcustomerTry已消費額39。as39。,money手機號碼39。as電話號碼39。as家庭地址39。as身份證39。as客戶姓名39。asSELECTSQL_ConnCmdStr=Handlese,senderSub22餐飲信息管理系統(tǒng)的設(shè)計與實現(xiàn)因添加客戶數(shù)據(jù)時要求身份證號是唯一的，所以不用擔(dān)心誤刪的問題。deletee)EndIfCallTryElseMsgBox(密碼錯誤)EndAsNothingCatchTry(CmdStr) //執(zhí)行刪除命令MsgBox(刪除成功)wherefrom=(CmdStr)39。and39。wherefromselectThenMsgBox(請輸入用戶密碼)()ElseCmdStr=IfAs)ByValAsButton6_Click(ByVal以下是刪除模塊的程序代碼：Private客戶信息的刪除客戶信息可以在得到客戶確認(rèn)的情況下刪除，因設(shè)計到賬戶余額問題所以在進行此操作時萬分謹(jǐn)慎。菜單信息修改模塊與本模塊的原理類似，以下不再闡述。如果更新成功，系統(tǒng)會彈出“修改成功的提示”。update驗證客戶密碼的正確性，如果原始密碼正確，用戶在輸入新密碼后可以進行對聯(lián)系方式等基本資料進行修改。If使用方法Exception(ex)EndexTabControl1_SelectedIndexChanged(sender,==39。where+39。++,mobilephone=39。+++,tel=39。39。setupdateThen //如果客戶同意修改的話繼續(xù)CmdStr //確定客戶身份代碼...... //省略驗證信息If++=39。and++pwd=39。customerpwd=以下是修改按鈕的代碼。使用密碼可以防止客戶的資料被惡意修改。TryEndAsCmdStrTry()19餐飲信息管理系統(tǒng)的設(shè)計與實現(xiàn)()()Catchsqlconnimgbyte)(image).Value39。wheresetupdateNew()CmdStrsqlconnNewsqlcmd0,As)DimFileStream(FileUrl,AsThen //圖像存在的話，添加圖像Dim圖像的處理如果用戶在上面添加客戶信息時，添加了圖像信息，那么系統(tǒng)就會執(zhí)行以下命令：If菜單信息添加模塊與本模塊的原理類似，以下不再闡述。insertSub在添加用戶前，系統(tǒng)進行了詳細的表單驗證，包括驗證要提交的客戶是否已經(jīng)存在，用戶兩次輸入的密碼是否一樣，以及聯(lián)系方式不為空等等。TryEndAs //復(fù)位空格......Catch添加成功提示FileUrl39。user+39。+,39。++,39。++,39。++,39。Now+3