Oracle存储过程及函数

最新推荐文章于 2024-08-25 16:07:54 发布
最新推荐文章于 2024-08-25 16:07:54 发布
阅读量196 收藏 1
点赞数
分类专栏： Oracle 文章标签： oracle存储过程 oracle函数 管道 递归 区域范围
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/kkwyk/article/details/88978208
版权

记工作中部分存储过程及函数使用场景

  1. 根据某人身份证号和其涉案信息递归挖掘关联人员（不重复）
--------------------------------------------
-- 创建oracle字符数组类型   added by wyk 2018-07-26
--------------------------------------------
CREATE OR REPLACE TYPE VARCHAR_ARRAY IS TABLE OF VARCHAR2(40);
/
------------------------------------------------
-- 创建挖掘涉黑人员亲密度关系函数   added by wyk 2018-07-26
------------------------------------------------
CREATE OR REPLACE 
FUNCTION FUNC_DIG_SHEHEI_PERSON(SFZH_IN IN VARCHAR2) RETURN VARCHAR_ARRAY AS
SFZHARR VARCHAR_ARRAY;
BEGIN
  SFZHARR := VARCHAR_ARRAY();
  SFZHARR := FUNC_DIG_SHEHEI_PERSON_TEMP(SFZH_IN,SFZHARR);
	IF SFZHARR.COUNT > 0 THEN
		FOR I IN SFZHARR.FIRST..SFZHARR.LAST LOOP
			IF SFZHARR(I) = SFZH_IN THEN SFZHARR.DELETE(I); END IF;
		END LOOP;
	END IF;
  RETURN SFZHARR;
END FUNC_DIG_SHEHEI_PERSON;
/
----------------------------------------------------------------
-- 创建挖掘涉黑人员亲密度关系函数（主函数，用来递归挖掘）   added by wyk 2018-07-26
----------------------------------------------------------------
CREATE OR REPLACE 
FUNCTION FUNC_DIG_SHEHEI_PERSON_TEMP(SFZH_IN IN VARCHAR2,SFZHARR IN VARCHAR_ARRAY) RETURN VARCHAR_ARRAY
AS
NUM NUMBER;
INDEX_ARR NUMBER;
SFZHARR_COPY VARCHAR_ARRAY;
BEGIN
INDEX_ARR := 0;
SFZHARR_COPY := SFZHARR;
DECLARE CURSOR RELATE_SFZHS IS SELECT DISTINCT(SFZH) FROM PERSON_SAXX WHERE SAXX_JYAQ IN (SELECT SAXX_JYAQ FROM PERSON_SAXX WHERE SFZH = SFZH_IN) AND SFZH != SFZH_IN;
  RELATE_SFZH VARCHAR2(20);
  BEGIN 
				IF NOT RELATE_SFZHS%ISOPEN THEN OPEN RELATE_SFZHS;END IF;
						FETCH RELATE_SFZHS INTO RELATE_SFZH;
									WHILE RELATE_SFZHS%FOUND
											LOOP
													NUM := 0;
													IF SFZHARR_COPY.COUNT > 0 THEN
															FOR I IN SFZHARR_COPY.FIRST..SFZHARR_COPY.LAST LOOP
																IF SFZHARR_COPY(I) = RELATE_SFZH THEN
																		NUM := 1;
																END IF;
															END LOOP;
													END IF;
													IF NUM = 0 THEN
															IF SFZHARR_COPY.COUNT = 0 THEN 
																	SFZHARR_COPY.EXTEND(1);SFZHARR_COPY(1) := RELATE_SFZH;
															ELSE
																	INDEX_ARR := SFZHARR_COPY.COUNT+1;
																	SFZHARR_COPY.EXTEND(1);
																	SFZHARR_COPY(INDEX_ARR) := RELATE_SFZH;
															END IF;
															SFZHARR_COPY := FUNC_DIG_SHEHEI_PERSON_TEMP(RELATE_SFZH,SFZHARR_COPY);
													END IF;
											FETCH RELATE_SFZHS INTO RELATE_SFZH;
										END LOOP;
						CLOSE RELATE_SFZHS;
END;
	RETURN SFZHARR_COPY;
END;
  1. 根据区域经纬度范围查询范围内警情信息，并将关联信息存入关联表
