用VB制作学生成绩管理系统整理精品范本Word格式文档下载.docx
- 文档编号:19141117
- 上传时间:2023-01-04
- 格式:DOCX
- 页数:15
- 大小:244.58KB
用VB制作学生成绩管理系统整理精品范本Word格式文档下载.docx
《用VB制作学生成绩管理系统整理精品范本Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《用VB制作学生成绩管理系统整理精品范本Word格式文档下载.docx(15页珍藏版)》请在冰豆网上搜索。
图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。
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”student。
tmp”As”student.dat”
filenum=FreeFile
student.dat”ForRandomAs#filenumLen=Len(s)’打开随机文件
NumText.Text="
NameText.Text="
VbText。
Text=”"
Text=””
PrivateSubForm_Load()
Open”student.dat"
ForRandomAs#filenumLen=Len(s)
Getfilenum,position,s
NumText。
Text=s。
num
NameText.Text=s。
name
GsText。
gs
YyText.Text=s.yy
Text=s.vb
wl
4、教师对学生添加用户的界面
图3-4添加用户界面
PrivateSubaddlCmd_Click()'
添加学生用户
lastrecord=LOF(filenum)/Len(m)
m.num=NumText。
Text
m。
pwd=PwdText.Text
Put#filenum,lastrecord,m
PwdText。
PrivateSubcancelCmd_Click()’删除学生用户
DimjAsInteger,jtAsInteger
Open”message。
tmp”ForRandomAsftLen=Len(m)
position=position-1
Ifi〈>
positionThen
Getfilenum,i,m
Putjt,i,m
Closejt
dat"
Name"
message。
tmp"
As”message.dat"
message.dat”ForRandomAs#filenumLen=Len(m)
dat”ForRandomAs#filenumLen=Len(m)
Getfilenum,position,m
NumText.Text=m。
Text=m。
pwd
Getfilenum,position,m
5、学生的登录界面
图3-5学生登录界面
PrivateTypemessage
numAsString*6
pwdAsString*6
PrivateTypepassword
DimnAspassword
DimmAsmessage
DimfilenbAsInteger
DimfilenumAsInteger
DimlastrecordAsLong
DimpositionAsLong
PrivateSubCommand1_Click()’学生第一次登录
IfBText.Text=m。
numThen
IfPText。
pwdThen
UnloadMe
管理Form.Show
管理Form.c。
Enabled=False
管理Form.t。
xg。
Enabled=True
密码错误!
”,vbOKOnly+vbInformation,"
PText.SetFocus
PText.SelLength=99
班号错误!
PrivateSubCommand3_Click()’学生修改密码后的登录
IfBText。
Text=m.numThen
IfPText.Text=n。
管理Form.c.Enabled=False
t。
管理Form.xg.Enabled=True
,vbOKOnly+vbInformation,"
PText。
SelLength=99
MsgBox”班号错误!
登录Form.Visible=False
管理Form。
filenb=FreeFile
OpenApp。
Path&
”\message.dat”ForRandomAs#filenbLen=Len(m)
添户Form。
添户Form.PwdText.Text=m。
lastrecord=LOF(filenb)/Len(m)
Fori=1Tolastrecord
Get#filenb,i,m
Next
filenc=FreeFile
OpenApp.Path&"
\password。
ForRandomAs#filencLen=Len(n)
改密码Form。
xpwdtext.Text=n.pwd
lastrecord=LOF(filenc)/Len(n)
Get#filenc,i,n
3.6、学生查询成绩的界面
图3—6成绩查询界面
PrivateTypestudent
numAsString*8
DimsAsstudent
DimfilenoAsInteger
PrivateSubCommand2_Click()'
学生查询成绩
fileno=FreeFile
OpenApp.Path&
”\student.dat”ForRandomAs#filenoLen=Len(s)
添加Form。
Text=s.num
Text=s.name
添加Form.GsText。
添加Form.YyText。
Text=s.yy
添加Form.VbText.Text=s。
vb
添加Form.WlText。
lastrecord=LOF(fileno)/Len(s)
Get#fileno,i,s
IfT1.Text=s.numThen
T2.Text=s.name
T3.Text=s。
T4.Text=s。
yy
T5.Text=s。
T6.Text=s.wl
3.7、学生修改密码的界面
图3-7修改密码界面
DimfilenuAsInteger
PrivateSubCommand1_Click()’学生修改密码
Ifqpwdtext.Text〈〉xpwdtext.TextThen’判断两次输入的新密码是否一致
MsgBox"
新密码和确认新密码不一致”
记得下次登录请用新密码,并登录时点击再登录"
lastrecord=LOF(filenum)/Len(n)
n。
pwd=xpwdtext.Text
Put#filenum,lastrecord,n
xpwdtext.Text="
password.dat"
ForRandomAs#filenumLen=Len(n)
Getfilenum,position,n
xpwdtext.Text=n。
pwd
小结
通过这一周的VB程序设计实践,我感觉学到了很多知识。
不仅仅巩固了对课本知识的理解,还学会了如何独自去思考程序中出现的问题。
我还发现自己之前根本没学到什么,都怪自己懒惰了,没有好好去学。
一开始做这个学生成绩管理系统无头绪,接着看了下课本,试着用自己学到的知识编写这个程序。
我对数据文件不太理解,还有一些VB编程的细节问题不清楚,在此过程真是困难重重呀。
然后,我通过再看课本进一步去理解课本的内容,再去编写程序。
但还是遇到了问题,经过反复的思考去修改,最后程序终于能运行了,那刻自己感到很自豪.我记得老师曾经说过这样一句话:
在编程序的过程中,你要反复的去思考,没有做不到的事,只有想不到的事。
总而言之,今后我一定要多看一些编写程序的书籍,通过自己亲手去操作编写程序,学习更多的知识来提高自己的能力。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 制作 学生 成绩管理系统 整理 精品 范本