用VB制作学生成绩管理系统最新范本模板Word下载.docx

用VB制作学生成绩管理系统最新范本模板Word下载.docx

《用VB制作学生成绩管理系统最新范本模板Word下载.docx》由会员分享，可在线阅读，更多相关《用VB制作学生成绩管理系统最新范本模板Word下载.docx（15页珍藏版）》请在冰豆网上搜索。

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—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

gs=GsText。

s.yy=YyText.Text

s.vb=VbText.Text

s.wl=WlText。

Put#filenum，lastrecord，s’向随机文件写入数据

NumText.Text="

NameText.Text="

GsText.Text=”"

YyText。

Text=”"

VbText。

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”student。

tmp”As”student.dat"

filenum=FreeFile

Open”student。

ForRandomAs＃filenumLen=Len（s）’打开随机文件

NumText。

Text="

NameText。

GsText。

VbText.Text="

”

WlText.Text=””

PrivateSubForm_Load（）

Open"

dat”ForRandomAs＃filenumLen=Len（s）

Getfilenum，position,s

Text=s.num

Text=s。

name

gs

YyText.Text=s。

yy

Text=s.vb

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。

PrivateSubcancelCmd_Click（）’删除学生用户

DimjAsInteger，jtAsInteger

Open”message.tmp”ForRandomAsftLen=Len（m）

position=position-1

>

positionThen

Getfilenum，i,m

Putjt,i，m

Closejt

Kill”student。

dat”

Name"

message.tmp”As"

message。

dat”ForRandomAs#filenumLen=Len（m）

message.dat"

ForRandomAs＃filenumLen=Len（m）

Getfilenum,position，m

NumText.Text=m.num

PwdText.Text=m。

pwd

ForRandomAs#filenumLen=Len（m）

Getfilenum，position，m

Text=m.num

Text=m.pwd

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。

Show

c.Enabled=False

t.Enabled=False

管理Form.xg。

Enabled=True

MsgBox”密码错误!

”,vbOKOnly+vbInformation,”提示”

PText。

SetFocus

班号错误！

PrivateSubCommand3_Click（）’学生修改密码后的登录

IfBText.Text=m。

numThen

IfPText.Text=n.pwdThen

c。

Enabled=False

管理Form.t。

管理Form.xg.Enabled=True

vbOKOnly+vbInformation,”提示"

MsgBox”班号错误！

登录Form。

Visible=False

管理Form。

filenb=FreeFile

OpenApp.Path＆”\message。

dat”ForRandomAs#filenbLen=Len（m）

添户Form.NumText。

添户Form。

Text=m。

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）

Get#filenc,i，n

6、学生查询成绩的界面

图3-6成绩查询界面

PrivateTypestudent

numAsString＊8

nameAsString＊6

DimsAsstudent

DimfilenoAsInteger

PrivateSubCommand2_Click（）'

学生查询成绩

fileno=FreeFile

OpenApp。

Path＆"

\student。

ForRandomAs#filenoLen=Len（s）

添加Form。

NameText.Text=s。

添加Form.GsText.Text=s.gs

添加Form.YyText.Text=s.yy

添加Form.VbText。

添加Form.WlText.Text=s。

lastrecord=LOF（fileno）/Len（s）

Get＃fileno,i,s

IfT1。

Text=s.numThen

T3.Text=s.gs

T4。

T5.Text=s。

vb

T6。

3.7、学生修改密码的界面

图3-7修改密码界面

pwdAsString*6

DimfilenuAsInteger

PrivateSubCommand1_Click（）’学生修改密码

Ifqpwdtext.Text<

xpwdtext.TextThen’判断两次输入的新密码是否一致

MsgBox”新密码和确认新密码不一致"

MsgBox”记得下次登录请用新密码,并登录时点击再登录"

lastrecord=LOF（filenum）/Len（n）

n。

pwd=xpwdtext.Text

Put#filenum，lastrecord，n

xpwdtext.Text=””

Open”password。

ForRandomAs#filenumLen=Len（n）

Getfilenum,position,n

xpwdtext。

Text=n。

pwd

小结

通过这一周的VB程序设计实践，我感觉学到了很多知识。

不仅仅巩固了对课本知识的理解，还学会了如何独自去思考程序中出现的问题。

我还发现自己之前根本没学到什么，都怪自己懒惰了，没有好好去学。

一开始做这个学生成绩管理系统无头绪,接着看了下课本，试着用自己学到的知识编写这个程序。

我对数据文件不太理解，还有一些VB编程的细节问题不清楚，在此过程真是困难重重呀.然后，我通过再看课本进一步去理解课本的内容，再去编写程序。

但还是遇到了问题，经过反复的思考去修改，最后程序终于能运行了,那刻自己感到很自豪。

我记得老师曾经说过这样一句话：

在编程序的过程中，你要反复的去思考，没有做不到的事，只有想不到的事。

总而言之，今后我一定要多看一些编写程序的书籍，通过自己亲手去操作编写程序,学习更多的知识来提高自己的能力。