【導讀】上地應用開發(fā)”的策略開發(fā)一個管理信息系統(tǒng)的過程。通過分析訪客管理的不足，創(chuàng)建了一套行之有效的計算機管理學生的方案。法，學生學籍管理系統(tǒng)面友好，操作簡單，比較實用。關鍵詞：SQL2021server,VB程序設計,軟件工程。

　　

【正文】 性如表所示 51 所示 。 51 增加操作員 51 增加操作員窗體控件表 控件名稱 屬性 屬性值 控件名稱 屬性 屬性值 Form 名稱 frmUserAdd ComboBox1 （權限） 名稱 cmbRight Caption 增加操作員 List 系統(tǒng)管理員 超級用戶 普通用戶 TextBox1（用戶名） 名稱 txtUser TextBox2（密碼） 名稱 txtPwd1 TextBox3（確認密碼） 名稱 txtPwd2 Style 2Dropdown List CommandButton1 （添加） 名稱 cmdAdd CommandButton2 （退出） 名稱 cmdCancel Caption 添加 Caption 退出 29 Default True Cancel True 該窗體的代碼比較簡單，主要針對各文本框中輸入 的內容進行檢查。在用戶單擊“添加”按鈕時將 新 增用戶的信息保存到數據庫對應的表 Sadmin 中。下面詳細介紹 這些代碼。 （ 1） 在本窗體的三個文本框中輸入內容后 按回車鍵，輸入焦點將自動跳轉到下一個控件。這需要通過捕獲文本框的按鈕，判斷其為回車鍵時，調用方法 Set Focus 設置輸入焦點。下面列出“用戶名”文本框的按鍵代碼，其他兩個文本框的代碼與此類似。 1. Private Sub txtPwd1_KeyPress(KeyAscii As Integer) 39。密碼文本框中按鍵 2. If KeyAscii = 39 Then 39。若為單引號 3. KeyAscii = 0 39。取消輸入 4. ElseIf KeyAscii = 13 Then 39。若為回車鍵 5. 39。設置確認密碼文本框獲得焦點 6. End If 7. End Sub （ 1） 當用戶輸入操作員的相關信息后，單擊“添加”按鈕即可將輸入的信息保存到操作員表中。該按鈕的代碼如下： 1. Private Sub cmdAdd_Click() 39?！疤砑印卑粹o 2. Dim strSQL As String, str1 As String, str2 As String 3. Dim rs As 4. If Trim() = Then 39。若用戶名為空 5. MsgBox 用戶名不能為空！ , vbOKOnly + vbInformation, 提示 39。提示信息 6. 39。設置輸入焦點 7. Exit Sub 39。退出過程 8. End If 9. str1 = Trim() 39。獲取密碼 10. str2 = Trim() 39。獲取確認密碼 11. If str1 = Then 39。若密碼為空 12. MsgBox 必須輸入用戶密碼！ , vbExclamation + vbOKOnly, 警告 39。提示信息 13. 39。設置輸入焦點 14. Exit Sub 39。退出過程 15. End If 16. If str1 str2 Then 39。若兩次密碼不同 17. MsgBox 兩次輸入的密碼不相同！ , vbExclamation + vbOKOnly, 警告 39。顯示提示 18. 39。設置輸入焦點 19. Exit Sub 20. End If 21. If Trim() = Then 39。若權限文本為空 22. MsgBox 請選擇用戶的權限！ , vbOKOnly + vbInformation, 警告 39。顯示提示 30 23. 39。設置輸入焦點 24. Exit Sub 39。退出過程 25. End If 26. strSQL = SELECT * FROM [s_admin] WHERE [admin_name]=39。 amp。 amp。 39。 39。校驗用戶名是否重復 27. Set rs = QueryExt(strSQL) 39。執(zhí)行 SQL 語句 28. If Not Then 39。若記錄集不為空 29. MsgBox 該用戶名已經存在，請重新輸入用戶名！ , vbExclamation + vbOKOnly, 警告 39。顯示提示 30. = 39。清空各控件 31. = 32. = 33. = 34. 39。設置輸入焦點 35. Exit Sub 39。退出過程 36. End If 37. strSQL = INSERT INTO [s_admin]([admin_name],[admin_pwd],[admin_right], 38. strSQL = strSQL amp。 [admin_memo]) values(39。 39. strSQL = strSQL amp。 Trim() amp。 39。,39。 40. strSQL = strSQL amp。 Trim() amp。 39。, 41. strSQL = strSQL amp。 amp。 ,39。 39。新增記錄的 SQL 語句 42. Select Case 39。判斷用戶權限 43. Case 0 44. str1 = 系統(tǒng)管理員 45. Case 1 46. str1 = 超級用戶 47. Case 2 48. str1 = 普通用戶 49. End Select 50. strSQL = strSQL amp。 str1 amp。 39。) 51. SQLExt strSQL 39。執(zhí)行 SQL 語句添加操作員 52. If MsgBox(添加用戶成功！ amp。 vbCrLf amp。 vbCrLf amp。 是否繼續(xù)添加用戶？ , vbYesNo + vbQuestion, 添加用戶 ) = vbNo Then 53. Unload Me 39。卸載窗本 54. End If 55. = 56. = 57. = 58. 59. End Sub 31 ? 第 4~36 行分別檢查用戶名、用戶密碼是否正確，系統(tǒng)中是否已存在同名用戶等情況。 ? 第 37~50 行構造一個向數據表中插入記錄的 SQL 語句。 ? 第 51 行調用過程 SQLExt 執(zhí)行 SQL 語句，完成添加操作員的操作。 ? 第 52~58 行詢問用戶是否繼續(xù)添加操作員。 刪除操作員 使用“刪除操作員”窗體可將不允許再使用本系統(tǒng)的操作員刪除 。該窗體的運行效果如圖 52 所示，窗體中分類顯示了不同的操作員，選中某個具體的操作員后單擊“刪除”按鈕即可將其從系統(tǒng)中刪除。只有“系統(tǒng)管理員”才能刪除操作員，并且不能刪除當前操作員。“刪除操作員”窗體 frmUserDel 的設計界面如圖 53 所示，該窗體中各控件的屬性如表 52 所示。 52“刪除操作員”窗體運行效果 53 “刪除操作員”窗體設計界面 32 52“刪除操作員”窗體控件表 控件名稱 屬性 屬性值 控件名稱 屬性 屬性值 Form 名稱 frmUserDel CommandButton1 （刪除） 名稱 CmdDelUser Caption 刪除操作員 Caption 刪除 TreeView1（操作員） 名稱 TreeView1 Enabled False Image List（圖像列表） 名稱 Image List CommandButton2 （退出） 名稱 cmdExit Caption 退出 54 ImageList1 的屬性頁 33 55 TreeView1 的屬性頁 該窗體的代碼比較多，針對不同控件編寫了不同的代碼，下面詳細介紹這些代碼。 （ 1） 首先 定義一個模塊變量 strName，用來保存在 Tree View 控件中選中的用戶名。 Dim strName As String 39。保存在 TreeView 中選中的用戶名 （ 2） 編寫窗體的初始化代碼，從 sadmin 表中獲取系統(tǒng)所有操作員，并按不同權限分別添加到窗體的 Tree View 控件中，供用戶選擇進行刪除。具體代碼如下： 1. Private Sub Form_Load() 39。窗體裝載事件 2. Dim mynod As Node 39。節(jié)點對象 3. Dim strSQL As String 39。保存 SQL 語句 4. Dim rs As 39。記錄集 5. 39。清空樹型控件各節(jié)點 6. strSQL = SELECT * FROM [s_admin] WHERE [admin_right]=0 ORDER BY [admin_id] 39。獲取權限為 0 的用戶 7. Set rs = QueryExt(strSQL) 39。執(zhí)行 SQL 語句 8. If Not Then 39。若記錄集不為空 9. Set mynod = (, , Admin, 系統(tǒng)管理員 , 2, 2) 39。添加根節(jié)點 10. Do While Not 39。循環(huán)處理權限為 0 的用戶 11. Set mynod = (Admin, tvwChild, , rs!admin_name, 1, 1) 39。將用戶名添加到樹型控件中 12. 39。處理下一記錄 13. Loop 14. End If 15. 34 16. strSQL = SELECT * FROM [s_admin] WHERE [admin_right]=1 ORDER BY [admin_id] 39。獲取權限為 1 的用戶 17. Set rs = QueryExt(strSQL) 39。執(zhí)行 SQL 語句 18. If Not Then 39。若記錄集不為空 19. Set mynod = (, , PowerUser, 超級用戶 , 2, 2) 39。添加根節(jié)點 20. Do While Not 39。循環(huán)處理權限為 1 的用戶 21. Set mynod = (PowerUser, tvwChild, , rs!admin_name, 1, 1) 39。將用戶名添加到樹型控件中 22. 39。處理下一記錄 23. Loop 24. End If 25. 26. strSQL = SELECT * FROM [s_admin] WHERE [admin_right]=2 ORDER BY [admin_id] 39。獲取權限為 2 的用戶 27. Set rs = QueryExt(strSQL) 39。執(zhí)行 SQL 語句 28. If Not Then 39。若記錄集不為空 29. Set mynod = (, , User, 普通用戶 , 2, 2) 39。添加根節(jié)點 30. Do While Not 39。循環(huán)處理權限為 2 的用戶 31. Set mynod = (User, tvwChild, , rs!admin_name, 1, 1) 39。將用戶名添加到樹型控件中 32. 39。處理下一記錄 33. Loop 34. End If 35. End Sub ? 第 6~15 行獲取權限為 0（系統(tǒng)管理員）的所有操作員，并將其 添加到 Tree View 控件的“系統(tǒng)管理員”分組。 ? 第 16~25 行獲取權限為 1（系統(tǒng)管理員）的所有操作員，并將其添加到 Tree View 控件的“超級用戶”分組。 ? 第 26~34 行獲取權限為 2（系統(tǒng)管理員）的所有操作員，并將其添加到 Tree View 控件的“普通用戶”分組。 （ 3） 用戶單擊 TreeView1 控件的操作員，將根據當前用戶的權限判斷是否能刪除選擇的操作員，在 TreeView1 控件的 NodeClick 事件中編寫代碼，完成這些功能。具體代碼如下： 1. Private Sub TreeView1_NodeClick(ByVal Node As ) 39。樹型控件單擊事件 2. strName = 39。獲取單擊的文本 3. If Right = 0 Then 39。若為系統(tǒng)管理員 4. If strName And strName 系統(tǒng)管理員 And _ 5. strName 超級用戶 And strName 普通用戶 _ 6. And strName UserName And strName admin Then 7. = True 8. Exit Sub 35 9. End If 10. End If 11. = False 39。禁止“刪除”按