Problemas com funções Delphi-SQL

[_jean 0]

Olá Pessoal!

Sou iniciante em Delphi e estou tendo alguns problemas com um sistema de login.

Criei algumas procedures que estão dentro da UnBiblioteca.

Estou upando o arquivo.

Não sei pq o delphi só está reconhecendo a primeira linha que está no banco de dados.

Creio que seja algum problema com o SQL da função.

 

Link do .RAR do sistema: http://www.mediafire.com/?2mnamgt0gjm

 

Obrigado!

[Rodrigo Miss 1]

Amigo ....

você deve postar o Trecho do seu código que está com dúvida, aqui no fórum ...

Sua dúvida, pode ser dúvida de outros daqui também, e além do mais, ninguém vai querer ficar verificando seu projeto inteiro, vasculhando pra encontrar um probleminha ....

[_jean 0]

Peço Desculpas, sou novo aqui no fórum e não conhecia as regras.

O erro que estou tendo é o seguinte, ele somente faz o login com o Administrador, que por sua vez, está na primeira linha do Banco de Dados. Ele não está procurando além desta linha.

 

Aqui está o trecho:

 

CODE

procedure procurausuario (var usu:string); // Função utilizada para encontrar o usuário no BD

var consulta:string;

begin

transacao.TransactionID:=1;

dmode.SQLConnection1.StartTransaction(transacao);

consulta := 'select cod_usu, chave_usu, senha_usu, nome_usu from usuarios where chave_usu='''+usu+'''';

dmode.querygen.close;

dmode.querygen.sql.Clear;

dmode.querygen.SQL.Append(consulta);

dmode.querygen.open;

dmode.SQLConnection1.commit(transacao);

end;

 

CODE

procedure Tfrmlogin.btnloginClick(Sender: TObject); // Procedure do botão que faz o login;

var

cont: integer;

consulta : string;

begin

usu:= edUsuario.text;

procurausuario(usu);

if dmode.queryusuarios.Eof then

begin

Showmessage ('Usuario inexistente');

cont:= cont+1;

if (cont>=3) then

halt;

exit;

 

end;

dmode.queryusuarios.first;

 

if dmode.queryusuarios.Fields[2].asstring = edUsuario.text then

begin

if dmode.queryusuarios.fields[3].asstring= edSenha.text then

begin

Showmessage ('Usuario e Senha ok');

teste_login := true;

frmlogin.Close;

frmprincipal.SetFocus;

end

else

begin

Showmessage ('Senha Incorreta');

cont:= cont+1;

if (cont>=3) then

halt;

end

end

else

begin

showmessage ('Usuario Inexistente');

cont:= cont+1;

if (cont>=3) then

halt;

 

end;

end;

[_jean 0]

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