1、畢業設計畢業設計 院系院系_ 專業專業_ 班級班級_ 姓名姓名_日期日期 年年 月月 日日目 錄摘 要 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

2、摘摘 要要20 世紀以來，社會生產力迅速發展，科學技術突飛猛進，人們進行信息交流的深度與廣度不斷增加，信息量急劇增長，傳統的信息處理與決策的手段已不能適應社會的需要，信息的重要性和信息處理問題的緊迫性空前提高了，面對著日益復雜和不斷發展，變化的社會環境，特別是企業間日趨劇烈的競爭形勢，一個人、一個企業要在現代社會中求生存，求發展，必須具備足夠的信息和強有力的信息收集與處理手段。對于一個學校來說，大量教師課程安排難于通過傳統的方法進行管理；這就迫切需要利用計算機技術來幫助學校管理者來處理教師課程安排的日常管理,合理安排課程,防止課程沖突.排課管理系統可以很好的解決以上問題.排課管理系統是管理信息

3、系統的一個典型用例. 管理信息系統是一個集信息技術、經濟管理理論、統計學與運籌學、數據庫技術為一體的綜合性系統，是一個資金技術密集型、勞動密集型、智力密集型的項目。我國擁有廣闊的市場和豐富的人才資源，有幾十年的技術積累和經驗積累，有一定的后發優勢。管理信息系統的創新工作既不能妄自菲薄，更不能夜郎自大。要抓住當前網絡經濟興起的有利時機，以實現我國信息技術和信息產業的跨越式發展，更好地發揮信息產業對國民經濟增長的拉動作用。開發學校排課管理系統的過程就是要實現數據處理方式由人工管理向計算機管理的轉變，它在計算機技術和教師管理實踐活動兩者之間架設橋梁。關鍵字關鍵字: :排課管理排課管理, ,管理信息系

4、統管理信息系統, ,數據庫數據庫, ,計算機管理計算機管理第一章第一章 引言引言對于一個學校來說，大量教師課程安排難于通過傳統的方法進行管理；這就迫切需要利用計算機技術來幫助學校管理者來處理教師課程安排的日常管理,合理安排課程,防止課程沖突.排課管理系統可以很好的解決以上問題.排課管理系統是管理信息系統的一個典型用例. 1.1 背景背景1.1.1 排課管理系統排課管理系統 如今隨著教育事業的發展,學校對教師課程安排的復雜度的增加,一個單位,各個學科每天的課程安排以及教室資源的分配,排課工資等信息量將迅速的增加,傳統的手工的處理方式已經跟不上信息爆炸般的擴增.所以開發一種可靠,高效的教師排課管理

5、系統是很有必要的.1.2 開發排課管理系統的目的與原則開發排課管理系統的目的與原則排課管理系統的主要目的是服務與中小學,各高校的管理者,方便其管理本校排課信息的軟件系統.其原則是做到,界面友好人性,操作簡單,可靠.1.3 開發環境介紹開發環境介紹1.3.1 開發平臺開發平臺 本教師管理系統的開發平臺為微軟 windows xp visual basic 6.0 以及微軟的 Access 作為操作數據庫.1.3.2數據庫設計工具數據庫設計工具ACCESSACCESS 數據庫管理系統數據庫管理系統 Microsoft Access 介紹:使用 Microsoft Access，可以在單一的數據庫文

6、件中管理所有的信息。在這個文件中，用戶可以將自己的數據分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯機窗體來查看、添加及更新表中的數據；使用查詢來查找并檢索所要的數據；也可以使用報表以特定的版面布置來分析及打印數據。 如果要保存數據，請為每一種類型的信息創建一個表。如果要從查詢、窗體或報表中的多個表中將數據合并在一起，就要定義各個表之間的關系。 如果要搜索并檢索符合指定條件的數據，包括來自多個表中的數據，就要創建查詢。查詢的同時也可以更新或刪除多條記錄，并對數據執行內嵌或自定義的計算。 如果要簡單地直接在某個表中查看、輸入及更改數據，請創建一個窗體。在打開一個窗體時，Microso

7、ft Access 將從一個或多個表中檢索數據，并使用用戶在“窗體向導”選擇的版面布局或所創建的版面布局，將窗體顯示在屏幕上。 如果要分析數據或將數據以特定的方式打印出來，請創建一個報表。例如，可以打印一份將數據分組并計算數據總和的報表，也可以打印另一份帶有各種數據格式的打印郵件標簽的報表。第二章第二章 系統設計系統設計2.1 系統分析系統分析本排課管理系統主要由以下幾大模塊構成.一.教職員入庫信息.二.排課管理三.教職員帶課查詢四.本學期課程設置五.打印課程表六.打印教師代課表2.22.2 系統流程和操作方式設計系統流程和操作方式設計系統登陸主界面教職員工入庫信息排課管理教職員工帶課查詢本學

