udefindb.pas

一个小程序

unit uDefinDb;

interface

const

  gdbset='CREATE TABLE dbset ('+
         ' dbid COUNTER not null, '+
         ' dbname VARCHAR(50), '+
         ' dbalias VARCHAR(50), '+
         ' dbuser VARCHAR(50), '+
         ' dbpass VARCHAR(50), '+
         ' dbip VARCHAR(50), '+    
         ' dbport VARCHAR(50), '+
         '	CONSTRAINT PK_dbset PRIMARY KEY ( dbid ) '+
         ')';
  gEltwoacc1='create table ELTWOACC1 '+
            '('+
            '  SUPID  VARCHAR2(20),'+
            '  MFID   VARCHAR2(20) ,'+
            '  CONTID VARCHAR2(20),'+
            '  WMID   VARCHAR2(2),'+
            '  TYPE   VARCHAR2(2) not null,'+
            '  JE     NUMBER(16,2) not null,'+
            '  BL     NUMBER(3,2) not null'+
            ') '+
            'tablespace DATA_SPC'+
            '  pctfree 10  '+
            '  pctused 40  '+
            '  initrans 1  '+
            '  maxtrans 255'+
            '  storage     '+
            '  (           '+
            '    initial 10M'+
            '    next 5M    '+
            '    minextents 1 '+
            '    maxextents unlimited '+
            '    pctincrease 0 '+
            '  )';
  gEltwoacc2='create table ELTWOACC2 '+
            '('+
            '  SUPID  VARCHAR2(20) not null,'+
            '  MFID   VARCHAR2(20) not null,'+
            '  CONTID VARCHAR2(20) not null,'+
            '  WMID   VARCHAR2(2) not null,'+
            '  GDID   VARCHAR2(20) not null,'+
            '  TYPE   VARCHAR2(2) not null,'+
            '  JE     NUMBER(16,2) not null,'+
            '  BL     NUMBER(3,2) not null'+
            ') '+
            'tablespace DATA_SPC'+
            '  pctfree 10  '+
            '  pctused 40  '+
            '  initrans 1  '+
            '  maxtrans 255'+
            '  storage     '+
            '  (           '+
            '    initial 10M'+
            '    next 5M    '+
            '    minextents 1 '+
            '    maxextents unlimited '+
            '    pctincrease 0 '+
            '  )';
implementation

end.