Если комуто интересно, то предлагаю решение этой проблемы, точнее насчет изменения домена спомощью update и поля rdb$default_value системной таблицы rdb$fields.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
--Создаю эти домены для того что бы получить значение поля rdb$default_value
Create Domain INTEG as Integer default 0 ;
Create Domain VARCH as varchar( 60 ) default '''';
Create Domain TIMEST as TimeStamp default 'DEFAULT '1. 01 . 2004 00 : 00 : 00 '';
SET NAMES WIN1251;
CONNECT 'C:\MEGAPOL_IB.GDB' USER 'SYSDBA' PASSWORD 'masterkey';
create procedure DefVal_Null
as
declare variable Domain_F varchar( 200 );
declare variable DefVal varchar( 200 );
--Переменная для поля типа BLOB
declare variable DefVal_BLOB blob sub_type 2 segment size 80 ;
Begin
For select sys_f.rdb$field_name, --Имя Домена
case lf.field_type --Присвоение значения по умолчанию
when 'ALPHA' then 'DEFAULT '''''
when 'NUMBER' then 'DEFAULT 0'
when 'MONEY' then 'DEFAULT 0'
when 'SHORT' then 'DEFAULT 0'
when 'LONG' then 'DEFAULT 0'
when 'DATE' then 'DEFAULT ''01.01.2004 00:00:00'''
when 'TIME' then 'DEFAULT ''01.01.2004 00:00:00'''
when 'TIMESTAMP' then 'DEFAULT ''01.01.2004 00:00:00'''
when 'AUTOINCREMENT' then 'DEFAULT 0'
else null
end DefVal,
--***********Этот Case для соответствующего значения по умолчанию,
--ставит значения для поля rdb$default_value******************
case lf.field_type --Значение для поля BLOB
when 'ALPHA' then (select rdb$default_value from rdb$fields where
rdb$field_name = 'VARCH')
when 'NUMBER' then (select rdb$default_value from rdb$fields where
rdb$field_name = 'INTEG')
when 'MONEY' then (select rdb$default_value from rdb$fields where
rdb$field_name = 'INTEG')
when 'SHORT' then (select rdb$default_value from rdb$fields where
rdb$field_name = 'INTEG')
when 'LONG' then (select rdb$default_value from rdb$fields where
rdb$field_name = 'INTEG')
when 'DATE' then (select rdb$default_value from rdb$fields where
rdb$field_name = 'TIMEST')
when 'TIME' then (select rdb$default_value from rdb$fields where
rdb$field_name = 'TIMEST')
when 'TIMESTAMP' then (select rdb$default_value from rdb$fields where
rdb$field_name = 'TIMEST')
when 'AUTOINCREMENT'
then (select rdb$default_value from rdb$fields where
rdb$field_name = 'INTEG')
else (select rdb$default_value from rdb$fields where rdb$field_name = 'INTEG')
end DefVal_BLOB
from list_fld lf,
rdb$relation_fields sys, rdb$fields sys_f
where sys.rdb$system_flag = 0
and (
lf.field_lookup is not null
or lf.field_key = '*'
or lf.field_name in
(
select distinct field_lookup from list_fld
where field_lookup is not null
)
) and
(lf.name_table = sys.rdb$relation_name
and lf.field_name = sys.rdb$field_name)
and sys.rdb$field_source = sys_f.rdb$field_name
and substr(sys.rdb$field_source, 1 , 4 ) <> 'DMN_'
Into :Domain_F, :DefVal, :DefVal_BLOB
As Cursor TmpCursor
Do
begin
--Тут все понятно изменяются три поля, а не два как показывается
--в скрипте при изменении домена
Update rdb$fields f
Set f.rdb$default_value = :DefVal_BLOB,
f.rdb$null_flag = 1 ,
f.rdb$default_source = :DefVal
where Current Of TmpCursor;
end
End;
execute procedure DefVal_Null;
Таким образом, если кто захочет изменить домен спомощью команды Update (для установки соответствующих ограничений Default и NotNull), то для этого необходимо изменить три поля в системной таблице rdb$null_flag, rdb$default_source и rdb$default_value системной таблицы rdb$fields.
Что записывать в первые два поля понятно.
Для того чтобы узнать, что нужно записывать в rdb$default_value Я поступил следующим образом.
1. Создал Домены с нужными значениями поупомалчанию.
2. Написал ХП в которой создаётся курсор с полями:
Имя домена (Возможно и ненужно),
Значение по умолчанию (для поля rdb$default_source)
Значение (для поля rdb$default_value).
3. Ну и update в ХП.
После запуска этой процедуры все домены изменились нужным образом.
После этого при вводе новых записей в таблицу значения по умолчанию стали вставлятся как эсли бы домен был создан обычным образом.
Конечно код может не совсем оптимален, но мне неохото что улучшать.
Может существую и другие способы расказывайте.
