排课管理系统论文

1、课程论文（设计）姓 名 曾伟峰学号1208629881专业班级12电气工程及其自动化1班指导教师 陈治明提交日期2013年12月21日HUIZHOU UNIVERSITY中 文 题 目：排课管理系统教务处制摘 要ABSTRACT第一章引言1.1背景1.1.1教师管理系统1.2开发教师管理系统的目的和原则1.3开发环境介绍1.3.1开发平台1.3.2数据库设计工具一一ACCESS据库管理系统第二章系统设计2.1系统分析2.2系统流程和操作方式设计第三章系统界面设计3.1系统界面设计以及代码分析第四章数据库的设计4.1数据库设计4.2数据库概念和发展4.3系统测试与评价总 结参考文献摘要20世纪以

2、来，社会生产力迅速发展，科学技术突飞猛进， 人们进行信息交流的深度与广度不断增加，信息虽急剧增 长，传统的信息处理与决策的手段已不能适应社会的需要， 信息的重要性和信息处理问题的紧迫性空前提高了，面对着 日益复杂和不断发展，变化的社会环境，特别是企业间日趋 剧烈的竞争形势，一个人、一个企业要在现代社会中求生存， 求发展，必须具备足够的信息和强有力的信息收集与处理于 段。对于一个学校来说，大虽教师课程安排难于通过传统的 方法进行管理；这就迫切需要利用计算机技术来帮助学校管 理者来处理教师课程安排的日常管理,合理安排课程,防止课程冲突.排课管理系统可以很好的解决以上问题.排课管理系统是管理信息系统

3、的一个典型用例.管理信息系统是一个集信息技术、经济管理理论、统计 学与运筹学、数据库技术为一体的综合性系统，是一个资金 技术密集型、劳动密集型、智力密集型的项目。我国拥有广 阔的市场和丰富的人才资源，有几十年的技术积累和经验积 累，有一定的后发优势。管理信息系统的创新工作既不能妄 自菲薄，更不能夜郎自大。要抓住当前网络经济兴起的有利 时机，以实现我国信息技术和信息产业的跨越式发展，更好 地发挥信息产业对国民经济增长的拉动作用。开发学校排课管理系统的过程就是要实现数据处理方 式由人工管理向计算机管理的转变， 它在计算机技术和教师 管理实践活动两者之间架设桥梁。关键字：排课管理,管理信息系统,数据

4、库,计算机管理第一章引言对于一个学校来说，大虽教师课程安排难于通过传统的 方法进行管理；这就迫切需要利用计算机技术来帮助学校管 理者来处理教师课程安排的日常管理,合理安排课程,防止课程冲突.排课管理系统可以很好的解决以上问题.排课管理系统是管理信息系统的一个典型用例.1.1背景1.1.1排课管理系统如今随着教育事业的发展，学校对教师课程安排的复杂度的增加 一个单位，各个学科每天的课程安排以及教室资源的分配，排课工资等 信息量将迅速的增加，传统的手工的处理方式已经跟不上信息爆炸般 的扩增.所以开发一种可靠，高效的教师排课管理系统是很有必要的1.2开发排课管理系统的目的与原则排课管理系统的主要目的

5、是服务与中小学 ，各高校的管理者，方便 其管理本校排课信息的软件系统.其原则是做到，界面友好人性，操作 简单，可靠.1.3开发环境介绍1.3.1开发平台本教师管理系统的开发平台为微软windows xp visual basic 6.0以及微软的Access作为操作数据库.1.3.2数据库设计工具一一ACCESS据库管理系统Microsoft Access介绍：使用Microsoft Access,可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些 空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询 来查找并检索所要的

6、数据；也可以使用报表以特定的版面布置来分析及打印 数据。如果要保存数据，请为每一种类型的信息创建一个表。如果要从查询、窗 体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自 定义的计算。如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体 在打开一个窗体时，Microsoft Access将从一个或多个表中检索数据，并使 用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在 屏幕上。如果要分析数据或将数据以特定的方式打印出来，请

