Дата

[Luciferium]

Есть в таблице поле "Дата", как сделать, что при добавлении новой записи подставлялась текущая дата?

[Aleksandr]

У тебя данные вводятся непосредственно в таблицу или считываются с DBEdit

[Luciferium]

Да, поля вводятся с DBEdit.

[Aleksandr]

На форму бросаешь таймер и DBEdit. DBEdit связываешь с полем твоей таблицы при нажатии на кнопку новая запись вводишь следующий код:
DataModule1.BookTable.Insert;
DBGrid1.SetFocus;
dbEdit1.Text:= DateToStr(now);

[Speeker]

А почему сразу не писать значение на прямую, ведь я так понял что не надо что бі єто отображалось пользователю. Зачем тогда лишние поле?

[Luciferium]

DataModule1.BookTable.Insert; а вот это строчечку объясните, пожалуйста

[pu4koff]

у table или че там у тебя используется на OnNewRecord вешаешь что-то вроде:

procedure TForm1.Table1NewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('DateField').AsDateTime := Date;
end;

[Luciferium]

ды у меня добавление идет через DBNavigator/ Хотя, наерное, лучше сделать отдельными процедурами, но я как-то пробовал нихрена н получилось и забил на это "гиблое" дело...

[Luciferium]

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

у table или че там у тебя используется на OnNewRecord вешаешь что-то вроде:

procedure TForm1.Table1NewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('DateField').AsDateTime := Date;
end;

пасибки, заработало!

[Aleksandr]

В таблице Book создается новая запись