Ver Mensaje Individual
  #4  
Antiguo 28-05-2012
gersojn gersojn is offline
Miembro
NULL
 
Registrado: jul 2011
Posts: 85
Reputación: 16
gersojn Va por buen camino
Solucionado

Ya lo solucione, gracias por la ayuda mightydragonlor , posteo el codigo, por si alguien busca un login de usuarios con Oracle XE, Delphi y ZeosLib(en los if, solo colocan la funcion que desean que realize al validar el logeo de un usuario)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
usuario,password: string;
begin
  Query.Close;
  Query.SQL.Clear;
  Query.Active:=False;
  usuario:= Edit1.Text;
  password:= Edit2.Text;
  Query.SQL.Add('SELECT ID_USUARIO,PASSWORD FROM USUARIO WHERE ID_USUARIO='+quotedstr(usuario)+'and PASSWORD='+quotedstr(password));
  Query.Active:=True;
  Query.Open;
  if Query.RecordCount = 0 then
  begin
    ShowMessage('no esta en BD');
  end;

  if Query.RecordCount <> 0 then
  begin
    ShowMessage('si esta en BD');
  end;

end;

Última edición por gersojn fecha: 28-05-2012 a las 21:53:32. Razón: Agregar explicacion faltante en codigo
Responder Con Cita