4.变动管理.sql

一个很不错的实验室设备管理系统,用PB作为开发工具,具有一定的代表性.

CREATE TABLE "dba"."sbdbd"
        ("id" char(22) NOT NULL ,
       "bh" char(22) NOT NULL ,
       "dbrq" date  ,
       "sbbh" char(12)  ,
       "sbmc" char(40)  ,
       "ggxh" char(20)  ,
       "sccj" char(40)  ,
       "ccrq" date  ,
       "yz" numeric(12,2)  ,
       "jz" numeric(12,2)  ,
       "dcdw" char(40)  ,
       "drdw" char(40)  ,
       "dbyy" varchar(200)  ,
       "gsld" char(8)  ,
       "zgbm" char(8)  ,
       "dcbm" char(8)  ,
       "drbm" char(8)  ) ;
 
CREATE UNIQUE INDEX "sbdbd"
        ON "dba"."sbdbd"
        ("id" ) ;
 
insert into "dba".pbcattbl
       (pbt_tnam,
        pbt_ownr,
        pbd_fhgt,
        pbd_fwgt,
        pbd_fitl,
        pbd_funl,
        pbd_fchr,
        pbd_fptc,
        pbd_ffce,
        pbh_fhgt,
        pbh_fwgt,
        pbh_fitl,
        pbh_funl,
        pbh_fchr,
        pbh_fptc,
        pbh_ffce,
        pbl_fhgt,
        pbl_fwgt,
        pbl_fitl,
        pbl_funl,
        pbl_fchr,
        pbl_fptc,
        pbl_ffce,
        pbt_cmnt)
       values
       ('sbdbd',
        'dba',
        -9,
        400,
        'N',
        'N',
        134,
        2,
        '宋体',
        -9,
        400,
        'N',
        'N',
        134,
        2,
        '宋体',
        -9,
        400 ,
        'N',
        'N',
        134,
        2,
        '宋体',
        '设备调拨单') ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'id',
        '序列号',
       0 ,
        '序列号',
       0,
       23 ,
       0 ,
       77 ,
       567 ,
       'N',
        '序列号' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'bh',
        '设备序列号',
       0 ,
        '设备序列号',
       0,
       23 ,
       0 ,
       77 ,
       567 ,
       'N',
        '设备序列号' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'dbrq',
        '调拨日期',
       0 ,
        '调拨日期',
       0,
       23 ,
       0 ,
       77 ,
       247 ,
       'N',
        '调拨日期' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'sbbh',
        '设备编号',
       0 ,
        '设备编号',
       0,
       23 ,
       0 ,
       77 ,
       343 ,
       'N',
        '设备编号' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'sbmc',
        '设备名称',
       0 ,
        '设备名称',
       0,
       23 ,
       0 ,
       77 ,
       983 ,
       'N',
        '设备名称' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'ggxh',
        '规格型号',
       0 ,
        '规格型号',
       0,
       23 ,
       0 ,
       77 ,
       526 ,
       'N',
        '规格型号' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'sccj',
        '生产厂家',
       0 ,
        '生产厂家',
       0,
       23 ,
       0 ,
       77 ,
       983 ,
       'N',
        '生产厂家' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'ccrq',
        '出厂日期',
       0 ,
        '出厂日期',
       0,
       23 ,
       0 ,
       77 ,
       247 ,
       'N',
        '出厂日期' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_mask,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'yz',
        '原值',
       0 ,
        '原值',
       0,
       24 ,
        '[General]',
       0 ,
       77 ,
       389 ,
       'N',
        '原值' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_mask,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'jz',
        '净值',
       0 ,
        '净值',
       0,
       24 ,
        '[General]',
       0 ,
       77 ,
       389 ,
       'N',
        '净值' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'dcdw',
        '调出单位',
       0 ,
        '调出单位',
       0,
       23 ,
       0 ,
       77 ,
       983 ,
       'N',
        '调出单位' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'drdw',
        '调入单位',
       0 ,
        '调入单位',
       0,
       23 ,
       0 ,
       77 ,
       983 ,
       'N',
        '调入单位' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'dbyy',
        '调拨原因',
       0 ,
        '调拨原因',
       0,
       23 ,
       0 ,
       77 ,
       4641 ,
       'N',
        '调拨原因' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'gsld',
        '公司领导',
       0 ,
        '公司领导',
       0,
       23 ,
       0 ,
       57 ,
       247 ,
       'N',
        '公司领导' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'zgbm',
        '主管部门',
       0 ,
        '主管部门',
       0,
       23 ,
       0 ,
       57 ,
       247 ,
       'N',
        '主管部门' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'dcbm',
        '调出部门',
       0 ,
        '调出部门',
       0,
       23 ,
       0 ,
       57 ,
       247 ,
       'N',
        '调出部门' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbdbd',
       'dba',
       'drbm',
        '调入部门',
       0 ,
        '调入部门',
       0,
       23 ,
       0 ,
       57 ,
       247 ,
       'N',
        '调入部门' ) ;
 
CREATE TABLE "dba"."sbzjd"
        ("id" char(22) NOT NULL ,
       "bh" char(22) NOT NULL ,
       "zjrq" date  ,
       "ghrq" date  ,
       "sbbh" char(12)  ,
       "sbmc" char(40)  ,
       "ggxh" char(20)  ,
       "sccj" char(40)  ,
       "synx" integer  ,
       "qysj" date  ,
       "yz" numeric(12,2)  ,
       "jz" numeric(12,2)  ,
       "sybm" char(40)  ,
       "zjdw" char(40)  ,
       "zjxy" char(200)  ) ;
 
CREATE UNIQUE INDEX "sbzjd"
        ON "dba"."sbzjd"
        ("id" ) ;
 
insert into "dba".pbcattbl
       (pbt_tnam,
        pbt_ownr,
        pbd_fhgt,
        pbd_fwgt,
        pbd_fitl,
        pbd_funl,
        pbd_fchr,
        pbd_fptc,
        pbd_ffce,
        pbh_fhgt,
        pbh_fwgt,
        pbh_fitl,
        pbh_funl,
        pbh_fchr,
        pbh_fptc,
        pbh_ffce,
        pbl_fhgt,
        pbl_fwgt,
        pbl_fitl,
        pbl_funl,
        pbl_fchr,
        pbl_fptc,
        pbl_ffce,
        pbt_cmnt)
       values
       ('sbzjd',
        'dba',
        -9,
        400,
        'N',
        'N',
        0,
        34,
        'Arial',
        -9,
        400,
        'N',
        'N',
        134,
        2,
        '宋体',
        -9,
        400 ,
        'N',
        'N',
        134,
        2,
        '宋体',
        '设备租借单') ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbzjd',
       'dba',
       'id',
        '序列号',
       0 ,
        '序列号',
       0,
       23 ,
       0 ,
       77 ,
       567 ,
       'N',
        '序列号' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values
        ('sbzjd',
       'dba',
       'bh',
        '设备序列号',
       0 ,
        '设备序列号',
       0,
       23 ,
       0 ,
       77 ,
       567 ,
       'N',
        '设备序列号' ) ;
 
insert into "dba".pbcatcol
       (pbc_tnam,
        pbc_ownr,
        pbc_cnam,
        pbc_labl,
        pbc_lpos,
        pbc_hdr,
        pbc_hpos,
        pbc_jtfy,
        pbc_case,
        pbc_hght,
        pbc_wdth,
        pbc_bmap,
        pbc_cmnt )
        values