Problemas com Login

[rluiz1708 0]

Olá Pessoal!

 

Estou fazendo um sistema para Controle de Estoque em Delhi 7 e com Access. Preciso de um sistema de login que compare todos os usuários e senhas cadastrados no banco.

Já consegui fazer o login mas ele só verifica o 1° registro da tabela, se eu tiver mais que 1 usuário e senha cadastrado, ele só verifica o 1°. Gostaria de saber se alguém pode me ajudar...

Abaixo o código de quando clicar no botão:

 

procedure Tfrmlogin.btnlogarClick(Sender: TObject);begin login:= dmestoque.usuario.FieldByName('login').value; senha:= dmestoque.usuario.FieldByName('senha').value; if (login = txtlogin.text) and	(senha = txtsenha.text) then begin  Messagedlg('OK! Usuario e senha encontrados!',mtWarning,[mbOK],0); end;end;

Gostaria também que alguém pudesse me ajudar a fazem com o SQL dentro do Acess. Tipo...ter aqueles (select * from tabela).

 

Desde já agradeço. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Kleber Quilez 0]

Amigão isso ai se estiver no banco de Dados com linguagem SQL você pode usar da seguinte maneira...

 

Dados.QueryLogin.Close;

Dados.QueryLogin.SQL.Clear;

Dados.QueryLogin.SQL.Add('select * from login');

Dados.QueryLogin.SQL.Add('Where Nome = '+QuotedStr(EditNome.Text));

Dados.QueryLogin.Open;

 

Qualquer coisa explica melhor como você ta fazendo isso ai... do jeito que você passou fica meio Compiadinho Fera!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[rluiz1708 0]

Meu banco é em Access e uso os componentes BDE para conectar ao banco. Vi em outros tópicos pessoas com problemas com o Access e maioria delas usavam ADO para conectar.Alguém sabe dizer qual é o melhor? Com o BDE dá para fazer consultas na linguagem SQL com meu banco sendo em Access ou só com ADO???Não entendi direito essa sua resposta com o código em SQL que colocou. De onde vem o "Dados" e "QueyLogin"?

[Hugo Slepicka 0]

Veja se isso lhe ajuda:

http://forum.imasters.com.br/index.php?showtopic=230297

[Hugo Slepicka 0]

Faltou declarar as variáveis

 

Login, Senha : String;

 

e faltou também o SQL da consulta...

 

PS.: rluiz, posta aew depois o código que lhe enviei para futuras consultas...

 

Obrigado!

[rluiz1708 0]

1°- Agradeço ao Hugo Slepicka pela ajuda que me deu.

 

2°- Como ele disse, o problema estava na declaração das variáveis e o SQL da consulta. Que está abaixo:

 

procedure Tfrmlogin.btnlogarClick(Sender: TObject);var login, senha : string;begin dmestoque.querylogin.Sql.Clear; dmestoque.querylogin.Sql.Add('Select * from usuario'); dmestoque.querylogin.Sql.Add('Where login = '+QuotedStr(txtlogin.Text)); dmestoque.querylogin.Open; login:= dmestoque.querylogin.FieldByName('login').asstring; senha:= dmestoque.querylogin.FieldByName('senha').asstring; //Compara se Digitado é igual ao que está no banco if (txtlogin.text = login) and	(txtsenha.text = senha) then begin  Messagedlg('OK! Usuario e senha encontrados!',mtWarning,[mbOK],0);  usuariologado:=login;  frmprincipal.showmodal; end;end;

procedure Tfrmlogin.FormCreate(Sender: TObject);begin //Desconecta do Banco dmestoque.dbestoque.Connected := False; //Define a string de conexão... dmestoque.dbestoque.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+ExtractFilePath(Application.ExeName)+'bd\estoque.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Password="";'; //Conecta no Banco dmestoque.dbestoque.Connected := True;  end;

Vlw Pessoal! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Hugo Slepicka 0]

Beleza!!!

 

Se funfou então ta tudo certo..

 

Qualquer dúvida é só postar... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif