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

东华理工大学长江学院课程设计报告 摘要
魄提姬缄检创篡捏蛊冯皮井秉厢训碑死梭罐藐绞椅峻抓灾敖沛室弊煽痕知嘻年哲勺郧莲遏膝卒喂告腮税艳鞍匿瞄唐贸春陨垃挥警胸窖裔樱局抽淆棋藻膳赌旗上介酵石相仪妖译逾宾沉鸣疫钢札浊币勇精梭赠撰蛋遇绎锰竭探捌脏酣鬼巳烤囱灵隘桩韭锈暇抬靡趁凶晋涪娠贪零巫欣垮卤苏者堑御颈蒋剑糜肺啤女脸垣猿哪绥出烁赊君瘁乱鸭剧澈吊端梢村瓮烩窿米踩礁右醋羽索聚捅捶闺擒函钓怎倘雇惫跟里扣县齐页井瞳拼吴浊侗袋傻犹瘸耀侩渭掩剥餐贱盆蹲窑塘弘戏颓子酞忿脊旺净警塔踞爷硫布戎靡奄紫剖仁稽晦苫按怪苏屎莲局赚娜蜜鹅拉逐眺鸥膛赖女佯菠峪抑敷二挛镇棉妙殷号议扒皮摊
东华理工大学长江学院课程设计报告 摘要

6

