VB学生实验课考勤管理系统.doc

VB学生实验课考勤管理系统

———————————————————————————————— 作者：
———————————————————————————————— 日期：

2

个人收集整理 勿做商业用途

基于VB学生实验课考勤系统的研究与设计

学生：陈寻寻
指导老师:史卫三
淮南师范学院计算机与信息工程系

目录

【摘要】
随着社会的发展和信息技术的进步，全球信息化的趋势越来越明显。几乎没有一个学校不在走信息化的道路，都在用自己的智慧将工作效率一步一步的提升。在现在的高校中，由于学生的分布式教学，造成了教学管理的不严谨性，使得一些学生产生了逃课旷课的侥幸心理.所以教师的任务不仅仅是教学，还要同时负担考勤等烦杂的日常事务，这样就会严重影响到教师的授课时间,同时也影响了学生的听课时间。因此，信息化给这样的一个状况带来了一个契机，基于信息化的考勤系统就在这种情况下变的越来越受欢迎，它给教师带来了更加高效的处理考勤的方法，使得教学能够比较顺利的进行下去,不会再因为考勤等烦杂事务影响教学.
本系统具备较完备的信息管理功能,通过使用本系统,高校教师能够在很短的时间内完成学生的考勤任务，并将考勤信息存入数据库，即有效的保存了数据，方便以后对学生的评定,又节省了考勤所耗费的时间，使之能够更好的完成教学任务.全文共分为:前言、可行性分析、数据库需求分析、数据库总体设计、数据库详细设计、数据库连接等六部分，通过对高校学生考勤工作流程的具体分析，详细表述了系统的业务流程图、数据流程图、数据字典、E—R图、数据库关系图,然后采用自顶向下的几方法循序渐进地进行了系统的模块设计、代码设计、数据库设计、人机界面设计及输入输出设计等。通过系统的规划，充分体现了信息化在公安工作中的重要性、及时性和实效性.
【关键词】Visual Basic6。0 SQL Server 2000 学生考勤 C/S模式

第一章 项目需求分析
随着计算机的发展及网络技术的应用，当今社会正快速向信息自动化社会前进，信息自动化的作用也越来越大，特别是各行业的管理领域，智能化信息处理已是提高效率、规范管理、客观审查的最有效途径。
传统的学生考勤，主要是靠老师在课堂上点名或学生会抽查点名制度，学生人数多、考勤不全面、数据不准确,特别是点名考勤制耗费了老师和学生大量的时间且起不到太大的效果。人员、部门之间的信息传递由于通过手工或纸质表格交流而显得内容不够丰富，信息传递的严重滞后使信息的沟通大大受阻。这使得学生、教师、学校各部门之间不得不在与台帐信息的沟通上花费大量的时间和精力,既影响了整个学校管理的工作效率，同时又使学校领导不能及时掌握最新最快的学生出勤动态，给学校学风的建设带来不利的影响。
例如：
（1）考勤不全面：一个学校班级、学生人数众多,学生会安排的考勤工作人员极有限，任课老师也不可能每节课都点名，所以高校的学生考勤无法全面地进行.
（2）数据不准确:点名考勤制耗费了老师和学生大量的时间：上课逐个逐个点名考勤，占用老师和学生大量的时间。而且上大课，会经常出现点名时有人代喊到的方式，一二百人的大教室也没法确定是真还是假，往往会助长学生逃课的风气.
（3)资料的共享程度低：老师手里掌握的考勤记录经常会与系学生会、学校教务处的考勤记录有出入.
因此，通过对学院学生考勤管理工作现状的初步调查，发现学校急需一套可以适应大量信息控制和数据处理的考勤管理方案,以便用计算机准确高效的处理方法和数据库紧凑严谨的结构代替手工操作和纸质传递.由于学校格校区地跨面积大,学院、专业、学生数量多，对学校的考勤工作开发一套能够进行实时处理的信息管理系统,其迫切性也是不可忽视的，具体体现如下:
有了上述原因，对院学生考勤工作急需一套管理信息系统，而科学管理的迫切性也使得这套系统的开发势在必行。

