本文是我在前一篇文章提到的关于先进先出存储过程，针对Oracle 9i 的修改版，基本思路一致，只是修改了关键字使用方法。
        有关数据库和存储过程的设计,请参阅

         使用Sql Server？ 。

       点击下载Oracle 9i 存储过程 

------------------------------------------------   
----------Author nileader----------23-------------   
----------Date 2010/04/24-----------------------   
------------------------------------------------ 
CREATE OR REPLACE PROCEDURE pro_ProductSM 
( 
SorM        IN char,                --表征当前业务是进货还是出售 S--进货 M--出售 
pId         IN productsm.pid%type,  --表征操作的商品id 
 
marketPrice IN nvarchar2,           --如果当前的业务是M，那么这个参数有效, 表示这次出售的价格   
marketNum   IN nvarchar2,           --如果当前的业务是M，那么这个参数有效，表示这次出售的数量   
 
stockPrice  IN nvarchar2,           --如果当前的业务是S，那么这个参数有效，表示这次进货的成本单价   
stockNum    IN nvarchar2            --如果当前的业务是S，那么这个参数有效，表示这次进货的数量 
) 
IS 
BEGIN   
   --定义变量 
   DECLARE    
     stockNo   int;               -- 当前可以进货的仓库编号   仓库{zd0}6个 
     marketNo  int;               -- 当前可以出售的仓库编号   仓库{zd0}6个   
     updateSQL nvarchar2(200);    -- 一个待构造的sql update 语句  
     numx   nvarchar2(10);              --要更新的num号 
         costx  nvarchar2(10);              --要更新的cost号 
                                  --   各个仓库现在的数量 
         num1       numeric(6);               --第1个仓库当前的数量 
         num2       numeric(6);               --第2个仓库当前的数量 
         num3       numeric(6);               --第3个仓库当前的数量 
         num4       numeric(6);               --第4个仓库当前的数量 
         num5       numeric(6);               --第5个仓库当前的数量 
         num6       numeric(6);               --第6个仓库当前的数量 
         totalNum   numeric(7);             --现在所有仓库中的数量和 
 
         cost1      numeric(5,2);               --第1个仓库当前的成本 
         cost2      numeric(5,2);               --第2个仓库当前的成本 
         cost3      numeric(5,2);               --第3个仓库当前的成本 
         cost4      numeric(5,2);               --第4个仓库当前的成本 
         cost5      numeric(5,2);               --第5个仓库当前的成本 
         cost6      numeric(5,2);               --第6个仓库当前的成本 
       
     flag       int;                      --是否完成交易，1表示完成，0表示没有完成， 
                                  --这个标识用来表示在一个一个仓库卖的过程中， 
                                  --是否可以满足需求，终止此次交易 
     thisWant   numeric(6);         -- 现在还要的需求   
         thisNum    numeric(6);         -- 现在所在的仓库有多少货 
         thisCost   numeric(5,2);        -- 现在所在的仓库的成本 
      
     money      numeric(5,2);        --  盈利 
 
       
      
    ------------   选择操作业务  进货还是出售 S--进货 M--出售  --------- 
     
    -----------------------------------以下是进货操作---------------------------- 