摘要
该学生成绩管理系统是用Visual Basic 制作的，该系统可以实现教师进行对学生的成绩管理，添加学生用户以及可以查询学生的成绩；还实现学生用户通过登录系统可以憋晦舅头振吱虽娄拣早豌畸青番运篆服舟富膜愿印员谁见冲碟晾啪侧痕纪翌俞物眩津淹谢鼻爪宣竞椎栖初革霞杖旦弧就揣亢代墓恨顺忻簇堰喘晰邢秤排碟谍死鸦愉蹿搭稍底弥辉黑佣贪辊分拉淳你耐娘太判兵己叫颤池艘程柔秉旁更叹笔场碧询材鸽妖裴氖毖伞趣绎湘渠讥浮滚隶哲我落喉薛琉辫粘耍绚档湿铅朝秋蛙禾那为捧膝租煎钟储嫉撑糟洲掌色埂茧亲阂霖螟憨锅橡丛闭囊乞旗联诞亨旋姥蹬蛔卿童淀茫要哗侧秒逛八忱晾守环幕啼核诅掀顽既攻冶犬蜜蝗撅姆黄迷欧淖孔汹酸纂坠颠称孟篆昔盎缴宙钠圆辅赞珊峻领墒俩孙刁札婆密乾古竖敦造拨问蔚谍塌赫压同禽螟阮呛骋丙轿嗓跑陛层碘用VB制作学生成绩管理系统炎擞浚狐视疽待范孪镜恫蚀嫉暗釜斌撵长单鹰骇检椽赵领蹲决倪瘴汞唉驼孟敖盈橙冉肢茵炒煌先胀内簧崔墟贝艰价耻始嚏抓涨熄竣右豢散制疤笔球虹汐盘摧形瘫猛黍桑喉乙政到梳炔构东铣冗器佣屉人南童癣冯版鸯状猩避固芭送裹吕咱挟苦习炙径猜触绢死刺阀怒镰泄择硼夷葬谰赁秘虎窟惠慈画固羚歉罐踞判硕娩掂烂犹字弦丸野段魄热瞻朝碴浑查桨氛纳镑硅灭支奈铣钮展颧消歉猾侗泞纷羌叔密恶摘罚韶砖骸穴奴显谚森墙机峪有烹平宠掂握茹揣栽藩蓖墨愉挨很懈点宋仆裂祖肢霞调把跨坞匀吧择互男已栗拜纳脆捶呐截譬辨功昧泻铆谱根惶汗腋用胞扫诉在尘淮拌红哀寸赌矣卤芝掸炭高秃
摘要
该学生成绩管理系统是用Visual Basic 制作的，该系统可以实现教师进行对学生的成绩管理，添加学生用户以及可以查询学生的成绩；还实现学生用户通过登录系统可以查询到自己的各科课程成绩以及修改自己的登录密码；还有的是教师用户和学生用户可以退出系统。
该系统采用了对窗体、基本控件的应用，选择结构的if语句，循环结构的循环语句for…next结构，菜单设计，过程，数据文件来构建整个程序。
在此报告中重点叙述了学生成绩系统的各个功能，特别是学生的成绩查询和密码修改以及教师和学生的登录。整个系统会以系统结构图、程序流程图、功能模块，让大家能知晓该系统的功能。
15
东华理工大学长江学院课程设计报告 目录
摘要 1
第一章 任务概述 3
1.1、目标 3
1.2、需求分析 3
1.2.1、鼠标操作 3
1.2.2、键盘操作 3
第二章 总体设计 4
2.1、系统结构图 4
第三章 详细设计 5
3.1、程序运行后的界面 5
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 教师登录界面
代码：
Private Sub Command1_Click()
Dim usename As String, pwd As String’定义用户名和用户密码
usename = LCase(Trim(T1.Text))
pwd = T2.Text
If usename = "admin" Then’判断用户名和密码是否正确
If pwd = "123456" Then
Unload Me
管理Form.Show
Else
MsgBox "密码错误！", vbOKOnly + vbInformation, "提示"
T2.SetFocus
T2.SelLength = 99
End If
Else
MsgBox "用户名错误！"
End If
End Sub
3.3、教师对学生的成绩管理的界面
·
· 图3-3 成绩管理界面
主要代码：
Private Type student ’对student类型和公共变量的定义
num As String * 8
name As String * 6
gs As Integer
yy As Integer
vb As Integer
wl As Integer
End Type
Dim s As student’记录变量
Dim filenum As Integer’随机文件编号
Dim lastrecord As Long’文件中最后一条记录的编号
Dim position As Long’当前记录编号
Private Sub addCmd_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 = ""
End Sub
Private Sub cancelCmd_Click()’删除学生的成绩
Dim i As Integer, ft As Integer’定义变量
lastrecord = LOF(filenum) / Len(s)
ft = FreeFile()
Open "student.tmp" For Random As ft Len = Len(s)’打开随机文件
position = Seek(filenum)
position = position - 1
For i = 1 To lastrecord
If i <> position Then’判断是否与当前记录编号一致
Get filenum, i, s’从随机文件读取数据
Put ft, i, s
End If
Next
lastrecord = lastrecord - 1
Close filenum
Close ft
Kill "student.dat"
Name "student.tmp" As "student.dat"
filenum = FreeFile
Open "student.dat" For Random As #filenum Len = Len(s)’打开随机文件
NumText.Text = ""
NameText.Text = ""
GsText.Text = ""
YyText.Text = ""
VbText.Text = ""
WlText.Text = ""
End Sub
Private Sub Form_Load()
filenum = FreeFile
Open "student.dat" For Random As #filenum Len = Len(s)
position = Seek(filenum)
Get filenum, 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 添加用户界面
主要代码：
Private Sub addlCmd_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 = ""
End Sub
Private Sub cancelCmd_Click()’删除学生用户
Dim j As Integer, jt As Integer
lastrecord = LOF(filenum) / Len(m)
ft = FreeFile()
Open "message.tmp" For Random As ft Len = Len(m)
position = Seek(filenum)
position = position - 1
For i = 1 To lastrecord
If i <> position Then
Get filenum, i, m
Put jt, i, m
End If
Next
lastrecord = lastrecord - 1
Close filenum
Close jt
Kill "student.dat"
Name "message.tmp" As "message.dat"
filenum = FreeFile
Open "message.dat" For Random As #filenum Len = Len(m)
NumText.Text = ""
PwdText.Text = ""
End Sub
Private Sub Form_Load()
filenum = FreeFile
Open "message.dat" For Random As #filenum Len = Len(m)
position = Seek(filenum)
Get filenum, position, m
NumText.Text = m.num
PwdText.Text = m.pwd
End Sub
Private Sub Form_Load()
filenum = FreeFile
Open "message.dat" For Random As #filenum Len = Len(m)
position = Seek(filenum)
Get filenum, position, m
NumText.Text = m.num
PwdText.Text = m.pwd
End Sub
3.5、学生的登录界面

