学生信息管理系统

End With End If

txSQL = \DISTINCT score_Cou from score_Form where score_Cla='\& Trim(Combo2(0).Text) & \

Set mrc = ExecuteSQL(txSQL, MsgText) If mrc.EOF = False Then With Combo2(2) .Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!score_Cou) mrc.MoveNext Loop End With End If End If End Sub

Private Sub Combo3_Click(Index As Integer) Dim txSQL As String If Index = 0 Then

txSQL = \\

Set mrc = ExecuteSQL(txSQL, MsgText) If mrc.EOF = False Then With Combo3(1) .Clear

Do While Not mrc.EOF

If mrc!student_NO <> .Text Then .AddItem Trim(mrc!student_NO) End If

mrc.MoveNext Loop End With End If

txSQL = \ Set mrc = ExecuteSQL(txSQL, MsgText) If mrc.EOF = False Then With Combo3(2) .Clear

Do While Not mrc.EOF

If mrc!course_Name <> .Text Then .AddItem Trim(mrc!course_Name) End If

mrc.MoveNext Loop End With End If End If End Sub

Private Sub Command1_Click() Dim txtSQL As String If Text1(1) = \

MsgBox \考试期号不能为空!\提示\ Text1(1).SetFocus Exit Sub End If

If Combo1(0).Text = \

MsgBox \学生班号不能为空!\提示\ Combo1(0).SetFocus

Exit Sub End If

If Combo1(1).Text = \

MsgBox \学生编号不能为空!\提示\ Combo1(1).SetFocus Exit Sub End If

If Combo1(2).Text = \

MsgBox \考试课程不能为空!\提示\ Combo1(2).SetFocus Exit Sub End If

If Text1(2) = \

MsgBox \考试分数不能为空!\提示\ Text1(2).SetFocus Exit Sub End If

txtSQL = \* from score_Form where score_Per='\& Trim(Text1(1)) & \and score_Cla='\score_Cou='\ Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then

MsgBox \同次同人同科只能添加一次\警告\ Text1(2) = \

Combo1(0).SetFocus Exit Sub End If

txtSQL = \ Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew

mrc.Fields(0) = Trim(Text1(0)) mrc.Fields(1) = Trim(Text1(1))

mrc.Fields(2) = Trim(Combo1(0).Text) mrc.Fields(3) = Trim(Combo1(1).Text) mrc.Fields(4) = Trim(Combo1(2).Text) mrc.Fields(5) = Trim(Text1(2)) mrc.Update mrc.Close

MsgBox \考试信息添加成功!\提示\ 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 = \

Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then With Combo1(0) .Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!class_NO) mrc.MoveNext

Loop End With End If

Combo1(1).Clear Combo1(2).Clear Text1(0) = GetRkno

MSFlexGrid1.TopRow = MSFlexGrid1.Rows - 1 End Sub

Private Sub Command2_Click() Dim txtSQL As String Text1(0) = GetRkno Text1(1) = \ Text1(2) = \ Combo1(0).Clear

txtSQL = \

Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then With Combo1(0) .Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!class_NO) mrc.MoveNext Loop End With End If

Combo1(1).Clear Combo1(2).Clear End Sub

Private Sub Command3_Click() Dim j As Long

Dim txtSQL As String Dim txSQL As String

txtSQL = \ If Text2(1) <> \

txtSQL = txtSQL & \ End If

If Combo2(0).Text <> \

If txtSQL = \

txtSQL = txtSQL & \ Else

txtSQL = txtSQL & \ End If End If

If Combo2(1).Text <> \

If txtSQL = \

txtSQL = txtSQL & \ Else

txtSQL = txtSQL & \ End If End If

If Combo2(2).Text <> \

If txtSQL = \

txtSQL = txtSQL & \ Else

txtSQL = txtSQL & \ End If End If

Set mrc = ExecuteSQL(txtSQL, MsgText)

j = 1

Do While Not mrc.EOF j = j + 1 mrc.MoveNext Loop

ProgressBar1.Visible = True ProgressBar1.Min = CInt(0) ProgressBar1.Max = CInt(j)

Set mrc = ExecuteSQL(txtSQL, MsgText) Frame1.Visible = True With MSFlexGrid1 .Visible = False .Rows = 1

ProgressBar1.Value = .Rows Do While Not mrc.EOF .Rows = .Rows + 1

For i = 0 To mrc.Fields.Count - 1 Select Case mrc.Fields(i).Type Case adDBDate

TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i) & \ Case Else

TextMatrix(.Rows - 1, i) = mrc.Fields(i) & \ End Select Next i

mrc.MoveNext Loop

.Visible = True End With

Frame1.Visible = False mrc.Close Text2(1) = \

txSQL = \ Set mrc = ExecuteSQL(txSQL, MsgText) If mrc.EOF = False Then With Combo2(0) .Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!score_Cla) mrc.MoveNext Loop End With End If

Combo2(1).Clear Combo2(2).Clear Text2(2) = \End Sub

Private Sub Command4_Click() Dim txtSQL As String Text2(1) = \

txtSQL = \ Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then With Combo2(0) .Clear

Do While Not mrc.EOF

.AddItem Trim(mrc!score_Cla) mrc.MoveNext Loop