排課管理系統(tǒng)

畢業(yè)設(shè)計(jì)<<排課管理系統(tǒng)>>院系______專業(yè)______班級(jí)______姓名______日期年月日目錄摘要 iAbstract ii第一章引言 11.1背景 11.1.1教師管理系統(tǒng) 11.2開發(fā)教師管理系統(tǒng)的目的和原則 31.3開發(fā)環(huán)境介紹 31.3.1開發(fā)平臺(tái) 41.3.2數(shù)據(jù)庫設(shè)計(jì)工具——ACCESS數(shù)據(jù)庫管理系統(tǒng) 7第二章系統(tǒng)設(shè)計(jì) 92.1系統(tǒng)分析 92.2系統(tǒng)流程和操作方式設(shè)計(jì) 11第三章系統(tǒng)界面設(shè)計(jì) 123.1系統(tǒng)界面設(shè)計(jì)以及代碼分析 12第四章數(shù)據(jù)庫的設(shè)計(jì) 304.1數(shù)據(jù)庫設(shè)計(jì) 304.2數(shù)據(jù)庫概念和發(fā)展 304.3系統(tǒng)測(cè)試與評(píng)價(jià) 38總結(jié) 39致謝 40參考文獻(xiàn) 41摘要20世紀(jì)以來，社會(huì)生產(chǎn)力迅速發(fā)展，科學(xué)技術(shù)突飛猛進(jìn)，人們進(jìn)行信息交流的深度與廣度不斷增長，信息量急劇增長，傳統(tǒng)的信息解決與決策的手段已不能適應(yīng)社會(huì)的需要，信息的重要性和信息解決問題的緊迫性空前提高了，面對(duì)著日益復(fù)雜和不斷發(fā)展，變化的社會(huì)環(huán)境，特別是公司間日趨劇烈的競爭形勢(shì)，一個(gè)人、一個(gè)公司要在現(xiàn)代社會(huì)中求生存，求發(fā)展，必須具有足夠的信息和強(qiáng)有力的信息收集與解決手段。對(duì)于一個(gè)學(xué)校來說，大量教師課程安排難于通過傳統(tǒng)的方法進(jìn)行管理；這就迫切需要運(yùn)用計(jì)算機(jī)技術(shù)來幫助學(xué)校管理者來解決教師課程安排的平常管理,合理安排課程,防止課程沖突.排課管理系統(tǒng)可以很好的解決以上問題.排課管理系統(tǒng)是管理信息系統(tǒng)的一個(gè)典型用例.管理信息系統(tǒng)是一個(gè)集信息技術(shù)、經(jīng)濟(jì)管理理論、記錄學(xué)與運(yùn)籌學(xué)、數(shù)據(jù)庫技術(shù)為一體的綜合性系統(tǒng)，是一個(gè)資金技術(shù)密集型、勞動(dòng)密集型、智力密集型的項(xiàng)目。我國擁有廣闊的市場(chǎng)和豐富的人才資源，有幾十年的技術(shù)積累和經(jīng)驗(yàn)積累，有一定的后發(fā)優(yōu)勢(shì)。管理信息系統(tǒng)的創(chuàng)新工作既不能妄自菲薄，更不能夜郎自大。要抓住當(dāng)前網(wǎng)絡(luò)經(jīng)濟(jì)興起的有利時(shí)機(jī)，以實(shí)現(xiàn)我國信息技術(shù)和信息產(chǎn)業(yè)的跨越式發(fā)展，更好地發(fā)揮信息產(chǎn)業(yè)對(duì)國民經(jīng)濟(jì)增長的拉動(dòng)作用。開發(fā)學(xué)校排課管理系統(tǒng)的過程就是要實(shí)現(xiàn)數(shù)據(jù)解決方式由人工管理向計(jì)算機(jī)管理的轉(zhuǎn)變，它在計(jì)算機(jī)技術(shù)和教師管理實(shí)踐活動(dòng)兩者之間架設(shè)橋梁。關(guān)鍵字:排課管理,管理信息系統(tǒng),數(shù)據(jù)庫,計(jì)算機(jī)管理引言對(duì)于一個(gè)學(xué)校來說，大量教師課程安排難于通過傳統(tǒng)的方法進(jìn)行管理；這就迫切需要運(yùn)用計(jì)算機(jī)技術(shù)來幫助學(xué)校管理者來解決教師課程安排的平常管理,合理安排課程,防止課程沖突.排課管理系統(tǒng)可以很好的解決以上問題.排課管理系統(tǒng)是管理信息系統(tǒng)的一個(gè)典型用例.1.1背景1.1.1排課管理系統(tǒng)如今隨著教育事業(yè)的發(fā)展,學(xué)校對(duì)教師課程安排的復(fù)雜度的增長,一個(gè)單位,各個(gè)學(xué)科天天的課程安排以及教室資源的分派,排課工資等信息量將迅速的增長,傳統(tǒng)的手工的解決方式已經(jīng)跟不上信息爆炸般的擴(kuò)增.所以開發(fā)一種可靠,高效的教師排課管理系統(tǒng)是很有必要的.1.2開發(fā)排課管理系統(tǒng)的目的與原則排課管理系統(tǒng)的重要目的是服務(wù)與中小學(xué),各高校的管理者,方便其管理本校排課信息的軟件系統(tǒng).其原則是做到,界面和諧人性,操作簡樸,可靠.1.3開發(fā)環(huán)境介紹1.3.1開發(fā)平臺(tái)本教師管理系統(tǒng)的開發(fā)平臺(tái)為微軟windowsxpvisualbasic6.0以及微軟的Access作為操作數(shù)據(jù)庫.數(shù)據(jù)庫設(shè)計(jì)工具——ACCESS數(shù)據(jù)庫管理系統(tǒng)

