Jump to content
dan_visualdm

Comparar campos de uma tabela

Recommended Posts

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.

Share this post


Link to post
Share on other sites

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;

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.