学生管理系统.txt

1． 查询信息的情况； 2． 判断信息是否符合要求； 3． 将符合条件的信息进行打印；

Combo7.Text = ""
Combo8.Text = ""
Combo9.Text = ""
Combo10.Text = ""
Combo11.Text = ""
End Sub

7.1.2 打印统计
运行打印统计后可以按条件把符合条件的各种信息以报表形式罗列出来，各种信息还可以以打印出来或以报表形式保存。打印统计包括班级统计分析、档案统计分析、课程统计分析、成绩统计分析和交费统计分析五类。
班级统计分析（如：界面如图四）
 （图四）
代码如下：
Private Sub Command1_Click()
Dim SQLoriginal As String
Dim SQLadd As String
Dim SQLorder As String
Dim strSql As String
  
SQLoriginal = "SELECT 年级,专业,人数,辅导员,备注 FROM 班级表 "
SQLadd = "WHERE 年级=年级 AND 专业=专业 "
SQLorder = ""

If Check1.Value = 1 And IsNumeric(Text1) Then
    SQLadd = SQLadd + "and 年级='" + Text1 + "'"
End If
  
If Check2.Value = 1 And Not IsNull(Text2) Then
    SQLadd = SQLadd + "and 专业='" + Text2 + "'"
End If

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

If Check4.Value = 1 And Not IsNull(Text4) Then
    SQLadd = SQLadd + "and 辅导员='" + Text4 + "'"
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 = "SELECT * FROM 学生档案 "
SQLadd = "WHERE 学号=学号 AND 姓名=姓名 "
SQLorder = ""

If Check1.Value = 1 And IsNumeric(Text1) Then
    SQLadd = SQLadd + "and 学号='" + Text1 + "'"
End If
  
If Check2.Value = 1 And Not IsNull(Text2) Then
    SQLadd = SQLadd + "and 姓名='" + Text2 + "'"
End If

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

If Check4.Value = 1 And IsDate(DTPicker1) Then
    SQLadd = SQLadd + " and 出生年月= # " & DTPicker1.Value & "#"
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 = "SELECT * FROM 课程表 "
SQLadd = "WHERE 专业=专业 AND 课程名称=课程名称 "
SQLorder = ""

If Check1.Value = 1 And Not IsNull(Text1) Then
    SQLadd = SQLadd + "and 专业='" + Text1 + "'"
End If
  
If Check2.Value = 1 And Not IsNull(Combo1) Then
    SQLadd = SQLadd + "and 课程性质='" + Combo1 + "'"
End If

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

If Check4.Value = 1 And Not IsNull(Text3) Then
    SQLadd = SQLadd + "and 课程名称='" + Text3 + "'"
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
成绩统计分析（如：界面如图七）
 （图七）
代码如下：
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 = "SELECT * FROM 成绩表 "
SQLadd = "WHERE 学号=学号 AND 姓名=姓名 "
SQLorder = ""

If Check1.Value = 1 And IsNumeric(Text1) Then
    SQLadd = SQLadd + "and 学号='" + Text1 + "'"
End If
  
If Check2.Value = 1 And Not IsNull(Text2) Then
    SQLadd = SQLadd + "and 姓名='" + Text2 + "'"
End If

If Check3.Value = 1 And Not IsNull(Text3) Then
    SQLadd = SQLadd + "and 考试科目='" + Text3 + "'"
End If

If Check4.Value = 1 Then
    SQLadd = SQLadd + "and 科目分数<60"
End If

strSql = SQLoriginal + SQLadd + SQLorde
If Dat_Main.rsDat_ChengJ.State = 1 Then
    Dat_Main.rsDat_ChengJ.Close
End If
    Dat_Main.rsDat_ChengJ.Open strSql
    Dat_ChengJ.Show vbModal
Text1.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 = ""
'Text4.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 = "SELECT 学号,姓名,学期,本学期应交费用,实际交费,本次欠费 FROM 交费表 "
SQLadd = "WHERE 学号=学号 AND 姓名=姓名 "
SQLorder = ""

If Check1.Value = 1 And IsNumeric(Text1) Then
    SQLadd = SQLadd + "and 学号='" + Text1 + "'"
End If
  
If Check2.Value = 1 And Not IsNull(Text2) Then
    SQLadd = SQLadd + "and 姓名='" + Text2 + "'"
End If

If Check3.Value = 1 And IsNumeric(Text3) Then
    SQLadd = SQLadd + "and 实际交费='" + Text3 + "'"
End If

If Check4.Value = 1 And IsNumeric(Text4) Then
    SQLadd = SQLadd + "and 本次欠费='" + Text4 + "'"
End If

strSql = SQLoriginal + SQLadd + SQLorde
If Dat_Main.rsDat_JiaoF.State = 1 Then
    Dat_Main.rsDat_JiaoF.Close
End If
    Dat_Main.rsDat_JiaoF.Open strSql
    Dat_JiaoF.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

结束语
学生信息管理系统（课程设置和打印统计）的完成，它在审核这一功能中能够对不同情况的资料进行设置和打印，针对需要的信息进行设置和打印。

心得体会
   这几天的实践与学习，使我收获不少，我觉得我真的学会这门课了。
遇到的问题及解决方法
    编写的程序系统无法运行，我找到相关书籍进行分析错误原因，解决了错误问题。
主要参考文献
本系统的过程中，主要的参考文献有：
《Visual Basic6.0》                     林陈雷             人民邮电出版社
《面向对象程序设计系列教材》          龚沛曾            高等教育出版社
《学用Visual Basic 编程》               潭  浩            西安电子科技大学出版社
《Visual Basic6.0 数据库开发与专业应用》 敬  铮            国防工业出版社
《Visual Basic6.0 数据库程序设计高手》   温贤发            科学出版社