----------------------------------------------------------------
-- 治安乱点区域关联警情存储过程   added by wyk 2018-09-17
----------------------------------------------------------------
CREATE OR REPLACE 
PROCEDURE PRD_PUBLIC_DISORDER_JQ(JOB_START_TIME IN DATE, JOB_END_TIME IN DATE)
AS
INSERT_SQL CLOB ;
BEGIN
	DECLARE CURSOR DISORDER_IDS IS SELECT ID FROM FKWW_PUBLIC_DISORDER;
	DISORDER_ID VARCHAR2(40);
	AREA_WKT VARCHAR2(4000);
	AREA_WKT_SUBSTR VARCHAR2(4000);
	LONGITUDE_MAX NUMBER;
	LONGITUDE_MIN NUMBER;
	LATITUDE_MAX NUMBER;
	LATITUDE_MIN NUMBER;
	START_TIME VARCHAR2(20);
	END_TIME VARCHAR2(20);
	BEGIN
			SELECT TO_CHAR(JOB_START_TIME,'yyyy-MM-dd HH24:mi:ss') INTO START_TIME FROM DUAL;
			SELECT TO_CHAR(JOB_END_TIME,'yyyy-MM-dd HH24:mi:ss') INTO END_TIME FROM DUAL;
			OPEN DISORDER_IDS;
			FETCH DISORDER_IDS INTO DISORDER_ID;
			WHILE DISORDER_IDS % FOUND
					LOOP
						SELECT AREA_WKT INTO AREA_WKT FROM FKWW_PUBLIC_DISORDER WHERE ID = DISORDER_ID;
						IF AREA_WKT IS NULL THEN 
								AREA_WKT_SUBSTR := NULL;
						ELSE
								AREA_WKT_SUBSTR := SUBSTR(AREA_WKT, 10, length(AREA_WKT)-11);
								SELECT TO_NUMBER(MAX(SUBSTR(SPLIT_CODE, 0, INSTR(SPLIT_CODE, ' ')))) INTO LONGITUDE_MAX FROM (
										SELECT REGEXP_SUBSTR (AREA_WKT_SUBSTR,'[^,]+',1,L) AS SPLIT_CODE FROM DUAL,
										(SELECT LEVEL L FROM DUAL CONNECT BY LEVEL <= LENGTH (AREA_WKT_SUBSTR) - LENGTH (REPLACE (AREA_WKT_SUBSTR,','))+1) B
										WHERE L <= LENGTH (AREA_WKT_SUBSTR));
								SELECT TO_NUMBER(MIN(SUBSTR(SPLIT_CODE, 0, INSTR(SPLIT_CODE, ' ')))) INTO LONGITUDE_MIN FROM (
										SELECT REGEXP_SUBSTR (AREA_WKT_SUBSTR,'[^,]+',1,L) AS SPLIT_CODE FROM DUAL,
										(SELECT LEVEL L FROM DUAL CONNECT BY LEVEL <= LENGTH (AREA_WKT_SUBSTR) - LENGTH (REPLACE (AREA_WKT_SUBSTR,','))+1) B
										WHERE L <= LENGTH (AREA_WKT_SUBSTR));
								SELECT TO_NUMBER(MAX(SUBSTR(SPLIT_CODE, INSTR(SPLIT_CODE, ' ')+1,LENGTH(SPLIT_CODE)))) INTO LATITUDE_MAX FROM (
										SELECT REGEXP_SUBSTR (AREA_WKT_SUBSTR,'[^,]+',1,L) AS SPLIT_CODE FROM DUAL,
										(SELECT LEVEL L FROM DUAL CONNECT BY LEVEL <= LENGTH (AREA_WKT_SUBSTR) - LENGTH (REPLACE (AREA_WKT_SUBSTR,','))+1) B
										WHERE L <= LENGTH (AREA_WKT_SUBSTR));
								SELECT TO_NUMBER(MIN(SUBSTR(SPLIT_CODE, INSTR(SPLIT_CODE, ' ')+1,LENGTH(SPLIT_CODE)))) INTO LATITUDE_MIN FROM (
										SELECT REGEXP_SUBSTR (AREA_WKT_SUBSTR,'[^,]+',1,L) AS SPLIT_CODE FROM DUAL,
										(SELECT LEVEL L FROM DUAL CONNECT BY LEVEL <= LENGTH (AREA_WKT_SUBSTR) - LENGTH (REPLACE (AREA_WKT_SUBSTR,','))+1) B
										WHERE L <= LENGTH (AREA_WKT_SUBSTR));
								INSERT_SQL :=		'INSERT INTO FKWW_PUBLIC_DISORDER_JQ SELECT '''||DISORDER_ID||''' AS DISORDER_ID,JJDBH FROM JCJB WHERE
								LONGITUDE IS NOT NULL
								AND LATITUDE IS NOT NULL
								AND LONGITUDE > '||LONGITUDE_MIN||'
								AND LONGITUDE < '||LONGITUDE_MAX||'
								AND LATITUDE > '||LATITUDE_MIN||'
								AND LATITUDE < '||LATITUDE_MAX||'
								AND
								SDO_GEOM.RELATE (
																	SDO_GEOM.SDO_GEOMETRY (
																		2001,
																		4326,
																		MDSYS.SDO_POINT_TYPE (LONGITUDE, LATITUDE, NULL),
																		NULL,
																		NULL
																	),
																	''ANYINTERACT'',
																	SDO_GEOM.SDO_GEOMETRY (
																		'''||AREA_WKT||''',
																		4326
																	),
																	0.00001
																) = ''TRUE''';
								IF JOB_START_TIME IS NOT NULL THEN
										INSERT_SQL := INSERT_SQL||' AND BJSJ >= TO_DATE('''||START_TIME||''',''yyyy-MM-dd hh24:mi:ss'')';
								END IF;
								IF JOB_END_TIME IS NOT NULL THEN
										INSERT_SQL := INSERT_SQL||' AND BJSJ <= TO_DATE('''||END_TIME||''',''yyyy-MM-dd hh24:mi:ss'')';
								END IF;
								INSERT_SQL := INSERT_SQL||' MINUS SELECT * FROM FKWW_PUBLIC_DISORDER_JQ';
								EXECUTE IMMEDIATE INSERT_SQL;
						END IF;
			FETCH DISORDER_IDS INTO DISORDER_ID ;
			END LOOP;
			CLOSE DISORDER_IDS;
	END;
END;
  1. 警情重定位时，重新关联乱点区域存储过程
----------------------------------------------------------------
-- 警情重定位时，重新关联乱点区域存储过程   added by wyk 2018-09-30
----------------------------------------------------------------
CREATE OR REPLACE 
PROCEDURE PRD_JQ_RESET_POINT (JJDBH IN VARCHAR2, LONGITUDE IN NUMBER, LATITUDE IN NUMBER)
AS INSERT_SQL CLOB ;
BEGIN
	  DECLARE CURSOR DISORDER_IDS IS SELECT ID FROM FKWW_PUBLIC_DISORDER;
		DELETE_SQL VARCHAR2(4000);
		DISORDER_ID VARCHAR2(40);
		AREA_WKT VARCHAR2(4000);
		AREA_WKT_SUBSTR VARCHAR2(4000);
		LONGITUDE_MAX NUMBER;
		LONGITUDE_MIN NUMBER;
		LATITUDE_MAX NUMBER;
		LATITUDE_MIN NUMBER;
BEGIN
			--先删除关联数据，重定位后再添加
			DELETE_SQL := 'DELETE FROM FKWW_PUBLIC_DISORDER_JQ WHERE JJDBH = '''||JJDBH||'''';
			EXECUTE IMMEDIATE DELETE_SQL;
			OPEN DISORDER_IDS;
			FETCH DISORDER_IDS INTO DISORDER_ID;
			WHILE DISORDER_IDS % FOUND
					LOOP
						SELECT AREA_WKT INTO AREA_WKT FROM FKWW_PUBLIC_DISORDER WHERE ID = DISORDER_ID;
						IF AREA_WKT IS NULL THEN 
								AREA_WKT_SUBSTR := NULL;
						ELSE
								AREA_WKT_SUBSTR := SUBSTR(AREA_WKT, 10, length(AREA_WKT)-11);
								SELECT TO_NUMBER(MAX(SUBSTR(SPLIT_CODE, 0, INSTR(SPLIT_CODE, ' ')))) INTO LONGITUDE_MAX FROM (
										SELECT REGEXP_SUBSTR (AREA_WKT_SUBSTR,'[^,]+',1,L) AS SPLIT_CODE FROM DUAL,
										(SELECT LEVEL L FROM DUAL CONNECT BY LEVEL <= LENGTH (AREA_WKT_SUBSTR) - LENGTH (REPLACE (AREA_WKT_SUBSTR,','))+1) B
										WHERE L <= LENGTH (AREA_WKT_SUBSTR));
								SELECT TO_NUMBER(MIN(SUBSTR(SPLIT_CODE, 0, INSTR(SPLIT_CODE, ' ')))) INTO LONGITUDE_MIN FROM (
										SELECT REGEXP_SUBSTR (AREA_WKT_SUBSTR,'[^,]+',1,L) AS SPLIT_CODE FROM DUAL,
										(SELECT LEVEL L FROM DUAL CONNECT BY LEVEL <= LENGTH (AREA_WKT_SUBSTR) - LENGTH (REPLACE (AREA_WKT_SUBSTR,','))+1) B
										WHERE L <= LENGTH (AREA_WKT_SUBSTR));
								SELECT TO_NUMBER(MAX(SUBSTR(SPLIT_CODE, INSTR(SPLIT_CODE, ' ')+1,LENGTH(SPLIT_CODE)))) INTO LATITUDE_MAX FROM (
										SELECT REGEXP_SUBSTR (AREA_WKT_SUBSTR,'[^,]+',1,L) AS SPLIT_CODE FROM DUAL,
										(SELECT LEVEL L FROM DUAL CONNECT BY LEVEL <= LENGTH (AREA_WKT_SUBSTR) - LENGTH (REPLACE (AREA_WKT_SUBSTR,','))+1) B
										WHERE L <= LENGTH (AREA_WKT_SUBSTR));
								SELECT TO_NUMBER(MIN(SUBSTR(SPLIT_CODE, INSTR(SPLIT_CODE, ' ')+1,LENGTH(SPLIT_CODE)))) INTO LATITUDE_MIN FROM (
										SELECT REGEXP_SUBSTR (AREA_WKT_SUBSTR,'[^,]+',1,L) AS SPLIT_CODE FROM DUAL,
										(SELECT LEVEL L FROM DUAL CONNECT BY LEVEL <= LENGTH (AREA_WKT_SUBSTR) - LENGTH (REPLACE (AREA_WKT_SUBSTR,','))+1) B
										WHERE L <= LENGTH (AREA_WKT_SUBSTR));
								IF LONGITUDE >= LONGITUDE_MIN AND LONGITUDE <= LONGITUDE_MAX AND LATITUDE >= LATITUDE_MIN AND LATITUDE <= LATITUDE_MAX THEN
										INSERT_SQL := 'INSERT INTO FKWW_PUBLIC_DISORDER_JQ SELECT '''||DISORDER_ID||''','''||JJDBH||''' FROM DUAL
													WHERE	SDO_GEOM.RELATE (
																			SDO_GEOM.SDO_GEOMETRY (
																				2001,
																				4326,
																				MDSYS.SDO_POINT_TYPE ('||LONGITUDE||', '||LATITUDE||', NULL),
																				NULL,
																				NULL
																			),
																			''ANYINTERACT'',
																			SDO_GEOM.SDO_GEOMETRY (
																				'''||AREA_WKT||''',
																				4326
																			),
																			0.00001
																		) = ''TRUE''';									
										EXECUTE IMMEDIATE INSERT_SQL;
								END IF;
						END IF;
			FETCH DISORDER_IDS INTO DISORDER_ID ;
			END LOOP;
			CLOSE DISORDER_IDS;
	END;
