unit fdlgticados;

interface

uses
  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, uFireDacHelper,
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB,  
  Vcl.Grids, Vcl.DBGrids,  Vcl.StdCtrls, Vcl.ExtCtrls;

type
  Tdlgticados = class(TForm)
    DBGrid1: TDBGrid;
    dsqticados: TDataSource;
    Panel6: TPanel;
    Button1: TButton;
    qticados: TFDQuery;
    qticadosid: TLargeintField;
    qticadoside: TSmallintField;
    qticadosfecha: TDateField;
    qticadosidt: TIntegerField;
    qticadosTRABAJADOR: TWideStringField;
    qticadosENTRADA_REAL: TTimeField;
    qticadosSALIDA_REAL: TTimeField;
    qticadostiempo: TFloatField;
    updateticadoscompleto: TFDQuery;
    procedure Button1Click(Sender: TObject);
    procedure qticadosAfterPost(DataSet: TDataSet);
    procedure qticadosBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
    var  idticado: integer;
  end;

var
  dlgticados: Tdlgticados;
implementation

{$R *.dfm}

uses fticados;

procedure Tdlgticados.Button1Click(Sender: TObject);
begin
    qticados.Delete;
end;

procedure Tdlgticados.qticadosAfterPost(DataSet: TDataSet);
begin
  qticados.Refresh;

end;

procedure Tdlgticados.qticadosBeforePost(DataSet: TDataSet);
begin
    qticadosidt.Value:=ticados.qticadosidt.AsInteger;
    qticadostrabajador.Value:=ticados.qticadosTRABAJADOR.AsString;
end;

end.