【文章內(nèi)容簡介】 (39。select *from 學(xué)生表 where 姓名=39。39。39。++39。39。39。39。)。　 。 :=true?！? end　　else if =2　 then begin。 ?！? (39。update 學(xué)生表 set 籍貫=39。39。39。++39。39。39。 where 籍貫=39。39。39。++39。39。39。 and 學(xué)號=39。39。39。++39。39。39。39。)。 。 showmessage(39。修改學(xué)生信息記錄成功！39。)?！?。 ?！　? (39。select *from 學(xué)生表 where 籍貫=39。39。39。++39。39。39。39。 )。 ?！? :=true?！? end　　else if =3　 then begin　?！? ?！? (39。update 學(xué)生表 set 專業(yè)=39。39。39。++39。39。39。 where 專業(yè)=39。39。39。++39。39。39。 and 學(xué)號=39。39。39。++39。39。39。39。)。 。　 showmessage(39。修改學(xué)生信息記錄成功！39。)?！? 。 (39。select *from 學(xué)生表 where 專業(yè)=39。39。39。++39。39。39。 and 學(xué)號=39。39。39。++39。39。39。39。)?！? ?！? :=true?！　? end　　else if =4　then begin　。 ?！　? (39。update 學(xué)生表 set 年齡=39。39。39。++39。39。39。 where 年齡=39。39。39。++39。39。39。 and 學(xué)號=39。39。39。++39。39。39。39。)?！? 。　 showmessage(39。修改學(xué)生信息記錄成功！39。)?！　！? ?！　? (39。select *from 學(xué)生表 where 年齡=39。39。39。++39。39。39。 and 學(xué)號=39。39。39。++39。39。39。39。)。　　 。　　 :=true?！? end　　else if =5then begin。　 。　 (39。update 學(xué)生表 set 性別=39。39。39。++39。39。39。 where 性別=39。39。39。++39。39。39。 and 學(xué)號=39。39。39。++39。39。39。39。)?！? ?！　? showmessage(39。修改學(xué)生信息記錄成功！39。)。 ?！　? ?！　? (39。select *from 學(xué)生表 where 性別=39。39。39。++39。39。39。 and 學(xué)號=39。39。39。++39。39。39。39。)。 ?！? :=true。　　 endend?！　rocedure (Sender: TObject)。begin　。　　 。 (39。insert into 學(xué)生表 (學(xué)號 ,姓名,籍貫 ,專業(yè),年齡,性別) 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。39。39。++39。39。39。,39。39。39。++39。39。39。)39。)?！? 。　 showmessage(39。添加學(xué)生信息記錄成功！39。)?！??！　　！　? (39。select *from 學(xué)生表39。)?！? 。 :=true?！　　nd?！　　　rocedure (Sender: TObject)。　　begin　if =0　　 then begin ?！? 。 (39。delete from 學(xué)生表 where 學(xué)號=39。39。39。++39。39。39。 39。)。 。　　 showmessage(39。刪除學(xué)生記錄成功！39。)?！　??！　? 。 (39。select *from 學(xué)生表 39。)?！? 。　 :=true?！nd　else if =1　 then begin　　 。 。 (39。delete from 學(xué)生表 where 姓名=39。39。39。++39。39。39。 39。)。 ?！? showmessage(39。刪除學(xué)生記錄成功！39。)?！? ?！? (39。select *from 學(xué)生表 39。)。　　 。 :=true?！? end　　 else if =2 then begin 。 。 (39。delete from 學(xué)生表 where 籍貫=39。39。39。++39。39。39。 39。)。 。　 showmessage(39。刪除學(xué)生記錄成功！39。)。 。　　 (39。select *from 學(xué)生表 39。)?！? ?！　? :=true?！? end else if =3　　 then begin　　 ?！　? ?！　? (39。delete from 學(xué)生表 where 專業(yè)=39。39。39。++39。39。39。 39。)。 。 showmessage(39。刪除學(xué)生記錄成功！39。)。　?！? 。 (39。select *from 學(xué)生表 39。)?！　? 。　 :=true。 end　　 else if =4 then begin 。 ?！? (39。delete from 學(xué)生表 where 年齡=39。39。39。++39。39。39。 39。)?！　? ?！? showmessage(39。刪除學(xué)生記錄成功！39。)?！?。　　 ?！? (39。select *from 學(xué)生表 39。)?！　? ?！　? :=true?！? end　　 else if =5 then begin 。 ?！? (39。delete from 學(xué)生表 where 性別=39。39。39。++39。39。39。 39。)?！? ?！　? showmessage(39。刪除學(xué)生記錄成功！39。)。　。 ?！? (39。select *from 學(xué)生表 39。)。 。 :=true?！　? end end?！nd.　　　unit Unit4?！　nterface　　uses　 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB?！ype TForm4 = class(TForm)　 Label1: TLabel?！　? Label2: TLabel?！　? Edit1: TEdit?！　? Label3: TLabel?！? Edit2: TEdit。 Label4: TLabel。　　 Edit3: TEdit?！　? Label5: TLabel。　 Edit4: TEdit。 Label6: TLabel?！　? Edit5: TEdit?！　? Label7: TLabel?！? Edit6: TEdit?！? Label8: TLabel。 Edit7: TEdit。 Label9: TLabel。 Edit8: TEdit。 Button1: TButton?！　? ADOQuery1: TADOQuery?！? DataSource1: TDataSource。 DBGrid1: TDBGrid?！　? Label10: TLabel。 ComboBox1: TComboBox。 Label11: TLabel?！? Edit9: TEdit?！? Button2: TButton。 Label12: TLabel?！? ComboBox2: TComboBox?！? Label13: TLabel。 Edit10: TEdit?！? Button3: TButton。 Label14: TLabel。 ComboBox3: TComboBox。 Label15: TLabel。 Edit11: TEdit?！　? Label16: TLabel?！? Edit12: TEdit?！? Button4: TButton?！　? Button5: TButton?！　? ADOConnection1: TADOConnection。 procedure Button5Click(Sender: TObject)?！? procedure Button2Click(Sender: TObject)?！? procedure Button4Click(Sender: TObject)?！　? procedure Button1Click(Sender: TObject)?！? procedure Button3Click(Sender: TObject)?！? private { Private declarations }　　 public { Public declarations } end?！　ar Form4: TForm4?！　　　mplementation　　　uses Unit2。{$R *.dfm}　procedure (Sender: TObject)?！egin?！??！　nd。　　　procedure (Sender: TObject)。　beginif =0　　 then begin　　 ?！? 。 (39。select * from 教師表 where 教師號=39。39。39。++39。39。39。39。)。　　 ?！? if =0 then　　 showmessage(39。對不起，沒有此教師號，請重新輸入39。)?！　? :=true?！? end　　　 else if =1　 then begin　　 。 。　 (39。select * from 教