【文章內(nèi)容簡介】 word 39。check for correct password UserName = If Trim( = ) Then MsgBox 沒有這個用戶，請重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from user_Info where user_ID = 39。 amp。 amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒有這個用戶，請重新輸入用戶名!, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then OK = True UserName = Trim() Else MsgBox 輸入密碼不正確，請重新輸入！, vbOKOnly + vbExclamation, 警告 = End If End If End If miCount = miCount + 1 If miCount = 3 Then End IfExit Sub用戶如果沒有輸入用戶名和用戶密碼，將出現(xiàn)消息框提示，如果輸入的用戶名在用戶表中沒有找到，將提示重新輸入用戶名，文本框txtusername將重新獲得輸入焦點。如果用戶輸入的密碼不正確，文本框txtpassword將重新獲得輸入焦點。用戶登錄成功，全局變量ok將被賦值為true。一旦三次輸入密碼均不正確，全局變量ok將被賦值為false。公用模塊中的main（）過程將根據(jù)ok的值來決定是退出，還是進入系統(tǒng)。如果用戶取消登錄，單擊cmdcancel按鈕，將觸發(fā)按鈕的click事件，代碼如下：OK = False 用戶可以修改自己的密碼，選擇菜單“系統(tǒng) 修改密碼”出現(xiàn)如圖所示的窗體：圖38 修改密碼窗口在這個窗體中放置了三個文本框，用來輸入舊密碼，新密碼和確認密碼，二個按鈕按鈕用來確定是否修改密碼，三個標(biāo)簽用來標(biāo)示文本框的內(nèi)容。二次輸入密碼后，單擊cmdok按鈕，將觸發(fā)click事件判斷是否修改密碼。代碼如下：Private Sub cmdOK_Click() Dim txtSQL, MsgText As String Dim mrc As If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 密碼輸入不正確！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Else txtSQL = select * from user_Info where user_ID = 39。 amp。 UserName amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) (1) = Text1(1).Text MsgBox 密碼修改成功！, vbOKOnly + vbExclamation, 修改密碼 End If End Sub進入系統(tǒng)后，選擇菜單“系統(tǒng) 添加用戶”，就可以添加用戶，出現(xiàn)添加用戶的窗體：圖39 添加用戶窗口在這個窗體中放置了三個文本框，用來輸入用戶名，密碼和確認密碼，二個按鈕用來確定是否修改密碼，三個標(biāo)簽用來標(biāo)示文本框的內(nèi)容。二次輸入密碼后，單擊cmdok按鈕，將觸發(fā)click事件判斷是否修改密碼，代碼如下：Private Sub cmdOK_Click() Dim txtSQL As String Dim mrc As Dim MsgText As String If Trim(Text1(0).Text) = Then MsgBox 請輸入用戶名稱！, vbOKOnly + vbExclamation, 警告 Exit Sub Text1(0).SetFocus Else txtSQL = select * from user_Info Set mrc = ExecuteSQL(txtSQL, MsgText) While ( = False) If Trim((0)) = Trim(Text1(0)) Then MsgBox 用戶已經(jīng)存在，請重新輸入用戶名！, vbOKOnly + vbExclamation, 警告 Text1(0).SetFocus Text1(0).Text = Text1(1).Text = Text1(2).Text = Exit Sub Else End If Wend End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 兩次輸入密碼不一樣，請確認！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Text1(2).Text = Exit Sub Else If Text1(1).Text = Then MsgBox 密碼不能為空！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Text1(2).Text = Else (0) = Trim(Text1(0).Text) (1) = Trim(Text1(1).Text) MsgBox 添加用戶成功！, vbOKOnly + vbExclamation, 添加用戶 End IfEnd If一旦輸入完畢，系統(tǒng)將首先查詢數(shù)據(jù)庫中與新建用戶名相同的記錄，如果有相同記錄將提示用戶重新輸入用戶名。當(dāng)確定數(shù)據(jù)庫中沒有相同的用戶名，并且二次輸入密碼一致時，將把該條記錄添加到數(shù)據(jù)庫中。單擊cmdcancle按鈕將取消添加用戶的操作。代碼如下：Private Sub cmdCancel_Click( ) Unload MeEnd Sub進入系統(tǒng)后，選擇菜單“系統(tǒng) 刪除用戶”，就可以刪除用戶，出現(xiàn)刪除用戶的窗體：圖310 刪除用戶窗口在這個窗體中放置了二個文本框，用來輸入用戶名和密碼，二個按鈕用來確定是否修改密碼，三個標(biāo)簽用來標(biāo)示文本框的內(nèi)容。輸入信息后，單擊cmdok按鈕，將觸發(fā)click事件判斷是否刪除用戶。代碼如下：Dim denglu As New Dim rstdenglu As New Private Sub Command1_Click() If = Then MsgBox 請輸入用戶名, vbOKOnly, 警告 End If If = Then MsgBox 請輸入密碼, vbOKOnly, 警告 End If (yonghuming = 39。 + + 39。) If Then MsgBox 用戶名不存在，請重新輸入用戶名, vbOKOnly, 警告 Else If (mima) Trim() Then = MsgBox 請輸入正確的密碼！, vbOKOnly, 警告 Else If (vbYes = MsgBox(您確定要刪除該用戶嗎？, vbYesNo + vbQuestion, 信息提示)) Then Call Command2_Click MsgBox 刪除信息成功！, vbOKOnly + vbExclamation, 信息提示 End If End If End IfEnd SubPrivate Sub Command2_Click() = = End SubPrivate Sub Form_Load() Set denglu = New = adUseClient Provider=。User ID=admin。Data Source=F:\倉庫管理系統(tǒng)\。Persist Security Info=False Set rstdenglu = New Set = denglu select * from yonghuxinxi, denglu, adOpenStatic, adLockOptimisticEnd Sub（）在visual basic中新建一個form。從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項屬性。當(dāng)用戶登錄進系統(tǒng)，將進入倉庫系統(tǒng)的主窗體，如圖311：圖311 倉庫管理系統(tǒng)主窗體（）在visual basic中新建一個form。從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項屬性。如圖312：圖312 查詢信息窗體當(dāng)用戶需要查詢某個設(shè)備時，只需要輸入該設(shè)備的 設(shè)備名稱 或者 設(shè)備編號 ，如果該設(shè)備存在，則會顯示