【文章內容簡介】 率。易于用戶理解和操作?？删S護性包括了可讀性、可修改性、可測試性、等含義?？煽啃酝ǔ０ㄕ_性和健壯性。開發(fā)過程中，在各種矛盾的目標之間作權衡，并在一定的限制的條件下（經費、時間、可用的軟、硬件資源等），使上述各方面最大限度的得到滿足。 第 4 章 系統(tǒng)登陸模塊 系統(tǒng)登錄模塊 此界面的功能是提供用戶登錄進入本系統(tǒng)所用，是 系統(tǒng)的身份驗證中心，在此進行用戶賬號和密碼的驗證。如果驗證通過則進入系統(tǒng)操作界面進行相關的操作，否則提示相關的錯誤信息提醒用戶修改。另外界面中設置了下拉列表方便用戶進行身份選擇。登陸界面如 圖 所示： 圖 用戶登陸界面 此模塊的核心代碼如下： Private Sub Command1_Click() Set = New Set rst = New = Provider=。Persist Security Info=False。User ID=sa。database=luhengxiu。server=(local) UserName = Trim() mysql = select * from userinfo where user_name=39。 amp。 UserName amp。 39。 mysql, If Then MsgBox 沒有這個用 戶，請重新輸入用戶名！ , vbOKOnly + vbExclamation, 警告 39。vbOKOnly 僅顯示確定按鈕 vbExclamation 顯示！號圖標 = Else If Trim(rst(password)) = Trim() Then 39。(1) = Else MsgBox 輸入密碼不正確，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If End Sub 系統(tǒng)模塊詳細介紹 添加用戶的界面如下圖 所示： 圖 42 添加用戶界面 這個模塊的核心代碼如下： Private Sub Command1_Click() If Trim() = Then MsgBox 用戶名不能為空！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If Trim() = Then MsgBox 密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If Trim() = Then MsgBox 確認密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If Trim() Trim() Then MsgBox 確認密碼不正確！ , vbExclamation + vbOKOnly, 警告 = Exit Sub End If 39。********************連接數(shù)據庫 39。Dim As New 39。Dim rst As New Set = New Set rst = New = Provider=。Persist Security Info=False。User ID=sa。database=luhengxiu。server=(local) 39。******************檢測用戶是否存在 UserName = Trim() mysql = select * from userinfo where user_name=39。 amp。 UserName amp。 39。 mysql, With rst If Not Then MsgBox 該用戶已存在，請重新輸入新用戶！ , vbExclamation + vbOKOnly, 提示 = = = Exit Sub End If End With 39。***********************添加用戶 select * from userinfo , , adOpenDynamic, adLockPessimistic With rst .AddNew .Fields(user_name).Value = Trim(Text1) .Fields(password).Value = Trim(Text2) .Update MsgBox 添加新用戶成功！ , vbOKOnly + vbExclamation, 添加新用戶 End With End Sub 修 改密碼界面如下： 圖 修改密碼界面 核心代碼如下： Private Sub Command1_Click() Dim As New Dim rst As New If Trim() = Then MsgBox 請輸入用戶名！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If Trim() = Then MsgBox 請輸入您的原始密碼！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If Trim() = Then MsgBox 請輸入新密碼！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If Trim() = Then MsgBox 請確認新密碼！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If If (Trim() Trim()) Then MsgBox 您輸入的第二次密碼不正確，請重新輸入！ , vbExclamation + vbOKOnly, 警告 = Exit Sub End If = Provider=。Persist Security Info=False。User ID=sa。database=luhengxiu。server=(local) UserName = Trim() mysql = select * from userinfo where user_name=39。 amp。 UserName amp。 39。and password=39。 amp。