Oracle学习记录之使用自定义函数和触发器实现主键动态生成

发布时间：2020-12-12 17:01:58 所属栏目：百科来源：网络整理

导读：很早就想自己写写Oracle的函数和触发器，最近一个来自课本的小案例给了我这个机会。现在把我做的东西记录下来，作为一个备忘或者入门的朋友们的参考。案例介绍：招投标管理系统（数据库设计）。数据表有以下两张：招标书（招标书编号、项目名称、招标书

很早就想自己写写Oracle的函数和触发器，最近一个来自课本的小案例给了我这个机会。现在把我做的东西记录下来，作为一个备忘或者入门的朋友们的参考。

　　案例介绍：

　　　　招投标管理系统（数据库设计）。
　　　　数据表有以下两张：
　　　　　　招标书（招标书编号、项目名称、招标书内容、截止日期、状态）。
　　　　　　投标书（投标书编号、招标书编号、投标企业、投标书内容、投标日期、报价、状态）。
　　　　　　“招标书编号”为字符型，编号规则为 ZBYYYYMMDDNNN， ZB是招标的汉语拼音首字母，YYYYMMDD是当前日期，NNN是三位流水号。
　　　　　　“投标书编号”为字符型，编号规则为TB[11位招标书编号]NNN。

　　经过分析，我们可以得知两张表的关系。我们先创建数据结构，比如：

然后是生成招标的函数：

0 THEN -- 查询必要信息 SELECT TENDER_ID INTO lastID FROM TENDER WHERE ROWNUM = 1 ORDER BY to_number(to_char(scn_to_timestamp(ORA_ROWSCN),'yyyyMMddhh24mmss'),'99999999999999') DESC; SELECT "SUBSTR"(lastID,3,8) INTO lastTime FROM dual; -- 分析上一次发布招标信息是否是今日 IF ("TO_CHAR"(SYSDATE,'YYYYMMDD') = lastTime) THEN SELECT "TO_NUMBER"("SUBSTR"(lastID,11,13),'999') INTO lastNo FROM dual; -- 如果是今日且流水号允许新增招标信息 IF lastNo < 999 THEN SELECT lastNo + 1 INTO curNo FROM dual; RETURN 'ZB'||lastTime||"LPAD"("TO_CHAR"(curNo),'0'); END IF; -- 流水号超出 RETURN 'NoOutOfBounds!Check it!'; END IF; -- 不是今日发布的招标信息，今日是第一次 RETURN 'ZB'||"TO_CHAR"(SYSDATE,'YYYYMMDD')||'001'; END IF; -- 整个表中的第一条数据 RETURN 'ZB'||"TO_CHAR"(SYSDATE,'YYYYMMDD')||'001'; END;

然后是投标书的编号生成函数：

0 THEN -- 有了 SELECT BID_ID INTO lastID FROM BID WHERE BID_ID LIKE 'TB'||ZBNo||'___' AND ROWNUM = 1 ORDER BY to_number(to_char(scn_to_timestamp(ORA_ROWSCN),'99999999999999') DESC; SELECT "TO_NUMBER"("SUBSTR"(lastID,16,18),'999') INTO lastNo FROM dual; -- 流水号没超出 IF lastNo < 999 THEN SELECT lastNo + 1 INTO curNo FROM dual; RETURN 'TB'||ZBNo||"LPAD"("TO_CHAR"(curNo),'0'); END IF; RETURN 'NoOutOfBounds!Check it!'; END IF; -- 没有投标书对该招标书 RETURN 'TB'||ZBNo||'001'; END;

然后在两个表中注册触发器，当新增数据的时候动态生成编号！

　　招标书触发器，用于动态生成招标书编号：

13) THEN -- 此处根据我的提示信息报错可以直接如下操作 -- :NEW.TENDER_ID := NULL; RAISE_APPLICATION_ERROR(-20222,"createZBNo"); END IF; -- 如果生成编号成功，将编号注入查询语句中 :NEW.tender_id :="createZBNo"; END;

然后是投标书的触发器：

18) THEN RAISE_APPLICATION_ERROR(-20222,"createTBNo"(:NEW.TENDER_ID)); END IF; :NEW.BID_ID :="createTBNo"(:NEW.TENDER_ID); END;

然后插入数据测试吧：

　　以上只是个人的一些观点，如果您不认同或者能给予指正和帮助，请不吝赐教。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!