【正文】 39。, myCon, 3, 2 myRs!年級(jí) = myRs!學(xué)期 = myRs!課程名稱(chēng) = myRs!教材 = myRs!任課老師 = myRs!課時(shí) = myRs!上課地點(diǎn) = myRs!課程性質(zhì) = myRs!考試性質(zhì) = MsgBox 您確定要修改嗎？, vbYesNo, 提示 = = 39。 = = = = = = = = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Command3_Click() Unload Me 1End SubPrivate Sub DataGrid1_Click()39。 = select * from 課程表 where 專(zhuān)業(yè) = 39。 amp。 Trim() amp。 39。39。 = (專(zhuān)業(yè))39。 = (年級(jí))39。 = (學(xué)期)39。 = (課程名稱(chēng))39。 = (教材)39。 = (任課老師)39。 = (課時(shí))39。 = (上課地點(diǎn))39。 = (課程性質(zhì))39。 = (考試性質(zhì))End SubPrivate Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)End SubPrivate Sub Form_Activate() = strTiaoJianSet = End SubPrivate Sub Form_Load() (必修) (選修) (自開(kāi)) (考試) (查考) = = 39。 = = = = = = = = End SubPrivate Sub Text1_Change()End SubPrivate Sub Text2_Change()End SubPrivate Sub Text8_Change()End Sub課程管理：課程查詢(xún)（如：界面如圖三）（圖三）當(dāng)輸入查詢(xún)類(lèi)別、運(yùn)算符和條件后可以查找到所需要的課程設(shè)置，或按查詢(xún)時(shí)間來(lái)查詢(xún)，輸入所要查找的時(shí)間段，就可查到所要的課程設(shè)置。代碼如下：Dim sqlstr As StringPrivate Sub Combo1_Change()End SubPrivate Sub Combo2_Change()End SubPrivate Sub Combo4_Change()End SubPrivate Sub Combo5_Change()End SubPrivate Sub Combo7_Change()End SubPrivate Sub Command1_Click()Dim a As StringDim KCCX1 As StringDim KCCX2 As StringDim str1 As StringDim str2 As StringIf = True Thena = Trim(Combo2)Select Case a Case = KCCX1 = amp。 amp。 amp。 amp。 39。 amp。 Trim(Text1) amp。 39。 Case like KCCX1 = Instr(1, amp。 amp。 ,39。 amp。 Trim() amp。 39。)0 End Select a = Trim(Combo4)Select Case a Case = KCCX2 = amp。 amp。 amp。 amp。 39。 amp。 Trim(Text2) amp。 39。 Case like KCCX2 = Instr(1, amp。 amp。 ,39。 amp。 Trim() amp。 39。)0 End Select If = True Then If KCCX1 = Then strTiaoJian = select * from 課程表 where amp。 KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 課程表 where amp。 KCCX1 Else strTiaoJian = select * from 課程表 where amp。 KCCX1 amp。 and amp。 KCCX2 End IfElseIf = True Then If KCCX1 = Then strTiaoJian = select * from 課程表 where amp。 KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 課程表 where amp。 KCCX1 Else strTiaoJian = select * from 課程表 where amp。 KCCX1 amp。 or amp。 KCCX2 End IfElse If KCCX1 = Then strTiaoJian = select * from 課程表 where amp。 KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 課程表 where amp。 KCCX1 Else MsgBox 請(qǐng)選擇連接方式！, vbOKOnly, 警告 Exit Sub End IfEnd If If (KCCX1 amp。 KCCX2) = Then MsgBox 請(qǐng)輸入查詢(xún)類(lèi)別！, vbOKOnly, 警告Exit SubElse Unload Me 1End IfEnd IfIf = True Then If Val(Combo6) Val(Combo9) Then MsgBox 請(qǐng)正確選擇年份！, vbOKOnly + vbExclamation, 信息提示 Exit Sub Else If Val(Combo6) = Val(Combo9) Then If Val(Combo7) Val(Combo10) Then MsgBox 請(qǐng)正確選擇月份！, vbOKOnly + vbExclamation, 信息提示 Exit Sub Else If Val(Combo7) = Val(Combo10) Then If Val(Combo8) Val(Combo11) Then MsgBox 請(qǐng)正確選擇日期！, vbOKOnly + vbExclamation, 信息提示 Exit Sub End If End If End If End If End If If = Or = Or = Or = Or = Or = Then MsgBox 請(qǐng)輸入完整的日期, vbOKOnly, 警告 Exit Sub End If str1 = Trim(Combo6) amp。 amp。 Trim(Combo7) amp。 amp。 Trim(Combo8) str2 = Trim(Combo9) amp。 amp。 Trim(Combo10) amp。 amp。 Trim(Combo11) str1 = Format(str1, yyyymmdd) str2 = Format(str2, yyyymmdd) If sqlstr = Then sqlstr = amp。 Trim() amp。 = amp。 Format(str1, yyyymmdd) amp。 and amp。 Trim() amp。 = amp。 Format(str2, yyyymmdd) amp。 Else sqlstr = sqlstr amp。 and amp。 Trim() amp。 = amp。 Format(str1, yyyymmdd) amp。 and amp。 Trim() amp。 = amp。 Format(str2, yyyymmdd) amp。 End If If sqlstr = Then MsgBox 請(qǐng)先輸入查找時(shí)間！ Exit Sub End If strTiaoJian = select 專(zhuān)業(yè),年級(jí),學(xué)期,課程名稱(chēng),教材,任課老師,課時(shí),上課地點(diǎn),課程性質(zhì),考試性質(zhì) from 課程表 where amp。 sqlstr Unload Me 1End IfIf True And True Then MsgBox 請(qǐng)選擇查詢(xún)方式！, vbOKOnly, 警告 Exit SubEnd IfEnd SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load()Dim i, j As IntegerFor i = 1999 To 2022 i iNext i = 0 = 0 For i = 1 To 12 i iNext i = 0 = 0For i = 1 To 31 i iNext i = 0 = 0 (專(zhuān)業(yè)) (年級(jí)) (課程名稱(chēng)) (教材) (任課老師)39。 (課時(shí)) (課程性質(zhì)) (考試性質(zhì)) (=) (專(zhuān)業(yè)) (年級(jí)) (課程名稱(chēng)) (教材) (任課老師)39。 (課時(shí)) (課程性質(zhì)) (考試性質(zhì)) (=) (學(xué)期) = = = = = = = = = = = = = End Sub 打印統(tǒng)計(jì)運(yùn)行打印統(tǒng)計(jì)后可以按條件把符合條件的各種信息以報(bào)表形式羅列出來(lái)，各種信息還可以以打印出來(lái)或以報(bào)表形式保存。打印統(tǒng)計(jì)包括班級(jí)統(tǒng)計(jì)分析、檔案統(tǒng)計(jì)分析、課程統(tǒng)計(jì)分析、成績(jī)統(tǒng)計(jì)分析和交費(fèi)統(tǒng)計(jì)分析五類(lèi)。班級(jí)統(tǒng)計(jì)分析（如：界面如圖四）（圖四）代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String SQLoriginal = SELECT 年級(jí),專(zhuān)業(yè),人數(shù),輔導(dǎo)員,備注 FROM 班級(jí)表 SQLadd = WHERE 年級(jí)=年級(jí) AND 專(zhuān)業(yè)=專(zhuān)業(yè) SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 年級(jí)=39。 + Text1 + 39。End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 專(zhuān)業(yè)=39。 + Text2 + 39。End IfIf = 1 And IsNumeric(Text3) Then SQLadd = SQLadd + and 人數(shù)=39。 + Text3 + 39。End IfIf = 1 And Not IsNull(Text4) Then SQLadd = SQLadd + and 輔導(dǎo)員=39。 + Text4 + 39。End IfstrSql = SQLoriginal + SQLadd + SQLordeIf = 1 Then End If strSql vbM