zw.sql

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

create table TZW_ZZPZSET<<YEAR>>
(
  ID      CHAR(4) not null,
  SIJLHM  NUMBER not null,
  CPZLB   VARCHAR2(4) not null,
  CZZSM   VARCHAR2(40) not null,
  CKMDM   VARCHAR2(40) not null,
  BMDM    VARCHAR2(12) default ' ',
  BMMC    VARCHAR2(20) default ' ',
  XMDM    VARCHAR2(30) default ' ',
  XMMC    VARCHAR2(50) default ' ',
  CFX     CHAR(2) not null,
  CJEGS   VARCHAR2(200) not null,
  CZY     VARCHAR2(200),
  ZZRQ    CHAR(10),
  CPZTYPE VARCHAR2(12) not null
)
tablespace CW_TS
  pctfree 10
  pctused 40
  initrans 1
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 0
  );
create unique index PK_ZW_ZZPZSET<<YEAR>> on TZW_ZZPZSET<<YEAR>> (CPZTYPE,ID,SIJLHM)
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 20K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 0
  );
  create table TZW_ZZHDSET<<YEAR>>
  (
    ID     CHAR(4) not null,
    PZLB   VARCHAR2(4) not null,
    SYKMDM VARCHAR2(40) not null,
    SYKMMC VARCHAR2(255) not null,
    SSKMDM VARCHAR2(40) not null,
    SSKMMC VARCHAR2(255) not null,
    ZY     VARCHAR2(200) not null,
    THZQ   VARCHAR2(10) not null,
    SCHDRQ CHAR(10),
    JLFL   NUMBER not null,
    KMDM   VARCHAR2(40) not null,
    KMMC   VARCHAR2(255) not null,
    FX     CHAR(2) not null,
    BZ     VARCHAR2(10) not null
  )
  tablespace CW_TS
    pctfree 10
    pctused 40
    initrans 1
    maxtrans 255
    storage
    (
      initial 10K
      next 10K
      minextents 1
      maxextents 121
      pctincrease 0
    );
  create unique index PK_ZW_TZW_ZZHDSET<<YEAR>> on TZW_ZZHDSET<<YEAR>> (ID,JLFL)
    tablespace CW_TS
    pctfree 10
    initrans 2
    maxtrans 255
    storage
    (
      initial 20K
      next 10K
      minextents 1
      maxextents 121
      pctincrease 0
    );
   create table TZW_ACCOUNTAGE<<YEAR>>
   (
     CCODE   CHAR(10) not null,
     INUM    NUMBER,
     ILENGTH NUMBER
   )
   tablespace CW_TS
     pctfree 10
     pctused 40
     initrans 1
     maxtrans 255
     storage
     (
       initial 10K
       next 10K
       minextents 1
       maxextents 121
       pctincrease 0
     );
   create table TZW_BADACCOUNTAGE<<YEAR>>
   (
     CCODE   CHAR(10) not null,
     INUM    NUMBER,
     ILENGTH NUMBER,
     IRATE   NUMBER(18,4)
   )
   tablespace CW_TS
     pctfree 10
     pctused 40
     initrans 1
     maxtrans 255
     storage
     (
       initial 10K
       next 10K
       minextents 1
       maxextents 121
       pctincrease 0
     );

   create table TZW_BUDGET<<YEAR>>
   (
     ID        NUMBER not null,
     KMDM      VARCHAR2(40) not null,
     ITEMCLASS CHAR(40),
     ITEM      CHAR(30),
     BMDM      CHAR(12),
     GRDM      CHAR(20),
     GYSDM     CHAR(12),
     KHDM      CHAR(12)
   )
   tablespace CW_TS
     pctfree 10
     pctused 40
     initrans 1
     maxtrans 255
     storage
     (
       initial 10K
       next 10K
       minextents 1
       maxextents unlimited
       pctincrease 0
     );
   alter table TZW_BUDGET<<YEAR>>
     add constraint PK_BEDGET<<YEAR>> primary key (ID)
     using index 
     tablespace CW_TS
     pctfree 10
     initrans 2
     maxtrans 255
     storage
     (
       initial 10K
       next 10K
       minextents 1
       maxextents unlimited
       pctincrease 0
     );
   create table TZW_BUDGETCONTROL<<YEAR>>
   (
     ID             NUMBER not null,
     CONTROLFLAG    CHAR(1) default '0' not null,
     CONTROLFORMULA VARCHAR2(200),
     ALERTFLAG      CHAR(1) default '0' not null,
     ALERTFORMULA   VARCHAR2(200)
   )
   tablespace CW_TS
     pctfree 10
     pctused 40
     initrans 1
     maxtrans 255
     storage
     (
       initial 10K
       next 10K
       minextents 1
       maxextents unlimited
       pctincrease 0
     );
   alter table TZW_BUDGETCONTROL<<YEAR>>
     add constraint PK_ZW_BEDGETCONTROL<<YEAR>> primary key (ID)
     using index 
     tablespace CW_TS
     pctfree 10
     initrans 2
     maxtrans 255
     storage
     (
       initial 10K
       next 10K
       minextents 1
       maxextents unlimited
       pctincrease 0
     );
   create table TZW_CHECK<<YEAR>>
   (
     KMDM       VARCHAR2(40) not null,
     CHECKNO    VARCHAR2(10) not null,
     USEDATE    DATE,
     DEPARTCODE VARCHAR2(12),
     PERSONCODE VARCHAR2(20),
     MONEY      NUMBER(15,2) default 0,
     USERTEXT   VARCHAR2(30),
     OUTDATE    DATE,
     TEXT       VARCHAR2(30)
   )
   tablespace CW_TS
     pctfree 10
     pctused 40
     initrans 1
     maxtrans 255
     storage
     (
       initial 10K
       next 10K
       minextents 1
       maxextents 121
       pctincrease 0
     );
   create unique index PK_ZW_CHECK<<YEAR>> on TZW_CHECK<<YEAR>> (KMDM,CHECKNO)
     tablespace CW_TS
     pctfree 10
     initrans 2
     maxtrans 255
     storage
     (
       initial 10K
       next 10K
       minextents 1
       maxextents 121
       pctincrease 0
     );
   create table TZW_CUSTOMER<<YEAR>>
   (
     CCUSCODE     CHAR(12) not null,
     CCUSNAME     CHAR(60),
     CCUSABBNAME  CHAR(20),
     CCCCODE      CHAR(12),
     CCDCODE      CHAR(6),
     CCUSHEADCODE CHAR(12),
     CTRADE       CHAR(40),
     CCUSREGCODE  CHAR(18),
     CCUSLPERSON  CHAR(10),
     CCUSBANK     CHAR(30),
     CCUSACCOUNT  CHAR(40),
     CCUSADDRESS  CHAR(80),
     CCUSPOSTCODE CHAR(6),
     CCUSPERSON   CHAR(10),
     CCUSEMAIL    CHAR(30),
     CCUSPHONE    CHAR(20),
     CCUSFAX      CHAR(20),
     CCUSBP       CHAR(20),
     CCUSHAND     CHAR(20),
     CCUSOADDRESS CHAR(40),
     CCUSOTYPE    CHAR(10),
     CCUSWHCODE   CHAR(20),
     IARMONEY     NUMBER(9,2),
     ICUSDISRATE  NUMBER(9,2) default 0,
     CCUSCREGRADE CHAR(6),
     ICUSCRELINE  NUMBER(9,1),
     ICUSCREDATE  NUMBER(9,1),
     CCUSPAYCOND  CHAR(20),
     DLASTDATE    DATE,
     ILASTMONEY   NUMBER(9,2),
     DLRDATE      DATE,
     ILRMONEY     NUMBER(9,2) default 0,
     CCUSDEPART   CHAR(12),
     CCUSPPERSON  CHAR(10),
     DCUSDEVDATE  DATE,
     DENDDATE     DATE,
     IFREQUENCY   NUMBER
   )
   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_CUSTOMER<<YEAR>>
     add constraint PK_ZW_CUSTOMER<<YEAR>> primary key (CCUSCODE)
     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_CUSTOMERCLASS<<YEAR>>
   (
     CCCCODE  CHAR(12) not null,
     CCCNAME  CHAR(20),
     ICCGRADE NUMBER,
     BCCEND   NUMBER default 0               /*末级标志*/
   )
   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_CUSTOMERCLASS<<YEAR>>
     add constraint PK_ZW_CUSTOMERCLASS<<YEAR>> primary key (CCCCODE)
     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_CUSTOMERSHOWSET<<YEAR>>
   (
     ID      NUMBER not null,
     FIELD   CHAR(15) not null,
     DETIALS CHAR(20) not null,
     SHOW    NUMBER default 0               /*显示状态*/
   )
   tablespace CW_TS
     pctfree 10
     pctused 40
     initrans 1
     maxtrans 255
     storage
     (
       initial 10K
       next 10K
       minextents 1
       maxextents 121
       pctincrease 0
     );
   create table TZW_EXCH<<YEAR>>
   (
     CEXCH_NAME VARCHAR2(10) not null,
     IPERIOD    NUMBER not null,
     ITYPE      NUMBER default 0,
     CDATE      CHAR(10) not null,
     NFLAT_HL   NUMBER(15,8),
     NFLAT_TZ   NUMBER(15,8)
   )
   tablespace CW_TS
     pctfree 10
     pctused 40
     initrans 1
     maxtrans 255
     storage
     (
       initial 10K
       next 10K
       minextents 1
       maxextents 121
       pctincrease 0
     );
   create unique index PK_ZW_EXCH<<YEAR>> on TZW_EXCH<<YEAR>> (CEXCH_NAME,IPERIOD)
     tablespace CW_TS
     pctfree 10
     initrans 2
     maxtrans 255
     storage
     (
       initial 10K
       next 10K
       minextents 1
       maxextents 121
       pctincrease 0
     );
   create table TZW_FOREIGNCURRENCY<<YEAR>>
   (
     CEXCH_NAME VARCHAR2(10) not null,
     BCAL       NUMBER default 0,
     IDEC       NUMBER default 4,
     MERROR     NUMBER(9,8) default 0.0001,
     OTHERUSE   NUMBER default 0               /*是否使用标记*/
   )
   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_FOREIGNCURRENCY<<YEAR>>
     add constraint PK_ZW_FOREIGNCURRENCY<<YEAR>> primary key (CEXCH_NAME)
     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_ITEM<<YEAR>>
   (
     CCODE     CHAR(30) not null,
     CNAME     CHAR(50),
     CDIRECT   CHAR(2),
     BCASH     NUMBER default 0,
     CCLSCODE  CHAR(40),
     BCARRY    NUMBER default 0,
     BUSE      NUMBER default 0,
     DBUDGET   NUMBER(15,2) default 0,
     BOVER     NUMBER default 0,
     DOVERDATE VARCHAR2(12)
   )
   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_ITEM<<YEAR>>
     add constraint PK_ZW_ITEM<<YEAR>> primary key (CCODE)
     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_ITEMCLASS<<YEAR>>
   (
     CCLSCODE CHAR(40) not null,
     CCLSNAME CHAR(40),
     IGRADE   NUMBER,
     NTYPE    NUMBER default 0,
     BUSE     NUMBER default 0               /*是否已在用*/
   )
   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_ITEMCLASS<<YEAR>>
     add constraint PK_ZW_ITEMCLASS<<YEAR>> primary key (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_JSFS<<YEAR>>
   (
     CCODE  CHAR(3) not null,
     CNAME  CHAR(12),
     BFLAG  NUMBER default 0,
     IGRADE NUMBER,
     BEND   NUMBER default 0               /*末级标志*/
   )
   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_JSFS<<YEAR>>
     add constraint PK_ZW_JSFS<<YEAR>> primary key (CCODE)
     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_PLAN<<YEAR>>
   (
     ID          NUMBER default 0 not null,
     BSELE       NUMBER default 0 not null,
     DLMONPLAN1  NUMBER(15,2) default 0 not null,
     DLMONPLUS1  NUMBER(15,2) default 0 not null,
     DLMONPLAN2  NUMBER(15,2) default 0 not null,
     DLMONPLUS2  NUMBER(15,2) default 0 not null,
     DLMONPLAN3  NUMBER(15,2) default 0 not null,
     DLMONPLUS3  NUMBER(15,2) default 0 not null,
     DLMONPLAN4  NUMBER(15,2) default 0 not null,
     DLMONPLUS4  NUMBER(15,2) default 0 not null,
     DLMONPLAN5  NUMBER(15,2) default 0 not null,
     DLMONPLUS5  NUMBER(15,2) default 0 not null,
     DLMONPLAN6  NUMBER(15,2) default 0 not null,
     DLMONPLUS6  NUMBER(15,2) default 0 not null,
     DLMONPLAN7  NUMBER(15,2) default 0 not null,
     DLMONPLUS7  NUMBER(15,2) default 0 not null,
     DLMONPLAN8  NUMBER(15,2) default 0 not null,
     DLMONPLUS8  NUMBER(15,2) default 0 not null,
     DLMONPLAN9  NUMBER(15,2) default 0 not null,
     DLMONPLUS9  NUMBER(15,2) default 0 not null,
     DLMONPLAN10 NUMBER(15,2) default 0 not null,