procedure TfmLogin.Button1Click(Sender: TObject);
begin
Tabela.First; //Pula pro primeiro registro
while not Tabela.Eof do //Enquanto não for o fim da tabela
begin
if edit1.Text = Tabela.fieldbyname('Login') then [B]//está dando erro nesta linha[/B]
begin
if edit2.Text = Tabela.fieldbyname('Senha') then
begin
showMessage('Usuário cadastrado')
fmLogin.Close;
abort; //Para não aparecer a chamada de erro no final
end
else
begin
('Senha inválida!')
abort;
end;
end;
Tabela.next;
end;
showMessage('Usuário não existe.'); //Se chegar no fim da tabela e não encontrar
end;
//[Error] U_login.pas(51): Incompatible types: 'String' and 'TField'
BOM, EU HAVIA PERGUNTADO E DEPOIS DESTE CÓDIGO PASSADO PELO MEMBRO "MODERADOR". SURGIRAM AS SEGUINTES DÚVIDAS :
>> O que devo fazer para o código entender que estou solicitando informações do Banco de Dados ?
>> Devo colocar mais algum objeto no meu formulário ?
Pergunta
Guest Alessandro
//[Error] U_login.pas(51): Incompatible types: 'String' and 'TField'
BOM, EU HAVIA PERGUNTADO E DEPOIS DESTE CÓDIGO PASSADO PELO MEMBRO "MODERADOR". SURGIRAM AS SEGUINTES DÚVIDAS :
>> O que devo fazer para o código entender que estou solicitando informações do Banco de Dados ?
>> Devo colocar mais algum objeto no meu formulário ?
Agradeço a paciência dos membros.....
Link para o comentário
Compartilhar em outros sites
12 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.