排課管理系統(tǒng)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)畢業(yè)設(shè)計(jì)畢業(yè)設(shè)計(jì) 院系院系_ 專業(yè)專業(yè)_ 班級班級_ 姓名姓名_日期日期 年年 月月 日日精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)目 錄摘 要 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

2、 數(shù)據(jù)庫概念和發(fā)展304.3 系統(tǒng)測試與評價(jià)38精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)總 結(jié) 39致 謝40參考文獻(xiàn) 41摘摘 要要20 世紀(jì)以來，社會(huì)生產(chǎn)力迅速發(fā)展，科學(xué)技術(shù)突飛猛進(jìn)，人們進(jìn)行信息交流的深度與廣度不斷增加，信息量急劇增長，傳統(tǒng)的信息處理與決策的手段已不能適應(yīng)社會(huì)的需要，信息的重要性和信息處理問題的緊迫性空前提高了，面對著日益復(fù)雜和不斷發(fā)展，變化的社會(huì)環(huán)境，特別是企業(yè)間日趨劇烈的競爭形勢，一個(gè)人、一個(gè)企業(yè)要在現(xiàn)代社會(huì)中求生存，求發(fā)展，必須具備足夠的信息和強(qiáng)有力的信息收集與處理手段。對于一個(gè)學(xué)校來說，大量教師課程安排難于通過傳統(tǒng)的方法進(jìn)行管理；這就迫切需要利用計(jì)算機(jī)技術(shù)來幫助

3、學(xué)校管理者來處理教師課程安排的日常管理,合理安排課程,防止課程沖突.排課管理系統(tǒng)可以很好的解決以上問題.排課管理系統(tǒng)是管理信息系統(tǒng)的一個(gè)典型用例. 管理信息系統(tǒng)是一個(gè)集信息技術(shù)、經(jīng)濟(jì)管理理論、統(tǒng)計(jì)學(xué)與運(yùn)籌學(xué)、數(shù)據(jù)庫技術(shù)為一體的綜合性系統(tǒng)，是一個(gè)資金技術(shù)密集型、勞動(dòng)密集型、智力密集型的項(xiàng)目。我國擁有廣闊的市場和豐富的人才資源，有幾十年的技術(shù)積累和經(jīng)驗(yàn)積累，有一定的后發(fā)優(yōu)勢。管理信息系統(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è)對國民經(jīng)濟(jì)增長的拉動(dòng)作用。開發(fā)學(xué)校排課管理系統(tǒng)的過程就是要實(shí)現(xiàn)數(shù)據(jù)處理方式由人

4、工管理向計(jì)算機(jī)管理的轉(zhuǎn)變，它在計(jì)算機(jī)技術(shù)和教師管理實(shí)踐活動(dòng)兩者之間架設(shè)橋梁。關(guān)鍵字關(guān)鍵字: :排課管理排課管理, ,管理信息系統(tǒng)管理信息系統(tǒng), ,數(shù)據(jù)庫數(shù)據(jù)庫, ,計(jì)算機(jī)管理計(jì)算機(jī)管理精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)第一章第一章 引言引言對于一個(gè)學(xué)校來說，大量教師課程安排難于通過傳統(tǒng)的方法進(jìn)行管理；這就迫切需要利用計(jì)算機(jī)技術(shù)來幫助學(xué)校管理者來處理教師課程安排的日常管理,合理安排課程,防止課程沖突.排課管理系統(tǒng)可以很好的解決以上問題.排課管理系統(tǒng)是管理信息系統(tǒng)的一個(gè)典型用例. 1.1 背景背景1.1.1 排課管理系統(tǒng)排課管理系統(tǒng) 如今隨著教育事業(yè)的發(fā)展,學(xué)校對教師課程安排的復(fù)雜度的增加

