Access violation att address
29/09/2017
0
Anderson Saldanha
Post mais votado
29/09/2017
Tente debugar sua tela de login para saber em que linha do código e que componente ocorre o erro.
Natanael Ferreira
Mais Posts
29/09/2017
Anderson Saldanha
29/09/2017
Anderson Saldanha
procedure TF_login.FormCreate(Sender: TObject);
begin
end;
procedure TF_login.btn_entrarClick(Sender: TObject);
begin
with dm.sql_login do
begin
Close;
sql.Clear;
sql.Add('select * from usuario');
sql.Add('where login = :login and senha = :senha');
ParamByName('login').Value := txt_login.Text;
ParamByName('senha').Value := txt_senha.Text;
open;
if RecordCount > 0 then
begin
F_login.Close
end
else begin
ShowMessage('USUARIO OU SENHA INCORRETO');
end;
end;
end;
end.
Debugando mostra que o erro esta no WITH dm.sql_login DO..
29/09/2017
Natanael Ferreira
Coloque seu DM como Auto-Create forms (será criado automaticamente ao iniciar aplicação).
Para colocá-lo como Auto-Create Forms, vá no menu:
Project/Options/Forms
E coloque o DM para o "lado" do Auto-Create Forms.
29/09/2017
Anderson Saldanha
esta o F_inicial depois o dm e o F_login
29/09/2017
Anderson Saldanha
Clique aqui para fazer login e interagir na Comunidade :)