【正文】 _Click() 39。添加教師信息End SubPrivate Sub teachermodify_Click() 39。查詢教師信息End Sub‘選擇ToolBar上每個按鈕的關鍵字Private Sub Toolbar1_ButtonClick(ByVal Button As )Select Case Case password Case student Case grade Case teacher Case class Case course Case sdept Case help Case exit Unload Me End SelectEnd Sub 全局變量設置 程序編寫過程中需要用到一些全局變量，并且軟件的啟動從Sub Main 過程開始，這一過程包含了軟件的初始化，School 數(shù)據(jù)庫的恢復。Integrated Security=SSPI。Initial Catalog=School。Integrated Security=SSPI。Initial Catalog=master。連接到數(shù)據(jù)庫End Sub39。School39。 amp。 \backup\School39。為了增強系統(tǒng)的安全性，系統(tǒng)對用戶輸錯密碼的次數(shù)進行了限制，如果用戶連續(xù)三次輸入密碼錯誤，則登錄界面將關閉，用戶必須重新運行軟件才能繼續(xù)登錄。 amp。 39。在這個地方遇到了問題，執(zhí)行到下一句總是出錯，也看不出來是什么問題，想了很久之后我在SQL Server 39。了幾個表，發(fā)現(xiàn)是Operator表沒有設置主鍵，所以出錯了，然后我設置了主鍵，問題就解決了。所以，對數(shù)據(jù)庫中的每一個表都設置主鍵是很有必要的。Integrated Security=SSPI。Initial Catalog=School。為了保證系統(tǒng)的安全，雖然用戶已經(jīng)登錄，但是必須再次輸入用戶名和密碼，驗證用戶的權限，才能修改密碼?？梢允菙?shù)字、字母和特殊字符的組合，且不能和原來的密碼一樣。下面是修改密碼窗體frm_psdmodify的界面：這一部分的代碼為：Option ExplicitPrivate Sub cmd_cancel_Click()Dim opt As Stringopt = MsgBox(您確定要退出修改密碼嗎？, vbYesNo, )If opt = vbYes Then 39。再次驗證用戶權限，保障系統(tǒng)安全 39。 amp。 39。, vbInformation, = True Else MsgBox 密碼不正確, vbExclamation + vbOKOnly, = End If End IfEnd IfEnd SubPrivate Sub cmd_yes_Click()Dim sql1 As StringDim rst_psd As New 39。密碼不能和原來的密碼一樣 = = Else If Len() 6 Then 39。檢查是否輸入了確認密碼 MsgBox 請輸入確認密碼, vbInformation, Else 39。設置新的用戶密碼 Dim rst_login As New sql = update Operator set password=39。 amp。 sql = sql amp。 amp。 39。Integrated Security=SSPI。Initial Catalog=School。修改密碼時新密碼不可見 = * = *End SubPrivate Sub opt_yes_Click() 39。下面是用戶注冊界面：第三章 信息維護無論是學生信息教師信息，還是班級信息課程信息，他們的添加、修改、查詢、刪除，功能和實現(xiàn)方式都是相似的。 添加學生記錄 控件向SQL 2000 數(shù)據(jù)庫中寫入記錄。與課程信息、部門信息或班級信息相比，添加學生信息和教師信息要復雜的多，所以這兩項分別提供了單獨的添加記錄窗口，方便用戶進行操作，也保障了用戶的安全。下面是添加學生信息模塊的界面：這一部分的代碼為：考慮到在實際操作過程中可能會連續(xù)甚至大量添加屬于同一班級同學的信息，所以此處添加班級信息選擇了列表框單擊選擇的方式。此處添加班級信息采用了InputBox 函數(shù)，方便靈活，增強了程序的趣味性。添加學生所屬的院系和班級時，采用列表框選擇的方 39。少輸入錯誤Dim sdept As StringDim i As IntegerDim permission As Booleanpermission = True 39。的單位已經(jīng)在列表框中，則不再重復添加，并將焦點 39。要添加的單位已經(jīng)在列表框中，不允許再次重復添加End IfNext iIf permission = True Then sdept MsgBox 添加成功！, vbInformation, End IfEnd SubPrivate Sub cmd_clear_Click() 39?？焖偾宄弦淮屋斎氲臄?shù)據(jù) = = = = = = False = FalseEnd SubPrivate Sub cmd_exit_Click()Unload MeEnd SubPrivate Sub cmd_yes_Click() 39。必須輸入項，所以寫入數(shù)據(jù)之前要進行判斷，考慮到 39。Dim rst_add As New Dim sql As Stringsql = select* from Student sql, n, adOpenDynamic, adLockPessimisticIf = ThenMsgBox 學號不能為空, vbInformation, Else If Len() 10 Then MsgBox 學號的長度不能大于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ù)量較少 39。功能 測繪116班 水文112班 英語112班End Sub各個模塊信息查找的功能都是相似的，下面繼續(xù)以學生信息模塊為代表，給出這一模塊的界面和主要實現(xiàn)代碼:考慮到查找關鍵字的實用性，系統(tǒng)提供了SQL 語言查詢功能和便于操作的按學號、姓名、性別、班級、生日、家庭住址查找的功能，雖然也可以實現(xiàn)通過電話號碼和簡歷查找的功能，但是這樣做的實用性似乎并不大。為了增強查詢功能，考慮到實際使用的需要，我們有時可能會查找全部姓張的學生，或者家庭住址都是河南省的學生，也或者出生在1992年2月的學生的記錄，或者同在某一個班級的學生的記錄。 amp。 % amp。 39。%39。比如要查詢一個學生的選課信息，可以再成績信息中按學號查找記錄，要查找某一門課程的選課信息，可以再成績表中按課程號進行信息查找。下面是這一部分的界面，由于紙張?zhí)?，您看到的界面可能不太清楚，軟件運行時您可以看到更加直觀清晰的界面。添加一條記錄 = True = True‘此處為了保證系統(tǒng)的安全，用戶在將一條新的有效的記錄寫入到數(shù)據(jù)庫之前，不能再添加新的空白的記錄，因為數(shù)據(jù)庫中主鍵的約束不允許添加空白的記錄，而添加空白記錄本身也沒有意義。在新數(shù)據(jù)存入數(shù)據(jù)庫之前，或者取消添加一條記錄之前 39。雖然在DataGrid1可以直接添加學生記錄，但是容易出 _ 現(xiàn)錯誤，浪費時間并造成不必要的麻煩，