用VB制作学生成绩管理系统整理精品范本.docx
《用VB制作学生成绩管理系统整理精品范本.docx》由会员分享，可在线阅读，更多相关《用VB制作学生成绩管理系统整理精品范本.docx（15页珍藏版）》请在冰豆网上搜索。
用VB制作学生成绩管理系统整理精品范本
摘要
该学生成绩管理系统是用VisualBasic制作的，该系统可以实现教师进行对学生的成绩管理,添加学生用户以及可以查询学生的成绩；还实现学生用户通过登录系统可以查询到自己的各科课程成绩以及修改自己的登录密码；还有的是教师用户和学生用户可以退出系统.
该系统采用了对窗体、基本控件的应用，选择结构的if语句,循环结构的循环语句for…next结构，菜单设计，过程,数据文件来构建整个程序。
在此报告中重点叙述了学生成绩系统的各个功能,特别是学生的成绩查询和密码修改以及教师和学生的登录。
整个系统会以系统结构图、程序流程图、功能模块，让大家能知晓该系统的功能。
第一章任务概述
1。
1、目标
本系统的目标是建立一套可以对学生的成绩的管理、查询学生的各科成绩、对学生的密码修改的学生成绩管理系统。
该系统可以帮助我们更方便的管理学生的成绩,替代了以前的手工操作管理学生的成绩，节约我们珍贵的时间。
1.2、需求分析
根据该系统的需求分析，系统的需求可以分为以下的几个方面：
1.2。
1、鼠标操作
你可以利用鼠标点击界面的某些按钮来实现对系统的有关操作。
1。
2.2、键盘操作
你可以利用键盘对该系统的某些操作。
第二章总体设计
2。
1、系统结构图
图2-1系统结构图
第三章详细设计
3.1、程序运行后的界面
图3—1系统界面
3。
2、教师的登录界面
图3—2教师登录界面
代码:
PrivateSubCommand1_Click（）
DimusenameAsString，pwdAsString’定义用户名和用户密码
usename=LCase（Trim（T1.Text））
pwd=T2.Text
Ifusename="admin"Then’判断用户名和密码是否正确
Ifpwd="123456"Then
UnloadMe
管理Form。
Show
Else
MsgBox”密码错误!
”,vbOKOnly+vbInformation,"提示”
T2。
SetFocus
T2.SelLength=99
EndIf
Else
MsgBox"用户名错误！
"
EndIf
EndSub
3
。
3、教师对学生的成绩管理的界面
图3-3成绩管理界面
主要代码：
PrivateTypestudent’对student类型和公共变量的定义
numAsString*8
nameAsString＊6
gsAsInteger
yyAsInteger
vbAsInteger
wlAsInteger
EndType
DimsAsstudent’记录变量
DimfilenumAsInteger’随机文件编号
DimlastrecordAsLong’文件中最后一条记录的编号
DimpositionAsLong’当前记录编号
PrivateSubaddCmd_Click（）'添加学生的成绩
lastrecord=LOF（filenum）/Len（s）
lastrecord=lastrecord+1
s.num=NumText.Text
s.name=NameText.Text
s.gs=GsText.Text
s。
yy=YyText.Text
s.vb=VbText.Text
s.wl=WlText.Text
Put＃filenum,lastrecord，s’向随机文件写入数据
NumText.Text=””
NameText。
Text="”
GsText.Text=""
YyText.Text=”"
VbText.Text=”"
WlText。
Text="”
EndSub
PrivateSubcancelCmd_Click（）’删除学生的成绩
DimiAsInteger,ftAsInteger’定义变量
lastrecord=LOF（filenum）/Len（s）
ft=FreeFile（）
Open"student。
tmp”ForRandomAsftLen=Len（s）’打开随机文件
position=Seek（filenum）
position=position—1
Fori=1Tolastrecord
Ifi<〉positionThen’判断是否与当前记录编号一致
Getfilenum,i，s’从随机文件读取数据
Putft,i,s
EndIf
Next
lastrecord=lastrecord-1
Closefilenum
Closeft
Kill"student.dat"
Name”student。
tmp”As”student.dat”
filenum=FreeFile
Open"student.dat”ForRandomAs＃filenumLen=Len（s）’打开随机文件
NumText.Text="”
NameText.Text=""
GsText.Text=""
YyText.Text=”"
VbText。
Text=”"
WlText。
Text=””
EndSub
PrivateSubForm_Load（）
filenum=FreeFile
Open”student.dat"ForRandomAs#filenumLen=Len（s）
position=Seek（filenum）
Getfilenum，position,s
NumText。
Text=s。
num
NameText.Text=s。
name
GsText。
Text=s。
gs
YyText.Text=s.yy
VbText。
Text=s.vb
WlText。
Text=s。
wl
3。
4、教师对学生添加用户的界面
图3-4添加用户界面
主要代码：
PrivateSubaddlCmd_Click（）'添加学生用户
lastrecord=LOF（filenum）/Len（m）
lastrecord=lastrecord+1
m.num=NumText。
Text
m。
pwd=PwdText.Text
Put＃filenum,lastrecord，m
NumText.Text=""
PwdText。
Text="”
EndSub
PrivateSubcancelCmd_Click（）’删除学生用户
DimjAsInteger,jtAsInteger
lastrecord=LOF（filenum）/Len（m）
ft=FreeFile（）
Open”message。
tmp”ForRandomAsftLen=Len（m）
position=Seek（filenum）
position=position-1
Fori=1Tolastrecord
Ifi〈>positionThen
Getfilenum,i，m
Putjt，i，m
EndIf
Next
lastrecord=lastrecord-1
Closefilenum
Closejt
Kill"student。
dat"
Name"message。
tmp"As”message.dat"
filenum=FreeFile
Open"message.dat”ForRandomAs＃filenumLen=Len（m）
NumText.Text=""
PwdText。
Text=””
EndSub
PrivateSubForm_Load（）
filenum=FreeFile
Open"message。
dat”ForRandomAs#filenumLen=Len（m）
position=Seek（filenum）
Getfilenum,position,m
NumText.Text=m。
num
PwdText。
Text=m。
pwd
EndSub
PrivateSubForm_Load（）
filenum=FreeFile
Open”message。
dat”ForRandomAs#filenumLen=Len（m）
position=Seek（filenum）
Getfilenum，position,m
NumText。
Text=m。
num
PwdText。
Text=m。
pwd
EndSub
3。
5、学生的登录界面
图3-5学生登录界面
主要代码：
PrivateTypemessage
numAsString*6
pwdAsString＊6
EndType
PrivateTypepassword
pwdAsString＊6
EndType
DimnAspassword
DimmAsmessage
DimfilenbAsInteger
DimfilenumAsInteger
DimlastrecordAsLong
DimpositionAsLong
PrivateSubCommand1_Click（）’学生第一次登录
IfBText.Text=m。
numThen
IfPText。
Text=m。
pwdThen
UnloadMe
管理Form.Show
管理Form.c。
Enabled=False
管理Form.t。
Enabled=False
管理Form。
xg。
Enabled=True
Else
MsgBox"密码错误！
”，vbOKOnly+vbInformation，"提示”
PText.SetFocus
PText.SelLength=99
EndIf
Else
MsgBox"班号错误！
”
EndIf
EndSub
PrivateSubCommand3_Click（）’学生修改密码后的登录
IfBText。
Text=m.numThen
IfPText.Text=n。
pwdThen
UnloadMe
管理Form.Show
管理Form.c.Enabled=False
管理Form。
t。
Enabled=False
管理Form.xg.Enabled=True
Else
MsgBox"密码错误！
"，vbOKOnly+vbInformation，"提示”
PText.SetFocus
PText。
SelLength=99
EndIf
Else
MsgBox”班号错误!
”
EndIf
EndSub
PrivateSubForm_Load（）
登录Form.Visible=False
管理Form。
Show
filenb=FreeFile
OpenApp。
Path&”\message.dat”ForRandomAs＃filenbLen=Len（m）
添户Form。
NumText.Text=m。
num
添户Form.PwdText.Text=m。
pwd
lastrecord=LOF（filenb）/Len（m）
Fori=1Tolastrecord
Get#filenb,i,m
Next
filenc=FreeFile
OpenApp.Path＆"\password。
dat"ForRandomAs#filencLen=Len（n）
改密码Form。
xpwdtext.Text=n.pwd
lastrecord=LOF（filenc）/Len（n）
Fori=1Tolastrecord
Get#filenc，i，n
Next
EndSub
3.6、学生查询成绩的界面
图3—6成绩查询界面
主要代码：
PrivateTypestudent
numAsString＊8
nameAsString＊6
gsAsInteger
yyAsInteger
vbAsInteger
wlAsInteger
EndType
DimsAsstudent
DimfilenoAsInteger
DimlastrecordAsLong
DimpositionAsLong
PrivateSubCommand2_Click（）'学生查询成绩
fileno=FreeFile
OpenApp.Path&”\student.dat”ForRandomAs#filenoLen=Len（s）
添加Form。
NumText。
Text=s.num
添加Form。
NameText。
Text=s.name
添加Form.GsText。
Text=s。
gs
添加Form.YyText。
Text=s.yy
添加Form.VbText.Text=s。
vb
添加Form.WlText。
Text=s。
wl
lastrecord=LOF（fileno）/Len（s）
Fori=1Tolastrecord
Get#fileno,i，s
IfT1.Text=s.numThen
T2.Text=s.name
T3.Text=s。
gs
T4.Text=s。
yy
T5.Text=s。
vb
T6.Text=s.wl
EndIf
Next
EndSub
3.7、学生修改密码的界面
图3-7修改密码界面
主要代码：
PrivateTypepassword
pwdAsString＊6
EndType
DimnAspassword
DimfilenumAsInteger
DimfilenuAsInteger
DimlastrecordAsLong
DimpositionAsLong
PrivateSubCommand1_Click（）’学生修改密码
Ifqpwdtext.Text〈〉xpwdtext.TextThen’判断两次输入的新密码是否一致
MsgBox"新密码和确认新密码不一致”
Else
MsgBox"记得下次登录请用新密码，并登录时点击再登录"
EndIf
lastrecord=LOF（filenum）/Len（n）
lastrecord=lastrecord+1
n。
pwd=xpwdtext.Text
Put＃filenum,lastrecord,n
xpwdtext.Text="”
EndSub
PrivateSubForm_Load（）
filenum=FreeFile
Open"password.dat"ForRandomAs＃filenumLen=Len（n）
position=Seek（filenum）
Getfilenum，position，n
xpwdtext.Text=n。
pwd
小结
通过这一周的VB程序设计实践,我感觉学到了很多知识。
不仅仅巩固了对课本知识的理解，还学会了如何独自去思考程序中出现的问题。
我还发现自己之前根本没学到什么，都怪自己懒惰了，没有好好去学。
一开始做这个学生成绩管理系统无头绪，接着看了下课本，试着用自己学到的知识编写这个程序。
我对数据文件不太理解，还有一些VB编程的细节问题不清楚，在此过程真是困难重重呀。
然后,我通过再看课本进一步去理解课本的内容，再去编写程序。
但还是遇到了问题，经过反复的思考去修改，最后程序终于能运行了，那刻自己感到很自豪.我记得老师曾经说过这样一句话：
在编程序的过程中，你要反复的去思考，没有做不到的事，只有想不到的事。
总而言之，今后我一定要多看一些编写程序的书籍,通过自己亲手去操作编写程序，学习更多的知识来提高自己的能力。
升级会员 