系统背景
现今的社会，学校为了更好的完善自己的教育形式，为了更好的管理学生在校情况，考勤作为一个学校的基项管理,学生考勤系统软件已经成为学校管理的重要取向点,他能够把事情的复杂化转为简单化.

系统开发目的
考勤系统能够减轻本学院老师和后勤的工作力度，也大大地提高了领导、老师之间的工作效率。不但达到了便于本校师生的教学工作，而且在生活上和学习上学生考勤这个重要的终结口，都能让老师可以很轻松简明的知道某学生一学期来在校的表现，给与下定论.这次本人们所设计的课题正是一个学校内管理学生在校情况的体现。

系统开发目标
本系统考虑系统组成各环的功能需求，运用vb语言以及SQL Server 2000编的应用系统。这套系统应该具有先进的技术特征;配置必要的数据库和应用服务程序;组织完整的管理员操作界面。软件系统的界面要美观,布局要合理,窗口的内容尽量简单明了提供的信息，语言要通俗易懂，有层次感，分类要清晰明了.

第7页
第二章 可行性分析
2。1 系统分析
系统分析是指在管理信息系统开发的生命周期中系统分析阶段的各项活动和方法,应用系统思想和系统科学的原理进行系统分析工作的具体方法和技术.系统分析阶段是整个系统开发的关键，一般来说,建立管理信息系统首先要做好系统规划，在此基础上才能分批地实现各个应用项目的开发.
系统调查的主要任务是了解流程做了什么，存在什么问题，所以调查的内容应该包括:主要输入模块、主要输出模块、处理功能模块、数据存储模块以及与其它系统的关系。
学生考勤系统操作流程是首先由学校购置考勤系统，安置在教学楼各放置点。每日日终，由相应老师或学生对考勤记录进行分类、统计，形成日报表.待月末统计,生成月报表，并上报学校相应部门，供领导审阅。

2.2 系统的可行性分析
建设管理信息系统的必要性取决与需求的迫切性和实现的可行性。因此在进行系统调查之后就应该进行可行性分析。可行性分析的主要目标是：进一步明确系统的目标、规模和功能，对系统开发的背景、必要性和意义进行调查分析并根据需求提出开发系统地初步方案和计划。它对初步调查进行复审,重新明确问题，对所提系统大致规模和目标及约束进行论证.
本系统具备较完备的信息管理功能，通过使用本系统，在上课前五分钟老师登入考勤系统开始考勤,老师能够在很短的时间内完成学生的考勤任务，并将考勤信息存入数据库,即有效的保存了数据，方便以后对学生的评定，又节省了考勤所耗费的时间，使之能够更好的完成教学任务。同时学校领导可以通过在线察看某班级同学的在线情况。
因此本案例中对于学生考勤系统的方案也要从技术可行性、使用可行性这两个方面进行分析，并论证学生考勤系统建设的必要性和可能性.