5、,一個(gè)單位,各個(gè)學(xué)科每天的課程安排以及教室資源的分配,排課工資等信息量將迅速的增加,傳統(tǒng)的手工的處理方式已經(jīng)跟不上信息爆炸般的擴(kuò)增.所以開發(fā)一種可靠,高效的教師排課管理系統(tǒng)是很有必要的.1.2 開發(fā)排課管理系統(tǒng)的目的與原則開發(fā)排課管理系統(tǒng)的目的與原則排課管理系統(tǒng)的主要目的是服務(wù)與中小學(xué),各高校的管理者,方便其管理本校排課信息的軟件系統(tǒng).其原則是做到,界面友好人性,操作簡單,可靠.1.3 開發(fā)環(huán)境介紹開發(fā)環(huán)境介紹1.3.1 開發(fā)平臺(tái)開發(fā)平臺(tái) 本教師管理系統(tǒng)的開發(fā)平臺(tái)為微軟 windows xp visual basic 6.0 以精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)及微軟的 Access

6、作為操作數(shù)據(jù)庫.1.3.2數(shù)據(jù)庫設(shè)計(jì)工具數(shù)據(jù)庫設(shè)計(jì)工具ACCESSACCESS 數(shù)據(jù)庫管理系統(tǒng)數(shù)據(jù)庫管理系統(tǒng) Microsoft Access 介紹:使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個(gè)表。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。 如果要搜索并檢索符合指定條件的

7、數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。查詢的同時(shí)也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。 如果要簡單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個(gè)窗體。在打開一個(gè)窗體時(shí)，Microsoft Access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個(gè)報(bào)表。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。第二章第二章 系統(tǒng)設(shè)計(jì)系統(tǒng)設(shè)計(jì)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)2.1 系統(tǒng)分析系統(tǒng)分析本

8、排課管理系統(tǒng)主要由以下幾大模塊構(gòu)成.一.教職員入庫信息.二.排課管理三.教職員帶課查詢四.本學(xué)期課程設(shè)置五.打印課程表六.打印教師代課表2.22.2 系統(tǒng)流程和操作方式設(shè)計(jì)系統(tǒng)流程和操作方式設(shè)計(jì)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)系統(tǒng)登陸主界面教職員工入庫信息排課管理教職員工帶課查詢本學(xué)期課程安排打印課程表打印教師帶課表第三章第三章 系統(tǒng)界面設(shè)計(jì)系統(tǒng)界面設(shè)計(jì)3.13.1 系統(tǒng)界面設(shè)計(jì)系統(tǒng)界面設(shè)計(jì)1.1.登陸界面登陸界面代碼分析代碼分析:Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click()精

9、選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) set the global var to false to denote a failed login LoginSucceeded = False Unload fmStartEnd SubPrivate Sub cmdOK_Click() check for correct password If txtPassword = password Then place code to here to pass the success to the calling sub setting a global var is the easiest Logi

10、nSucceeded = True Me.Hide fmStart.Show Else MsgBox Invalid Password, try again!, , Login txtPassword.SetFocus SendKeys Home+End End IfEnd SubPrivate Sub Form_Load() Load fmStart精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) fmStart.HideEnd Sub2. 教職員入庫信息界面教職員入庫信息界面:代碼分析代碼分析:Dim con As ADODB.ConnectionDim rs As ADODB.Recordse

11、tDim 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:精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)Dim cn As IntegerFor cn = 0 To 2 Text1(cn).Text = Next cnIf rs.RecordCount 0 Then Select Case Index Case 0: r

12、s.MoveFirst Case 1: rs.MovePrevious Command1(2).Enabled = True Command1(3).Enabled = True Case 2: rs.MoveNext Command1(0).Enabled = True Command1(1).Enabled = True Case 3: rs.MoveLast End Select displayInfo精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)End IfGoTo ok:Err:Call dataOverok:End SubPrivate Sub dataOver()If rs.BOF

13、Then 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精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) Command1(3).Enabled = False Else MsgB

14、ox 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 Then CanSave (True)Else CanSave (False)End IfSelect Case IndexCase 0: rs.AddNew精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) Call toNull Case 1: j = MsgBox

