【正文】 = BLUE Else txtSQL = delete from tbUser where UserId=39。 + Trim() + 39。 results = ExecuteSQL(txtSQL, rstUser, True) MsgBox 刪除成功！, vbOKOnly + vbExclamation, 警告 = = Call viewDataUser End IfEnd IfEnd Sub4)修改記錄：可以修改用戶密碼和用戶類型，用來重新設置用戶權限。31Private Sub cmdModify_Click()If txtIsNull(txtUser) Then 39。檢驗修改記錄是否選定 MsgBox 請選擇需要修改的記錄！, vbOKOnly + vbExclamation, 警告 Exit SubEnd Ifstr = MsgBox(是否修改當前記錄？, vbOKCancel, 刪除當前記錄) 39。提示警告信息If str = vbOK Then txtTest = select UserId from tbUser where UserId =39。 + Trim() + 39。 39。檢驗此用戶名是否已經存在 If DBExist(txtTest) = 0 Then MsgBox 無此用戶，請?zhí)砑哟擞脩艋蛑匦螺斎胗脩裘? vbOKOnly + vbExclamation, 警告 = BLUE Else If IsOverStringLen(, 8) Or Trim() = Then MsgBox 密碼不能為空且不能超過 8 位！, vbOKOnly + vbExclamation, 警告 ?Color = BLUE Exit Sub End If txtSQL = update tbUser set UserId = 39。 + Trim() txtSQL = txtSQL + 39。, UserPassword = 39。 + Trim() txtSQL = txtSQL + 39。,UserKind = 39。 + Trim() txtSQL = txtSQL + 39。 where UserId=39。 + Trim() + 39。 results = ExecuteSQL(txtSQL, rstUser, True) MsgBox 修改成功！, vbOKOnly + vbExclamation, 警告 Call viewDataUser End IfEnd IfEnd Sub5）記錄：刪除指定記錄，關鍵字取決于用戶名 TextBox。處理流程:? 判斷窗體上的用戶文本框內容是否為空，如果為空，給出錯誤信息，處理終止。? 提示警告信息：“是否刪除當前記錄？” ，如果不存在，處理終止，并給于提示信息，用這種方式使用戶確認輸入的信息無誤。32? 執(zhí)行 SQL 語句，刪除指定用戶名的記錄。? 提示刪除成功信息。? 清空各個 TextBox，刷新表格數(shù)據(jù)。6）記錄：可以修改用戶密碼和用戶類型，用戶重新設置用戶權限。關鍵字取值于用戶名 TextBox。處理流程：? 判斷窗體上的用戶名 TextBox 內容是否為空，如果為空，給出錯誤信息，處理終止。? 提示警告信息：“是否修改當前記錄？” ，如果選擇“確定” ，進行以下處理。? 檢驗次用戶名在用戶信息表中是否存在，如果不 存在處理終止，并給出錯誤信息，并將用戶名 TextBox 背景色設置為深藍色。? 利用公共函數(shù)檢驗輸入的密碼是否合法（不能為空且位數(shù)不能超過數(shù)據(jù)庫中允許最大值） ，如果不合法，處理終止，設置密碼 TextBox 獲得焦點，背景色深藍色。? 生成并執(zhí)行 SQL 語句，更新用戶信息表的密碼字段。? 提示修改成功信息，刷新表格數(shù)據(jù)。Private Sub cmdModify_Click()If txtIsNull(txtUser) Then 39。檢驗修改記錄是否選定 MsgBox 請選擇需要修改的記錄！, vbOKOnly + vbExclamation, 警告 Exit SubEnd Ifstr = MsgBox(是否修改當前記錄？, vbOKCancel, 刪除當前記錄) 39。提示警告信息If str = vbOK Then txtTest = select UserId from tbUser where UserId =39。 + Trim() + 39。 39。檢驗此用戶名是否已經存在 If DBExist(txtTest) = 0 Then MsgBox 無此用戶，請?zhí)砑哟擞脩艋蛑匦螺斎胗脩裘? vbOKOnly + vbExclamation, 警告 = BLUE Else If IsOverStringLen(, 8) Or Trim() = Then MsgBox 密碼不能為空且不能超過 8 位！, vbOKOnly + vbExclamation, 警告 = BLUE Exit Sub End If txtSQL = update tbUser set UserId = 39。 + Trim()33 txtSQL = txtSQL + 39。, UserPassword = 39。 + Trim() txtSQL = txtSQL + 39。,UserKind = 39。 + Trim() txtSQL = txtSQL + 39。 where UserId=39。 + Trim() + 39。 results = ExecuteSQL(txtSQL, rstUser, True) MsgBox 修改成功！, vbOKOnly + vbExclamation, 警告 Call viewDataUser End IfEnd IfEnd Sub7）Datagrid 的 RowColChang 事件本系統(tǒng)中利用 TextBox 來更新數(shù)據(jù)庫，重要的一點就是可以隨意選擇表格中而需要修改的記錄而不需要復雜的輸入。當點擊 Datagrid 表格中的任意記錄時，各個 TextBox 需要顯示該記錄的對應信息，可以使用 Datagrid 的 RowColChang事件完成次功能：Private Sub dgUser_RowColChange(LastRow As Variant, ByVal LastCol As Integer)If result 0 Then = (0).Text = (1).Text = (2).TextEnd IfEnd Sub8）viewDataUser 函數(shù)：將信息數(shù)據(jù)在 Datagrid 表格中顯示。處理流程：生成 SQL 語句（檢索用戶信息表中的全部數(shù)據(jù)） ，調用 viewData函數(shù)。Private Sub viewDataUser() 39。檢索所有的用戶信息txtSQL = select UserId as 用戶名,UserPassword as 用戶密碼,UserKind as 用戶類型 txtSQL = txtSQL + from tbUser order by UserIdresult = viewData(txtSQL, dgUser)End Sub9）當 TextBox 內容改變時將 TextBox 背景色恢復為白色代碼（如表 57 所示）表 57 恢復 TextBox 背景色代碼設計TextBox 控件 事件 代碼txtPassword Chang =WHITEtxtUser Chang =WHITE10） “退出”按鈕：卸載窗體，語法為 Unload ME。 34（1）修改密碼子模塊的 IPO 圖。 輸入：原密碼、新密碼和確認密碼處理流程：1)修改密碼窗體啟動，輸入原密碼、新密碼和確認密碼。2)從用戶信息表（tbUser）檢查該用戶的原密碼是否與輸入的原密碼相同。3)如果不同則進行信息提示，處理中止。4)如果相同，檢驗新密碼是否為空，如果為空則盡心信息提示，處理終止。5)如果新密碼非空，檢驗輸入的確認密碼和新密碼是否相同。6)如果不同則進行信息提示，處理終止。7)更新用戶信息（tbUser）中的用戶密碼字段。輸出：：對用用戶信息表（tbUser）的密碼字段進行修改。（2）修改密碼子模塊的窗體設計 (見圖 58) 圖 54 修改密碼子模塊窗體效果圖（3）窗體和控件特殊屬性設計（見表 58）表 58 窗體和控件特殊屬性控件名稱 控件屬性 設置frmPassword 類型 登錄對話框（4）程序設計如下：1）窗體公共變量定義（見表 59）表 59 窗體公共變量定義變量名稱 變量類型 說明txtSQL String 更新操作 SQL 語句rstPass 用戶信息數(shù)據(jù)集results Boolean ExecuteSQL 函數(shù)返回值2） “確定”按鈕：更新用戶密碼。處理流程：? 以用戶名為關鍵字，檢索用戶信息表中與用戶名對應的密碼字段（用戶名已在登錄成功時被賦給 Public 變量 gUserName） 。? 將輸入的原密碼與檢索到的密碼相比較：如果不相等，提示用戶“原密碼不正確！” ，設置原密碼 TextBox 獲得焦點，背景色為藍色，處理終止。? 如果相等，檢驗新密碼 TextBox 不能為空且值不能超過用戶信息表的用戶35密碼字段的允許長度，否則提示用戶相應信息，設置新密碼 TextBox 獲得焦點，背景色為藍色，處理終止。? 調用公共函數(shù) txtNull 檢驗確認密碼 TextBox 不能為空，否則提示用戶相應的信息，處理終止。? 更新用戶表中的用戶密碼字段。Private Sub cmdOK_Click()Dim strPass As String 39。檢索該用戶輸入的原密碼是否正確txtSQL = select UserPassword from tbUser where UserId=39。 + gUserName + 39。results = ExecuteSQL(txtSQL, rstPass, False)strPass = (0)If StrComp(Trim(strPass), Trim()) 0 Then MsgBox 原密碼不正確！, vbOKOnly + vbExclamation, 警告 = BLUE Exit SubElse39。檢驗新密碼不能為空 If txtIsNull(txtNewPass) Then MsgBox 請輸入新密碼，密碼不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub Else If IsOverStringLen(, 8) Then MsgBox 密碼不能超過 8 位！, vbOKOnly + vbExclamation, 警告 = BLUE Exit Sub End If End If 39。密碼必須確認 If txtIsNull(txtPasswordSure) Then MsgBox 請確認新密碼！, vbOKOnly + vbExclamation, 警告 Exit Sub End If 39。檢驗兩次輸入的新密碼是否 If StrComp(Trim(), Trim()) 0 Then MsgBox 兩次輸入密碼不一致！ , vbOKOnly + vbExclamation, 警告 = BLUE36 Exit Sub End If 39。更新數(shù)據(jù)庫 txtSQL = update tbUser set UserPassword = 39。 + Trim() txtSQL = txtSQL + 39。 where UserId=39。 + gUserName + 39。 results = ExecuteSQL(txtSQL, rstPass, True) MsgBox 密碼修改成功！, vbOKOnly + vbExclamation, 警告 Unl