【文章內容簡介】 endelse if =2 then begin。 。 (39。update 學生表 set 籍貫=39。39。39。++39。39。39。 where 籍貫=39。39。39。++39。39。39。 and 學號=39。39。39。++39。39。39。39。)。 。 showmessage(39。修改學生信息記錄成功！39。)。 。 (39。select *from 學生表 where 籍貫=39。39。39。++39。39。39。39。 )。 。 :=true。 endelse if =3 then begin。 。 (39。update 學生表 set 專業(yè)=39。39。39。++39。39。39。 where 專業(yè)=39。39。39。++39。39。39。 and 學號=39。39。39。++39。39。39。39。)。 。 showmessage(39。修改學生信息記錄成功！39。)。 。 (39。select *from 學生表 where 專業(yè)=39。39。39。++39。39。39。 and 學號=39。39。39。++39。39。39。39。)。 。 :=true。 endelse if =4then begin。 。 (39。update 學生表 set 年齡=39。39。39。++39。39。39。 where 年齡=39。39。39。++39。39。39。 and 學號=39。39。39。++39。39。39。39。)。 。 showmessage(39。修改學生信息記錄成功！39。)。 。 (39。select *from 學生表 where 年齡=39。39。39。++39。39。39。 and 學號=39。39。39。++39。39。39。39。)。 。 :=true。 endelse if =5then begin。 。 (39。update 學生表 set 性別=39。39。39。++39。39。39。 where 性別=39。39。39。++39。39。39。 and 學號=39。39。39。++39。39。39。39。)。 。 showmessage(39。修改學生信息記錄成功！39。)。 。 。 (39。select *from 學生表 where 性別=39。39。39。++39。39。39。 and 學號=39。39。39。++39。39。39。39。)。 。 :=true。 endend。procedure (Sender: TObject)。begin。 。 (39。insert into 學生表 (學號 ,姓名,籍貫 ,專業(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。添加學生信息記錄成功！39。)。 (39。select *from 學生表39。)。 。 :=true。end。procedure (Sender: TObject)。beginif =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 專業(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 end。end.unit Unit4。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB。type 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。var Form4: TForm4。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。)。 :=true。 end else if =1 then begin 。 。 (39。select * from 教師表 where 姓名=39。39。39。++39。39。39。39。)。