排课管理系统

精品文档交流 毕业设计毕业设计 院系院系 专业专业 班级班级 姓名姓名 日期日期 年年 月月 日日 精品文档交流 目 录 摘 要 I ABSTRACT II 第一章 引言1 1 1 背景 1 1 1 1 教师管理系统1 1 2 开发教师管理系统的目的和原则3 1 3 开发环境介绍 3 1 3 1 开发平台4 1 3 2 数据库设计工具 ACCESS 数据库管理系统 7 第二章 系统设计 9 2 1 系统分析9 2 2 系统流程和操作方式设计11 第三章 系统界面设计12 3 1 系统界面设计以及代码分析 12 第四章 数据库的设计 30 4 1 数据库设计 30 4 2 数据库概念和发展30 4 3 系统测试与评价38 精品文档交流 总 结 39 致 谢40 参考文献 41 摘摘 要要 20 世纪以来 社会生产力迅速发展 科学技术突飞猛进 人们进行信息交 流的深度与广度不断增加 信息量急剧增长 传统的信息处理与决策的手段已 不能适应社会的需要 信息的重要性和信息处理问题的紧迫性空前提高了 面 对着日益复杂和不断发展 变化的社会环境 特别是企业间日趋剧烈的竞争形 势 一个人 一个企业要在现代社会中求生存 求发展 必须具备足够的信息 和强有力的信息收集与处理手段 对于一个学校来说 大量教师课程安排难于通过传统的方法进行管理 这 就迫切需要利用计算机技术来帮助学校管理者来处理教师课程安排的日常管理 合理安排课程 防止课程冲突 排课管理系统可以很好的解决以上问题 排课管理 系统是管理信息系统的一个典型用例 管理信息系统是一个集信息技术 经济管理理论 统计学与运筹学 数据 库技术为一体的综合性系统 是一个资金技术密集型 劳动密集型 智力密集 型的项目 我国拥有广阔的市场和丰富的人才资源 有几十年的技术积累和经 验积累 有一定的后发优势 管理信息系统的创新工作既不能妄自菲薄 更不 能夜郎自大 要抓住当前网络经济兴起的有利时机 以实现我国信息技术和信 息产业的跨越式发展 更好地发挥信息产业对国民经济增长的拉动作用 开发学校排课管理系统的过程就是要实现数据处理方式由人工管理向计算 机管理的转变 它在计算机技术和教师管理实践活动两者之间架设桥梁 关键字关键字 排课管理排课管理 管理信息系统管理信息系统 数据库数据库 计算机管理计算机管理 精品文档交流 第一章第一章 引言引言 对于一个学校来说 大量教师课程安排难于通过传统 的方法进行管理 这就迫切需要利用计算机技术来帮助学 校管理者来处理教师课程安排的日常管理 合理安排课程 防止课程冲突 排课管理系统可以很好的解决以上问题 排 课管理系统是管理信息系统的一个典型用例 1 1 背景背景 1 1 1 排课管理系统排课管理系统 如今随着教育事业的发展 学校对教师课程安排的复杂度的增加 一个单位 各个学科每天的课程安排以及教室资源的分配 排课工资等 信息量将迅速的增加 传统的手工的处理方式已经跟不上信息爆炸般 的扩增 所以开发一种可靠 高效的教师排课管理系统是很有必要的 1 2 开发排课管理系统的目的与原则开发排课管理系统的目的与原则 排课管理系统的主要目的是服务与中小学 各高校的管理者 方便 其管理本校排课信息的软件系统 其原则是做到 界面友好人性 操作 简单 可靠 1 3 开发环境介绍开发环境介绍 1 3 1 开发平台开发平台 本教师管理系统的开发平台为微软 windows xp visual basic 6 0 以 精品文档交流 及微软的 Access 作为操作数据库 1 3 2数据库设计工具数据库设计工具 ACCESSACCESS 数据库管理系统数据库管理系统 Microsoft Access 介绍 使用 Microsoft Access 可以在单一的数据库文件中管理所有的信息 在 这个文件中 用户可以将自己的数据分别保存在各自独立的存储空间中 这 些空间称作表 可以使用联机窗体来查看 添加及更新表中的数据 使用查 询来查找并检索所要的数据 也可以使用报表以特定的版面布置来分析及打 印数据 如果要保存数据 请为每一种类型的信息创建一个表 如果要从查询 窗体或报表中的多个表中将数据合并在一起 就要定义各个表之间的关系 如果要搜索并检索符合指定条件的数据 包括来自多个表中的数据 就 要创建查询 查询的同时也可以更新或删除多条记录 并对数据执行内嵌或 自定义的计算 如果要简单地直接在某个表中查看 输入及更改数据 请创建一个窗体 在打开一个窗体时 Microsoft Access 将从一个或多个表中检索数据 并 使用用户在 窗体向导 选择的版面布局或所创建的版面布局 将窗体显示 在屏幕上 如果要分析数据或将数据以特定的方式打印出来 请创建一个报表 例 如 可以打印一份将数据分组并计算数据总和的报表 也可以打印另一份带 有各种数据格式的打印邮件标签的报表 第二章第二章 系统设计系统设计 精品文档交流 2 1 系统分析系统分析 本排课管理系统主要由以下几大模块构成 一 教职员入库信息 二 排课管理 三 教职员带课查询 四 本学期课程设置 五 打印课程表 六 打印教师代课表 2 22 2 系统流程和操作方式设计系统流程和操作方式设计 精品文档交流 系统登陆 主界面 教 职 员 工 入 库 信 息 排 课 管 理 教 职 员 工 带 课 查 询 本 学 期 课 程 安 排 打印 课程 表 打 印 教 师 带 课 表 第三章第三章 系统界面设计系统界面设计 3 13 1 系统界面设计系统界面设计 1 1 登陆界面登陆界面 代码分析代码分析 Option Explicit Public LoginSucceeded As Boolean Private Sub cmdCancel Click 精品文档交流 set the global var to false to denote a failed login LoginSucceeded False Unload fmStart End Sub Private Sub cmdOK Click check for correct password If txtPassword password Then place code to here to pass the success to the calling sub setting a global var is the easiest LoginSucceeded True Me Hide fmStart Show Else MsgBox Invalid Password try again Login txtPassword SetFocus SendKeys Home End End If End Sub Private Sub Form Load Load fmStart 精品文档交流 fmStart Hide End Sub 2 教职员入库信息界面教职员入库信息界面 代码分析代码分析 Dim con As ADODB Connection Dim rs As ADODB Recordset Dim qrs As ADODB Recordset Dim slSql As String Dim i j As Integer Dim strBak 2 As String Dim sqlStr As String Private Sub Command1 Click Index As Integer On Error GoTo Err 精品文档交流 Dim cn As Integer For cn 0 To 2 Text1 cn Text Next cn If rs RecordCount 0 Then Select Case Index Case 0 rs MoveFirst Case 1 rs MovePrevious Command1 2 Enabled True Command1 3 Enabled True Case 2 rs MoveNext Command1 0 Enabled True Command1 1 Enabled True Case 3 rs MoveLast End Select displayInfo 精品文档交流 End If GoTo ok Err Call dataOver ok End Sub Private Sub dataOver If rs BOF Then Command1 0 Enabled False Command1 1 Enabled False Command1 2 Enabled True Command1 3 Enabled True rs MoveFirst Else If rs EOF Then rs MoveLast Command1 0 Enabled True Command1 1 Enabled True Command1 2 Enabled False 精品文档交流 Command1 3 Enabled False Else MsgBox Database Error vbExclamation vbOKOnly Error unknown End If End If End Sub Private Sub Command2 Click Index As Integer On Error GoTo errDeal If Index 0 Or Index 2 Then CanSave True Else CanSave False End If Select Case Index Case 0 rs AddNew 精品文档交流 Call toNull Case 1 j MsgBox 你确定要删除本记录吗 vbYesNo vbQuestion 删除 If j vbYes Then rs Delete Call toNull End If Case 2 rs Delete rs AddNew Case 3 If Len LTrim RTrim Text1 0 Text 0 Then rs AddNew For i 0 To 2 If Len LTrim RTrim Text1 i Text 0 Then rs Fields i Text1 i Text End If 精品文档交流 Next i rs Update Else MsgBox 姓名不得为空 vbOKOnly vbExclamation Error End If Case 4 For i 0 To 2 Text1 i Text strBak i Next i Call Command2 Click 3 End Select Exit Sub errDeal MsgBox database Error vbExclamation vbOKOnly error okEnd End Sub Private Sub CanSave ok As Boolean 精品文档交流 Frame1 Enabled Not ok Frame3 Enabled ok For i 0 To 4 If i 0 Then rs MoveFirst displayInfo CanSave False Else new data CanSave True Call Command2 Click 0 End If End Sub Private Sub displayInfo i j 0 For i 0 To 2 Text1 i Text If Len rs Fields i 0 Then Text1 i Text rs Fields i 精品文档交流 strBak i Text1 i Text End If Next i End Sub Private Sub toNull For i 0 To 2 Text1 i Text strBak i Next i End Sub Private Sub Form Unload Cancel As Integer On Error GoTo KK rs Close Set rs Nothing qrs Close 精品文档交流 Set qrs noting con Close Set con Nothing KK End Sub Private Sub queryComm Click slSql select from Teacher where cTrname Text1 3 Text qrs Open slSql con adOpenStatic If Not qrs EOF Then qrs MoveFirst i j 0 For i 0 To 2 Text1 i Text If Len qrs Fields i 0 Then Text1 i Text qrs Fields i strBak i Text1 i Text 精品文档交流 End If Next i End If qrs Close End Sub 3 排课管理界面排课管理界面 代码分析代码分析 Option Explicit Dim conn As ADODB Connection Dim rsTr As ADODB Recordset Dim rsSj As ADODB Recordset Dim i j sjCnt As Integer Dim ClassCode As String Dim TrChanged ClassChanged As Boolean Dim strSql As String Dim rsTrAry As ADODB Recordset Dim rsClassAry As ADODB Recordset Dim StrTr 9 As String Dim strSj 49 As String Dim minht maxHt As Integer Private Sub EnableSave ok As Boolean 精品文档交流 Dim k As Integer For k 0 To 3 If k 0 And Len ClassCode 1 Then Call displayInfo cb 1 Enabled True End If Case 1 cb Click 0 EnableSave True cb 1 Enabled False Case 2 If TrChanged Then strSql delete from trclass where cclasscode Persist Security Info False Data Source C WINDOWS Desktop dataUse mdb conn Open provider Microsoft Jet OLEDB 4 0 data source data source data source data source data source data source data source App Path dataUse mdb End Sub Private Sub Form Unload Cancel As Integer ttrs Close ttCon Close Set ttrs Nothing Set ttCon Nothing trcon Close Set trrs Nothing Set trcon Nothing End Sub 第四章第四章 数据库的设计数据库的设计 精品文档交流 4 14 1 数据库设计数据库设计 1 classarray 信息表 2 teacher 表 3 tempct 表 4 班级表 4 24 2 数据库概念和发展数据库概念和发展 关系数据库是目前各类数据库中最重要 最流行的数据库 他应用数学方法 来处理数据库数据 是目前使用最广泛的数据库系统 20 世纪 70 年代以后 开发的数据库管理系统产品几乎都是基于关系的 在数据库发展的历史上 精品文档交流 最重要的成就就是关系模型 关系数据库系统与非关系数据库系统的区别是 关系系统只有 表 这 一种数据结构 而非关系数据库系统还有其他数据结构 对这些数据结构有 其他的操作 结构化查询语言 SQL Structured Query Language 是一种介于关系代数与关 系演算之间的语言 其功能包括查询 操纵 定义和控制四个方面 是一个通 用的 功能极强的关系数据库语言 目前已成为关系数据库的标准语言 4 34 3 系统测试与评价系统测试与评价 测试在软件开发过程中一直都是备受关注的 即使在传统的软件工程中 也有 一个明确 独立的测试阶段 随着软件危机的频频出现以及人们对于软件本质 的进一步认识 测试的地位得到了前所未有的提高 测试已经不仅仅局限于软 件开发中的一个阶段 它已经开始贯穿于整个软件开发过程 人们已经开始认 识到 测试开始的时间越早 测试执行的越频繁 所带来的整个软件开发成本 的下降就会越多 Extreme Programming 更是把测试推到了极限的位置 一切 软件开发活动都要从首先编写测试代码开始 总总 结结 排课管理系统是一个典型的信息管理系统 其主要通过软件 工程方面的选择课题 需求分析 总体设计 选用工具 程序模 块 系统测试等几个步骤来实现 开发本系统的过程中 首先要 对排课信息管理进行系统调研 熟悉学校教师排课的程序 班级 分配 课程安排管理的流程 步骤 其次在系统需求分析过程中 精品文档交流 要透过现象看本质 敏锐观察到学校教师管理中存在的各种问题 并在总体设计把握好对问题的分析 理解 进而解决问题 选用 开发工具要选用自己最熟悉 应用较多的开发工具 本系统开发 选用 MS Visual Basic 6 0 其具有语言简单 功能强大 组件 众多的优点 程序模块的编制中 重点把握系统内部完整性 功 能性 实用性 便捷性 使其能够协调统一 运行无误 运行结 果证明 本学校教师信息管理系统极大提高了工作效率 节省了 人力和物力 最终满足学校管理 学校员工工作的需要 同时也 成为现代化学校管理的标志 致致 谢谢 我首先感谢我的指导老师吕老师 在他严格的要求下我懂得了开发软件要 有一种极其认真负责的态度 无论做什么事都要大胆的去想去做 这样会有好 的创意 才能更有作为 在这里我还要感谢我们宿舍的其它 5 个同学 他们和我共同生活了四年 在生 活和学习上给了我很大的帮助 参考文献 1 陈明 软件工程学教程 科技出版社 2002 2 萨师煊 王珊 数据库系统概论 第三版 高等教育出版社 2000 3 飞思科技产品研发中心 visual basic 6 0 数据库应用开发 电子工业 出版社 2003 4 飞思科技产品研发中心 visual basic 6 0 开发者手册 电子工业出 版社 2002 5 申旻 visual ba