(Resolvido) componente Checkbox

[Livio Neiva]

ola para todos!!

eu criei uma uma tabela funcionarios com um campo actotal(acesso total), ou seja so grava um

caracteres.(Char 1)

e liquei um componente a esse campo. O componente Checkbox, se o Checkbox estiver marcado

ele grava um X no campo actotal, quando eu resolver desmarcar ele exclui o X do campo.

so q não estou ocnseguindo fazer um procedimento da forma q eu quero acima

eu não consigo desativar a opção Checkbox, ou seja eu faço o cadastro do funcionario(crio

registro) e ativo acessso total(Checkbox) saiu do registro e entro novamente para fazer

algumas alterações e desativo o acesso total(Checkbox), so q não desativa, o registro fica

com X no campo e o Checkbox fica marcdo, indicando q o mesmo tera acesso total como

admistrador.

quero q fique funcionando da forma q eu expliquei no 1º paragrafo, ou seja se eu resolver

desativar q fique desativado e o X sai do campo actotal.

abaixo estar os codigos;

eu crie dois procedimentos para meu cadastros,pois estou trabalhando com edits um

procedimento recebe os dados do banco de dados para edit e outro grava os dados do edit para

banco de dados.

procedure TF_Funcionarios.QueryToEdits;

If F_Dados.Q_Funcionario.FieldByName('actotal').AsString = 'X' then

CheckboxAcTotal.Checked := True;

procedure TF_Funcionarios.Grava;

if CheckboxAcTotal.Checked then

F_Dados.Q_Funcionario.FieldByName('actotal').AsString := 'X';

se puder tambem me mandar os procedimentos com campo actotal do tipo boolean, gostaria de

ver as duas formas, se fosse possivel

campo actotal do tipo boolean

campo actotal do tipo char 1

[Jhonas]

procedure TF_Funcionarios.QueryToEdits;

If F_Dados.Q_Funcionario.FieldByName('actotal').AsString = 'X' then
CheckboxAcTotal.Checked := True;

procedure TF_Funcionarios.Grava;

if CheckboxAcTotal.Checked then
F_Dados.Q_Funcionario.FieldByName('actotal').AsString := 'X';

quero q fique funcionando da forma q eu expliquei no 1º paragrafo, ou seja se eu resolver desativar q fique desativado e o X sai do campo actotal.

procedure TF_Funcionarios.QueryToEdits;

If F_Dados.Q_Funcionario.FieldByName('actotal').AsString = 'X' then
   CheckboxAcTotal.Checked := True
else
   CheckboxAcTotal.Checked := False;

procedure TF_Funcionarios.Grava;

if CheckboxAcTotal.Checked then
   F_Dados.Q_Funcionario.FieldByName('actotal').AsString := 'X'
else
   F_Dados.Q_Funcionario.FieldByName('actotal').AsString := ' ';

abraço

[Eder Moraes]

if CheckboxAcTotal.Checked then
   F_Dados.Q_Funcionario.FieldByName('actotal').AsString := 'X'
else
   F_Dados.Q_Funcionario.FieldByName('actotal').AsString := ' ';

tem um porem

//o AsString := ' '; deixa um campo ocupando espaço interno no banco.
  F_Dados.Q_Funcionario.FieldByName('actotal').Clear; //anula o conteudo do campo

[Micheus]

E esta outra parte, pode ser simplificada:

If F_Dados.Q_Funcionario.FieldByName('actotal').AsString = 'X' then
   CheckboxAcTotal.Checked := True
else
   CheckboxAcTotal.Checked := False;

ficando apenas:

CheckboxAcTotal.Checked := F_Dados.Q_Funcionario.FieldByName('actotal').AsString = 'X';

[Livio Neiva]

problema resolvido!!!

obrigado a todos