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

　　

【正文】 39。 :=39。39。 :=39。39。 。 。 :=true。 end。 :=39。學(xué)號(hào) 39。 :=39。姓名 39。 :=39。班級(jí) 39。 :=39。學(xué)號(hào) 39。 :=39。姓名 39。 :=39。課程號(hào) 39。 :=39。課程名 39。 :=39。成績 39。 end。 （ 2）成績查詢 procedure (Sender: TObject)。 var i:boolean。 begin i:=false。 。 。 (39。select * from pjcj where 39。++39。39。)。 。 （根據(jù) SQL 進(jìn)查詢） 。 if not then i:=true。 if i then begin 。 。 (39。select * from dkcj where 學(xué)號(hào) =39。+39。39。39。39。+[39。學(xué)號(hào) 39。]+39。39。39。39。)。 。 。 :=false。 end else begin showmessage(39。沒有符合查詢條件的記錄 !!39。)。 :=39。39。 （當(dāng)沒有符合條件的記錄，自動(dòng) :=39。39。 清空選擇框里的查詢條件） :=39。39。 :=39。39。 :=39。39。 。 。 :=true。 end。 end。 procedure (Column: TColumn)。 var str:string。 begin str:=[39。學(xué)號(hào) 39。]。 。 。 (39。select * from dkcj where 學(xué)號(hào) =39。+39。39。39。39。+str+39。39。39。39。)。 。 。 end。 procedure (Sender: TObject)。 （管理界面的切換） begin 。 。 end。 procedure (Sender: TObject)。 begin 。 。 end。 procedure (Sender: TObject)。 begin if =39。平均成績 39。 then （根據(jù)平均成績查詢） begin :=+。 end else begin :=+39。 :=+。 :=+39。 end。 end。 procedure (Sender: TObject)。 begin （本段為對查詢條件的刷新，進(jìn) :=39。39。 行不同條件的輸入） :=39。39。 :=39。39。 :=39。39。 :=39。39。 。 。 :=false。 :=true。 end。 班級(jí)管理模塊 （ 1）班級(jí)管理 procedure (Sender: TObject)。 begin 。 。 (39。select * from class where 系名 = 39。+39。39。39。39。++39。39。39。39。)。 。 。 （根據(jù)系別顯示班級(jí)信息） :=39。系名 39。 （這五項(xiàng)為表的數(shù)據(jù)項(xiàng)名） :=39。班級(jí) 39。 :=39。輔導(dǎo)員 39。 :=39。班長 39。 :=39。專業(yè) 39。 :=true。 :=true。 :=true。 :=true。 end。 procedure (Sender: TObject)。 （記錄的刪除操作）《修改與添加操作與這類似》 begin if =39。刪除 39。 then begin :=39。確定 39。 :=false。 :=false。 :=true。 end （ 2）班級(jí)查詢 procedure (Sender: TObject)。 begin if then begin 。 。 (39。select * from class where 班級(jí) = 39。+39。39。39。39。++39。39。39。39。)。 。 。 end。 if then begin 。 。 (39。select * from class where 專業(yè) = 39。+39。39。39。39。++39。39。39。39。)。 。 。 end。 if [39。系名 39。]39。39。 then begin 。 。 (39。select * from xi where 系名 = 39。+39。39。39。39。+[39。系名 39。]+39。39。39。39。)。 。 。 end。 學(xué)籍管理模塊 （ 1）學(xué)籍管理 procedure (Sender: TObject)。 begin 。 。 (39。select * from xi39。)。 。 。 。 。 (39。select * from class where 系名 = 39。+39。39。39。39。++39。39。39。39。)。 。 。 。 。 (39。select * from student where 班級(jí) = 39。+39。39。39。39。+[39。班級(jí) 39。]+39。39。39。39。)。 （根據(jù)班級(jí)條件列出該班學(xué)生學(xué)籍情況） 。 。 :=39。學(xué)號(hào) 39。 （表的數(shù)據(jù)項(xiàng)，以及學(xué)生學(xué)籍信息） :=39。班級(jí) 39。 :=39。姓名 39。 :=39。出生年月 39。 :=39。籍貫 39。 :=39。聯(lián)系電話 39。 :=39。聯(lián)系地址 39。 :=39。性別 39。 while not do begin ([39。系 名 39。])。 。 end。 （ 2）學(xué)籍查詢 procedure (Sender: TObject)。 var tf:boolean。 begin tf:=false。 。 。 (39。select * from student 39。)。 if or or or then (39。where39。)。 if then begin (39。39。++39。=39。+39。39。39。39。+ +39。39。39。39。)。 tf:=true。 end。 if then begin if tf then (39。and39。)。 (39。39。++39。=39。+39。39。39。39。+ +39。39。39。39。)。 tf:=true。 end。 if then begin if tf then (39。and39。)。 (39。39。++39。=39。+39。39。39。39。+ +39。39。39。39。)。 tf:=true。 end。 if then begin if tf then (39。and39。)。 (39。39。++39。=39。+39。39。39。39。+ +39。39。39。39。)。 tf:=true。 end。 。 。 end。 (4)課程管理部分的代碼： 選課管理： begin ([39。 系名 39。])。 //ComboBox1 連到系表的 系名 字段 。 end。 end。 procedure (Sender: TObject)。 begin 。 。 (39。select * from class where 系名=39。+39。39。39。39。++39。39。39。39。)。//查詢系名是否符合 。 。 while not do begin ([39。班級(jí) 39。])。//符合就調(diào)用班級(jí)表的字段 班級(jí) 。 end。 end。 procedure (Sender: TObject)。 begin 。 。 (39。select * from kecheng where 班級(jí)=39。+39。39。39。39。++39。39。39。39。)。//查詢課程表中字段 班級(jí) 是否符合，符合就調(diào)到 。 //DBgiid1 。 end。 procedure (Sender: TObject)。 begin 。 。 (39。select * from kecheng where 班級(jí)=39。+39。39。39。39。++39。39。39。 and 學(xué)期 =39。+39。39。39。39。++39。39。39。39。)。 //判斷學(xué)期是否符合 。 。 end。 procedure (Sender: TObject)。 begin while not do begin if ([39。課程號(hào) 39。]=[39。課程號(hào) 39。]) and ([39。 班級(jí) 39。]=) and ([39。學(xué)期 39。]=) then break。 。 end。 if then begin 。 //把選課內(nèi)容添加到選課表中。 [39。課程號(hào) 39。]:=[39。課程號(hào) 39。]。 [39。班級(jí) 39。]:=。 [39。課程名 39。]:=[39。課程名 39。]。 [39。學(xué)期 39。]:=。 。 end else begin showmessage(39。本課程此班級(jí)已經(jīng)選過 39。)。 //如果已經(jīng)選過，彈出對話框“本課程此班級(jí)已經(jīng)選過” end。 end。 procedure (Sender: TObject)。 begin if not then 。 end。 end. 課程管理 : procedure (Sender: TObject)。 begin 。 //關(guān)閉數(shù)據(jù)庫 。 //清空 (39。select * from kechengbiao39。)。 。 。 :=39。課程號(hào) 39。 :=39。課程名 39。 :=39。課時(shí) 39。 :=39。學(xué)分 39。 //:=39。學(xué)期 39。 :=39。類型 39。 end。 procedure (Sender: TObject)。 begin if =39。添加 39。 then begin 。 //添加到課程表 :=39。確定 39。 :=true。 :=false。 :=false。 end else if =39。確定 39。 then begin if =39。39。 then begin showmessage(39。請輸入課程號(hào)！ 39。)。 //如果課程號(hào)沒輸入 ,彈出對話框 end else begin 。 :=39。添加 39。 :=false。 :=true。 :=true。 end。 end。 end。 procedure (Sender: TObject)。 begin if then begin :=false。 :=false。 end。 if =39。刪除 39。 then begin :=39。確定 39。 :=true。 :=false。 :=false。 end else begin 。 //從數(shù)據(jù)表中刪掉所選記錄 :=39。刪除 39。 :=false。 :=true。 :=true。 end。 end。 procedure (Sender: TObject)。 begin 。 :=39。添加 39。 :=39。刪除 39。 :=39。修改 39。 :=false。 :=true。 :=true。 :=true。 end。 procedure (Sender: TObject)。 begin if =39。修改 39。 then begin 。 //修改課程表中的記錄 :=39。確定 39。 :=true。 :=false。 :=false。 end else begin 。 :=39。修改 39。 :=false。 :=true。 :=true。 end。 end。 procedure (Sender: TObject)。 begin form11:=(application)。 。 end。 end. 課程查詢部分： procedure (Sender: TObject)。 begin :=39。39。 :=false。 end。 procedure (Sender: TObject)。 begin if =true then begin 。 //先將數(shù)據(jù)庫關(guān)閉 。 //清空 ADOQuery1 內(nèi)的 SQL 值 清空 (39。select * from kecheng where 39。++39。 = 39。+39。39。39。39。++39。39。39。 and 學(xué)期 = 39。+39。39。39。39。++39。39。39。39。)。