END;
  1. 治安乱点区域黄赌毒警情分析函数（利用管道输出）
----------------------------------------------------------------
-- 治安乱点区域黄赌毒警情分析函数   added by wyk 2018-09-21
----------------------------------------------------------------
CREATE TYPE ROW_TOPIC_TYPE AS OBJECT (COL1 VARCHAR2(100),COL2 NUMBER);
CREATE TYPE TABLE_TOPIC_TYPE AS TABLE OF ROW_TOPIC_TYPE;

CREATE OR REPLACE 
FUNCTION FUNC_COUNT_TOPIC_TYPE (ORDER_ID IN VARCHAR2,TOPIC_TYPE IN VARCHAR2,START_TIME VARCHAR2,END_TIME VARCHAR2)
--ORDER_ID:乱点区域Id  TOPIC_TYPE:警情类型（'00010001000000000000,00010000000000000000,00030000000000000000'）
--START_TIME:开始时间  END_TIME:结束时间
RETURN TABLE_TOPIC_TYPE PIPELINED IS V ROW_TOPIC_TYPE;--以管道形式输出
BEGIN
	DECLARE CURSOR TYPE_ARRS IS SELECT REGEXP_SUBSTR (TOPIC_TYPE,'[^,]+',1,L) FROM DUAL,
										(SELECT LEVEL L FROM DUAL CONNECT BY LEVEL <= LENGTH (TOPIC_TYPE) - LENGTH (REPLACE (TOPIC_TYPE,','))+1) B
										WHERE L <= LENGTH (TOPIC_TYPE);
	TYPE_ITEM VARCHAR2(30);
	BEGIN
			OPEN TYPE_ARRS;
			FETCH TYPE_ARRS INTO TYPE_ITEM;
			WHILE TYPE_ARRS % FOUND
					LOOP
							IF SUBSTR(TYPE_ITEM,5)='0000000000000000' THEN
									FOR THISROW IN (
													SELECT SUBSTR(JQ_TYPE,0,4)||'0000000000000000' AS JQ_TYPE,COUNT(1) AS COUNT FROM 
													(SELECT J.JQ_TYPE,J.BJSJ FROM (SELECT * FROM FKWW_PUBLIC_DISORDER_JQ WHERE DISORDER_ID = ORDER_ID) T
													LEFT JOIN JCJB J ON T.JJDBH=J.JJDBH) WHERE JQ_TYPE LIKE SUBSTR(TYPE_ITEM,0,4)||'%'
													AND BJSJ >= TO_DATE(START_TIME,'yyyy-MM-dd HH24:mi:ss')
													AND BJSJ <= TO_DATE(END_TIME,'yyyy-MM-dd HH24:mi:ss')
													GROUP BY SUBSTR(JQ_TYPE,0,4)
											)
											LOOP
													V := ROW_TOPIC_TYPE(THISROW.JQ_TYPE,THISROW.COUNT);
													PIPE ROW(V);
											END LOOP;
							ELSE IF SUBSTR(TYPE_ITEM,9)='000000000000' THEN
									FOR THISROW IN (
													SELECT SUBSTR(JQ_TYPE,0,8)||'000000000000' AS JQ_TYPE,COUNT(1) AS COUNT FROM 
													(SELECT J.JQ_TYPE,J.BJSJ FROM (SELECT * FROM FKWW_PUBLIC_DISORDER_JQ WHERE DISORDER_ID = ORDER_ID) T
													LEFT JOIN JCJB J ON T.JJDBH=J.JJDBH) WHERE JQ_TYPE LIKE SUBSTR(TYPE_ITEM,0,8)||'%' 
													AND BJSJ >= TO_DATE(START_TIME,'yyyy-MM-dd HH24:mi:ss')
													AND BJSJ <= TO_DATE(END_TIME,'yyyy-MM-dd HH24:mi:ss')
													GROUP BY SUBSTR(JQ_TYPE,0,8)
											)
											LOOP
													V := ROW_TOPIC_TYPE(THISROW.JQ_TYPE,THISROW.COUNT);
													PIPE ROW(V);
											END LOOP;
							ELSE IF SUBSTR(TYPE_ITEM,9)='000000000000' THEN
									FOR THISROW IN (
													SELECT SUBSTR(JQ_TYPE,0,8)||'000000000000' AS JQ_TYPE,COUNT(1) AS COUNT FROM 
													(SELECT J.JQ_TYPE,J.BJSJ FROM (SELECT * FROM FKWW_PUBLIC_DISORDER_JQ WHERE DISORDER_ID = ORDER_ID) T
													LEFT JOIN JCJB J ON T.JJDBH=J.JJDBH) WHERE JQ_TYPE LIKE SUBSTR(TYPE_ITEM,0,8)||'%' 
													AND BJSJ >= TO_DATE(START_TIME,'yyyy-MM-dd HH24:mi:ss')
													AND BJSJ <= TO_DATE(END_TIME,'yyyy-MM-dd HH24:mi:ss')
													GROUP BY SUBSTR(JQ_TYPE,0,8)
											)
											LOOP
													V := ROW_TOPIC_TYPE(THISROW.JQ_TYPE,THISROW.COUNT);
													PIPE ROW(V);
											END LOOP;
							ELSE IF SUBSTR(TYPE_ITEM,13)='00000000' THEN
									FOR THISROW IN (
													SELECT SUBSTR(JQ_TYPE,0,12)||'00000000' AS JQ_TYPE,COUNT(1) AS COUNT FROM 
													(SELECT J.JQ_TYPE,J.BJSJ FROM (SELECT * FROM FKWW_PUBLIC_DISORDER_JQ WHERE DISORDER_ID = ORDER_ID) T
													LEFT JOIN JCJB J ON T.JJDBH=J.JJDBH) WHERE JQ_TYPE LIKE SUBSTR(TYPE_ITEM,0,12)||'%' 
													AND BJSJ >= TO_DATE(START_TIME,'yyyy-MM-dd HH24:mi:ss')
													AND BJSJ <= TO_DATE(END_TIME,'yyyy-MM-dd HH24:mi:ss')
													GROUP BY SUBSTR(JQ_TYPE,0,12)
											)
											LOOP
													V := ROW_TOPIC_TYPE(THISROW.JQ_TYPE,THISROW.COUNT);
													PIPE ROW(V);
											END LOOP;
							ELSE IF SUBSTR(TYPE_ITEM,17)='0000' THEN
									FOR THISROW IN (
													SELECT SUBSTR(JQ_TYPE,0,16)||'0000' AS JQ_TYPE,COUNT(1) AS COUNT FROM 
													(SELECT J.JQ_TYPE,J.BJSJ FROM (SELECT * FROM FKWW_PUBLIC_DISORDER_JQ WHERE DISORDER_ID = ORDER_ID) T
													LEFT JOIN JCJB J ON T.JJDBH=J.JJDBH) WHERE JQ_TYPE LIKE SUBSTR(TYPE_ITEM,0,16)||'%' 
													AND BJSJ >= TO_DATE(START_TIME,'yyyy-MM-dd HH24:mi:ss')
													AND BJSJ <= TO_DATE(END_TIME,'yyyy-MM-dd HH24:mi:ss')
													GROUP BY SUBSTR(JQ_TYPE,0,16)
											)
											LOOP
													V := ROW_TOPIC_TYPE(THISROW.JQ_TYPE,THISROW.COUNT);
													PIPE ROW(V);
											END LOOP;
							ELSE IF TYPE_ITEM IS NOT NULL THEN
											FOR THISROW IN (
													SELECT JQ_TYPE,COUNT(1) AS COUNT FROM 
													(SELECT J.JQ_TYPE,J.BJSJ FROM (SELECT * FROM FKWW_PUBLIC_DISORDER_JQ WHERE DISORDER_ID = ORDER_ID) T
													LEFT JOIN JCJB J ON T.JJDBH=J.JJDBH) WHERE JQ_TYPE = TYPE_ITEM 
													AND BJSJ >= TO_DATE(START_TIME,'yyyy-MM-dd HH24:mi:ss')
													AND BJSJ <= TO_DATE(END_TIME,'yyyy-MM-dd HH24:mi:ss')
													GROUP BY JQ_TYPE
											)
											LOOP
													V := ROW_TOPIC_TYPE(THISROW.JQ_TYPE,THISROW.COUNT);
													PIPE ROW(V);
											END LOOP;
							END IF;
							END IF;
							END IF;
							END IF;
							END IF;
							END IF;
					FETCH TYPE_ARRS INTO TYPE_ITEM;
					END LOOP;
			CLOSE TYPE_ARRS;
	END;
	RETURN;
