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

　　

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