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

　　

【正文】 。 (39。select * from 教師表 where 電話 =39。39。39。++39。39。39。39。)。 。 if =0 then showmessage(39。對(duì)不起，沒(méi)有此電話，請(qǐng)重新輸入 39。)。 :=true。 end 42 else if =5 then begin 。 。 (39。select * from 教師表 where 年齡 =39。39。39。++39。39。39。39。)。 。 if =0 then showmessage(39。對(duì)不起，沒(méi)有此年齡，請(qǐng)重新輸入 39。)。 :=true。 end else if =6 then begin 。 。 (39。select * from 教師表 where 性別 =39。39。39。++39。39。39。39。)。 。 if =0 then showmessage(39。對(duì)不起，沒(méi)有此性別，請(qǐng)重新輸入 39。)。 :=true。 end else if =7 then begin 。 。 (39。select * from 教師表 where 職稱 =39。39。39。++39。39。39。39。)。 。 if =0 then 43 showmessage(39。對(duì)不起，沒(méi)有此職稱，請(qǐng)重新輸入 39。)。 :=true。 end end。 procedure (Sender: TObject)。 begin if =1 then begin 。 。 (39。update 教師表 set 姓名 =39。39。39。++39。39。39。 where 姓名=39。39。39。++39。39。39。39。)。 。 showmessage(39。修改教師信息記錄成功！ 39。)。 。 。 (39。select *from 教 師表 where 姓名 =39。39。39。++39。39。39。39。)。 。 :=true。 end else if =2 then begin 。 。 (39。update 教師表 set 住址 =39。39。39。++39。39。39。 where 住址=39。39。39。++39。39。39。 and 教師號(hào) =39。39。39。++39。39。39。39。)。 。 showmessage(39。修改教師信息記錄成功！ 39。)。 44 。 。 (39。select *from 教師表 where 住址 =39。39。39。++39。39。39。39。 )。 。 :=true。 end else if =3 then begin 。 。 (39。update 教師表 set 專業(yè) =39。39。39。++39。39。39。 where 專業(yè)=39。39。39。++39。39。39。 and 教師號(hào) =39。39。39。++39。39。39。39。)。 。 showmessage(39。修改教師信息記錄成功！ 39。)。 。 。 (39。select *from 教師表 where 專業(yè) =39。39。39。++39。39。39。 and 教師號(hào) =39。39。39。++39。39。39。39。)。 。 :=true。 end else if =4 then begin 。 。 (39。update 教師表 set 電話 =39。39。39。++39。39。39。 where 電話=39。39。39。++39。39。39。 and 教師號(hào) =39。39。39。++39。39。39。39。)。 。 showmessage(39。修改教師信息記錄成功！ 39。)。 45 。 。 (39。select *from 教師表 where 電話 =39。39。39。++39。39。39。 and 教師號(hào) =39。39。39。++39。39。39。39。)。 。 :=true。 end else if =5 then begin 。 。 (39。update 教師表 set 年齡 =39。39。39。++39。39。39。 where 年齡=39。39。39。++39。39。39。 and 教師號(hào) =39。39。39。++39。39。39。39。)。 。 showmessage(39。修改教師信息記錄成功！ 39。)。 。 。 (39。select *from 教師表 where 年齡 =39。39。39。++39。39。39。 and 教師號(hào) =39。39。39。++39。39。39。39。)。 。 :=true。 end else if =6 then begin 。 。 (39。update 教師表 set 性別 =39。39。39。++39。39。39。 where 性別 46 =39。39。39。++39。39。39。 and 教師號(hào) =39。39。39。++39。39。39。39。)。 。 。 showmessage(39。修改教師信息記錄成功！ 39。)。 。 。 (39。select *from 教師表 where 性別 =39。39。39。++39。39。39。 and 教師號(hào) =39。39。39。++39。39。39。39。)。 。 :=true。 end else if =7 then begin 。 。 (39。update 教師表 set 職稱 =39。39。39。++39。39。39。 where 職稱=39。39。39。++39。39。39。 and 教師號(hào) =39。39。39。++39。39。39。39。)。 。 。 showmessage(39。修改教師信息記錄成功！ 39。)。 。 。 (39。select *from 教師表 where 職稱 =39。39。39。++39。39。39。 and 教師號(hào) =39。39。39。++39。39。39。39。)。 。 :=true。 end end。 47 procedure (Sender: TObject)。 begin 。 。 (39。insert into 教師表 (教師號(hào) ,姓名 ,住址 ,專業(yè) ,電話 ,年齡 , 性別 , 職稱 ) values(39。39。39。++39。39。39。 ,39。39。39。++39。39。39。 ,39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。,39。39。39。+ext+39。39。39。,39。39。39。++39。39。39。,39。39。39。++39。39。39。)39。)。 。 showmessage(39。添加教師信息記錄成功！ 39。)。 。 。 (39。select *from 教師表 39。)。 。 :=true。 end。 procedure (Sender: TObject)。 begin begin if =0 then begin 。 。 (39。delete from 教師表 where 教師號(hào) =39。39。39。++39。39。39。 39。)。 48 。 showmessage(39。刪除教師記錄成功！ 39。)。 。 。 (39。select *from 教師表 39。)。 。 :=true。 end else if =1 then begin 。 。 (39。delete from 教師表 where 姓名 =39。39。39。++39。39。39。 39。)。 。 showmessage(39。刪除教師記錄成功！ 39。)。 。 。 (39。select *from 教師表 39。)。 。 :=true。 end else if =2 then begin 。 。 (39。delete from 教師表 where 住址 =39。39。39。++39。39。39。 39。)。 。 showmessage(39。刪除教師記錄成功！ 39。)。 。 49 。 (39。select *from 教師表 39。)。 。 :=true。 end else if =3 then begin 。 。 (39。delete from 教師表 where 專業(yè) =39。39。39。++39。39。39。 39。)。 。 showmessage(39。刪除教師記錄成功！ 39。)。 。 。 (39。select *from 教師表 39。)。 。 :=true。 end else if =4 then begin 。 。 (39。delete from 教師表 where 電話 =39。39。39。++39。39。39。 39。)。