排课管理系统Word格式.docx

1、管理信息系统的创新工作既不能妄自菲薄，更不能夜郎自大。要抓住当前网络经济兴起的有利时机，以实现我国信息技术和信息产业的跨越式发展，更好地发挥信息产业对国民经济增长的拉动作用。开发学校排课管理系统的过程就是要实现数据处理方式由人工管理向计算机管理的转变，它在计算机技术和教师管理实践活动两者之间架设桥梁。关键字:排课管理,管理信息系统,数据库,计算机管理第一章 引言1.1背景1.1.1排课管理系统 如今随着教育事业的发展,学校对教师课程安排的复杂度的增加,一个单位,各个学科每天的课程安排以及教室资源的分配,排课工资等信息量将迅速的增加,传统的手工的处理方式已经跟不上信息爆炸般的扩增.所以开发一种可

2、靠,高效的教师排课管理系统是很有必要的.1.2 开发排课管理系统的目的与原则排课管理系统的主要目的是服务与中小学,各高校的管理者,方便其管理本校排课信息的软件系统.其原则是做到,界面友好人性,操作简单,可靠.1.3开发环境介绍1.3.1开发平台 本教师管理系统的开发平台为微软windows xp visual basic 6.0 以及微软的Access作为操作数据库.1.3.2 数据库设计工具ACCESS数据库管理系统MicrosoftAccess介绍:使用Access，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可

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

4、窗体显示在屏幕上。 如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。第二章 系统设计2.1系统分析本排课管理系统主要由以下几大模块构成.一. 教职员入库信息.二. 排课管理三. 教职员带课查询四. 本学期课程设置五. 打印课程表六. 打印教师代课表2.2 系统流程和操作方式设计第三章 系统界面设计3.1系统界面设计1.登陆界面代码分析:Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Clic

5、k（） set the global var to falseto denote a failed login LoginSucceeded = False Unload fmStartEnd SubPrivate Sub cmdOK_Click（）check for correct password If txtPassword = password Thenplace code to here to pass thesuccess to the calling subsetting a global var is the easiest LoginSucceeded = True Me.H

6、ide fmStart.Show Else MsgBox Invalid Password, try again!, , Login txtPassword.SetFocus SendKeys Home+End End IfPrivate Sub Form_Load（） Load fmStart fmStart.Hide2. 教职员入库信息界面:Dim con As ADODB.ConnectionDim rs As ADODB.RecordsetDim qrs As ADODB.RecordsetDim slSql As StringDim i, j As IntegerDim strBak

7、（2） As StringDim sqlStr As StringPrivate Sub Command1_Click（Index As Integer）On Error GoTo Err:Dim cn As IntegerFor cn = 0 To 2 Text1（cn）.Text = Next cnIf 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

8、: rs.MoveNext Command1（0）.Enabled = True Command1（1）.Enabled = True Case 3: rs.MoveLast End Select displayInfoEnd IfGoTo ok:Err:Call dataOverok:Private Sub dataOver（）If rs.BOF Then Command1（0）.Enabled = False Command1（1）.Enabled = FalseElse If rs.EOF Then Command1（2）.Enabled = False Command1（3）.Enab

9、led = FalseDatabase Error, vbExclamation + vbOKOnly, Error unknownPrivate Sub Command2_Click（Index As Integer）On Error GoTo errDealIf Index = 0 Or Index = 2 Then CanSave （True） CanSave （False）Select Case IndexCase 0: rs.AddNew Call toNullCase 1: j = MsgBox（你确定要删除本记录吗？, vbYesNo + vbQuestion, 删除） If j

10、 = vbYes Then rs.DeleteCase 2:rs.Deleters.AddNewCase 3: If Len（LTrim$（RTrim$（Text1（0）.Text） For i = 0 To 2 If Len（LTrim$（RTrim$（Text1（i）.Text） rs.Fields（i） = Text1（i）.Text Next i rs.Update姓名不得为空, vbOKOnly + vbExclamation, ErrorCase 4: Text1（i）.Text = strBak（i） Call Command2_Click（3）End SelectExit Su

11、berrDeal:MsgBox database ErrorerrorokEnd:Private Sub CanSave（ok As Boolean）Frame1.Enabled = Not okFrame3.Enabled = ok For i = 0 To 4 If i Text1（i）.Text = rs.Fields（i） strBak（i） = Text1（i）.TextPrivate Sub toNull（） Text1（i）.Text = strBak（i） = Private Sub Form_Unload（Cancel As Integer）On Error GoTo KKr

12、s.CloseSet rs = Nothingqrs.CloseSet qrs = notingcon.CloseSet con = NothingKK: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 If Len（qrs.Fields（i） Text1（i）.Text = qrs.Fields（i） qrs.Close3

13、. 排课管理界面Dim conn As ADODB.ConnectionDim rsTr As ADODB.RecordsetDim rsSj As ADODB.RecordsetDim i, j, sjCnt As IntegerDim ClassCode As StringDim TrChanged, ClassChanged As BooleanDim strSql As StringDim rsTrAry As ADODB.RecordsetDim rsClassAry As ADODB.RecordsetDim StrTr（9） As StringDim strSj（49） As S

14、tringDim minht, maxHt As IntegerPrivate Sub EnableSave（ok As Boolean）Dim k As IntegerFor k = 0 To 3 If k 0 And Len（ClassCode） 1 Then Call displayInfo cb（1）.Enabled = True cb_Click （0） EnableSave （True） cb（1）.Enabled = False If TrChanged Then strSql = delete * from trclass where cclasscode= ClassCode

15、 & conn.Execute strSql Dim strTrName As String For i = 0 To sjCnt - 1 strTrName = Trim（Combo2（i）.Text） If Len（strTrName） insert into trclass values（ , + + Trim（Label2（i）.Caption） + + Trim（Combo2（i）.Text） + ）me.caption = strSql TrChanged = False rsTrAry.Requery If ClassChanged Then conn.Execute delet

16、e * from classarray where cclasscode= Dim X, Y As Integer For i = 0 To 49 Y = i Mod 5 + 1 X = Int（i / 5） + 1 If Len（Trim（Combo3（i）.Text） insert into classarray values（ Y &, X &, Trim（Combo3（i）.Text） &） ClassChanged = False rsClassAry.Requery EnableSave （False） Combo2（i）.Text = Combo2（i）.Tag Combo3（i

17、）.Text = Combo3（i）.TagGoTo okError UnknownMe.MousePointer = 0For j = 0 To sjCnt - 1select cteacher from trclass where cclasscode= and csubject= Trim（Label2（j）.Caption） &Text1.Text = strSql Set rsTrAry = conn.Execute（strSql）Dim tpRs As ADODB.RecordsetSet tpRs = conn.Execute（Text1.Text = # strSql &Whi

18、le Not tpRs.EOF Text1.Text = Text1.Text + tpRs.Fields（0） tpRs.MoveNextWend这里用另一种方法创建 recordsetrsTrAry. If Not rsTrAry.EOF ThenrsTrAry.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）这里语句可能出错Next jFor i = 0 To 49 X = Int（i / 5 + 1）select csjname from classarray where cclasscode= and itimew= and itimen= X rsClassAry.Open strSql, conn, adOpenStatic, adLockOptimistic Set rsClassAry = conn.Execute（strSql） If Not rsClassAry.EOF Then Combo3（i）.Text = rsClassAr