Ну, что тут можно сказать:
1. Если уж хотите пользоваться экспертами, то уж точно не IBConcole, т.к. любой грамотный эксперт скажет, что скрипт для создания процедуры выглядит приблизительно так:
| Код |
SET TERM ^ ;
CREATE PROCEDURE SORT_TREE_LAMP (
PARENT_ID BIGINT)
RETURNS (
ID BIGINT,
PARENT BIGINT,
NAME VARCHAR(10000),
CCOUNT INTEGER,
SORTINDEX INTEGER,
IMAGEINDEX INTEGER,
STATEINDEX INTEGER,
NODE_LEVEL INTEGER,
FULLPATH VARCHAR(32765))
AS
DECLARE VARIABLE TEST_PARENT BIGINT;
begin
for select ID, PARENT, NAME, CCOUNT, SORTINDEX, IMAGEINDEX, STATEINDEX, FULLPATH
from tree_LAMP
where PARENT = :PARENT_ID
order by SORTINDEX
into :ID, :PARENT, :NAME , :CCOUNT, :SORTINDEX, :IMAGEINDEX, :STATEINDEX, :FULLPATH
do begin
NODE_LEVEL = 0;
TEST_PARENT = PARENT;
while (TEST_PARENT > 0) do begin
select tl.PARENT from tree_LAMP tl where tl.ID = :TEST_PARENT
into :TEST_PARENT;
NODE_LEVEL = NODE_LEVEL + 1;
end
suspend;
if (CCOUNT <> 0) then begin
TEST_PARENT = ID;
for select ID, PARENT, NAME, CCOUNT, SORTINDEX, IMAGEINDEX, STATEINDEX, FULLPATH
from SORT_tree_LAMP(:TEST_PARENT)
into :ID, :PARENT, :NAME, :CCOUNT, :SORTINDEX, :IMAGEINDEX, :STATEINDEX, :FULLPATH
do begin
NODE_LEVEL = 0;
TEST_PARENT = PARENT;
while (TEST_PARENT > 0) do begin
select tl.PARENT from tree_lamp tl where tl.ID = :TEST_PARENT
into :TEST_PARENT;
NODE_LEVEL = NODE_LEVEL + 1;
end
suspend;
end
end
end
end
^
SET TERM ; ^
|
2. FAQ читать нужно http://vingrad.ru/DELPHI-DLP-001854  |
