Hola gente...
No se cómo titular este hilo por lo que pido disculpas si está mal.
Tengo el siguiente problema y no logro ver la "luz". En un form tengo un Tedit el cual uso para ingresar una contraseña y al presionar enter el siguiente código
Código Delphi
[-]
procedure TfrmClaveAsistencia.eContraseniaCorreoKeyPress(Sender: TObject;
var Key: Char);
begin
if (Key = #13) then
begin
dmQuerys.qAbrirCorreo.Close;
dmQuerys.qAbrirCorreo.Open;
if dmQuerys.qAbrirCorreo.FieldByName('DAT_Apellido').AsString = '' then
begin
ShowMessage('Su contraseña no es válida, vuelva a intentarlo...');
eContraseniaCorreo.Clear;
end
else
begin
frmCorreoInterno := TfrmCorreoInterno.Create(Application);
try
frmCorreoInterno.ShowModal
finally
frmCorreoInterno.Free;
Close;
end;
end;
end;
end;
en el beforeopen del Query el siguiente código
Código Delphi
[-]
qAbrirCorreo.ParamByName('pDocumento').AsInteger :=
StrToInt(frmClaveAsistencia.eContraseniaCorreo.Text);
la idea es que si ingresa la contraseña y está registrado como usuario pueda acceder al form del correo (esto si encuentra los datos). El problema es que si no ingreso contraseña y después de los show ingresa igual!
Podrian revisar el código y verificar el error ya que no logro encontrarlo...
Muchas gracias