【文章內(nèi)容簡(jiǎn)介】 、菜單、折扣和員工的添加、刪除和修改都用到了該過(guò)程。 Public Sub ExecCmd(ByVal cmdstr As String) SqlConn = New SqlConnection(constr) () SqlCmd = New SqlCommand(cmdstr, SqlConn) () End Sub 系統(tǒng)的登錄與注銷(xiāo) 用戶(hù)登陸模塊的實(shí)現(xiàn) 用戶(hù)登錄用戶(hù)登陸模塊是防止非法用戶(hù)登陸的第一道防線(xiàn)，通過(guò)它可以保護(hù)后臺(tái)數(shù)據(jù)庫(kù)的安全性，當(dāng)用戶(hù)要進(jìn)行系統(tǒng)操作時(shí)，首先要進(jìn)入的就是身份驗(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)的所有功能都將可以使用。以下是“登錄”按鈕的代碼：cmdstr = select * from [user] where [user_id] =39。 + + 39。 and [pwd]= 39。 + + 39。 and [style]= 39。 + + 39。 Try If (cmdstr) Then = True ...... //類(lèi)似部分省略 () Else MsgBox(請(qǐng)?zhí)顚?xiě)正確的用戶(hù)名、密碼和用戶(hù)類(lèi)型!) End If Catch ex As Exception (ex) End Try系統(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)單模塊等等。 用戶(hù)注銷(xiāo)模塊的實(shí)現(xiàn)用戶(hù)注銷(xiāo)模塊的代碼如下： Private Sub 注銷(xiāo)ToolStripMenuItem_Click(ByVal sender As , ByVal e As ) Handles = = False For Each ChildForm As Form In () Next main_Load(sender, e) () = 登錄 End Sub用戶(hù)通過(guò)本模塊可以注銷(xiāo)系統(tǒng)，系統(tǒng)恢復(fù)到登錄前畫(huà)面，這樣就可以防止在用戶(hù)離開(kāi)后，系統(tǒng)數(shù)據(jù)被人惡意修改。 客戶(hù)信息管理 客戶(hù)信息的添加 客戶(hù)的添加當(dāng)用戶(hù)點(diǎn)擊添加按鈕時(shí)，系統(tǒng)執(zhí)行以下代碼：CmdStr = SELECT id FROM [customer] where id=39。 + + 39。 If = Then //身份證不為空 MsgBox(請(qǐng)輸入身份證號(hào)) () ElseIf (CmdStr) Then //檢查是否已注冊(cè) MsgBox(該客戶(hù)已經(jīng)存在) () ...... //中間還有很多類(lèi)似的驗(yàn)證 Else CmdStr = insert into customer (name,id,address,birthday,pwd,addtime,money,usedmoney,tel,mobilephone,userid)VALUES(39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + + 39。,39。 + Now + 39。,39。 + 0 + 39。,39。 + 0 + 39。,39。 + + 39。,39。 + + 39。,39。 + user + 39。) Try (CmdStr) //添加客戶(hù) MsgBox(添加成功) // 添加成功提示 FileUrl = //復(fù)位空格 ...... Catch ex As Exception (ex) End Try End If End Sub在添加用戶(hù)前，系統(tǒng)進(jìn)行了詳細(xì)的表單驗(yàn)證，包括驗(yàn)證要提交的客戶(hù)是否已經(jīng)存在，用戶(hù)兩次輸入的密碼是否一樣，以及聯(lián)系方式不為空等等。使用insert語(yǔ)句將通過(guò)驗(yàn)證的表格中的數(shù)據(jù)提交到數(shù)據(jù)庫(kù)。菜單信息添加模塊與本模塊的原理類(lèi)似，以下不再闡述。 圖像的處理如果用戶(hù)在上面添加客戶(hù)信息時(shí)，添加了圖像信息，那么系統(tǒng)就會(huì)執(zhí)行以下命令： If FileUrl Then //圖像存在的話(huà)，添加圖像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 = sqlconn = CmdStr Try () () () Catch ex As Exception (ex) End Try End If如果用戶(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ì)餐廳的好感大增。 客戶(hù)信息的修改 客戶(hù)信息的修改當(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ù)。以下是修改按鈕的代碼。 CmdStr = select pwd from customer where pwd=39。 + + 39。 and id =39。 + + 39。 //確定客戶(hù)身份代碼 ...... //省略驗(yàn)證信息 If (CmdStr) Then //如果客戶(hù)同意修改的話(huà)繼續(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)證客戶(hù)密碼的正確性，如果原始密碼正確，用戶(hù)在輸入新密碼后可以進(jìn)行對(duì)聯(lián)系方式等基本資料進(jìn)行修改。使用update語(yǔ)句將空格中的數(shù)據(jù)更新到服務(wù)器。如果更新成功，系統(tǒng)會(huì)彈出“修改成功的提示”。 菜單信息修改模塊與本模塊的原理類(lèi)似，以下不再闡述。 客戶(hù)信息的刪除客戶(hù)信息可以在得到客戶(hù)確認(rèn)的情況下刪除，因設(shè)計(jì)到賬戶(hù)余額問(wèn)題所以在進(jìn)行此操作時(shí)萬(wàn)分謹(jǐn)慎?？蛻?hù)資料來(lái)之不易，建議不要輕易刪除客戶(hù)資料。以下是刪除模塊的程序代碼：Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles If = Then MsgBox(請(qǐng)輸入用戶(hù)密碼) () ElseCmdStr = select pwd from customer where pwd=39。 + + 39。 and id =39。 + + 39。 //用戶(hù)密碼確認(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_SelectedI