毕业论文——学生信息管理系统

strTiaoJian = \课程表 where \

Else

strTiaoJian = \课程表 where \ End If Else

If KCCX1 = \

strTiaoJian = \课程表 where \ ElseIf KCCX2 = \

strTiaoJian = \课程表 where \ Else

MsgBox \请选择连接方式！\警告\ Exit Sub End If End If

If (KCCX1 & KCCX2) = \

MsgBox \请输入查询类别！\警告\Exit Sub Else

Unload Me

Frm_UpdateGrean.Show 1 End If End If

If Option4.Value = True Then

If Val(Combo6) > Val(Combo9) Then

MsgBox \请正确选择年份！\信息提示\ Combo6.SetFocus Exit Sub Else

If Val(Combo6) = Val(Combo9) Then

If Val(Combo7) > Val(Combo10) Then

MsgBox \请正确选择月份！\信息提示\ Combo7.SetFocus Exit Sub Else

If Val(Combo7) = Val(Combo10) Then

If Val(Combo8) > Val(Combo11) Then

MsgBox \请正确选择日期！\信息提示\

Combo8.SetFocus Exit Sub End If End If

毕业论文——学生信息管理系统

End If

End If End If

If Combo6.Text = \\ MsgBox \请输入完整的日期\警告\ Exit Sub End If

str1 = Trim(Combo6) & \ str2 = Trim(Combo9) & \ str1 = Format(str1, \ str2 = Format(str2, \

If sqlstr = \

sqlstr = \& Trim(Combo5.Text) & \& Format(str1, \& \and \ Else

sqlstr = sqlstr & \\& \and \& Trim(Combo5.Text) & \#\& Format(str2, \& \

End If

If sqlstr = \

MsgBox \请先输入查找时间！\ Exit Sub

End If

strTiaoJian = \专业,年级,学期,课程名称,教材,任课老师,课时,上课地点,课程性质,考试性质 from 课程表 where \ Unload Me

Frm_UpdateGrean.Show 1 End If

If Option3.Value <> True And Option4.Value <> True Then MsgBox \请选择查询方式！\警告\ Exit Sub End If End Sub

Private Sub Command3_Click()

毕业论文——学生信息管理系统

Unload Me

End Sub

Private Sub Form_Load() Dim i, j As Integer For i = 1999 To 2010 Combo6.AddItem i Combo9.AddItem i Next i

Combo6.ListIndex = 0 Combo9.ListIndex = 0

For i = 1 To 12

Combo7.AddItem i Combo10.AddItem i Next i

Combo7.ListIndex = 0 Combo10.ListIndex = 0 For i = 1 To 31 Combo8.AddItem i Combo11.AddItem i Next i

Combo8.ListIndex = 0 Combo11.ListIndex = 0 Combo1.AddItem (\专业\Combo1.AddItem (\年级\

Combo1.AddItem (\课程名称\Combo1.AddItem (\教材\

Combo1.AddItem (\任课老师\'Combo1.AddItem (\课时\Combo1.AddItem (\课程性质\Combo1.AddItem (\考试性质\Combo2.AddItem (\Combo3.AddItem (\专业\Combo3.AddItem (\年级\

Combo3.AddItem (\课程名称\Combo3.AddItem (\教材\Combo3.AddItem (\任课老师\'Combo3.AddItem (\课时\Combo3.AddItem (\课程性质\Combo3.AddItem (\考试性质\Combo4.AddItem (\Combo5.AddItem (\学期\Combo1.Text = \

毕业论文——学生信息管理系统

Combo2.Text = \Text1.Text = \Combo3.Text = \Combo4.Text = \Text2.Text = \Combo5.Text = \Combo6.Text = \Combo7.Text = \Combo8.Text = \Combo9.Text = \Combo10.Text = \Combo11.Text = \End Sub

6.1.2 打印统计

运行打印统计后可以按条件把符合条件的各种信息以报表形式罗列出来，各种信息还可以以打印出来或以报表形式保存。打印统计包括班级统计分析、档案统计分析、课程统计分析、成绩统计分析和交费统计分析五类。

班级统计分析（如：界面如图四）

（图四）

代码如下：

Private Sub Command1_Click() Dim SQLoriginal As String Dim SQLadd As String

Dim SQLorder As String Dim strSql As String

SQLoriginal = \年级,专业,人数,辅导员,备注 FROM 班级表 \SQLadd = \年级=年级 AND 专业=专业 \SQLorder = \

If Check1.Value = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + \年级='\End If