【正文】 Then Else MsgBox 每次只能打開一個窗口，請關(guān)閉正在打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ End If End Sub Private Sub cs_Click() If mdi = True Then Else MsgBox 每次只能打開一個窗口，請關(guān)閉正在打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ End If End Sub Private Sub exit_Click() If mdi = False Then MsgBox 請保存數(shù)據(jù)！ , vbInformation, 不允許當(dāng)前操作！ Else End End If End Sub Private Sub kecheng_Click() If mdi = True Then Else MsgBox 每次只能打開一個窗口，請關(guān)閉正在打開的窗口！ , vbInformation, 不允許當(dāng)前操作！ End If End Sub Private Sub MDIForm_Load() = 今天是 amp。Data Source=. = 30 End Sub （ 2） 用戶 登錄代碼 Private Sub XPButton1_Click() On Error GoTo finish user = Set mdbrs = (select * from 登錄 where 用戶名 =39。Integrated Security=SSPI。 amp。 Day(Date) amp。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 (2) amp。 39。 39。 39。 39。 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 當(dāng)前操作者 : amp。 39。Initial Catalog=StudentMIS。Persist Security Info=False。 amp。 日 , 歡迎您使用學(xué)生成績管理系統(tǒng) ! amp。) 15 If = True Then Set mdbrs = (insert into 登錄 values(39。,39。,權(quán)限 =39。) Next MsgBox 修改的數(shù)據(jù)己經(jīng)完成 , vbInformation, 完成操作 Call callmain Exit Sub finish: MsgBox End Sub Private Sub XPButton4_Click() On Error GoTo finish Dim i As Integer If griddelete = False Then MsgBox 當(dāng)前刪除操作不被允許 !, vbInformation, 非使用對象 Exit Sub End If If hang = 0 Then MsgBox 沒有選擇用戶或者沒有用戶可以刪除 !, vbInformation, 非使用對象 Exit Sub End If i = MsgBox(確認刪除此記錄嗎？ , 4, 刪除學(xué)生 ) If i = 6 Then Set mdbrs = (delete from 登錄 where 用戶名 =39。) If = True Then Set mdbrs = (insert into 學(xué)生信息 values(39。,39。,39。,39。,39。,39。,39。,班級 =39。,出生日期 =39。,籍貫=39。,政治面貌 =39。,院系 =39。,身份證號 =39。) Next MsgBox 修改的數(shù)據(jù)己經(jīng)完成 , vbInformation, 完成操作 Call callmain Exit Sub finish: MsgBox End Sub Private Sub XPButton4_Click() On Error GoTo finish Dim i As Integer If griddelete1 = False Then MsgBox 當(dāng)前修改 操作不被允許 !, vbInformation, 非使用對象 Exit Sub End If If hang = 0 Then MsgBox 沒有選擇學(xué)生或者沒有學(xué)生可以刪除 !, vbInformation, 非使用對象 Exit Sub End If Set mdbrs = (select * from 學(xué)生信息 where 學(xué)號 =39。 的學(xué)生嗎 ?, 4, 刪除學(xué)生 ) If i = 6 Then Set mdbrs = (delete from 學(xué)生信息 where 學(xué)號 =39。 Set mdbrs = (str) Call callmain Exit Sub finish: End Sub Private Sub XPButton2_Click() Unload Me End Sub （ 7）班級管理代碼 Dim gridsave2 As Boolean Dim gridedit2 As Boolean Dim griddelete2 As Boolean Private Sub Form_Load() = ( ) / 2 = ( ) / 20 On Error GoTo finish mdi = False CNwinndy, W]vyYnonvku\ntyZbl_e`hms^ With Grid1 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = Trues .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat . = Tahoma . = 8 .BackColorFixed = RGB(84, 201, 134) .BackColorFixedSel = RGB(167, 111, 177) .BackColorBkg = RGB(198, 229, 211) .BackColorScrollBar = RGB(150, 170, 210) .BackColor1 = RGB(231, 235, 247) .BackColor2 = RGB(198, 229, 211) .GridColor = RGB(148, 190, 231) .Column(0).Width = 0 .Column(1).Width = 120 .Column(2).Width = 118 .Column(3).Width = 120 End With Call callmain gridsave2 = False gridedit2 = True griddelete2 = True Exit Sub finish: MsgBox End Sub Private Sub Form_Unload(Cancel As Integer) mdi = True End Sub Private Sub callmain() 22 On Error GoTo finish gridsave2 = False gridedit2 = True griddelete2 = True Set mdbrs = (select * from 班級 ) = 1 i = 3 = i + 1 For i = 0 To 2 (0, i + 1).Text = (i).Name Next i = 1 Do While Not = + 1 For j = 1 To 3 If (j 1) = Null Then (i, j).Text = Else (i, j).Text = (j 1) End If Next i = i + 1 Loop (1).Locked = True Exit Sub finish: MsgBox End Sub Private Sub XPButton1_Click() On Error GoTo finish gridsave2 = True gridedit2 = False griddelete2 = False Set mdbrs = (select * from 班級 ) = 1 = 2 (1).Locked = False (1, 1).SetFocus Exit Sub finish: MsgBox End Sub Private Sub XPButton2_Click() On Error GoTo finish If gridsave2 = False Then MsgBox 不支持保存操作！ , vbInformation, 當(dāng)前 不支持 Exit Sub End If If (1, 1).Text And (1, 2).Text And (1, 3).Text Then Set mdbrs = (select * from 班級 where 班級名稱 =39。,39。)) MsgBox 提交成功！ , vbInformation, Call callmain Else MsgBox 該班級己存在！ , vbInformation, 不可重名 Exit Sub End If Else MsgBox 班級名稱 ,班級輔導(dǎo)員和所屬系別都不可以是空格！ , vbInformation, 錯誤提示 23 End If Exit Sub finish: MsgBox End Sub Private Sub XPButton3_Click() On Error GoTo finish If gridedit2 = False Then MsgBox 當(dāng)前修改操作不被允許 !, vbInformation, 非使用對象 Exit Sub End If For i = 1 To 1 Set mdbrs = (update 班級 set 班級輔導(dǎo)員 =39。 where 班級名稱 =39。) MsgBox 目標己刪除 ,請刷新數(shù)據(jù) !, vbInformation, 刪除成功 Call callmain Else MsgBox 目標沒有刪除 !, vbInformation, 刪除失敗 End If Exit Sub finish: MsgBox End Sub Private Sub XPButton5_Click() Unload Me End Sub Private Sub Grid1_RowColChange(ByVal Row As Long, ByVal Col As Long) hang = Row End Sub （ 8）課程 管理代碼 Dim gridsave3 As Boolean Dim gridedit3 As Boolean Dim griddelete3 As Boolean Private Sub Form_Load() = ( ) / 2 = ( ) / 20 On Error GoTo finish mdi = False CNwinndy, W]vyYnonvku\ntyZbl_e`hms^ 24 With Grid1 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = Trues .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat . = Tahoma . = 8 .BackColorFixed = RGB(84, 201, 134) .BackColorFixedSel = RGB(167, 111, 177) .BackColorBkg = RGB(198, 229, 211) .BackColorScrollBar = RGB(150, 170, 210) .BackColor1 = RGB(231, 235, 247