VB学生管理系统论文范文(8)

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

If Check2.Value = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + \专业='\End If

If Check3.Value = 1 And IsNumeric(Text3) Then SQLadd = SQLadd + \人数='\End If

If Check4.Value = 1 And Not IsNull(Text4) Then

SQLadd = SQLadd + \辅导员='\

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

End If

strSql = SQLoriginal + SQLadd + SQLorde If Dat_Main.rsDat_Class.State = 1 Then Dat_Main.rsDat_Class.Close End If

Dat_Main.rsDat_Class.Open strSql Dat_Class.Show vbModal Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \

End Sub

Private Sub Command2_Click() Unload Me End Sub

Private Sub Form_Load() Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \End Sub

Private Sub Text1_Change() End Sub

Private Sub Text3_Change()

End Sub

档案分析统计（如：界面如图五）

（图五）

代码如下：

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

On Error Resume Next

SQLoriginal = \学生档案 \SQLadd = \学号=学号 AND 姓名=姓名 \SQLorder = \

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

If Check2.Value = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + \姓名='\End If

If Check3.Value = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + \专业='\End If

If Check4.Value = 1 And IsDate(DTPicker1) Then

SQLadd = SQLadd + \出生年月= # \End If

strSql = SQLoriginal + SQLadd + SQLorde If Dat_Main.rsDat_Strudent.State = 1 Then Dat_Main.rsDat_Strudent.Close End If

Dat_Main.rsDat_Strudent.Open strSql Dat_Strudent.Show vbModal Text1.Text = \Text2.Text = \Text3.Text = \ End Sub

Private Sub Command2_Click() Unload Me End Sub

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

Private Sub Form_Load() 'Combo1.AddItem (\男\'Combo1.AddItem (\女\Text1.Text = \Text2.Text = \Text3.Text = \End Sub

Private Sub Text1_Change()

End Sub

课程统计分析（如：界面如图六）

（图六）

代码如下：

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

SQLoriginal = \课程表 \

SQLadd = \专业=专业 AND 课程名称=课程名称 \SQLorder = \

If Check1.Value = 1 And Not IsNull(Text1) Then SQLadd = SQLadd + \专业='\End If

If Check2.Value = 1 And Not IsNull(Combo1) Then SQLadd = SQLadd + \课程性质='\End If

'If Check3.Value = 1 And Not IsNumeric(Text2) Then 'SQLadd = SQLadd + \课时='\'End If

If Check4.Value = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + \课程名称='\End If

strSql = SQLoriginal + SQLadd + SQLorde If Dat_Main.rsDat_Grean.State = 1 Then Dat_Main.rsDat_Grean.Close End If

Dat_Main.rsDat_Grean.Open strSql Dat_Grean.Show vbModal Text1.Text = \Combo1.Text = \'Text2.Text = \Text3.Text = \End Sub

Private Sub Command2_Click() Unload Me

End Sub

Private Sub Form_Load() Text1.Text = \'Text2.Text = \Text3.Text = \Combo1.Text = \Combo1.AddItem (\必修\Combo1.AddItem (\选修\Combo1.AddItem (\自开\End Sub

Private Sub Text3_Change()

End Sub

成绩统计分析（如：界面如图七）

（图七）

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB学生管理系统论文范文(8)在线全文阅读。