Comparar campos de uma tabela

[Marostegan 0]

amigo,s bom dia!

 

Estou com um sistema de emissão de fichas mas estou com um problema de ativar itens...

(banco de dados: access)

 

Minha tabela:

Código | Produto | Ativo

1              Refri         Sim

2              Breja        Sim

3              Água       Não

4              Suco        Sim

5             Pastel      Não

 

** O que preciso:

 

Uma função que lê linha por linha e faça assim (no total são 36 códigos diferentes hoje utilizado):

 

Se o codigo 1 estiver SIM no campo ativo então botão Ficha1 do form1 será enable := true  caso estiver Não então botão Ficha1 será enable:= false;

Se o codigo 2 estiver SIM no campo ativo então botão Ficha2 do form1 será enable := true  caso estiver Não então botão Ficha2 será enable:= false;

Se o codigo 3 estiver SIM no campo ativo então botão Ficha3 do form1 será enable := true  caso estiver Não então botão Ficha3 será enable:= false;

 

e assim sucessivamente...

 

 

Alguém sabe me ajudar como fazer essa função?

 

Obrigado.

[Marostegan 0]

Consegui fazer da seguinte forma... Mas se alguém tiver uma sugestão mais simples, pois terei que fazer isso para 36 botões diferentes...

 

var
a1: string;
b1: string;
begin
a1 := '1';
b1 := 'SIM';
begin
with dm.q_config do
begin
 Close;
 SQL.Clear;
 SQL.Add('select * from tbl_produtos where id ='+QuotedStr('1'));
Open;
if  (a1 = '1') and (b1 = 'SIM')  then begin
if (a1 = dm.q_config.fieldbyname('id').AsString) and
   (b1 = dm.q_config.fieldbyname('bt').AsString)
then begin
//ativar estiver marcado como  sim
t1.enabled :=true;
end else begin
//ativar estiver marcado como não
t1.enabled :=false;
end; end; end; end; end;