【導(dǎo)讀】且不可避免的會(huì)出現(xiàn)這樣或那樣的錯(cuò)誤。并且?guī)缀鯙榱愕腻e(cuò)誤率也使得餐。它不僅可以為餐館降低人力資源的付出，節(jié)省了成本，而且也可以提升自身的形象，使餐廳迎來(lái)更多的食客。力使得原本繁瑣的餐飲管理變得更加科學(xué)、快捷以及人性化。戶提供訂餐打折和充值服務(wù)。管理員使用本系統(tǒng)，既可以完成員工。除了這些，管理員還可以設(shè)定餐廳的菜單信息和折扣程度，從而使得管理員對(duì)餐廳的運(yùn)營(yíng)情況可以全面掌控。

　　

【正文】 ┊ ┊ ┊ ┊ ┊ ┊ + 39。,39。 + + 39。,39。 + user + 39。) Try (CmdStr) //添加客戶 MsgBox(添加成功 ) // 添加成功提示 FileUrl = //復(fù)位空格 ...... Catch ex As Exception (ex) End Try End If End Sub 在添加用戶前， 系統(tǒng) 進(jìn)行了詳細(xì)的表單驗(yàn)證，包括 驗(yàn)證 要 提交的客戶是否已經(jīng)存在 ，用戶兩次輸入的密碼是否一樣 ，以及聯(lián)系方式不為空等等。使用 insert 語(yǔ)句將通過(guò)驗(yàn)證的 表格中的數(shù)據(jù)提交到數(shù)據(jù)庫(kù) 。 菜單信息添加模塊與本模塊的原理類似，以下不 再 闡述。 圖像的處理 如果用戶在上面添加客戶信息時(shí) ，添加了圖像信息，那么系統(tǒng)就會(huì)執(zhí)行以下命令： If FileUrl Then //圖像存在的話，添加圖像 Dim imgstreem As New FileStream(FileUrl, , ) Dim imgbyte() As Byte (imgbyte, 0, ) () Dim sqlcmd As New Dim sqlconn As New () CmdStr = update customer set photo=@image where id=39。 + + 39。 (@image, ) (@image).Value = imgbyte 畢業(yè)設(shè)計(jì)（論文）報(bào)告紙 第 21 頁(yè) 共 42 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ = sqlconn = CmdStr Try () () () Catch ex As Exception (ex) End Try End If 如果用戶提交了客戶的相片，相片將會(huì)被轉(zhuǎn)化為二進(jìn)制數(shù)據(jù)提交到數(shù)據(jù)庫(kù)中，這樣就可以方便用戶 日后對(duì)客戶資料進(jìn)行維護(hù)，也有助于服務(wù)人員記住客戶，當(dāng)客戶再次光臨時(shí)，一口報(bào)出客戶的名字將會(huì)使客戶對(duì)餐廳的好感大增。 客戶信息的修改 圖 客戶 信息 的 修改 當(dāng)客戶資料因?qū)嶋H情況發(fā)生變更時(shí)，可以 修改系統(tǒng)中的資料數(shù)據(jù)， 用戶需提供注冊(cè)時(shí)所使用的客戶密碼。使用密碼可以防止客戶的資料被惡意修改。 充分保護(hù)客戶權(quán)益， 即使是管理員也不能在不經(jīng)過(guò)客戶同意的情況下修改客戶數(shù)據(jù)。以下是修改按鈕的代碼。 畢業(yè)設(shè)計(jì)（論文）報(bào)告紙 第 22 頁(yè) 共 42 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ CmdStr = select pwd from customer where pwd=39。 + + 39。 and id =39。 + + 39。 //確定客戶身份代碼 ...... //省略驗(yàn)證信息 If (CmdStr) Then //如果客戶同意修改的話繼續(xù) CmdStr = update customer set address=39。 + + 39。 + ,tel=39。 + + 39。 + ,mobilephone=39。 + + 39。 + ,pwd=39。 + + 39。 + where id=39。 + + 39。 Try (CmdStr) //執(zhí)行更新 MsgBox(修改成功 ) = ...... = Nothing Call TabControl1_SelectedIndexChanged(sender, e) Catch ex As Exception (ex) End Try Else MsgBox(密碼錯(cuò)誤 ) End If 使用方法 Is_SQL_Cmd 驗(yàn)證客戶密碼的正確性， 如果 原始密碼正確，用戶在輸入新密碼后可以進(jìn)行對(duì)聯(lián)系方式 等基本資料進(jìn)行修改。使用 update 語(yǔ)句將空格中的數(shù)據(jù)更新到服務(wù)器。 如果更新成功，系統(tǒng)會(huì)彈出“修改成 功的提示” 。 菜單信息修改模塊與本模塊的原理類似，以下不 再 闡述。 畢業(yè)設(shè)計(jì)（論文）報(bào)告紙 第 23 頁(yè) 共 42 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 客戶信息的刪除 客戶信息可以在得到客戶確認(rèn)的情況下刪除， 因設(shè)計(jì)到賬戶余額問(wèn)題所以在進(jìn)行此操作時(shí)萬(wàn)分謹(jǐn)慎。 客戶資料來(lái)之不易，建議不要輕易刪除客戶資料。 以下是刪除模塊的程序代碼： Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles If = Then MsgBox(請(qǐng)輸入用戶密碼 ) () Else CmdStr = select pwd from customer where pwd=39。 + + 39。 and id =39。 + + 39。 //用戶密碼確認(rèn) If (CmdStr) Then CmdStr = delete from customer where id=39。 + + 39。 Try (CmdStr) //執(zhí)行刪除命令 MsgBox(刪除成功 ) = Nothing Catch ex As Exception (ex) End Try Else MsgBox(密碼錯(cuò)誤 ) End If End If Call TabControl1_SelectedIndexChanged(sender, e) End Sub 系統(tǒng)先對(duì)客戶密碼進(jìn)行了核對(duì)，密碼正確的話， 使用 delete 語(yǔ)句，根據(jù)客戶的 畢業(yè)設(shè)計(jì)（論文）報(bào)告紙 第 24 頁(yè) 共 42 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 身份證號(hào)對(duì)數(shù)據(jù)庫(kù)中的客戶數(shù)據(jù)進(jìn)行刪除。因添加客戶數(shù)據(jù)時(shí)要求身份證號(hào)是唯一的，所以不用擔(dān)心誤刪的問(wèn)題。 菜單信息刪除模塊與本模塊的原理類似，以下不 再 闡述。 客戶信息的查詢 圖 客戶信息的 查詢 客戶查詢模塊載入 Private Sub kehuchaxun_Load(ByVal sender As , ByVal e As ) Handles sqlobject = New SQL_Conn CmdStr = SELECT name as 39。客戶姓名 39。,id as 39。身份證 39。,address as 39。家庭地址 39。,tel as 39。電話號(hào)碼 39。,mobilephone as 39。手機(jī)號(hào)碼 39。 ,money as 39。賬戶余額 39。 ,usedmoney as 39。已消費(fèi)額 39。FROM customer Try = (CmdStr) Catch ex As Exception (ex) End Try = 畢業(yè)設(shè)計(jì)（論文）報(bào)告紙 第 25 頁(yè) 共 42 頁(yè) ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ End Sub 使用 SQL_Ada 方法， 查詢 customer 表中的個(gè)別數(shù)據(jù)， 將數(shù)據(jù)庫(kù)中的數(shù)據(jù)提取出來(lái) 保 存在內(nèi)存中的 datatable 表中，客戶信息查詢中的 DataGridView 組件將內(nèi)存中的 datatable 數(shù)據(jù)表里的數(shù)據(jù)提取出來(lái)顯示給用戶查看 。 當(dāng) 點(diǎn)擊 DataGridView 組建中的任意一客戶資料 時(shí) ， 在組件左邊的 PictureBox中 將顯示 客戶照片 。 Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As ) Handles If row And = 0 Then row = = (0, row).() If Then CmdStr = select photo from customer where name=39。 + + 39。 DisplayImg(CmdStr) Else : = Nothing End If End If End Sub 其中 If row And = 0 中 指的是點(diǎn)擊