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

[soleil@mmc]

гыгы
а чем этот пример плох?

Сообщение от 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;

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

З.Ы.: доктор, меня все игнорируют или па-рюсски четать не умеютЬ

[monushka]

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

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

Ммм, почему? У меня просто система такая... Я выбираю запись в БД, нажимаю "редактировать" и появляется форма для редактирования, в которой указаны данные конкретно этой записи. Вот... Единственное, что я не проверила, для добалвения новой записи как будет себя вести DateTimePicker. Надо сейчас посмотреть...

Но я не понимаю, при чем тут события AfterScroll?

Сообщение от soleil@mmc

гыгы
а чем этот пример плох?

З.Ы.: доктор, меня все игнорируют или па-рюсски четать не умеютЬ

Та не, Ваш пример тоже рассматривался, но просто мне не понятно, что вот это:

if frmMyTableEdit.ShowModal = mrOK then begin
...

[Stilet]

что вот это:

Форма открывается как модальная.
А модальные формы могут возвращать результат - Например на форме есть кнопка Ок и при ее нажатии возвращатся mrOK

Это делается для того чтоб можно было не выполнять некие действия по нажатии на кнопку отличную от Ок или определенную тобой как Ок.

[monushka]

Ну, для добавления новой записи ерунда получается... Он не может преобразовать Null в дату. Пошла разбираться...

Добавила это:

If DataModule1.CatTable.FieldByName('Дата').Value<>null then
DateTimePicker1.Date:=DataModule1.CatTable.FieldByName('Дата').Value
else DateTimePicker1.Date:=now;

Вроде все норм.
Но все же, mihali4, объясните, пожалуйста, почему надо на AfterScroll!

[mihali4]

Да потому, что

Я выбираю запись в БД, нажимаю "редактировать"

Вот после выбора нужной записи и возникает событие AfterScroll и в DateTimePicker заносится значение даты из выбранной вами записи...

[monushka]

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

Да потому, что

Вот после выбора нужной записи и возникает событие AfterScroll и в DateTimePicker заносится значение даты из выбранной вами записи...

Аааа, понятно! Спасибо

Но ведь я могу несколько раз клацнуть по записям, зачем чтобы каждый раз новая дата в DateTimePicker писалась? Тем более, что пока я не нажму кнопку "редактировать", то все равно ее не увижу. По нажатию на кнопку у меня появляется новая форма, вот тогда и видно DateTimePicker в этой форме.

[mihali4]

Ну поставьте на событие нажатия кнопки "Редактирование"

[monushka]

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

Ну поставьте на событие нажатия кнопки "Редактирование"

Та так же и сделала