gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章Oracle学习记录之使用自定义函数和触发器实现主键动态生成由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

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

  案例介绍:

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

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CREATE TABLE TENDER
(
  TENDER_ID  VARCHAR2(50) PRIMARY KEY ,
  PROJECT_NAME VARCHAR2(50) NOT NULL UNIQUE ,
  CONTENT   BLOB,
  END_DATE   DATE NOT NULL ,
  STATUS    INTEGER NOT NULL
);
CREATE TABLE BID
(
  BID_ID  VARCHAR2(50) PRIMARY KEY ,
  TENDER_ID VARCHAR2(50) NOT NULL ,
  COMPANY  VARCHAR2(50) NOT NULL ,
  CONTENT  BLOB,
  BID_DATE DATE NOT NULL ,
  PRICE   INTEGER NOT NULL ,
  STATUS  INTEGER NOT NULL
);
ALTER TABLE BID ADD CONSTRAINT FK_BID_TENDER_ID FOREIGN KEY (TENDER_ID) REFERENCES TENDER(TENDER_ID);

然后是生成招标的函数:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
CREATE OR REPLACE
FUNCTION "createZBNo" RETURN VARCHAR2
AS
hasCount NUMBER(11,0);
lastID VARCHAR2(50);
lastTime VARCHAR2(12);
lastNo NUMBER(3,0);
curNo NUMBER(3,0);
BEGIN
   -- 查询表中是否有记录
   SELECT "COUNT" (TENDER_ID) INTO hasCount FROM TENDER;
   IF hasCount > 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), 3, '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 ;

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

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
CREATE OR REPLACE
FUNCTION "createTBNo" (ZBNo IN VARCHAR2)
RETURN VARCHAR2
AS
hasCount NUMBER(11,0);
lastID VARCHAR2(50);
lastNo NUMBER(3,0);
curNo NUMBER(3,0);
BEGIN
   -- 查看是否已经有了对于该想招标的投标书
   SELECT "COUNT" (BID_ID) INTO hasCount FROM BID WHERE BID_ID LIKE 'TB' ||ZBNo|| '___' AND ROWNUM = 1 ORDER BY to_number(to_char(scn_to_timestamp(ORA_ROWSCN), 'yyyyMMddhh24mmss' ), '99999999999999' ) DESC ;
   IF hasCount > 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), 'yyyyMMddhh24mmss' ), '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),3, '0' );
       END IF;
         RETURN 'NoOutOfBounds!Check it!' ;
   END IF;
     -- 没有投标书对该招标书
     RETURN 'TB' ||ZBNo|| '001' ;
END ;

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

  招标书触发器,用于动态生成招标书编号:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CREATE OR REPLACE
  TRIGGER newTender
  BEFORE INSERT
  ON TENDER
  FOR EACH ROW
BEGIN
   -- 如果生成编号失败
  IF (LENGTH( "createZBNo" ) <> 13) THEN
     -- 此处根据我的提示信息报错可以直接如下操作
     -- :NEW.TENDER_ID := NULL;
   RAISE_APPLICATION_ERROR(-20222, "createZBNo" );
  END IF;
     -- 如果生成编号成功,将编号注入查询语句中
    :NEW.tender_id := "createZBNo" ;
END ;

然后是投标书的触发器:

?
1
2
3
4
5
6
7
8
9
10
11
CREATE OR REPLACE
  TRIGGER newBid
  BEFORE INSERT
  ON BID
  FOR EACH ROW
BEGIN
  IF (LENGTH( "createTBNo" (:NEW.TENDER_ID)) <> 18) THEN
   RAISE_APPLICATION_ERROR(-20222, "createTBNo" (:NEW.TENDER_ID));
  END IF;
    :NEW.BID_ID := "createTBNo" (:NEW.TENDER_ID);
END ;

然后插入数据测试吧:

Oracle,自定义函数,触发器,主键

  。

  Oracle,自定义函数,触发器,主键

  。

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

最后此篇关于Oracle学习记录之使用自定义函数和触发器实现主键动态生成的文章就讲到这里了,如果你想了解更多关于Oracle学习记录之使用自定义函数和触发器实现主键动态生成的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com