【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() Dim i, j As Integer For i = 1999 To 2021 i i Next i = 0 = 0 For i = 1 To 12 i i Next i = 0 = 0 For i = 1 To 31 i i Next i = 0 = 0 (專業(yè) ) (年級 ) (課程名稱 ) (教材 ) (任課老師 ) 39。 (課時 ) (課程性質(zhì) ) (考試性質(zhì) ) (=) (專業(yè) ) (年級 ) (課程名稱 ) (教材 ) (任課老師 ) 39。 (課時 ) (課程性質(zhì) ) (考試性質(zhì) ) (=) (學(xué)期 ) = = = = = = = = = = = = = End Sub 打印統(tǒng)計 運行打印統(tǒng)計后可以按條件把符合條件的各種信息以報表形式羅列出來，各種信息還可以以打印出來或以報表形式保 存。打印統(tǒng)計包括班級統(tǒng)計分析、檔案統(tǒng)計分析、課程統(tǒng)計分析、成績統(tǒng)計分析和交費統(tǒng)計分析五類。 班級統(tǒng)計分析 代碼如下： Private Sub Command1_Click() Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String SQLoriginal = SELECT 年級 ,專業(yè) ,人數(shù) ,輔導(dǎo)員 ,備注 FROM 班級表 SQLadd = WHERE 年級 =年級 AND 專業(yè) =專業(yè) SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 年級 =39。 + Text1 + 39。 End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 專業(yè) =39。 + Text2 + 39。 End If If = 1 And IsNumeric(Text3) Then SQLadd = SQLadd + and 人數(shù) =39。 + Text3 + 39。 End If If = 1 And Not IsNull(Text4) Then SQLadd = SQLadd + and 輔導(dǎo)員 =39。 + Text4 + 39。 End If strSql = SQLoriginal + SQLadd + SQLorde If = 1 Then End If strSql vbModal = = = = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = = = End Sub Private Sub Text1_Change() End Sub Private Sub Text3_Change() End Sub 檔案分析統(tǒng)計 代碼如下： Private Sub Command1_Click() Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String On Error Resume Next SQLoriginal = SELECT * FROM 學(xué)生檔案 SQLadd = WHERE 學(xué)號 =學(xué)號 AND 姓名 =姓名 SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 學(xué)號 =39。 + Text1 + 39。 End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 姓名 =39。 + Text2 + 39。 End If If = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + and 專業(yè) =39。 + Text3 + 39。 End If If = 1 And IsDate(DTPicker1) Then SQLadd = SQLadd + and 出生年月 = amp。 amp。 End If strSql = SQLoriginal + SQLadd + SQLorde If = 1 Then End If strSql vbModal = = = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 39。 (男 ) 39。 (女 ) = = = End Sub Private Sub Text1_Change() End Sub 課程統(tǒng)計分析 代碼如下： Private Sub Command1_Click() Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String SQLoriginal = SELECT * FROM 課程表 SQLadd = WHERE 專業(yè) =專業(yè) AND 課程名稱 =課程名稱 SQLorder = If = 1 And Not IsNull(Text1) Then SQLadd = SQLadd + and 專業(yè) =39。 + Text1 + 39。 End If If = 1 And Not IsNull(Combo1) Then SQLadd = SQLadd + and 課程性質(zhì) =39。 + Combo1 + 39。 End If 39。If = 1 And Not IsNumeric(Text2) Then 39。SQLadd = SQLadd + and 課時 =39。 + Text2 + 39。 39。End If If = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + and 課程名稱 =39。 + Text3 + 39。 End If strSql = SQLoriginal + SQLadd + SQLorde If = 1 Then End If strSql vbModal = = 39。 = = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = 39。 = = = (必修 ) (選修 ) (自開 ) End Sub Private Sub Text3_Change() End Sub 成績統(tǒng)計分析 代碼如下： Private Sub Command1_Click() Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String On Error Resume Next SQLoriginal = SELECT * FROM 成績表 SQLadd = WHERE 學(xué)號 =學(xué)號 AND 姓名 =姓名 SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 學(xué)號 =39。 + Text1 + 39。 End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 姓名 =39。 + Text2 + 39。 End If If = 1 And Not IsNull(Text3) Then SQLadd = SQLadd + and 考試科目 =39。 + Text3 + 39。 End If If = 1 Then SQLadd = SQLadd + and 科目分?jǐn)?shù) 60 End If strSql = SQLoriginal + SQLadd + SQLorde If = 1 Then End If strSql vbModal = = = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = = 39。 = End Sub Private Sub Text1_Change() End Sub 交費統(tǒng)計分析 代碼如下： Private Sub Command1_Click() Dim SQLoriginal As String Dim SQLadd As String Dim SQLorder As String Dim strSql As String SQLoriginal = SELECT 學(xué)號 ,姓名 ,學(xué)期 ,本學(xué)期應(yīng)交費用 ,實際交費 ,本次欠費 FROM 交費表 SQLadd = WHERE 學(xué)號 =學(xué)號 AND 姓名 =姓名 SQLorder = If = 1 And IsNumeric(Text1) Then SQLadd = SQLadd + and 學(xué)號 =39。 + Text1 + 39。 End If If = 1 And Not IsNull(Text2) Then SQLadd = SQLadd + and 姓名 =39。 + Text2 + 39。 End If If = 1 And IsNumeric(Text3) Then SQLadd = SQLadd + and 實際交費 =39。 + Text3 + 39。 End If If = 1 And IsNumeric(Text4) Then SQLadd = SQLadd + and 本次欠費 =39。 + Text4 + 39。 End If strSql = SQLoriginal + SQLadd + SQLorde If = 1 Then End If strSql vbModal = = = = End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = = = = End Sub Private Sub Text1_Change() End Sub