VB學(xué)生管理系統(tǒng)設(shè)計剖析

VB學(xué)生管理系統(tǒng)設(shè)計解析VB學(xué)生管理系統(tǒng)設(shè)計解析30/30羇PAGE30螄肆莃膀螀蚃螆肅袃芇蒀莈羋節(jié)蒅羃羃薈袁羀VB學(xué)生管理系統(tǒng)設(shè)計解析黔東南民族職業(yè)技術(shù)學(xué)院

黔東南民族職業(yè)技術(shù)學(xué)院

學(xué)生管理系統(tǒng)

課程名稱為：用于VB學(xué)生管理系統(tǒng)的應(yīng)用和實現(xiàn)

姓名：鄧英英

專業(yè)：計算機應(yīng)用技術(shù)

班級：11計算機班

指導(dǎo)老師：楊波老師

制作時間：2013年6月8日

-1黔東南民族職業(yè)技術(shù)學(xué)院

一、功能描述

該學(xué)生成績管理系統(tǒng)是用VisualBasic制作的，該系統(tǒng)能夠?qū)崿F(xiàn)教師進行對學(xué)生的成

績管理，增加學(xué)生用戶以及能夠盤問學(xué)生的成績；還實現(xiàn)學(xué)生用戶經(jīng)過登錄系統(tǒng)能夠盤問到自己的各科課程成績以及更正自己的登錄密碼；還有的是教師用戶和學(xué)生用戶能夠退出系

統(tǒng)。

該系統(tǒng)采用了對窗體、基本控件的應(yīng)用，選擇結(jié)構(gòu)的if語句，循環(huán)結(jié)構(gòu)的循環(huán)語句fornext結(jié)構(gòu)，菜單設(shè)計，過程，數(shù)據(jù)文件來成立整個程序。

在此報告中重點表達(dá)了學(xué)生成績系統(tǒng)的各個功能，特別是學(xué)生的成績盤問和密碼更正以及教

師和學(xué)生的登錄。整個系統(tǒng)會以系統(tǒng)結(jié)構(gòu)圖、程序流程圖、功能模塊，讓大家能認(rèn)識該系統(tǒng)的功能。

二、大綱設(shè)計

、目標(biāo)

本系統(tǒng)的目標(biāo)是成立一套能夠?qū)W(xué)生的成績的管理、盤問學(xué)生的各科成績、對學(xué)生的密碼更正的學(xué)生成績管理系統(tǒng)。該系統(tǒng)能夠幫助我們更方便的管理學(xué)生的成績，取代了以前的手工操作管理學(xué)生的成績，節(jié)約我們可貴的時間。

、需求解析

依照該系統(tǒng)的需求解析，系統(tǒng)的需求能夠分為以下的幾個方面：

、鼠標(biāo)操作

你能夠利用鼠標(biāo)點擊界面的某些按鈕來實現(xiàn)對系統(tǒng)的有關(guān)操作。

、鍵盤操作

你能夠利用鍵盤對該系統(tǒng)的某些操作。

-2黔東南民族職業(yè)技術(shù)學(xué)院

該學(xué)生管理系統(tǒng)分為三個模塊：如圖1-1所示：

學(xué)生管理系統(tǒng)

管理員登錄界面教師登錄界面學(xué)生登錄界面

個課學(xué)學(xué)班個級學(xué)教計系退人教打程生生打人退課密師印成成基印成出生師劃統(tǒng)出詢程碼課報績績本報績系信信管管系成修程表管錄信表查統(tǒng)息息理理統(tǒng)績改理入息詢查

班名數(shù)任教學(xué)班數(shù)數(shù)務(wù)師生級級稱據(jù)據(jù)據(jù)查基信成設(shè)設(shè)備添修詢本息績置置份加改打信打打印息印印

圖1-1系統(tǒng)結(jié)構(gòu)圖

-3黔東南民族職業(yè)技術(shù)學(xué)院

三、詳細(xì)設(shè)計

依照功能解析析框架構(gòu)設(shè)計的思想，設(shè)計出登錄界面系統(tǒng)功能如下圖：

如圖1-2運行的界面

登錄界面代碼以下：

PrivateSubCommand1_Click()

DimsqlAsString

conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\mydate.mdb"