2。3 社会可行性分析
随着社会的反展和信息技术的进步，全球信息化的趋势越来越明显。几乎没有一个学校不在走信息化的路子,都在用自己的智慧将工作效率一步一步的提升。在现在的高校中，由于学生的分布式教学，造成了教学管理的不严谨性，使得一些学生产生了逃课旷课的侥幸心理。所以教师的任务不仅仅是教学，还要同时负担考勤等烦杂的日常事务，这样就会严重影响到教师的授课时间,同时也影响了学生的听课时间。因此，信息化给这样的一个状况带来了一个契机，基于信息化的考勤系统就在这种情况下变的越来越受欢迎，它给教师带来了更加高效的处理考勤的方法，使得教学能够比较顺利的进行下去，不会再因为考勤等烦杂事务影响教学.
本学生考勤管理系统的设计目的在于研究利用计算机自动化实现考勤管理系统方案设计，主要对教务处工作人员的工作内容及工作方式进行分析研究，以实现计算机自动化办公软件系统。为教育管理者提供了一种新的学生管理方式。这种方式可以大大减轻管理员的工作负担，提高工作效率，为学校减少人力与物质资源的消耗，使管理过程便利、快捷，大大缩短了管理时间以及流程.
对于教职工及学生的考勤如果仍使用传统的手工方式录入将是一项复杂的工作。面对庞大的信息量,该方式现主要存在以下弊端：
(1）浪费人力、效率低下。
(2)难避免考勤中的弄虚作假现象。
（3）手工录入使考勤数据易丢失。
（4）考勤统计工作复杂繁重，难以保证统计结果的正确性、及时性。
因此,人工考勤已很难满足学校规范化管理的要求。建立现代化的智能考勤管理系统势在必行。

2.4 技术可行性分析
学生考勤系统主要包括：用户的登陆信息，教师对学生出勤信息的录入，教师和对应的课程信息的录入,学生查看出勤信息,查询信息,统计信息和打印信息。考虑到本系统界面众多，因此本系统采用vb语言开发结合数据库SQL server 2000以及Visual Basic6.0集成开发工具.
Microsoft SQL Server 2000使用了最实用的数据构架，它通过对高端硬件平台以及最新的网络和存储技术的支持,为企业级的应用提供很好的解决方案。本系统的后台数据库的设计是在Microsoft SQL Server2000 中完成的.利用SQL Server 2000来创建后台数据库，SQL Server 2000是基于SQL客户/服务器（C/S）模式的数据库系统，它采用图形化界面使数据库管理更加简洁、灵活。用其创建的数据库具有较高的安全性和稳定性。
我们使用Visual Basic 6。0开发了学生上课点名系统，本系统取代了传统的人工操作，利用计算机辅助管理学生实验课的日常出勤及缺勤情况既提高了点名的科学性,也减轻了老师的工作负担。利用SQL Server 2000进行数据库的建立和编程设计，结合Visual Basic中的WinSock控件实现了客户端与服务器模式的学生考勤管理系统，利用菜单，按钮和树状节点并行的方式实现了管理员登陆、学生考勤基本信息、学生请假管理、数据统计打印等功能，每类信息的管理都做到了相应信息的查询功能。经测试本系统运行正常，通过本系统可以做到学生考勤信息的规范管理。

2.5 经济可行性分析
学生考勤系统需要投资费用和未来的运行维护费用，其中投资费用主要包括设备费用、购买软件费用、技术人员的费用及其他费用（如由于工作方式改变需要增加的其他开支)。本产品是使用vb语言在Visual Studio.NET环境下开发，因此购买者只需要装Microsoft SQL Server2000 即可进行使用。通常为了保证新系统运行的可靠性,要求手工和计算机处理在一定时间并存，系统的收益主要通过新系统提高工作效率，知道经营管理策略来实现，还有其他难以计算的指标。
1、考勤管理中节省的人力，减少了手工考勤的相关人员，同时减轻了管理人员的劳动强度.
2、降低成本及其其他费用,学校只需购买本产品在购买套Microsoft SQL Server2000数据库即可投入使用。
3、改进薄弱环节，提高了工作效率,同时让相关人对数据的统计查询所使用的时间大大缩短。
4、提高数据处理的及时性和正确性。
5、考勤系统考勤的效率得到了明显的改善，使老师有更多的精力教学生。

第32页
第三章 数据库设计
3.1 数据库概要
通过对系统的分析针对《学生考勤系统》软件的数据流图是比较清晰的，对各功能模块来说都比较有规律。所以得出数据流图,但完整的图比较繁琐，因此分开各个功能模块的数据流图.以下是个模块的数据流图：
3。1。1 登录表数据流图

