用VB制作學(xué)生成績管理系統(tǒng)

1、摘要該學(xué)生成績管理系統(tǒng)是用Visual Basic 制作的，該系統(tǒng)可以實現(xiàn)教師進(jìn)行對學(xué)生的成績管理，添加學(xué)生用戶以及可以查詢學(xué)生的成績；還實現(xiàn)學(xué)生用戶通過登錄系統(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ù)文件來構(gòu)建整個程序。在此報告中重點(diǎn)敘述了學(xué)生成績系統(tǒng)的各個功能，特別是學(xué)生的成績查詢和密碼修改以及教師和學(xué)生的登錄。整個系統(tǒng)會以系統(tǒng)結(jié)構(gòu)圖、程序流程圖、功能模塊，讓大家能知曉該系統(tǒng)的功能。摘要1第一章 任務(wù)概述31.1、目標(biāo)31.2

2、、需求分析3、鼠標(biāo)操作3、鍵盤操作3第二章 總體設(shè)計42.1、系統(tǒng)結(jié)構(gòu)圖4第三章 詳細(xì)設(shè)計53.1、程序運(yùn)行后的界面53.2、教師的登錄界面53.3、教師對學(xué)生的成績管理的界面63.4、教師對學(xué)生添加用戶的界面83.5、學(xué)生的登錄界面103.6、學(xué)生查詢成績的界面123.7、學(xué)生修改密碼的界面13小結(jié)15第一章 任務(wù)概述 1.1、目標(biāo)本系統(tǒng)的目標(biāo)是建立一套可以對學(xué)生的成績的管理、查詢學(xué)生的各科成績、對學(xué)生的密碼修改的學(xué)生成績管理系統(tǒng)。該系統(tǒng)可以幫助我們更方便的管理學(xué)生的成績，替代了以前的手工操作管理學(xué)生的成績，節(jié)約我們珍貴的時間。1.2、需求分析根據(jù)該系統(tǒng)的需求分析，系統(tǒng)的需求可以分為以下的幾

