ActiveDelphi

daqdel · Enviada: Ter Out 22, 2019 2:36 pm Assunto: atualização sem botão

Boa tarde!
Pessoal tenho uma tabela com todo controle de acesso dos usuários.
Quando abro o sistema, todos itens dos ADVMENU estão em enabled= false;
Como eu posso fazer, para percorrer a minha planilha e ir acionando os menu que lá estão registrado para dar acesso.

A Tabela esta desta forma:
ID_user|DescPOP
000005|AdvPop_progr.Items[1].Enabled:= true;
000005|AdvPop_progr.Items[3].Enabled:= true;
000005|AdvPop_progr.Items[9].Enabled:= true;

Como eu faço para acionar a ação que esta escrita no banco de dados ?

imex · Enviada: Ter Out 22, 2019 4:18 pm Assunto:

Boa tarde,

Essa tabela vai ser utilizada só para ativar ou desativar itens do menu? Ela pode ser modificada?
Se a resposta for sim para as 2 perguntas, acho que seria melhor você trocar esse campo DescPOP por 2 campos, um do tipo integer para armazenar o índice do item do menu (ex: 1, 3 ou 9) e outro do tipo char(1) para armazenar se o item deve ser habilitado (ex: 'S' ou 'T') ou desabilitado (ex: 'N' ou 'F').
Com os campos dessa forma você poderia utilizar uma linha de comando dentro de um looping que lê essa tabela conforme exemplo abaixo: