毕业论文——学生信息管理系统
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