Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Полуошибка ??? [D7, MSSQL]


kyn66 ©   (2007-10-10 12:31:00) 

Уважаемые мастера! На форме положил RX-компонент TDBDateEdit. Связал с полем базы. В свойствах установлено - сегодняшняя дата по умолчанию. Так вот при загрузге формы (запуск из IDE . Самостоятельно- ошибка не появляется) сперва вылетает ошибка Ошибка неизвестного типаи курсор устанавливается на код :

procedure TDBDateEdit.EditingChange(Sender: TObject);
begin
 inherited ReadOnly := not FDataLink.Editing;
 if FDataLink.Editing and DefaultToday and (FDataLink.Field <> nil) and
   (FDataLink.Field.AsDateTime = NullDate) then
  FDataLink.Field.AsDateTime := SysUtils.Now;
end;


В чем тут дело?


ЮЮ   (2007-10-11 03:09:00) [1]

> Уважаемые мастера! На форме положил RX-компонент TDBDateEdit.
> Связал с полем базы. В свойствах установлено - сегодняшняя
> дата по умолчанию.


Постать установку даты по умолчанию в обработчик OnNewRecord DataSeta и не мзвращайся. TDBDateEdit показывал, показывает и должен показывать то, что хранится в поле записи НД. Хочешь что-то там увидеть - меняй значение поля.


kyn66   (2007-10-10 14:45:00) [2]

ошибка выявлена. В таблице есть поле LookUp. Не знаю почему, но она вылетает, точнее ошибка может быть разная, если параметр LookUpCache не установить в True. C этим разобрался . Однако выяснилось другое. Если дату сегодняшнего дня осавить показывать по умолчанию и не кликать на календарик (нет ни какого события), то в базу вместо даты записывается NULL. А если вводить руками или мышем тыкнуть - все пучком.


Reindeer Moss Eater   (2007-10-10 14:38:00) [3]

Установка дефолтного значения поля средствами dbaware контрола?
А менее извращенного метода не нашлось?


Shamansky_ne   (2007-10-10 14:31:00) [4]

а попробуй разложить сложное условия на несколько простых и как вариант используй вместо sysutils.now - now()


Наверх

Титульная страница Поиск, карта сайта Написать письмо