【文章內(nèi)容簡介】 End If End If （ 2）單擊“取消”按鈕，即取消登錄，代碼如下： Private Sub cmdCancel_Click() Unload Me Exit Sub End Sub 7． 3 建立添加用戶窗體 7． 3． 1 為窗體添加控件 添加 3 個標(biāo)簽、 3 個 文本框和 2 個命令按鈕?？丶膶傩栽O(shè)置如圖 10 所示 控件 屬性 屬性值 TextBox Name UserName TextBox Name PassWord Maxlength 8 PassWordChar * TextBox Name confirPWD PassWordChar * Maxlength 8 CommandButton Name cmdOK Caption 確定 Commandbutton Name cmdCancel Caption 取消 圖 10 添加用戶窗體中控件的屬性設(shè)置 設(shè)計好的窗體如圖 11 所示 圖 11 添加用戶窗體 7． 3． 2 添加代碼 主要事件響應(yīng)代碼： （ 1） 輸入新的用戶名和密碼后，單極“確定”按鈕就會添加用戶，代碼如下： Private Sub cmdOK_Click() Dim sql As String Dim rs As If Trim() = Then 39。判斷用戶名稱是否為空 MsgBox 請輸入用戶名稱 !, vbOKOnly + vbExclamation, 警告 Exit Sub Else sql = select * from UserInfo where UserID=39。 amp。 UserName amp。 39。 Set rs = getRS(sql) If = False Then 39。判斷是否已經(jīng)存在用戶 MsgBox 這個用戶已經(jīng)存在！請重新輸入用戶名稱！ , vbOKOnly + vbExclamation, 警告 = = = Exit Sub Else If Trim() Trim() Then 39。判斷兩次密碼是否相同 MsgBox 兩次輸入的密碼不一致，請重新輸入密碼！ , vbOKOnly + vbExclamation, 警告 = = Exit Sub ElseIf Trim() = Then 39。判斷密碼是否為空 MsgBox 密碼不能為空！ , vbOKOnly + vbExclamation, 警告 = confirmPWD = Else 39。添加用戶 sql = insert into UserInfo (UserID,UserPWD) values(39。 amp。 UserName sql = sql amp。 39。,39。 amp。 PassWord amp。 39。) Call TransactSQL(sql) MsgBox 添加成功！ , vbOKOnly + vbExclamation, 添加結(jié)果 39。重新設(shè)置初始化為空 = = = End If End If End If End Sub （ 2）“取消”按鈕的 Click 事件： Private Sub cmdCancel_Click() Unload Me End Sub 7． 4 建立修改密碼窗體 7． 4． 1 為窗體添加控件 窗體中添加了 3 個標(biāo)簽， 3 個文本框， 2 個按鈕 。這些控件的屬性設(shè)置如下。 控件 屬性 屬性值 TextBox Name UserName TextBox Name PassWord Maxlength 8 PassWordChar * TextBox Name ConfirmPWD Maxlength 8 PassWordChar * CommandButton Name cmdOK Caption 確定 CommandButton Name CmdCancel Caption 取消 Label Caption 新用戶名稱 Label Caption 用戶密碼 Label Caption 確認(rèn)密碼 圖 12 修改密碼窗體中控件屬性設(shè)置 設(shè)計好的窗體如圖 13 所示 圖 13 設(shè)計好的窗體 7． 4． 2 添加代碼 （ 1）輸入舊密碼和 2 次輸入新密碼后，單極“確定”按鈕，系 統(tǒng)就會更改密碼，實(shí)現(xiàn)這個功能的代碼如下： Private Sub cmdOK_Click() Dim sql As String Dim rs As If Trim() = Then 39。判斷是否輸入舊密碼 MsgBox 請輸入舊密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。判斷是否輸入新密碼 MsgBox 請輸入新密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub ElseIf Trim() Trim() Then 39。判斷兩次密碼是否相同 MsgBox 兩次密碼不同！ , vbOKOnly + vbExclamation, 警告 = = Else 39。修 改密碼 sql = update UserInfo set UserPWD = 39。 amp。 NewPWD amp。 39。where UserID=39。 sql = sql amp。 strUserName amp。 39。 Call TransactSQL(sql) MsgBox 密碼已經(jīng)修改！ , vbOKOnly + vb