unit Udetailoperationpourentretien;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DBCtrls, StdCtrls,db ;

type
  TFdetailoperationpourentretien = class(TForm)
    DBGrid1: TDBGrid;
    btnok: TButton;
    btannuler: TButton;
    btsupprimer: TButton;
    procedure btnokClick(Sender: TObject);
    procedure btannulerClick(Sender: TObject);
    procedure btsupprimerClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Fdetailoperationpourentretien: TFdetailoperationpourentretien;

implementation

uses Udata;

{$R *.dfm}

procedure TFdetailoperationpourentretien.btnokClick(Sender: TObject);
begin
If (Data.Toperation.State = DsEdit) or (Data.Toperation.State = DsInsert)
then Data.Toperation.Post;
close;
end;

procedure TFdetailoperationpourentretien.btannulerClick(Sender: TObject);
begin
data.Toperation.Cancel;
end;

procedure TFdetailoperationpourentretien.btsupprimerClick(Sender: TObject);
begin
data.Toperation.Delete;
end;

end.