【正文】 End SubPrivate Sub Form_Load() 39。停留在該單位上sdept = InputBox(請輸入你要添加的學院或班級的名稱, 添加班級名稱, )For i = 0 To 1If (i) = sdept ThenMsgBox 您所輸入的班級已在列表中，不能重復添加！, vbExclamation + vbOKOnly, (i) = Truepermission = False 39。系統(tǒng)在啟動時會默認添加幾個班級的信息，僅為測試軟件功能之用，用戶可以添加自己需要的班級信息，如果所要添加的信息已經(jīng)在列表框中，則不能重復添加相同的信息，并且焦點會定位到該條記錄，方便用戶進行查找。修改密碼時新密碼可見 = = End Sub 用戶注冊用戶注冊模塊的實現(xiàn)方式和修改密碼模塊相似，此處給出該模塊的界面，代碼略去，在vb工程源文件中可以查找。 amp。檢驗兩次輸入的密碼是否一致 If Or Then MsgBox 兩次輸入的密碼不一致，請重新輸入, vbInformation, 密碼設定錯誤 = = Else Dim sql As String 39。 amp。新密碼的長度不能低于6位。 39。這一部分的代碼為：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。====關閉記錄集====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。Persist Security Info=False。錄入學生信息End SubPrivate Sub studentmodify_Click() 39。課程查詢End SubPrivate Sub Coursetype_Click() 39。本數(shù)據(jù)庫采用SQL Server2000來構(gòu)造，數(shù)據(jù)庫名稱為School，共使用了8個表，它們分別是用戶信息表（Operator）、學生信息表（Student）、學生成績表（SC）、教師信息表（Teacher）、課程信息表（Course）、課程類型表（Type）、部門信息表（Sdept）、班級信息表（Class）。設計內(nèi)容為管理員登錄該系統(tǒng)進行七個模塊操作：1）、學生基本情況維護：增加、修改、刪除、報表、查詢（按學號、姓名、性別、班級、家庭住址、生日）2）、教師基本情況維護：增加、修改、刪除、報表、查詢（按教師編號、教師姓名、部門編號、學歷、職稱、家庭住址、性別）3）、學生成績維護：增加、修改、刪除、報表、查詢（按學號、專業(yè)）4）、部門信息維護：增加、修改、刪除、報表、查詢（按部門編號、部門名稱）5）、課程信息維護：增加、修改、刪除、報表、查詢（按課程編號、課程名稱、學時、類型）6）、課程類型維護：增加、修改、刪除、報表、查詢（按編號、名稱）7）、用戶信息維護：重新登錄、修改密碼、用戶注冊 數(shù)據(jù)庫設計在系統(tǒng)設計過程中，首先要建立的就是數(shù)據(jù)庫。課程設置End SubPrivate Sub coursequery_Click() 39。通過學生查詢成績End SubPrivate Sub readme_Click() ‘使用須知End SubPrivate Sub register_Click() ‘用戶注冊End SubPrivate Sub sdeptset_Click() ‘部門管理End SubPrivate Sub studentadd_Click() 39。Integrated Security=SSPI。連接到數(shù)據(jù)庫End Sub39。為了增強系統(tǒng)的安全性，系統(tǒng)對用戶輸錯密碼的次數(shù)進行了限制，如果用戶連續(xù)三次輸入密碼錯誤，則登錄界面將關閉，用戶必須重新運行軟件才能繼續(xù)登錄。了幾個表，發(fā)現(xiàn)是Operator表沒有設置主鍵，所以出錯了，然后我設置了主鍵，問題就解決了。為了保證系統(tǒng)的安全，雖然用戶已經(jīng)登錄，但是必須再次輸入用戶名和密碼，驗證用戶的權限，才能修改密碼。 amp。檢查是否輸入了確認密碼 MsgBox 請輸入確認密碼, vbInformation, Else 39。 amp。修改密碼時新密碼不可見 = * = *End SubPrivate Sub opt_yes_Click() 39。下面是添加學生信息模塊的界面：這一部分的代碼為：考慮到在實際操作過程中可能會連續(xù)甚至大量添加屬于同一班級同學的信息，所以此處添加班級信息選擇了列表框單擊選擇的方式。的單位已經(jīng)在列表框中，則不再重復添加，并將焦點 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。 amp。比如要查詢一個學生的選課信息，可以再成績信息中按學號查找記錄，要查找某一門課程的選課信息，可以再成績表中按課程號進行信息查找。雖然在DataGrid1可以直接添加學生記錄，但是容易出 _ 現(xiàn)錯誤，浪費時間并造成不必要的麻煩，所以此處仍 _ 默認調(diào)用frm_studentadd窗口添加記錄。將刪除一條記錄，如果選擇“否”，將取消操作opt = MsgBox(你確定要刪除嗎？, vbYesNo, )If opt = vbYes Then = TrueMsgBox 刪除成功, vbExclamation + vbOKOnly, = FalseElse Exit SubEnd Ifdeleror:If 0 ThenMsgBox End IfEnd SubPrivate Sub cmd_refresh_Click() 39。Unload Me39。查詢Dim rs_findstudent As New Dim sql As String 39。 39。%39。%39。 39。 39。 39。 39。 sql3 amp。建議不要采用ＳＱＬ查詢，避免出現(xiàn)不必要的錯誤Dim rs_findstudent As New 39。不可刪除 = False 39。 strline amp。我以為是Win 7 系統(tǒng)的問題，于是把 服務器的名稱改為DELLPC，程序又可以正常運行了。 如果單擊“確定“，系統(tǒng)將自動啟動SQL Server服務，如下圖所示：安裝程序時數(shù)據(jù)庫的初始化和在程序中啟動MSSQLSERVER 服務。第五章 參考資料 Basic 程序設計 張艷 清華大學出版社 賀利堅 北京希望電子出版社 +SQL 學生管理系統(tǒng) 楊茂科 貴州師范大學職業(yè)技術學院33