7、创建一个报表。例如,可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各 种数据格式的打印邮件标签的报表。第二章系统设计2.1系统分析本排课管理系统主要由以下几大模块构成.一. 教职员入库信息.二. 排课管理三. 教职员带课查询四. 本学期课程设置五. 打印课程表六. 打印教师代课表2.2系统流程和操作方式设计第三章系统界面设计3.1系统界面设计1.登陆界面代码分析：Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click()set the global var to falseto de

8、note a failed loginLoginSucceeded = FalseUnload fmStartEnd SubPrivate Sub cmdOK_Click()check for correct passwordIf txtPassword = password Thenplace code to here to pass thesuccess to the calling subsetting a global var is the easiestLoginSucceeded = TrueMe.HidefmStart.ShowElseMsgBox Invalid Passwor

9、d, try again!, , LogintxtPassword.SetFocusSendKeys Home+EndEnd IfEnd SubPrivate Sub Form_Load()Load fmStartfmStart.HideEnd Sub2.教职员入库信息界面：3.排课管理界面4.教职员带课查询界面设计:5.本学期课程设置 界面设计：6.打印课程表 界面设计：代码设计：临时课表Dim ctCon As ADODB.ConnectionDim ctrs As ADODB.RecordsetclassArray表Dim cacon As ADODB.ConnectionDim car

10、s As ADODB.RecordsetDim sqlStr As StringDim ClassCode As StringDim wStr(5) As StringPrivate Sub clearStr() Fori = 1 To 5 wStr(i) = Next iEnd SubPrivate Sub Update_ct()删除所有以前柄记录ctCon.Execute (delete * from tempCT)更新表sqlStr = select * from classArray where cclasscode= & ClassCode & ” & ord

11、er by iTimeNcacon.Execute sqlStrcars.Open sqlStr, cacon, adOpenStatic, adLockOptimistic cars.MoveFirst Dim i As Integer i = 1clearStrWhile (Not cars.EOF) While cars!iTimeN i添加一条课程记录strSql = insert into tempCT values( & i & , + ” + wStr(1) + , + + wStr(2) + ,+ + wStr(3) + , + + wStr(4) + , +

12、+ wStr(5) + )ctCon.Execute strSql clearStr i = i + 1 Wend wStr(cars!iTimeW) = cars!csjname cars.MoveNextWend添加一条课程记录strSql = insert into tempCT values( & i & , + ” + wStr(1) + , + ” + wStr(2) + , + + wStr(3) + , + + wStr(4) + , + + wStr(5) + )ctCon.Execute strSql clearStr While i 10添加一条课程记录s

13、trSql = insert into tempCT values( & i & , + ” + wStr(1) + , + ” + wStr(2) + ,+ + wStr(3) + , + + wStr(4) + , + + wStr(5) + ) ctCon.Execute strSql i = i + 1WendEnd SubPrivate Sub Command1_Click()ClassCode = Trim(gradeCombox.Text) & . & Trim(classCombox.Text)Call Update_ctUnload Mecla

14、ssRep.ShowEnd SubPrivate Sub Form_Load()For i = 1 To 12gradeCombox.AddItem (i)Next iFor i = 1 To 20classCombox.AddItem (i)Next iSet cacon = New ADODB.ConnectionSet cars = New ADODB.Recordsetcacon.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & dataUse.mdbSet ctCon = New ADOD

15、B.ConnectionSet ctrs = New ADODB.RecordsetctCon.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & dataUse.mdbEnd SubPrivate Sub Form_Unload(Cancel As Integer)cars.Closecacon.CloseSet cars = NothingSet cacon = NothingctCon.CloseSet ctrs = NothingSet ctCon = NothingEnd Sub7.打印教师

16、代课表 界面设计：口回区请选择教师姓名打印教师代课报表代码设计：临时教师代课表Dim ttCon As ADODB.ConnectionDim ttrs As ADODB.RecordsettrClass表Dim trcon As ADODB.ConnectionDim trrs As ADODB.RecordsetDim sqlStr As StringDim trname As StringDim wStr(5) As StringDim clStr(5) As StringPrivate Sub clearStr() For i=1To5wStr(i)=clStr(i)= Next iE

