【正文】 + c。 + clStr(4) + 39。 + clStr(3) + 39。 + clStr(2) + 39。 + clStr(1) + 39。 + wStr(5) + _ 39。 + wStr(4) + 39。 + wStr(3) + 39。 + wStr(2) + 39。 + wStr(1) + 39。 i amp。 + clStr(5) + 39。 + clStr(4) + 39。 + clStr(3) + 39。 + clStr(2) + 39。 + clStr(1) + 39。 + wStr(5) + _ 39。 + wStr(4) + 39。 + wStr(3) + 39。 + wStr(2) + 39。 + wStr(1) + 39。 i amp。 + trname + 39。臨時(shí)教師代課表 Dim ttCon As Dim ttrs As 39。 amp。 \ Set ctCon = New Set ctrs = New provider=。 data source= amp。 . amp。 + wStr(5) + 39。 + wStr(4) + 39。 + wStr(3) + 39。 + wStr(2) + 39。 + wStr(1) + 39。 i amp。 ) strSql clearStr While i 10 39。 , + 39。 , + 39。 , + 39。 , + 39。 , + 39。添加一條課程記錄 strSql = insert into tempCT values( amp。 + wStr(5) + 39。 + wStr(4) + 39。 + wStr(3) + 39。 + wStr(2) + 39。 + wStr(1) + 39。 i amp。 order by iTimeN sqlStr sqlStr, cacon, adOpenStatic, adLockOptimistic Dim i As Integer i = 1 clearStr While (Not ) While cars!iTimeN i 39。 39。 amp。刪除所有以前的記錄 (delete * from tempCT) 39。臨時(shí)課表 Dim ctCon As Dim ctrs As 39。 amp。 Set con = New Set rs = New Call clearTxt CanSave (False) provider=。On Error GoTo ex: Dim lt As Integer Dim strTxt As String Select Case Index Case 0: CanSave (True) Case 1: 37 (delete * from subject) For lt = 0 To 9 strTxt = Trim$(LTrim$(Txt(lt).Text)) If Len(strTxt) 0 Then rs!csjname = strTxt End If Next lt CanSave (False) Case 2: For lt = 0 To 9 Txt(lt) = str(lt) Next lt CanSave (False) End Select Exit Sub ex: MsgBox database error, vbOKOnly + vbExclamation, error End Sub Private Sub Form_Load() 39。strSql = select , + _ from teacher join trclass on = join classarray + _ on = where = value = 0 GoTo ok KKa: MsgBox Error Unknown ok: = 0 36 End Sub Private Sub Form_Unload(Cancel As Integer) On Error GoTo KK: Set rs = Nothing Set rsTr = Nothing Set conn = Nothing KK: End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Opn_Click(Index As Integer) value = Index Call Command1_Click End Sub Form4: Option Explicit Dim con As Dim rs As Dim str(9) As String 39。陳 39。and = 39。From teacher, trclass, classarray 39。 \ Set rsTr = (select ctrname from teacher) For i = 0 To 9 Label3(i).Caption = i + 1 Next i While Not ((0)) Wend Call ClearCombo strSql = select , + _ from teacher,trclass,classarray + _ where = and = + _ and = and = 39。 data source= amp。 班 ) Combo3(idx).AddItem () 34 Combo3(idx).Text = Combo3(idx).List(value) Wend Else MsgBox 沒有得到相關(guān)數(shù)據(jù)，請檢查 , vbOKOnly + vbInformation, 數(shù)據(jù)捕捉 End If Dim lt As Integer For lt = 0 To 49 If Combo3(lt).ListCount 2 Then Combo3(lt).BackColor = RGB(200, 255, 255) Combo3(lt).AddItem (注意有重課 ) End If Next lt Else MsgBox 請輸入或選擇一教職員姓名 , vbInformation + vbOKOnly, 查詢輸入 End If 39。 39。 amp。Case 0: Call ClearCombo strName = LTrim$(RTrim$()) If Len(strName) 0 Then sSql = strSql amp。b = 20 = RGB(r, g, b) = RGB(255 r, 255 g, 255 b) r = r + 15 g = g + 39 b = b + 87 If r 255 Then r = 0 End If If g 255 Then g = 0 End If If b 255 Then b = 0 End If End Sub Form3: Option Explicit Dim conn As Dim rs As 33 Dim rsTr As Dim i, j, value, idx As Integer Dim strName, strSql As String Private Type DataGet class As String Sjname As String Tw As Integer Tn As Integer End Type Private Sub Command1_Click() On Error GoTo bnEnd = 11 Dim sSql As String Dim dgUse As DataGet 39。r = 100 39。 = = minht = 0 End Sub Private Sub boInit() Dim trCnt As Integer trCnt = Combo1(0).Text = Combo1(1).Text = For i = 1 To 12 Combo1(0).AddItem (i) Next i For i = 1 To 20 Combo1(1).AddItem (i) Next i For i = 0 To 9 Combo2(i).Text = If i sjCnt Then Label2(i).Caption = rsSj!csjname Else Label2(i).Visible = False 30 Combo2(i).Visible = False End If Label3(i).Caption = i + 1 Next i For i = 0 To sjCnt 1 If i 0 Then For j = 0 To trCnt 1 39。 amp。Data Source=C:\WINDOWS\Desktop\ provider=。Provider=。EnableSave (False) Else Combo3(i).Text = Combo3(i).Tag = 39。 = strSql 39。 and itimen= amp。 and itimew= amp。 ClassCode amp。這里語句可能出錯(cuò) End If Next j For 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=39。39。39。39。39。39。39。39。39。39。39。39。39。39。 MsgBox nodata, vbOKOnly Combo2(j).Text = Combo2(j).Tag = 39。 rsTrAry!cteacher 39。 Combo2(j).Text = (0) 39。這里用另一種方法創(chuàng)建 recordset 39。 39。While Not 39。 strSql amp。) 39。 Trim(Label2(j).Caption) amp。 and csubject=39。 ClassCode amp。Set tpRs = (select cteacher from trclass where cclasscode=39。 = strSql Set rsTrAry = (strSql) 39。 39。 Trim(Label2(j).Caption) amp。 and csubject=39。 ClassCode amp。 = strSql strSql End If Next i 26 ClassChanged = False 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 =