IfTrim(Text1.Text)=""Then

MsgBox"用戶名不能夠為空，請重新輸入！"

Else

sql="select*from用戶表where用戶名稱='"&Trim(Text1.Text)&"'"

rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs_login.EOF=TrueThen

MsgBox"沒有這個用戶,請重新輸入！",vbOKOnly+vbExclamation,""

Text1.Text=""

Else

IfTrim(rs_login.Fields(1))=Trim(Text2.Text)Then

-4黔東南民族職業(yè)技術(shù)學(xué)院

Case"管理員"

Case"教師"

Case"學(xué)生"

EndSelect

Else

MsgBox"密碼不正確,請重新輸入！

Text2.Text=""

EndIf

EndIf

EndIf

cnt=cnt+1

Ifcnt=3Then

UnloadMe

EndIf

EndSub

PrivateSubCommand2_Click()

Text1.Text=""

Text2.Text=""

EndSub

PrivateSubCommand3_Click()

End

EndSub

PrivateSubLabel6_Click()

EndSub

PrivateSubCommand4_Click()

EndSub

管理員系統(tǒng)功能如圖1-3所示

",vbOKOnly+vbExclamation,""

管理員登錄界面

學(xué)教計系退生師劃統(tǒng)出信信管管系息息理理統(tǒng)

如圖1-3管理員登錄界面

-5黔東南民族職業(yè)技術(shù)學(xué)院

如圖1-03管理員登錄界面

新用戶注冊代碼以下：

PrivateSubCommand1_Click()

DimsqlAsString

findform=False

sql="select*from用戶表where用戶名稱='"&Text1.Text&"'"

conn.Open"provider=Microsoft.Jet.OLEDB.4.0;&

"\mydate.mdb"

rs_tushu.CursorLocation=adUseClient

rs_tushu.Opensql,conn,adOpenKeyset,adLockPessimistic

IfText1.Text=""Then

MsgBox"用戶名不能夠為空，請輸入用戶名！",vbOK0nly+vbExclamation,""

ElseIfText2.Text=""Then

MsgBox"密碼不能夠為空，請輸入密碼！",vbOK0nly+vbExclamation,""

