Ver Mensaje Individual
  #4  
Antiguo 04-08-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Un ejemplito. Cuando den clic en OK:

Código Delphi [-]
if 
  TableUsuarios.Locate('login', EditLogin.Text) // ¿existe el usuario?
  and
  TableUsuarios.FieldByName('password').AsString = EditPassword.Text // ¿es correcto el password?
then
begin
  ShowMessage('Datos correctos, procede abrir el sistema');
end
else
begin
  ShowMessage('Datos incorrectos');
end;

// Saludos
Responder Con Cita