?? 學(xué)生管理系統(tǒng).txt
字號(hào):
Combo7.Text = ""
Combo8.Text = ""
Combo9.Text = ""
Combo10.Text = ""
Combo11.Text = ""
End Sub
7.1.2 打印統(tǒng)計(jì)
運(yùn)行打印統(tǒng)計(jì)后可以按條件把符合條件的各種信息以報(bào)表形式羅列出來，各種信息還可以以打印出來或以報(bào)表形式保存。打印統(tǒng)計(jì)包括班級(jí)統(tǒng)計(jì)分析、檔案統(tǒng)計(jì)分析、課程統(tǒng)計(jì)分析、成績(jī)統(tǒng)計(jì)分析和交費(fèi)統(tǒng)計(jì)分析五類。
班級(jí)統(tǒng)計(jì)分析（如：界面如圖四）
（圖四）
代碼如下：
Private Sub Command1_Click()
Dim SQLoriginal As String
Dim SQLadd As String
Dim SQLorder As String
Dim strSql As String
SQLoriginal = "SELECT 年級(jí),專業(yè),人數(shù),輔導(dǎo)員,備注 FROM 班級(jí)表 "
SQLadd = "WHERE 年級(jí)=年級(jí) AND 專業(yè)=專業(yè) "
SQLorder = ""
If Check1.Value = 1 And IsNumeric(Text1) Then
SQLadd = SQLadd + "and 年級(jí)='" + Text1 + "'"
End If
If Check2.Value = 1 And Not IsNull(Text2) Then
SQLadd = SQLadd + "and 專業(yè)='" + Text2 + "'"
End If
If Check3.Value = 1 And IsNumeric(Text3) Then
SQLadd = SQLadd + "and 人數(shù)='" + Text3 + "'"
End If
If Check4.Value = 1 And Not IsNull(Text4) Then
SQLadd = SQLadd + "and 輔導(dǎo)員='" + 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
檔案分析統(tǒng)計(jì)（如：界面如圖五）
（圖五）
代碼如下：
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 學(xué)生檔案 "
SQLadd = "WHERE 學(xué)號(hào)=學(xué)號(hào) AND 姓名=姓名 "
SQLorder = ""
If Check1.Value = 1 And IsNumeric(Text1) Then
SQLadd = SQLadd + "and 學(xué)號(hào)='" + 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 專業(yè)='" + 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
課程統(tǒng)計(jì)分析（如：界面如圖六）
（圖六）
代碼如下：
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 專業(yè)=專業(yè) AND 課程名稱=課程名稱 "
SQLorder = ""
If Check1.Value = 1 And Not IsNull(Text1) Then
SQLadd = SQLadd + "and 專業(yè)='" + Text1 + "'"
End If
If Check2.Value = 1 And Not IsNull(Combo1) Then
SQLadd = SQLadd + "and 課程性質(zhì)='" + Combo1 + "'"
End If
'If Check3.Value = 1 And Not IsNumeric(Text2) Then
'SQLadd = SQLadd + "and 課時(shí)='" + 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
成績(jī)統(tǒng)計(jì)分析（如：界面如圖七）
（圖七）
代碼如下：
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 成績(jī)表 "
SQLadd = "WHERE 學(xué)號(hào)=學(xué)號(hào) AND 姓名=姓名 "
SQLorder = ""
If Check1.Value = 1 And IsNumeric(Text1) Then
SQLadd = SQLadd + "and 學(xué)號(hào)='" + 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 科目分?jǐn)?shù)<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
交費(fèi)統(tǒng)計(jì)分析（如：界面如圖八）
（圖八）
代碼如下：
Private Sub Command1_Click()
Dim SQLoriginal As String
Dim SQLadd As String
Dim SQLorder As String
Dim strSql As String
SQLoriginal = "SELECT 學(xué)號(hào),姓名,學(xué)期,本學(xué)期應(yīng)交費(fèi)用,實(shí)際交費(fèi),本次欠費(fèi) FROM 交費(fèi)表 "
SQLadd = "WHERE 學(xué)號(hào)=學(xué)號(hào) AND 姓名=姓名 "
SQLorder = ""
If Check1.Value = 1 And IsNumeric(Text1) Then
SQLadd = SQLadd + "and 學(xué)號(hào)='" + 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 實(shí)際交費(fèi)='" + Text3 + "'"
End If
If Check4.Value = 1 And IsNumeric(Text4) Then
SQLadd = SQLadd + "and 本次欠費(fèi)='" + 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
結(jié)束語
學(xué)生信息管理系統(tǒng)（課程設(shè)置和打印統(tǒng)計(jì)）的完成，它在審核這一功能中能夠?qū)Σ煌闆r的資料進(jìn)行設(shè)置和打印，針對(duì)需要的信息進(jìn)行設(shè)置和打印。
心得體會(huì)
這幾天的實(shí)踐與學(xué)習(xí)，使我收獲不少，我覺得我真的學(xué)會(huì)這門課了。
遇到的問題及解決方法
編寫的程序系統(tǒng)無法運(yùn)行，我找到相關(guān)書籍進(jìn)行分析錯(cuò)誤原因，解決了錯(cuò)誤問題。
主要參考文獻(xiàn)
本系統(tǒng)的過程中，主要的參考文獻(xiàn)有：
《Visual Basic6.0》 林陳雷 人民郵電出版社
《面向?qū)ο蟪绦蛟O(shè)計(jì)系列教材》 龔沛曾 高等教育出版社
《學(xué)用Visual Basic 編程》 潭 浩 西安電子科技大學(xué)出版社
《Visual Basic6.0 數(shù)據(jù)庫開發(fā)與專業(yè)應(yīng)用》 敬 錚 國(guó)防工業(yè)出版社
《Visual Basic6.0 數(shù)據(jù)庫程序設(shè)計(jì)高手》 溫賢發(fā) 科學(xué)出版社?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -