【正文】 = 3 Then 39。記錄密碼輸入的次數(shù)，累計到3此則自動結束程序 End IfEnd Sub添加用戶模塊代碼設計添加用戶模塊主要是向數(shù)據(jù)庫中添加一條新紀錄，所以主要依賴于cmdOK控件Click事件下的函數(shù)來執(zhí)行此操作。注意，只有超級管理員Admin才有添加功能的權限，所以在執(zhí)行添加操作之前必須判斷用戶是否具有該權限，操作代碼如下：Private Sub cmdOK_Click() Dim txtSQL As String Dim mrc As Dim MsgText As String If UserName Admin Then 39。判斷用戶的權限 MsgBox 只有超級管理員才有此權限！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Trim(Text1(0).Text) = Then 39。判斷用戶名輸入是否為空 MsgBox 請輸入用戶名稱！, vbOKOnly + vbExclamation, 警告 Exit Sub Text1(0).SetFocus Else txtSQL = select * from Manager Set mrc = ExecuteSQL(txtSQL, MsgText) While ( = False) If Trim((0)) = Trim(Text1(0)) Then 39。判斷是否有重復記錄 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 39。判斷兩次所輸入的密碼是否一致 MsgBox 兩次輸入密碼不一樣，請確認！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Text1(2).Text = Exit Sub Else If Text1(1).Text = Then 39。判斷密碼輸入是否為空 MsgBox 密碼不能為空！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Text1(2).Text = Else 39。添加用戶 (0) = Trim(Text1(0).Text) (1) = Trim(Text1(1).Text) If = True Then (2) = 0 Else (2) = 1 End If MsgBox 添加用戶成功！, vbOKOnly + vbExclamation, 添加用戶 End If End IfEnd Sub修改用戶密碼模塊代碼設計修改用戶密碼模塊中的函數(shù)與添加中的相類似，區(qū)別只是在SQL語句的應用上。一個使用的是Insert，一個使用的是Update。用戶修改密碼模塊的代碼如下：Private Sub cmdOK_Click() Dim txtSQL, MsgText As String Dim mrc As If Trim(Text1(0).Text) PWD Then 39。判斷是否是合法的用戶 MsgBox 原密碼輸入不正確！, vbOKOnly + vbExclamation, 警告 Text1(0).SetFocus Text1(0).Text = Exit Sub End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then 39。判斷輸入的新密碼是否正確 MsgBox 新密碼輸入不正確！, vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Else txtSQL = update Manager set pwd=39。 amp。 Text1(1).Text amp。 39。 where username = 39。 amp。 UserName amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) (1) = Text1(1).Text MsgBox 密碼修改成功！, vbOKOnly + vbExclamation, 修改密碼 End IfEnd Sub刪除用戶模塊的代碼設計這部分代碼設計中，首先需要在窗口加載后，將已經(jīng)添加的所有用戶都讀到一個列表中來。具體的代碼如下：Private Sub Form_Load() Dim txtSQL As String Dim mrc As Dim MsgText As String txtSQL = select username from Manager Set mrc = ExecuteSQL(txtSQL, MsgText) While = False (0) 39。讀入所有的用戶到列表中來 WendEnd Sub點擊列表中的用戶，然后單擊“刪除”按鈕即可刪除用戶。注意刪除功能只有超級管理員Admin具有，所有在執(zhí)行刪除操作之前必須判斷用戶是否具有該權限。具體代碼如下：Private Sub cmdDel_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim MsgText As String If UserName Admin Then 39。判斷用戶的權限 MsgBox 只有超級管理員才有此權限！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If () Then If MsgBox(真的要刪除用戶 amp。 (), vbOKCancel + vbExclamation, 警告) = vbOK Then If () = Admin Then MsgBox 不能刪除超級用戶, vbOKOnly, 信息框 Exit Sub End IftxtSQL = delete from Manager where username =39。 amp。 Trim(()) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) Form_Load End If End If MsgBox 刪除成功, vbOKOnly, 信息框End Sub(3) 員工基本信息模塊添加員工信息添加員工信息模塊主要是向數(shù)據(jù)庫中添加一條新員工信息記錄，所以主要依賴于cmdOK控件Click事件下的函數(shù)來執(zhí)行此操作。只有超級管理員Admin才有添加功能的權限，所以在執(zhí)行添加操作之前必須判斷用戶是否具有該權限。同時在執(zhí)行保存操作前要檢查數(shù)據(jù)的合法性，使它與數(shù)據(jù)庫設置的字段類型一致，以免在保存的過程中發(fā)生錯誤。同時，由于員工號是員工基本信息表的主鍵，所以在保存信息前，要檢查輸入的員工號是否唯一。具體代碼如下：Private Sub cmdSave_Click() If UserName Admin Then 39。判斷用戶的權限 MsgBox 只有超級管理員才有此權限！, vbOKOnly + vbExclamation, 警告 Exit Sub End If Dim txtSQL As String Dim MsgText As String Dim mrc As If Not Testtxt() Then MsgBox 請輸入員工號！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Testtxt() Then MsgBox 請輸入姓名！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not IsNumeric() Then MsgBox 請輸入身份證號！, vbOKOnly + vbExclamation, 警告 Exit Sub End If txtSQL = select * from 員工基本信息 where 員工號= 39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then 39。判斷是否有重復的員工號 MsgBox 員工號重復，請重新輸入！, vbOKOnly + vbExclamation, 警告 Else 39。添加新記錄 (0) = Trim() (1) = Trim() (2) = Trim() (3) = (4) = Trim() (5) = Trim() (6) = Trim() (7) = Trim() (8) = Trim() (9) = Trim() (10) = Trim() (11) = Trim() (12) = Trim() (13) = Trim() (14) = Trim() (15) = Trim() (16) = Trim() (17) = Trim() (18) = Trim() (19) = Trim() (20) = Trim() (21) = Trim() (22) = Trim() (23) = Trim() (24) = Trim() (25) = Trim() (26) = Trim() MsgBox 員工信息添加成功！, vbOKOnly + vbExclamation, 添加員工信息 End IfEnd Sub編輯員工信息這里首先要定義一個全局的Recordset變量mrc。Dim mrc As 在窗口加載后，顯示該數(shù)據(jù)表的第一條記錄，這樣使得用戶從第一條記錄開始瀏覽，同時設置記錄信息是只讀的，以防人為地誤操作。在窗口的Load事件中加入如下的代碼。Private Sub Form_Load() Dim txtSQL As String Dim MsgText As String txtSQL = select * from 員工基本信息 Set mrc = ExecuteSQL(