DBDateTimePicker и ShowCheckBox

[yulia]

Подскажите, пожалуйста, что с этим делать. У меня дата в базу заносится из DBDateTimePicker'а. Формат Short. И все было отлично - заносило только дату, пока я не установила свойство ShowCheckBox в true, чтобы была возможность оставлять дату пустой. Так когда стоит этот чек бокс, то он добавляет еще и время..

Кто-то знает как с этим бороться??

[psycho-coder]

Можно вот так:

  if not DateTimePicker1.Checked then Exit;
  Edit1.Text := DateToStr(DateTimePicker1.Date);

[yulia]

В том то и дело, что мне некуда писать DateTimePicker1.Date.
У меня происходит добавление в базу Access
1.ADOTable1.insert;
2.Вызывается форма с этими пикерами
3.if ADOTable1.modified then ADOTable1.post.

т.е. ничего не передается.. в этом случае можно как-то время убрать?

[psycho-coder]

Значит при условии 3, делать проверку

if not DateTimePicker1.Checked then 
  <При добавлении место с датой оставить пустым>
else
  <вставить в базу - DateToStr(DateTimePicker1.Date)>

P.S. Вы как добавляете в базу, SQL или по другому?

[yulia]

по другому.. там некуда ставить проверку вообще....

ADOTable1.insert;
if ADOTable1.modified then ADOTable1.post.

Это весь код на добавление... просто используются клмпоненты DB.

[psycho-coder]

Так ведь ADOTanle1 это ничто иное как таблица. А даты у Вас в DateTimePicker1, следовательно делать проверку при закрытии формы (2) или перед ADOTable1.Post, на DateTimePicker1.Checked и заполнять пустотой необходимые поля в ADOTable1.
В общем нужно куда то впихнуть эту проверку.

[yulia]

Про проверку все понятно, но хоть убей не могу придумать как ее прикрутить..

if DM.t_orders.modified then DM.t_orders.post;
Form6.Close;

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

а самое не понятное почему до этого чекбокса все ок работало?

[psycho-coder]

Вы как заносите в таблицу значение, через метод OnCloseUp?
Тогда можно вот так:

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
  if not DateTimePicker1.Checked then <что-то>
  // Свои действия
end;

[yulia]

нее.. в том то и дело, что значения заносятся сами по себе автоматически

1.ADOTable1.insert; - создаем новую запись
2.Вызывается форма с этими пикерами
3.if ADOTable1.modified then ADOTable1.post. - достаточно просто установить дату или занести значение в дбэдит (неважно), то это значение автоматически заносится в нужный столбец, ведь компоеннты сразу привязаны к таблице и ее полям.

И все, а потом только постом подтверждаем занесение.

И к тому же.. зачем эта проверка, если когда галочка не стоит, то это и так значит, что будет пустое значение...

[psycho-coder]

Ладно. Как у Вас связаны таблица с DateTimePicker?