排课管理系统Word格式.docx
《排课管理系统Word格式.docx》由会员分享，可在线阅读，更多相关《排课管理系统Word格式.docx（40页珍藏版）》请在冰豆网上搜索。
管理信息系统的创新工作既不能妄自菲薄，更不能夜郎自大。
要抓住当前网络经济兴起的有利时机，以实现我国信息技术和信息产业的跨越式发展，更好地发挥信息产业对国民经济增长的拉动作用。
开发学校排课管理系统的过程就是要实现数据处理方式由人工管理向计算机管理的转变，它在计算机技术和教师管理实践活动两者之间架设桥梁。
关键字:
排课管理,管理信息系统,数据库,计算机管理
第一章引言
1.1背景
1.1.1排课管理系统
如今随着教育事业的发展,学校对教师课程安排的复杂度的增加,一个单位,各个学科每天的课程安排以及教室资源的分配,排课工资等信息量将迅速的增加,传统的手工的处理方式已经跟不上信息爆炸般的扩增.所以开发一种可靠,高效的教师排课管理系统是很有必要的.
1.2开发排课管理系统的目的与原则
排课管理系统的主要目的是服务与中小学,各高校的管理者,方便其管理本校排课信息的软件系统.其原则是做到,界面友好人性,操作简单,可靠.
1.3开发环境介绍
1.3.1开发平台
本教师管理系统的开发平台为微软windowsxpvisualbasic6.0以及微软的Access作为操作数据库.
1.3.2数据库设计工具——ACCESS数据库管理系统
Microsoft
Access介绍:
使用
Access，可以在单一的数据库文件中管理所有的信息。
在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；
可以使用联机窗体来查看、添加及更新表中的数据；
使用查询来查找并检索所要的数据；
也可以使用报表以特定的版面布置来分析及打印数据。
如果要保存数据，请为每一种类型的信息创建一个表。
如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。
如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。
查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。
如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。
在打开一个窗体时，Microsoft
Access
将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。
如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。
例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。
第二章系统设计
2.1系统分析
本排课管理系统主要由以下几大模块构成.
一.教职员入库信息.
二.排课管理
三.教职员带课查询
四.本学期课程设置
五.打印课程表
六.打印教师代课表
2.2系统流程和操作方式设计
第三章系统界面设计
3.1系统界面设计
1.登陆界面
代码分析:
OptionExplicit
PublicLoginSucceededAsBoolean
PrivateSubcmdCancel_Click（）
'
settheglobalvartofalse
todenoteafailedlogin
LoginSucceeded=False
UnloadfmStart
EndSub
PrivateSubcmdOK_Click（）
checkforcorrectpassword
IftxtPassword="
password"
Then
placecodetoheretopassthe
successtothecallingsub
settingaglobalvaristheeasiest
LoginSucceeded=True
Me.Hide
fmStart.Show
Else
MsgBox"
InvalidPassword,tryagain!
"
,"
Login"
txtPassword.SetFocus
SendKeys"
{Home}+{End}"
EndIf
PrivateSubForm_Load（）
LoadfmStart
fmStart.Hide
2.教职员入库信息界面:
DimconAsADODB.Connection
DimrsAsADODB.Recordset
DimqrsAsADODB.Recordset
DimslSqlAsString
Dimi,jAsInteger
DimstrBak
（2）AsString
DimsqlStrAsString
PrivateSubCommand1_Click（IndexAsInteger）
OnErrorGoToErr:
DimcnAsInteger
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
EndSelect
displayInfo
EndIf
GoTook:
Err:
CalldataOver
ok:
PrivateSubdataOver（）
Ifrs.BOFThen
Command1（0）.Enabled=False
Command1
（1）.Enabled=False
Else
Ifrs.EOFThen
Command1
（2）.Enabled=False
Command1（3）.Enabled=False
DatabaseError"
vbExclamation+vbOKOnly,"
Errorunknown"
PrivateSubCommand2_Click（IndexAsInteger）
OnErrorGoToerrDeal
IfIndex=0OrIndex=2Then
CanSave（True）
CanSave（False）
SelectCaseIndex
Case0:
rs.AddNew
CalltoNull
Case1:
j=MsgBox（"
你确定要删除本记录吗？
vbYesNo+vbQuestion,"
删除"
）
Ifj=vbYesThen
rs.Delete
Case2:
rs.Delete
rs.AddNew
Case3:
IfLen（LTrim$（RTrim$（Text1（0）.Text）））>
Fori=0To2
IfLen（LTrim$（RTrim$（Text1（i）.Text）））>
rs.Fields（i）=Text1（i）.Text
Nexti
rs.Update
姓名不得为空"
vbOKOnly+vbExclamation,"
Error"
Case4:
Text1（i）.Text=strBak（i）
CallCommand2_Click（3）
EndSelect
ExitSub
errDeal:
MsgBox"
databaseError"
error"
'
okEnd:
PrivateSubCanSave（okAsBoolean）
Frame1.Enabled=Notok
Frame3.Enabled=ok
Fori=0To4
Ifi<
3Then
Command2（i）.Enabled=Notok
Command2（i）.Enabled=ok
DimcntAsInteger
Setcon=NewADODB.Connection
Setrs=NewADODB.Recordset
Setqrs=NewADODB.Recordset
Provider=Microsoft.Jet.OLEDB.3.51;
PersistSecurityInfo=False;
DataSource=C:
\WINDOWS\Desktop\dataUse.mdb"
con.Open"
provider=Microsoft.Jet.OLEDB.4.0;
datasource="
&
App.Path&
"
\dataUse.mdb"
rs.Open"
select*fromteacher"
con,adOpenStatic,adLockOptimistic
newdata
CallCommand2_Click（0）
PrivateSubdisplayInfo（）
i=j=0
Text1（i）.Text="
IfLen（rs.Fields（i））>
Text1（i）.Text=rs.Fields（i）
strBak（i）=Text1（i）.Text
PrivateSubtoNull（）
Text1（i）.Text="
strBak（i）="
PrivateSubForm_Unload（CancelAsInteger）
OnErrorGoToKK
rs.Close
Setrs=Nothing
qrs.Close
Setqrs=noting
con.Close
Setcon=Nothing
KK:
PrivateSubqueryComm_Click（）
slSql="
select*fromTeacherwherecTrname='
+Text1（3）.Text+"
qrs.OpenslSql,con,adOpenStatic
IfNotqrs.EOFThen
qrs.MoveFirst
IfLen（qrs.Fields（i））>
Text1（i）.Text=qrs.Fields（i）
qrs.Close
3.排课管理界面
DimconnAsADODB.Connection
DimrsTrAsADODB.Recordset
DimrsSjAsADODB.Recordset
Dimi,j,sjCntAsInteger
DimClassCodeAsString
DimTrChanged,ClassChangedAsBoolean
DimstrSqlAsString
DimrsTrAryAsADODB.Recordset
DimrsClassAryAsADODB.Recordset
DimStrTr（9）AsString
DimstrSj（49）AsString
Dimminht,maxHtAsInteger
PrivateSubEnableSave（okAsBoolean）
DimkAsInteger
Fork=0To3
Ifk<
2Then
cb（k）.Enabled=Notok
cb（k）.Enabled=ok
Nextk
Frame7.Enabled=Notok
Frame2.Enabled=ok
PrivateSubcb_Click（IndexAsInteger）
Me.MousePointer=11
ClassCode=Trim（Combo1（0）.Text）&
."
Trim（Combo1
（1）.Text）
IfLen（Trim（Combo1（0）.Text））>
0AndLen（ClassCode）>
1Then
CalldisplayInfo
cb
（1）.Enabled=True
cb_Click（0）
EnableSave（True）
cb
（1）.Enabled=False
IfTrChangedThen
strSql="
delete*fromtrclasswherecclasscode='
ClassCode&
conn.ExecutestrSql
DimstrTrNameAsString
Fori=0TosjCnt-1
strTrName=Trim（Combo2（i）.Text）
IfLen（strTrName）>
insertintotrclassvalues（'
"
+"
+Trim（Label2（i）.Caption）+"
+Trim（Combo2（i）.Text）+"
）"
me.caption=strSql
TrChanged=False
rsTrAry.Requery
IfClassChangedThen
conn.Execute"
delete*fromclassarraywherecclasscode='
DimX,YAsInteger
Fori=0To49
Y=iMod5+1
X=Int（i/5）+1
IfLen（Trim（Combo3（i）.Text））>
insertintoclassarrayvalues（'
Y&
"
X&
'
Trim（Combo3（i）.Text）&
）"
ClassChanged=False
rsClassAry.Requery
EnableSave（False）
Combo2（i）.Text=Combo2（i）.Tag
Combo3（i）.Text=Combo3（i）.Tag
GoTook
ErrorUnknown"
Me.MousePointer=0
Forj=0TosjCnt-1
selectcteacherfromtrclasswherecclasscode='
andcsubject='
Trim（Label2（j）.Caption）&
Text1.Text=strSql
SetrsTrAry=conn.Execute（strSql）
DimtpRsAsADODB.Recordset
SettpRs=conn.Execute（"
Text1.Text="
####"
strSql&
WhileNottpRs.EOF
Text1.Text=Text1.Text+tpRs.Fields（0）
tpRs.MoveNext
Wend
这里用另一种方法创建recordset
rsTrAry.
IfNotrsTrAry.EOFThen
rsTrAry.MoveFirst
Combo2（j）.Text=rsTrAry.Fields（0）'
rsTrAry!
cteacher
Combo2（j）.Tag=rsTrAry.Fields（0）'
rsTrAry!
EnableSave（False）
nodata"
vbOKOnly
Combo2（j）.Text="
Combo2（j）.Tag="
EnableSave（True）
这里语句可能出错
Nextj
Fori=0To49
X=Int（i/5+1）
selectcsjnamefromclassarraywherecclasscode='
anditimew="
anditimen="
X
rsClassAry.OpenstrSql,conn,adOpenStatic,adLockOptimistic
SetrsClassAry=conn.Execute（strSql）
IfNotrsClassAry.EOFThen
Combo3（i）.Text=rsClassAr
升级会员 