用户名及密码
身份验证
登录失败
登录成功
错
对
登录表

3。1.2 查询表数据流图
选择查询项目
查询条件
查询
显示

考勤数据表及相关表

3.1.3考勤数据流图
上下课登记
通过考勤人选着用户类型登入考系统给学生考勤，之后相关记录被记录到数据库中.

选择操作

考勤
请假登记

用户登记
缺勤登记
时间设置，班级以及学生的管理，上课情况

用户
3.1。4 管理员流图

信息管理
数据维护
用户管理
系统设置
统计查询

请假类别
添加
修改
删除
备份恢复

学生、课程、班级、用户

登录表信息载入

3.2考勤系统E—R图
学生和老师的关系是多对多的关系。例如一个学生可以让多个老师考勤，一个老师同样可以考勤多个学生。通过对学生考勤系统项目的分析得出以下系统E-R图。

学生
班级
学号
姓名
性别
年龄
入校时间
登录密码

学生考勤系统 E—R图1
学生
考勤
学生
M
M

3.3数据库分析
上课老师每天上课前进行考勤开始和下课后进行考勤结束,数据库中记录上课时间和下课时间,这些参数决定今天该学生是否出勤。
考勤人员每天上课后进行考勤开始和下课前进行考勤结束，数据库中记录上课时间和下课时间，如果一天上课期间全到,则整天全考勤都打勾；否则,就有迟到、早退、旷课、或请假.按每节课算,必须在规定的时间里考勤才算有效,考勤记录才会写入数据库.如果没有则意味着该节课没有出勤.
一、管理人员可对特殊情况人员进行修改出勤记录：
（1）、若某些人请假，无法考勤，管理员则通过管理路径修改其出勤情况；
(2)、每逢上缴出勤表格时，可以自动通过本系统导出EXCEL表，并打印出来;
（3）、可以查看在线人员的状况.

二、实现方式
(1）、设立账号，给每个老师设立用户名账号，使其可以登记出勤；
(2）、管理员通道可以修改出勤记录;
（3）、通过数据记录计算学生的出勤情况；
（4)、通过数据记录计算老师的出勤情况；

3.4 数据库详细设计
3.4.1 数据字典
本系统使用Microsoft SQL Server 2000,针对学生考勤系统对学生的考勤功能得到数据表，数据库中包括：登录表、学生信息表、班级信息表、请假表、上课情况类型表、上课时间表、旷课信息统计表、出勤信息统计表.
下面列出了十个表的具体静态数据：
1) 登录表（如下表)TUser表
此表存放操作员工的信息
字段
字段名
类型
宽度
是否为空
1.username
用户名
Varchar
50
否
2.password
密码
Varchar
50
否
3。realname
用户真实姓名
Varchar
50

4。regtime
注册时间
Varchar
50

5。permission
用户权限
Int
2
否
2)学生信息表（如下表）TWorker表
此表存放学生的基本信息
字段
字段名
类型
宽度
是否为主键
1。departmentId
学生班级
Int
4
外键
2.workerId
学生学号
Int
50
是
3.workerName
学生姓名
Varchar
50
否
4.workerSex
学生性别
Varchar
10
否
5.workerage
学生年龄
Int
4
否
6.intoSchoolTime
入校时间
Varchar
50
否
7.workPas
学生密码
Varchar
50
否
3) 班级信息表（如下表）TDeparment表
此表存放班级的信息
字段
字段名
类型
宽度
是否为主键
1。departmentId
班级号码
Int
4
是
2。departmentName
班级名称
Varchar
50
否
4）请假表（如下表）TQingjia表
此表存放请假信息
字段
字段名
类型
宽度
是否允许为空
1.departmentId
班级号码
Int
4
否
2.workerId
学生学号
Int
50
否
3。qjTime
请假时间
varchar
50
否
4.qjLength
请假时长
int
20
否
5。djTime
结假时间
varchar
50
否
6。qjReason
请假原因
varchar
50
否
7.xjTime