BEGIN --0 
     IF SorM = 'S' THEN --2 
       BEGIN --1 
          
         --让用户知道自己在干什么   
         DBMS_OUTPUT.PUT_LINE('INFO：You will buy somethings-------price is' 
                              ||stockPrice||'---nums is '||stockNum||'---pid is '||pId 
                              ); 
         --取出当前可以进货的编号 
         SELECT stockNo, marketNo INTO stockNo, marketNo FROM ProductSM WHERE pId=pId; 
         --判断是否可以继续进货 
             IF stockNo >=7 THEN    --3                 --不能继续进货了 
                  DBMS_OUTPUT.PUT_LINE('All storages have full, can not buy!'); 
         --还能继续进货      1 <= stockNo <=6 
         ELSE   
           BEGIN --4 
             DBMS_OUTPUT.PUT_LINE('INFO:BEGIN UPDATE THE DB WHERE PID IS'||pId); 
              
             -- --构造出要更新的num和cost字段, 拼装成sql语句--- 
                       numx      := 'num' || TO_CHAR(stockNo ); 
                     costx     := 'cost' || stockNo;  
              
             updateSQL  := 'UPDATE ProductSM SET '|| numx ||'='|| stockNum || ', ' 
                           || costx || '=' || stockPrice || ', stockNo=stockNo+1 WHERE pId=' || pId; 
             EXECUTE IMMEDIATE TO_CHAR(updateSQL) ; 
             --  如果之前所有的仓库都是空的，那么marketNo=0, 
             --  即没有指向任何可以出售的仓库，那么现在要让他指向{dy}个仓库 
             IF  marketNo = 0 THEN --5 
                          BEGIN 
                   updateSQL    := 'UPDATE ProductSM SET marketNo = 1 WHERE pId ='|| pId; 
                   EXECUTE IMMEDIATE TO_CHAR(updateSQL) ; 
 
                          END; 
             END IF;       --5        
              --让用户知道自己完成了什么工作 
                     DBMS_OUTPUT.PUT_LINE('INFO：You buy something successfully!!-------------stockPrice is'||stockPrice 
                                  ||',---pid is '||pId || '----stockNum is'||stockNum);  
         
           END; --4 
          
         END IF;   --3 
          
        END; --1 
 
   ----------------------------------以上是进货操作---------------------------- 
  -----------------------------------以下是出售操作---------------------------- 
 
  ELSIF SorM = 'M'  THEN--6 
      BEGIN    --7 
      --让用户知道自己在干什么   
         DBMS_OUTPUT.PUT_LINE('INFO：You will sell somethings-------price is' 
                              ||marketPrice||'---nums is '||marketNum||'---pid is '||pId 
                              ); 
       -- 如果marketNo 大于stockNo 终止 
       --取出当前可以出售的编号和进货编号     
           SELECT stockNo, marketNo INTO stockNo, marketNo FROM ProductSM WHERE pId = pId;   
        
      IF marketNo > stockNo THEN   --10 
              BEGIN  
                   DBMS_OUTPUT.PUT_LINE('出售编号大于进货编号，怎么可能？我得去仓库看看了。'); 
              END; 
      ELSE   
          BEGIN   --11 
            --仓库概况 
            DBMS_OUTPUT.PUT_LINE('Storages INFO：----stockNo is' || TO_CHAR(stockNo)  
                                 || ' -------marketNo is'||TO_CHAR(marketNo) );                     
            --   统计出现在所有的库存量，用来检测这次出售交易是否超过了所有仓库的供给量 
            SELECT num1,cost1,num2,cost2,num3,cost3,num4,cost4,num5,cost5,num6,cost6 
            INTO   num1,cost1,num2,cost2,num3,cost3,num4,cost4,num5,cost5,num6,cost6 
            FROM ProductSM WHERE pId = pId;  
             
            totalNum := num1 + num2 + num3 + num4 + num5+ num6; 
             
            --如果现在的所有数量都不能满足你的要求，那就只好说再见了 
            IF totalNum < marketNum   THEN        --12 
                       DBMS_OUTPUT.PUT_LINE('不好意思，你的需求过大，交易失败'); 
                
             ELSE 
               BEGIN       --13 
                 --取出当前可以出售的编号 
                 SELECT marketNo INTO marketNo FROM ProductSM WHERE pId = pId; 
                 -- 从当前可以出售的开始，即@marketNo开始一个一个卖，直到满足marketNum需求 
                 flag := 0; 
                 thisWant := marketNum; 
                  
                 WHILE flag = 0  
                   LOOP             --14 
                                        --取出当前可以进货的编号 
                    SELECT marketNo INTO marketNo FROM ProductSM WHERE pId = pId; 
                       
                    IF marketNo = 1 THEN       --15 
                      BEGIN   
                        thisNum  := num1; 
                        thisCost := cost1; 
                        numx     :='num1'; 
                        costx    := 'cost1'; 
                      END; 
                             ELSE IF marketNo = 2   THEN 
                      BEGIN   
                        thisNum   := num2; 
                        thisCost  := cost2; 
                        numx      :='num2'; 
                        costx     :='cost2'; 
                      END; 
                             ELSE IF marketNo = 3 THEN 
                      BEGIN  
                        thisNum   := num3; 
                        thisCost  := cost3; 
                        numx      :='num3'; 
                        costx     :='cost3'; 
                       END; 
                             ELSE IF marketNo = 4   THEN 
                      BEGIN  
                        thisNum   := num4; 
                        thisCost  := cost4; 
                        numx      := 'num4'; 
                        costx     := 'cost4'; 
                      END; 
                             ELSE IF marketNo = 5 THEN 
                     BEGIN   
                       thisNum    := num5; 
                       thisCost   := cost5; 
                       numx       := 'num5'; 
                       costx      := 'cost5'; 
                     END; 
                             ELSE IF marketNo = 6   THEN 
                     BEGIN   
                       thisNum    := num6; 
                       thisCost   := cost6; 
                       numx       := 'num6'; 
                       costx      := 'cost6'; 
                     END; 
                    END IF;        --15 
                       
                       
                 --判断这个仓库是否可以满足这个交易的需求 
                             --如果这个仓库比需求大，那么出售marketNum件商品就ok了 
                 IF  thisWant < thisNum   THEN--17 
                     BEGIN              --18 
                       DBMS_OUTPUT.PUT_LINE('INFO：you sell something-------marketPrice is  ' 
                                            || marketPrice ||' ----cost is'||TO_CHAR(thisCost) 
                                            || '----pid is'||pId || '------num is'||TO_CHAR(thisWant) ); 
                       -- 算一下赚了多少钱 
                                       money := (marketPrice - thisCost) * thisWant; 
                       DBMS_OUTPUT.PUT_LINE('money you gain is:' || TO_CHAR(money) ); 
                       --更新数据库中的仓库信息 
                                       updateSQL    :='UPDATE ProductSM SET '|| numx || '='|| TO_CHAR(numx) || '-' || TO_CHAR(thisWant)||' WHERE pId='||pId; 
                                       EXECUTE IMMEDIATE TO_CHAR(updateSQL) ; 
                       --做一些收尾工作 
                                        thisWant     := 0;      --都满足需求了，肯定置为0了 
                                        flag    := 1;           --表示已经完成了 
                        
                     END;  --18 
                    ELSE IF   thisWant =  thisNum  THEN  --20 
                      BEGIN          --21 
                         
                        DBMS_OUTPUT.PUT_LINE('INFO：you sell something-------marketPrice is  ' 
                                              || marketPrice ||' ----cost is'||TO_CHAR(thisCost) 
                                              || '----pid is'||pId || '------num is'||TO_CHAR(thisWant) ); 
                         -- 算一下赚了多少钱 
                         money := (marketPrice - thisCost) * thisWant; 
                         DBMS_OUTPUT.PUT_LINE('money you gain is:' || TO_CHAR(money) ); 
                         --更新数据库中的仓库信息 
                         updateSQL  :='UPDATE ProductSM SET marketNo = marketNo + 1,' || numx+'=0,'  
                                      || costx || '=0 WHERE pId=' || pId; 
                         EXECUTE IMMEDIATE TO_CHAR(updateSQL) ; 
                         --做一些收尾工作 
                          thisWant     := 0;        --都满足需求了，肯定置为0了 
                          flag    := 1;           --表示已经完成了 
                       
                       
                       
                      END;           --21 
                       
                      ELSE    --23 
                      BEGIN          --22 
                         
                        DBMS_OUTPUT.PUT_LINE('INFO：you sell something-------marketPrice is  ' 
                                              || marketPrice ||' ----cost is'||TO_CHAR(thisCost) 
                                              || '----pid is'||pId || '------num is'||TO_CHAR(thisNum) ); 
                         -- 算一下赚了多少钱 
                         money := (marketPrice - thisCost) * thisNum; 
                         DBMS_OUTPUT.PUT_LINE('money you gain is:' || TO_CHAR(money) ); 
                         --更新数据库中的仓库信息 
                         updateSQL  :='UPDATE ProductSM SET marketNo = marketNo + 1,' || numx+'=0,' || costx+'=0 WHERE pId='|| pId; 
                         EXECUTE IMMEDIATE TO_CHAR(updateSQL) ; 
    
                          --做一些收尾工作 
                                           thisWant := thisWant - thisNum;        
                       
                       
                       
                      END;           --22 
 
 
                    END IF;        --17 
 
                   END LOOP;          --14 
 
                  
               END;        --13 
                  END IF;              --12 
             
          END;    --11 
      END IF;             --10 
        
                        
 
      END;     --7 
  END IF;        --2 
      
END; --0 
      
END; 

本文出自 “” 博客，请务必保留此出处