fz.sql

一个用VB写的财务软件源码

create table TFZ_MULACCOUNTBOOK
(
  CID                      VARCHAR2(10) not null,
  CNAME                    VARCHAR2(40),
  CMODE                    VARCHAR2(10),
  CMONTHFROM               VARCHAR2(10),
  CMONTHTO                 VARCHAR2(10),
  BINCLUDENOTRECORDVOUCHER NUMBER,
  BSHOWNOTMONEYCOL         NUMBER,
  CSUBJECTCODE             VARCHAR2(400),
  CDEPTCODE                VARCHAR2(400),
  CSITEMCODECOLLECT        VARCHAR2(400),
  BAMOUNT                  NUMBER,
  BFOREIGN                 NUMBER,
  ILEVEL                   VARCHAR2(40),
  CACCOUNTTYPE             VARCHAR2(10),
  BISMONEY                 NUMBER default 0
)
tablespace CW_TS
  pctfree 10
  pctused 40
  initrans 1
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents unlimited
    pctincrease 0
  );
create table TFZ_MULACCOUNTBOOKCOL
(
  CID        VARCHAR2(10) not null,
  CCOLCODE   VARCHAR2(40),
  CCOLNAME   VARCHAR2(40),
  ICOLLEVEL  NUMBER,
  CCOLDIRECT VARCHAR2(4),
  CNUM       VARCHAR2(10)
)
tablespace CW_TS
  pctfree 10
  pctused 40
  initrans 1
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents unlimited
    pctincrease 0
  );
create table TFZ_XMBMPZSJ<<YEAR>>
(
  ID       VARCHAR2(8) not null,
  KJQJ     NUMBER not null,
  PZZL     VARCHAR2(4) not null,
  PZBH     VARCHAR2(4) not null,
  JLHM     NUMBER not null,
  PZZY     VARCHAR2(200),
  KMDM     VARCHAR2(40),
  KMMC     VARCHAR2(255),
  FX       VARCHAR2(2),
  JE       NUMBER(15,2),
  SL       NUMBER(15,4),
  DJ       NUMBER(15,2),
  WB       NUMBER(15,2),
  HL       NUMBER(15,8),
  XGBZ     VARCHAR2(1),
  BZ       VARCHAR2(10),
  BMDM     VARCHAR2(12),
  BMMC     VARCHAR2(20),
  XMDM     VARCHAR2(30),
  XMMC     VARCHAR2(50),
  XMID     VARCHAR2(2) not null,
  ZDRMCODE VARCHAR2(4),
  ZDRM     VARCHAR2(8),
  FHRMCODE VARCHAR2(4),
  FHRM     VARCHAR2(8),
  ZGRMCODE VARCHAR2(4),
  ZGRM     VARCHAR2(8),
  PZRQ     DATE
)
tablespace CW_TS
  pctfree 10
  pctused 40
  initrans 1
  maxtrans 255
  storage
  (
    initial 1450K
    next 160K
    minextents 1
    maxextents unlimited
    pctincrease 0
  );
alter table TFZ_XMBMPZSJ<<YEAR>>
  add constraint PK_FZ_XMBMPZSJ<<YEAR>> primary key (ID,KJQJ,PZZL,PZBH,JLHM,XMID)
  using index 
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 0
  );
create index IDX_TFZ_XMBMPZSJ<<YEAR>>_BMDM on TFZ_XMBMPZSJ<<YEAR>> (BMDM)
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents unlimited
    pctincrease 0
  );
create index IDX_TFZ_XMBMPZSJ<<YEAR>>_KMDM on TFZ_XMBMPZSJ<<YEAR>> (KMDM)
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents unlimited
    pctincrease 0
  );
create index IDX_TFZ_XMBMPZSJ<<YEAR>>_XMDM on TFZ_XMBMPZSJ<<YEAR>> (XMDM)
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents unlimited
    pctincrease 0
  );
create table TFZ_KMXMFILTER<<YEAR>>
(
  KMDM     VARCHAR2(40) not null,
  KMMC     VARCHAR2(50),
  XMDM     VARCHAR2(30) not null,
  XMMC     VARCHAR2(50),
  CCLSCODE VARCHAR2(40) not null,
  CCLSNAME VARCHAR2(40)
)
tablespace CW_TS
  pctfree 10
  pctused 40
  initrans 1
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 0
  );
