基于VB的學(xué)生信息管理系統(tǒng)的設(shè)計
摘要：本系統(tǒng)針對高校學(xué)生信息的特點(diǎn)以及管理中的弊端而設(shè)計，實(shí)現(xiàn)了學(xué)生信息管理的信息化、減輕了管理人員的工作負(fù)擔(dān)，能
夠規(guī)范、高效地管理大量的學(xué)生信息，該系統(tǒng)旨在更好地管理高校的教學(xué)和資源的整合，推動科技成果的轉(zhuǎn)化，推進(jìn)高校改革，提高
高校的辦學(xué)效率。
關(guān)鍵詞：信息管理；VB；系統(tǒng)
近幾年來，隨著各高校辦公自動化工作的推進(jìn)，學(xué)生信息管理自動化也被擺上了日程。在學(xué)校工作中占有很大比重的一項就是
每學(xué)期的學(xué)生信息管理工作。由于教工、教室和設(shè)備的相對緊張，如何進(jìn)行合理地安排和分配，從而充分利用教學(xué)資源是我們不得
不面對的問題。而人工進(jìn)行管理不僅任務(wù)重，效率低，而且易出錯，難于維護(hù)，想要排出一張各方面都滿意的信息管理表非常困難。
并且隨著高校規(guī)模的擴(kuò)大手工管理的難度和工作量呈幾何級數(shù)增長。
學(xué)生信息管理系統(tǒng)正是為了減輕教務(wù)人員工作量，實(shí)現(xiàn)學(xué)校管理科學(xué)發(fā)展觀自動化，解決管理難這一老大難題的教務(wù)辦公軟
件。本系統(tǒng)以中文版Visual Basic 6.0為前臺開發(fā)工具，用Microsoft Access2000作為后臺數(shù)據(jù)庫。系統(tǒng)的操作對人員的素質(zhì)的要求不
高，只需對他們稍加培訓(xùn)便能勝任。
本系統(tǒng)最大的優(yōu)點(diǎn)就是學(xué)生的所有信息及全部操作完全可以通過各功能模塊直接寫入后臺數(shù)據(jù)庫，操作簡單易行，使信息管
理流程能夠在一個安全可視的環(huán)境下運(yùn)行。
1學(xué)生信息管理系統(tǒng)的設(shè)計
學(xué)生信息管理系統(tǒng)的設(shè)計主要是為了更好的實(shí)現(xiàn)學(xué)校學(xué)生信息的系統(tǒng)化、規(guī)范化和自動化。其主要功能包括操作員權(quán)限設(shè)置、
便于信息管理、信息的查詢、以及生成各種報表。其中查詢包括姓名查詢、學(xué)號查詢、班級查詢、性別查詢、年齡、電話及住址查詢、組
合查詢、模糊查詢等，查詢可按建表輸入的時間，進(jìn)行統(tǒng)計人數(shù)和成績等統(tǒng)計，查詢其中的一種或多種方法。
1.1系統(tǒng)設(shè)計思想和特點(diǎn)
現(xiàn)狀：學(xué)校管理工作對于學(xué)校的決策者和管理者來說至關(guān)重要。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式
存在著許多缺點(diǎn)，如：效率低、保密性差。另外，時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護(hù)都帶來了不少的困難。
設(shè)計思想：《學(xué)生信息管理系統(tǒng)》采用面向?qū)ο蟮某绦蛟O(shè)計思想為基本的設(shè)計指導(dǎo)思想。本系統(tǒng)主要實(shí)施目標(biāo)是幫助學(xué)校的學(xué)
生檔案管理人員對學(xué)校學(xué)生信息進(jìn)行管理。
本系統(tǒng)優(yōu)點(diǎn)：檢索迅速、查詢方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生信息管理
的效率，也是學(xué)校的科學(xué)化、正規(guī)化管理的重要條件。
1.2系統(tǒng)目標(biāo)和功能模塊
本信息管理系統(tǒng)在追求完善的同時應(yīng)達(dá)到以下目標(biāo)：
1)界面友好、易于操作；
2)實(shí)現(xiàn)基本信息管理，包括操作員的注冊及權(quán)限設(shè)置，所需基本信息的建立與設(shè)置等功能；
3)實(shí)現(xiàn)數(shù)據(jù)庫管理，包括數(shù)據(jù)庫的自動創(chuàng)建，備份與恢復(fù)；4)實(shí)現(xiàn)智能跟蹤用戶操作，智能容錯處理，數(shù)據(jù)統(tǒng)計與分析等功能；
5)真正意義上實(shí)現(xiàn)該高校從原始的手工階段走向了方便快捷的計算機(jī)實(shí)現(xiàn)階段。
功能模塊如圖1所示。
運(yùn)行主窗體如圖2。
2.3登錄模塊設(shè)計
登錄界面是進(jìn)入系統(tǒng)的大門，是對管理員身份的驗(yàn)證，只有輸入
了正確的名稱和密碼，才有權(quán)進(jìn)入系統(tǒng)。因?yàn)橄到y(tǒng)有許多管理員，他
們擁有不同的權(quán)限，當(dāng)有不同的用戶登錄到系統(tǒng)中時，系統(tǒng)便會根據(jù)
數(shù)據(jù)庫中記載的內(nèi)容而賦予其不同的權(quán)限
關(guān)鍵代碼如下：
Dim a As String
Dim b As String
Dim str As String
Dim strr As String
str=InStr(Text2.Text,"''")
If str<>0 Then
MsgBox"不能輸入非法字符?。?,vbCritical+vbOKOnly,"錯誤"
Exit Sub
Else
strr=InStr(Text1.Text,"''")
If strr<>0 Then
MsgBox"不能輸入非法字符?。?,vbCritical+vbOKOnly,"錯誤"
Exit Sub
End If
End If
a=Trim(Text1)
b=Trim(Text2)
If a=""Then
MsgBox"用戶名不能為空!",vbCritical,"錯誤"
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1)
Else
Dim r As New ADODB.Recordset
Set r=DataEnvironment1.rsuser
Dim c As String
Static nTryCount As Integer
c="select*from用戶登陸where用戶名=''"&a&"''"
If r.State=adStateOpen Then r.Close
r.Open c
If r.EOF Then
MsgBox"無此用戶!請重新登陸!!",vbCritical,"錯誤"
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1)
nTryCount=nTryCount+1
If nTryCount>=5 Then
MsgBox"您無權(quán)操作本系統(tǒng)！",vbCritical,"錯誤"
Unload Me
End If
Else
If b=Trim(r.Fields(1))Then
quanxian=Trim(r.Fields(2))
MDIForm1.Show
Unload Me
Else
MsgBox"密碼錯誤!請重新登陸!!",vbCritical,"錯誤"
Text2.SetFocus
Text2.SelStart=0
Text2.SelLength=Len(Text2)
nTryCount=nTryCount+1
If nTryCount>=5 Then
MsgBox"您無權(quán)操作本系統(tǒng)！",vbCritical,"錯誤"
Unload Me
End If
End If
End If
End If
圖End Sub
2.4信息管理和信息查詢模塊設(shè)計
信息管理和信息查詢分別如圖3。
關(guān)鍵代碼如下：
On Error Resume Next
Dim str As String
Dim strr As String
Select Case Command2.Caption
Case"啟用組合查找"
Select Case Combo1.Text
Case"學(xué)號"
str=InStr(Text9.Text,"''")
If str<>0 Then
MsgBox"不能輸入非法字符！！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
Else
strr=InStr(Text10.Text,"''")
If strr<>0 Then
MsgBox"不能輸入非法字符！！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
End If
End If
TYCZ
Case"姓名"
str=InStr(Text9.Text,"''")
If str<>0 Then
MsgBox"不能輸入非法字符！！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
Else
strr=InStr(Text10.Text,"''")
If strr<>0 Then
MsgBox"不能輸入非法字符！！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
End If
End If
TYCZ
Case"年齡"
str=InStr(Text9.Text,"''")
If str<>0 Then
MsgBox"不能輸入非法字符！！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
Else
strr=InStr(Text10.Text,"''")
If strr<>0 Then
MsgBox"不能輸入非法字符??！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
End If
End If
TYCZ
Case"性別"
str=InStr(Text9.Text,"''")
If str<>0 Then
MsgBox"不能輸入非法字符??！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
Else
strr=InStr(Text10.Text,"''")
If strr<>0 Then
MsgBox"不能輸入非法字符??！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
End If
End If
SEX
Case"所屬班級"
str=InStr(Text9.Text,"''")
If str<>0 Then
MsgBox"不能輸入非法字符！！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
Else
strr=InStr(Text10.Text,"''")
If strr<>0 ThenMsgBox"不能輸入非法字符！！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
End If
End If
TYCZ
Case"家庭地址"
str=InStr(Text9.Text,"''")
If str<>0 Then
MsgBox"不能輸入非法字符！！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
Else
strr=InStr(Text10.Text,"''")
If strr<>0 Then
MsgBox"不能輸入非法字符??！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
End If
End If
TYCZ
End Select
Case"關(guān)閉組合查找"
str=InStr(Text9.Text,"''")
If str<>0 Then
MsgBox"不能輸入非法字符??！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
Else
strr=InStr(Text10.Text,"''")
If strr<>0 Then
MsgBox"不能輸入非法字符??！",vbCritical+vbOKOnly,"錯誤"
Exit Sub
End If
End If
If Combo1.Text="性別"Or Combo2.Text="性別"Then
Combination
Else
Combination_Faintness_nosex
End If
End Select
Public Sub TYCZ()
On Error Resume Next
Dim a As New ADODB.Recordset
Set a=DataEnvironment1.rsstudent
Dim b As String
If Trim(Combo3.Text)<>"模糊"Then
b="select*from學(xué)生信息表where"&Trim(Combo1.Text)&""&Trim(Combo3.Text)&"''"&Trim(Text9.Text)&"''"
If a.State=adStateOpen Then a.Close
a.Open b
dgre
Else
b="select*from學(xué)生信息表where"&Trim(Combo1.Text)&"like''%"&Trim(Text9.Text)&"%''"
If a.State=adStateOpen Then a.Close
a.Open b
dgre
End If
End Sub
Public Sub dgre()
DataGrid1.DataMember=""
DataGrid1.Refresh
DataEnvironment1.rsstudent.Requery
DataGrid1.DataMember="Student"
DataGrid1.Refresh
End Sub
3結(jié)束語
本系統(tǒng)達(dá)到了預(yù)期的要求，系統(tǒng)設(shè)計是根據(jù)學(xué)校的學(xué)生信息管理流程，合理設(shè)置各種操作模塊，各管理員和操作員之間分工明
確，并且能夠及時、準(zhǔn)確地記錄每次操作信息。操作簡單易行，定期審核，確保了數(shù)據(jù)的正確性。從根本上解決了學(xué)生管理的計算機(jī)
實(shí)現(xiàn)方式，對學(xué)校管理來講是一個大的跨越。