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

《用vb制作学生成绩管理系统》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、东华理工大学长江学院课程设计报告摘要摘要该学生成绩管理系统是用VisualBasic制作的，该系统可以实现教师进行对学生的成绩管理，添加学生用户以及可以查询学生的成绩；还实现学生用户通过登录系统可以查询到自己的各科课程成绩以及修改自己的登录密码；还有的是教师用户和学生用户可以退出系统。该系统采用了对窗体、基本控件的应用，选择结构的if语句，循环结构的循环语句for…next结构，菜单设计，过程，数据文件来构建整个程序。在此报告中重点叙述了学生成绩系统的各个功能，特别是学生的成绩查询和密码修改以及教师和学

2、生的登录。整个系统会以系统结构图、程序流程图、功能模块，让大家能知晓该系统的功能。15东华理工大学长江学院课程设计报告目录摘要1第一章任务概述31.1、目标31.2、需求分析31.2.1、鼠标操作31.2.2、键盘操作3第二章总体设计42.1、系统结构图4第三章详细设计53.1、程序运行后的界面53.2、教师的登录界面53.3、教师对学生的成绩管理的界面63.4、教师对学生添加用户的界面83.5、学生的登录界面103.6、学生查询成绩的界面123.7、学生修改密码的界面13小结1515东华理工大学长江学

3、院课程设计报告任务概述第一章任务概述1.1、目标本系统的目标是建立一套可以对学生的成绩的管理、查询学生的各科成绩、对学生的密码修改的学生成绩管理系统。该系统可以帮助我们更方便的管理学生的成绩，替代了以前的手工操作管理学生的成绩，节约我们珍贵的时间。1.2、需求分析根据该系统的需求分析，系统的需求可以分为以下的几个方面：1.2.1、鼠标操作你可以利用鼠标点击界面的某些按钮来实现对系统的有关操作。1.2.2、键盘操作你可以利用键盘对该系统的某些操作。15东华理工大学长江学院课程设计报告总体设计第二章总体设计

4、2.1、系统结构图登录系统教师登录学生登录成绩管理添加用户添加删除添加删除查询成绩修改密码帮助退出系统图2-1系统结构图15东华理工大学长江学院课程设计报告详细设计第三章详细设计3.1、程序运行后的界面图3-1系统界面3.2、教师的登录界面图3-2教师登录界面代码：PrivateSubCommand1_Click()DimusenameAsString,pwdAsString’定义用户名和用户密码usename=LCase(Trim(T1.Text))pwd=T2.Text15东华理工大学长江学院课程设

5、计报告详细设计Ifusename="admin"Then’判断用户名和密码是否正确Ifpwd="123456"ThenUnloadMe管理Form.ShowElseMsgBox"密码错误！",vbOKOnly+vbInformation,"提示"T2.SetFocusT2.SelLength=99EndIfElseMsgBox"用户名错误！"EndIfEndSub3.3、教师对学生的成绩管理的界面··图3-3成绩管理界面主要代码：PrivateTypestudent’对student类型和公共变量的定义

6、numAsString*8nameAsString*615东华理工大学长江学院课程设计报告详细设计gsAsIntegeryyAsIntegervbAsIntegerwlAsIntegerEndTypeDimsAsstudent’记录变量DimfilenumAsInteger’随机文件编号DimlastrecordAsLong’文件中最后一条记录的编号DimpositionAsLong’当前记录编号PrivateSubaddCmd_Click()’添加学生的成绩lastrecord=LOF(filenum

7、)/Len(s)lastrecord=lastrecord+1s.num=NumText.Texts.name=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=""VbText.Text=""WlText.Text=""

8、EndSubPrivateSubcancelCmd_Click()’删除学生的成绩DimiAsInteger,ftAsInteger’定义变量lastrecord=LOF(filenum)/Len(s)ft=FreeFile()Open"student.tmp"ForRandomAsftLen=Len(s)’打开随机文件position=Seek(filenum)position=position-1Fori=1TolastrecordIf