15、(你確定要?jiǎng)h除本記錄嗎？, vbYesNo + vbQuestion, 刪除) If j = vbYes Then rs.Delete Call toNull End If Case 2:rs.Deleters.AddNewCase 3: If Len(LTrim$(RTrim$(Text1(0).Text) 0 Then rs.AddNew For i = 0 To 2 If Len(LTrim$(RTrim$(Text1(i).Text) 0 Then rs.Fields(i) = Text1(i).Text End If精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) Next i rs.Up

16、date Else MsgBox 姓名不得為空, vbOKOnly + vbExclamation, Error End IfCase 4: For i = 0 To 2 Text1(i).Text = strBak(i) Next i Call Command2_Click(3) End SelectExit SuberrDeal:MsgBox database Error, vbExclamation + vbOKOnly, errorokEnd:End SubPrivate Sub CanSave(ok As Boolean)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)Frame1.Ena

17、bled = Not okFrame3.Enabled = ok For i = 0 To 4 If i 0 Then rs.MoveFirst displayInfo CanSave (False) Else new data CanSave (True) Call Command2_Click(0) End IfEnd SubPrivate Sub displayInfo() i = j = 0 For i = 0 To 2 Text1(i).Text = If Len(rs.Fields(i) 0 Then Text1(i).Text = rs.Fields(i)精選優(yōu)質(zhì)文檔-傾情為你奉

18、上專心-專注-專業(yè) strBak(i) = Text1(i).Text End If Next i End SubPrivate Sub toNull() For i = 0 To 2 Text1(i).Text = strBak(i) = Next i End SubPrivate Sub Form_Unload(Cancel As Integer)On Error GoTo KKrs.CloseSet rs = Nothingqrs.Close精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)Set qrs = notingcon.CloseSet con = NothingKK:End SubP

19、rivate Sub queryComm_Click() slSql = select * from Teacher where cTrname = + Text1(3).Text + qrs.Open slSql, con, adOpenStatic If Not qrs.EOF Then qrs.MoveFirst i = j = 0 For i = 0 To 2 Text1(i).Text = If Len(qrs.Fields(i) 0 Then Text1(i).Text = qrs.Fields(i) strBak(i) = Text1(i).Text精選優(yōu)質(zhì)文檔-傾情為你奉上專心

20、-專注-專業(yè) End If Next i End If qrs.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.Records

21、etDim rsClassAry As ADODB.RecordsetDim StrTr(9) As StringDim strSj(49) As StringDim minht, maxHt As IntegerPrivate Sub EnableSave(ok As Boolean)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)Dim k As IntegerFor k = 0 To 3 If k 0 And Len(ClassCode) 1 Then Call displayInfo cb(1).Enabled = True End IfCase 1: cb_Click (0) Enable

22、Save (True) cb(1).Enabled = False Case 2: If TrChanged Then strSql = delete * from trclass where cclasscode= & ClassCode & conn.Execute strSql Dim strTrName As String For i = 0 To sjCnt - 1 strTrName = Trim(Combo2(i).Text) If Len(strTrName) 0 Then strSql = insert into trclass values( & C

23、lassCode & , + + Trim(Label2(i).Caption) + , + + Trim(Combo2(i).Text) + )精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) me.caption = strSql conn.Execute strSql End If Next i TrChanged = False rsTrAry.Requery cb(1).Enabled = False End If If ClassChanged Then conn.Execute delete * from classarray where cclasscode= & C

24、lassCode & 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) 0 Then strSql = insert into classarray values( & ClassCode & , & Y & , & X & , & Trim(Combo3(i).Text) & ) me.caption = strSql conn.Execute strSql End If N

25、ext i ClassChanged = False rsClassAry.Requery End If EnableSave (False) Case 3: For i = 0 To sjCnt - 1 Combo2(i).Text = Combo2(i).Tag Next i For i = 0 To 49 Combo3(i).Text = Combo3(i).Tag Next i EnableSave (False) cb(1).Enabled = False End Select 精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) GoTo okerrDeal:MsgBox Error Unk

26、nownok:Me.MousePointer = 0End SubPrivate Sub displayInfo()For j = 0 To sjCnt - 1 strSql = select cteacher from trclass where cclasscode= & ClassCode & and csubject= & Trim(Label2(j).Caption) & Text1.Text = strSql me.caption = strSql Set rsTrAry = conn.Execute(strSql) Dim tpRs As ADOD

