login dbexpress

Delphi

31/05/2006

bom dia!
estou querendo passar vinha programação o usuario e senha, para se logar utilizando dbexpress acessando sql server 2000

estou passando esse comando para nao esta funcionando

LoginParams.Values[´user_name´]:=vUsuario;
LoginParams.Values[´password´]:=vSenha;

qual seria a forma correta de passar o usuario e a senha?

obrigado


Airto

Airto

Curtidas 0

Respostas

Paullsoftware

Paullsoftware

31/05/2006

basicamente assim:

procedure TfLogin.TestaUsuario;
var
s,u:string;
begin
u := EditUsuario.Text;
s := EditSenha.Text;
LOGIN.Close;
LOGIN.CommandText := ´ SELECT * FROM USUARIOS WHERE USUARIO =:LOGIN AND SENHA =:SENHA ´;
LOGIN.Params.ParamByName(´LOGIN´).AsString := u ;
LOGIN.Paramss.ParamByName(´SENHA´).AsString := s ;
LOGIN.Open;
if not LOGIN.IsEmpty then
begin
GlbUser  := LOGIN.FieldByName(´USUARIO´).AsString;
GlbSenha := LOGIN.FieldByName(´SENHA´).AsString;
UserOk   := True;
vUser    := LOGIN.FieldByName(´CODIGO´).AsInteger;
end
else
Begin
UserOk := False;
end;
end;
espero ter ajudado :wink:


GOSTEI 0
POSTAR