unit fdlgticados;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.DBGrids, Data.DB,
  ZAbstractRODataset, ZAbstractDataset, ZDataset, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  Tdlgticados = class(TForm)
    Panel6: TPanel;
    Button1: TButton;
    dsqticados: TDataSource;
    qticados: TZQuery;
    qticadosid: TLargeintField;
    qticadoside: TSmallintField;
    qticadosfecha: TDateField;
    qticadosidt: TIntegerField;
    qticadosTRABAJADOR: TWideStringField;
    qticadosENTRADA_REAL: TTimeField;
    qticadosSALIDA_REAL: TTimeField;
    qticadostiempo: TFloatField;
    updateticadoscompleto: TZQuery;
    DBGrid1: TDBGrid;
    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.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.