27、B.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 這里用另一種方法創(chuàng)建 recordset rsTrAry

28、. If Not rsTrAry.EOF Then rsTrAry.MoveFirst Combo2(j).Text = rsTrAry.Fields(0) rsTrAry!cteacher Combo2(j).Tag = rsTrAry.Fields(0) rsTrAry!cteacher EnableSave (False) Else MsgBox nodata, vbOKOnly精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) Combo2(j).Text = Combo2(j).Tag = EnableSave (True) 這里語句可能出錯(cuò) End IfNext jFor i = 0 To

29、 49 Dim X, Y As Integer X = Int(i / 5 + 1) Y = i Mod 5 + 1 strSql = 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(strS

30、ql) If Not rsClassAry.EOF Then Combo3(i).Text = rsClassAry.Fields(0) Combo3(i).Tag = rsClassAry.Fields(0) EnableSave (False) Else Combo3(i).Text = Combo3(i).Tag = EnableSave (True) End IfNext i End SubPrivate Function Trim(str As String) As StringTrim = LTrim$(RTrim$(str)End FunctionPrivate Sub Comb

31、o2_Change(Index As Integer)TrChanged = TrueEnd Sub精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)Private Sub Combo3_Change(Index As Integer) ClassChanged = True End SubPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Form_Load()Me.MousePointer = 11Set conn = New ADODB.ConnectionSet rsTr = New ADODB.Records

32、etSet rsSj = New ADODB.RecordsetSet rsTrAry = New ADODB.RecordsetSet rsClassAry = New ADODB.RecordsetProvider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:WINDOWSDesktopdataUse.mdbconn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & dataUse.mdbrsTr.Open

33、 select * from teacher, conn, adOpenStatic, adLockOptimisticrsSj.Open select * from subject, conn, adOpenStatic, adLockOptimisticminht = 4090maxHt = 9000sjCnt = rsSj.RecordCountCall comboInitEnableSave (False)cb(1).Enabled = FalseCommand1.Tag = Me.Height = minhtMe.MousePointer = 0End SubPrivate Sub

34、comboInit()精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)rsSj.MoveFirstDim trCnt As IntegertrCnt = rsTr.RecordCountrsTr.MoveFirstCombo1(0).Text = Combo1(1).Text = For i = 1 To 12 Combo1(0).AddItem (i) Next iFor i = 1 To 20 Combo1(1).AddItem (i)Next iFor i = 0 To 9 Combo2(i).Text = If i 0 Then For j = 0 To trCnt - 1 the last

35、 modified here. Combo2(i).List(j) = Combo2(0).List(j) Next j Else rsTr.MoveFirst While Not rsTr.EOF Combo2(i).AddItem (rsTr.Fields(0)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) rsTr.MoveNext Wend End IfNext iFor i = 0 To 49 Combo3(i).Text = For j = 0 To sjCnt - 1 Combo3(i).AddItem (Label2(j).Caption) Next jNext i End Sub

36、Private 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:

37、End SubPrivate Sub Timer1_Timer()If Command1.Caption = Then If Me.Height maxHt Then Me.Height = Me.Height + 150 Else Timer1.Enabled = False Command1.Caption = minht Then Me.Height = Me.Height - 150 Else Timer1.Enabled = False Command1.Caption = Command1.ToolTipText = 課程表在這里! Me.Height = minht Timer2

38、.Enabled = True End IfEnd If End SubPrivate Sub Timer2_Timer()Static r, g, b As Integerr = 100g = 50b = 20Command1.BackColor = RGB(r, g, b)Shape2.BackColor = RGB(255 - r, 255 - g, 255 - b)r = r + 15g = g + 39b = b + 87If r 255 Then r = 0End IfIf g 255 Then g = 0End IfIf b 255 Then b = 0End If精選優(yōu)質(zhì)文檔-

