preciso verificar uma tabela se um determinado campo chamado PERMI tem um valor=1 em qualquer registo
SE tiver este valor ele libera o form.SHOW;, caso contrário ele joga mensagem na tela.
EU FIZ um codigo assim, mas não ta funcionando......
procedure TForm1.Button8Click(Sender: TObject);
begin
If Table1PERMI.Value = '1' THEN //verifica se na tabela existe o campo PERMI c/ o valor = 1
BEGIN
FORM7.SHOW; //se achar ele libera o form7
END
ELSE
BEGIN
SHOWMESSAGE('Usuário Não Autorizado!!');
EXIT;
end;
END;
Pergunta
Eder
OLá...pessoal....estou com um problema...
preciso verificar uma tabela se um determinado campo chamado PERMI tem um valor=1 em qualquer registo
SE tiver este valor ele libera o form.SHOW;, caso contrário ele joga mensagem na tela.
EU FIZ um codigo assim, mas não ta funcionando......
Fico no aguardo de uma ajuda de nossos colegas...
Grato
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados