ÔÚ´æ´¢¹ý³ÌÖеIJéѯdelphiÔõô³ö´í

REATE procedure employee_select  @cust_num varchar(20),@ErrMsg varchar(100) out
as
            select @ErrMsg = ''
      if ((@cust_num is null ) or (@cust_num = ''))
        begin
select a.cust_num,a.cust_name,a.sex,b.sbname as custkindname,a.opername,a.opertime ,
(select c.sbname from dictionary c where c.type_id=2  and c.hold1 = a.custkind_id and c.serial_id = a.rating_id ) as cust,a.up_opername
from employee a ,dictionary b where type_id=1 and b.serial_id=a.custkind_id
return 0
end
if not exists(select * from employee where cust_num=@cust_num)
        begin
Set @ErrMsg='µ±Ç°['+@cust_num+']ÐÅÏ¢²»´æÔÚ'
      Return -1

end
else
 
          begin
select a.cust_num,a.cust_name,a.sex,b.sbname as custkindname,a.opername,a.opertime ,
(select c.sbname from dictionary c where c.type_id=2  and c.hold1 = a.custkind_id and c.serial_id = a.rating_id ) as cust,a.up_opername
from employee a ,dictionary b where type_id=1 and b.serial_id=a.custkind_id and a.cust_num=@cust_num
  end
 
  return 0
GO
ÕâÊÇÎҵĴ洢¹ý³Ì
ÔÚ²éѯ·ÖÎöÆ÷ÀïÃæ·¿ÉϲÎÊýÓнá¹û·µ»Ø£¬
ÏÂÃæÊÇÔÚdelphiµÄ´úÂ룺 <