使用存储过程实现进销存系统中的先进先出算法（3）——Oracle9i版
2014-12-25 17:16
435 查看
本文是我在前一篇文章提到的关于先进先出存储过程，针对Oracle 9i 的修改版，基本思路一致，只是修改了关键字使用方法。
有关数据库和存储过程的设计,请参阅使用存储过程实现进销存系统中的先进先出 算法（1）——数据库与存储过程设计
使用Sql Server？ 前往。
点击下载Oracle 9i 存储过程 下载
本文出自 “专栏：Paxos与ZooKeeper” 博客，请务必保留此出处http://nileader.blog.51cto.com/1381108/304396
有关数据库和存储过程的设计,请参阅使用存储过程实现进销存系统中的先进先出 算法（1）——数据库与存储过程设计
使用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; -- 当前可以进货的仓库编号 仓库最大6个
marketNo int; -- 当前可以出售的仓库编号 仓库最大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,
-- 即没有指向任何可以出售的仓库，那么现在要让他指向第一个仓库
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;
ELSIF marketNo = 2 THEN
BEGIN
thisNum := num2;
thisCost := cost2;
numx := 'num2';
costx := 'cost2';
END;
ELSIF marketNo = 3 THEN
BEGIN
thisNum := num3;
thisCost := cost3;
numx := 'num3';
costx := 'cost3';
END;
ELSIF marketNo = 4 THEN
BEGIN
thisNum := num4;
thisCost := cost4;
numx := 'num4';
costx := 'cost4';
END;
ELSIF marketNo = 5 THEN
BEGIN
thisNum := num5;
thisCost := cost5;
numx := 'num5';
costx := 'cost5';
END;
ELSIF 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
ELSIF 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;本文出自 “专栏：Paxos与ZooKeeper” 博客，请务必保留此出处http://nileader.blog.51cto.com/1381108/304396
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 使用存储过程实现进销存系统中的先进先出算法（3）――Oracle9i版
- 使用存储过程实现进销存系统中的先进先出算法（2）——存储过程调用
- 使用存储过程实现进销存系统中的先进先出算法（1）――数据库与存储过程设计
- 使用存储过程实现进销存系统中的先进先出算法（1）——数据库与存储过程设计
- 使用存储过程实现进销存系统中的先进先出算法（2）――存储过程调用
- 如果系统要使用超大整数（超过long长度范围），请你设计一个数据结构来存储这种超大型数字以及设计一种算法来实现超大整数加法运算）
- Detectron系统实现了最先进的物体检测算法https://github.com/facebookresearch/Detectron
- 使用系统存储过程实现的通用分页存储过程
- MOD 10，11算法（GB/T 17710-1999 数据处理 校验码系统 ），使用javascript实现
- 如果系统要使用超大整数（超过long长度范围），请你设计一个数据结构来存储这种超大型数字以及设计一种算法来实现超大整数加法运算
- SQL Server:使用系统存储过程实现的通用分页存储过程
- 使用系统存储过程实现的通用分页存储过程.sql
- MOD 10，11算法（GB/T 17710-1999 数据处理 校验码系统 ），使用javascript实现
- 使用Neo4j和简单分词算法实现菜品推荐系统
- 使用otter实现MySQL跨机房双向同步 工作流程 环境 目标 名词解释 安装 配置 配置mysql 导入 manager 系统表 导入 node 同步算法依赖的系统表 管理配置 添加zookee
- 使用EF6和MVC5实现一个简单的选课系统--使用EF6异步编程模式和存储过程（9/12）
- SQL 使用系统存储过程实现的通用分页存储过程
- 使用系统存储过程实现的通用分页存储过程
- 使用Knn算法实现手写数字识别系统（附带jpg转txt代码）
- Detectron系统实现了最先进的物体检测算法https://github.com/facebookresearch/Detectron