ty.sql

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

create table TUSU_ACCOUNTFORMAT      /*1帐页列宽格式表*/ 
(
  ACCOUNTTYPE   VARCHAR2(40) not null,
  ACCOUNTFORMAT VARCHAR2(20) not null,
  COLWIDTH      VARCHAR2(300)
)
tablespace CW_TS
  pctfree 10
  pctused 40
  initrans 1
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 0
  );
alter table TUSU_ACCOUNTFORMAT
  add constraint PK_USU_ACCOUNTFORMAT primary key (ACCOUNTTYPE,ACCOUNTFORMAT)
  using index 
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 0
  );
create table TUSU_DEPARTMENT<<YEAR>>     /*2部门表*/
(
  CDEPCODE   CHAR(12) not null,
  CDEPNAME   CHAR(20) not null,
  IDEPGRADE  NUMBER,
  BDEPEND    NUMBER default -1,
  CDEPPERSON CHAR(20),
  CDEPPHONE  CHAR(20),
  CDEPMEMO   CHAR(40),
  BOTHERUSE  NUMBER default 0,
  CGDKM      CHAR(40),
  ISHAVEZD   NUMBER default 0                  /*工资核算转帐时是否已制单*/,
  XFDFKM     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 TUSU_DEPARTMENT<<YEAR>>
  add constraint PK_USU_DEPARTMENT<<YEAR>> primary key (CDEPCODE)
  using index 
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 0
  );
create table TUSU_DMJS           /*3代码级数表*/
(
  TYPE VARCHAR2(4) not null,
  JC   NUMBER not null,
  WS   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 unique index PK_USU_DMJS on TUSU_DMJS (TYPE,JC)
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 0
  );
create table TUSU_ECONOMY    /*4经济类别维护表*/
(
  VCNAME VARCHAR2(20) 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 TUSU_ECONOMY
  add constraint PK_USU_ECONOMY primary key (VCNAME)
  using index 
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 0
  );
create table TUSU_FZ<<YEAR>>   /*5辅助核算表*/
(
  ID         NUMBER not null,
  KMDM       VARCHAR2(40) not null,
  GRWL_CODE  CHAR(20),
  KHWL_CODE  CHAR(12),
  GYSWL_CODE CHAR(12),
  BMDM       CHAR(12),
  XMDM       CHAR(600),
  LJJSL00    NUMBER(15,3) default 0,
  LJJWB00    NUMBER(15,2) default 0,
  LJJ00      NUMBER(15,2) default 0,
  LJDSL00    NUMBER(15,3) default 0,
  LJDWB00    NUMBER(15,2) default 0,
  LJD00      NUMBER(15,2) default 0,
  LJJSL01    NUMBER(15,3) default 0,
  LJJWB01    NUMBER(15,2) default 0,
  LJJ01      NUMBER(15,2) default 0,
  LJDSL01    NUMBER(15,3) default 0,
  LJDWB01    NUMBER(15,2) default 0,
  LJD01      NUMBER(15,2) default 0,
  LJJSL02    NUMBER(15,3) default 0,
  LJJWB02    NUMBER(15,2) default 0,
  LJJ02      NUMBER(15,2) default 0,
  LJDSL02    NUMBER(15,3) default 0,
  LJDWB02    NUMBER(15,2) default 0,
  LJD02      NUMBER(15,2) default 0,
  LJJSL03    NUMBER(15,3) default 0,
  LJJWB03    NUMBER(15,2) default 0,
  LJJ03      NUMBER(15,2) default 0,
  LJDSL03    NUMBER(15,3) default 0,
  LJDWB03    NUMBER(15,2) default 0,
  LJD03      NUMBER(15,2) default 0,
  LJJSL04    NUMBER(15,3) default 0,
  LJJWB04    NUMBER(15,2) default 0,
  LJJ04      NUMBER(15,2) default 0,
  LJDSL04    NUMBER(15,3) default 0,
  LJDWB04    NUMBER(15,2) default 0,
  LJD04      NUMBER(15,2) default 0,
  LJJSL05    NUMBER(15,3) default 0,
  LJJWB05    NUMBER(15,2) default 0,
  LJJ05      NUMBER(15,2) default 0,
  LJDSL05    NUMBER(15,3) default 0,
  LJDWB05    NUMBER(15,2) default 0,
  LJD05      NUMBER(15,2) default 0,
  LJJSL06    NUMBER(15,3) default 0,
  LJJWB06    NUMBER(15,2) default 0,
  LJJ06      NUMBER(15,2) default 0,
  LJDSL06    NUMBER(15,3) default 0,
  LJDWB06    NUMBER(15,2) default 0,
  LJD06      NUMBER(15,2) default 0,
  LJJSL07    NUMBER(15,3) default 0,
  LJJWB07    NUMBER(15,2) default 0,
  LJJ07      NUMBER(15,2) default 0,
  LJDSL07    NUMBER(15,3) default 0,
  LJDWB07    NUMBER(15,2) default 0,
  LJD07      NUMBER(15,2) default 0,
  LJJSL08    NUMBER(15,3) default 0,
  LJJWB08    NUMBER(15,2) default 0,
  LJJ08      NUMBER(15,2) default 0,
  LJDSL08    NUMBER(15,3) default 0,
  LJDWB08    NUMBER(15,2) default 0,
  LJD08      NUMBER(15,2) default 0,
  LJJSL09    NUMBER(15,3) default 0,
  LJJWB09    NUMBER(15,2) default 0,
  LJJ09      NUMBER(15,2) default 0,
  LJDSL09    NUMBER(15,3) default 0,
  LJDWB09    NUMBER(15,2) default 0,
  LJD09      NUMBER(15,2) default 0,
  LJJSL10    NUMBER(15,3) default 0,
  LJJWB10    NUMBER(15,2) default 0,
  LJJ10      NUMBER(15,2) default 0,
  LJDSL10    NUMBER(15,3) default 0,
  LJDWB10    NUMBER(15,2) default 0,
  LJD10      NUMBER(15,2) default 0,
  LJJSL11    NUMBER(15,3) default 0,
  LJJWB11    NUMBER(15,2) default 0,
  LJJ11      NUMBER(15,2) default 0,
  LJDSL11    NUMBER(15,3) default 0,
  LJDWB11    NUMBER(15,2) default 0,
  LJD11      NUMBER(15,2) default 0,
  LJJSL12    NUMBER(15,3) default 0,
  LJJWB12    NUMBER(15,2) default 0,
  LJJ12      NUMBER(15,2) default 0,
  LJDSL12    NUMBER(15,3) default 0,
  LJDWB12    NUMBER(15,2) default 0,
  LJD12      NUMBER(15,2) default 0
)
tablespace CW_TS
  pctfree 10
  pctused 40
  initrans 1
  maxtrans 255
  storage
  (
    initial 360K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 0
  );
