【導(dǎo)讀】管理制度的差異，高等院校的學(xué)生管理系統(tǒng)并不適合高職院校的實(shí)際需求。校對于一套針對高校的學(xué)生管理信息系統(tǒng)需求非常迫切。因此，比較適合于采用數(shù)據(jù)庫管理。且學(xué)校用于學(xué)生管理的微機(jī)都是PIII以上的機(jī)。器，在存儲量、速度方面都能滿足數(shù)據(jù)庫運(yùn)行的要求。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相。關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實(shí)現(xiàn)。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)。工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在VisualBasic環(huán)境下，利用事件驅(qū)

　　

【正文】 分） key: 課程號 選課表 SC（課程號，學(xué)號，成績，學(xué)分） key: 課程號，學(xué)號 開課表 KC（課程號，班級號，學(xué)期） key: 課程號，班級號 班級表 CC（班級號，班級名） key: 班級號 專業(yè)表 ZB (專業(yè)號，專業(yè)名 ) key: 專業(yè)號 總分表 CJ (學(xué)號，總分，學(xué)期 ) key: 學(xué)號，學(xué)期 學(xué)分表 XF (學(xué)號，所得學(xué)分 ) key: 學(xué)號 第四章 系統(tǒng)的主要界面與代碼 4． 1學(xué)生 管理 信息系統(tǒng)的歡迎界面和登陸界面 該模塊的主要功能就是：用戶運(yùn)行本系統(tǒng)軟件，進(jìn)入登陸窗體，輸入登陸身份，用 36 戶名和密碼，然后 登陸程序驗證用戶名和密碼，如果驗證通過，就加載主窗體，否則再重新登陸，如果連續(xù) 3次登陸失敗，系統(tǒng)就自動退出。 圖 11 歡迎界面 37 圖 12 老師登陸界面 圖 13 系統(tǒng)登入 后主 界面 38 進(jìn)入本系統(tǒng)后， “確定 ”按鈕的源程序如下： Private Sub OKCmd_Click() Dim IsUser As Boolean “△ 用戶是否存在 /n” Dim Pwd As String Dim Uname As String Static count As Integer “△ 記錄輸入口令次數(shù) /n” Pwd = Trim() Uname = Trim() IsUser = False 39。比對用戶名稱和口令的正確與否 Do While Not If Uname = (0) Then 39。當(dāng)用戶名和當(dāng)前記錄名稱相同時的 處理： If Pwd = (1) Then If = (2) Then If = 老師 Then 39。如果口令輸入正確和登陸身份一致 ， 卸載本窗體 ， 加載主窗體 FLag = True With MainMDI . = True . = True . = True . = True End With Else FLag = False End If Unload Me Exit Sub Else 39。如果口令輸入錯誤 ， 給出提示信息 If count 2 Then 39 MsgBox 口令錯誤 ， 請重新輸入 = End If IsUser = True 39。標(biāo)志為合法用戶 Exit Do End If End If End If 39。移動到下一條記錄 Loop count = count + 1 39。輸入口令次數(shù)加 1 39。輸入三次口令 ， 且口令錯誤 ， 退出程序 If count = 3 Then MsgBox 非法用戶，不能使用本系統(tǒng) End End If 39。如果沒有此用戶 ， 顯示提示信息 If Not IsUser Then MsgBox 無此用戶 ， 請重新登錄 = End If 39。移動到第一條記錄 End Sub “重置 ”按鈕源程序代碼如下 ： Private Sub AfreshCmd_Click() 39。初始化 = LogCmb2 = LogCmb1 = End Sub “退出 ”按鈕源程序代碼如下： 40 Private Sub QuitCmd_Click() 39。退出系統(tǒng) Unload Me End Sub ..................................... 39。判斷用戶輸入的名稱和口令是否合法 ,首先判斷輸入的用戶名是否存在，如果不存在，給出提示如果用戶名存在，判斷輸入口令是否正確，如果錯誤，給出提示 ,如果用戶名和口令輸入正確，卸載本窗體，否則，判斷是否用完三次機(jī)會，并給出相應(yīng)提示。 4． 2學(xué)生 管理 信息系統(tǒng) 其它 管理 界面 和代碼 4． 2． 1課程管理 界面 ： 該模塊具有管理班級排課和學(xué)生選課的功能 ： 圖 14 選課登記圖 Private Sub Combo1_Change() If Len() = 5 Then 41 Set ados1 = New Recordset select 課程名 from CB where 課程號 = amp。 39。 amp。 amp。 39。, db, adOpenStatic, adLockOptimistic Set = ados1 = 課程名 End If End Sub Private Sub Combo1_Click() Set ados1 = New Recordset select 課程名 from CB where 課程號 = amp。 39。 amp。 amp。 39。, db, adOpenStatic, adLockOptimistic Set = ados1 = 課程名 End Sub Private Sub Form_Load() Set db = New Connection = adUseClient provider=。 _ amp。 Data Source= amp。 DBStr Set adoPrimaryRS = New Recordset select 課程號 ,學(xué)號 ,類型 ,成績 ,學(xué)分 from SC where 類型=39。選修 39。 Order by 課程號 , db, adOpenStatic, adLockOptimistic Dim oText As TextBox 39。綁定文本框到數(shù)據(jù)提供者 For Each oText In Set = adoPrimaryRS Next Set = adoPrimaryRS Set = adoPrimaryRS mbDataChanged = False Call T_L(txtFields) End Sub 42 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If mbEditFlag Or mbAddNewFlag Then Exit Sub Select Case KeyCode Case vbKeyEscape cmdClose_Click Case vbKeyEnd cmdLast_Click Case vbKeyHome cmdFirst_Click Case vbKeyUp, vbKeyPageUp If Shift = vbCtrlMask Then cmdFirst_Click Else cmdPrevious_Click End If Case vbKeyDown, vbKeyPageDown If Shift = vbCtrlMask Then cmdLast_Click Else cmdNext_Click End If End Select End Sub Private Sub Form_Unload(Cancel As Integer) = vbDefault Call E_T End Sub Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 39。為這個 recordset 顯示當(dāng)前記錄位置 = Record: amp。 CStr() End Sub Private Sub adoPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。驗證代碼置于此處 39。下列動作發(fā)生時該事件被調(diào)用 Dim bCancel As Boolean 43 Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr = True Call T_NL(txtFields) 39。對文本框解鎖，使之能被編輯 = False 39。對組合框解鎖 Stu = True With adoPrimaryRS If Not (.BOF And .EOF) Then mvBookMark = .Bookmark End If .AddNew = 添加記錄 mbAddNewFlag = True SetButtons False End With Exit Sub AddErr: MsgBox End Sub Private Sub cmdDelete_Click() Dim r As Integer r = MsgBox(確定要刪除此記錄嗎？ , 33, 警告 ) If r = 1 Then 44 On Error GoTo DeleteErr With adoPrimaryRS .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox End If End Sub Private Sub cmdRefresh_Click() 39。只有多用戶應(yīng)用程序需要 On Error GoTo RefreshErr Exit Sub RefreshErr: MsgBox End Sub Private Sub cmdEdit_Click() On Error GoTo EditErr = True Call T_NL(txtFields) 39。對文本框解鎖，使之能被編輯 = False Stu = True = 編輯記錄 mbEditFlag = True SetButtons False Exit Sub EditErr: MsgB