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

基于VB学生试验课考勤系统研究和设计学生：陈寻寻指导老师：史卫三淮南师范学院计算机和信息工程系目录【摘要】伴随社会发展和信息技术进步，全球信息化趋势越来越显著。几乎没有一个学校不在走信息化道路，全部在用自己智慧将工作效率一步一步提升。在现在高校中，因为学生分布式教学，造成了教学管理不严谨性，使得部分学生产生了逃课旷课侥幸心理。所以老师任务不仅仅是教学，还要同时负担考勤等烦杂日常事务，这么就会严重影响到老师讲课时间，同时也影响了学生听课时间。所以，信息化给这么一个情况带来了一个契机，基于信息化考勤系统就在这种情况下变越来越受欢迎，它给老师带来了愈加高效处理考勤方法，使得教学能够比较顺利进行下去，不会再因为考勤等烦杂事务影响教学。本系统含有较完备信息管理功效，经过使用本系统，高校老师能够在很短时间内完成学生考勤任务，并将考勤信息存入数据库，即有效保留了数据，方便以后对学生评定，又节省了考勤所花费时间，使之能够愈加好完成教学任务。全文共分为：序言、可行性分析、数据库需求分析、数据库总体设计、数据库具体设计、数据库连接等六部分，经过对高校学生考勤工作步骤具体分析，具体表述了系统业务步骤图、数据步骤图、数据字典、E-R图、数据库关系图，然后采取自顶向下几方法循序渐进地进行了系统模块设计、代码设计、数据库设计、人机界面设计及输入输出设计等。经过系统计划，充足表现了信息化在公安工作中关键性、立即性和实效性。【关键词】Visual Basic6.0 SQL Server 学生考勤 C/S模式 第一章 项目需求分析伴随计算机发展及网络技术应用，当今社会正快速向信息自动化社会前进，信息自动化作用也越来越大，尤其是各行业管理领域，智能化信息处理已是提升效率、规范管理、客观审查最有效路径。传统学生考勤，关键是靠老师在课堂上点名或学生会抽查点名制度，学生人数多、考勤不全方面、数据不正确，尤其是点名考勤制花费了老师和学生大量时间且起不到太大效果。人员、部门之间信息传输因为经过手工或纸质表格交流而显得内容不够丰富，信息传输严重滞后使信息沟通大大受阻。这使得学生、老师、学校各部门之间不得不在和台帐信息沟通上花费大量时间和精力，既影响了整个学校管理工作效率，同时又使学校领导不能立即掌握最新最快学生出勤动态，给学校学风建设带来不利影响。比如：（1）考勤不全方面：一个学校班级、学生人数众多，学生会安排考勤工作人员极有限，任课老师也不可能每节课全部点名，所以高校学生考勤无法全方面地进行。（2）数据不正确：点名考勤制花费了老师和学生大量时间：上课逐一逐一点名考勤，占用老师和学生大量时间。而且上大课，会常常出现点名时有些人代喊到方法，一二百人大教室也没法确定是真还是假，往往会助长学生逃课风气。（3）资料共享程度低：老师手里掌握考勤统计常常会和系学生会、学校教务处考勤统计有出入。所以，经过对学院学生考勤管理工作现实状况初步调查，发觉学校急需一套能够适应大量信息控制和数据处理考勤管理方案，方便用计算机正确高效处理方法和数据库紧凑严谨结构替换手工操作和纸质传输。因为学校格校区地跨面积大，学院、专业、学生数量多，对学校考勤工作开发一套能够进行实时处理信息管理系统，其迫切性也是不可忽略，具体表现以下：有了上述原因，对院学生考勤工作急需一套管理信息系统，而科学管理迫切性也使得这套系统开发势在必行。系统背景现今社会，学校为了愈加好完善自己教育形式，为了愈加好管理学生在校情况，考勤作为一个学校基项管理，学生考勤系统软件已经成为学校管理关键取向点，她能够把事情复杂化转为简单化。系统开发目标考勤系统能够减轻本学院老师和后勤工作力度，也大大地提升了领导、老师之间工作效率。不仅达成了便于本校师生教学工作，而且在生活上和学习上学生考勤这个关键终止口，全部能让老师能够很轻松简明知道某学生一学期来在校表现，给和下定论。这次本大家所设计课题正是一个学校内管理学生在校情况表现。系统开发目标本系统考虑系统组成各环功效需求，利用vb语言和SQL Server 编应用系统。这套系统应该含有优异技术特征；配置必需数据库和应用服务程序；组织完整管理员操作界面。软件系统界面要美观,布局要合理,窗口内容尽可能简单明了提供信息,语言要通俗易懂,有层次感,分类要清楚明了。第二章 可行性分析2.1 系统分析系统分析是指在管理信息系统开发生命周期中系统分析阶段各项活动和方法，应用系统思想和系统科学原理进行系统分析工作具体方法和技术。系统分析阶段是整个系统开发关键，通常来说，建立管理信息系统首先要做好系统计划，在此基础上才能分批地实现各个应用项目标开发。系统调查关键任务是了解步骤做了什么，存在什么问题，所以调查内容应该包含：关键输入模块、关键输出模块、处理功效模块、数据存放模块和和其它系统关系。学生考勤系统操作步骤是首先由学校购置考勤系统，安置在教学楼各放置点。每日日终，由对应老师或学生对考勤统计进行分类、统计，形成日报表。待月末统计，生成月报表，并上报学校对应部门，供领导审阅。2.2 系统可行性分析 建设管理信息系统必需性取决和需求迫切性和实现可行性。所以在进行系统调查以后就应该进行可行性分析。可行性分析关键目标是：深入明确系统目标、规模和功效，对系统开发背景、必需性和意义进行调查分析并依据需求提出开发系统地初步方案和计划。它对初步调查进行复审，重新明确问题，对所提系统大致规模和目标及约束进行论证。本系统含有较完备信息管理功效，经过使用本系统，在上课前五分钟老师登入考勤系统开始考勤，老师能够在很短时间内完成学生考勤任务，并将考勤信息存入数据库，即有效保留了数据，方便以后对学生评定，又节省了考勤所花费时间，使之能够愈加好完成教学任务。同时学校领导能够经过在线察看某班级同学在线情况。所以本案例中对于学生考勤系统方案也要从技术可行性、使用可行性这两个方面进行分析，并论证学生考勤系统建设必需性和可能性。2.3 社会可行性分析伴随社会反展和信息技术进步，全球信息化趋势越来越显著。几乎没有一个学校不在走信息化路子，全部在用自己智慧将工作效率一步一步提升。在现在高校中，因为学生分布式教学，造成了教学管理不严谨性，使得部分学生产生了逃课旷课侥幸心理。所以老师任务不仅仅是教学，还要同时负担考勤等烦杂日常事务，这么就会严重影响到老师讲课时间，同时也影响了学生听课时间。所以，信息化给这么一个情况带来了一个契机，基于信息化考勤系统就在这种情况下变越来越受欢迎，它给老师带来了愈加高效处理考勤方法，使得教学能够比较顺利进行下去，不会再因为考勤等烦杂事务影响教学。本学生考勤管理系统设计目标在于研究利用计算机自动化实现考勤管理系统方案设计，关键对教务处工作人员工作内容及工作方法进行分析研究，以实现计算机自动化办公软件系统。为教育管理者提供了一个新学生管理方法。这种方法能够大大减轻管理员工作负担，提升工作效率，为学校降低人力和物质资源消耗，使管理过程便利、快捷，大大缩短了管理时间和步骤。对于教职员及学生考勤假如仍使用传统手工方法录入将是一项复杂工作。面对庞大信息量，该方法现关键存在以下弊端： （1）浪费人力、效率低下。（2）难避免考勤中弄虚作假现象。（3）手工录入使考勤数据易丢失。（4）考勤统计工作复杂繁重，难以确保统计结果正确性、立即性。所以，人工考勤已极难满足学校规范化管理要求。建立现代化智能考勤管理系统势在必行。2.4 技术可行性分析学生考勤系统关键包含：用户登陆信息，老师对学生出勤信息录入，老师和对应课程信息录入，学生查看出勤信息，查询信息，统计信息和打印信息。考虑到本系统界面众多，所以本系统采取vb语言开发结合数据库SQL server 和Visual Basic6.0集成开发工具。 Microsoft SQL Server 使用了最实用数据构架，它经过对高端硬件平台和最新网络和存放技术支持，为企业级应用提供很好处理方案。本系统后台数据库设计是在Microsoft SQL Server 中完成。利用SQL Server 来创建后台数据库，SQL Server 是基于SQL用户/服务器（C/S）模式数据库系统，它采取图形化界面使数据库管理愈加简练、灵活。用其创建数据库含有较高安全性和稳定性。我们使用Visual Basic 6.0开发了学生上课点名系统，本系统替换了传统人工操作，利用计算机辅助管理学生试验课日常出勤及缺勤情况既提升了点名科学性，也减轻了老师工作负担。利用SQL Server 进行数据库建立和编程设计，结合Visual Basic中WinSock控件实现了用户端和服务器模式学生考勤管理系统，利用菜单，按钮和树状节点并行方法实现了管理员登陆、学生考勤基础信息、学生请假管理、数据统计打印等功效，每类信息管理全部做到了对应信息查询功效。经测试本系统运行正常，经过本系统能够做到学生考勤信息规范管理。2.5 经济可行性分析学生考勤系统需要投资费用和未来运行维护费用，其中投资费用关键包含设备费用、购置软件费用、技术人员费用及其它费用（如因为工作方法改变需要增加其它开支）。本产品是使用vb语言在Visual Studio.NET环境下开发，所以购置者只需要装Microsoft SQL Server 即可进行使用。通常为了确保新系统运行可靠性，要求手工和计算机处理在一定时间并存，系统收益关键经过新系统提升工作效率，知道经营管理策略来实现，还有其它难以计算指标。1、考勤管理中节省人力，降低了手工考勤相关人员，同时减轻了管理人员劳动强度。2、降低成本及其其它费用，学校只需购置本产品在购置套Microsoft SQL Server数据库即可投入使用。3、改善微弱步骤，提升了工作效率，同时让相关人对数据统计查询所使用时间大大缩短。4、提升数据处理立即性和正确性。5、考勤系统考勤效率得到了显著改善，使老师有更多精力教学生。第三章 数据库设计3.1 数据库概要经过对系统分析针对学生考勤系统软件数据流图是比较清楚，对各功效模块来说全部比较有规律。所以得出数据流图，但完整图比较繁琐，所以分开各个功效模块数据流图。以下是个模块数据流图：3.1.1 登录表数据流图用户名及密码身份验证登录失败登录成功错对登录表3.1.2 查询表数据流图选择查询项目查询条件查询显示考勤数据表及相关表3.1.3考勤数据流图上下课登记经过考勤人选着用户类型登入考系统给学生考勤，以后相关统计被统计到数据库中。选择操作考勤请假登记用户登记缺勤登记时间设置，班级和学生管理，上课情况用户3.1.4 管理员流图信息管理数据维护用户管理系统设置统计查询请假类别添加修改删除备份恢复学生、课程、班级、用户登录表信息载入3.2考勤系统E-R图学生和老师关系是多对多关系。比如一个学生能够让多个老师考勤，一个老师一样能够考勤多个学生。经过对学生考勤系统项目标分析得出以下系统E-R图。学生班级学号姓名性别年纪入校时间登录密码学生考勤系统 E-R图1学生考勤学生MM3.3数据库分析上课老师天天上课前进行考勤开始和下课后进行考勤结束，数据库中统计上课时间和下课时间，这些参数决定今天该学生是否出勤。考勤人员天天上课后进行考勤开始和下课前进行考勤结束，数据库中统计上课时间和下课时间，假如一天上课期间全到，则整天全考勤全部打勾；不然，就有迟到、早退、旷课、或请假。按每节课算，必需在要求时间里考勤才算有效，考勤统计才会写入数据库。假如没有则意味着该节课没有出勤。一、管理人员可对特殊情况人员进行修改出勤统计：(1)、若一些人请假，无法考勤，管理员则经过管理路径修改其出勤情况；(2)、每逢上缴出勤表格时，能够自动经过本系统导出EXCEL表，并打印出来；(3)、能够查看在线人员情况。二、实现方法(1)、设置账号，给每个老师设置用户名账号，使其能够登记出勤；(2)、管理员通道能够修改出勤统计；(3)、经过数据统计计算学生出勤情况；(4)、经过数据统计计算老师出勤情况；3.4 数据库具体设计3.4.1 数据字典本系统使用Microsoft SQL Server ，针对学生考勤系统对学生考勤功效得到数据表，数据库中包含：登录表、学生信息表、班级信息表、请假表、上课情况类型表、上课时间表、旷课信息统计表、出勤信息统计表。下面列出了十个表具体静态数据：1) 登录表（以下表）TUser表此表存放操作职员信息字段字段名类型宽度是否为空1.username用户名Varchar50否2.password密码Varchar50否3.realname用户真实姓名Varchar504.regtime注册时间Varchar505.permission用户权限Int2否2)学生信息表（以下表）TWorker表此表存放学生基础信息字段字段名类型宽度是否为主键1.departmentId学生班级Int4外键2.workerId学生学号Int50是3.workerName学生姓名Varchar50否4.workerSex学生性别Varchar10否5.workerage学生年纪Int4否6.intoSchoolTime入校时间Varchar50否7.workPas学生密码Varchar50否3) 班级信息表（以下表）TDeparment表此表存放班级信息字段字段名类型宽度是否为主键1.departmentId班级号码Int4是2.departmentName班级名称Varchar50否4)请假表（以下表）TQingjia表此表存放请假信息字段字段名类型宽度是否许可为空1.departmentId班级号码Int4否2.workerId学生学号Int50否3.qjTime请假时间varchar50否4.qjLength请假时长int20否5.djTime结假时间varchar50否6.qjReason请假原因varchar50否7.xjTimevarchar50是8.ynKg5) 上课情况类型表（以下表）TWorkType表字段字段名类型宽度是否许可为主键1.typeId类型号Int2是2.typeName类型名称Varchar50否6) 上课时间表（以下表）TWorkTime表字段字段名类型宽度是否许可为空1.mstarTime开课时间Varchar4否2.mleaveTime下课时间Varchar50否3.astarTime再次开课时间varchar50否4.aleaveTime再次下课时间Varchar20否7) 旷课信息统计表（以下表）TKuangKe表字段字段名类型宽度是否许可为空1.departmentId班级号码Int4否2.workerId学生学号Int50否3.ccTime旷课时间varchar50否4.ccArea旷课地点varchar50否5.ccLength旷课时长int20否6.dcTime归课时间varchar50否7.xcTimevarchar50是8.ccContent旷课缘由否9.ynkg8) 出勤信息统计表（以下表）TShangKe表字段字段名类型宽度是否许可为空1.departmentId班级号码Int4否2.workerId学生学号Int50否3.workday开课日期varchar50否4.mstarTime开课时间Varchar4是5.astarTime再次开课时间varchar50是6.mleaveTime下课时间Varchar50是7.aleaveTime再次下课时间Varchar20是8.workmsType开课时出勤情况varchar50是9.workmlType下课时出勤情况int20是10.workasType再次开课时出勤情况varchar50是11.workalType再次下课时出勤情况varchar50是3.4.2 数据库建立在SQL Server 里创建数据库有很多方法，这里采取SQL语句来创建数据库。打开SQL Server 查询分析器，选择当地服务器，连接到SQL Server 数据库，登录名和密码均为xunxun。将SQL Server 语句复制在查询分析器里，然后实施SQL语句。SQL语句由以下两层结构组成：（1）创建新数据库use masterCreate database dbGo(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 PRIMARYGO3.5系统程序代码使用vb语言在Visual Studio.NET环境下进行程序编写。这里以添加学生班级程序和上下课时间设置为例。添加学生班级：VERSION 5.00Begin 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 EndEndAttribute VB_Name = frmDepAddAttribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim strSql As StringDim rs As New ADODB.RecordsetDim num As Integer 存放对应学生号Private Sub cmdadd_Click()Dim departId As IntegerDim departName As StringIf txtbmName.Text = Then MsgBox 班级名称不能有空值 Exit SubElsedepartId = Trim(txtaddbmId.Text) departName = Trim(txtbmName.Text)strSql = insert into TDepartment (departmentId,departmentName) values( _ & departId & , & departName & ) TransactSQL (strSql)MsgBox 添加成功End IfEnd SubPublic 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 IfEnd SubPrivate Sub cmdreadd_Click() Call initEnd SubPrivate 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.00Begin 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 Begin VB.Label Label3 Caption = 上课时间 Height = 375 Left = 840 TabIndex = 6 Top = 360 Width = 975 End End Begin VB.Frame Frame1 Caption = 早晨 Height = 2055 Left = 480 TabIndex = 0 Top = 240 Width = 4455 Begin VB.TextBox mleaveTime Height = 375 Left = 1