学生作业管理系统.docx
《学生作业管理系统.docx》由会员分享，可在线阅读，更多相关《学生作业管理系统.docx（17页珍藏版）》请在冰豆网上搜索。
学生作业管理系统
石家庄铁道大学四方学院
集中实践报告书
课题名称
学生作业管理系统
姓名
学号
系、部
土木工程系
专业班级
指导教师
刘仁芬
2015年6月25日
一、设计任务及要求：
设计任务：
学生作业管理系统
要求：
1．内容要求
1.用户名认证：
区别老师与同学的登录。
2.新用户注册：
要提交作业的同学设定自己的用户名和密码，并填入自己的真实姓名和学号。
3.学生作业提交和查询功能：
学生可以在提交作业并能查询以往作业的成绩。
4.老师作业查询和下载功能：
可将已完成作业下载批改。
5.老师作业布置和成绩上传功能：
老师可布置的作业，提交已经批改过的作业供学生查询。
二、指导教师评语：
三、成绩
指导教师签名：
年月日
学生作业管理系统的开发
1选题的意义
作业管理系统将提供更合理快捷的查询信息，即可以单条件查询，也可以多条件组合查询。
同时提供对用户发布最新资讯信息的功能。
作业管理系统是一个更为实用的平台，学校可以在此发布所属的基本信息，详细信息，并可对学生和教师做出记录。
既是信息发布的平台，也是信息管理的工具。
2系统功能需求分析
2.1系统概述
设计一个网络版的作业管理系统，适用于某些学校。
系统包括详细信息介绍，除了基本的信息，也包括各种用户的信息。
除此以外，该系统最重要的可以方便管理员工对用户信息的记录，同时系统将整个信息整理，按不同的分类进行信息统计，项目主管就可以查看这些信息。
2.2系统的组成及各模块的功能
1.基本信息：
管理员、客户和信息录入。
学校管理的一些初始数据，也必须的。
管理的其他模块全部是调用这些数据得到。
2.用户管理：
提供用户姓名、地址、电话、帐号等管理资料库功能。
3.系统维护：
数据整理、密码管理、数据清除等。
4.对整个系统要有管理员进行管理，对某些需要及时更新的信息进行修改，添加或者删除。
5.整个系统要求操作简捷，方便用户使用。
2.3系统的运行环境
1.系统使用环境
操作系统:
WindowsXP/7
系统支持：
Visualbasic6.0及以上版本支持库
数据库：
Access。
硬件环境：
处理器;IntelPentium166MX或者更高。
硬盘：
剩余使用空间1GB以上。
内存：
32MB以上。
显卡：
SVGA显示适配器。
2.系统开发环境
操作系统：
WindowsXP/7。
系统支持：
VisualBasic6.0
3系统设计
3.1总体结构设计
图1总体模块图
3.2数据库实现
表1登录界面数据表
字段名称数据类型字段大小
姓名文本50
密码文本50
表2课表
字段名称数据类型字段大小
姓名文本255
星期一文本255
星期二文本255
星期三文本255
星期四文本255
星期五文本255
任课教师文本255
班级文本255
表3教师表
字段名称数据类型字段大小
姓名文本255
所教课程文本255
年龄文本文本长整型
教龄文本文本长整型
学历文本文本255
出生年月日期/时间255
性别文本255
表4学生信息登记表
字段名称数据类型字段大小
姓名文本255
学校文本255
家庭住址文本255
出生年月文本255
学号文本255
4系统实现
4.1登录模块的设计与实现
图2登录界面
程序代码：
PrivateSubCommand1_Click（）
学生登录界面.Show
主界面.Hide
EndSub
PrivateSubCommand2_Click（）
教师登录界面.Show
Form1.Hide
EndSub
4.2其他模块的设计与实现
图3教师登录主界面
程序代码：
PrivateSubAdodc1_Click（）
新增用户.Show
EndSub
PrivateSubCombo1_Change（）
bo1""
EndSub
PrivateSubCommand1_Click（）
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*from用户名where姓名='"&combo1.Text&"'and密码="&Text2.Text
Adodc1.Refresh
IfAdodc1.Recordset.EOF=TrueThen
MsgBox（"密码错误"）
Else
教师管理界面.Show
教师登录界面.Hide
EndIf
EndSub
PrivateSubCommand2_Click（）
End
From1.Show
EndSub
PrivateSubCommand3_Click（）
教师注册.Show
EndSub
PrivateSubForm_Load（）
Adodc1.Refresh
DoWhileAdodc1.Recordset.EOF=False
combo1.AddItemAdodc1.Recordset.Fields（"姓名"）
Adodc1.Recordset.MoveNext
Loop
EndSub
图4教师管理界面
程序代码：
PrivateSube_Click（IndexAsInteger）
上传.Show
教师管理界面.Hide
EndSub
PrivateSubForm_Load（）
EndSub
PrivateSubq_Click（IndexAsInteger）
管理学生信息表.Show
教师管理界面.Hide
EndSub
PrivateSubt2_Click（IndexAsInteger）
教师配课.Show
EndSub
PrivateSubw_Click（IndexAsInteger）
管理教师表.Show
教师管理界面.Hide
EndSub
PrivateSuby_Click（IndexAsInteger）
录入平时成绩表.Show
教师管理界面.Hide
EndSub
图5教师注册
程序代码：
PrivateSubCommand1_Click（）
IfText1.Text=""AndText2.Text=""Then
MsgBox"请填写完整信息！
",vbExclamation+vbOKOnly,"警告"
Text1.SetFocus
ElseIfText1.Text<>""AndText2.Text=""Then
MsgBox"请填写完整信息！
",vbExclamation+vbOKOnly,"警告"
Text1.SetFocus
ElseIfText1.Text=""AndText2.Text<>""Then
MsgBox"请填写完整信息！
",vbExclamation+vbOKOnly,"警告"
Text1.SetFocus
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields（0）=Trim（Text1.Text）
Adodc1.Recordset.Fields
（1）=Trim（Text2.Text）
Adodc1.Recordset.Update
MsgBox"增加成功！
",vbExclamation+vbOKOnly
Adodc1.Refresh
教师登录界面.Show
教师注册.Hide
EndIf
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
EndSub
图6录入平时成绩
程序代码：
PrivateSubCommand1_Click（）
Adodc1.Recordset.AddNew
EndSub
PrivateSubCommand2_Click（）
Adodc1.Recordset.Update
EndSub
PrivateSubCommand3_Click（）
UnloadMe
EndSub
PrivateSubCommand4_Click（）
Adodc1.Recordset.Delete
EndSub
图7管理学生信息表
程序代码：
PrivateSubCommand1_Click（）
Adodc1.Recordset.Update
MsgBox"已保存成功"
EndSub
PrivateSubCommand2_Click（）
Adodc1.Recordset.AddNew
EndSub
PrivateSubCommand3_Click（）
Adodc1.Recordset.Delete
MsgBox"已删除"
EndSub
PrivateSubCommand4_Click（）
UnloadMe
教师管理界面.Show
EndSub
图8管理教师表
程序代码：
PrivateSubCommand1_Click（）
Adodc1.Recordset.AddNew
EndSub
PrivateSubCommand2_Click（）
Adodc1.Recordset.Update
MsgBox"已保存成功"
EndSub
PrivateSubCommand3_Click（）
Adodc1.Recordset.Delete
EndSub
PrivateSubCommand4_Click（）
UnloadMe
教师管理界面.Show
EndSub
图9批改作业
程序代码：
PrivateSubCommand1_Click（）
CommonDialog1.ShowOpen
DimzsAsString
wh=FreeFile
OpenCommonDialog1.FileNameForInputAs#wh
I=0
DoWhileNotEOF（wh）
zs=zs+Input（1,#wh）
I=I+1
Loop
Text1=zs
Close#wh
EndSub
PrivateSubCommand2_Click（）
wh=FreeFile
OpenCommonDialog1.FileNameForAppendAs#wh
DimzsAsString,xmAsString
wh1=FreeFile
OpenCommonDialog2.FileNameForInputAs#wh1
DoWhileNotEOF（wh1）
Input#wh1,xm
Write#wh,xm
Loop
Close#wh1
Close#wh
MsgBox"已保存成功"
EndSub
PrivateSubCommand3_Click（）
CommonDialog2.ShowOpen
DimxmAsString
wh1=FreeFile
OpenCommonDialog2.FileNameForInputAs#wh1
I=0
DoWhileNotEOF（wh1）
xm=xm+Input（1,#wh1）
I=I+1
Loop
Text2=xm
Close#wh1
EndSub
图10教师配课
程序代码：
PrivateSubCommand1_Click（）
配课.Show
EndSub
PrivateSubCommand2_Click（）
Adodc1.Recordset.Delete
EndSub
图11配课
程序代码:
PrivateSubCommand1_Click（）
IfText1.Text=""AndText2.Text=""AndText3.Text=""AndText4.Text=""AndText5.Text=""AndText6.Text=""AndText7.Text=""AndText8.Text=""Then
MsgBox"请填写完整信息！
",vbExclamation+vbOKOnly,"警告"
Text1.SetFocus
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields（0）=Trim（Text3.Text）
Adodc1.Recordset.Fields
（1）=Trim（Text4.Text）
Adodc1.Recordset.Fields
（2）=Trim（Text5.Text）
Adodc1.Recordset.Fields（3）=Trim（Text6.Text）
Adodc1.Recordset.Fields（4）=Trim（Text7.Text）
Adodc1.Recordset.Fields（5）=Trim（Text8.Text）
Adodc1.Recordset.Fields（6）=Trim（Text1.Text）
Adodc1.Recordset.Fields（7）=Trim（Text2.Text）
Adodc1.Recordset.Update
MsgBox"增加成功！
",vbExclamation+vbOKOnly
Adodc1.Refresh
CallCommand2_Click
EndIf
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text8.Text=""
EndSub
PrivateSubCommand3_Click（）
课表.Show
Form1.Hide
EndSub
PrivateSubForm_Load（）
Adodc1.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=Database123.accdb;PersistSecurityInfo=False;"
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*from课表"
Adodc1.Refresh
EndSub
5设计体会
5.1总结
感谢一直对我课程设计提供帮助的刘仁芬老师，没有您的悉心指导，我不可能完成符合要求的合格的课程设计。
与此同时，我也要感谢对我课程设计提供帮助的同学们，是你们给予了我更多更广泛的设计思路，才使得我的思维更加宽广，这对于我的课程设计来说，是一种莫大的帮助，谢谢你们。
同时，我也要再次感谢全体老师，是你们在辛勤地为我们做了许多我们不曾注重的一些细节问题，为我们无论是在设计上还是在论文中，您们的劳动都是我的毕业设计能够完成不可缺少的因素。
5.2存在的主要问题
鉴于能力水平所限，没有插入封面图片。
同时，我们存在的问题还不少，界面不够精明，样式死板，可供查询的内容比较少，望老师提出批评意见。
参考文献
[1]刘炳文.VisualBasic.NET程序设计.清华大学出版社，2007
[2]刘怀亮.VisualBasic.NET程序设计.冶金工业出版社，2008
[3]吴霞，万缨VisualBasic.NET基础教程.清华大学出版社，2007
[4]郑阿奇，彭作民.VisualBasic.NET程序设计教程.机械出版社，2006
[5]刘新民.VisualBasic6.0程序设计.清华大学出版社，2004
[6]张鲁.《Visualbasic6.0编程技巧与实例分析》，水利水电出版社
出版日期：
1999-10-1
[7]张磊等.《Visualbasic6使用详解》，机械工业出版社
出版日期：
1999-7-1
升级会员 