17、nd SubPrivate Sub Update_tt()ttCon.Execute delete * from tempTTstrSql=selecttrclass.cclasscode,trclass.csubject,classarray.itimew,classarray.itimen + _ from teacher,trclass,classarray + _ where teacher.ctrname=trclass.cteacher and trclass.cclasscode=classarray.cclasscode + _ andtrclass.csubject=clas

18、sarray.csjname and teacher.ctrname= + + trname + _ + order by iTimeNtrcon.Execute strSqltrrs.Open strSql, trcon, adOpenStatic, adLockOptimistic trrs.MoveFirstDim i As Integer i = 1 clearStrWhile Not trrs.EOFWhile trrs!iTimeN istrSql = insert into tempTT values( & i & , + ” + wStr(1) + , + +

19、wStr(2) + ,+ + wStr(3) + , + + wStr(4) + , + + wStr(5) + _,+ clStr(1) + , + + clStr(2) + , + + clStr(3) + , + ”+ clStr + , + ” + clStr + )ttCon.Execute strSql clearStr i = i + 1WendwStr(trrs!iTimeW) = trrs!csubject clStr(trrs!iTimeW) = trrs!cClassCode trrs.MoveNextWendstrSql = insert into tempTT val

20、ues( & i & , + ” + wStr(1) + , + ” + wStr(2) + , + + wStr(3) + , + + wStr(4) + , + + wStr(5) + _,+ clStr(1) + , + + clStr(2) + , + + clStr(3) + , + ”+ clStr + , + ” + clStr + ) ttCon.Execute strSql clearStr While i 10i = i + 1strSql = insert into tempTT values( & i & , + ” + wStr(1)

21、+ , + ” + wStr(2) + ,+ + wStr(3) + , + + wStr(4) + , + + wStr(5) + _,+ clStr(1) + , + + clStr(2) + , + + clStr(3) + , + ”+ clStr + , + ” + clStr + ) ttCon.Execute strSqlWendEnd SubPrivate Sub Command1_Click()trname = Trim(teacherCombox.Text) Call Update_tt Unload MeTrRep.ShowEnd SubPrivate Sub Form_

22、Load()Set ttCon = New ADODB.ConnectionSet ttrs = New ADODB.RecordsetttCon.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & dataUse.mdbSet trcon = New ADODB.ConnectionSet trrs = New ADODB.Recordsettrcon.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & d

23、ataUse.mdb End SubPrivate Sub Form_Unload(Cancel As Integer)ttrs.ClosettCon.CloseSet ttrs = NothingSet ttCon = Nothingtrcon.CloseSet trrs = NothingSet trcon = NothingEnd Sub第四章数据库的设计4.1数据库设计1.classarray信息表字段名称数据类型文本iTimeW数字iTinaB数字文本2.teacher表:字段名称数据类型TrPfitails3.tempct表:J宜土奖=适字段名称数据类型wl戒w3文本吊5文本4.班

24、级表:数据类型4.2数据库概念和发展关系数据库是目前各类数据库中最重要、最流行的数据库，他应用数学方法来处理数据库数据，是目前使用最广泛的数据库系统。20世纪70年代以后开发的数据库管理系统产品几乎都是基丁关系的。在数据库发展的历史上， 最重要的成就就是关系模型。关系数据库系统与非关系数据库系统的区别是：关系系统只有“表“这一种数据结构；而非关系数据库系统还有其他数据结构，对这些数据结构有其 他的操作。结构化查询语言SQL (Structured Query Language)是一种介丁关系代数与关系演算之间的语言，其功能包括查询、操纵、定义和控制四个方面，是一个通用的、功能极强的关系数据库语言。目前已成为关系数据库的标准语言4.3系统测试与评价测试在软件开发过程中一直都是备受关注的， 即使在传统的软件工程中，也有一 个明确、独立的测试阶段。随着软件危机的频频出现以及人们对于软件本质的进 一步认识，测试的地位得到了前所未有的提高。测试已经不仅仅局限于软件开发 中的一个阶段，它已经开始贯穿于整个软件开发过程， 人们已经开始认识到：测 试开始的时间越早，测试执行的越cSubj-ectcTeachercCLassCode频繁，所带来的整个软件开发成本的下降就会 越多。Extreme Programming更是把测试推到了极限的位置，一切软件开发