【正文】 。39。 39。刪除學(xué)生記錄成功！39。 (39。 :=true。delete from 學(xué)生表 where 性別=39。39。 。)。end.unit Unit4。 Edit1: TEdit。 Edit3: TEdit。 Edit5: TEdit。 Edit7: TEdit。 ADOQuery1: TADOQuery。 ComboBox1: TComboBox。 Label12: TLabel。 Button3: TButton。 Edit11: TEdit。 Button5: TButton。 procedure Button4Click(Sender: TObject)。var Form4: TForm4。 。39。39。對不起，沒有此教師號，請重新輸入39。 。39。39。對不起，沒有此姓名，請重新輸入39。 。39。39。對不起，沒有此住址，請重新輸入39。 。39。39。對不起，沒有此專業(yè)，請重新輸入39。 。39。39。對不起，沒有此電話，請重新輸入39。 。39。39。對不起，沒有此年齡，請重新輸入39。 。39。39。對不起，沒有此性別，請重新輸入39。 。39。39。對不起，沒有此職稱，請重新輸入39。procedure (Sender: TObject)。update 教師表 set 姓名=39。39。39。39。修改教師信息記錄成功！39。 (39。++39。)。 。39。 where 住址=39。39。39。39。修改教師信息記錄成功！39。 (39。++39。 )。 。39。 where 專業(yè)=39。39。39。39。修改教師信息記錄成功！39。 (39。++39。39。39。 :=true。update 教師表 set 電話=39。39。39。 and 教師號=39。39。 。39。39。++39。)。 。39。 where 年齡=39。39。39。39。修改教師信息記錄成功！39。 (39。++39。39。39。 :=true。update 教師表 set 性別=39。39。39。 and 教師號=39。39。 。)。select *from 教師表 where 性別=39。39。39。39。 end else if =7then begin。39。39。++39。39。39。 。 。39。39。++39。)。procedure (Sender: TObject)。insert into 教師表 (教師號 ,姓名,住址 ,專業(yè),電話,年齡,性別,職稱) values(39。39。39。 ,39。39。39。,39。39。39。,39。39。39。)39。添加教師信息記錄成功！39。 (39。 :=true。 。39。 39。刪除教師記錄成功！39。 (39。 :=true。delete from 教師表 where 姓名=39。39。 。)。 。39。 39。刪除教師記錄成功！39。 (39。 :=true。delete from 教師表 where 專業(yè)=39。39。 。)。 。39。 39。刪除教師記錄成功！39。 (39。 :=true。delete from 教師表 where 年齡=39。39。 。)。 。39。 39。刪除教師記錄成功！39。 (39。 :=true。delete from 教師表 where 職稱=39。39。 。)。end。 Label2: TLabel。 Button1: TButton。 DBGrid1: TDBGrid。 Edit3: TEdit。 Edit5: TEdit。 Label9: TLabel。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。begin。beginif =0 then begin 。39。39。 if =0 then showmessage(39。 。39。39。對不起，沒有此課程名，請重新輸入39。 (39。++39。)。)。select * from 課程表 where 任課教師=39。39。 。 endend。 (39。++39。39。39。++39。39。39。 showmessage(39。 。begin if =0 then begin 。39。39。 showmessage(39。 。 。 (39。++39。)。)。select *from 課程表 39。 end else if =2 then begin 。39。39。 showmessage(39。 。 。 (39。++39。)。)。select *from 表 任課老師39。 endend。 Button1: TButton。 procedure Button1Click(Sender: TObject)。{$R *.dfm}procedure (Sender: TObject)。end.62。 。var Form5: TForm5。 Label2: TLabel。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls。 。 。 showmessage(39。39。39。 end else if =3 then begin 。select *from 課程表 39。)。)。++39。 (39。 。 。 showmessage(39。39。39。endelse if =1 then begin 。select *from 課表表 39。)。)。++39。 (39。end。select *from 課程表39。)。)。++39。39。39。++39。39。39。begin。對不起，沒有此任課教師，請重新輸入39。39。39。 。 if =0 then showmessage(39。39。39。 end else if =2 then begin 。 。39。select * from 課程表 where 課程名=39。)。)。++39。 (39。 end。implementationuses Unit2。 procedure Button3Click(Sender: TObject)。 Button4: TButton。 Label8: TLabel。 Edit4: TEdit。 Edit2: TEdit。 DataSource1: TDataSource。 ComboBox1: TComboBox。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids。 :=true。 (39。刪除教師記錄成功！39。 39。39。 。)。 。39。delete from 教師表 where 性別=39。 :=true。 (39。刪除教師記錄成功！39。 39。39。 。)。 。39。delete from 教師表 where 電話=39。 :=true。 (39。刪除教師記錄成功！39。 39。39。 。)。 。39。delete from 教師表 where 住址=39。 :=true。 (39。刪除教師記錄成功！39。 39。39。 。)。 。39。delete from 教師表 where 教師號=39。procedure (Sender: TObject)。)。 。39。,39。39。39。,39。39。39。,39。39。39。 ,39。39。 。 :=true。39。39。++39。 (39。修改教師信息記錄成功！39。)。++39。39。39。++39。 (39。 。39。 and 教師號=39。39。 。 showmessage(39。39。39。39。 where 性別=39。39。 。)。++39。39。39。 。39。 and 教師號=39。39。39。update 教師表 set 年齡=39。 :=true。39。39。++39。 (39。修改教師信息記錄成功！39。39。39。39。 where 電話=39。39。 。)。++39。39。39。 。39。 and 教師號=39。39。39。update 教師表 set 專業(yè)=39。 :=true。39。39。 。39。 and 教師號=39。39。39。update 教師表 set 住址=39。 :=true。39。39。 。39。 where 姓名=39。39。 。 :=true。 。39。select * from 教師表 where 職稱=39。 :=true。 。39。select * from 教師表 where 性別=39。 :=tru