unit fdlgticados;

interface

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

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