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

　　

【正文】 課”按鈕的“單擊”事件中添加如下代 碼： Private Sub Command3_Click() = select * from 課程信息 where 課程名稱 =39。 + + 39。and 課程編號 =val(39。 + + 39。)and 拼音碼 =39。 + + 39。 = select 選課表 .學(xué)號 ,選課表 .課程編號 ,選課表 .課程名稱 ,選課表 .課程簡稱 ,選課表 .拼 音碼 ,選課表 .本學(xué)期課程 ,選課表 .教師 ,選課表 .開課系別 ,選課表 .學(xué)分 ,選課表 .上課時間天 ,選課表 .上課時間節(jié) ,選課表 .上課地點 from [選課表 ] where 學(xué)號 =39。 + + 39。 If = Then MsgBox 請輸入學(xué)生學(xué)號 ElseIf (本學(xué)期課程 ) = False Then MsgBox 這門本不是本學(xué)期課程 ,請核實 ElseIf 1 Then MsgBox 沒有開設(shè)該課程 ElseIf 0 And 1 Then (學(xué)號 ) = (課程編號 ) = (課程編號 ) (課程名稱 ) = (課程名稱 ) (課程簡稱 ) = (課程簡稱 ) (拼音碼 ) = (拼音碼 ) ( 本 學(xué) 期 課 程 ) = ( 本 學(xué) 期 課 程 ) (上課時間天 ) = (上課時間天 ) (上課時間節(jié) ) = (上課時間節(jié) ) ( 上課地點 ) = ( 上課地點 ) (教師 ) = (教師 ) (開課系別 ) = (開課系別 ) (學(xué)分 ) = (學(xué)分 ) = select 選課表 .學(xué)號 ,選課表 .課程編號 ,選課表 .課程名稱 ,選課表課程簡稱 ,選課表 .拼音碼 ,選課表 .本學(xué)期課程 ,選課表 .教師 ,選課表 .開課系 別 ,選課表 .學(xué)分 ,選課表 .上課時間天 ,選課表 .上課時間節(jié) ,選課表 .上課地點 from [選課表 ] where 學(xué)號 =39。 + + 39。 GoTo a End If While Not If (課程編號 ) = And (課程名稱) = And (拼音碼 ) = Then MsgBox 已選擇了這門課程 GoTo a 30 End If If (上課時間天 ) = (上課時間天 ) And (上課時間節(jié) ) = (上課時間節(jié) ) Then MsgBox 該課程的上課時間與其它課程的上課時間沖突 End If Wend = select * from 課程信息 where 課程名稱 =39。 + + 39。and 課程編號 =val(39。 + + 39。)and 拼音碼 =39。 + + 39。 = select 選課表 .學(xué)號 ,選課表 .課程編號 ,選課表 .課程名稱 ,選課表 .課程簡稱 ,選課表 .拼音碼 ,選課表 .本學(xué)期課程 ,選課表 .教師 ,選課表 .開課系別 ,選課表 .學(xué)分 ,選課表 .上課時間天 ,選課表 .上課時間節(jié) ,選課表 .上課地點 from [選課表 ] where 學(xué)號 =39。 + + 39。 If 0 And (課程編號 ) And (課程名稱 ) And (拼音碼 ) Then (學(xué)號 ) = (課程編號 ) = (課程編號 ) (課程名稱 ) = (課程名稱 ) (課程簡稱 ) = (課程簡稱 ) (拼音碼 ) = (拼音碼 ) (本學(xué)期課程 ) = (本學(xué)期課程 ) ( 上 課 時 間 天 ) = ( 上 課 時 間 天 ) (上課時間節(jié) ) = (上課時間節(jié) ) (上課地點 ) = (上課地點 ) (教師 ) = (教師 ) ( 開課系別 ) = ( 開課系別 ) (學(xué)分 ) = (學(xué)分 ) = select 選課表 .學(xué)號 ,選課表 .課程編號 ,選課表 .課程名稱 ,選課表 .課程簡稱 ,選課表 .拼音碼 ,選課表 .本學(xué)期課程 ,選課表 .教師 ,選課表 .開課系別 ,選課表 .學(xué)分 ,選課表 .上課時間天 ,選課表 .上課時間節(jié) ,選課表 .上課地點 from [選課表 ] where 學(xué)號 =39。 + + 39。 End If a: End Sub 在該模塊中如果刪改已選擇的 課程，在“課程信息”子窗體中輸入要刪除的課程信息，然后單擊“刪課”按鈕就可以把該門已選擇的課程刪除。實現(xiàn)方法是在“刪課”按鈕的“單擊”事件中添加如下代碼： Private Sub Command4_Click() While Not 31 If = ( 學(xué)號 ) And = (課程名稱 ) And = (拼音碼 ) And = (課程編號 ) Then End If Wend MsgBox 該生沒有選擇該課程 End Sub “課程表”子窗體中。實現(xiàn)該功能的方法是在“學(xué)號”文本框的 “ LostFocus”事件中添加如下代碼： Private Sub Text1_LostFocus() Dim i As Integer = select * from [學(xué)生信息 ] where 學(xué)號 =39。 + + 39。 If 0 Then = (姓名 ) = (班級編號 ) Else MsgBox no record = = End If = select * from 課程表圖 = select * from [選課表 ] where 學(xué)號 =39。 + + 39。 While Not If (上課時間天 ) = 1 Then ( 星期一 ) = ( 課 程 名 稱 ) amp。 (上課地點 ) For i = 1 To 4 If (上課時間節(jié) ) = i Then (上課時間節(jié) ) = i End If Next i ElseIf (上課時間天 ) = 2 Then ( 星期二 ) = ( 課程名稱 ) amp。 (上課地點 ) 32 For i = 1 To 4 If (上課時間節(jié) ) = i Then (上課時間節(jié) ) = i End If Next i ElseIf (上課時間天 ) = 3 Then ( 星 期 三 ) = ( 課程名稱 ) amp。 (上課地點 ) For i = 1 To 4 If (上課時間節(jié) ) = i Then (上課時間節(jié) ) = i End If Next i ElseIf (上課時間天 ) = 4 Then ( 星 期 四 ) = ( 課 程 名 稱 ) amp。 (上課地點 ) For i = 1 To 4 If (上課時間節(jié) ) = i Then (上課時間節(jié) ) = i End If Next i ElseIf (上課時間天 ) = 5 Then ( 星 期 五 ) = ( 課 程 名 稱 ) amp。 (上課地點 ) For i = 1 To 4 If (上課時間節(jié) ) = i Then (上課時間節(jié) ) = i End If Next i End If Wend End Sub 成績輸入模塊： 實現(xiàn)成績輸入模塊中生成空成績表是在“終止選課，并生成空成績單”按鈕“單擊”事件中添加如下代碼： Private Sub Command1_Click() Dim i As Integer = select * from 成績表 = select * from 選課表 33 If 0 Then For i = 0 To 1 Next i If = 1 Then For i = 0 To 1 (學(xué)號 ) = (學(xué)號 ) (課程編號 ) = (課程編號 ) (課程名稱 ) = (課程名稱 ) (拼音碼 ) = (拼音碼 ) Next i Else Exit Sub End If Else If = 1 Then For i = 1 To 1 (學(xué)號 ) = (學(xué)號 ) (課程編號 ) = (課程編號 ) (課程名稱 ) = (課程名稱 ) (拼音碼 ) = (拼音碼 ) Next i Else Exit Sub End If End If = True End Sub 打印成績單功模塊： 在“預(yù)覽成績”按鈕的“單擊”事件中添加如下代碼： Private Sub Command1_Click() End Sub 在 Form13窗體的 Load事件中添加如下代碼： Private Sub Form_Load() = select * from 成績表 where 學(xué)號 =39。 + + 39。 34 If 0 Then Else MsgBox 該生的成績還沒有統(tǒng)計出來 Exit Sub End If CurrentX = 0 CurrentY = 1000 Print Tab(3)。 學(xué)號 。 Tab(30)。 (學(xué)號 )。 Print Tab(3)。 課程編號 。 Tab(30)。 課程名稱 。 Tab(57)。 成績 While Not Print Tab(3)。 (課程編號 )。 Tab(30)。 (課程名稱)。 Tab(57)。 (成績 ) Wend End Sub