3、個方面：1.2.1、鼠標(biāo)操作你可以利用鼠標(biāo)點(diǎn)擊界面的某些按鈕來實現(xiàn)對系統(tǒng)的有關(guān)操作。1.2.2、鍵盤操作你可以利用鍵盤對該系統(tǒng)的某些操作。第二章 總體設(shè)計 2.1、系統(tǒng)結(jié)構(gòu)圖登錄系統(tǒng)教師登錄學(xué)生登錄成績管理添加用戶添加刪除添加刪除查詢成績修改密碼幫助退出系統(tǒng)圖2-1 系統(tǒng)結(jié)構(gòu)圖第三章 詳細(xì)設(shè)計3.1、程序運(yùn)行后的界面圖3-1 系統(tǒng)界面3.2、教師的登錄界面圖3-2 教師登錄界面代碼：Private Sub Command1_Click()Dim usename As String, pwd As String定義用戶名和用戶密碼usename = LCase(Trim(T1.Text)pwd

4、= T2.TextIf usename = "admin" Then判斷用戶名和密碼是否正確 If pwd = "123456" ThenUnload Me 管理Form.Show Else MsgBox "密碼錯誤！", vbOKOnly + vbInformation, "提示" T2.SetFocus T2.SelLength = 99 End IfElse MsgBox "用戶名錯誤！"End IfEnd Sub3.3、教師對學(xué)生的成績管理的界面·· 圖3-3 成績管

5、理界面主要代碼：Private Type student 對student類型和公共變量的定義 num As String * 8 name As String * 6 gs As Integer yy As Integer vb As Integer wl As IntegerEnd TypeDim s As student記錄變量Dim filenum As Integer隨機(jī)文件編號Dim lastrecord As Long文件中最后一條記錄的編號Dim position As Long當(dāng)前記錄編號Private Sub addCmd_Click()添加學(xué)生的成績lastrecord

6、= LOF(filenum) / Len(s)lastrecord = lastrecord + 1s.num = NumText.T = NameText.Texts.gs = GsText.Texts.yy = YyText.Texts.vb = VbText.Texts.wl = WlText.TextPut #filenum, lastrecord, s向隨機(jī)文件寫入數(shù)據(jù)NumText.Text = ""NameText.Text = ""GsText.Text = ""YyText.Text = "

7、;"VbText.Text = ""WlText.Text = ""End SubPrivate Sub cancelCmd_Click()刪除學(xué)生的成績Dim i As Integer, ft As Integer定義變量lastrecord = LOF(filenum) / Len(s)ft = FreeFile()Open "student.tmp" For Random As ft Len = Len(s)打開隨機(jī)文件position = Seek(filenum)position = position - 1For

8、 i = 1 To lastrecordIf i <> position Then判斷是否與當(dāng)前記錄編號一致 Get filenum, i, s從隨機(jī)文件讀取數(shù)據(jù) Put ft, i, sEnd IfNextlastrecord = lastrecord - 1Close filenumClose ftKill "student.dat"Name "student.tmp" As "student.dat"filenum = FreeFileOpen "student.dat" For Random A

9、s #filenum Len = Len(s)打開隨機(jī)文件NumText.Text = ""NameText.Text = ""GsText.Text = ""YyText.Text = ""VbText.Text = ""WlText.Text = ""End SubPrivate Sub Form_Load()filenum = FreeFileOpen "student.dat" For Random As #filenum Len = Len(s)

10、position = Seek(filenum)Get filenum, position, sNumText.Text = s.numNameText.Text = GsText.Text = s.gsYyText.Text = s.yyVbText.Text = s.vbWlText.Text = s.wl3.4、教師對學(xué)生添加用戶的界面圖3-4 添加用戶界面主要代碼：Private Sub addlCmd_Click()添加學(xué)生用戶lastrecord = LOF(filenum) / Len(m)lastrecord = lastrecord + 1m.num = NumT

11、ext.Textm.pwd = PwdText.TextPut #filenum, lastrecord, mNumText.Text = ""PwdText.Text = ""End SubPrivate Sub cancelCmd_Click()刪除學(xué)生用戶Dim j As Integer, jt As Integerlastrecord = LOF(filenum) / Len(m)ft = FreeFile()Open "message.tmp" For Random As ft Len = Len(m)position =

12、Seek(filenum)position = position - 1For i = 1 To lastrecordIf i <> position Then Get filenum, i, m Put jt, i, mEnd IfNextlastrecord = lastrecord - 1Close filenumClose jtKill "student.dat"Name "message.tmp" As "message.dat"filenum = FreeFileOpen "message.dat&q

13、uot; For Random As #filenum Len = Len(m)NumText.Text = ""PwdText.Text = ""End SubPrivate Sub Form_Load()filenum = FreeFileOpen "message.dat" For Random As #filenum Len = Len(m)position = Seek(filenum)Get filenum, position, mNumText.Text = m.numPwdText.Text = m.pwdEnd Su

14、bPrivate Sub Form_Load()filenum = FreeFileOpen "message.dat" For Random As #filenum Len = Len(m)position = Seek(filenum)Get filenum, position, mNumText.Text = m.numPwdText.Text = m.pwdEnd Sub3.5、學(xué)生的登錄界面圖3-5 學(xué)生登錄界面主要代碼：Private Type messagenum As String * 6pwd As String * 6End TypePrivate Ty

15、pe passwordpwd As String * 6End TypeDim n As passwordDim m As messageDim filenb As IntegerDim filenum As IntegerDim lastrecord As LongDim position As LongPrivate Sub Command1_Click()學(xué)生第一次登錄 If BText.Text = m.num Then If PText.Text = m.pwd Then Unload Me 管理Form.Show 管理Form.c.Enabled = False 管理Form.t.

16、Enabled = False 管理Form.xg.Enabled = True Else MsgBox "密碼錯誤！", vbOKOnly + vbInformation, "提示" PText.SetFocus PText.SelLength = 99 End IfElse MsgBox "班號錯誤！" End IfEnd SubPrivate Sub Command3_Click()學(xué)生修改密碼后的登錄If BText.Text = m.num Then If PText.Text = n.pwd Then Unload Me

17、管理Form.Show 管理Form.c.Enabled = False 管理Form.t.Enabled = False 管理Form.xg.Enabled = True Else MsgBox "密碼錯誤！", vbOKOnly + vbInformation, "提示" PText.SetFocus PText.SelLength = 99 End IfElse MsgBox "班號錯誤！" End IfEnd SubPrivate Sub Form_Load()登錄Form.Visible = False管理Form.Show

18、filenb = FreeFileOpen App.Path & "message.dat" For Random As #filenb Len = Len(m)添戶Form.NumText.Text = m.num添戶Form.PwdText.Text = m.pwdlastrecord = LOF(filenb) / Len(m) For i = 1 To lastrecord Get #filenb, i, m Nextfilenc = FreeFileOpen App.Path & "password.dat" For Rando

19、m As #filenc Len = Len(n)改密碼Form.xpwdtext.Text = n.pwdlastrecord = LOF(filenc) / Len(n) For i = 1 To lastrecord Get #filenc, i, n NextEnd Sub3.6、學(xué)生查詢成績的界面圖3-6 成績查詢界面主要代碼：Private Type student num As String * 8 name As String * 6 gs As Integer yy As Integer vb As Integer wl As IntegerEnd TypeDim s As

20、studentDim fileno As IntegerDim lastrecord As LongDim position As LongPrivate Sub Command2_Click()學(xué)生查詢成績fileno = FreeFileOpen App.Path & "student.dat" For Random As #fileno Len = Len(s)添加Form.NumText.Text = s.num添加Form.NameText.Text = 添加Form.GsText.Text = s.gs添加Form.YyText.Text =

21、 s.yy添加Form.VbText.Text = s.vb添加Form.WlText.Text = s.wllastrecord = LOF(fileno) / Len(s) For i = 1 To lastrecord Get #fileno, i, s If T1.Text = s.num Then T2.Text = T3.Text = s.gs T4.Text = s.yy T5.Text = s.vb T6.Text = s.wl End IfNextEnd Sub3.7、學(xué)生修改密碼的界面圖3-7 修改密碼界面主要代碼：Private Type passwordpwd As String * 6End TypeDim n As passwordDim filenum As IntegerDim filenu As IntegerDim lastrecord As LongDim position As LongPrivate Sub Command1_Click()學(xué)生修改密碼If qpwdtext.Text <> xpwdtext.Text Then判斷兩次輸入的新密碼是否一致MsgBox "新密碼和確認(rèn)新密碼不一