排课管理系统.docx
- 文档编号:942841
- 上传时间:2022-10-14
- 格式:DOCX
- 页数:43
- 大小:153.03KB
排课管理系统.docx
《排课管理系统.docx》由会员分享,可在线阅读,更多相关《排课管理系统.docx(43页珍藏版)》请在冰豆网上搜索。
排课管理系统
毕业设计
<<排课管理系统>>
院系______
专业______
班级______
姓名______
日期年月 日
摘 要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开发平台
本教师管理系统的开发平台为微软windowsxp visual basic6.0以及微软的Access作为操作数据库.
1.3.2数据库设计工具——ACCESS数据库管理系统
Microsoft Access介绍:
使用 Microsoft Access,可以在单一的数据库文件中管理所有的信息。
在这个文件中,用户可以将自己的数据分别保存在各自独立的存储空间中,这些空间称作表;可以使用联机窗体来查看、添加及更新表中的数据;使用查询来查找并检索所要的数据;也可以使用报表以特定的版面布置来分析及打印数据。
ﻫ 如果要保存数据,请为每一种类型的信息创建一个表。
如果要从查询、窗体或报表中的多个表中将数据合并在一起,就要定义各个表之间的关系。
如果要搜索并检索符合指定条件的数据,包括来自多个表中的数据,就要创建查询。
查询的同时也可以更新或删除多条记录,并对数据执行内嵌或自定义的计算。
如果要简单地直接在某个表中查看、输入及更改数据,请创建一个窗体。
在打开一个窗体时,Microsoft Access 将从一个或多个表中检索数据,并使用用户在“窗体向导”选择的版面布局或所创建的版面布局,将窗体显示在屏幕上。
如果要分析数据或将数据以特定的方式打印出来,请创建一个报表。
例如,可以打印一份将数据分组并计算数据总和的报表,也可以打印另一份带有各种数据格式的打印邮件标签的报表。
第二章系统设计
2.1系统分析
本排课管理系统主要由以下几大模块构成.
一.教职员入库信息.
二.排课管理
三.教职员带课查询
四.本学期课程设置
五.打印课程表
六.打印教师代课表
2.2系统流程和操作方式设计
第三章系统界面设计
3.1系统界面设计
1.登陆界面
代码分析:
OptionExplicit
PublicLoginSucceededAs Boolean
PrivateSubcmdCancel_Click()
'settheglobalvar tofalse
'todenoteafailed login
LoginSucceeded =False
UnloadfmStart
EndSub
PrivateSubcmdOK_Click()
'check for correct password
IftxtPassword ="password"Then
'place code tohere topassthe
'successtothecallingsub
'settinga globalvaristheeasiest
LoginSucceeded=True
Me.Hide
fmStart.Show
Else
MsgBox "Invalid Password, tryagain!
", ,"Login"
txtPassword.SetFocus
SendKeys"{Home}+{End}"
EndIf
End Sub
PrivateSubForm_Load()
LoadfmStart
fmStart.Hide
EndSub
2.教职员入库信息界面:
代码分析:
DimconAs ADODB.Connection
DimrsAsADODB.Recordset
Dim qrsAsADODB.Recordset
DimslSqlAs String
Dimi,jAsInteger
DimstrBak
(2)AsString
Dim sqlStrAsString
PrivateSubCommand1_Click(IndexAs Integer)
On Error GoToErr:
Dimcn AsInteger
Forcn= 0To2
Text1(cn).Text=""
Nextcn
Ifrs.RecordCount>0Then
SelectCaseIndex
Case0:
rs.MoveFirst
Case1:
rs.MovePrevious
Command1
(2).Enabled= True
Command1(3).Enabled=True
Case2:
rs.MoveNext
Command1(0).Enabled=True
Command1(1).Enabled=True
Case3:
rs.MoveLast
End Select
displayInfo
EndIf
GoTo ok:
Err:
CalldataOver
ok:
End Sub
PrivateSubdataOver()
Ifrs.BOFThen
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"DatabaseError", vbExclamation+vbOKOnly,"Errorunknown"
EndIf
EndIf
EndSub
Private SubCommand2_Click(IndexAsInteger)
OnErrorGoTo errDeal
IfIndex=0OrIndex=2Then
CanSave (True)
Else
CanSave(False)
EndIf
SelectCaseIndex
Case0:
rs.AddNew
CalltoNull
Case 1:
j=MsgBox("你确定要删除本记录吗?
",vbYesNo+vbQuestion,"删除")
Ifj=vbYes Then
rs.Delete
CalltoNull
EndIf
Case 2:
rs.Delete
rs.AddNew
Case3:
If Len(LTrim$(RTrim$(Text1(0).Text)))> 0Then
'rs.AddNew
Fori=0To2
IfLen(LTrim$(RTrim$(Text1(i).Text)))>0Then
rs.Fields(i)= Text1(i).Text
EndIf
Nexti
rs.Update
Else
MsgBox"姓名不得为空",vbOKOnly+vbExclamation,"Error"
EndIf
Case 4:
For i=0 To2
Text1(i).Text=strBak(i)
Nexti
Call Command2_Click(3)
EndSelect
ExitSub
errDeal:
MsgBox"database Error",vbExclamation+vbOKOnly,"error"
'okEnd:
EndSub
Private Sub CanSave(okAsBoolean)
Frame1.Enable
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 管理 系统