como inicio una busqueda de delphi a sql server 2000

[ramphi]

hola gente del foro

he estado intentando hacer un login en delphi 7 con base de datos en sql server 2000 y he tenido problemas para hacer lo no he podido hacer la busqueda y confirmar si el usuario existe,

intente con

Código Delphi [-]
rocedure Tfrmlogin.Button1Click(Sender: TObject);
begin
dmfacturacion.tadousuariousuarioid.FindComponent(edit1.Text);
if dmfacturacion.tadousuariousuarioid.FindComponent(edit1.Text):= true then
 showmessage ('Se encontro el usuario')
end;

alguine puede darme una orientacion para hacer un login con sql server 2000

[ramphi]

Empezado por ramphi

hola gente del foro

he estado intentando hacer un login en delphi 7 con base de datos en sql server 2000 y he tenido problemas para hacer lo no he podido hacer la busqueda y confirmar si el usuario existe,

intente con
Código Delphi [-]rocedure Tfrmlogin.Button1Click(Sender: TObject); begin dmfacturacion.tadousuariousuarioid.FindComponent(edit1.Text); if dmfacturacion.tadousuariousuarioid.FindComponent(edit1.Text):= true then showmessage ('Se encontro el usuario') end;


alguine puede darme una orientacion para hacer un login con sql server 2000

tambien intente con

Código Delphi [-]
dmfacturacion.tadousuario.findkey([edit1.Text]);

y me dice k findkey no indentificado
hay alguien k me de una manita

[Neftali [Germán.Estévez]]

¿Has mirado la ayuda sobre ADO? ¿Has leído algun manual?
No por nada, lo digo porque lo que has puesto arriba no tiene ningun sentido; No se si es una error al escribir el mensaje o que realmente estás intentando con eso.

FindComponent no se usa para buscar datos en tablas, no creo que tenga sentido usarlo con un ADO Table.
FindKey sí tiene sentido, pero tampoco es correcto.

Revisa la ayuda sobre Locate con ADOTable o ADOQuery.
Supongo que deberías usar algo así:

Código Delphi [-]
var
  b:Boolean;
begin
  // Buscar por el campo de la tabla llamado 
  b := dmfacturacion.tadousuariousuarioid.Locate('NombreUsuario', Edit1.Text, [loCaseInsensitive, loPartialKey]);
  if (b) then begin
    // Encontrado
    ...
  end
  else begin
    // no enconbtrado
     ...
  end;

[ramphi]

intente con

Código Delphi [-]
procedure Tfrmlogin.Button1Click(Sender: TObject);
var
encontrado: boolean;
begin
encontrado:=dmfacturacion.tadousuario.Locate('usuarioid',edit1.Text,[LoCaseInsensitive]);
if (encontrado) then
  encontrado
else 
no encontrado
end;

y me da el error de LoCaseInsensitive no indentificado

y si lo quito me dice que no hay suficientes parametros
que hago mal aqui

[ramphi]

intente poner mi adotable en un formulario no en el data modulo la siguiente forma:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
encontrado: boolean;
begin
encontrado:=adotable1.Locate('usuarioid',edit1.Text, [locaseinsensitive, lopartialkey]);
  if (encontrado)then
  begin
  showmessage ('entraste')
  end
  else
  showmessage ('no entraste')
end;

y funciona bien pero cuando intento de la siguiente manera

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
encontrado: boolean;
begin
encontrado:=dmfacturacion.tadousuario.Locate('usuarioid',edit1.Text, [locaseinsensitive, lopartialkey]);
  if (encontrado)then
  begin
  showmessage ('entraste')
  end
  else
  showmessage ('no entraste')
end;

y me da error como indeclarado identificador 'locaseinsensitive'
y igual con el lopartialkey

cual seria mi error aqui