GESTION MS-ACCESS AVEC DELPHI 7

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.

Télécharger le zip