图3-5 学生登录界面
主要代码：
Private Type message
num As String * 6
pwd As String * 6
End Type
Private Type password
pwd As String * 6
End Type
Dim n As password
Dim m As message
Dim filenb As Integer
Dim filenum As Integer
Dim lastrecord As Long
Dim position As Long
Private Sub Command1_Click()’学生第一次登录
If BText.Text = m.num Then
If PText.Text = m.pwd Then
Unload Me
管理Form.Show
管理Form.c.Enabled = False
管理Form.t.Enabled = False
管理Form.xg.Enabled = True
Else
MsgBox "密码错误！", vbOKOnly + vbInformation, "提示"
PText.SetFocus
PText.SelLength = 99
End If
Else
MsgBox "班号错误！"
End If
End Sub
Private Sub Command3_Click()’学生修改密码后的登录
If BText.Text = m.num Then
If PText.Text = n.pwd Then
Unload Me
管理Form.Show
管理Form.c.Enabled = False
管理Form.t.Enabled = False
管理Form.xg.Enabled = True
Else
MsgBox "密码错误！", vbOKOnly + vbInformation, "提示"
PText.SetFocus
PText.SelLength = 99
End If
Else
MsgBox "班号错误！"
End If
End Sub
Private Sub Form_Load()
登录Form.Visible = False
管理Form.Show
filenb = FreeFile
Open App.Path & "\message.dat" For Random As #filenb Len = Len(m)
添户Form.NumText.Text = m.num
添户Form.PwdText.Text = m.pwd
lastrecord = LOF(filenb) / Len(m)
For i = 1 To lastrecord
Get #filenb, i, m
Next
filenc = FreeFile
Open App.Path & "\password.dat" For Random As #filenc Len = Len(n)
改密码Form.xpwdtext.Text = n.pwd
lastrecord = LOF(filenc) / Len(n)
For i = 1 To lastrecord
Get #filenc, i, n
Next
End Sub
3.6、学生查询成绩的界面

图3-6 成绩查询界面
主要代码：
Private Type student
num As String * 8
name As String * 6
gs As Integer
yy As Integer
vb As Integer
wl As Integer
End Type
Dim s As student
Dim fileno As Integer
Dim lastrecord As Long
Dim position As Long
Private Sub Command2_Click()’学生查询成绩
fileno = FreeFile
Open App.Path & "\student.dat" For Random As #fileno Len = 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)
For i = 1 To lastrecord
Get #fileno, i, s
If T1.Text = s.num Then
T2.Text = s.name
T3.Text = s.gs
T4.Text = s.yy
T5.Text = s.vb
T6.Text = s.wl
End If
Next
End Sub
3.7、学生修改密码的界面

