用VB制作学生成绩管理系统Word格式文档下载.docx
《用VB制作学生成绩管理系统Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《用VB制作学生成绩管理系统Word格式文档下载.docx(16页珍藏版)》请在冰豆网上搜索。
3.2、教师的登录界面5
3
.3、教师对学生的成绩管理的界面6
3.4、教师对学生添加用户的界面8
3.5、学生的登录界面10
3.6、学生查询成绩的界面12
3.7、学生修改密码的界面13
小结15
第一章任务概述
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
用户名错误!
EndIf
EndSub
.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="
PrivateSubcancelCmd_Click()’删除学生的成绩
DimiAsInteger,ftAsInteger’定义变量
ft=FreeFile()
Open"
student.tmp"
ForRandomAsftLen=Len(s)’打开随机文件
position=Seek(filenum)
position=position-1
Fori=1Tolastrecord
Ifi<
>
positionThen’判断是否与当前记录编号一致
Getfilenum,i,s’从随机文件读取数据
Putft,i,s
Next
lastrecord=lastrecord-1
Closefilenum
Closeft
Kill"
student.dat"
Name"
As"
filenum=FreeFile
ForRandomAs#filenumLen=Len(s)’打开随机文件
PrivateSubForm_Load()
ForRandomAs#filenumLen=Len(s)
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)
m.num=NumText.Text
m.pwd=PwdText.Text
Put#filenum,lastrecord,m
PwdText.Text="
PrivateSubcancelCmd_Click()’删除学生用户
DimjAsInteger,jtAsInteger
message.tmp"
ForRandomAsftLen=Len(m)
positionThen
Getfilenum,i,m
Putjt,i,m
Closejt
message.dat"
ForRandomAs#filenumLen=Len(m)
Getfilenum,position,m
NumText.Text=m.num
PwdText.Text=m.pwd
3.5、学生的登录界面
图3-5学生登录界面
PrivateTypemessage
numAsString*6
pwdAsString*6
PrivateTypepassword
DimnAspassword
DimmAsmessage
DimfilenbAsInteger
DimfilenumAsInteger
DimlastrecordAsLong
DimpositionAsLong
PrivateSubCommand1_Click()’学生第一次登录
IfBText.Text=m.numThen
IfPText.Text=m.pwdThen
UnloadMe
管理Form.c.Enabled=False
管理Form.t.Enabled=False
管理Form.xg.Enabled=True
PText.SetFocus
PText.SelLength=99
班号错误!
PrivateSubCommand3_Click()’学生修改密码后的登录
IfBText.Text=m.numThen
IfPText.Text=n.pwdThen
vb