IBExpertQUIT в нужном месте скрипта решит проблему. Только не говори мне, что это жутко неудобно и задалбывает.я попробовал, но работает как-то "неустойчиво": выдаёт периодически access violation, причём на закрытие - новое такое же AV, только с другими адресами.
Происходит это вот при таком скрипте:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
<. . . тут много чего важного и синтаксически корректного . . .>
--------------------------------------------------------------------------------
-- create triggers
set term ^;
create or alter trigger doc_data_bi for doc_data active
before insert
as
begin
if (inserting) then new.id = coalesce( new.id, gen_id(g_doc_data,1) );
end^
quit; -- ДА, ЗДЕСЬ *НЕТ* предварительного "set term ;^", т.е. "quit;" указан сразу после "^"
Если жамкнуть на таком скрипте F9, то:
1) ИБЭ его *выполнит* без сообщения об ошибке;
2) тычок в DB Explorer'e на знак "[ + ]" узла "Triggers" может привести вместо его раскрытия окно AV.
Пример содержимого этого AV-окна:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Error Message:
----------------------------------------
Access violation at address 00FDF815 in module 'IBExpert.exe'. Read of address 00011AE4
[00FDF815] InspectorFm.TInspectorFrame.ObjectsTLCustomDrawCell (Line 1405, "Frames\InspectorFm.pas" + 130) + $6
[00403BD3] System.@HandleAnyException + $33
[00973D9D] dxTL.TCustomdxTreeListControl.DoDrawCell (Line 20234, "dxTL.pas" + 7) + $3E
[00968D35] dxTL.TCustomdxTreeList.DrawCellEx (Line 14492, "dxTL.pas" + 33) + $40
[0095EC61] dxTL.DrawCells (Line 8989, "dxTL.pas" + 425) + $C8
[009604BD] dxTL.TCustomdxTreeList.Paint (Line 9421, "dxTL.pas" + 44) + $1
[0045BEEB] Controls.TCustomControl.PaintWindow (Line 8209, "Controls.pas" + 6) + $5
[00457D66] Controls.TWinControl.PaintHandler (Line 5788, "Controls.pas" + 4) + $13
[00458233] Controls.TWinControl.WMPaint (Line 5923, "Controls.pas" + 6) + $4
[004582CB] Controls.TWinControl.WMPaint (Line 5936, "Controls.pas" + 19) + $4
[0045BE84] Controls.TCustomControl.WMPaint (Line 8198, "Controls.pas" + 2) + $4
[0096072C] dxTL.TCustomdxTreeList.WndProc (Line 9513, "dxTL.pas" + 47) + $4
[00444010] Forms.StdWndProc (Line 1459, "Forms.pas" + 8) + $0
[00F24D85] IBEErrorF.IBEError (Line 39, "IBEErrorF.pas" + 5) + $5
[00F67FE1] Main.TIBEMainForm.AppEventsException (Line 11123, "Main.pas" + 23) + $3
[0044DB09] Forms.TApplication.HandleException (Line 6752, "Forms.pas" + 6) + $F
[00444010] Forms.StdWndProc (Line 1459, "Forms.pas" + 8) + $0
[01083EE4] IBExpert.IBExpert (Line 1389, "D:\Projects_5\IBExpert\IBExpert.dpr" + 594) + $7
Скрипт я выслал тебе в мыльце.
