【正文】 End If Catch ex As Exception eErr ex End Try 系統(tǒng)先進(jìn)行數(shù)據(jù)庫(kù)操作判斷是否存在用戶名用戶密碼和用戶類型完全符合要求的數(shù)據(jù)如果存在則說(shuō)明用戶可以登錄同時(shí)把登錄的用戶類型和用戶名告訴需要用到用戶類型和用戶名數(shù)據(jù)的模塊如系統(tǒng)主界面充值模塊和買單模塊等等 用戶注銷模塊的實(shí)現(xiàn) 用戶注銷模塊的代碼如下 Private Sub 注銷 ToolStripMenuItem_Click ByVal sender As SystemObject ByVal e As SystemEventArgs Handles 注銷ToolStripMenuItemClick Mem_style Mem_Login False For Each ChildForm As Form In MeMdiChildren ChildFormClose Next main_Load sender e LoginShow MeToolStripStatusLabel1Text 登錄 End Sub 用戶通過(guò)本模塊可以注銷系統(tǒng)系統(tǒng)恢復(fù)到登錄前畫(huà)面這樣就可以防止在用戶離開(kāi)后系統(tǒng)數(shù)據(jù)被人惡意修改43 客戶信息管理 客戶信息的添加 圖 42 客戶的添加 當(dāng)用戶點(diǎn)擊添加按鈕時(shí)系統(tǒng)執(zhí)行以下代碼 CmdStr SELECT id FROM [customer] where id TextBox2Text If TextBox2Text Then 身份證不為空 MsgBox 請(qǐng)輸入身份證號(hào) TextBox2Focus ElseIf sqlobjectIs_SQL_Cmd CmdStr Then 檢查是否已注冊(cè) MsgBox 該客戶已經(jīng)存在 TextBox2Focus 中間還有很多類似的驗(yàn)證 Else CmdStr insert into customer nameidaddressbirthdaypwdaddtimemoneyusedmoneytelmobilephoneuserid VALUES TextBox1Text TextBox2Text TextBox3Text DateTimePicring TextBox6Text Now 0 0 TextBox4Text TextBox5Text user Try sqlobjectExecCmd CmdStr 添加客戶 MsgBox 添加成功 添加成功提示 FileUrl 復(fù)位空格 Catch ex As Exception eErr 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 FileModeOpen FileAccessRead Dim imgbyte imgstreemLength As Byte imgstreemRead imgbyte 0 imgstreemLength imgstreemClose Dim sqlcmd As New SylientSqlCommand Dim sqlconn As New SylientSqlConnection SQL_Connconstr CmdStr update customer set photo image where id TextBox2Text sq image SqlDbTypeImage sqlcmdParameters image Value imgbyte sqlcmdConnection sqlconn sqlcmdCommandText CmdStr Try sqlconnOpen sqlcmdExecuteNonQuery sqlconnClose Catch ex As Exception eErr 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ì)餐廳的好感大增 客戶信息的修改 圖 43 客戶信息的修改 當(dāng)客戶資料因?qū)嶋H情況發(fā)生變更時(shí)可以修改系統(tǒng)中的資料數(shù)據(jù)用戶需提供注冊(cè)時(shí)所使用的客戶密碼使用密碼可以防止客戶的資料被惡意修改充分保護(hù)客戶權(quán)益即使是管理員也不能在不經(jīng)過(guò)客戶同意的情況下修改客戶數(shù)據(jù)以下是修改按鈕的代碼 CmdStr select pwd from customer where pwd TextBox12Text and id TextBox8Text 確定客戶身份代碼 省略驗(yàn)證信息 If sqlobjectIs_SQL_Cmd CmdStr Then 如果客戶同意修改的話繼續(xù) CmdStr update customer set address TextBox9Text tel TextBox10Text mobilephone TextBox11Text pwd TextBox13Text where id TextBox8Text Try sqlobjectExecCmd CmdStr 執(zhí)行更新 MsgBox 修改成功 TextBox8Text PictureBox2Image Nothing Call TabControl1_SelectedIndexChanged sender e Catch ex As Exception eErr 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ì)彈出修改成功的提示 菜單信息修改模塊與本模塊的原理類似以下不再闡述 客戶信息的刪除 客戶信息可以在得到客戶確認(rèn)的情況下刪除因設(shè)計(jì)到賬戶余額問(wèn)題所以在進(jìn)行此操作時(shí)萬(wàn)分謹(jǐn)慎客戶資料來(lái)之不易建議不要輕易刪除客戶資料以下是刪除模塊的程序代碼 Private Sub Button6_Click ByVal sender As SystemObject ByVal e As SystemEventArgs Handles Button6Click If TextBox12Text Then MsgBox 請(qǐng)輸入用戶密碼 TextBox12Focus Else CmdStr select pwd from customer where pwd TextBox12Text and id TextBox8Text 用戶密碼確認(rèn) If sqlobjectIs_SQL_Cmd CmdStr Then CmdStr delete from customer where id TextBox8Text Try sqlobjectExecCmd CmdStr 執(zhí)行刪除命令 MsgBox 刪除成功 PictureBox2Image Nothing Catch ex As Exception eErr 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ù)客戶的身份證號(hào)對(duì)數(shù)據(jù)庫(kù)中的客戶數(shù)據(jù)進(jìn)行刪除因添加客戶數(shù)據(jù)時(shí)要求身份證號(hào)是唯一的所以不用擔(dān)心誤刪的問(wèn)題菜單信 息刪除模塊與本模塊的原理類似以下不再闡述 客戶信息的查詢 圖 44 客戶信息的查詢 1 客戶查詢模塊載入 Private Sub kehuchaxun_Load ByVal sender As SystemObject ByVal e As SystemEventArgs Handles MyBaseLoad sqlobject New SQL_Conn CmdStr SELECT name as 客戶姓名 id as 身份證 address as 家庭地址 tel as 電話號(hào)碼 mobilephone as 手機(jī)號(hào)碼 money as 賬戶余額 usedmoney as 已消費(fèi)額 FROM customer Try MeDataGridView1DataSource sqlobjectSQL_Ada CmdStr Catch ex As Exception eErr ex End Try MeDataGridView1AutoSizeColumnsMode DataGridViewAutoSizeColumnsModeDisplayedCells 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)顯示給用戶查