【正文】 end.　?！??！$R *.dfm}　　　procedure (Sender: TObject)?！　　　ar　 Form5: TForm5。 procedure Button1Click(Sender: TObject)?！? Label2: TLabel。 Button1: TButton?！　　nterface　　　uses　 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。end　　else 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。對(duì)不起，沒有此任課教師，請(qǐng)重新輸入39?！　? 。39。39。39。select * from 課程表 where 任課教師=39?！　? 。)?！? if =0 then　　 showmessage(39。)。39。++39。39。 (39?！　　? end　 else if =2 then begin　 。對(duì)不起，沒有此課程名，請(qǐng)重新輸入39。　　 。39。39。39。select * from 課程表 where 課程名=39?！? 。)?！? if =0 then showmessage(39。)。39。++39。39?！? (39。　　beginif =0　 then begin　　 。 　end。　begin。　implementation　　　uses 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?！　　nterface　　uses　　 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, StdCtrls, Grids, DBGrids?！　　　nd。　 :=true。)。 (39。　　。刪除教師記錄成功！39?！　? 。 39。39。39。delete from 教師表 where 職稱=39?！　? 。　　 :=true。)。 (39?！　　h除教師記錄成功！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?！　　h除教師記錄成功！39?！? 。 39。39。39。delete from 教師表 where 住址=39?！? ?！? :=true。)?！　? (39?！　h除教師記錄成功！39。 。 39。39。39。delete from 教師表 where 姓名=39?！? ?！? :=true。)。　 (39。　。刪除教師記錄成功！39。 。 39。39。39。delete from 教師表 where 教師號(hào)=39?！　? ?！　　rocedure (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 教師表 (教師號(hào) ,姓名,住址 ,專業(yè),電話,年齡,性別,職稱) values(39。　　 ?！　　　rocedure (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 教師號(hào)=39。39。39。select *from 教師表 where 性別=39。 。)?！　? showmessage(39?！　? 。39。39。39。 and 教師號(hào)=39。39。39。 where 性別=39。39。39。update 教師表 set 性別=39。　 ?！? :=true。)。39。++39。39。39。++39。39?！　? (39?！　　Ｐ薷慕處熜畔⒂涗洺晒?！39。　　 。39。39。39。 and 教師號(hào)=39。39。39。 where 年齡=39。39。39。update 教師表 set 年齡=39?！? ?！? :=true。)。39。++39。39。39。++39。39?！　? (39。　　。修改教師信息記錄成功！39。 。39。39。39。 and 教師號(hào)=39。39。39。 where 電話=39。39。39。update 教師表 set 電話=39?！　? 。 :=true。)。39。++39。39。39。++39。39。　 (39?！?。修改教師信息記錄成功！39?！? 。39。39。39。 and 教師號(hào)=39。39。39。 where 專業(yè)=39。39。39。update 教師表 set 專業(yè)=39。　　 。 :=true。 )。39。++39。39。 (39?！　?。修改教師信息記錄成功！39。 。39。39。39。 and 教師號(hào)=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。對(duì)不起，沒有此職稱，請(qǐng)重新輸入39。　　 。39。39。39。select * from 教師表 where 職稱=39。 ?！? :=true。對(duì)不起，沒有此性別，請(qǐng)重新輸入39?！　? 。39。39。39。select * from 教師表 where 性別=39。　　 。 :=true。對(duì)不起，沒有此年齡，請(qǐng)重新輸入39。 。39。39。39。select * from 教師表 where 年齡=39?！　? 。 :=true。對(duì)不起，沒有此電話，請(qǐng)重新輸入39?！　? 。39。39。39。select * from 教師表 where 電話=39。　 ?！　? :=true。對(duì)不起，沒有此專業(yè)，請(qǐng)重新輸入39?！? 。39。39。39。select * from 教師表 where 專業(yè)=39。　 。 :=true。對(duì)不起，沒有此住址，請(qǐng)重新輸入39。 。39。39。39。select * from 教師表 where 住址=39。 。　　 :=true。對(duì)不起，沒有此姓名，請(qǐng)重新輸入39。 。39。39。39。select * from 教師表 where 姓名=39。 ?！　? :=true。對(duì)不起，沒有此教師號(hào)，請(qǐng)重新輸入39。　　 。39。39。39。select * from 教師表 where 教師號(hào)=39?！? ?！　　rocedure (Sender: TObject)?！　$R *.dfm}　procedure (Sender: TObject)。　　var