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

1、摘要該學(xué)生成績(jī)管理系統(tǒng)是用Visual Basic 制作的，該系統(tǒng)可以實(shí)現(xiàn)教師進(jìn)行對(duì)學(xué)生的成績(jī)管理，添加學(xué)生用戶以及可以查詢學(xué)生的成績(jī)；還實(shí)現(xiàn)學(xué)生用戶通過登錄系統(tǒng)可以查詢到自己的各科課程成績(jī)以及修改自己的登錄密碼；還有的是教師用戶和學(xué)生用戶可以退出系統(tǒng)。該系統(tǒng)采用了對(duì)窗體、基本控件的應(yīng)用，選擇結(jié)構(gòu)的if語句，循環(huán)結(jié)構(gòu)的循環(huán)語句fornext結(jié)構(gòu)，菜單設(shè)計(jì)，過程，數(shù)據(jù)文件來構(gòu)建整個(gè)程序。在此報(bào)告中重點(diǎn)敘述了學(xué)生成績(jī)系統(tǒng)的各個(gè)功能，特別是學(xué)生的成績(jī)查詢和密碼修改以及教師和學(xué)生的登錄。整個(gè)系統(tǒng)會(huì)以系統(tǒng)結(jié)構(gòu)圖、程序流程圖、功能模塊，讓大家能知曉該系統(tǒng)的功能。摘要1第一章 任務(wù)概述31.1、目標(biāo)31.2

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

3、個(gè)方面：1.2.1、鼠標(biāo)操作你可以利用鼠標(biāo)點(diǎn)擊界面的某些按鈕來實(shí)現(xiàn)對(duì)系統(tǒng)的有關(guān)操作。1.2.2、鍵盤操作你可以利用鍵盤對(duì)該系統(tǒng)的某些操作。第二章 總體設(shè)計(jì) 2.1、系統(tǒng)結(jié)構(gòu)圖登錄系統(tǒng)教師登錄學(xué)生登錄成績(jī)管理添加用戶添加刪除添加刪除查詢成績(jī)修改密碼幫助退出系統(tǒng)圖2-1 系統(tǒng)結(jié)構(gòu)圖第三章 詳細(xì)設(shè)計(jì)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 "密碼錯(cuò)誤！", vbOKOnly + vbInformation, "提示" T2.SetFocus T2.SelLength = 99 End IfElse MsgBox "用戶名錯(cuò)誤！"End IfEnd Sub3.3、教師對(duì)學(xué)生的成績(jī)管理的界面·· 圖3-3 成績(jī)管

5、理界面主要代碼：Private Type student 對(duì)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ī)文件編號(hào)Dim lastrecord As Long文件中最后一條記錄的編號(hào)Dim position As Long當(dāng)前記錄編號(hào)Private Sub addCmd_Click()添加學(xué)生的成績(jī)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é)生的成績(jī)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)前記錄編號(hào)一致 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、教師對(duì)學(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 "密碼錯(cuò)誤！", vbOKOnly + vbInformation, "提示" PText.SetFocus PText.SelLength = 99 End IfElse MsgBox "班號(hào)錯(cuò)誤！" 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 "密碼錯(cuò)誤！", vbOKOnly + vbInformation, "提示" PText.SetFocus PText.SelLength = 99 End IfElse MsgBox "班號(hào)錯(cuò)誤！" 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é)生查詢成績(jī)的界面圖3-6 成績(jī)查詢界面主要代碼：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é)生查詢成績(jī)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)新密碼不一