39、傾情為你奉上專心-專注-專業(yè) End Sub4. 教職員帶課查詢教職員帶課查詢界面設(shè)計(jì)界面設(shè)計(jì):代碼分析代碼分析:Option ExplicitDim conn As ADODB.ConnectionDim rs As ADODB.RecordsetDim rsTr As ADODB.Recordset精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)Dim i, j, value, idx As IntegerDim strName, strSql As StringPrivate Type DataGetclass As StringSjname As StringTw As IntegerTn

40、As IntegerEnd TypePrivate Sub Command1_Click()On Error GoTo bnEndMe.MousePointer = 11Dim sSql As StringDim dgUse As DataGetSelect Case IndexCase 0: Call ClearCombo 精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) strName = LTrim$(RTrim$(Combo1.Text) If Len(strName) 0 Then sSql = strSql & & strName & Set rs = conn.

41、Execute(sSql) If Not rs.EOF Then While Not rs.EOF dgUse.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 = True Combo3(idx).AddItem (dgUse.class & 班) Combo3(idx).AddItem (dgUse.Sjname) Com

42、bo3(idx).Text = Combo3(idx).List(value) rs.MoveNext Wend精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) Else MsgBox 沒有得到相關(guān)數(shù)據(jù)，請檢查, vbOKOnly + vbInformation, 數(shù)據(jù)捕捉 End If Dim lcnt As Integer For lcnt = 0 To 49 If Combo3(lcnt).ListCount 2 Then Combo3(lcnt).BackColor = RGB(200, 255, 255) Combo3(lcnt).AddItem (注意有重課) End If Next l

43、cnt Else MsgBox 請輸入或選擇一教職員姓名, vbInformation + vbOKOnly, 查詢輸入 End If End SelectbnEnd:精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)Me.MousePointer = 0 End SubPrivate Sub ClearCombo()For i = 0 To 49 Combo3(i).BackColor = RGB(255, 255, 255) Combo3(i).Text = Combo3(i).Visible = False Combo3(i).Clear Next iEnd SubPrivate Sub For

44、m_Load()Me.MousePointer = 11On Error GoTo KKaSet conn = New ADODB.Connectionconn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & dataUse.mdb精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)Set rsTr = conn.Execute(select ctrname from teacher)For i = 0 To 9 Label3(i).Caption = i + 1Next iWhile Not rsTr.E

45、OF Combo1.AddItem (rsTr.Fields(0) rsTr.MoveNext WendCall ClearCombostrSql = select trclass.cclasscode,trclass.csubject,classarray.itimew,classarray.itimen + _ from teacher,trclass,classarray + _where teacher.ctrname=trclass.cteacher and trclass.cclasscode=classarray.cclasscode + _ and trclass.csubje

46、ct=classarray.csjname and teacher.ctrname=select 精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)trclass.cclasscode,trclass.csubject,classarray.itimew,classarray.itimenFrom teacher, trclass, classarrayWhere teacher.ctrname = trclass.cteacher And trclass.cclasscode = classarray.cclasscodeand trclass.csubject=classarray.csjname

47、and teacher.ctrname=陳strSql = select teacher.ctrname,trclass.cclasscode,classarray.itimew,classarray.itimen + _ from teacher join trclass on teacher.ctrname=trclass.cteacher join classarray + _ on trclass.cclasscode=classarray.classcode where teacher.ctrname=value = 0GoTo okKKa:MsgBox Error Unknowno

48、k:Me.MousePointer = 0精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)End 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 Sub精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)5.

49、本學(xué)期課程設(shè)置本學(xué)期課程設(shè)置界面設(shè)計(jì)界面設(shè)計(jì):代碼分析代碼分析:Option ExplicitDim con As ADODB.ConnectionDim rs As ADODB.RecordsetDim str(9) As StringDim strSql As StringPrivate Sub cn_Click(Index As Integer)On Error GoTo ex:Dim lcnt As IntegerDim strTxt As String精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)Select Case IndexCase 0: CanSave (True) Case 1

50、: con.Execute (delete * from subject) For lcnt = 0 To 9 strTxt = Trim$(LTrim$(Txt(lcnt).Text) If Len(strTxt) 0 Then rs.AddNew rs!csjname = strTxt rs.Update End If Next lcnt CanSave (False)Case 2: For lcnt = 0 To 9 Txt(lcnt) = str(lcnt) Next lcnt CanSave (False) 精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)End Select Exit S

