用VB制作学生成绩管理系统

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 "新密码和确认新密码不一