rs_tushu("用戶密碼

rs_tushu("用戶權(quán)限

MsgBox"恭賀，您已經(jīng)注冊成功！"&"您的用戶名是："&Text1.Text&"，

密碼是"&Text2.Text&"，請牢記！",vbOKOnly,""

-6黔東南民族職業(yè)技術(shù)學(xué)院

Else

MsgBox"用戶名已存在，請重新注冊！",vbOKOnly+vbExclamation,""

EndIf

EndSub

PrivateSubCommand2_Click()

End

EndSub

字段名種類大小權(quán)限備注用戶名文本8管理員重點字用戶密碼文本8管理員圖1-3用戶表信息

如圖1-4管理員登錄后的界面

-7黔東南民族職業(yè)技術(shù)學(xué)院

教師系統(tǒng)功能以以下圖

教師登錄界面

個教打課學(xué)程生修人師印改密課成成報碼程績績表管錄理入

數(shù)數(shù)據(jù)據(jù)任教添修務(wù)師加改查基詢本打信印息

如圖1-5教師登錄界面

教師界面以以下圖所示：

如圖1-5登錄后的教師界面

-8黔東南民族職業(yè)技術(shù)學(xué)院

如圖1-6密碼更正界面

密碼更正的代碼：

PrivateSubCommand1_Click()

DimsqlAsString

findform=False

sql="select*from表2where姓名='"&Text1.Text&"'"

conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\mydate.mdb"

rs_tushu.CursorLocation=adUseClient

rs_tushu.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs_tushu.EOF=TrueThen

MsgBox"此用戶不存在，請重新輸入!",vbOKOnly,""

Else

Text1.Text=rs_tushu("姓名")

Text2.Text=rs_tushu("密碼")

EndIf

EndSub

PrivateSubCommand2_Click()

DimsqlAsString

findform=False

sql="select*from表2where姓名='"&Text1.Text&"'"

conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\mydate.mdb"

rs_tushu.CursorLocation=adUseClient

-9黔東南民族職業(yè)技術(shù)學(xué)院

rs_tushu.Opensql,conn,adOpenKeyset,adLockPessimisticIfText3.Text=""Then

MsgBox"姓名不能夠為空",vbOK0nly+vbExclamation,""

MsgBox"兩次輸入的密碼不同樣，請重新輸入！",vbOKOnly+vbExclamation,""

ExitSub

EndIf

rs_tushu("密碼

answer=MsgBox("確信要更正嗎?",vbYesNo,"")

Ifanswer=vbYesThen

MsgBox"更正密碼成功!",vbOKOnly,""

ElseIfanswer=vbNoThen

MsgBox"已取消更正密碼!",vbOKOnly,""

EndIf

EndSub

PrivateSubCommand3_Click()

EndSub

教師任務(wù)書盤問界面：

如圖1-7教師任務(wù)書盤問界面

教師任務(wù)書盤問界面代碼：

PrivateSubcmdok_Click()

DimsqlAsString

findfor=False

sql="select*from教師表where教師姓名='"&Trim(Text1.Text)&"'"

conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\mydate.mdb"

-10黔東南民族職業(yè)技術(shù)學(xué)院

rs_book.CursorLocation=adUseClient

rs_book.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs_book.EOF=TrueThen

MsgBox"沒有這個用戶,請重新輸入！",vbOKOnly+vbExclamation,""

Text1.Text=""

Else

Combo1.Text=rs_book("學(xué)年")

Combo2.Text=rs_book("學(xué)期")

EndIf

EndSub

PrivateSubCommand2_Click()

Text1.Text=""

Combo1.Text=""

Combo2.Text=""

EndSub

PrivateSubCommand3_Click()

EndSub

如圖1-8表的數(shù)據(jù)庫

-11黔東南民族職業(yè)技術(shù)學(xué)院

如圖1-9學(xué)生成績錄入

學(xué)生成績錄入的代碼：

PrivateSubCommand1_Click()

DimsqlAsString

IfTrim(Text1.Text)=""Then

MsgBox"姓名不能夠為空",vbOKOnly+vbExclamation,""

ExitSub

EndIf

IfTrim(Text2.Text)=""Then

MsgBox"編號不能夠為空",vbOKOnly+vbExclamation,""

Text1.Text=""

ExitSub

EndIf

conn.Open"provider=microsoft.jet.oledb.4.0;datasource="&App.Path&"\myset.mdb"sql="select*from成績表where姓名='"&Trim(Text1.Text)&"'"rs_bookstyle.Opensql,conn,adOpenKeyset,adLockPessimistic

rs_bookstyle.Fields(0)=Trim(Text1.Text)

-12黔東南民族職業(yè)技術(shù)學(xué)院

rs_bookstyle.Fields(1)=Trim(Text2.Text)

rs_bookstyle.Fields(2)=Trim(Text3.Text)

rs_bookstyle.Fields(3)=Trim(Text4.Text)

rs_bookstyle.Fields(4)=Trim(Text5.Text)

rs_bookstyle.Fields(5)=Trim(Text6.Text)

rs_bookstyle.Fields(6)=Trim(Text7.Text)

rs_bookstyle.Fields(7)=Trim(Text8.Text)

rs_bookstyle.Fields(8)=Trim(Text9.Text)

rs_bookstyle.Fields(9)=Trim(Text10.Text)

rs_bookstyle.Fields(10)=Trim(Text11.Text)

rs_bookstyle.Fields(11)=Trim(Text12.Text)

MsgBox"增加信息成功!",vbOKOnly,""

Else

MsgBox"學(xué)生信息重復(fù)",vbOKOnly+vbExclamation

Text1.Text=""

ExitSub

EndIf

EndSub

PrivateSubCommand2_Click()

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

Text5.Text=""

Text6.Text=""

Text7.Text=""

Text8.Text=""

Text9.Text=""

Text10.Text=""

Text11.Text=""

Text12.Text=""

EndSub

PrivateSubCommand3_Click()

EndSub

-13黔東南民族職業(yè)技術(shù)學(xué)院

如圖1-10學(xué)生登錄界面

如圖1-11學(xué)生信息更正界面

-14黔東南民族職業(yè)技術(shù)學(xué)院

學(xué)生信息更正代碼以下：

PrivateSubCommand1_Click()

DimsqlAsString

findform=False

sql="select*from學(xué)生信息where姓名='"&Text1.Text&"'"

conn.Open"provider=Microsoft.Jet.OLEDB.4.0;&

"\mydate.mdb"

rs_student.CursorLocation=adUseClient

rs_student.Opensql,conn,adOpenKeyset,adLockPessimisticIfrs_student.EOF=TrueThen

MsgBox"此用戶不存在，請重新輸入!",vbOKOnly,""

Else

Text1.Text=rs_student("姓名")

Text2.Text=rs_student("學(xué)號")&""

Text3.Text=rs_student("學(xué)號")&""

Text4.Text=rs_student("出生年月")&""

Text5.Text=rs_student("政治容顏")&""

Text6.Text=rs_student("班級")&""

Text17.Text=rs_student("專業(yè)")&""

Text18.Text=rs_student("入學(xué)時間")&""

Text9.Text=rs_student("密碼")&""

Text10.Text=rs_student("確認(rèn)密碼")&""

EndIf

EndSub

PrivateSubCommand2_Click()

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

Text5.Text=""

Text6.Text=""

Text7.Text=""

Text8.Text=""

Text9.Text=""

Text10.Text=""

EndSub

PrivateSubCommand3_Click()

EndSub

-15黔東南民族職業(yè)技術(shù)學(xué)院

如圖1-12學(xué)生學(xué)期課程成績盤問

學(xué)期課程盤問代碼：

PrivateSubCommand1_Click()

EndSub

PrivateSubOption1_Click()

DimsqlAsString

'findform=False

sql="select*from成績表"

conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\myset.mdb"

rs_teach.CursorLocation=adUseClient

rs_teach.Opensql,conn,adOpenKeyset,adLockPessimistic

SetDataGrid1.DataSource=rs_teach

EndSub

PrivateSubOption2_Click()

DimsqlAsString

-16黔東南民族職業(yè)技術(shù)學(xué)院

'findform=False

sql="select*from成績表"

conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\myset.mdb"

rs_teach.CursorLocation=adUseClient

rs_teach.Opensql,conn,adOpenKeyset,adLockPessimistic

SetDataGrid1.DataSource=rs_teach

EndSub

PrivateSubOption3_Click()

DimsqlAsString

'findform=False

sql="select*from成績表"

conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\myset.mdb"

rs_teach.CursorLocation=adUseClient

rs_teach.Opensql,conn,adOpenKeyset,adLockPessimistic

SetDataGrid1.DataSource=rs_teach

EndSub

學(xué)生信息表

字段名種類大小備注學(xué)號文本4重點字姓名文本8姓別文本8出生年月日期/時間15政治容顏文本10班級文本10專業(yè)文本10入學(xué)時間日期/時間15密碼文本15圖1-13學(xué)生信息表

-17黔東南民族職業(yè)技術(shù)學(xué)院

圖1-14個人成績盤問

學(xué)生成績盤問代碼：

PrivateSubCommand1_Click()

DimsqlAsString

findfor=False

sql="select*from成績表where姓名='"&Trim(Text1.Text)&"'"

conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\myset.mdb"

rs_book.CursorLocation=adUseClient

rs_book.Opensql,conn,adOpenKeyset,adLockPessimistic

Ifrs_book.EOF=TrueThen

MsgBox"沒有這個用戶,請重新輸入！",vbOKOnly+vbExclamation,""

Text1.Text=""

Else

Text4.Text=rs_book("英語")

Text5.Text=rs_book("JAVA")

Text6.Text=rs_book("C語言")

-18黔東南民族職業(yè)技術(shù)學(xué)院

Text7.Text=rs_book("組裝與維修")

Text8.Text=rs_book("微機原理")

Text9.Text=rs_book("PS")

Text10.Text=rs_book("平面動畫")

Text11.Text=rs_book("計算機安全")

Text12.Text=rs_book("VB")

EndIf

EndSub

PrivateSubCommand2_Click()

Text1.Text=""

Text2.Text=""

EndSub

PrivateSubCommand3_Click()

EndSub

圖1-15成立數(shù)據(jù)庫表

-19黔東南民族職業(yè)技術(shù)學(xué)院