Ingreso al form mediante contraseña o sin ella

[vtdeleon]

Saludos

Empezado por Pablo_Carlos

El problema es que si no ingreso contraseña y después de los show ingresa igual!

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