Ingreso al form mediante contraseña o sin ella
 

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

Saludos :confused::confused::confused: No entiendo, Quieres qeu pueda entrar sin contrase~a o no?

Siguendo con tu estructura....
Poner otra condicion despues de la condicion key=#13, que revise si el Edit esta vacio o no

Código Delphi [-]
procedure TfrmClaveAsistencia.eContraseniaCorreoKeyPress(Sender: TObject;
       var Key: Char);
     begin
      if (Key = #13) then
       if trim(edit1.text)<>'' then
       begin
        dmQuerys.qAbrirCorreo.Close;
        dmQuerys.qAbrirCorreo.Open;
        if dmQuerys.qAbrirCorreo.FieldByName('DAT_Apellido').AsString = ''  then 
 .....
 .....

Y Chequea estos enlaces:
http://www.clubdelphi.com/foros/show...=tabla+usuario
http://www.clubdelphi.com/foros/show...usuario+acceso

Son buenos y contienen codigos fuentes

Suerte

Gracias por responder... recien me conecto después de una minivaciones. Probaré con otro if y veré si obtengo el resultado esperado.-
Gracias y saludos