Saludos
Cita:
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