【正文】 。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 where score_Per=39。 Trim(Text2(1)) amp。 End If If Combo2(0).Text Then If txtSQL = select * from score_Form Then txtSQL = txtSQL amp。 amp。 39。 And score_Cla=39。 Trim(Combo2(0).Text) amp。 End If End If If Combo2(1).Text Then If txtSQL = select * from score_Form Then txtSQL = txtSQL amp。 amp。 39。 And score_Stu=39。 Trim(Combo2(1).Text) amp。 End If End If If Combo2(2).Text Then If txtSQL = select * from score_Form Then txtSQL = txtSQL amp。 amp。 39。 And score_Cou=39。 Trim(Combo2(2).Text) amp。 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 大學(xué)本科課程設(shè)計(jì)（論文） 25 .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。 End Select Next i Loop .Visible = True End With = False Text2(1) = txSQL = select DISTINCT score_Cla from score_Form Set mrc = ExecuteSQL(txSQL, MsgText) If = False Then With Combo2(0) .Clear Do While Not .AddItem Trim(mrc!score_Cla) Loop End With End If Combo2(1).Clear Combo2(2).Clear Text2(2) = End Sub 3 學(xué) 籍 管理模塊 代碼設(shè)計(jì) : Private Sub Command1_Click() Dim txtSQL As String For i = 0 To 7 If i 4 Then If Text1(i) = Label2(i).Caption Then MsgBox 請(qǐng) amp。 !, vbOKOnly, 提示 Text1(i).SetFocus Exit Sub End If Else 大學(xué)本科課程設(shè)計(jì)（論文） 26 If Text1(i) = Label2(i).Caption Then MsgBox 請(qǐng) amp。 !, vbOKOnly, 提示 Exit Sub End If End If Next If IsDate(Text1(3)) = False Then MsgBox 出生日期應(yīng)為日期格式 (yyyymmdd)!, vbOKOnly, 警告 Text1(3).SetFocus Exit Sub End If If IsDate(Text1(6)) = False Then MsgBox 入學(xué)日期應(yīng)為日期格式 (yyyymmdd)!, vbOKOnly, 警告 Text1(6).SetFocus Exit Sub End If txtSQL = select * from student_Form where student_NO=39。 Trim(Text1(0)) amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 學(xué)號(hào)不能重復(fù) !, vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If txtSQL = select * from student_Form Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim(Text1(0)) (1) = Trim(Text1(1)) (2) = Trim(Text1(2)) (3) = Trim(Text1(3)) (4) = Trim(Text1(4)) (5) = Trim(Text1(5)) (6) = Trim(Text1(6)) (7) = Trim(Text1(7)) If Text1(8) = Label2(8).Caption Then (8) = Else (8) = Trim(Text1(8)) End If MsgBox 學(xué)籍信息添加成功 !, vbOKOnly, 提示 With MSFlexGrid1 .Rows = .Rows + 1 大學(xué)本科課程設(shè)計(jì)（論文） 27 .TextMatrix(.Rows 1, 0) = Trim(Text1(0)) .TextMatrix(.Rows 1, 1) = Trim(Text1(1)) .TextMatrix(.Rows 1, 2) = Trim(Text1(2)) .TextMatrix(.Rows 1, 3) = Trim(Text1(3)) .TextMatrix(.Rows 1, 4) = Trim(Text1(4)) .TextMatrix(.Rows 1, 5) = Trim(Text1(5)) .TextMatrix(.Rows 1, 6) = Trim(Text1(6)) .TextMatrix(.Rows 1, 7) = Trim(Text1(7)) If Text1(8) Label2(8).Caption Then .TextMatrix(.Rows 1, 8) = Trim(Text1(8)) End If End With = 1 TextDcolor End Sub Private Sub Command2_Click() Dim j As Integer Dim txtSQL As String If Text1(5) Label2(5).Caption Then If IsDate(Text1(5)) = False Then MsgBox 起始日期應(yīng)為日期格式 (yyyymmdd)!, vbOKOnly, 警告 Text1(5).SetFocus Exit Sub Else Text1(5) = Format(Text1(5), yyyymmdd) End If End If If Text1(6) Label2(6).Caption Then If IsDate(Text1(6)) = False Then MsgBox 起始日期應(yīng)為日期格式 (yyyymmdd)!, vbOKOnly, 警告 Text1(6).SetFocus Exit Sub Else Text1(6) = Format(Text1(6), yyyymmdd) End If End If txtSQL = select * from student_Form If Text1(0) Label2(0).Caption Then txtSQL = txtSQL amp。 amp。 39。 where student_Name=39。 Trim(Text1(1)) amp。 Else txtSQL = txtSQL amp。 amp。 39。 where student_Cla=39。 Trim(Text1(4)) amp。 Else txtSQL = txtSQL amp。 amp。 39。 where Format(student_Esd,39。) =39。 Trim(Text1(5)) amp。and Format(student_Esd,39。) =39。 Trim(Text1(6)) amp。 Else txtSQL = txtSQL amp。yyyymmdd39。 amp。 39。yyyymmdd39。 amp。 39。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i) a