Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Ola galera.
Preciso aprender a programar delphi.
Ok entao estou começando com uma tela de login.
Aprendi a criar a adoquery e estou conectando com um bd access.
MAs ao preencher 2 textbox nao consigo retornar false no eof.
DataModule1.login.Parameters[0].Value := txtLogin.Text;
DataModule1.login.Parameters[1].Value := txtSenha.Text;
DataModule1.login.ExecSQL;
if not DataModule1.login.Eof then
begin
frmMenu.Show;
end
else
begin
ShowMessage('Usuario ou senha incorretos!');
endQual o problema?
Minha sql select usuario, senha from senha where usuario=: login and senha=: senha
o correto seria
//amigo eu nao entendi muito mais vamos supor que a tabela com os usuarios se chame "USUARIOS"
//------se encontrou algo
if DataModule1.login.recordcount > 0 then
begin
//--------digite aqui dentro o comando para se o logim estiver OK
//da um bem vindo ao usuario
showmessage('Login com sucesso! bem vindo '+txtLogin.text);
//------fim do comando caso login OK----------------
end
else
begin
//----------digite aqui o comando caso o login nao seja valido
showmessage('usuario ou senhas nao encontrados');
//-------------fim do comando caso login falhar
end;