Interbase как правильно заполненить поле по Default

[tarakan1983]

Вопрос ламемерский, не пинайте сильно пожалуйста. Просто не знаю как правильно спросить это у google.
Есть, например, таблица MAN с полями
Табельный номер (tab_num) - типа integer
ФИО (FIO)- типа Varchar
Дата рождения (Data_r)- типа date
пишу такой код

ibsql.sql.clear;
ibsql.sql.add('insert into man (tab_num, FIO, Data_r) values (:tab_num, :FIO, :Data_r)');
ibsql.parambyname('tab_num').asinteger:=tab_numEdit.value; //Компонент из набора EhLib (DBNumberEditEh1)
ibsql.parambyname('FIO').asstring:=FioEdit.text;
ibsql.parambyname('Data_r').asdate:=Data_rEdit.text; //Компонент из набора EhLib (DBDateTimeEditEh1)
ibsql.execquery;

Все отлично если все Edit'ы заполнены, а если не заполнена дата или номер, как в этом случае заполнить значением по умолчанию? каждый раз проверять Edit? Как правильно поступать в таких ситуациях?

[Serge_Bliznykov]

каждый раз проверять Edit?

ну а почем бы и нет?!

я бы проверял все нужные Edit'ы и формировал в RunTime нужную строку запроса в зависимости от того, заполнены они или нет...

[tarakan1983]

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

формировал в RunTime нужную строку запроса

а можно пример?

[Аватар]

default из СУБД в конкретное поле записи вставится только, если в перечне полей команды Insert нет упоминания этого поля. Программно использовать default? Если у СУБД есть средства, позволяющие запросом вернуть значения default - используйте этот прием, нет - тогда проблема. И зачем ibsql.parambyname('Data_r').asdate: =Data_rEdit.text? Почему не Data_rEdit.Date?

add Пока набирал, целый диалог прошел об том же самом

[BARNEY]

tarakan1983
Ну ещё есть понятие тригер
будет что то типо

if Data_rEdit='' then Data_rEdit='01.01.0001'

Но это если лень в проге строчку собирать

[tarakan1983]

BARNEY
А где почитать как правильно сделать именно такой триггер? Если я его создам прямо в БД, то как потом к нему обратиться из Delphi?

[Stilet]

А может всетки посмотреть в сторону Default?

P.S. разве что у тебя будет жесткое правило - в поле, выставляемом по умолчанке нет null в уже имеющихся записях, тогда еще можно копнуть триггер

CREATE TRIGGER NEW_TABLE_AI0 FOR NEW_TABLE
ACTIVE AFTER INSERT POSITION 0
AS
begin
  update new_table set ere='2011-01-01' where ere is null;
end

Который будет вставлять дату во все поля с null после запроса типа

ibsql.sql.text:='insert into new_table (new_field) values (89)';...

Но это далеко не всегда правильно и удобно, разве что ты в триггер поместишь некие многочисленные вычисления.
А раз тебе просто нужно по умолчанке дату вбить не парься с триггерами - нарвешся на баги.

[tarakan1983]

короче я понял из всего прочитанного, что лучше сделать так

var
i:integer;
d:date
begin
try
i:=tab_numEdit.value;
d:=Data_rEdit.Date;
except
i:=0;
d:='01.01.0001';
end;
end;

это будет правильно?

[Stilet]

это будет правильно?

Но не перспективно.
А вдруг ты захочешь программу переписать с нуля, но скажем новым технологиям и тупо забудешь о том что она должна еше нести такую мусорную нагрузку?
Тем паче что это клиент, а клиентские части проекта такими вещами стараются не нагружать - опять таки приведу пример: у тебя одна БД на сервере и миллион компов с твоей прогой. ШЕф приказал "Немедленно поменяй дату по умолчанию". Ты что будешь заново прогу перекомпилировать, потом умолять слезно пользователей обновиться? А если к их компу сейчас доступа нет - (выключил-закрыл на замок комнату и уехал в командировку)? А правильный АБД, просто сменить в базе параметр, и это отразится на всех клиентах не прерывая их работы.

[Аватар]

Не уверен. Скорее всего компоненты из Data_rEdit.Date вернет 0 если введена недопустимая дата, tab_numEdit.value - value какого типа? Короче - except возможно никогда не возникнет. И date - какого типа? Наверно TDateTime. И d:='01.01.0001' - строку в TDatrTime?