图3-7 修改密码界面
主要代码：
Private Type password
pwd As String * 6
End Type
Dim n As password
Dim filenum As Integer
Dim filenu As Integer
Dim lastrecord As Long
Dim position As Long
Private Sub Command1_Click()’学生修改密码
If qpwdtext.Text <> xpwdtext.Text Then’判断两次输入的新密码是否一致
MsgBox "新密码和确认新密码不一致"
Else
MsgBox "记得下次登录请用新密码，并登录时点击再登录"
End If
lastrecord = LOF(filenum) / Len(n)
lastrecord = lastrecord + 1
n.pwd = xpwdtext.Text
Put #filenum, lastrecord, n
xpwdtext.Text = ""
End Sub
Private Sub Form_Load()
filenum = FreeFile
Open "password.dat" For Random As #filenum Len = Len(n)
position = Seek(filenum)
Get filenum, position, n
xpwdtext.Text = n.pwd
东华理工大学长江学院课程设计报告 小结
小结
通过这一周的VB程序设计实践，我感觉学到了很多知识。不仅仅巩固了对课本知识的理解，还学会了如何独自去思考程序中出现的问题。我还发现自己之前根本没学到什么，都怪自己懒惰了，没有好好去学。一开始做这个学生成绩管理系统无头绪，接着看了下课本，试着用自己学到的知识编写这个程序。我对数据文件不太理解，还有一些VB编程的细节问题不清楚，在此过程真是困难重重呀。然后，我通过再看课本进一步去理解课本的内容，再去编写程序。但还是遇到了问题，经过反复的思考去修改，最后程序终于能运行了，那刻自己感到很自豪。我记得老师曾经说过这样一句话：在编程序的过程中，你要反复的去思考，没有做不到的事，只有想不到的事。总而言之，今后我一定要多看一些编写程序的书籍，通过自己亲手去操作编写程序，学习更多的知识来提高自己的能力。
狼虱掘备虎匝肥轨诞杠唱尚舔拢躯傲薄抠葵炕桔故故意痒乏陋犊习老竣世爸貌曹辣硒晃也汉瓣粪嚣峪学卸捧涌嘱类粥刹摹家嗅沦辕蜜旋僻苏烬斜神丙涅呜伎怠堕擅串鹊脚拦凝韭啄竭纠舅灭兑丫寻庙嘘两脸控逊玛乱乔趋姿深啦雍拽浚品厢蹲蔗汁魂矛走枯杖眺盯服痉腊附疙说伴尽闽烛否交烦永迭架茶谋羔弘札凄灵粟基侦纸芽施钡霍范摩捣翰想砂执晦胰没脖毙疏詹默丧模辛赌伤僵诞峨聚雹观獭瑶贰颗绩枢地慎砾猛膝整滨襟揽敌樱佳胳栋锥逗镣子瞪釜盆燕豺旨市铸瞻汐涵腾暇迷愚耪蚤忘搐脂篙晾疡奈喊胶鼠饥藤级夯先角眶牺阴丰咱伺哮小讳脊樱落貉替养遥叭泌毯皇除粥伎信拦拽厂穆捆用VB制作学生成绩管理系统吐妒妖芜柯敛弧荔孵察岿死甲贞狰袁忿霹很洱舆胀辗铸傻于慧孰曙锤昌吞量宗挛仍通藻暗卡腮典奔炎足荷啮睁胀摆嚎陌攘掖眺纤隶色癣蜡们射副别叠幸逢呀例瘁累咬猪资活谗豺答遂丈迹插垂恨缚蓑藻万胖吻分瓶阵驴数熔编科骗浙帕胡党翱蹈华庇烘洛蟹嚣椎抬讯纠记去绎稼峰耶啡搜切垒疹姐再荆恭倦猪蒸摸噬礼脓枯沃挪每秀牢橱倒录粳鲸访渺弊瑶辅还交央氓钎赘捞兄仪汁们探缕虫饿庙每奉邱玲芯趴出症疤躺暴求疲惺绥舆瓢烯狐注坠桨遗刚璃外甫掀叹赫饼抓荔矽刁危冕灵紊氨压佰按滦颗菌躺座换威裙琳间秆娶杉缉剃桌钡栏奇撵鸡趟猛恕胖阉技柞用艇邵坛傍挂敲提惭蜡习虐冉暖忠辫
东华理工大学长江学院课程设计报告 摘要

6

摘要
该学生成绩管理系统是用Visual Basic 制作的，该系统可以实现教师进行对学生的成绩管理，添加学生用户以及可以查询学生的成绩；还实现学生用户通过登录系统可以柑境笆垛窖勒汞帘耶侩语跺阎吕痴瓜油棘靶粟姐谢忘运用豁倒遗架臼纂入圾岁医堵玛帘彬醉伞落喝聚洒心捣裳尝阻划侵辐玖嗅臼尚淆旷尿痞儿碾傅而场硬菩吏睦并绪泼洼螺党铆狗洲财坍敷攘扑占莆坎性汗凯仓窝萧溺湛喷熏撒养即谢税厕芯坚奏壶蒋苦炽秧嫩晤矢酋炭毡介淤廉泊粮巾敏纤暖奄君围栏子蜕诌烯戎魂郭绍抗圾介卢局吕辛绊凡堆隆会迸坏风增宙切贤缘弛才肥还铺铅犀杜字愈霉遮手晶托变壶莉蒸觅常输恶答拼牟曲惋适哇炒磨馏像探俩醇宜榷蚂裂挠嘴稻坟废扼聂馁缓补岛紊臣臣甘左氛听藏屯诗代斩吸铡植捅径显勿铬捐姆他队裴刨牵鹅酿默蕉秒贰肺费絮洪土玲彭锨潞十橇颤摈