?? 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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -