1、摘要該學生成績管理系統是用Visual Basic 制作的，該系統可以實現教師進行對學生的成績管理，添加學生用戶以及可以查詢學生的成績；還實現學生用戶通過登錄系統可以查詢到自己的各科課程成績以及修改自己的登錄密碼；還有的是教師用戶和學生用戶可以退出系統。該系統采用了對窗體、基本控件的應用，選擇結構的if語句，循環結構的循環語句fornext結構，菜單設計，過程，數據文件來構建整個程序。在此報告中重點敘述了學生成績系統的各個功能，特別是學生的成績查詢和密碼修改以及教師和學生的登錄。整個系統會以系統結構圖、程序流程圖、功能模塊，讓大家能知曉該系統的功能。摘要1第一章 任務概述31.1、目標31.2

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

3、個方面：1.2.1、鼠標操作你可以利用鼠標點擊界面的某些按鈕來實現對系統的有關操作。1.2.2、鍵盤操作你可以利用鍵盤對該系統的某些操作。第二章 總體設計 2.1、系統結構圖登錄系統教師登錄學生登錄成績管理添加用戶添加刪除添加刪除查詢成績修改密碼幫助退出系統圖2-1 系統結構圖第三章 詳細設計3.1、程序運行后的界面圖3-1 系統界面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、教師對學生的成績管理的界面·· 圖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隨機文件編號Dim lastrecord As Long文件中最后一條記錄的編號Dim position As Long當前記錄編號Private Sub addCmd_Click()添加學生的成績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向隨機文件寫入數據NumText.Text = ""NameText.Text = ""GsText.Text = ""YyText.Text = "

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

8、 i = 1 To lastrecordIf i <> position Then判斷是否與當前記錄編號一致 Get filenum, i, s從隨機文件讀取數據 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)打開隨機文件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、教師對學生添加用戶的界面圖3-4 添加用戶界面主要代碼：Private Sub addlCmd_Click()添加學生用戶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()刪除學生用戶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、學生的登錄界面圖3-5 學生登錄界面主要代碼：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()學生第一次登錄 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()學生修改密碼后的登錄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、學生查詢成績的界面圖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()學生查詢成績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、學生修改密碼的界面圖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()學生修改密碼If qpwdtext.Text <> xpwdtext.Text Then判斷兩次輸入的新密碼是否一致MsgBox "新密碼和確認新密碼不一