unit desbloqueo;

interface

uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Touch.Keyboard, Vcl.StdCtrls, 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.Client, FireDAC.Comp.DataSet, FireDAC.Phys.MySQL, FireDAC.Phys.SQLite;

type
  Tfdesbloqueo = class(TForm)
    Edit1: TEdit;
    TouchKeyboard1: TTouchKeyboard;
    Label1: TLabel;
    Edit2: TEdit;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Exit(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fdesbloqueo: Tfdesbloqueo;

implementation

{$R *.dfm}

uses principal;


procedure Tfdesbloqueo.Edit1Exit(Sender: TObject);
var dia,mes,anyo:word;
    clave:string;
begin
   decodedate(date,anyo,mes,dia);
   clave:='';//inttostr(dia)+'/'+inttostr(mes);
   if edit1.Text=clave then
   begin
{       pprincipal.tpesar.Enabled:=true;
       pprincipal.puerto1.Connected:=true;
       pprincipal.qdesbloqueos.Open;
       pprincipal.qdesbloqueos.append;
       pprincipal.qdesbloqueosenvasadora.Value:=pprincipal.qenvasadorastrabajador.asstring;
       pprincipal.qdesbloqueosmesa.Value:=pprincipal.lmesa.Caption;
       pprincipal.qdesbloqueosbascula.Value:=pprincipal.lbascula.Caption;
       pprincipal.qdesbloqueosestado.Value:=1;
       pprincipal.qdesbloqueosfecha.Value:=date;
       pprincipal.qdesbloqueoshora.value:=time;
       pprincipal.qdesbloqueos.Post;
       pprincipal.qdesbloqueos.Close;
       bloqueado:=false;
                }
       fdesbloqueo.close;
   end else
       begin
           edit1.SetFocus;
           edit1.Text:='';
       end;


end;

procedure Tfdesbloqueo.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if (key=#13) then
    begin
        Perform(WM_NextDLGCtl,0,0);
        key:=#0;
    end;

end;

procedure Tfdesbloqueo.FormShow(Sender: TObject);
begin
    edit1.Text:='';
    edit1.SetFocus;
end;

end.