石家庄铁道大学四方学院集中实践报告书课题名称 学生作业管理系统姓 名 学 号系、 部 土木工程系专业班级 指导教师刘仁芬2015年 6 月 25 日※※※※※※※※※ ※※ ※※ ※※ ※※※※※※※※※2014级高级语言程序设计作业管理系统的开发1选题的意义作业管理系统将提供更合理快捷的查询信息，即可以单条件查询，也可以多条件组合查询。
同时提供对用户发布最新资讯信息的功能。
作业管理系统是一个更为实用的平台，学校可以在此发布所属的基本信息，详细信息，并可对学生和教师做出记录。
既是信息发布的平台，也是信息管理的工具。
2 系统功能需求分析系统概述设计一个网络版的作业管理系统，适用于某些学校。
系统包括详细信息介绍，除了基本的信息，也包括各种用户的信息。
除此以外，该系统最重要的可以方便管理员工对用户信息的记录，同时系统将整个信息整理，按不同的分类进行信息统计，项目主管就可以查看这些信息。
系统的组成及各模块的功能1.基本信息：管理员、客户和信息录入。
学校管理的一些初始数据，也必须的。
管理的其他模块全部是调用这些数据得到。
2.用户管理：提供用户姓名、地址、电话、帐号等管理资料库功能。
3.系统维护：数据整理、密码管理、数据清除等。
4.对整个系统要有管理员进行管理，对某些需要及时更新的信息进行修改，添加或者删除。
5.整个系统要求操作简捷，方便用户使用。
系统的运行环境1.系统使用环境操作系统:Windows XP/7系统支持：Visual basic 及以上版本支持库数据库：Access。
硬件环境：处理器;Intel Pentium 166MX或者更高。
硬盘：剩余使用空间1GB以上。
内存：32MB以上。
显卡：SVGA显示适配器。
2.系统开发环境操作系统：Windows XP/7。
系统支持：Visual Basic3系统设计总体结构设计星期五文本 255任课教师文本 255班级文本 255表3 教师表字段名称数据类型字段大小姓名文本 255所教课程文本 255年龄文本文本长整型教龄文本文本长整型学历文本文本 255出生年月日期/时间 255性别文本 255表4 学生信息登记表字段名称数据类型字段大小姓名文本 255学校文本 255家庭住址文本 255出生年月文本 255学号文本 255 4系统实现登录模块的设计与实现图2 登录界面程序代码：Private Sub Command1_Click()学生登录界面.Show主界面.HideEnd SubPrivate Sub Command2_Click()教师登录界面.ShowEnd Sub其他模块的设计与实现图3 教师登录主界面程序代码：Private Sub Adodc1_Click()新增用户.ShowEnd SubPrivate Sub Combo1_Change()""End SubPrivate Sub Command1_Click()= adCmdText= "select * from 用户名 where 姓名='" & & "' and 密码 =" &MsgBox ("密码错误")Else教师管理界面.Show教师登录界面.HideEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()教师注册.ShowEnd SubPrivate Sub Form_Load()LoopEnd Sub图4 教师管理界面程序代码：Private Sub e_Click(Index As Integer)上传.Show教师管理界面.HideEnd SubPrivate Sub Form_Load()End SubPrivate Sub q_Click(Index As Integer)管理学生信息表.Show教师管理界面.HideEnd SubPrivate Sub t2_Click(Index As Integer)教师配课.ShowEnd SubPrivate Sub w_Click(Index As Integer)管理教师表.Show教师管理界面.HideEnd SubPrivate Sub y_Click(Index As Integer)录入平时成绩表.Show教师管理界面.HideEnd Sub图5 教师注册程序代码：Private Sub Command1_Click()If = "" And = "" ThenMsgBox " 请填写完整信息！", vbExclamation + vbOKOnly, "警告" ElseIf <> "" And = "" ThenMsgBox " 请填写完整信息！", vbExclamation + vbOKOnly, "警告"ElseIf = "" And <> "" ThenMsgBox " 请填写完整信息！", vbExclamation + vbOKOnly, "警告"ElseMsgBox "增加成功！", vbExclamation + vbOKOnly教师登录界面.Show教师注册.HideEnd IfEnd SubPrivate Sub Command2_Click()= ""= ""End Sub图6 录入平时成绩程序代码：Private Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()End Sub图7 管理学生信息表程序代码：Private Sub Command1_Click()MsgBox "已保存成功"End SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()MsgBox "已删除"End SubPrivate Sub Command4_Click()Unload Me教师管理界面.ShowEnd Sub图8 管理教师表程序代码：Private Sub Command1_Click()End SubPrivate Sub Command2_Click()MsgBox "已保存成功"End SubPrivate Sub Command3_Click()End SubPrivate Sub Command4_Click()Unload Me教师管理界面.ShowEnd Sub图9 批改作业程序代码：Private Sub Command1_Click()Dim zs As Stringwh = FreeFileOpen For Input As #whI = 0Do While Not EOF(wh)zs = zs + Input(1, #wh)I = I + 1LoopText1 = zsClose #whEnd SubPrivate Sub Command2_Click()wh = FreeFileOpen For Append As #whDim zs As String, xm As Stringwh1 = FreeFileOpen For Input As #wh1Do While Not EOF(wh1)Input #wh1, xmWrite #wh, xmLoopClose #wh1Close #whMsgBox "已保存成功"End SubPrivate Sub Command3_Click()Dim xm As Stringwh1 = FreeFileOpen For Input As #wh1I = 0Do While Not EOF(wh1)xm = xm + Input(1, #wh1)I = I + 1LoopText2 = xmClose #wh1End Sub图10 教师配课程序代码：Private Sub Command1_Click()配课.ShowEnd SubPrivate Sub Command2_Click()End Sub图11 配课程序代码:Private Sub Command1_Click()If = "" And = "" And = "" And = "" And = "" And = "" And = "" And = "" Then MsgBox " 请填写完整信息！", vbExclamation + vbOKOnly, "警告"ElseMsgBox "增加成功！", vbExclamation + vbOKOnlyCall Command2_ClickEnd IfEnd SubPrivate Sub Command2_Click()= ""= ""= ""= ""= ""= ""= ""= ""End SubPrivate Sub Command3_Click()课表.ShowEnd SubPrivate Sub Form_Load()= adCmdText= "select * from 课表"End Sub5设计体会总结感谢一直对我课程设计提供帮助的刘仁芬老师，没有您的悉心指导，我不可能完成符合要求的合格的课程设计。
与此同时，我也要感谢对我课程设计提供帮助的同学们，是你们给予了我更多更广泛的设计思路，才使得我的思维更加宽广，这对于我的课程设计来说，是一种莫大的帮助，谢谢你们。