alter table TFZ_KMXMFILTER<<YEAR>>
  add constraint PK_FZ_KMXMFILTER<<YEAR>> primary key (KMDM,XMDM,CCLSCODE)
  using index 
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 0
  );
  create table TZW_IGENERALDATA<<YEAR>>
  (
    ITEM      VARCHAR2(30) not null,
    FIELDCODE NUMBER not null,
    VALUE     VARCHAR2(250),
    ITEMCLASS VARCHAR2(40) not null
  )
  tablespace CW_TS
    pctfree 10
    pctused 40
    initrans 1
    maxtrans 255
    storage
    (
      initial 10K
      next 10K
      minextents 1
      maxextents 121
      pctincrease 0
    );
  alter table TZW_IGENERALDATA<<YEAR>>
    add constraint PK_ZW_IGEND<<YEAR>> primary key (ITEM,FIELDCODE)
    using index 
    tablespace CW_TS
    pctfree 10
    initrans 2
    maxtrans 255
    storage
    (
      initial 10K
      next 10K
      minextents 1
      maxextents 121
      pctincrease 0
    );
    create table TZW_IGENERALSTRUCT<<YEAR>>
    (
      VCTITLE   VARCHAR2(50) not null,
      NTYPE     NUMBER default 1 not null,
      NLENGTH   NUMBER default 0 not null,
      ITEMCLASS VARCHAR2(40) default '' not null,
      ISNEED    NUMBER default 0 not null,
      ID        NUMBER default 0 not null,
      SORTED    NUMBER default 0 not null
    )
    tablespace CW_TS
      pctfree 10
      pctused 40
      initrans 1
      maxtrans 255
      storage
      (
        initial 10K
        next 10K
        minextents 1
        maxextents 121
        pctincrease 0
      );
    comment on column TZW_IGENERALSTRUCT<<YEAR>>.NTYPE
      is '/*1、文本 2、数字 3、日期*/';
    alter table TZW_IGENERALSTRUCT<<YEAR>>
      add constraint PK_ZW_IGENERALSTRUCT<<YEAR>> primary key (ID,ITEMCLASS)
      using index 
      tablespace CW_TS
      pctfree 10
      initrans 2
      maxtrans 255
      storage
      (
        initial 10K
        next 10K
        minextents 1
        maxextents 121
        pctincrease 0
      );
    create index IX_IGEN<<YEAR>>_ITEMCLASS on TZW_IGENERALSTRUCT<<YEAR>> (ITEMCLASS)
      tablespace CW_TS
      pctfree 10
      initrans 2
      maxtrans 255
      storage
      (
        initial 10K
        next 10K
        minextents 1
        maxextents 121
        pctincrease 0
      );
create table TFZ_EXPANDPZSJ<<YEAR>>
(
  ID         VARCHAR2(8) not null,
  KJQJ       NUMBER not null,
  PZZL       VARCHAR2(4) not null,
  PZBH       VARCHAR2(4) not null,
  JLHM       NUMBER not null
)
tablespace CW_TS
  pctfree 10
  pctused 40
  initrans 1
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 50
  );
alter table TFZ_EXPANDPZSJ<<YEAR>>
  add constraint PK_FZ_EXPANDPZSJ<<YEAR>> primary key (ID,KJQJ,PZZL,PZBH,JLHM)
  using index 
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 50
  );
create or replace view vfz_expandpzsj<<YEAR>> as Select BMDM,BMMC,BZ,DJ,FHRM,FHRMCODE,FX,HL,a.ID,JE,a.JLHM,a.KJQJ,KMDM,KMMC,a.PZBH,PZRQ,a.PZZL,PZZY,SL,WB,XGBZ,XMDM,XMID,XMMC,ZDRM,ZDRMCODE,ZGRM,ZGRMCODE from TFZ_XMBMPZSJ<<YEAR>> a,tFZ_ExpandPzsj<<YEAR>> b where a.Kjqj=b.Kjqj(+) and a.pzzl=b.pzzl(+) and a.pzbh=b.pzbh(+) and a.jlhm=b.jlhm(+) and a.ID=b.ID(+);