config_ora.sql

来自「很好用的数据库连接组件」· SQL 代码 · 共 2,110 行 · 第 1/5 页

SQL
2,110 行
字号
12345
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_MONITORPARAMINFO');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_monitorparaminfo cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/


BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_MONITORLINEINFO');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_monitorlineinfo cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_MONITORCODEINFO');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_monitorcodeinfo cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_MODULEINFO');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_moduleinfo cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_LINKINFO');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_linkinfo cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_LINKGROUPCONFIG');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_linkgroupconfig cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_LINKCONFIG');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_linkconfig cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_LANINFO');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_laninfo cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_JXTKGPINFO');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_jxtkgpinfo cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_JXJXINFO');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_jxjxinfo cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_JXCONFIG');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_jxconfig cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_JX1CONFIG');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_jx1config cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_DIRECTIONINFO');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_directioninfo cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_CENTREXINFO');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_centrexinfo cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_BUSYINDEXINFO');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_busyindexinfo cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_BILLINFO');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_billinfo cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'NEW_ALARMTYPEINFO');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table new_alarmtypeinfo cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

BEGIN
DECLARE
cnt integer := 0;
BEGIN
    SELECT 1 INTO cnt FROM dual WHERE exists(SELECT * FROM user_tables WHERE table_name = 'CPU_TABLE');
    IF cnt!=0 THEN
        DECLARE s  VARCHAR2(500);
        BEGIN
            s := 'drop table cpu_table cascade constraints';
            DBMS_OUTPUT.PUT_LINE(s);
            EXECUTE IMMEDIATE  s;                
        END;
    END IF;
exception
    WHEN no_data_found  THEN
        DBMS_OUTPUT.PUT_LINE(cnt);
END;
END;
/

/*==============================================================*/
/* Table: cpu_table                                             */
/*==============================================================*/


create table cpu_table  (
   offinum              CHAR(8)                          not null,
   cpu_name             CHAR(10)                         not null,
   billno               SMALLINT                       default 0  not null,
   content              VARCHAR2(32),
   starttime            DATE,
   endtime              DATE,
   period               NUMBER(2)                       default 60,
   constraint PK_CPU_TABLE primary key (offinum, cpu_name, billno)
)
/


/*==============================================================*/
/* Table: new_alarmtypeinfo                                     */
/*==============================================================*/


create table new_alarmtypeinfo  (
   almtypeid            NUMBER(2)                         not null,
   almtypename          VARCHAR2(32),
   tablename            VARCHAR2(32),
   constraint PK_NEW_ALARMTYPEINFO primary key (almtypeid)
)
/


/*==============================================================*/
/* Table: new_billinfo                                          */
/*==============================================================*/


create table new_billinfo  (
   billid               CHAR(4)                          not null,
   billname             VARCHAR2(60),
   constraint PK_NEW_BILLINFO primary key (billid)
)
/


/*==============================================================*/
/* Table: new_busyindexinfo                                     */
/*==============================================================*/


create table new_busyindexinfo  (
   offinum              CHAR(8)                          not null,
   indexid              SMALLINT,
   constraint PK_NEW_BUSYINDEXINFO primary key (offinum)
)
/
12345

config_ora.sql - 源码说明

本页面展示了「很好用的数据库连接组件」中的 config_ora.sql 源码文件，采用 SQL 编程语言编写，共 2,110 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与数据库连接相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?