- unit testBD;
-
- interface
-
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, DB, Grids, DBGrids, DBTables, StdCtrls, ExtCtrls;
-
- type
- TForm1 = class(TForm)
- Table1: TTable;
- Query1: TQuery;
- DBGrid1: TDBGrid;
- DataSource1: TDataSource;
- Button1: TButton;
- BtnInsert: TButton;
- BtnDelete: TButton;
- BtnModify: TButton;
- lbEd1: TLabeledEdit;
- lbEd2: TLabeledEdit;
- procedure Button1Click(Sender: TObject);
- procedure BtnInsertClick(Sender: TObject);
- procedure FormCreate(Sender: TObject);
- procedure lbEd2Change(Sender: TObject);
- procedure lbEd1Change(Sender: TObject);
- procedure BtnDeleteClick(Sender: TObject);
- procedure BtnModifyClick(Sender: TObject);
- private
- { Déclarations privées }
- public
- { Déclarations publiques }
- end;
-
- var
- Form1: TForm1;
-
- implementation
-
- {$R *.dfm}
-
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- Application.Terminate;
- end;
-
- procedure TForm1.BtnInsertClick(Sender: TObject);
- var
- chp1, chp2 : string;
-
- begin
- Query1.SQL.Clear;
-
- Query1.SQL.Add('INSERT INTO tbl (chp1, chp2)');
- Query1.SQL.Add('VALUES (:chp1, :chp2)');
-
- Query1.Params[0].AsString := lbEd1.Text;
- Query1.Params[1].AsString := lbEd2.Text;
- Query1.ExecSQL;
- Table1.Refresh;
- btnDelete.Enabled := TRUE;
- lbEd1.Text := '';
- lbEd2.Text := '';
- end;
-
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- table1.Active := True;
- BtnInsert.Enabled := FALSE;
- BtnModify.Enabled := FALSE;
- BtnDelete.Enabled := (table1.RecordCount <> 0);
- end;
-
- procedure TForm1.lbEd2Change(Sender: TObject);
- begin
- BtnInsert.Enabled := ((lbEd1.Text <> '') and (lbEd2.Text <> ''));
- BtnModify.Enabled := ((lbEd1.Text <> '') or (lbEd2.Text <> '')) and
- (table1.RecordCount <> 0);
- end;
-
- procedure TForm1.lbEd1Change(Sender: TObject);
- begin
- BtnInsert.Enabled := ((lbEd1.Text <> '') and (lbEd2.Text <> ''));
- BtnModify.Enabled := ((lbEd1.Text <> '') or (lbEd2.Text <> '')) and
- (table1.RecordCount <> 0);
- end;
-
- procedure TForm1.BtnDeleteClick(Sender: TObject);
- var
- strcle : string ;
-
- begin
- strcle := DBGrid1.Fields[0].Value;
- Query1.SQL.Clear;
-
- Query1.SQL.Add('DELETE FROM tbl');
- Query1.SQL.Add('WHERE cle =');
- Query1.SQL.Add(strcle);
- Query1.ExecSQL;
- Table1.Refresh;
- if table1.RecordCount = 0
- then btnDelete.Enabled := FALSE;
- end;
-
- procedure TForm1.BtnModifyClick(Sender: TObject);
- var
- strcle : string ;
-
- begin
- strcle := DBGrid1.Fields[0].Value;
- Query1.SQL.Clear;
-
- Query1.SQL.Add('UPDATE tbl');
- Query1.SQL.Add('SET chp1 = :chp1, chp2 = :chp2');
- Query1.SQL.Add('WHERE cle =');
- Query1.SQL.Add(strcle);
- if lbEd1.Text <> ''
- then Query1.Params[0].AsString := lbEd1.Text
- else Query1.Params[0].AsString := DBGrid1.Fields[1].Value;
- if lbEd2.Text <> ''
- then Query1.Params[1].AsString := lbEd2.Text
- else Query1.Params[1].AsString := DBGrid1.Fields[2].Value;
- Query1.ExecSQL;
- Table1.Refresh;
- lbEd1.Text := '';
- lbEd2.Text := '';
- end;
-
- end.
unit testBD;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, DBTables, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Table1: TTable;
Query1: TQuery;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Button1: TButton;
BtnInsert: TButton;
BtnDelete: TButton;
BtnModify: TButton;
lbEd1: TLabeledEdit;
lbEd2: TLabeledEdit;
procedure Button1Click(Sender: TObject);
procedure BtnInsertClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure lbEd2Change(Sender: TObject);
procedure lbEd1Change(Sender: TObject);
procedure BtnDeleteClick(Sender: TObject);
procedure BtnModifyClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.BtnInsertClick(Sender: TObject);
var
chp1, chp2 : string;
begin
Query1.SQL.Clear;
Query1.SQL.Add('INSERT INTO tbl (chp1, chp2)');
Query1.SQL.Add('VALUES (:chp1, :chp2)');
Query1.Params[0].AsString := lbEd1.Text;
Query1.Params[1].AsString := lbEd2.Text;
Query1.ExecSQL;
Table1.Refresh;
btnDelete.Enabled := TRUE;
lbEd1.Text := '';
lbEd2.Text := '';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
table1.Active := True;
BtnInsert.Enabled := FALSE;
BtnModify.Enabled := FALSE;
BtnDelete.Enabled := (table1.RecordCount <> 0);
end;
procedure TForm1.lbEd2Change(Sender: TObject);
begin
BtnInsert.Enabled := ((lbEd1.Text <> '') and (lbEd2.Text <> ''));
BtnModify.Enabled := ((lbEd1.Text <> '') or (lbEd2.Text <> '')) and
(table1.RecordCount <> 0);
end;
procedure TForm1.lbEd1Change(Sender: TObject);
begin
BtnInsert.Enabled := ((lbEd1.Text <> '') and (lbEd2.Text <> ''));
BtnModify.Enabled := ((lbEd1.Text <> '') or (lbEd2.Text <> '')) and
(table1.RecordCount <> 0);
end;
procedure TForm1.BtnDeleteClick(Sender: TObject);
var
strcle : string ;
begin
strcle := DBGrid1.Fields[0].Value;
Query1.SQL.Clear;
Query1.SQL.Add('DELETE FROM tbl');
Query1.SQL.Add('WHERE cle =');
Query1.SQL.Add(strcle);
Query1.ExecSQL;
Table1.Refresh;
if table1.RecordCount = 0
then btnDelete.Enabled := FALSE;
end;
procedure TForm1.BtnModifyClick(Sender: TObject);
var
strcle : string ;
begin
strcle := DBGrid1.Fields[0].Value;
Query1.SQL.Clear;
Query1.SQL.Add('UPDATE tbl');
Query1.SQL.Add('SET chp1 = :chp1, chp2 = :chp2');
Query1.SQL.Add('WHERE cle =');
Query1.SQL.Add(strcle);
if lbEd1.Text <> ''
then Query1.Params[0].AsString := lbEd1.Text
else Query1.Params[0].AsString := DBGrid1.Fields[1].Value;
if lbEd2.Text <> ''
then Query1.Params[1].AsString := lbEd2.Text
else Query1.Params[1].AsString := DBGrid1.Fields[2].Value;
Query1.ExecSQL;
Table1.Refresh;
lbEd1.Text := '';
lbEd2.Text := '';
end;
end.