|
08.08.2003, 12:24
#32230995
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
Вобщем конечно не фонтан, но жить можно
Избавился разнесением на две процы (если подскажите как короче буду премного благодарен)
блин код пришлось дублировать, не люблю я это :(
Проца 1: GetTree - возвращает всё дерево целиком
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.
CREATE PROCEDURE GET_TREE
RETURNS (
NODE_ID INTEGER,
NODE_PARENT_ID INTEGER,
NODE_NAME VARCHAR( 11 ),
NODE_TYPE VARCHAR( 1 ),
NODE_ORDER INTEGER)
AS
DECLARE VARIABLE J INTEGER;
DECLARE VARIABLE I INTEGER;
begin
/*вытащим папки */
for
select node_id, node_parent_id, node_name, node_type, node_order
from tree
where (node_type = 'D') and
(node_parent_id is NULL)
order by node_order
into :node_id, :node_parent_id, :node_name, :node_type, :node_order
do
begin
/* выкинем в программу вытащенную папку*/
suspend;
/* для каждой папки найдём дерево, для которого она - вершина*/
J = :node_id;
select count(*) from tree b where (b.node_parent_id=:J) into :i;
if (i > 0 ) then begin
for
select node_id, node_parent_id, node_name, node_type, node_order
from GET_SUB_TREE(:J)
into :node_id, :node_parent_id, :node_name, :node_type, :node_order
do
suspend;
end
end
/*вытащим файлы*/
for
select node_id, node_parent_id, node_name, node_type, node_order
from tree
where (node_type = 'F') and
(node_parent_id is NULL)
order by node_order
into :node_id, :node_parent_id, :node_name, :node_type, :node_order
do suspend;
end
Проца 2: GetSubTree(parent_id) - возвращает поддерево с вершиной в ID=parent_ID
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.
CREATE PROCEDURE GET_SUB_TREE (
PARENT_ID INTEGER)
RETURNS (
NODE_ID INTEGER,
NODE_PARENT_ID INTEGER,
NODE_NAME VARCHAR( 11 ),
NODE_TYPE VARCHAR( 1 ),
NODE_ORDER INTEGER)
AS
DECLARE VARIABLE J INTEGER;
DECLARE VARIABLE I INTEGER;
begin
/*вытащим папки */
for
select node_id, node_parent_id, node_name, node_type, node_order
from tree
where (node_type = 'D') and
(node_parent_id = :PARENT_ID)
order by node_order
into :node_id, :node_parent_id, :node_name, :node_type, :node_order
do
begin
/* выкинем в программу вытащенную папку*/
suspend;
/* для каждой папки найдём дерево, для которого она - вершина*/
J = :node_id;
select count(*) from tree b where (b.node_parent_id=:J) into :i;
if (i > 0 ) then begin
for
select node_id, node_parent_id, node_name, node_type, node_order
from GET_SUB_TREE(:J)
into :node_id, :node_parent_id, :node_name, :node_type, :node_order
do
suspend;
end
end
/*вытащим файлы*/
for
select node_id, node_parent_id, node_name, node_type, node_order
from tree
where (node_type = 'F') and
(node_parent_id = :PARENT_ID)
order by node_order
into :node_id, :node_parent_id, :node_name, :node_type, :node_order
do suspend;
end
|
|
|
