【正文】 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。)。 。 showmessage(39。刪除教師記錄成功！39。)。 。 (39。select *from 教師表 39。)。 。 :=true。 end else if =5 then begin 。 。 (39。delete from 教師表 where 年齡=39。39。39。++39。39。39。 39。)。 。 showmessage(39。刪除教師記錄成功！39。)。 。 (39。select *from 教師表 39。)。 。 :=true。 end else if =6 then begin 。 。 (39。delete from 教師表 where 性別=39。39。39。++39。39。39。 39。)。 。 showmessage(39。刪除教師記錄成功！39。)。 。 (39。select *from 教師表 39。)。 。 :=true。 end else if =7 then begin 。 。 (39。delete from 教師表 where 職稱=39。39。39。++39。39。39。 39。)。 。 showmessage(39。刪除教師記錄成功！39。)。 。 (39。select *from 教師表 39。)。 。 :=true。 endend。end。end.unit Unit6。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids。type TForm6 = class(TForm) Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 ComboBox1: TComboBox。 Edit1: TEdit。 Button1: TButton。 ADOQuery1: TADOQuery。 DataSource1: TDataSource。 Button2: TButton。 DBGrid1: TDBGrid。 Label4: TLabel。 Edit2: TEdit。 Label5: TLabel。 Edit3: TEdit。 Label6: TLabel。 Edit4: TEdit。 Label7: TLabel。 Edit5: TEdit。 Button3: TButton。 Label8: TLabel。 ComboBox2: TComboBox。 Label9: TLabel。 Edit6: TEdit。 Button4: TButton。 ADOConnection1: TADOConnection。 procedure Button2Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form6: TForm6。implementationuses Unit2。{$R *.dfm}procedure (Sender: TObject)。begin。 end。procedure (Sender: TObject)。beginif =0 then begin 。 。 (39。select * from 課程表 where 課號=39。39。39。++39。39。39。39。)。 。 if =0 then showmessage(39。對不起，沒有此課號，請重新輸入39。)。 end else if =1 then begin 。 。 (39。select * from 課程表 where 課程名=39。39。39。++39。39。39。39。)。 。 if =0 then showmessage(39。對不起，沒有此課程名，請重新輸入39。)。 end else if =2 then begin 。 。 (39。select * from 課程表 where 學(xué)分=39。39。39。++39。39。39。39。)。 。 if =0 then showmessage(39。對不起，沒有此學(xué)分，請重新輸入39。)。 end else if =3 then begin 。 。 (39。select * from 課程表 where 任課教師=39。39。39。++39。39。39。39。)。 。 if =0 then showmessage(39。對不起，沒有此任課教師，請重新輸入39。)。 endend。procedure (Sender: TObject)。begin。 。 (39。insert into 課程表 (課號 ,課程名, 學(xué)分,任課教師) 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。)。 。 showmessage(39。添加課程信息記錄成功！39。)。 (39。select *from 課程表39。)。 。 :=true。end。procedure (Sender: TObject)。begin if =0 then begin 。 。 (39。delete from 課表 where 課號=39。39。39。++39。39。39。 39。)。 。 showmessage(39。刪除課表記錄成功！39。)。 。 (39。select *from 課表表 39。)。 。 :=true。endelse 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。)。 。 (39。select *from 課程表 39。)。 。 :=true。 end else if =3 then begin 。 。 (39。delete from 課程表 where 學(xué)分=39。39。39。++39。39。39。 39。)。 。 showmessage(39。刪除學(xué)分記錄成功！39。)。 。 (39。select *from 表 任課老師39。)。 。 :=true。 endend。end.unit Unit5。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls。type TForm5 = class(TForm) Label5: TLabel。 Button1: TButton。 Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 procedure Button1Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form5: TForm5。implementationuses Unit2。{$R *.dfm}procedure (Sender: TObject)。begin 。 。end。end.62