alter table TUSU_FZ<<YEAR>>
  add constraint PK_USU_FZ<<YEAR>> primary key (ID)
  using index 
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 30K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 0
  );
create index IDX_TUSU_FZ<<YEAR>>_BMDM on TUSU_FZ<<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_TUSU_FZ<<YEAR>>_KMDM on TUSU_FZ<<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_TUSU_FZ<<YEAR>>3_XMDM on TUSU_FZ<<YEAR>> (XMDM)
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents unlimited
    pctincrease 0
  );
create table TUSU_KMTOXMCLASS<<YEAR>>   /*6*/
(
  KMDM      VARCHAR2(40),
  ITEMID    NUMBER,
  ITEMCLASS VARCHAR2(40)
)
tablespace CW_TS
  pctfree 10
  pctused 40
  initrans 1
  maxtrans 255
  storage
  (
    initial 10K
    next 160K
    minextents 1
    maxextents unlimited
    pctincrease 0
  );
create table TUSU_PZMUTEX  /*7“集成帐务”凭证输入互斥控制表*/
(
  IPERIOD   NUMBER not null,
  CPZZL     VARCHAR2(4) not null,
  CCOMPUTER VARCHAR2(100)
)
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_USU_PZMUTEX on TUSU_PZMUTEX (IPERIOD,CPZZL)
  tablespace CW_TS
  pctfree 10
  initrans 2
  maxtrans 255
  storage
  (
    initial 10K
    next 10K
    minextents 1
    maxextents 121
    pctincrease 0
  );
create table TUSU_QUERYSET   /*8查询表达式设置表*/
(
  CMODULE     VARCHAR2(3) not null,
  VCQUERYNAME VARCHAR2(30) not null,
  VCRELATION  VARCHAR2(10),
  VCLEFT      VARCHAR2(30),
  VCITEMENG   VARCHAR2(20) not null,
  VCCOMPARE   VARCHAR2(10) not null,
  VCVALUES    VARCHAR2(20),
  VCRIGHT     VARCHAR2(10),
  IORDERNUM   VARCHAR2(8) 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 table TUSU_SUBCOMPANY /*9子公司目录表*/
(
  CCODE       CHAR(4) not null,
  VCNAME      VARCHAR2(50) not null,
  VCSHORTNAME VARCHAR2(20),
  SIORDER     NUMBER,
  VCTRADE     VARCHAR2(20),
  VCECONOMY   VARCHAR2(20),
  VCFILE      VARCHAR2(120),
  BMERGE      NUMBER default -1      /*是否合并报表*/
)
tablespace CW_TS
  pctfree 10
  pctused 40
  initrans 1
  maxtrans 255