学生作业管理系统

石家庄铁道大学四方学院

集中实践报告书

课题名称 学生作业管理系统

姓 名 学 号 系、 部 土木工程系

专业班级 指导教师

刘仁芬

2015年 6 月 25 日

※※※※※※※※

※ ※※ ※

※ ※

※

※

※

※

※

※※※※※

2014级

高级语言程序设计

学生作业管理系统的开发

1选题的意义

作业管理系统将提供更合理快捷的查询信息，即可以单条件查询，也可以多条件组合查询。同时提供对用户发布最新资讯信息的功能。

作业管理系统是一个更为实用的平台，学校可以在此发布所属的基本信息，详细信息，并可对学生和教师做出记录。既是信息发布的平台，也是信息管理的工具。

2 系统功能需求分析

2.1系统概述

设计一个网络版的作业管理系统，适用于某些学校。系统包括详细信息介绍，除了基本的信息，也包括各种用户的信息。除此以外，该系统最重要的可以方便管理员工对用户信息的记录，同时系统将整个信息整理，按不同的分类进行信息统计，项目主管就可以查看这些信息。

2.2系统的组成及各模块的功能

1.基本信息：管理员、客户和信息录入。学校管理的一些初始数据，也必须的。管理的其他模块全部是调用这些数据得到。

2.用户管理：提供用户姓名、地址、电话、帐号等管理资料库功能。

3.系统维护：数据整理、密码管理、数据清除等。

4.对整个系统要有管理员进行管理，对某些需要及时更新的信息进行修改，添加或者删除。

5.整个系统要求操作简捷，方便用户使用。

2.3系统的运行环境

1.系统使用环境

操作系统:Windows XP/7

系统支持：Visual basic 6.0及以上版本支持库

数据库：Access。

硬件环境：

处理器;Intel Pentium 166MX或者更高。

硬盘：剩余使用空间1GB以上。

内存：32MB以上。

显卡：SVGA显示适配器。

2.系统开发环境

操作系统：Windows XP/7。

系统支持：Visual Basic 6.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 登录界面

程序代码：

Private Sub Command1_Click()

学生登录界面.Show

主界面.Hide

End Sub

Private Sub Command2_Click()

教师登录界面.Show

Form1.Hide

End Sub

4.2其他模块的设计与实现

图3 教师登录主界面

程序代码：

Private Sub Adodc1_Click()

新增用户.Show

End Sub

Private Sub Combo1_Change()

bo1 ""

End Sub

Private Sub Command1_Click()

mandType = adCmdText

Adodc1.RecordSource = "select * from 用户名where 姓名='" & combo1.Text & "' and 密码=" & Text2.Text

Adodc1.Refresh

If Adodc1.Recordset.EOF = True Then

MsgBox ("密码错误")

Else

教师管理界面.Show

教师登录界面.Hide

End If

End Sub

Private Sub Command2_Click()

End

From1.Show

End Sub

Private Sub Command3_Click()

教师注册.Show

End Sub

Private Sub Form_Load()

Adodc1.Refresh

Do While Adodc1.Recordset.EOF = False

combo1.AddItem Adodc1.Recordset.Fields("姓名") Adodc1.Recordset.MoveNext

Loop

End Sub

图4 教师管理界面程序代码：

Private Sub e_Click(Index As Integer)

上传.Show

教师管理界面.Hide

End Sub