END;
  1. 判断案件或警情是否已提请合成，如果未提请合成，则判断关联的案件或警情是否已提请合成
--------------------------------------------------------------------
--   判断案件或警情是否已提请合成，如果未提请合成，则判断关联的案件或警情是否已提请合成 added by wyk 2018-09-19
--------------------------------------------------------------------
CREATE OR REPLACE 
FUNCTION "FUNC_GET_HCYP_STATE" (CASE_ID_IN IN VARCHAR2,JJDBH_IN IN VARCHAR2)
RETURN NUMBER
AS HC_STATE NUMBER;CASE_CODE_TEMP VARCHAR2(50);
BEGIN
	IF CASE_ID_IN IS NULL THEN
			SELECT MAX(IS_DELETE) INTO HC_STATE FROM VIRTUAL_CASE WHERE CASE_ID = (SELECT CASE_ID FROM CASE WHERE CASE_CODE = 'Q'||JJDBH_IN);
			IF HC_STATE = 0 THEN RETURN 1;--本身已提请合成
			ELSE IF HC_STATE = 1 THEN RETURN 2;--本身已删除合成
			ELSE IF HC_STATE IS NULL THEN
			DECLARE CURSOR IS_DELETES IS SELECT IS_DELETE FROM VIRTUAL_CASE  WHERE CASE_ID IN (SELECT case_id FROM CASE_ASSOCIATE_JQ WHERE jjdbh = JJDBH_IN );
								IS_DELETE NUMBER;
					BEGIN 
								IF NOT IS_DELETES%ISOPEN THEN OPEN IS_DELETES;END IF;
										FETCH IS_DELETES INTO IS_DELETE;
													WHILE IS_DELETES%FOUND
															LOOP IF IS_DELETE = 0 THEN CLOSE IS_DELETES;RETURN 3;--关联的案件已提请合成
																	 ELSE IF IS_DELETE = 1 THEN RETURN 4;END IF;--关联的案件已删除合成
																	 END IF;FETCH IS_DELETES INTO IS_DELETE;END LOOP;CLOSE IS_DELETES;RETURN 0;     
				  END;
			END IF;
			END IF;
			END IF;
	ELSE
				SELECT MAX(IS_DELETE) INTO HC_STATE FROM VIRTUAL_CASE WHERE CASE_ID = CASE_ID_IN;
				IF HC_STATE = 0 THEN RETURN 1;--本身已提请合成
				ELSE IF HC_STATE = 1 THEN RETURN 2;--本身已删除合成
				ELSE IF HC_STATE IS NULL THEN
						DECLARE CURSOR IS_DELETES IS SELECT IS_DELETE FROM VIRTUAL_CASE  WHERE CASE_ID IN (SELECT CASE_ID FROM CASE WHERE CASE_CODE IN (SELECT 'Q'||JJDBH FROM CASE_ASSOCIATE_JQ WHERE CASE_ID = CASE_ID_IN));
								IS_DELETE NUMBER;
						BEGIN 
								IF NOT IS_DELETES%ISOPEN THEN OPEN IS_DELETES;END IF;
										FETCH IS_DELETES INTO IS_DELETE;
													WHILE IS_DELETES%FOUND
															LOOP IF IS_DELETE = 0 THEN CLOSE IS_DELETES;RETURN 5;--关联的警情已提请合成
																	 ELSE IF IS_DELETE = 1 THEN RETURN 6;END IF;--关联的警情已删除合成
																	 END IF;FETCH IS_DELETES INTO IS_DELETE;END LOOP;CLOSE IS_DELETES;RETURN 0;     
						END;
				END IF;
				END IF;
				END IF;
	END IF;
