学生作业管理系统.docx
- 文档编号:3891602
- 上传时间:2022-11-26
- 格式:DOCX
- 页数:17
- 大小:1.52MB
学生作业管理系统.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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学生 作业 管理 系统