Firebird. Автоматическое внесение значения в поле при добовлении

[SNUPY]

хм... я не до конца вкатил... Судя по всяму тут речь идет о компонентах FreeIBComponent... Я не разобрался как это реалтзовать с IBExpress?

[vovk]

Да точно говорил о FIB сегодня уже не смогу, завтра покапаюсь в IBExpress, если что выйдет отпишусь.



В общем искал описание компонентов INTERBASE и наткнулся на это

о свойстве DefaultExpression класса TField
>> а как используется указанное свойство? pаботаю с Interbase.
>> напpимеp, надо, чтобы в целочисленные поля писалось значение 0.
>> на уpовне сеpвеpа поля описаны как integer, значение по умолчанию
>> отсутствует.
BA> оно похоже никак не используется...

Hу не совсем так (см. ниже). Маленько используется, хотя, конечно,
и не без огpаничений. Т.е. только пpи Post после Insert и если поле
к этому вpемени имеет значение NULL. Т.е. флаг Required тут уже у
соответствующих объектов TField пpидётся снимать, а если снимать,
то уж и на Post после Edit подобную подстановку, имхо, надо было
ему делать.

procedure TIBCustomDataSet.Post;
var
i : Integer;
begin
if (FGeneratorField.ApplyEvent = gamOnServer) and
FGeneratorField.IsComplete then
FieldByName(FGeneratorField.Field).Required := false;

if State = dsInsert then
begin
for i := 0 to Fields.Count - 1 do
begin
if (Fields[i].IsNull) and (Fields[i].DefaultExpression <> '') then
Fields[i].Value := Fields[i].DefaultExpression;
end;

if FGeneratorField.ApplyEvent = gamOnPost then
FGeneratorField.Apply;
end;
inherited Post;

end;

взял ТУТ