毕业设计<<排课管理系统>>院系______专业______班级______姓名______日期年月日目录摘要IABSTRACT II第一章引言 11.1 背景 11.1.1教师管理系统 11.2开发教师管理系统的目的和原则 31.3开发环境介绍31.3.1 开发平台 41.3.2数据库设计工具——ACCESS数据库管理系统7 第二章系统设计92.1 系统分析 92.2 系统流程和操作方式设计 11第三章系统界面设计 123.1系统界面设计以及代码分析12第四章数据库的设计304.1数据库设计304.2 数据库概念和发展 304.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数据库设计工具——ACCESS数据库管理系统Microsoft Access介绍:使用Microsoft Access，可以在单一的数据库文件中管理所有的信息。

在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。

如果要保存数据，请为每一种类型的信息创建一个表。

如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。

如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。

查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。

如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。

在打开一个窗体时，Microsoft Access 将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。

如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。

例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。

第二章系统设计2.1系统分析本排课管理系统主要由以下几大模块构成.一. 教职员入库信息.二. 排课管理三. 教职员带课查询四. 本学期课程设置五. 打印课程表六. 打印教师代课表2.2 系统流程和操作方式设计第三章系统界面设计3.1系统界面设计1.登陆界面代码分析:Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click()系统登陆主界教职员工入库信排课管理教职员工带课查本学期课程安排打印课程表打印教师带课表'set the global var to false'to denote a failed loginLoginSucceeded = FalseUnload fmStartEnd SubPrivate Sub cmdOK_Click()'check for correct passwordIf txtPassword = "password" Then'place code to here to pass the'success to the calling sub'setting a global var is the easiestLoginSucceeded = TrueMe.HidefmStart.ShowElseMsgBox "Invalid Password, try again!", , "Login"txtPassword.SetFocusSendKeys "{Home}+{End}"End IfEnd SubPrivate Sub Form_Load()Load fmStartfmStart.HideEnd Sub2.教职员入库信息界面:代码分析:Dim con As ADODB.ConnectionDim rs As ADODB.RecordsetDim qrs As ADODB.RecordsetDim slSql As StringDim i, j As IntegerDim strBak(2) As StringDim sqlStr As StringPrivate Sub Command1_Click(Index As Integer) On Error GoTo Err:Dim cn As IntegerFor cn = 0 To 2Text1(cn).Text = ""Next cnIf rs.RecordCount > 0 ThenSelect Case IndexCase 0:rs.MoveFirstCase 1:rs.MovePreviousCommand1(2).Enabled = True Command1(3).Enabled = TrueCase 2:rs.MoveNextCommand1(0).Enabled = True Command1(1).Enabled = TrueCase 3:rs.MoveLastEnd SelectdisplayInfoEnd IfGoTo ok:Err:Call dataOverok:End SubPrivate Sub dataOver()If rs.BOF ThenCommand1(0).Enabled = FalseCommand1(1).Enabled = FalseCommand1(2).Enabled = TrueCommand1(3).Enabled = Truers.MoveFirstElseIf rs.EOF Thenrs.MoveLastCommand1(0).Enabled = TrueCommand1(1).Enabled = True Command1(2).Enabled = FalseCommand1(3).Enabled = FalseElseMsgBox "Database Error", vbExclamation + vbOKOnly, "Error unknown"End IfEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer)On Error GoTo errDealIf Index = 0 Or Index = 2 ThenCanSave (True)ElseCanSave (False)End IfSelect Case IndexCase 0:rs.AddNewCall toNullCase 1:j = MsgBox("你确定要删除本记录吗？", vbYesNo + vbQuestion, "删除")If j = vbYes Thenrs.DeleteCall toNullEnd IfCase 2:rs.Deleters.AddNewCase 3:If Len(LTrim$(RTrim$(Text1(0).Text))) > 0 Then'rs.AddNewFor i = 0 To 2If Len(LTrim$(RTrim$(Text1(i).Text))) > 0 Thenrs.Fields(i) = Text1(i).TextEnd IfNext irs.UpdateElseMsgBox "姓名不得为空", vbOKOnly + vbExclamation, "Error"End IfCase 4:For i = 0 To 2Text1(i).Text = strBak(i)Next iCall Command2_Click(3)End SelectExit SuberrDeal:MsgBox "database Error", vbExclamation + vbOKOnly, "error"'okEnd:End SubPrivate Sub CanSave(ok As Boolean)Frame1.Enabled = Not okFrame3.Enabled = okFor i = 0 To 4If i < 3 ThenCommand2(i).Enabled = Not okElseCommand2(i).Enabled = okEnd IfNext iEnd SubPrivate Sub Form_Load()Dim cnt As IntegerSet con = New ADODB.ConnectionSet rs = New ADODB.RecordsetSet qrs = New ADODB.Recordset'"Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\WINDOWS\Desktop\dataUse.mdb"con.Open "provider=Microsoft.Jet.OLEDB.4.0; data source= " & App.Path & "\dataUse.mdb"rs.Open "select * from teacher", con, adOpenStatic, adLockOptimisticIf rs.RecordCount > 0 Thenrs.MoveFirstdisplayInfoCanSave (False)Else'new dataCanSave (True)Call Command2_Click(0)End IfEnd SubPrivate Sub displayInfo()i = j = 0For i = 0 To 2'Text1(i).Text = ""If Len(rs.Fields(i)) > 0 ThenText1(i).Text = rs.Fields(i)strBak(i) = Text1(i).TextEnd IfNext iEnd SubPrivate Sub toNull()For i = 0 To 2Text1(i).Text = ""strBak(i) = ""Next iEnd SubPrivate Sub Form_Unload(Cancel As Integer) On Error GoTo KKrs.CloseSet rs = Nothingqrs.CloseSet qrs = notingcon.CloseSet con = NothingKK:End SubPrivate Sub queryComm_Click()slSql = "select * from Teacher where cTrname = '" + Text1(3).Text + "'"qrs.Open slSql, con, adOpenStaticIf Not qrs.EOF Thenqrs.MoveFirsti = j = 0For i = 0 To 2'Text1(i).Text = ""If Len(qrs.Fields(i)) > 0 ThenText1(i).Text = qrs.Fields(i)strBak(i) = Text1(i).TextEnd IfNext iEnd Ifqrs.CloseEnd Sub3. 排课管理界面代码分析:Option ExplicitDim 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 StringDim minht, maxHt As IntegerPrivate Sub EnableSave(ok As Boolean)Dim k As IntegerFor k = 0 To 3If k < 2 Thencb(k).Enabled = Not okElsecb(k).Enabled = okEnd IfNext kFrame7.Enabled = Not okFrame2.Enabled = okFrame3.Enabled = okEnd SubPrivate Sub cb_Click(Index As Integer)Me.MousePointer = 11On Error GoTo errDealSelect Case IndexCase 0:ClassCode = Trim(Combo1(0).Text) & "." & Trim(Combo1(1).Text) If Len(Trim(Combo1(0).Text)) > 0 And Len(ClassCode) > 1 Then Call displayInfocb(1).Enabled = TrueEnd IfCase 1:cb_Click (0)EnableSave (True)cb(1).Enabled = FalseCase 2:If TrChanged ThenstrSql = "delete * from trclass where cclasscode='" & ClassCode & "'"conn.Execute strSqlDim strTrName As StringFor i = 0 To sjCnt - 1strTrName = Trim(Combo2(i).Text)If Len(strTrName) > 0 ThenstrSql = "insert into trclass values('" & ClassCode & "' ," + "'" + Trim(Label2(i).Caption) + "' ," + "'" + Trim(Combo2(i).Text) + "' )"'me.caption = strSqlconn.Execute strSqlEnd IfNext iTrChanged = FalsersTrAry.Requerycb(1).Enabled = FalseEnd IfIf ClassChanged Thenconn.Execute "delete * from classarray where cclasscode='" & ClassCode & "'"Dim X, Y As IntegerFor i = 0 To 49Y = i Mod 5 + 1X = Int(i / 5) + 1If Len(Trim(Combo3(i).Text)) > 0 ThenstrSql = "insert into classarray values('" & ClassCode & "' ," & Y & "," & X & ", '" & Trim(Combo3(i).Text) & "')"'me.caption = strSqlconn.Execute strSqlEnd IfNext iClassChanged = FalsersClassAry.RequeryEnd IfEnableSave (False)Case 3:For i = 0 To sjCnt - 1Combo2(i).Text = Combo2(i).TagNext iFor i = 0 To 49Combo3(i).Text = Combo3(i).TagNext iEnableSave (False)cb(1).Enabled = FalseEnd SelectGoTo okerrDeal:MsgBox "Error Unknown"ok:Me.MousePointer = 0End SubPrivate Sub displayInfo()For j = 0 To sjCnt - 1strSql = "select cteacher from trclass where cclasscode='" & ClassCode & "' and csubject='" & Trim(Label2(j).Caption) & "'"'Text1.Text = strSql'me.caption = strSqlSet rsTrAry = conn.Execute(strSql)'Dim tpRs As ADODB.Recordset'Set tpRs = conn.Execute("select cteacher from trclass where cclasscode='" & ClassCode & "' and csubject='" & Trim(Label2(j).Caption) & "'")'Text1.Text = "####" & strSql & "####"'While Not tpRs.EOF' Text1.Text = Text1.Text + tpRs.Fields(0)' tpRs.MoveNext'Wend'这里用另一种方法创建 recordset'rsTrAry.If Not rsTrAry.EOF Then'rsTrAry.MoveFirstCombo2(j).Text = rsTrAry.Fields(0) 'rsTrAry!cteacherCombo2(j).Tag = rsTrAry.Fields(0) ' rsTrAry!cteacher'EnableSave (False)Else' MsgBox "nodata", vbOKOnlyCombo2(j).Text = ""Combo2(j).Tag = ""'EnableSave (True)'''''''''''''''''''''''''''这里语句可能出错End IfNext jFor i = 0 To 49Dim X, Y As IntegerX = Int(i / 5 + 1)Y = i Mod 5 + 1strSql = "select csjname from classarray where cclasscode='" & ClassCode & "' and itimew=" & Y & " and itimen=" & X'me.caption = strSql' rsClassAry.Open strSql, conn, adOpenStatic, adLockOptimistic Set rsClassAry = conn.Execute(strSql)If Not rsClassAry.EOF ThenCombo3(i).Text = rsClassAry.Fields(0)Combo3(i).Tag = rsClassAry.Fields(0)'EnableSave (False)ElseCombo3(i).Text = ""Combo3(i).Tag = ""'EnableSave (True)End IfNext iEnd SubPrivate Function Trim(str As String) As StringTrim = LTrim$(RTrim$(str))End FunctionPrivate Sub Combo2_Change(Index As Integer)TrChanged = TrueEnd SubPrivate Sub Combo3_Change(Index As Integer)ClassChanged = TrueEnd SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Me.MousePointer = 11Set conn = New ADODB.ConnectionSet rsTr = New ADODB.RecordsetSet rsSj = New ADODB.RecordsetSet rsTrAry = New ADODB.RecordsetSet rsClassAry = New ADODB.Recordset'"Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\WINDOWS\Desktop\dataUse.mdb"conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source= " & App.Path & "\dataUse.mdb"rsTr.Open "select * from teacher", conn, adOpenStatic, adLockOptimisticrsSj.Open "select * from subject", conn, adOpenStatic, adLockOptimisticminht = 4090maxHt = 9000sjCnt = rsSj.RecordCountCall comboInitEnableSave (False)cb(1).Enabled = False'Command1.Tag = "<<"Me.Height = minhtMe.MousePointer = 0End SubPrivate Sub comboInit()rsSj.MoveFirstDim trCnt As IntegertrCnt = rsTr.RecordCountrsTr.MoveFirstCombo1(0).Text = ""Combo1(1).Text = ""For i = 1 To 12Combo1(0).AddItem (i)Next iFor i = 1 To 20Combo1(1).AddItem (i)Next iFor i = 0 To 9Combo2(i).Text = ""If i < sjCnt ThenLabel2(i).Caption = rsSj!csjname rsSj.MoveNextElseLabel2(i).Visible = FalseCombo2(i).Visible = FalseEnd IfLabel3(i).Caption = i + 1Next iFor i = 0 To sjCnt - 1If i > 0 ThenFor j = 0 To trCnt - 1'the last modified here....................Combo2(i).List(j) = Combo2(0).List(j) Next jElsersTr.MoveFirstWhile Not rsTr.EOFCombo2(i).AddItem (rsTr.Fields(0))rsTr.MoveNextWendEnd IfNext iFor i = 0 To 49Combo3(i).Text = ""For j = 0 To sjCnt - 1Combo3(i).AddItem (Label2(j).Caption)Next jNext iEnd SubPrivate Sub Form_Resize()Frame3.Top = Me.Height - Frame3.Height - 520 End SubPrivate Sub Form_Unload(Cancel As Integer)On Error GoTo Err:rsTr.ClosersSj.ClosersTrAry.ClosersClassAry.CloseSet rsTr = NothingSet rsSj = NothingSet rsTrAry = NothingSet rsClassAry = Nothingconn.CloseSet conn = NothingErr:End SubPrivate Sub Timer1_Timer()If Command1.Caption = ">>" ThenIf Me.Height < maxHt ThenMe.Height = Me.Height + 150ElseTimer1.Enabled = FalseCommand1.Caption = "<<"Command1.ToolTipText = "收起课程表!"Me.Height = maxHtTimer2.Enabled = FalseCommand1.BackColor = RGB(255, 255, 255) Shape2.BackColor = RGB(0, 100, 200)End IfElseIf Me.Height > minht ThenMe.Height = Me.Height - 150ElseTimer1.Enabled = FalseCommand1.Caption = ">>"Command1.ToolTipText = "课程表在这里!"Me.Height = minhtTimer2.Enabled = TrueEnd IfEnd IfEnd SubPrivate Sub Timer2_Timer()Static r, g, b As Integer'r = 100'g = 50'b = 20Command1.BackColor = RGB(r, g, b)Shape2.BackColor = RGB(255 - r, 255 - g, 255 - b)r = r + 15g = g + 39b = b + 87If r > 255 Thenr = 0End IfIf g > 255 Theng = 0End IfIf b > 255 Thenb = 0End IfEnd Sub4. 教职员带课查询界面设计:代码分析:Option ExplicitDim conn As ADODB.Connection Dim rs As ADODB.RecordsetDim rsTr As ADODB.Recordset Dim i, j, value, idx As Integer Dim strName, strSql As StringPrivate Type DataGetclass As StringSjname As StringTw As IntegerTn As IntegerEnd TypePrivate Sub Command1_Click()On Error GoTo bnEndMe.MousePointer = 11Dim sSql As StringDim dgUse As DataGet'Select Case Index'Case 0:Call ClearCombostrName = LTrim$(RTrim$(Combo1.Text))If Len(strName) > 0 ThensSql = strSql & "'" & strName & "'"Set rs = conn.Execute(sSql)If Not rs.EOF ThenWhile Not rs.EOFdgUse.class = rs.Fields(0)dgUse.Sjname = rs.Fields(1)dgUse.Tw = rs.Fields(2)dgUse.Tn = rs.Fields(3)idx = (dgUse.Tn - 1) * 5 + dgUse.Tw - 1 Combo3(idx).Visible = TrueCombo3(idx).AddItem (dgUse.class & "班") Combo3(idx).AddItem (dgUse.Sjname)Combo3(idx).Text = Combo3(idx).List(value)rs.MoveNextWendElseMsgBox "没有得到相关数据，请检查", vbOKOnly + vbInformation, "数据捕捉"End IfDim lcnt As IntegerFor lcnt = 0 To 49If Combo3(lcnt).ListCount > 2 ThenCombo3(lcnt).BackColor = RGB(200, 255, 255)Combo3(lcnt).AddItem ("注意有重课")End IfNext lcntElseMsgBox "请输入或选择一教职员姓名", vbInformation+ vbOKOnly, "查询输入"End If'End SelectbnEnd:Me.MousePointer = 0End SubPrivate Sub ClearCombo()For i = 0 To 49Combo3(i).BackColor = RGB(255, 255, 255)Combo3(i).Text = ""Combo3(i).Visible = FalseCombo3(i).ClearNext iEnd SubPrivate Sub Form_Load()Me.MousePointer = 11On Error GoTo KKaSet conn = New ADODB.Connectionconn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source= " & App.Path & "\dataUse.mdb"Set rsTr = conn.Execute("select ctrname from teacher")For i = 0 To 9Label3(i).Caption = i + 1Next iWhile Not rsTr.EOFCombo1.AddItem (rsTr.Fields(0))rsTr.MoveNextWendCall ClearCombostrSql = "select lasscode,trclass.csubject,classarray.itimew,class array.itimen" + _" from teacher,trclass,classarray " + _"where teacher.ctrname=trclass.cteacher and lasscode=lasscode" + _" and trclass.csubject=classarray.csjname and teacher.ctrname="'selectlasscode,trclass.csubject,classarray.itimew,class array.itimen'From teacher, trclass, classarray'Where teacher.ctrname = trclass.cteacher And lasscode = lasscode'and trclass.csubject=classarray.csjname'and teacher.ctrname='陈''strSql = "select teacher.ctrname,lasscode,classarray.itimew,classa rray.itimen" + _" from teacher join trclass onteacher.ctrname=trclass.cteacher join classarray" + _ " on lasscode=classarray.classcode where teacher.ctrname="value = 0GoTo okKKa:MsgBox "Error Unknown"ok:Me.MousePointer = 0End SubPrivate Sub Form_Unload(Cancel As Integer)On Error GoTo KK:rs.ClosersTr.CloseSet rs = NothingSet rsTr = Nothingconn.CloseSet conn = NothingKK:End SubPrivate Sub Opn_Click(Index As Integer) value = IndexCall Command1_ClickEnd Sub5. 本学期课程设置界面设计:代码分析:Option ExplicitDim con As ADODB.ConnectionDim rs As ADODB.RecordsetDim str(9) As String'Dim strSql As StringPrivate Sub cn_Click(Index As Integer)'On Error GoTo ex:Dim lcnt As IntegerDim strTxt As StringSelect Case IndexCase 0:CanSave (True)Case 1:con.Execute ("delete * from subject")For lcnt = 0 To 9strTxt = Trim$(LTrim$(Txt(lcnt).Text)) If Len(strTxt) > 0 Thenrs.AddNewrs!csjname = strTxtrs.UpdateEnd IfNext lcntCanSave (False)Case 2:For lcnt = 0 To 9Txt(lcnt) = str(lcnt)Next lcntCanSave (False)End SelectExit Subex:MsgBox "database error", vbOKOnly + vbExclamation, "error" End SubPrivate Sub Form_Load()'strSql = "insert into subject values( '"Set con = New ADODB.ConnectionSet rs = New ADODB.RecordsetCall clearTxtCanSave (False)con.Open "provider=Microsoft.Jet.OLEDB.4.0; data source= " & App.Path & "\dataUse.mdb"rs.Open "select * from subject", con, adOpenStatic, adLockOptimisticCall displayInfoEnd SubPrivate Sub CanSave(bSave As Boolean)Frame1.Enabled = bSavecn(1).Enabled = bSavecn(2).Enabled = bSavecn(0).Enabled = Not bSaveEnd SubPrivate Sub displayInfo()rs.MoveFirstDim lcnt As Integerlcnt = 0While (Not rs.EOF And lcnt < 10)Txt(lcnt).Text = rs!csjname str(lcnt) = Txt(lcnt).Textlcnt = lcnt + 1rs.MoveNextWendEnd SubPrivate Sub clearTxt()Dim lcnt As IntegerFor lcnt = 0 To 9Txt(lcnt).Text = ""Next lcntEnd SubPrivate Sub Form_Unload(Cancel As Integer) rs.Closecon.CloseSet rs = NothingSet con = NothingEnd Sub6. 打印课程表界面设计:代码设计:临时课表Dim ctCon As ADODB.ConnectionDim ctrs As ADODB.Recordset'classArray表Dim cacon As ADODB.ConnectionDim cars As ADODB.RecordsetDim sqlStr As StringDim ClassCode As StringDim wStr(5) As StringPrivate Sub clearStr()For i = 1 To 5wStr(i) = " "Next iEnd SubPrivate Sub Update_ct()'删除所有以前的记录ctCon.Execute ("delete * from tempCT")'更新表sqlStr = "select * from classArray where cclasscode='" & ClassCode & "'" & " order by iTimeN"cacon.Execute sqlStrcars.Open sqlStr, cacon, adOpenStatic, adLockOptimisticcars.MoveFirstDim i As Integeri = 1clearStrWhile (Not cars.EOF)While cars!iTimeN <> i'添加一条课程记录strSql = "insert into tempCT values(" & i & " ," + "'" + wStr(1) + "' ," + "'" + wStr(2) + "' ," + "'" + wStr(3) + "' ," + "'" + wStr(4) + "' ," + "'" + wStr(5) + "' )"ctCon.Execute strSqlclearStri = i + 1WendwStr(cars!iTimeW) = cars!csjnamecars.MoveNextWend'添加一条课程记录strSql = "insert into tempCT values(" & i & " ," + "'" + wStr(1) + "' ," + "'" + wStr(2) + "' ," + "'" + wStr(3) + "' ," + "'" + wStr(4) + "' ," + "'" + wStr(5) + "' )"ctCon.Execute strSqlclearStrWhile i < 10'添加一条课程记录strSql = "insert into tempCT values(" & i & " ," + "'" + wStr(1) + "' ," + "'" + wStr(2) + "' ," + "'" + wStr(3) + "' ," + "'" + wStr(4) + "' ," + "'" + wStr(5) + "' )"ctCon.Execute strSqli = i + 1WendEnd SubPrivate Sub Command1_Click()ClassCode = Trim(gradeCombox.Text) & "." & Trim(classCombox.Text)Call Update_ctUnload MeclassRep.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.mdb"Set ctCon = New ADODB.ConnectionSet ctrs = New ADODB.RecordsetctCon.Open "provider=Microsoft.Jet.OLEDB.4.0; data source= " & App.Path & "\dataUse.mdb"End SubPrivate Sub Form_Unload(Cancel As Integer)cars.Closecacon.CloseSet cars = NothingSet cacon = NothingctCon.CloseSet ctrs = NothingSet ctCon = NothingEnd Sub7. 打印教师代课表界面设计:代码设计:'临时教师代课表Dim ttCon As ADODB.ConnectionDim ttrs As ADODB.Recordset'trClass表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 = 1 To 5wStr(i) = " "clStr(i) = " "Next iEnd SubPrivate Sub Update_tt()ttCon.Execute "delete * from tempTT"strSql = "select lasscode,trclass.csubject,classarray.itimew,classarray.itim en" + _" from teacher,trclass,classarray " + _"where teacher.ctrname=trclass.cteacher and lasscode=lasscode" + _" and trclass.csubject=classarray.csjname and teacher.ctrname=" + "'" + trname + "'" _+ " order by iTimeN"trcon.Execute strSqltrrs.Open strSql, trcon, adOpenStatic, adLockOptimistictrrs.MoveFirstDim i As Integeri = 1clearStrWhile Not trrs.EOFWhile trrs!iTimeN <> istrSql = "insert into tempTT values(" & i & " ," + "'" + wStr(1) + "' ," + "'" + wStr(2) + "' ," + "'" + wStr(3) + "' ," + "'" + wStr(4) + "' ," + "'" + wStr(5) + _"' ,'" + clStr(1) + "' ," + "'" + clStr(2) + "' ," + "'" + clStr(3) + "' ," + "'" + clStr(4) + "' ," + "'" + clStr(5) + "' )"ttCon.Execute strSqlclearStri = i + 1WendwStr(trrs!iTimeW) = trrs!csubjectclStr(trrs!iTimeW) = trrs!cClassCodetrrs.MoveNextWendstrSql = "insert into tempTT values(" & i & " ," + "'" + wStr(1) + "' ," + "'" + wStr(2) + "' ," + "'" + wStr(3) + "' ," + "'" + wStr(4) + "' ," + "'" + wStr(5) + _"' ,'" + clStr(1) + "' ," + "'" + clStr(2) + "' ," + "'" + clStr(3) + "' ," + "'" + clStr(4) + "' ," + "'" + clStr(5) + "' )"ttCon.Execute strSqlclearStrWhile i < 10i = i + 1strSql = "insert into tempTT values(" & i & " ," + "'" + wStr(1) + "' ," + "'" + wStr(2) + "' ," + "'" + wStr(3) + "' ," + "'" + wStr(4) + "' ," + "'" + wStr(5) + _"' ,'" + clStr(1) + "' ," + "'" + clStr(2) + "' ," + "'" + clStr(3) + "' ," + "'" + clStr(4) + "' ," + "'" + clStr(5) + "' )"ttCon.Execute strSqlWendEnd SubPrivate Sub Command1_Click()trname = Trim(teacherCombox.Text)Call Update_ttUnload MeTrRep.ShowEnd SubPrivate Sub Form_Load()Set ttCon = New ADODB.ConnectionSet ttrs = New ADODB.RecordsetttCon.Open "provider=Microsoft.Jet.OLEDB.4.0; data source= " & App.Path & "\dataUse.mdb"Set trcon = New ADODB.ConnectionSet trrs = New ADODB.Recordsettrcon.Open "provider=Microsoft.Jet.OLEDB.4.0; data source= " & App.Path & "\dataUse.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信息表2.teacher表:3.tempct表:4.班级表:4.2 数据库概念和发展关系数据库是目前各类数据库中最重要、最流行的数据库，他应用数学方法来处理数据库数据，是目前使用最广泛的数据库系统。