【正文】 End IfstrSql = SQLoriginal + SQLadd + SQLordeIf = 1 Then End If strSql vbModal = = = = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() = = = = End SubPrivate Sub T。End IfIf = 1 And IsNumeric(Text4) Then SQLadd = SQLadd + and 本次欠費(fèi)=39。End IfIf = 1 And IsNumeric(Text3) Then SQLadd = SQLadd + and 實(shí)際交費(fèi)=39。End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 姓名=39。 = End SubPrivate Sub Text1_Change()End Sub交費(fèi)統(tǒng)計(jì)分析代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String SQLoriginal = SELECT 學(xué)號(hào),姓名,學(xué)期,本學(xué)期應(yīng)交費(fèi)用,實(shí)際交費(fèi),本次欠費(fèi) FROM 交費(fèi)表 SQLadd = WHERE 學(xué)號(hào)=學(xué)號(hào) AND 姓名=姓名 SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 學(xué)號(hào)=39。 + Text3 + 39。 + Text2 + 39。 + Text1 + 39。 = = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() = 39。 + Text3 + 39。39。SQLadd = SQLadd + and 課時(shí)=39。End If39。End If If = 1 And Not IsNull(Combo1) Then SQLadd = SQLadd + and 課程性質(zhì)=39。 (女) = = = End SubPrivate Sub Text1_Change()End Sub課程統(tǒng)計(jì)分析代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String SQLoriginal = SELECT * FROM 課程表 SQLadd = WHERE 專業(yè)=專業(yè) AND 課程名稱=課程名稱 SQLorder = If = 1 And Not IsNull(Text1) Then SQLadd = SQLadd + and 專業(yè)=39。 End IfstrSql = SQLoriginal + SQLadd + SQLordeIf = 1 Then End If strSql vbModal = = = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load()39。End IfIf = 1 And IsDate(DTPicker1) Then SQLadd = SQLadd + and 出生年月= amp。End IfIf = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + and 專業(yè)=39。End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 姓名=39。End IfstrSql = SQLoriginal + SQLadd + SQLordeIf = 1 Then End If strSql vbModal = = = = End SubPrivate Sub Command2_Click() Unload MeEnd SubPrivate Sub Form_Load() = = = = End SubPrivate Sub Text1_Change()End SubPrivate Sub Text3_Change()End Sub檔案分析統(tǒng)計(jì)代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String On Error Resume NextSQLoriginal = SELECT * FROM 學(xué)生檔案 SQLadd = WHERE 學(xué)號(hào)=學(xué)號(hào) AND 姓名=姓名 SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 學(xué)號(hào)=39。End IfIf = 1 And Not IsNull(Text4) Then SQLadd = SQLadd + and 輔導(dǎo)員=39。End IfIf = 1 And IsNumeric(Text3) Then SQLadd = SQLadd + and 人數(shù)=39。End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 專業(yè)=39。班級(jí)統(tǒng)計(jì)分析代碼如下：Private Sub Command1_Click()Dim SQLoriginal As StringDim SQLadd As StringDim SQLorder As StringDim strSql As String SQLoriginal = SELECT 年級(jí),專業(yè),人數(shù),輔導(dǎo)員,備注 FROM 班級(jí)表 SQLadd = WHERE 年級(jí)=年級(jí) AND 專業(yè)=專業(yè) SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 年級(jí)=39。 (課時(shí)) (課程性質(zhì)) (考試性質(zhì)) (=) (學(xué)期) = = = = = = = = = = = = = End Sub 打印統(tǒng)計(jì)運(yùn)行打印統(tǒng)計(jì)后可以按條件把符合條件的各種信息以報(bào)表形式羅列出來(lái)，各種信息還可以以打印出來(lái)或以報(bào)表形式保存。 sqlstr Unload Me 1End IfIf True And True Then MsgBox 請(qǐng)選擇查詢方式！, vbOKOnly, 警告 Exit SubEnd IfEnd SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load()Dim i, j As IntegerFor i = 1999 To 2010 i iNext i = 0 = 0 For i = 1 To 12 i iNext i = 0 = 0For i = 1 To 31 i iNext i = 0 = 0 (專業(yè)) (年級(jí)) (課程名稱) (教材) (任課老師)39。 Format(str2, yyyymmdd) amp。 Trim() amp。 Format(str1, yyyymmdd) amp。 Trim() amp。 Else sqlstr = sqlstr amp。 = amp。 and amp。 = amp。 Trim(Combo11) str1 = Format(str1, yyyymmdd) str2 = Format(str2, yyyymmdd) If sqlstr = Then sqlstr = amp。 Trim(Combo10) amp。 Trim(Combo8) str2 = Trim(Combo9) amp。 Trim(Combo7) amp。 KCCX2) = Then MsgBox 請(qǐng)輸入查詢類別！, 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。 KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 課程表 where amp。 or amp。 KCCX1 Else strTiaoJian = select * from 課程表 where amp。 KCCX2 End IfElseIf = True Then If KCCX1 = Then strTiaoJian = select * from 課程表 where amp。 KCCX1 amp。 KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 課程表 where amp。 39。 amp。 amp。 39。 amp。 amp。 amp。 39。 amp。 amp。 39。 amp。 amp。 amp。 = = = = = = = = End SubPrivate Sub Text1_Change()End SubPrivate Sub Text2_Change()End SubPrivate Sub Text8_Change()End Sub課程管理：課程查詢當(dāng)輸入查詢類別、運(yùn)算符和條件后可以查找到所需要的課程設(shè)置，或按查詢時(shí)間來(lái)查詢，輸入所要查找的時(shí)間段，就可查到所要的課程設(shè)置。 = (課程性質(zhì))39。 = (課時(shí))39。 = (教材)39。 = (學(xué)期)39。 = (專業(yè))39。 39。 amp。 =