END;
-- 0:未提请合成
-- 1:本身已提请合成
-- 2:本身已删除合成
-- 3:关联的案件已提请合成
-- 4:关联的案件已删除合成
-- 5:关联的警情已提请合成
-- 6:关联的警情已删除合成
  1. A数据定时迁移
----------------------------------------------------------------
-- A数据定时迁移（TB_INOUT_RESULT表保留5天数据）   added by wyk 2018-12-21
----------------------------------------------------------------
CREATE OR REPLACE 
PROCEDURE PRD_TB_INOUT_RESULT_BAK AS
INSERT_SQL VARCHAR2(200);
DELETE_SQL VARCHAR2(200);
BEGIN
	INSERT_SQL := 'INSERT INTO TB_INOUT_RESULT_BAK SELECT * FROM TB_INOUT_RESULT WHERE DATETIME >= to_char(TRUNC(SYSDATE-5),''yyyy-MM-dd hh24:mi:ss'') AND DATETIME < to_char(TRUNC(SYSDATE-4),''yyyy-MM-dd hh24:mi:ss'')';
	EXECUTE IMMEDIATE INSERT_SQL;
	DELETE_SQL := 'DELETE FROM TB_INOUT_RESULT WHERE DATETIME >= to_char(TRUNC(SYSDATE-5),''yyyy-MM-dd hh24:mi:ss'') AND DATETIME < to_char(TRUNC(SYSDATE-4),''yyyy-MM-dd hh24:mi:ss'')';
	EXECUTE IMMEDIATE DELETE_SQL;
