Как поместить дату из ADOTable в DateTimePicker?

[monushka]

У меня есть БД в Accesse, которая отображается в DBGrid. В этой таблице есть такие значения как "Производитель", "Товар", "Характеристики", "Дата". Данные этой БД могут редактироваться. При нажатии на кнопку "Редактировать" появляется форма, на которой расположены такие компоненты как, DBEdit, DBMemo, DBComboBox и DateTimePicker. Во всех компонентах, которые DB* отображаются соответствующие данные из БД. Как сделать так, что бы в DateTimePicker'е отображалась именно та дата, которую содержит БД?

Как добавить дату из DateTimePicker'а я знаю, а вот наоборот... Не понятно совсем. До этого использовала DBEdit для ввода даты, но это неудобно, т.к. можно вводить любые значения: и цифры, и буквы, и знаки.

Подскажите, пожалуйста, как это организовать?

[soleil@mmc]

видимо, кактотаг

Dataset.Edit;
frmMyTableEdit:=TfrmMyTableEdit.Create(Application);
try
  frmMyTableEdit.DateTimePicker.Date:= Dataset.FieldByName('date').AsDate;
  if frmMyTableEdit.ShowModal = mrOK then begin
    Dataset.FieldByName('date').AsDate := frmMyTableEdit.DateTimePicker.Date;
    Dataset.Post;
  end
  else
    Dataset.Cancel;
finally
  frmMyTableEdit.Release;
end;

код не для копи-пастинга, а для понимания что там делается (естественно, могут быть ошибки синтаксиса)

[mihali4]

Как поместить дату из ADOTable в DateTimePicker?

DateTimePicker.Date:=Dataset.FieldB yName('date').Value;
Если у вас в базе не какой-нибудь фантастический формат даты

[artemavd]

А чем не устраивает обычный DBEdit? Настройте его свойство DataSource на DataSource БД и укажите в свойстве DataField поле, в котором имеется дата. И у вас будет отображаться дата. И можете редактировать ее.

[mihali4]

Обычный DBEdit?
Опять двадцать пять...
DateTimePicker для этого гораздо удобнее. Я имею в виду редактирование или ввод новой даты.

[artemavd]

Автор написал:

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

Как сделать так, что бы в DateTimePicker'е отображалась именно та дата, которую содержит БД?

Я думаю, что для отображения даты, содержащейся в БД, подойдет обычный DBEdit
а вот для

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

DateTimePicker для этого гораздо удобнее. Я имею в виду редактирование или ввод новой даты.

Не спорю с Вами

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

можно вводить любые значения: и цифры, и буквы, и знаки.

Ну и поставили бы обработчик на OnKeyPress.

[monushka]

Спасибо за ответы, сейчас буду разбираться!

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

А чем не устраивает обычный DBEdit? Настройте его свойство DataSource на DataSource БД и укажите в свойстве DataField поле, в котором имеется дата. И у вас будет отображаться дата. И можете редактировать ее.

Я написала, что это окно редактирования данных. Т.е. кроме отображения даты, еще возможно, что ее надо будет изменить. Сейчас у меня стоит DBEdit, но он неудобен, потому что надо все ручками прописывать: и знаки, и цифры. Кроме того, пользователь может очепятаться и не заметит. DateTimePicker удобнее в этом плане, его можно как в ручную вводить, так и выбирать в календаре. Ну, думаю, Вы в курсе.

Просто как из DateTimePcker'а дату в БД записывать я разобралась. Но проблема появилась в том, что если я редактирую и мне НЕ надо изменять дату, то в БД записывается текущее число, которое установлено в DateTimePicker'е, а какое было до этого в базе, не видно! Вот я о чем...

[Stilet]

Кроме того, пользователь может очепятаться и не заметит.

Я в таких случаях делаю так:
ДАю пользователю обычный эдит. а по нажатию Энтера или кнопки какой, специальная процедура перетряхивает его содержимое вдоль и поперек.
Только потом после многочисленнейших проверок на вшивость введенного это поступает в строку, где формируется команда запроса - так я избавляюсь от неожиданных сообщений VCL о неких ошибках.
Чего и вам рекомендую - не пользоваться DB компонентами.

[monushka]

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

Я в таких случаях делаю так:
ДАю пользователю обычный эдит. а по нажатию Энтера или кнопки какой, специальная процедура перетряхивает его содержимое вдоль и поперек.
Только потом после многочисленнейших проверок на вшивость введенного это поступает в строку, где формируется команда запроса - так я избавляюсь от неожиданных сообщений VCL о неких ошибках.
Чего и вам рекомендую - не пользоваться DB компонентами.

Мне просто кажется, что DateTimePicker удобнее, чем просто Эдит. Спасибо

Сделала так, вроде работает пока:

procedure TEditForm.FormShow(Sender: TObject);
begin
DateTimePicker1.Date:=DataModule1.CatTable.FieldByName('Дата').Value;
...
end;

procedure TEditForm.BitBtn1Click(Sender: TObject);
begin
DataModule1.CatTable.FieldByName('Дата').AsString:=DateToStr(DateTimePicker1.Date);
if DataModule1.CatTable.Modified then
DataModule1.CatTable.Post;
end;

Всем большое спасибо в очередной раз! Выручили!

[mihali4]

procedure TEditForm.FormShow(Sender: TObject);
begin
DateTimePicker1.Date:=DataModule1.C atTable.FieldByName('Дата').Value;
...
end;

Не-е-е...
Не на то событие...
Это надо на событие DataModule1.CatTable.AfterScroll...