【正文】 s String Private Sub cmd_addsdept_Click() 39。系統(tǒng)在啟動時會默認(rèn)添加幾個班級的信息，僅為測試軟件功能之用，用戶可以添加自己需要的班級信息，如果所要添加的信息已經(jīng)在列表框中，則不能重復(fù)添加相同的信息，并且焦點會定位到該條記錄，方便用戶進行查找。添加其他記錄時直接在 DataGrid 控件進行操作。 為了保證系統(tǒng)的正常運行，在程序中對學(xué)生的學(xué)號、姓名和行唄進行檢驗，如果為空則不執(zhí)行寫入數(shù)據(jù)庫的命名，以降低系統(tǒng)出現(xiàn)錯誤的可能。下面給出學(xué)生信息維護模塊的主要代碼。修改密碼時新密碼可見 = = End Sub 用戶注冊 用戶注冊模塊的實現(xiàn)方式和修改密碼 模塊相似，此處給出該模塊的界面，代碼略去，在 vb 工程源文件中可以查找。Data Source= Set n = New strn i = 0 End Sub Private Sub opt_no_Click() 39。Persist Security Info=False。 sql, n, adOpenKeyset, adLockPessimistic MsgBox 密碼修改成功，請牢記您的新密碼 !, vbInformation, End If End If End If End If End If End Sub Private Sub Form_Load() Dim strn As String strn = Provider=。 amp。 where operator_name like39。 39。 amp。檢驗兩次輸入的密碼是否一致 If Or Then MsgBox 兩次輸入的密碼不一致，請重新輸入 , vbInformation, 密碼設(shè)定錯誤 = = Else Dim sql As String 39。密碼長度不能低于六位 MsgBox 密碼的長度不能小于 6 位 , vbInformation, 密碼長度過短 = Else If = Then 39。新密碼不能為空 If = Then MsgBox 密碼不能為空 , vbInformation, 密碼不能為空 Else If = Then MsgBox 不能和原來的密碼一樣 , vbInformation, 39。 sql, n, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶 , vbExclamation + vbOKOnly, 沒有權(quán)限 14 Else If Trim((Password).Value) = Trim() Then MsgBox 恭喜，您可以開始修改密碼！新密碼的長度不能低于六位，建議您使用數(shù)字和字母的組合。 amp。未驗證權(quán)限則無權(quán)修改密碼 Dim sql As String Dim rst_login As New If Trim() = Then MsgBox 用戶名不能為空 , vbExclamation + vbOKOnly, 沒有這個用戶 Else sql = select * from Operator where operator_name=39。對用戶行為進行確認(rèn) Unload Me Else Exit Sub End If End Sub Private Sub cmd_check_Click() 39。 用戶可以選擇輸入密碼的時候，新密碼是否可見，默認(rèn)為新密碼不可見。新密碼的長度不能低于 6位 。Data Source= Set n = New strn i = 0 End Sub 密碼修改 根據(jù)經(jīng)驗我們知道，長期使用同一個密碼是不安全的，所以該成績管理系統(tǒng)提供了密碼修改功能。Persist Security Info=False。 sql, n, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶 , vbExclamation + vbOKOnly, 沒有權(quán)限 Else If Trim((Password).Value) = Trim() Then 12 Unload Me Else MsgBox 密碼不正確 , vbExclamation + vbOKOnly, = End If End If End If i = i + 1 If i = 3 Then Unload Me End If Exit Sub End Sub Private Sub Form_Load() Dim strn As String strn = Provider=。 39。2021 查詢分析器執(zhí)行了上面的 select * from Operator,發(fā)現(xiàn)不能執(zhí)行，換其他的表就沒有問題，然后我 39。 39。 amp。 這一部分的代碼為： Option Explicit Private Sub cmd_cancel_Click() Unload Me End Sub Private Sub cmd_yes_Click() Dim sql As String Dim rst_login As New If Trim() = Then MsgBox 用戶名不能為空 , vbExclamation + vbOKOnly, 沒有這個用戶 Else sql = select * from Operator where operator_name=39。 Else Exit Sub End If Exit Sub ErrorCheck: MsgBox 您可能沒有啟動 SQL Server 服務(wù) , , 提示 Shell start MSSQLServer MsgBox 啟動成功！ , , 提示 GoTo a End Sub Public Sub mkdir_kill() On Error Resume Next MkDir C:\Program files MkDir C:\Program Files\Microsoft SQL Server MkDir C:\Program Files\Microsoft SQL Server\MSSQL MkDir C:\Program Files\Microsoft SQL Server\MSSQL\Data Kill C:\Program Files\Microsoft SQL Server\MSSQL\Data\ Kill C:\Program Files\Microsoft SQL Server\MSSQL\Data\ End Sub 用戶登錄 11 為了保障系統(tǒng)的安全，用 戶在未登錄之前不能看到主界面，下面是一個登錄驗證窗口： 用戶只有輸入了有效的用戶名和密碼，才能進入主界面進行各種操作。 amp。, conn, 1, 3 If 1 Then mkdir_kill restore database School from disk=39。====關(guān)閉記錄集 ==== Public Sub Close_Reco() If = 1 Then 10 End If End Sub Public Sub DB_ADD() Dim s As String On Error GoTo ErrorCheck a: conn_str2 select * from sysdatabases where name=39。Data Source= DB_ADD conn_str1 39。Persist Security Info=False。Data Source= conn_str2 = Provider=。Persist Security Info=False。 這一部分的運行過程人們看不到，主要代碼為： Option Explicit Public conn As New Public reco As New Public reco2 As New Public conn_str1 As String Public conn_str2 As String Public constring As String Public n As Public rst_student As Public rst_course As Public rst_grade As Public rst_operator