Работа с DBCheckBox

[artemavd]

Здравствуйте. Пишу программу и возникла такая трудность. Есть список некоторых услуг на форме в виде CheckBox-ов. Взависимости от ситуации я выбираю те, которые мне нужно и заношу идентификатор выбранной записи в БД. С этим проблем нет. Идентификаторы для своих записей я придумал такие как на скрине "Выборка". Выбрал первы CheckBox - в БД занеслось I и т.д. Результат внесения изображен на скрине "БД". Для отображения записей БД я использую DBCheckBox. Проблема-вопрос в следующем: как мне отобразить только те услуги есть у конкретного человека? (Речь не о запросе). Например, если взять запись, у которой IDFIO=1, то на форме должны активироваться только DBCheckBox-ы для которых есть значения в БД. Вообщем, в данном случае должно отобразиться первая, вторая и седьмая. Вот собственно такая проблемка.

[maLoy*508]

проверяем нужную запись, и если в полях есть данные то делаем чекбокс видимым... если нет то невидимым...

ну это так, навскидку...

[quit]

  DBCheckBox1.ValueChecked := 'I';//'II','III' и тд для каждого чекбокса
  DBCheckBox1.ValueUnchecked := '';

или на панели свойств Чекбокса пропиши сразу

[Баламут]

Примерно так

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  DBCheckBox1.Visible := ADOTable1.FieldByName('YesNo').AsBoolean;
end;

[artemavd]

Сообщение от quit

  DBCheckBox1.ValueChecked := 'I'//'II','III' и тд для каждого чекбокса
  DBCheckBox1.ValueUnchecked := '';

или на панели свойств Чекбокса пропиши сразу

И куда поместить этот код?)

[quit]

Сообщение от artemavd

И куда поместить этот код?)

Object Inspector'e глянь, для каждого чекбокса укажи нужные значения

[artemavd]

Я попробовал сделать так:

procedure TForm1.RzURLLabel2Click(Sender: TObject);
begin
 Form1.TabSheet6.Show;
 if DataSource1.DataSet.FieldByName('KOSMET').AsString = 'I' then
 begin
  DBCheckBox1.Visible:=True; { := DataSource1.DataSet.FieldByName('I').AsString;}
 end;

 if DataSource1.DataSet.FieldByName('KOSMET').AsString <> 'I' then
 begin
  DBCheckBox1.Visible:=False; { := DataSource1.DataSet.FieldByName('I').AsString;}
 end;
end;

Но не проверяются условия и DBCheckBox все равно остается видимым...