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

东华理工大学长江学院课程设计报告摘要1摘要该学生成绩管理系统是用VisualBasic制作的，该系统可以实现教师进行对学生的成绩管理，添加学生用户以及可以查询学生的成绩；还实现学生用户通过登录系统可以查询到自己的各科课程成绩以及修改自己的登录密码；还有的是教师用户和学生用户可以退出系统。该系统采用了对窗体、基本控件的应用，选择结构的if语句，循环结构的循环语句for…next结构，菜单设计，过程，数据文件来构建整个程序。在此报告中重点叙述了学生成绩系统的各个功能，特别是学生的成绩查询和密码修改以及教师和学生的登录。整个系统会以系统结构图、程序流程图、功能模块，让大家能知晓该系统的功能。东华理工大学长江学院课程设计报告目录2摘要........................................................................................................................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小结......................................................................................................................15东华理工大学长江学院课程设计报告任务概述3第一章任务概述1.1、目标本系统的目标是建立一套可以对学生的成绩的管理、查询学生的各科成绩、对学生的密码修改的学生成绩管理系统。该系统可以帮助我们更方便的管理学生的成绩，替代了以前的手工操作管理学生的成绩，节约我们珍贵的时间。1.2、需求分析根据该系统的需求分析，系统的需求可以分为以下的几个方面：1.2.1、鼠标操作你可以利用鼠标点击界面的某些按钮来实现对系统的有关操作。1.2.2、键盘操作你可以利用键盘对该系统的某些操作。东华理工大学长江学院课程设计报告总体设计4第二章总体设计2.1、系统结构图登录系统教师登录学生登录成绩管理添加用户添加删除添加删除查询成绩修改密码帮助退出系统图2-1系统结构图东华理工大学长江学院课程设计报告详细设计5第三章详细设计3.1、程序运行后的界面图3-1系统界面3.2、教师的登录界面图3-2教师登录界面代码：PrivateSubCommand1_Click()DimusenameAsString,pwdAsString’定义用户名和用户密码usename=LCase(Trim(T1.Text))pwd=T2.Text东华理工大学长江学院课程设计报告详细设计6Ifusename=adminThen’判断用户名和密码是否正确Ifpwd=123456ThenUnloadMe管理Form.ShowElseMsgBox密码错误！,vbOKOnly+vbInformation,提示T2.SetFocusT2.SelLength=99EndIfElseMsgBox用户名错误！EndIfEndSub3.3、教师对学生的成绩管理的界面图3-3成绩管理界面主要代码：PrivateTypestudent’对student类型和公共变量的定义numAsString*8nameAsString*6东华理工大学长江学院课程设计报告详细设计7gsAsIntegeryyAsIntegervbAsIntegerwlAsIntegerEndTypeDimsAsstudent’记录变量DimfilenumAsInteger’随机文件编号DimlastrecordAsLong’文件中最后一条记录的编号DimpositionAsLong’当前记录编号PrivateSubaddCmd_Click()’添加学生的成绩lastrecord=LOF(filenum)/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=EndSubPrivateSubcancelCmd_Click()’删除学生的成绩DimiAsInteger,ftAsInteger’定义变量lastrecord=LOF(filenum)/Len(s)ft=FreeFile()Openstudent.tmpForRandomAsftLen=Len(s)’打开随机文件position=Seek(filenum)position=position-1Fori=1TolastrecordIfipositionThen’判断是否与当前记录编号一致Getfilenum,i,s’从随机文件读取数据Putft,i,sEndIfNextlastrecord=lastrecord-1ClosefilenumCloseftKillstudent.datNamestudent.tmpAsstudent.dat东华理工大学长江学院课程设计报告详细设计8filenum=FreeFileOpenstudent.datForRandomAs#filenumLen=Len(s)’打开随机文件NumText.Text=NameText.Text=GsText.Text=YyText.Text=VbText.Text=WlText.Text=EndSubPrivateSubForm_Load()filenum=FreeFileOpenstudent.datForRandomAs#filenumLen=Len(s)position=Seek(filenum)Getfilenum,position,sNumText.Text=s.numNameText.Text=s.nameGsText.Text=s.gsYyText.Text=s.yyVbText.Text=s.vbWlText.Text=s.wl3.4、教师对学生添加用户的界面图3-4添加用户界面主要代码：PrivateSubaddlCmd_Click()’添加学生用户lastrecord=LOF(filenum)/Len(m)lastrecord=lastrecord+1东华理工大学长江学院课程设计报告详细设计9m.num=NumText.Textm.pwd=PwdText.TextPut#filenum,lastrecord,mNumText.Text=PwdText.Text=EndSubPrivateSubcancelCmd_Click()’删除学生用户DimjAsInteger,jtAsIntegerlastrecord=LOF(filenum)/Len(m)ft=FreeFile()Openmessage.tmpForRandomAsftLen=Len(m)position=Seek(filenum)position=position-1Fori=1TolastrecordIfipositionThenGetfilenum,i,mPutjt,i,mEndIfNextlastrecord=lastrecord-1ClosefilenumClosejtKillstudent.datNamemessage.tmpAsmessage.datfilenum=FreeFileOpenmessage.datForRandomAs#filenumLen=Len(m)NumText.Text=PwdText.Text=EndSubPrivateSubForm_Load()filenum=FreeFileOpenmessage.datForRandomAs#filenumLen=Len(m)position=Seek(filenum)Getfilenum,position,mNumText.Text=m.numPwdText.Text=m.pwdEndSubPrivateSubForm_Load()filenum=FreeFileOpenmessage.datForRandomAs#filenumLen=Len(m)position=Seek(filenum)Getfilenum,position,mNumText.Text=m.numPwdText.Text=m.pwd