【導(dǎo)讀】數(shù)據(jù)流及文件說明：。系統(tǒng)管理交給管理者。成績查詢交給學(xué)生。接收申請查詢信息打印成績表。課表信息、課程表：班號，課號，教師號，教室號，上課時間，開始時間，結(jié)束時間。系=系號+系名+系主任+定+電話號碼。數(shù)據(jù)項名類型長度（字節(jié)）取值范圍。性別字符2“男”或“女”。身份證號碼字符20. 二．概念模型設(shè)計。三．邏輯結(jié)構(gòu)設(shè)計。、關(guān)系之間的聯(lián)系、關(guān)鍵字。字段數(shù)據(jù)類型字段大小必填字段允許為空約束

　　

【正文】 o finish mdi = False 20 str = select * from 學(xué)生信息 CNwinndy, W]vyYnonvku\ntyZbl_e`hms^ = 14 (1).Width = 120 (2).Width = 100 (3).Width = 80 (4).Width = 40 (5).Width = 80 (6).Width = 30 (7).Width = 50 (8).Width = 80 (9).Width = 60 (10).Width = 80 (11).Width = 100 (12).Width = 100 (13).Width = 100 With Grid1 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .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 End With Exit Sub finish: MsgBox End Sub Private Sub Form_Unload(Cancel As Integer) mdi = True End Sub Private Sub callmain() On Error GoTo finish = 1 i = 13 = i + 1 For i = 0 To 12 (0, i + 1).Text = (i).Name Next i = 1 Do While Not = + 1 For j = 1 To 13 If (j 1) = Null Then (i, j).Text = Else (i, j).Text = (j 1) End If Next i = i + 1 Loop For i = 1 To 13 (i).Locked = True Next 21 Exit Sub finish: MsgBox End Sub Private Sub XPButton1_Click() On Error GoTo finish str = str = select * from 學(xué)生信息 where 名字 =39。 amp。 str amp。 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。 amp。 (1, 1).Text amp。 39。) If = True Then Set mdbrs = (insert into 班級 values(39。 amp。 (1, 1).Text amp。 39。,39。 amp。 (1, 2).Text amp。 39。,39。 amp。 (1, 3).Text amp。 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。 amp。 (i, 2).Text amp。 39。,所屬系別 =39。 amp。 (i, 3).Text amp。 39。 where 班級名稱 =39。 amp。 (i, 1).Text amp。 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 griddelete2 = False Then MsgBox 當(dāng)前刪除操作不被允許 !, vbInformation, 非使用對象 Exit Sub End If If hang = 0 Then MsgBox 沒有選擇用戶或者沒有用戶可以刪除 !, vbInformation, 非使用對象 Exit Sub End If i = MsgBox(確認(rèn)刪除此記錄嗎？ , 4, 刪除學(xué)生 ) If i = 6 Then Set mdbrs = (delete from 班級 where 班級名稱 =39。 amp。 (hang, 1).Text amp。 39。) MsgBox 目標(biāo)己刪除 ,請刷新數(shù)據(jù) !, vbInformation, 刪除成功 Call callmain Else MsgBox 目標(biāo)沒有刪除 !, 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, 24