END;
最爱夜明珠
关注
专栏目录
oracle存储过程与函数的区别及作用,Oracle存储过程与存储函数-入门
weixin_34969621的博客
04-02 766
文章思维导图一. 存储过程和存储函数的定义定义：存储在数据库中，供所有用户程序调用的子程序叫做存储过程/存储函数。复杂点的解释：存储过程(Stored Procedure)，就是一组用于完成特定数据库功能的SQL 语句集，该SQL语句集经过编译后存储在数据库系统中。在使用时候，用户通过指定已经定义的存储过程名字并给出相应的存储过程参数来调用并执行它，从而完成一个或一系列的数据库操作。区别：是否可以...
oracle存储过程语法和用法,oracle存储过程 语法 函数 总结
weixin_42133329的博客
04-03 3236
对于oracle存储过程是很优秀的一种脚本语言。下面是一些整理：一，Plsql 调试存储过程：1、在oracle的 配置和移植工具 àNET MANAGER中配置连接2、在plsql中新建SQL窗口，编写存储过程3、在plsql中新建测试窗口，在beginend之间调用4、查看编译错误：在命令窗口中show errors procedure procedure_name或者编辑的方式...
Oracle 存储过程笔记
tedeum
04-25 95
  写Oracle存储过程习惯用PL/Sql dev，里面有一些模版，我这里也记录一些目前经常使用的一些： --基本例子 create or replace procedure TestProc as begin   for c in (select fieldName from tableName)   loop       dbms_output.put_line(c....
Oracle个人学习日记：（一）decode 使用
YShuaiLong的博客
11-16 220
遇到的需求： DISORDER为排序字段 需要调整某两个的数据的DISORDER SQL语句: update t_article_manage set disorder=decode( disorder,2,3,3,2, disorder) where disorder in (2,3) decode介绍： 个人而言看的不是太懂，但是还是学看一下学习一下的。参考资料...
Ruby访问操作Oracle数据库的例子
whz110的专栏
07-16 261
1. DDL SQL:创建新表 #createStatesTable.rb require 'dbi' #数据库连接字符串:包括 DBI:OCI8:ORCL 字符串以及用户名和口令 #OCI8 部分指的是 Ruby/OCI8 驱动程序，ORCL 部分指的是数据库服务。 dbh = DBI.connect('DBI:OCI8:ORCL', 'hr', 'hr') dbh.do("CREATE TA...
oracle存储过程拼接函数,Oracle存储过程拼接in语句 & 自定义split函数
weixin_29288313的博客
04-11 921
前言简单描述一下场景，在Oracle的一个存储过程中遍历一个Cursor，然后在循环中需要用到in查询语句，而in里面的条件正是游标当前行的一个的字段值类型为字符串，形如：而存储过程中又自然而然的写了这样的语句(重点第四行)：select count(*) into current_hjnum from t_studentinfowhere kslbdm_ = 1and hjstreet_ = e...
Oracle 存储过程和存储函数
南淮北安的博客
05-31 1227
文章目录一、存储过程二、存储函数三、in 和 out 类型参数四、存储过程和存储函数的区别 一、存储过程 存储过程（Stored Procedure）是在大型数据库系统中，一组为了完成特定功能的 SQL 语句集，经 编译后存储在数据库中，用户通过指定存储过程的名字并给出参数（如果该存储过程带有参数）来 执行它。 存储过程是数据库中的一个重要对象，任何一个设计良好的数据库应用程序都应该用到存储过程。 存储过程：存储过程就是提前已经编译好的一段pl/sql语言，放置在数据库端 可以直接被调用，这一段pl/sql
Oracle存储过程函数生成实战指南
weixin_42599558的博客
08-25 919
本文还有配套的精品资源，点击获取 简介：Oracle存储过程和函数是数据库管理中的重要组成部分，用于创建复杂业务逻辑和数据处理流程。本实战指南将详细介绍如何在Oracle数据库环境中设计、编写、测试和调用存储过程和函数，包括参数声明、PL/SQL块、调用方法和性能优化等关键知识点。通过实践"qlr(生成权利人表信息).sql"文件中的存储过程或函数，学生将掌握在实际项目中应...
Oracle笔记之存储过程和函数
JAVA开发区的博客
11-27 2027
概述 本篇博文中主要探讨以下内容： 存储过程和存储函数 1. 匿名块 2. 命名块（存储过程） 3. 存储函数 Oracle中的存储过程和存储函数1.PL/Sql块2. 过程（procedure）2.1过程一（无参存储过程）2.过程二（有参存储过程）3.过程三（有参存储过程，且返回多个值）4.调用方法5.在存储过程中实现判断语句、多分支语句6.通过id 取工资（存储过程实例）7.删除存储过程3.存储函数4.存储过程和存储函数的区别： 1.PL/Sql块 --在用到dbms_output.put_line()
Oracle存储过程语法及常用函数总结
jqdelove的博客
01-13 1195
从去年底到现在4个月了，原本早就想对实习期间学习到的知识进行总结，一直拖到现在，中间又是工作的事，又是毕设系统的开发，自己的时间分配确实也有不合理的地方，不能很好地平衡工作和生活，毕竟也是自己第一次实习，还是有许多不足之处需要总结的。今天就对在项目组实习期间使用到的技术进行总结，写的不到位的地方还请大家批评指正????。 实习期间主要接触到的是数据库相关的内容，涉及到少量的数据清洗，绝大部分还是属于数据抽取以及轻微的加工。我主要负责是的Oracle数据库存储过程的开发，SQL语句功底是做任何开发必不可少的，
JAVA 与ORACLE 存储过程及函数
03-30
在“JAVA与存储过程.txt”文件中，可能包含了具体的示例代码，解释了如何在Java中调用Oracle存储过程和函数，以及如何处理输入和输出参数。这些示例可能涉及到了`Connection`, `PreparedStatement`, `ResultSet`等...
Oracle存储过程和自定义函数详解
12-16
PL/SQL中的过程和函数（通常称为子程序）是PL/SQL块的一种特殊的类型，这种类型的子程序可以以编译的形式存放在数据库中，并为后续的程序块调用。 相同点： 完成特定功能的程序 不同点：是否用return语句返回值。 ...
oracle 存储过程和函数例子
12-16
作者:peace.zhao 关于 游标 if,for 的例子 create or replace procedure peace_if is cursor var_c is select * from grade; begin for temp in var_c loop if temp.course_name = ‘OS’ then dbms_output.put_line...
oracle 存储过程、函数和触发器用法实例详解
12-14
一、存储过程和存储函数 指存储在数据库中供所有用户程序调用的子程序叫存储过程、存储函数。 创建存储过程 用CREATE PROCEDURE命令建立存储过程。 语法： create [or replace] procedure 过程名(参数列表) as ...
Alibaba-Dragonwell-Standard-21.0.4.0.4.7-aarch64-linux.tar
11-11
基于OpenJDK开发的开源JDK，支持国内环境加密 解决maven下载不了，提示加解密失败的问题 Alibaba_Dragonwell_Standard_21.0.4.0.4.7_aarch64_linux.tar
【Unity游戏框架】Prodigy Game Framework快速搭建游戏原型
最新发布
11-11
文件名：Prodigy Game Framework_22.6.2 (20 Jun 2022).unitypackage Prodigy Game Framework 是一个强大的 Unity 游戏框架插件，专门为需要快速搭建游戏原型的开发者设计，适用于多种类型的游戏项目。它不仅包含大量核心系统，还提供了一些通用的游戏功能模块，帮助开发者加快游戏开发进度，同时保持代码和架构的灵活性。以下是 Prodigy Game Framework 的主要特点和功能： 1. 模块化游戏框架 Prodigy Game Framework 提供了模块化的游戏架构，允许开发者根据需求添加或移除不同功能模块。每个模块都是独立的，便于管理和扩展。 框架经过精心设计，以适应各种类型的游戏项目，从单人冒险到多人联网游戏都能轻松实现。 2. 场景管理 插件带有场景管理工具，可以轻松管理场景加载、卸载以及跨场景的数据传递，保证游戏的流畅切换。 支持场景内存优化、异步加载和场景过渡效果，有助于在不同平台上实现最佳性能。 3. 任务与成就系统 内置的任务系统可以让开发者为游戏添加多样化的任务，比如主线任务..
com.harmonyos4.exception.LoadBalancerFailureException.md
11-11
鸿蒙开发中碰到的报错，问题已解决，写个文档记录一下这个问题及解决方案
Eclipse代码注释模版-codetemplates.xml
11-11
Eclipse代码注释模版-codetemplates
PD虚拟机激活，先下载正版软件在启动这个即可完美激活
11-11
PD虚拟机激活，先下载正版软件在启动这个即可完美激活
Oracle存储过程及自定义函数实践指南
资源摘要信息:Oracle存储过程、自定义函数、动态建表存储过程等例子 在Oracle数据库中，存储过程和自定义函数是增强数据库操作灵活性和封装业务逻辑的重要工具。存储过程是存储在数据库中的一组PL/SQL语句，用于...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值