【正文】 。 39。39。39。delete from 教師表 where 電話 =39。 。 :=true。)。 (39。 。刪除教師記錄成功！ 39。 。 39。39。39。delete from 教師表 where 專業(yè) =39。 。 :=true。)。 (39。 。刪除教師記錄成功！ 39。 。 39。39。39。delete from 教師表 where 住址 =39。 。 :=true。)。 (39。 。刪除教師記錄成功！ 39。 。 39。39。39。delete from 教師表 where 姓名 =39。 。 :=true。)。 (39。 。刪除教師記錄成功！ 39。 48 。 39。39。39。delete from 教師表 where 教師號 =39。 。 procedure (Sender: TObject)。 :=true。)。 (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。insert into 教師表 (教師號 ,姓名 ,住址 ,專業(yè) ,電話 ,年齡 , 性別 , 職稱 ) values(39。 。 47 procedure (Sender: TObject)。 :=true。)。39。++39。39。39。++39。39。 (39。 。修改教師信息記錄成功！ 39。 。)。39。++39。39。39。++39。39。39。++39。39。 (39。 end else if =7 then begin 。 。39。39。39。 and 教師號 =39。39。39。select *from 教師表 where 性別 =39。 。)。 showmessage(39。 。39。39。39。 and 教師號 =39。39。39。 where 性別 46 =39。39。39。update 教師表 set 性別 =39。 。 :=true。)。39。++39。39。39。++39。39。 (39。 。修改教師信息記錄成功！ 39。 。39。39。39。 and 教師號 =39。39。39。 where 年齡=39。39。39。update 教師表 set 年齡 =39。 。 :=true。)。39。++39。39。39。++39。39。 (39。 45 。修改教師信息記錄成功！ 39。 。39。39。39。 and 教師號 =39。39。39。 where 電話=39。39。39。update 教師表 set 電話 =39。 。 :=true。)。39。++39。39。39。++39。39。 (39。 。修改教師信息記錄成功！ 39。 。39。39。39。 and 教師號 =39。39。39。 where 專業(yè)=39。39。39。update 教師表 set 專業(yè) =39。 。 :=true。 )。39。++39。39。 (39。 44 。修改教師信息記錄成功！ 39。 。39。39。39。 and 教師號 =39。39。39。 where 住址=39。39。39。update 教師表 set 住址 =39。 。 :=true。)。39。++39。39。 (39。 。修改教師信息記錄成功！ 39。 。39。39。39。 where 姓名=39。39。39。update 教師表 set 姓名 =39。 。 procedure (Sender: TObject)。 :=true。對不起，沒有此職稱，請重新輸入 39。 。39。39。39。select * from 教師表 where 職稱 =39。 。 :=true。對不起，沒有此性別，請重新輸入 39。 。39。39。39。select * from 教師表 where 性別 =39。 。 :=true。對不起，沒有此年齡，請重新輸入 39。 。39。39。39。select * from 教師表 where 年齡 =39。 。 :=true。對不起，沒有此電話，請重新輸入 39。 。39。39。39。select * from 教師表 where 電話 =39。 。 :=true。對不起，沒有此專業(yè)，請重新輸入 39。 。39。39。39。select * from 教師表 where 專業(yè) =39。 。 :=true。對不起，沒有此住址，請重新輸入 39。 。39。39。39。select * from 教師表 where 住址 =39。 。 :=true。對不起，沒有此姓名，請重新輸入 39。 。39。39。39。select * from 教師表 where 姓名 =39。 。 :=true。對不起， 沒有此教師號，請重新輸入 39。 。39。39。39。select * from 教 師 表 where 教師號=39。 。 procedure (Sender: TObject)。 。 {$R *.dfm} 40 procedure (Sender: TObject)。 var Form4: TForm4。 procedure Button3Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 Button5: TButton。 Edit12: TEdit。 Edit11: TEdit。 ComboBox3: TComboBox。 39 Button3: TButton。 Label13: TLabel。 Label12: TLabel。 Edit9: TEdit。 ComboBox1: TComboBox。 DBGrid1: TDBGrid。 ADOQuery1: TADOQuery。 Edit8: TEdit。 Edit7: TEdit。 Edit6: TEdit。 Edit5: TEdit。 Edit4: TEdit。 Edit3: TEdit。 Edit2: TEdit。 Edit1: TEdit。 type TForm4 = class(TForm) 38 Label1: TLabel。 end. unit Unit4。 :=true。)。 (39。 。刪除學(xué)生記錄成功！ 39。 。 39。39。39。delete from 學(xué)生表 where 性別 =39。 。 :=true。)。 (39。 。刪除學(xué)生記錄成功！ 39。 。 39。39。39。delete from 學(xué)生表 where 年齡 =39。 。 :=true。)。 (39。 。刪除學(xué)生記錄成功！ 39。 。 39。39。39。delete from 學(xué)生表 where 專業(yè) =39。 。 :=true。)。 (39。 。刪除學(xué)生記錄成功！ 39。 。 39。39。39。delete from 學(xué)生表 where 籍貫 =39。 。 :=true。)。 (39。 。刪除學(xué)生記錄成功！ 39。 。 39。39。39。delete from 學(xué)生表 where 姓名 =39。 。 :=true。)。 (39。 。刪除學(xué)生記錄成功！ 39。 35 。 39。39。39。delete from 學(xué)生表 where 學(xué)號 =39。 。 procedure (Sender: TObject)。 :=true。)。 (39。 。添加學(xué)生信息記錄成功！ 39。 。)39。39。39。,39。39。39。,39。39。39。,39。39。39。 ,39。39。39。 ,39。39。39。insert into 學(xué)生表 (學(xué)號 ,姓名 ,籍貫 ,專業(yè) ,年齡 ,性別 ) values(39。 。 procedure (Sender: TObject)。 :=true。)。39。++39。39。39。++39。39。 (39。 。修改學(xué)生信息記錄成功！ 39。 。39。39。39。 and 學(xué)號 =39。39。39。 where 性別=39。39。39。update 學(xué)生表 set 性別 =39。 。 :=true。)。39。++39。39。39。++39。39。 (39。 。修改學(xué) 生信息記錄成功！ 39。 。39。39。39。 and 學(xué)號 =39。39。39。 where 年齡=39。39。39。update 學(xué)生表 set 年齡 =39。 。 :=true。)。39。++39。39。39。++39。39。 (39。 。修改學(xué)生信息記錄成功！ 39。 。39。39。39。 and 學(xué)號 =39。39。39。 where 專業(yè)=39。39。39。update 學(xué)生表 set 專業(yè) =39。 。 :=true。 )。39。++39。39。 (39。 。修改學(xué)生信息記錄成功！ 39。 。39。39。39。 and 學(xué)號 =39。39。39。 where 籍貫=39。39。39。update 學(xué)生表 set 籍貫 =39。 32 。 :=true。)。39。++39。39。