【正文】 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。　 end　　　end?！　　　nd?！　nd.　　　unit Unit6。　　　interface　　uses　　 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids?！　　　ype　　 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。　implementation　　　uses Unit2。　　{$R *.dfm}　　procedure (Sender: TObject)?！egin?！　?　end。procedure (Sender: TObject)?！　eginif =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 學分=39。39。39。++39。39。39。39。)。 ?！? if =0 then　　 showmessage(39。對不起，沒有此學分，請重新輸入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?！　　rocedure (Sender: TObject)?！egin　　?！　? ?！　? (39。insert into 課程表 (課號 ,課程名, 學分,任課教師) 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。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。)?！? ?！　? (39。select *from 課程表 39。)?！? 。　　 :=true。　 end else if =3　 then begin ?！　? 。 (39。delete from 課程表 where 學分=39。39。39。++39。39。39。 39。)?！? 。 showmessage(39。刪除學分記錄成功！39。)?！　? ?！　? (39。select *from 表 任課老師39。)?！? ?！? :=true。 endend。　　　　　　end.　unit Unit5?！　　nterface　　　uses　 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls?！　　ype　　 TForm5 = class(TForm)　　 Label5: TLabel。 Button1: TButton。　　 Label1: TLabel?！? Label2: TLabel?！　? Label3: TLabel。 procedure Button1Click(Sender: TObject)?！　? private　 { Private declarations }　　 public　　 { Public declarations }　 end?！　　　ar　 Form5: TForm5?！mplementation　　uses Unit2?！$R *.dfm}　　　procedure (Sender: TObject)?！　egin　　 。　 。end。end.