varchar
50
是
8。ynKg

5） 上课情况类型表（如下表）TWorkType表
字段
字段名
类型
宽度
是否允许为主键
1。typeId
类型号
Int
2
是
2。typeName
类型名称
Varchar
50
否
6） 上课时间表（如下表)TWorkTime表
字段
字段名
类型
宽度
是否允许为空
1.mstarTime
开课时间
Varchar
4
否
2。mleaveTime
下课时间
Varchar
50
否
3。astarTime
再次开课时间
varchar
50
否
4。aleaveTime
再次下课时间
Varchar
20
否
7) 旷课信息统计表（如下表）TKuangKe表
字段
字段名
类型
宽度
是否允许为空
1.departmentId
班级号码
Int
4
否
2。workerId
学生学号
Int
50
否
3.ccTime
旷课时间
varchar
50
否
4。ccArea
旷课地点
varchar
50
否
5.ccLength
旷课时长
int
20
否
6.dcTime
归课时间
varchar
50
否
7。xcTime

varchar
50
是
8.ccContent
旷课缘由

否
9.ynkg

8) 出勤信息统计表（如下表）TShangKe表
字段
字段名
类型
宽度
是否允许为空
1。departmentId
班级号码
Int
4
否
2.workerId
学生学号
Int
50
否
3.workday
开课日期
varchar
50
否
4。mstarTime
开课时间
Varchar
4
是
5.astarTime
再次开课时间
varchar
50
是
6。mleaveTime
下课时间
Varchar
50
是
7.aleaveTime
再次下课时间
Varchar
20
是
8。workmsType
开课时出勤情况
varchar
50
是
9.workmlType
下课时出勤情况
int
20
是
10.workasType
再次开课时出勤情况
varchar
50
是
11。workalType
再次下课时出勤情况
varchar
50
是
3。4.2 数据库的建立
在SQL Server 2000里创建数据库有很多方法，这里采用SQL 语句来创建数据库.打开SQL Server 2000的查询分析器，选择本地服务器,连接到SQL Server 2000数据库，登录名和密码均为xunxun。将SQL Server 2000语句复制在查询分析器里,然后执行SQL语句。SQL语句由如下两层结构构成：
（1)创建新数据库
use master
Create database db
Go
（2）使用create table语句建立数据库表。以登录表为例，SQL语句如下：
CREATE TABLE ［TUser]。[登录表］ (
［used_username] ［varchar] (50） COLLATE Chinese_PRC_CI_AS NOT NULL ，
[used_ password] ［varchar] （50） COLLATE Chinese_PRC_CI_AS NOT NULL ，
[used_realname] [varchar］ （50） COLLATE Chinese_PRC_CI_AS，
[used_regtime］ [varchar] （50) COLLATE Chinese_PRC_CI_AS，
［used_ permission] ［int] (2) COLLATE Chinese_PRC_CI_AS NOT NULL
) ON ［PRIMARY]
GO
3。5系统程序代码
使用vb语言在Visual Studio.NET环境下进行的程序编写。这里以添加学生班级程序和上下课时间设置为例。
添加学生班级:
VERSION 5。00
Begin VB。Form frmDepAdd
BorderStyle = 3 ’Fixed Dialog
Caption = ”添加班级"
ClientHeight = 3675
ClientLeft = 45
ClientTop = 420
ClientWidth = 5535
Icon = ”frmDepAdd.frx":0000
LinkTopic = ”Form1"
MaxButton = 0 ’False
MinButton = 0 'False
ScaleHeight = 3675
ScaleWidth = 5535
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdreadd
Caption = ”再次添加"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 ’False
Strikethrough = 0 ’False
EndProperty
Height = 495
Left = 2880
TabIndex = 5
Top = 2640
Width = 1215
End
Begin VB.CommandButton cmdadd
Caption = "添加"
BeginProperty Font
Name = "宋体”
Size = 10。5
Charset = 134
Weight = 700
Underline = 0 ’False
Italic = 0 ’False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1200
TabIndex = 4
Top = 2640
Width = 975
End
Begin VB。TextBox txtbmName
Height = 495
Left = 1800
TabIndex = 3
Top = 1200
Width = 2535
End
Begin VB.TextBox txtaddbmId
BackColor = &H00C0FFFF＆
Enabled = 0 ’False
ForeColor = &H00FFFFFF&
Height = 495
Left = 1800
TabIndex = 1
Top = 360
Width = 2535
End
Begin VB.Label Label2
Caption = ”班级名称”
BeginProperty Font
Name = "宋体"
Size = 10。5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 ’False
EndProperty
Height = 495
Left = 720
TabIndex = 2
Top = 1200
Width = 975
End
Begin VB.Label Label1
Caption = "班级号"
BeginProperty Font
Name = "宋体”
Size = 10。5
Charset = 134
Weight = 700
Underline = 0 ’False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 960
TabIndex = 0
Top = 360
Width = 735
End
End
Attribute VB_Name = ”frmDepAdd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strSql As String
Dim rs As New ADODB.Recordset
Dim num As Integer '存放相应的学生号

