Verificação Em Tabelas Paradox

[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......

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;

Fico no aguardo de uma ajuda de nossos colegas...

Grato

[Kikonanet]

Olá Eder,

Tenta usar o método Locate que retorna uma variável boolean.

if Table1PERMI.Locate('Campo','1',[LoCaseInsensitive]) then
 // acessa
else
 // não acessa

Abs.

Kiko

[Eder]

Valeu...Kiko....eu havia raciocionado incorretamente....eu tinha que avaliar outro campo que seria o campo de usuario......agora deu certo...veja o codigo como ficou:

procedure TForm1.Button9Click(Sender: TObject);
begin
if (TABLE4.Locate('LOGIN;PERMI', VarArrayOf([USUARIO.CAPTION,'B']), [])) OR
   (TABLE4.Locate('LOGIN;PERMI', VarArrayOf([USUARIO.CAPTION,'C']), [])) then
BEGIN
FORM7.SHOW; 
END
ELSE
BEGIN
SHOWMESSAGE('Usuário Não Autorizado!!');
EXIT;
end;
END;

Beleza....tks...