8、期課程安排打印課程表打印教師帶課表第三章第三章 系統界面設計系統界面設計3.13.1 系統界面設計系統界面設計1.1.登陸界面登陸界面代碼分析代碼分析:Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() set the global var to false to denote a failed login LoginSucceeded = False Unload fmStartEnd SubPrivate Sub cmdOK_Click() check for correct passwo

9、rd If txtPassword = password Then place code to here to pass the success to the calling sub setting a global var is the easiest LoginSucceeded = True Me.Hide fmStart.Show Else MsgBox Invalid Password, try again!, , Login txtPassword.SetFocus SendKeys Home+End End IfEnd SubPrivate Sub Form_Load() Loa

10、d fmStart fmStart.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 IntegerFo

11、r 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: rs.MoveNext Command1(0).Enabled = True Command1(1).Enabled = True Case 3: rs.MoveLast End Select displayInfoEnd

12、IfGoTo ok:Err:Call dataOverok:End SubPrivate Sub dataOver()If rs.BOF 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).Enabl

13、ed = False Command1(3).Enabled = False Else MsgBox 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 Cal

14、l toNull Case 1: j = MsgBox(你確定要刪除本記錄嗎？, 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 Next i

15、 rs.Update 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)Frame1.Enabled = Not okFr

16、ame3.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) strBak(i) = Text1(i).Text

17、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.CloseSet qrs = notingcon.CloseSet con = NothingKK:End SubPrivate Sub queryComm_Click() slSql = select * from Teache

18、r 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 End If Next i End If qrs.CloseEnd Sub3. 排課管理界面排課管理界面代碼分析代碼分析:Option Exp

19、licitDim 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 Stri

20、ngDim 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 End IfCase 1: cb_Click (0) EnableSave (True) cb(1).Enabled = False Case 2: If TrChanged Then strSql = delete * from trclass where cc

21、lasscode= & 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( & ClassCode & , + + Trim(Label2(i).Caption) + , + + Trim(Combo2(i).Text) + ) me.caption = strSql c

22、onn.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= & ClassCode & 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

23、 strSql = insert into classarray values( & ClassCode & , & Y & , & X & , & Trim(Combo3(i).Text) & ) me.caption = strSql conn.Execute strSql End If Next i ClassChanged = False rsClassAry.Requery End If EnableSave (False) Case 3: For i = 0 To sjCnt - 1 Combo2(i).Text =

24、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 GoTo okerrDeal:MsgBox Error Unknownok:Me.MousePointer = 0End SubPrivate Sub displayInfo()For j = 0 To sjCnt - 1 strSql = select cteacher from trclass where cclasscode= &

25、 ClassCode & and csubject= & Trim(Label2(j).Caption) & Text1.Text = strSql me.caption = strSql Set 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).Ca

26、ption) & ) 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.MoveFirst Combo2(j).Text = rsTrAry.Fields(0) rsTrAry!cteacher Combo2(j).Tag = rsTrAry.Fields(0) rsTrAry!ctea

27、cher EnableSave (False) Else MsgBox nodata, vbOKOnly Combo2(j).Text = Combo2(j).Tag = EnableSave (True) 這里語句可能出錯 End IfNext jFor i = 0 To 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 &

28、; and itimen= & X me.caption = strSql rsClassAry.Open strSql, conn, adOpenStatic, adLockOptimistic Set rsClassAry = conn.Execute(strSql) 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 =

29、EnableSave (True) End IfNext i End 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 = True End SubPrivate Sub Command1_Click()Timer1.Enabled

30、 = 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.RecordsetProvider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:WINDOWS

31、DesktopdataUse.mdbconn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & dataUse.mdbrsTr.Open select * from teacher, conn, adOpenStatic, adLockOptimisticrsSj.Open select * from subject, conn, adOpenStatic, adLockOptimisticminht = 4090maxHt = 9000sjCnt = rsSj.RecordCountCall co

32、mboInitEnableSave (False)cb(1).Enabled = FalseCommand1.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 12 Combo1(0).AddItem (i) Next iFor i = 1 To 20 Combo1(

33、1).AddItem (i)Next iFor i = 0 To 9 Combo2(i).Text = If i 0 Then For j = 0 To trCnt - 1 the last 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) rsTr.MoveNext Wend End IfNext iFor i = 0 To 49 Combo3(i).Text = For j =

34、 0 To sjCnt - 1 Combo3(i).AddItem (Label2(j).Caption) Next jNext i End 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

35、 rsTrAry = NothingSet rsClassAry = Nothingconn.CloseSet conn = NothingErr: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

36、Command1.Caption = Command1.ToolTipText = 課程表在這里! Me.Height = minht Timer2.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