Microsoft

Access介紹:使用

Microsoft

Access，可以在單一的數(shù)據(jù)庫文獻(xiàn)中管理所有的信息。在這個(gè)文獻(xiàn)中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。

假如要保存數(shù)據(jù)，請(qǐng)為每一種類型的信息創(chuàng)建一個(gè)表。假如要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。

假如要搜索并檢索符合指定條件的數(shù)據(jù)，涉及來自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。查詢的同時(shí)也可以更新或刪除多條記錄，并對(duì)數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。

假如要簡樸地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體。在打開一個(gè)窗體時(shí)，Microsoft

Access

將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。

假如要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請(qǐng)創(chuàng)建一個(gè)報(bào)表。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。系統(tǒng)設(shè)計(jì)2.1系統(tǒng)分析本排課管理系統(tǒng)重要由以下幾大模塊構(gòu)成.教職工入庫信息.排課管理教職工帶課查詢本學(xué)期課程設(shè)立打印課程表打印教師代課表2.2系統(tǒng)流程和操作方式設(shè)計(jì)系統(tǒng)登陸系統(tǒng)登陸主界面教職工工入庫信息排課管理教職工工帶課查詢本學(xué)期課程安排打印課程表打印教師帶課表系統(tǒng)界面設(shè)計(jì)3.1系統(tǒng)界面設(shè)計(jì)1.登陸界面代碼分析:OptionExplicitPublicLoginSucceededAsBooleanPrivateSubcmdCancel_Click()'settheglobalvartofalse'todenoteafailedloginLoginSucceeded=FalseUnloadfmStartEndSubPrivateSubcmdOK_Click()'checkforcorrectpasswordIftxtPassword="password"Then'placecodetoheretopassthe'successtothecallingsub'settingaglobalvaristheeasiestLoginSucceeded=TrueMe.HidefmStart.ShowElseMsgBox"InvalidPassword,tryagain!",,"Login"txtPassword.SetFocusSendKeys"{Home}+{End}"EndIfEndSubPrivateSubForm_Load()LoadfmStartfmStart.HideEndSub2.教職工入庫信息界面:代碼分析:DimconAsADODB.ConnectionDimrsAsADODB.RecordsetDimqrsAsADODB.RecordsetDimslSqlAsStringDimi,jAsIntegerDimstrBak(2)AsStringDimsqlStrAsStringPrivateSubCommand1_Click(IndexAsInteger)OnErrorGoToErr:DimcnAsIntegerForcn=0To2Text1(cn).Text=""NextcnIfrs.RecordCount>0ThenSelectCaseIndexCase0:rs.MoveFirstCase1:rs.MovePreviousCommand1(2).Enabled=TrueCommand1(3).Enabled=TrueCase2:rs.MoveNextCommand1(0).Enabled=TrueCommand1(1).Enabled=TrueCase3:rs.MoveLastEndSelectdisplayInfoEndIfGoTook:Err:CalldataOverok:EndSubPrivateSubdataOver()Ifrs.BOFThenCommand1(0).Enabled=FalseCommand1(1).Enabled=FalseCommand1(2).Enabled=TrueCommand1(3).Enabled=Truers.MoveFirstElseIfrs.EOFThenrs.MoveLastCommand1(0).Enabled=TrueCommand1(1).Enabled=TrueCommand1(2).Enabled=FalseCommand1(3).Enabled=FalseElseMsgBox"DatabaseError",vbExclamation+vbOKOnly,"Errorunknown"EndIfEndIfEndSubPrivateSubCommand2_Click(IndexAsInteger)OnErrorGoToerrDealIfIndex=0OrIndex=2ThenCanSave(True)ElseCanSave(False)EndIfSelectCaseIndexCase0:rs.AddNewCalltoNullCase1:j=MsgBox("你擬定要?jiǎng)h除本記錄嗎？",vbYesNo+vbQuestion,"刪除")Ifj=vbYesThenrs.DeleteCalltoNullEndIfCase2:rs.Deleters.AddNewCase3:IfLen(LTrim$(RTrim$(Text1(0).Text)))>0Then'rs.AddNewFori=0To2IfLen(LTrim$(RTrim$(Text1(i).Text)))>0Thenrs.Fields(i)=Text1(i).TextEndIfNextirs.UpdateElseMsgBox"姓名不得為空",vbOKOnly+vbExclamation,"Error"EndIfCase4:Fori=0To2Text1(i).Text=strBak(i)NextiCallCommand2_Click(3)EndSelectExitSuberrDeal:MsgBox"databaseError",vbExclamation+vbOKOnly,"error"'okEnd:EndSubPrivateSubCanSave(okAsBoolean)Frame1.Enabled=NotokFrame3.Enabled=okFori=0To4Ifi<3ThenCommand2(i).Enabled=NotokElseCommand2(i).Enabled=okEndIfNextiEndSubPrivateSubForm_Load()DimcntAsIntegerSetcon=NewADODB.ConnectionSetrs=NewADODB.RecordsetSetqrs=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,adLockOptimisticIfrs.RecordCount>0Thenrs.MoveFirstdisplayInfoCanSave(False)Else'newdataCanSave(True)CallCommand2_Click(0)EndIfEndSubPrivateSubdisplayInfo()i=j=0Fori=0To2'Text1(i).Text=""IfLen(rs.Fields(i))>0ThenText1(i).Text=rs.Fields(i)strBak(i)=Text1(i).TextEndIfNextiEndSubPrivateSubtoNull()Fori=0To2Text1(i).Text=""strBak(i)=""NextiEndSubPrivateSubForm_Unload(CancelAsInteger)OnErrorGoToKKrs.CloseSetrs=Nothingqrs.CloseSetqrs=notingcon.CloseSetcon=NothingKK:EndSubPrivateSubqueryComm_Click()slSql="select*fromTeacherwherecTrname='"+Text1(3).Text+"'"qrs.OpenslSql,con,adOpenStaticIfNotqrs.EOFThenqrs.MoveFirsti=j=0Fori=0To2'Text1(i).Text=""IfLen(qrs.Fields(i))>0ThenText1(i).Text=qrs.Fields(i)strBak(i)=Text1(i).TextEndIfNextiEndIfqrs.CloseEndSub3.排課管理界面代碼分析:OptionExplicitDimconnAsADODB.ConnectionDimrsTrAsADODB.RecordsetDimrsSjAsADODB.RecordsetDimi,j,sjCntAsIntegerDimClassCodeAsStringDimTrChanged,ClassChangedAsBooleanDimstrSqlAsStringDimrsTrAryAsADODB.RecordsetDimrsClassAryAsADODB.RecordsetDimStrTr(9)AsStringDimstrSj(49)AsStringDimminht,maxHtAsIntegerPrivateSubEnableSave(okAsBoolean)DimkAsIntegerFork=0To3Ifk<2Thencb(k).Enabled=NotokElsecb(k).Enabled=okEndIfNextkFrame7.Enabled=NotokFrame2.Enabled=okFrame3.Enabled=okEndSubPrivateSubcb_Click(IndexAsInteger)Me.MousePointer=11OnErrorGoToerrDealSelectCaseIndexCase0:ClassCode=Trim(Combo1(0).Text)&"."&Trim(Combo1(1).Text)IfLen(Trim(Combo1(0).Text))>0AndLen(ClassCode)>1ThenCalldisplayInfocb(1).Enabled=TrueEndIfCase1:cb_Click(0)EnableSave(True)cb(1).Enabled=FalseCase2:IfTrChangedThenstrSql="delete*fromtrclasswherecclasscode='"&ClassCode&"'"conn.ExecutestrSqlDimstrTrNameAsStringFori=0TosjCnt-1strTrName=Trim(Combo2(i).Text)IfLen(strTrName)>0ThenstrSql="insertintotrclassvalues('"&ClassCode&"',"+"'"+Trim(Label2(i).Caption)+"',"+"'"+Trim(Combo2(i).Text)+"')"'me.caption=strSqlconn.ExecutestrSqlEndIfNextiTrChanged=FalsersTrAry.Requerycb(1).Enabled=FalseEndIfIfClassChangedThenconn.Execute"delete*fromclassarraywherecclasscode='"&ClassCode&"'"DimX,YAsIntegerFori=0To49Y=iMod5+1X=Int(i/5)+1IfLen(Trim(Combo3(i).Text))>0ThenstrSql="insertintoclassarrayvalues('"&ClassCode&"',"&Y&","&X&",'"&Trim(Combo3(i).Text)&"')"'me.caption=strSqlconn.ExecutestrSqlEndIfNextiClassChanged=FalsersClassAry.RequeryEndIfEnableSave(False)Case3:Fori=0TosjCnt-1Combo2(i).Text=Combo2(i).TagNextiFori=0To49Combo3(i).Text=Combo3(i).TagNextiEnableSave(False)cb(1).Enabled=FalseEndSelectGoTookerrDeal:MsgBox"ErrorUnknown"ok:Me.MousePointer=0EndSubPrivateSubdisplayInfo()Forj=0TosjCnt-1strSql="selectcteacherfromtrclasswherecclasscode='"&ClassCode&"'andcsubject='"&Trim(Label2(j).Caption)&"'"'Text1.Text=strSql'me.caption=strSqlSetrsTrAry=conn.Execute(strSql)'DimtpRsAsADODB.Recordset'SettpRs=conn.Execute("selectcteacherfromtrclasswherecclasscode='"&ClassCode&"'andcsubject='"&Trim(Label2(j).Caption)&"'")'Text1.Text="####"&strSql&"####"'WhileNottpRs.EOF'Text1.Text=Text1.Text+tpRs.Fields(0)'tpRs.MoveNext'Wend'這里用另一種方法創(chuàng)建recordset'rsTrAry.IfNotrsTrAry.EOFThen'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)'''''''''''''''''''''''''''這里語句也許犯錯(cuò)EndIfNextjFori=0To49DimX,YAsIntegerX=Int(i/5+1)Y=iMod5+1strSql="selectcsjnamefromclassarraywherecclasscode='"&ClassCode&"'anditimew="&Y&"anditimen="&X'me.caption=strSql'rsClassAry.OpenstrSql,conn,adOpenStatic,adLockOptimisticSetrsClassAry=conn.Execute(strSql)IfNotrsClassAry.EOFThenCombo3(i).Text=rsClassAry.Fields(0)Combo3(i).Tag=rsClassAry.Fields(0)'EnableSave(False)ElseCombo3(i).Text=""Combo3(i).Tag=""'EnableSave(True)EndIfNextiEndSubPrivateFunctionTrim(strAsString)AsStringTrim=LTrim$(RTrim$(str))EndFunctionPrivateSubCombo2_Change(IndexAsInteger)TrChanged=TrueEndSubPrivateSubCombo3_Change(IndexAsInteger)ClassChanged=TrueEndSubPrivateSubCommand1_Click()Timer1.Enabled=TrueEndSubPrivateSubForm_Load()Me.MousePointer=11Setconn=NewADODB.ConnectionSetrsTr=NewADODB.RecordsetSetrsSj=NewADODB.RecordsetSetrsTrAry=NewADODB.RecordsetSetrsClassAry=NewADODB.Recordset'"Provider=Microsoft.Jet.OLEDB.3.51;PersistSecurityInfo=False;DataSource=C:\WINDOWS\Desktop\dataUse.mdb"conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\dataUse.mdb"rsTr.Open"select*fromteacher",conn,adOpenStatic,adLockOptimisticrsSj.Open"select*fromsubject",conn,adOpenStatic,adLockOptimisticminht=4090maxHt=9000sjCnt=rsSj.RecordCountCallcomboInitEnableSave(False)cb(1).Enabled=False'Command1.Tag="<<"Me.Height=minhtMe.MousePointer=0EndSubPrivateSubcomboInit()rsSj.MoveFirstDimtrCntAsIntegertrCnt=rsTr.RecordCountrsTr.MoveFirstCombo1(0).Text=""Combo1(1).Text=""Fori=1To12Combo1(0).AddItem(i)NextiFori=1To20Combo1(1).AddItem(i)NextiFori=0To9Combo2(i).Text=""Ifi<sjCntThenLabel2(i).Caption=rsSj!csjnamersSj.MoveNextElseLabel2(i).Visible=FalseCombo2(i).Visible=FalseEndIfLabel3(i).Caption=i+1NextiFori=0TosjCnt-1Ifi>0ThenForj=0TotrCnt-1'thelastmodifiedhere....................Combo2(i).List(j)=Combo2(0).List(j)NextjElsersTr.MoveFirstWhileNotrsTr.EOFCombo2(i).AddItem(rsTr.Fields(0))rsTr.MoveNextWendEndIfNextiFori=0To49Combo3(i).Text=""Forj=0TosjCnt-1Combo3(i).AddItem(Label2(j).Caption)NextjNextiEndSubPrivateSubForm_Resize()Frame3.Top=Me.Height-Frame3.Height-520EndSubPrivateSubForm_Unload(CancelAsInteger)OnErrorGoToErr:rsTr.ClosersSj.ClosersTrAry.ClosersClassAry.CloseSetrsTr=NothingSetrsSj=NothingSetrsTrAry=NothingSetrsClassAry=Nothingconn.CloseSetconn=NothingErr:EndSubPrivateSubTimer1_Timer()IfCommand1.Caption=">>"ThenIfMe.Height<maxHtThenMe.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)EndIfElseIfMe.Height>minhtThenMe.Height=Me.Height-150ElseTimer1.Enabled=FalseCommand1.Caption=">>"Command1.ToolTipText="課程表在這里!"Me.Height=minhtTimer2.Enabled=TrueEndIfEndIfEndSubPrivateSubTimer2_Timer()Staticr,g,bAsInteger'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+87Ifr>255Thenr=0EndIfIfg>255Theng=0EndIfIfb>255Thenb=0EndIfEndSub4.教職工帶課查詢界面設(shè)計(jì):代碼分析:OptionExplicitDimconnAsADODB.ConnectionDimrsAsADODB.RecordsetDimrsTrAsADODB.RecordsetDimi,j,value,idxAsIntegerDimstrName,strSqlAsStringPrivateTypeDataGetclassAsStringSjnameAsStringTwAsIntegerTnAsIntegerEndTypePrivateSubCommand1_Click()OnErrorGoTobnEndMe.MousePointer=11DimsSqlAsStringDimdgUseAsDataGet'SelectCaseIndex'Case0:CallClearCombostrName=LTrim$(RTrim$(Combo1.Text))IfLen(strName)>0ThensSql=strSql&"'"&strName&"'"Setrs=conn.Execute(sSql)IfNotrs.EOFThenWhileNotrs.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-1Combo3(idx).Visible=TrueCombo3(idx).AddItem(dgUse.class&"班")Combo3(idx).AddItem(dgUse.Sjname)Combo3(idx).Text=Combo3(idx).List(value)rs.MoveNextWendElseMsgBox"沒有得到相關(guān)數(shù)據(jù)，請(qǐng)檢查",vbOKOnly+vbInformation,"數(shù)據(jù)捕獲"EndIfDimlcntAsIntegerForlcnt=0To49IfCombo3(lcnt).ListCount>2ThenCombo3(lcnt).BackColor=RGB(200,255,255)Combo3(lcnt).AddItem("注意有重課")EndIfNextlcntElseMsgBox"請(qǐng)輸入或選擇一教職工姓名",vbInformation+vbOKOnly,"查詢輸入"EndIf'EndSelectbnEnd:Me.MousePointer=0EndSubPrivateSubClearCombo()Fori=0To49Combo3(i).BackColor=RGB(255,255,255)Combo3(i).Text=""Combo3(i).Visible=FalseCombo3(i).ClearNextiEndSubPrivateSubForm_Load()Me.MousePointer=11OnErrorGoToKKaSetconn=NewADODB.Connectionconn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\dataUse.mdb"SetrsTr=conn.Execute("selectctrnamefromteacher")Fori=0To9Label3(i).Caption=i+1NextiWhileNotrsTr.EOFCombo1.AddItem(rsTr.Fields(0))rsTr.MoveNextWendCallClearCombostrSql="selecttrclass.cclasscode,trclass.csubject,classarray.itimew,classarray.itimen"+_"fromteacher,trclass,classarray"+_"whereteacher.ctrname=trclass.cteacherandtrclass.cclasscode=classarray.cclasscode"+_"andtrclass.csubject=classarray.csjnameandteacher.ctrname="'selecttrclass.cclasscode,trclass.csubject,classarray.itimew,classarray.itimen'Fromteacher,trclass,classarray'Whereteacher.ctrname=trclass.cteacherAndtrclass.cclasscode=classarray.cclasscode'andtrclass.csubject=classarray.csjname'andteacher.ctrname='陳''strSql="selectteacher.ctrname,trclass.cclasscode,classarray.itimew,classarray.itimen"+_"fromteacherjointrclassonteacher.ctrname=trclass.cteacherjoinclassarray"+_"ontrclass.cclasscode=classarray.classcodewhereteacher.ctrname="value=0GoTookKKa:MsgBox"ErrorUnknown"ok:Me.MousePointer=0EndSubPrivateSubForm_Unload(CancelAsInteger)OnErrorGoToKK:rs.ClosersTr.CloseSetrs=NothingSetrsTr=Nothingconn.CloseSetconn=NothingKK:EndSubPrivateSubOpn_Click(IndexAsInteger)value=IndexCallCommand1_ClickEndSub5.本學(xué)期課程設(shè)立界面設(shè)計(jì):代碼分析:OptionExplicitDimconAsADODB.ConnectionDimrsAsADODB.RecordsetDimstr(9)AsString'DimstrSqlAsStringPrivateSubcn_Click(IndexAsInteger)'OnErrorGoToex:DimlcntAsIntegerDimstrTxtAsStringSelectCaseIndexCase0:CanSave(True)Case1:con.Execute("delete*fromsubject")Forlcnt=0To9strTxt=Trim$(LTrim$(Txt(lcnt).Text))IfLen(strTxt)>0Thenrs.AddNewrs!csjname=strTxtrs.UpdateEndIfNextlcntCanSave(False)Case2:Forlcnt=0To9Txt(lcnt)=str(lcnt)NextlcntCanSave(False)EndSelectExitSubex:MsgBox"databaseerror",vbOKOnly+vbExclamation,"error"EndSubPrivateSubForm_Load()'strSql="insertintosubjectvalues('"Setcon=NewADODB.ConnectionSetrs=NewADODB.RecordsetCallclearTxtCanSave(False)con.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\dataUse.mdb"rs.Open"select*fromsubject",con,adOpenStatic,adLockOptimisticCalldisplayInfoEndSubPrivateSubCanSave(bSaveAsBoolean)Frame1.Enabled=bSavecn(1).Enabled=bSavecn(2).Enabled=bSavecn(0).Enabled=NotbSaveEndSubPrivateSubdisplayInfo()rs.MoveFirstDimlcntAsIntegerlcnt=0While(Notrs.EOFAndlcnt<10)Txt(lcnt).Text=rs!csjnamestr(lcnt)=Txt(lcnt).Textlcnt=lcnt+1rs.MoveNextWendEndSubPrivateSubclearTxt()DimlcntAsIntegerForlcnt=0To9Txt(lcnt).Text=""NextlcntEndSubPrivateSubForm_Unload(CancelAsInteger)rs.Closecon.CloseSetrs=NothingSetcon=NothingEndSub6.打印課程表界面設(shè)計(jì):代碼設(shè)計(jì):臨時(shí)課表DimctConAsADODB.ConnectionDimctrsAsADODB.Recordset'classArray表DimcaconAsADODB.ConnectionDimcarsAsADODB.RecordsetDimsqlStrAsStringDimClassCodeAsStringDimwStr(5)AsStringPrivateSubclearStr()Fori=1To5wStr(i)=""NextiEndSubPrivateSubUpdate_ct()'刪除所有以前的記錄ctCon.Execute("delete*fromtempCT")'更新表sqlStr="select*fromclassArraywherecclasscode='"&ClassCode&"'"&"orderbyiTimeN"cacon.ExecutesqlStrcars.OpensqlStr,cacon,adOpenStatic,adLockOptimisticcars.MoveFirstDimiAsIntegeri=1clearStrWhile(Notcars.EOF)Whilecars!iTimeN<>i'添加一條課程記錄strSql="insertintotempCTvalues("&i&","+"'"+wStr(1)+"',"+"'"+wStr(2)+"',"+"'"+wStr(3)+"',"+"'"+wStr(4)+"',"+"'"+wStr(5)+"')"ctCon.ExecutestrSqlclearStri=i+1WendwStr(cars!iTimeW)=cars!csjnamecars.MoveNextWend'添加一條課程記錄strSql="insertintotempCTvalues("&i&","+"'"+wStr(1)+"',"+"'"+wStr(2)+"',"+"'"+wStr(3)+"',"+"'"+wStr(4)+"',"+"'"+wStr(5)+"')"ctCon.ExecutestrSqlclearStrWhilei<10'添加一條課程記錄strSql="insertintotempCTvalues("&i&","+"'"+wStr(1)+"',"+"'"+wStr(2)+"',"+"'"+wStr(3)+"',"+"'"+wStr(4)+"',"+"'"+wStr(5)+"')"ctCon.ExecutestrSqli=i+1WendEndSubPrivateSubCommand1_Click()ClassCode=Trim(gradeCombox.Text)&"."&Trim(classCombox.Text)CallUpdate_ctUnloadMeclassRep.ShowEndSubPrivateSubForm_Load()Fori=1To12gradeCombox.AddItem(i)NextiFori=1To20classCombox.AddItem(i)NextiSetcacon=NewADODB.ConnectionSetcars=NewADODB.Recordsetcacon.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\dataUse.mdb"SetctCon=NewADODB.ConnectionSetctrs=NewADODB.RecordsetctCon.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\dataUse.mdb"EndSubPrivateSubForm_Unload(CancelAsInteger)cars.Closecacon.CloseSetcars=NothingSetcacon=NothingctCon.CloseSetctrs=NothingSetctCon=NothingEndSub7.打印教師代課表界面設(shè)計(jì):代碼設(shè)計(jì):'臨時(shí)教師代課表DimttConAsADODB.ConnectionDimttrsAsADODB.Recordset'trClass表DimtrconAsADODB.ConnectionDimtrrsAsADODB.RecordsetDimsqlStrAsStringDimtrnameAsStringDimwStr(5)AsStringDimclStr(5)AsStringPrivateSubclearStr()Fori=1To5wStr(i)=""clStr(i)=""NextiEndSubPrivateSubUpdate_tt()ttCon.Execute"delete*fromtempTT"strSql="selecttrclass.cclasscode,trclass.csubject,classarray.itimew,classarray.itimen"+_"fromteacher,trclass,classarray"+_"whereteacher.ctrname=trclass.cteacherandtrclass.cclasscode=classarray.cclasscode"+_"andtrclass.csubject=classarray.csjnameandteacher.ctrname="+"'"+trname+"'"_+"orderbyiTimeN"trcon.ExecutestrSqltrrs.OpenstrSql,trcon,adOpenStatic,adLockOptimistictrrs.MoveFirstDimiAsIntegeri=1clearStrWhileNottrrs.EOFWhiletrrs!iTimeN<>istrSql="insertintotempTTvalues("&i&","+"'"+wStr(1)+"',"+"'"+wStr(2)+"',"+"'"+wStr(3)+"',"+"'"+wStr(4)+"',"+"'"+wStr(5)+_"','"+clStr(1)+"',"+"'"+clStr(2)+"',"+"'"+clStr(3)+"',"+"'"+clStr(4)+"',"+"'"+clStr(5)+"')"ttCon.ExecutestrSqlclearStri=i+1WendwStr(trrs!iTimeW)=trrs!csubjectclStr(trrs!iTimeW)=trrs!cClassCodetrrs.MoveNextWendstrSql="insertintotempTTvalues("&i&","+"'"+wStr(1)+"',"+"'"+wStr(2)+"',"+"'"+wStr(3)+"',"+"'"+wStr(4)+"',"+"'"+wStr(5)+_"','"+clStr(1)+"',"+"'"+clStr(2)+"',"+"'"+clStr(3)+"',"+"'"+clStr(4)+"',"+"'"+clStr(5)+"')"ttCon.ExecutestrSqlclearStrWhilei<10i=i+1strSql="insertintotempTTvalues("&i&","+"'"+wStr(1)+"',"+"'"+wStr(2)+"',"+"'"+wStr(3)+"',"+"'"+wStr(4)+"',"+"'"+wStr(5)+_"','"+clStr(1)+"',"+"'"+clStr(2)+"',"+"'"+clStr(3)+"',"+"'"+clStr(4)+"',"+"'"+clStr(5)+"')"ttCon.ExecutestrSqlWendEndSubPrivateSubCommand1_Click()trname=Trim(teacherCombox.Text)CallUpdate_ttUnloadMeTrRep.ShowEndSubPrivateSubForm_Load()SetttCon=NewADODB.ConnectionS