【文章內(nèi)容簡介】 ick() Dim sql1 As String Dim rst_psd As New 39。新密碼不能為空 If = Then MsgBox 密碼不能為空 , vbInformation, 密碼不能為空 Else If = Then MsgBox 不能和原來的密碼一樣 , vbInformation, 39。密碼不能和原來的密碼一樣 = = Else If Len() 6 Then 39。密碼長度不能低于六位 MsgBox 密碼的長度不能小于 6 位 , vbInformation, 密碼長度過短 = Else If = Then 39。檢查是否輸入了確認(rèn)密碼 MsgBox 請輸入確認(rèn)密碼 , vbInformation, 15 Else 39。檢驗兩次輸入的密碼是否一致 If Or Then MsgBox 兩次輸入的密碼不一致，請重新輸入 , vbInformation, 密碼設(shè)定錯誤 = = Else Dim sql As String 39。設(shè)置新的用戶密碼 Dim rst_login As New sql = update Operator set password=39。 amp。 amp。 39。 sql = sql amp。 where operator_name like39。 amp。 amp。 39。 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=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=School。Data Source= Set n = New strn i = 0 End Sub Private Sub opt_no_Click() 39。修改密碼時新密碼不可見 = * = * End Sub 16 Private Sub opt_yes_Click() 39。修改密碼時新密碼可見 = = End Sub 用戶注冊 用戶注冊模塊的實現(xiàn)方式和修改密碼 模塊相似，此處給出該模塊的界面，代碼略去，在 vb 工程源文件中可以查找。 下面是用戶注冊界面： 第三章 信息維護 無論是學(xué)生信息教師信息，還是班級信息課程信息，他們的添加、修改、查詢、刪除，功能和實現(xiàn)方式都是相似的。下面給出學(xué)生信息維護模塊的主要代碼。 添加學(xué)生記錄 此模塊使用 控件向 SQL 2021 數(shù)據(jù)庫中寫入記錄。 為了保證系統(tǒng)的正常運行，在程序中對學(xué)生的學(xué)號、姓名和行唄進行檢驗，如果為空則不執(zhí)行寫入數(shù)據(jù)庫的命名，以降低系統(tǒng)出現(xiàn)錯誤的可能。 17 與課程信息、部門信息或班級信息相比，添加學(xué)生信息和教師信息要復(fù)雜的多，所以這兩項分別提供了單獨的添加記錄窗口，方便用戶進行操作，也保 障了用戶的安全。添加其他記錄時直接在 DataGrid 控件進行操作。 下面是添加學(xué)生信息模塊的界面： 這一部分的代碼為： 考慮到在實際操作過程中可能會連續(xù)甚至大量添加屬于同一班級同學(xué)的信息，所以此處添加班級信息選擇了列表框單擊選擇的方式。系統(tǒng)在啟動時會默認(rèn)添加幾個班級的信息，僅為測試軟件功能之用，用戶可以添加自己需要的班級信息，如果所要添加的信息已經(jīng)在列表框中，則不能重復(fù)添加相同的信息，并且焦點會定位到該條記錄，方便用戶進行查找。 此處添加班級信息采用了 InputBox 函數(shù)，方便靈活，增強了程序的趣味性。 Option Explicit Dim ssex As String Private Sub cmd_addsdept_Click() 39。添加學(xué)生所屬的院系和班級時，采用列表框選擇的方 39。式，這樣一個班級只需輸入一次，可以節(jié)省時間，減 39。少輸入錯誤 Dim sdept As String 18 Dim i As Integer Dim permission As Boolean permission = True 39。用對話框輸入要添加的班級和學(xué)院的名稱，如果要添 39。的單位已經(jīng)在列表框中，則不再重復(fù)添加，并將焦點 39。停留在該單位上 sdept = InputBox(請輸入你要添加的學(xué)院或班級的名稱 , 添加班級名稱 , ) For i = 0 To 1 If (i) = sdept Then MsgBox 您所輸入的班級已在列表中，不能重復(fù)添加！ , vbExclamation + vbOKOnly, (i) = True permission = False 39。要添加的單位已經(jīng)在列表框中，不允許再次重復(fù)添加 End If Next i If permission = True Then sdept MsgBox 添加成功！ , vbInformation, End If End Sub Private Sub cmd_clear_Click() 39。再次添加一條記錄時，可以點擊“清除”按鈕， = 39。快速清除上一次輸入的數(shù)據(jù) = = = = = = False = False End Sub Private Sub cmd_exit_Click() Unload Me End Sub Private Sub cmd_yes_Click() 39。添加學(xué)生記錄的主要操作，因為學(xué)號、姓 19 名和性別為 39。必須輸入項，所以寫入數(shù)據(jù)之前要進行判斷，考 慮到 39。實際情況，學(xué)號不會過長，所以設(shè)最大長度為 10 位。 Dim rst_add As New Dim sql As String sql = select* from Student sql, n, adOpenDynamic, adLockPessimistic If = Then MsgBox 學(xué)號不能為空 , vbInformation, Else If Len() 10 Then MsgBox 學(xué)號的長度不能大于 10 位 , vbExclamation + vbOKOnly, Else If txt_sname = Then MsgBox 姓名不能為空 , vbInformation, Else If = False And opt_girl = False Then MsgBox 請選擇男生或是女生 , vbInformation, Else If = True Then ssex = 男 Else ssex = 女 End If 39。完成數(shù)據(jù)的檢驗以后，向 SQL數(shù)據(jù)庫中寫入數(shù)據(jù) (Sno) = Trim() (Sname) = Trim() (Ssex) = ssex (Sbirth) = Trim() (Sclass) = () (Saddress) = Trim() (Sphone) = Trim() (Sresume) = Trim()