Firebird主从表存储过程的两种写法

有三个表:tb_employee,tb_customer,tb_movemaster,分别表示一个公司的业务员、公司的客户和公司的销售主文件表，它们是父表和子表的关系：

CREATE TABLE TB_EMPLOYEE (
F_ID INTEGER NOT NULL,
F_DEPTNO INTEGER,
F_EMPLOYEENO INTEGER,
F_EMPLOYEENAME VARCHAR(50),
F_TEL VARCHAR(50)
);

CREATE TABLE TB_CUSTOMER (
F_ID INTEGER NOT NULL,
F_EMPLOYEENO INTEGER,
F_CUSTNO INTEGER,
F_CUSTNAME VARCHAR(50),
F_CUSTADDR VARCHAR(255),
F_TEL VARCHAR(50),
F_MEMO VARCHAR(255)
);

ALTER TABLE TB_CUSTOMER ADD CONSTRAINT FK_TB_CUSTOMER_1 FOREIGN KEY (F_EMPLOYEENO) REFERENCES TB_EMPLOYEE (F_EMPLOYEENO);

CREATE TABLE TB_MOVEMASTER (
F_ID INTEGER NOT NULL,
F_CUSTNO INTEGER,
F_MOVENO INTEGER,
F_AMOUNT NUMERIC(15,2),
F_DATETIME TIMESTAMP,
F_MEMO VARCHAR(10)
);

ALTER TABLE TB_MOVEMASTER ADD CONSTRAINT FK_TB_MOVEMASTER_1 FOREIGN KEY (F_CUSTNO) REFERENCES TB_CUSTOMER (F_CUSTNO);

现在要输出成以下形式供导航树用：

DISPLAYFIELD IMAGEINDEXFIELD KEYFIELD LISTFIELD PARENTFIELD
光明公司 comp 光明公司 光明公司 <null>
销售一组 dept 销售一组 销售一组 光明公司
销售一组 dept 销售一组 销售一组 光明公司
销售二组 dept 销售二组 销售二组 光明公司
销售二组 dept 销售二组 销售二组 光明公司
销售三组 dept 销售三组 销售三组 光明公司
销售三组 dept 销售三组 销售三组 光明公司
销售四组 dept 销售四组 销售四组 光明公司
销售四组 dept 销售四组 销售四组 光明公司
销售四组 dept 销售四组 销售四组 光明公司
销售四组 dept 销售四组 销售四组 光明公司
小明 emp 小明 小明 销售一组
小明 emp 小明 小明 销售一组
小华 emp 小华 小华 销售一组
小华 emp 小华 小华 销售一组
张三 emp 张三 张三 销售二组
张三 emp 张三 张三 销售二组
李四 emp 李四 李四 销售二组
李四 emp 李四 李四 销售二组
王二 emp 王二 王二 销售三组

写法一:

CREATE PROCEDURE P_GENTREE
RETURNS (
DISPLAYFIELD VARCHAR(50),
IMAGEINDEXFIELD VARCHAR(50),
KEYFIELD VARCHAR(50),
LISTFIELD VARCHAR(50),
PARENTFIELD VARCHAR(50))
AS
DECLARE VARIABLE DEPTNO INTEGER;
DECLARE VARIABLE EMPLOYEENAME VARCHAR(50);
DECLARE VARIABLE EMPLOYEENO INTEGER;
DECLARE VARIABLE CUSTNAME VARCHAR(50);
DECLARE VARIABLE CUSTNO INTEGER;
begin

--输出客户结点
for
select m.f_custno
from tb_movemaster m
into :custno
do
begin
select c.f_custno,c.f_custname,'cust',c.f_custname,c.f_custname,e.f_employeename
from tb_customer c,tb_employee e
where c.f_custno=:custno and c.f_employeeno=e.f_employeeno
into :custno,:displayfield,:imageindexfield,:keyfield,:listfield,:parentfield
end

end

写法二:

CREATE PROCEDURE P_GENTREE
RETURNS (
DISPLAYFIELD VARCHAR(50),
IMAGEINDEXFIELD VARCHAR(50),
KEYFIELD VARCHAR(50),
LISTFIELD VARCHAR(50),
PARENTFIELD VARCHAR(50))
AS
DECLARE VARIABLE DEPTNO INTEGER;
DECLARE VARIABLE EMPLOYEENAME VARCHAR(50);
DECLARE VARIABLE EMPLOYEENO INTEGER;
DECLARE VARIABLE CUSTNAME VARCHAR(50);
DECLARE VARIABLE CUSTNO INTEGER;
begin

for
select c.f_custno,c.f_custname,'cust',c.f_custname,c.f_custname,e.f_employeename
from tb_customer c,tb_employee e
where c.f_employeeno=e.f_employeeno
into :custno,:displayfield,:imageindexfield,:keyfield,:listfield,:parentfield
do
begin
suspend;
for
select cast(m.f_moveno as varchar(50)),'mast',cast(m.f_moveno as varchar(50)),
cast(m.f_moveno as varchar(50)),:custname
from tb_movemaster m
where m.f_custno=:custno
into :displayfield,:imageindexfield,:keyfield,:listfield,:parentfield
do
begin
suspend;
end
end

end

写法一简洁一些，写法二繁锁一些，当有销售数据时，两种写法都能查到相应数据，但是当销售数据为空时，则写法一没有客户输出。