Erro Verifica��o de Login

30/09/2020

Estou tentando fazer uma verifica��o de login com o banco de dados, por�m estou tendo erro de Open Methods Select/Like. Vou deixar o link do projeto para melhor entendimento. https://github.com/pasqualiin/Concessionaria.
O login � feito via CPF e a senha cadastrada pelo usu�rio.

function TVendedorDAO.VerificarLogin(user, passw: string): Boolean;
var
  SQL: string;
begin
  SQL := ''SELECT C.cpf, C.senha from vendedor C where C.cpf like '' +
    QuotedStr(user) + '' and C.senha like '' + QuotedStr(passw);

  Result := ExecutarComando(SQL) > 0;
end;

No onClick do bot�o entrar estou fazendo o seguinte:

procedure TFrmLogin.SpeedButton1Click(Sender: TObject);
begin
  VendedorDAO := TVendedorDAO.Create;
  VendedorDAO.VerificarLogin(edtUser.Text, edtPassw.Text);
  FrmPrincipal.ShowModal;
end;

Guilherme Algeri

Curtir t�pico + 0

Responder

Post mais votado

30/09/2020

quando voc� trabalha com SELECT, o m�todo utilizado precisa ser OPEN
ExecSQL deve ser utilizado para os demais comandos (UPDATE, DELETE, DROP, etc)

Emerson Nascimento

Responder

Gostei + 2

Mais Posts

30/09/2020

Emerson Nascimento

aparentemente a fun��o VerificarLogin est� correta.

function TVendedorDAO.VerificarLogin(user, passw: string): Boolean;
var
  SQL: string;
begin
  SQL := 'SELECT cpf, senha from vendedor where cpf = ' + QuotedStr(user) + ' and senha = ' + QuotedStr(passw);
  Result := ExecutarComando(SQL) > 0;
end;

� preciso saber como foi implementada a fun��o ExecutarComando().

Responder

Gostei + 0

30/09/2020

Guilherme Algeri

aparentemente a fun��o VerificarLogin est� correta.

function TVendedorDAO.VerificarLogin(user, passw: string): Boolean;
var
  SQL: string;
begin
  SQL := 'SELECT cpf, senha from vendedor where cpf = ' + QuotedStr(user) + ' and senha = ' + QuotedStr(passw);
  Result := ExecutarComando(SQL) > 0;
end;

� preciso saber como foi implementada a fun��o ExecutarComando().

A fun��o ExecutarComando:

function TBaseDAO.ExecutarComando(pSQL: string): integer;
begin
  Try
    DM.Conn.StartTransaction;
    FQuery.SQL.Text := pSQL;
    FQuery.ExecSQL;
    Result := FQuery.RowsAffected;
    DM.Conn.Commit;
  except
    DM.Conn.Rollback;
  End;

Responder

Gostei + 0

30/09/2020

Emerson Nascimento

crie uma outra fun��o para usar com esse tipo de an�lise:

function TBaseDAO.HaRegistro(pSQL: string): integer;
begin
  Try
    FQuery.SQL.Text := pSQL;
    FQuery.Open;
    Result := not FQuery.Eof;
    FQuery.Close;
  except
    Result := false;
  end;
end;

e use assim:

function TVendedorDAO.VerificarLogin(user, passw: string): Boolean;
begin
  Result := HaRegistro('SELECT cpf, senha from vendedor where cpf = ' + QuotedStr(user) + ' and senha = ' + QuotedStr(passw));
end;

Responder

Gostei + 1