【正文】 End Select Next i Loop .Visible = True End With 大學(xué)本科課程設(shè)計（論文） 29 = False TextDcolor Text1(4).Visible = True = False Text1(2).Enabled = False Text1(3).Enabled = False Text1(7).Enabled = False Text1(8).Enabled = False End Sub 。 End If End If Set mrc = ExecuteSQL(txtSQL, MsgText) j = 1 Do While Not j = j + 1 Loop = True = CInt(0) = CInt(j) Set mrc = ExecuteSQL(txtSQL, MsgText) = True With MSFlexGrid1 .Visible = False .Rows = 1 = .Rows Do While Not .Rows = .Rows + 1 For i = 0 To 1 Select Case (i).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i) amp。 Trim(Text1(6)) amp。) =39。and Format(student_Esd,39。 Trim(Text1(5)) amp。) =39。 and Format(student_Esd,39。 39。 amp。yyyymmdd39。 39。 amp。yyyymmdd39。 End If End If If Text1(5) Label2(5).Caption And Text1(6) Label2(6).Caption Then If txtSQL = select * from student_Form Then txtSQL = txtSQL amp。 Trim(Text1(4)) amp。 and student_Cla=39。 39。 amp。 End If 大學(xué)本科課程設(shè)計（論文） 28 End If If Text1(4) Label2(4).Caption Then If txtSQL = select * from student_Form Then txtSQL = txtSQL amp。 Trim(Text1(1)) amp。 and student_Name=39。 39。 amp。 End If If Text1(1) Label2(1).Caption Then If txtSQL = select * from student_Form Then txtSQL = txtSQL amp。 Trim(Text1(0)) amp。 where student_NO=39。 39。 amp。 Label2(i).Caption amp。 Label2(i).Caption amp。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i) amp。 39。 amp。 Else txtSQL = txtSQL amp。 Trim(Combo2(2).Text) amp。 where score_Cou=39。 39。 amp。 Else txtSQL = txtSQL amp。 Trim(Combo2(1).Text) amp。 where score_Stu=39。 39。 amp。 Else txtSQL = txtSQL amp。 Trim(Combo2(0).Text) amp。 where score_Cla=39。 39。 amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 同次同人同科只能添加一次 , vbOKOnly, 警告 Text1(2) = Combo1(0).SetFocus Exit Sub End If txtSQL = select * from score_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) (2) = Trim(Combo1(0).Text) (3) = Trim(Combo1(1).Text) (4) = Trim(Combo1(2).Text) (5) = Trim(Text1(2)) MsgBox 考試信息添加成功 !, vbOKOnly, 提示 With MSFlexGrid1 .Rows = .Rows + 1 .TextMatrix(.Rows 1, 0) = Trim(Text1(0)) .TextMatrix(.Rows 1, 1) = Trim(Text1(1)) .TextMatrix(.Rows 1, 2) = Trim(Combo1(0).Text) .TextMatrix(.Rows 1, 3) = Trim(Combo1(1).Text) .TextMatrix(.Rows 1, 4) = Trim(Combo1(2).Text) .TextMatrix(.Rows 1, 5) = Trim(Text1(2)) End With Text1(2) = Combo1(0).Clear txtSQL = select * from class_Form Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then With Combo1(0) .Clear Do While Not .AddItem Trim(mrc!class_NO) Loop End With End If Combo1(1).Clear 大學(xué)本科課程設(shè)計（論文） 24 Combo1(2).Clear Text1(0) = GetRkno = 1 End Sub Private Sub Command3_Click() Dim j As Long Dim txtSQL As String Dim txSQL As String txtSQL = select * from score_Form If Text2(1) Then txtSQL = txtSQL amp。 Trim(Combo1(2).Text) amp。And score_Cou=39。 Trim(Combo1(1).Text) amp。 and score_Stu=39。 Trim(Combo1(0).Text) amp。 and score_Cla=39。 Trim(Text1(1)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) End If End If txtSQL = select * from class_Cour Set mrc = ExecuteSQL(txtSQL, MsgText) List1Text End Sub 2 成績 管理模塊 代碼設(shè)計 : Private Sub Command1_Click() Dim txtSQL As String If Text1(1) = Then MsgBox 考試期號不能為空 !, vbOKOnly, 提示 Text1(1).SetFocus Exit Sub End If If Combo1(0).Text = Then MsgBox 學(xué)生班號不能為空 !, vbOKOnly, 提示 Combo1(0).SetFocus Exit Sub End If If Combo1(1).Text = Then MsgBox 學(xué)生編號不能為空 !, vbOKOnly, 提示 Combo1(1).SetFocus Exit Sub End If If Combo1(2).Text = Then MsgBox 考試課程不能為空 !, vbOKOnly, 提示 Combo1(2).SetFocus Exit Sub End If If Text1(2) = Then MsgBox 考試分?jǐn)?shù)不能為空 !, vbOKOnly, 提示 Text1(2).SetFocus Exit Sub 大學(xué)本科課程設(shè)計（論文） 23 End If txtSQL = select * from score_Form where score_Per=39。 Trim() amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) End If End If If Index = 3 Then If Then txtSQL = delete from class_Cour where class_NO=39。 Trim() amp。 and course_Name=39。 Trim() amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) tSQL = select * from course_Form txtSQL = select * from class_Cour