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

[SNUPY]

Доброго времени суток товарищи!!!
Итак, я использую СУБД FIREBIRD 2.1. Для работы с ней пользуюсь компонентами вкладки InterBase. Пусть у нас есть таблица: P(a,b, id)
Поле a вводиться пользвателем. Значение поля b вводится нашей программой. Поле Id — primary key. Для отображения таблицы используем TIBQuery с прикрепленным к нему компонентом класса TIBUpdateSQLW.
У нас следующие запросы к БД:
1. на отображение данных
SELECT a,b, id FROM P
2. на изменение данных
update P
set
a = :a,
b = :b
where
ID = :OLD_ID
2. на вставку
insert into P
(a, b)
values
(:a, :b)

3. На обновление
SELECT a,b,id FROM P Where id=:OLD_Id
4. Удаление
delete from P
where
ID = :OLD_ID

Допустим нужно чтобы во всех следующих добавленных записях поле b имело, скажем, значение 5. Я вижу только один вариант: перевисывать каждый раз (ну когда значение меняется) запрос на вставку:
insert into P
(a, b)
values
(:a, 5)

Какие альтернативы товарищи??? ИМХО этот вариант не грациозен =)))

[soleil@mmc]

вопрос сам по себе "не грациозен"
как программа поймет когда нужно включить режим дефолтной вставки?
и какое дефолтное значение будет? оно будет одно и то же или иногда другое?

ваще-то в самой базе можно учесть дефолтность еще на стадии проектирования таблицы

field_name field_type default default_value

и при вставке просто в параметр отдавать нулл

[BARNEY]

а интрукцию к СУБД почитать? в базе выставляешь default_value у поля например 5

если в insert не упомянуто поле с default_value то будет вставлено это самое default_value если упомянуто, то будет вставлено присвоенное ему значение.

[SNUPY]

Я наверно не конца внятно выразился... пусть скажем в качестве значения поля b будет вводиться не всегда одно число... т.е. не всегда 5. Пользователь сам не может вводить значения поля b. Короче говоря про дефолтовые значения поля при создании таблицы мну знает (благо не дурак).

[vovk]

ну можно так

procedure TForm3.pFIBDataSet1AfterInsert(DataSet: TDataSet);
begin
DataSet.FieldByName('поле').AsInteger:=strtoint(edit1.Text);
end;

[SNUPY]

ну как вариант можно :-)
Я вот кстате пытался замутить через свойтсво DefaultExpression поля но не получилось =(

[vovk]

не вышло бы

DefaultExpression. Это свойство используется при Insert/Append новой
записи. (Эта опция вызывает дополнительные запросы к базе, с целью получения
текста значения по умолчанию)

прошу прощения был не прав поправился постом ниже

[soleil@mmc]

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

Я наверно не конца внятно выразился... пусть скажем в качестве значения поля b будет вводиться не всегда одно число... т.е. не всегда 5. Пользователь сам не может вводить значения поля b. Короче говоря про дефолтовые значения поля при создании таблицы мну знает (благо не дурак).

ну а мы чего - телепаты?
вот и программируй свои случаи

[SNUPY]

Всем спасибо!!! =)

[vovk]

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

не вышло бы

тут я был не прав на счёт DefaultExpression, перечитал хелп по фибам
в общем отключаем в опциях pFIBDataSet >Prepareoptions>pfImportDefaultValu es= false

потом в программе где нужно

pFIBDataSet1.FN('поле').DefaultExpression:=edit1.Text;

вот в общем исправился))