?? kctj.pas
字號:
unit kctj;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;
type
TForm2 = class(TForm)
qry: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Label1: TLabel;
num: TEdit;
Label2: TLabel;
nam: TEdit;
Label3: TLabel;
dep: TEdit;
fgfhh: TLabel;
cla: TEdit;
Label4: TLabel;
cre: TEdit;
butu: TButton;
butd: TButton;
butc: TButton;
procedure butuClick(Sender: TObject);
procedure butcClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure butdClick(Sender: TObject);
private
{ Private declarations }
procedure frsdbgride;
procedure setEnable (f:boolean);
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses UnitData;
{$R *.dfm}
procedure Tform2.frsdbgride;
var
query: TADOQuery;
begin
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('select * from COURSE ');
qry.open;
SetEnable(not qry.Eof);
if not qry.Eof then begin
query := TADOQuery.Create(self);
query.Connection := data.adoc;
query.Close;
query.SQL.Clear;
query.SQL.Add('select * from COURSE where id=' + qry.FieldByName('id').AsString);
query.Open;
num.Text := query.FieldByName('id').AsString;
nam.Text := query.FieldByName('name').AsString;
dep.Text := query.FieldByName('dept').AsString;
cla.Text := query.FieldByName('class').AsString;
cre.Text := query.FieldByName('credit').AsString;
query.Free;
end;
end;
procedure Tform2.setEnable(f:boolean);
begin
butu.Enabled := f;
butd.Enabled := f;
end;
procedure TForm2.butuClick(Sender: TObject);
var
s: string;
begin
s := qry.FieldByName('id').AsString;
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('update COURSE set name= ''' + nam.text +''',dept= ''' + dep.text +''',class= '''+ cla.text +''',credit= ''' +cre.Text+''' where id='+s);
qry.ExecSQL;
frsdbgride;
end;
procedure TForm2.butcClick(Sender: TObject);
begin
close;
end;
procedure TForm2.FormShow(Sender: TObject);
begin
frsdbgride;
end;
procedure TForm2.DBGrid1CellClick(Column: TColumn);
var
query: TADOQuery;
begin
SetEnable(not qry.Eof);
if not qry.Eof then begin
query := TADOQuery.Create(self);
query.Connection := data.adoc;
query.Close;
query.SQL.Clear;
query.SQL.Add('select * from COURSE where id=' + qry.FieldByName('id').AsString);
query.Open;
num.Text := query.FieldByName('id').AsString;
nam.Text := query.FieldByName('name').AsString;
dep.Text := query.FieldByName('dept').AsString;
cla.Text := query.FieldByName('class').AsString;
cre.Text := query.FieldByName('credit').AsString;
query.Free;
end;
end;
procedure TForm2.butdClick(Sender: TObject);
var
s: string;
begin
s := qry.FieldByName('id').AsString;
if application.MessageBox(PAnsiChar('真的要刪除嗎?'), PAnsiChar('確認刪除'), MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) = IDYES then begin
qry.Close;
qry.SQL.Clear;
qry.SQL.Add('delete * from COURSE where id=' + s);
qry.ExecSQL;
frsdbgride;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -