EMSO.EXE

Olá, estou montando um sistema de academia e não estou conseguindo efetivar o login e senha, não consigo armazenar o resultado de uma consulta SQL na variável para usá-la na condição. Feito em Delphi 7. Agradeço a ajuda. procedure TF_Logon.Button1Click(Sender: TObject); var var_login: string; var var_senha: string; begin datamodule1.adoquery1.active:=false; datamodule1.adoquery1.sql.Clear; begin var_login:=(DataModule1.ADOQuery1.SQL.Add('select * from tb_funcionario where login ="'+edit_login.text+'"')); var_senha:=(DataModule1.ADOQuery1.SQL.Add('select * from tb_funcionario where senha ="'+edit_passwd+'"')); if var_login=edit_login.text and var_senha=edit_passwd then begin F_Principal.ShowModal; end else begin ShowMessage('Login e senha incorretos!'); end; datamodule1.adoquery1.active:=true; end; end;

Obrigado! Agora deu certo! valeu!

Olá, preciso iniciar 3 variáveis com 0 e uma com 1, só que elas são jogadas para uma função que executa as 4 operações aritméticas, as 4 vars vão recebendo o resultado das operações n vezes, so que as 4 vars tinha "lixo" (nums aleatorios), então com uma condição deveria atribuir 0 uma vez na execução do loop o if não pula um comando e executa o ultimo... ó o código... to usando TURBOC 3 total=0; while (total < qtde) { if (total=0) \*condição pra exexutar os comandos*\ { res1 = 0; \* pula esse *\ res2 = 0; \* pula esse *\ res3 = 0; \* pula esse *\ res4 = 1; \* só lê esse *\ } total=++total; printf("\n Digite o numero: "); scanf("%d",&num); operacao_int(num, res1, res2, res3, res4); }