Fórum login dbexpress #322613

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;