【正文】 end.62。 。{$R *.dfm}procedure (Sender: TObject)。var Form5: TForm5。 procedure Button1Click(Sender: TObject)。 Label2: TLabel。 Button1: TButton。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls。 endend。 。select *from 表 任課老師39。 。)。 showmessage(39。)。39。++39。39。 (39。 end else if =3 then begin 。 。select *from 課程表 39。 。)。 showmessage(39。)。39。++39。39。 (39。 end else if =2 then begin 。 。select *from 課程表 39。 。)。 showmessage(39。)。39。++39。39。 (39。endelse if =1 then begin 。 。select *from 課表表 39。 。)。 showmessage(39。)。39。++39。39。 (39。begin if =0 then begin 。end。 。select *from 課程表39。)。 showmessage(39。)。39。++39。39。39。++39。39。39。++39。39。39。++39。39。 (39。begin。 endend。對不起，沒有此任課教師，請重新輸入39。 。39。39。39。select * from 課程表 where 任課教師=39。 。)。 if =0 then showmessage(39。)。39。++39。39。 (39。 end else if =2 then begin 。對不起，沒有此課程名，請重新輸入39。 。39。39。39。select * from 課程表 where 課程名=39。 。)。 if =0 then showmessage(39。)。39。++39。39。 (39。beginif =0 then begin 。 end。begin。implementationuses Unit2。 private { Private declarations } public { Public declarations } end。 procedure Button3Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 Button4: TButton。 Label9: TLabel。 Label8: TLabel。 Edit5: TEdit。 Edit4: TEdit。 Edit3: TEdit。 Edit2: TEdit。 DBGrid1: TDBGrid。 DataSource1: TDataSource。 Button1: TButton。 ComboBox1: TComboBox。 Label2: TLabel。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids。end。 :=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。 。 :=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。 。 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。 。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 =7then begin。 。39。39。39。 and 教師號=39。39。39。select *from 教師表 where 性別=39。 。)。 showmessage(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 年齡=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。修改教師信息記錄成功！39。 。39。39。39。 and 教師號=39。39。39。 where 專業(yè)=39。39。39。update 教師表 set 專業(yè)=39。 。 :=true。 )。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。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