【正文】 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 strni = 0End SubPrivate Sub opt_no_Click() 39。Persist Security Info=False。 sql, n, adOpenKeyset, adLockPessimistic MsgBox 密碼修改成功，請牢記您的新密碼!, vbInformation, End If End If End If End IfEnd IfEnd SubPrivate Sub Form_Load()Dim strn As Stringstrn = 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 = ThenMsgBox 密碼不能為空, vbInformation, 密碼不能為空Else If = Then MsgBox 不能和原來的密碼一樣, vbInformation, 39。 sql, n, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒有這個用戶, vbExclamation + vbOKOnly, 沒有權(quán)限 Else If Trim((Password).Value) = Trim() Then MsgBox 恭喜，您可以開始修改密碼！新密碼的長度不能低于六位，建議您使用數(shù)字和字母的組合。 amp。未驗證權(quán)限則無權(quán)修改密碼Dim sql As StringDim rst_login As New If Trim() = ThenMsgBox 用戶名不能為空, vbExclamation + vbOKOnly, 沒有這個用戶Elsesql = select * from Operator where operator_name=39。對用戶行為進行確認(rèn)Unload MeElse Exit SubEnd IfEnd SubPrivate Sub cmd_check_Click() 39。用戶可以選擇輸入密碼的時候，新密碼是否可見，默認(rèn)為新密碼不可見。新密碼的長度不能低于6位。Data Source=Set n = New strni = 0End 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 Unload Me Else MsgBox 密碼不正確, vbExclamation + vbOKOnly, = End If End IfEnd Ifi = i + 1If i = 3 ThenUnload MeEnd IfExit SubEnd SubPrivate Sub Form_Load()Dim strn As Stringstrn = Provider=。 39。2000 查詢分析器執(zhí)行了上面的select * from Operator,發(fā)現(xiàn)不能執(zhí)行，換其他的表就沒有問題，然后我 39。 39。 amp。這一部分的代碼為：Option ExplicitPrivate Sub cmd_cancel_Click()Unload MeEnd SubPrivate Sub cmd_yes_Click()Dim sql As StringDim 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 SubErrorCheck: MsgBox 您可能沒有啟動SQL Server服務(wù), , 提示 Shell net start MSSQLServer MsgBox 啟動成功！, , 提示 GoTo aEnd SubPublic 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 用戶登錄為了保障系統(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 End IfEnd SubPublic Sub DB_ADD() Dim s As String On Error GoTo ErrorChecka: 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 ExplicitPublic conn As New Public reco As New Public reco2 As New Public conn_str1 As StringPublic conn_str2 As StringPublic constring As StringPublic n As Public rst_student As Public rst_course As