37、 Then r = 0End IfIf g 255 Then g = 0End IfIf b 255 Then b = 0End If End Sub4. 教職員帶課查詢教職員帶課查詢界面設計界面設計:代碼分析代碼分析:Option ExplicitDim conn As ADODB.ConnectionDim rs As ADODB.RecordsetDim rsTr As ADODB.RecordsetDim i, j, value, idx As IntegerDim strName, strSql As StringPrivate Type DataGetclass As String

38、Sjname As StringTw As IntegerTn As IntegerEnd TypePrivate Sub Command1_Click()On Error GoTo bnEndMe.MousePointer = 11Dim sSql As StringDim dgUse As DataGetSelect Case IndexCase 0: Call ClearCombo strName = LTrim$(RTrim$(Combo1.Text) If Len(strName) 0 Then sSql = strSql & & strName & Set

39、rs = conn.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.S

40、jname) Combo3(idx).Text = Combo3(idx).List(value) rs.MoveNext Wend Else MsgBox 沒有得到相關數據，請檢查, vbOKOnly + vbInformation, 數據捕捉 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 lcnt Else Ms

41、gBox 請輸入或選擇一教職員姓名, vbInformation + vbOKOnly, 查詢輸入 End If End SelectbnEnd: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 Form_Load()Me.MousePointer = 11On E

42、rror GoTo KKaSet conn = New ADODB.Connectionconn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & dataUse.mdbSet rsTr = conn.Execute(select ctrname from teacher)For i = 0 To 9 Label3(i).Caption = i + 1Next iWhile Not rsTr.EOF Combo1.AddItem (rsTr.Fields(0) rsTr.MoveNext WendC

43、all 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.csubject=classarray.csjname and teacher.ctrname=select trcl

44、ass.cclasscode,trclass.csubject,classarray.itimew,classarray.itimenFrom teacher, trclass, classarrayWhere teacher.ctrname = trclass.cteacher And trclass.cclasscode = classarray.cclasscodeand trclass.csubject=classarray.csjnameand teacher.ctrname=陳strSql = select teacher.ctrname,trclass.cclasscode,cl

45、assarray.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 Unknownok:Me.MousePointer = 0End SubPrivate Sub Form_Unload(Cancel As Integer)On E

46、rror 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 Str

47、ingDim 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 9 strTxt = Trim$(LTrim$(Txt(lcnt).Text) If Len(strTxt) 0 Then rs.AddNew rs!csjname

48、= strTxt rs.Update End If Next lcnt CanSave (False)Case 2: For lcnt = 0 To 9 Txt(lcnt) = str(lcnt) Next lcnt CanSave (False) End Select Exit Subex:MsgBox database error, vbOKOnly + vbExclamation, errorEnd SubPrivate Sub Form_Load()strSql = insert into subject values( Set con = New ADODB.ConnectionSe

49、t rs = New ADODB.RecordsetCall clearTxtCanSave (False)con.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & dataUse.mdbrs.Open select * from subject, con, adOpenStatic, adLockOptimisticCall displayInfoEnd SubPrivate Sub CanSave(bSave As Boolean)Frame1.Enabled = bSavecn(1).Enab

50、led = 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).Text lcnt = lcnt + 1 rs.MoveNext WendEnd SubPrivate Sub clearTxt()Dim lcnt As IntegerFor lc

51、nt = 0 To 9 Txt(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.RecordsetclassArray 表Dim cacon As ADODB.ConnectionDim cars As ADODB.Record

52、setDim sqlStr As StringDim ClassCode As StringDim wStr(5) As StringPrivate Sub 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 c

53、acon.Execute sqlStr cars.Open sqlStr, cacon, adOpenStatic, adLockOptimistic cars.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)

54、 + ) ctCon.Execute strSql clearStr i = i + 1 Wend wStr(cars!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

55、= insert into tempCT values( & i & , + + wStr(1) + , + + 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 classRe

56、p.ShowEnd SubPrivate Sub Form_Load() For i = 1 To 12 gradeCombox.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 = Ne

57、w ADODB.Connection Set ctrs = New ADODB.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 = Nothi

58、ngEnd Sub7. 打印教師代課表打印教師代課表界面設計界面設計:代碼設計代碼設計:臨時教師代課表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 clearStr() For i = 1 To 5 wStr(i)

59、 = clStr(i) = Next iEnd SubPrivate Sub Update_tt() ttCon.Execute delete * from tempTT strSql = select trclass.cclasscode,trclass.csubject,classarray.itimew,classarray.itimen + _ from teacher,trclass,classarray + _where teacher.ctrname=trclass.cteacher and trclass.cclasscode=classarray.cclasscode + _

60、 and trclass.csubject=classarray.csjname and teacher.ctrname= + + trname + _+ order by iTimeN trcon.Execute strSql trrs.Open strSql, trcon, adOpenStatic, adLockOptimistic trrs.MoveFirst Dim i As Integer i = 1 clearStr While Not trrs.EOF While trrs!iTimeN i strSql = 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 strSql clearStr i = i + 1 Wend wStr(trrs!iT