Tema: Validacion de usuarios
Ver Mensaje Individual
  #5  
Antiguo 25-05-2007
Avatar de Maury Manosalva
Maury Manosalva Maury Manosalva is offline
Miembro
  
Registrado: ago 2005
Posts: 101
Reputación: 19
Maury Manosalva Va por buen camino
Como hacer una entrada para usuarios 
Código Delphi [-]
with QryConsultas do
   begin
   close;
   SQL.Clear;
   consulta := 'Select * from TabUsuarios where IdUsuario ='+char(39)+ txtUsuario.Text+char(39)+
   'and ConUsuario ='+chr(39) + txtcontrasena.Text+char(39);
   valor := txtUsuario.Text;
   SQL.Add(consulta);
   Open;
   If (RecordCount=1) then

si es igual a 1 pasa a lo que quieres que haga, de lo contrario un application.terminate
Responder Con Cita