51、ubex:MsgBox database error, vbOKOnly + vbExclamation, errorEnd 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

52、rs.Open select * from subject, con, adOpenStatic, adLockOptimisticCall displayInfo精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)End 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 Integerl

53、cnt = 0While (Not rs.EOF And lcnt 10) Txt(lcnt).Text = rs!csjname str(lcnt) = Txt(lcnt).Text lcnt = lcnt + 1 rs.MoveNext 精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)WendEnd SubPrivate Sub clearTxt()Dim lcnt As IntegerFor lcnt = 0 To 9 Txt(lcnt).Text = Next lcntEnd SubPrivate Sub Form_Unload(Cancel As Integer)rs.Closecon.C

54、loseSet rs = NothingSet con = NothingEnd Sub6. 打印課程表打印課程表界面設(shè)計(jì)界面設(shè)計(jì):精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)代碼設(shè)計(jì)代碼設(shè)計(jì):臨時(shí)課表Dim ctCon As ADODB.ConnectionDim ctrs As ADODB.RecordsetclassArray 表Dim cacon As ADODB.ConnectionDim cars As ADODB.RecordsetDim sqlStr As StringDim ClassCode As StringDim wStr(5) As StringPrivate Sub

55、clearStr() For i = 1 To 5 wStr(i) = Next iEnd SubPrivate Sub Update_ct() 刪除所有以前的記錄 ctCon.Execute (delete * from tempCT) 更新表 sqlStr = select * from classArray where cclasscode= & ClassCode & & order by iTimeN cacon.Execute sqlStr cars.Open sqlStr, cacon, adOpenStatic, adLockOptimistic car

56、s.MoveFirst Dim i As Integer i = 1 clearStr While (Not cars.EOF) While cars!iTimeN i 添加一條課程記錄 strSql = insert into tempCT values( & i & , + + wStr(1) + , + + wStr(2) + , + + wStr(3) + , + + wStr(4) + , + + wStr(5) + )精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) ctCon.Execute strSql clearStr i = i + 1 Wend wStr(car

57、s!iTimeW) = cars!csjname cars.MoveNext Wend 添加一條課程記錄 strSql = insert into tempCT values( & i & , + + wStr(1) + , + + wStr(2) + , + + wStr(3) + , + + wStr(4) + , + + wStr(5) + ) ctCon.Execute strSql clearStr While i 10 添加一條課程記錄 strSql = insert into tempCT values( & i & , + + wStr(1) +

58、 , + + wStr(2) + , + + wStr(3) + , + + wStr(4) + , + + wStr(5) + ) ctCon.Execute strSql i = i + 1 WendEnd SubPrivate Sub Command1_Click() ClassCode = Trim(gradeCombox.Text) & . & Trim(classCombox.Text) Call Update_ct Unload Me classRep.ShowEnd SubPrivate Sub Form_Load() For i = 1 To 12 grade

59、Combox.AddItem (i) Next i For i = 1 To 20 classCombox.AddItem (i) Next i Set cacon = New ADODB.Connection Set cars = New ADODB.Recordset cacon.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & dataUse.mdb Set ctCon = New ADODB.Connection精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè) Set ctrs = New ADO

60、DB.Recordset ctCon.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & dataUse.mdbEnd SubPrivate Sub Form_Unload(Cancel As Integer) cars.Close cacon.Close Set cars = Nothing Set cacon = Nothing ctCon.Close Set ctrs = Nothing Set ctCon = NothingEnd Sub7. 打印教師代課表打印教師代課表界面設(shè)計(jì)界面設(shè)計(jì):代碼設(shè)計(jì)代碼設(shè)計(jì):臨時(shí)教師代課表Dim ttCon As ADODB.ConnectionDim ttrs As ADODB.RecordsettrClass 表Dim trcon As ADODB.ConnectionDim trrs As ADODB.RecordsetDim sqlStr As StringDim trname As StringDim wStr(5) As StringDim clStr(5) As StringPrivate Sub c