Private Sub cmdadd_Click（）
Dim departId As Integer
Dim departName As String
If txtbmName。Text = "" Then
MsgBox ”班级名称不能有空值"
Exit Sub
Else
departId = Trim（txtaddbmId。Text）
departName = Trim（txtbmName.Text）
strSql = ”insert into TDepartment （departmentId,departmentName） values（” _
& departId ＆ ”,’” ＆ departName ＆ "’）"
TransactSQL (strSql)
MsgBox "添加成功"
End If

End Sub
Public Sub init（） ’初始化
txtbmName。Text = ””
num = 0
strSql = ”select ＊ from TDepartment order by departmentId”
Set rs = TransactSQL(strSql）
If Not rs.EOF And Not rs。BOF Then
rs.MoveLast
num = rs(0）
num = num + 1
Me.txtaddbmId.Text = CStr（num）
Else
Me.txtaddbmId。Text = 1
End If
End Sub

Private Sub cmdreadd_Click()
Call init
End Sub

Private Sub Form_Load（)
num = 0
'初始化工号
strSql = ”select * from TDepartment order by departmentId"
Set rs = TransactSQL(strSql)
If Not rs.EOF And Not rs。BOF Then
rs.MoveLast
num = rs(0)
num = num + 1
Me。txtaddbmId。Text = CStr（num）
Else
Me.txtaddbmId。Text = 1
End If

End Sub

上下课时间设置：

VERSION 5.00
Begin VB。Form frmSetTime
Caption = ”正常上下课时间设置”
ClientHeight = 8550
ClientLeft = 60
ClientTop = 435
ClientWidth = 12990
Icon = ”frmSetTime.frx"：0000
LinkTopic = ”Form1”
MDIChild = -1 'True
ScaleHeight = 8550
ScaleWidth = 12990
WindowState = 2 'Maximized
Begin VB.CommandButton cmdOK
Caption = "设定"
Height = 495
Left = 2280
TabIndex = 10
Top = 4560
Width = 1455
End
Begin VB.Frame Frame2
Caption = ”下午”
Height = 2055
Left = 480
TabIndex = 1
Top = 2280
Width = 4455
Begin VB.TextBox aleaveTime
Height = 375
Left = 1920
TabIndex = 9
Top = 1080
Width = 2175
End
Begin VB。TextBox astartTime
Height = 375
Left = 1920
TabIndex = 8
Top = 360
Width = 2175
End
Begin VB。Label Label4
Caption = ”下课时间”
Height = 615
Left = 840
TabIndex = 7
Top = 1080
Width = 855
End