Publicado em 16 de jun.

Comparar campos de uma tabela

#comparar campos #delphi

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.

Discussão (1)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Marostegan· 17 de jun.

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;