《Oracle数据库管理与维护》 大作业

«Oracle数据库管理与维护》

大作业

专业班级软件1202

姓名边翔宇

学号12015H7

完成日期2014-11-28

1.创建表

SQL>createtableDanWDM(

单位代码

2varchar2(20)notnullz

3单位名称varchar2(20)notnull);

表已创建。

SQL>createtableYouSJB(

2井号varchar2(20)notnull,

3井别varchar2(20)notnull,

4单位代码varchar2(20)notnull);

表已创建。

SQL>createtableWuMB(

2物码varchar2(20)notnull,

3名称规格varchar2(20)notnull,

4计量单位varchar2(20)notnull);

表已创建。

SQL>createtableShiGDWB(

2施工单位名称varchar2(20)notnull);

表已创建。

SQL>createtableCaiLFB(

2项目编号varchar2(20)notnull,

3物码varchar2(20)notnull,

4消耗数量numbernotnull,

5单价numbernotnull);

表已创建。

SQL>spooloff;

SQL>droptableCaiLFB

2；

表已删除。

SQL>createtableCaiLFB(

2材料一number,

3材料二number,

4材料三number);

表已创建。

SQL>altertableCaiLFBadd(项目编号varchar(20));

表已更改。

SQL>altertableCaiLFB

2modify材料一number(20);

表已更改。

SQL>altertableCaiLFB

2modify材料二number(20);

表已更改。

SQL>altertableCaiLFB

2modify材料三number(20);

表已更改。

SQL>descCaiLFB

名称是否为空？类型

材料一NUMBER(20)

材料二NUMBER(20)

材料三NUMBER(20)

项目编号VARCHAR2(20)

SQL>altertableCaiLFB

2addconstraintCL_PM_KEYprimarykey（项目编号）;

表已更改。

SQL>descDanWDM

名称是否为空？类型

单位代码NOTNULLVARCHAR2(20)

单位名称NOTNULLVARCHAR2(20)

SQL>altertableDanWDM

2addconstraintDW_PM_KEYprimarykey(单位代码);

表已更改。

SQL>descYouSJB

名称是否为空？类型

井号NOTNULLVARCHAR2(20)

井别NOTNULLVARCHAR2(20)

单位代码NOTNULLVARCHAR2(20)

SQL>altertableYouSJB

2addconstraintYS_PM_KEYprimarykey(井号);

表已更改。

SQL>descYouSJB

名称是否为空？类型

井号NOTNULLVARCHAR2(20)

井别NOTNULLVARCHAR2(20)

单位代码NOTNULLVARCHAR2(20)

SQL>altertableYouSJB

2addconstraintYS_F_KEYforeignkey(单位代码)

3referencesDanWDM(单位代码)；

表已更改。

SQL>descWuMB

名称是否为空？类型

物码NOTNULLVARCHAR2(20)

名称规格NOTNULLVARCHAR2(20)

计量单位NOTNULLVARCHAR2(20)

SQL>altertableWuMB

2addconstraintWM_PM_KEYprimarykey(物码);

表已更改。

SQL>descCaiLFB

名称是否为空？类型

材料一NUMBER(20)

材料二NUMBER(20)

材料三NUMBER(20)

项目编号NOTNULLVARCHAR2(20)

SQL>spooloff

SQL>descShiGDWB

名称是否为空？类型

施工单位名称NOTNULLVARCHAR2(20)

SQL>altertableShiGDWB

2addconstraintSG_PM_KEYprimarykey(施工单位名称);

表已更改。

SQL>createtableZYB

2(

3单据号VARCHAR2(20)notnull,

4预算单位VARCHAR2(20)notnull,

5井号VARCHAR2(20)notnull,

6预算金额NUMBER(IO)notnull,

7预算人VARCHAR2(20)notnull,

8预算日期DATEnotnull,

9开工日期DATE,

10完工日期DATE,

11施工单位VARCHAR2(20),

12施工内容VARCHAR2(20),

13材料费NUMBER(IO),

14人工费NUMBER(IO),

15设备费NUMBER(IO),

16其它费用NUMBER(IO),

17结算金额NUMBER(IO),

18结算人VARCHAR2(20),

19结算日期DATE,

20入账人VARCHAR2(20),

21入账日期DATE,

22入账金额NUMBER

23)

24

表已创建。

SQL>descZYB

名称是否为空？类型

单据号NOTNULLVARCHAR2(20)

预算单位NOTNULLVARCHAR2(20)

井号NOTNULLVARCHAR2(20)

预算金额NOTNULLNUMBER(IO)

预算人NOTNULLVARCHAR2(20)

预算日期NOTNULLDATE

开工日期DATE

完工日期DATE

施工单位VARCHAR2(20)

施工内容VARCHAR2(20)

材料费NUMBER(IO)

人工费NUMBER(IO)

设备费NUMBER(IO)

其它费用NUMBER(IO)

结算金额NUMBER(IO)

结算人VARCHAR2(20)

结算日期DATE

入账人VARCHAR2(20)

入账日期DATE

入账金额NUMBER

SQL>altertableZYB

2modify入账金额number(lO);

表已更改。

SQL>altertableZYB

2addconstraintZY_PM_KEYprimarykey(单据号);

表已更改。

SQL>descDanWDM

名称是否为空？类型

单位代码NOTNULLVARCHAR2(20)

单位名称NOTNULLVARCHAR2(20)

SQL>altertableDanWDM

2addconstraintDW_UN_KEYunique（单位名称）;

表已更改。

SQL>altertableZYB

2addconstraintZY_F_KEY

3foreignkey（预算单位）

4referencesDanWDM（单位名称）；

表已更改。

SQL>altertableZYB

2addconstraintZY_JH_F_KEY

3foreignkey（井号）

4referencesYouSJB（井号）；

表已更改。

SQL>altertableZYB

2addconstraintZY_SGDW_F_KEY

3foreignkey（施工单位）

4referencesShiGDWB（施工单位名称）；

表已更改。

SQL>altertableCaiLFB

2addconstraintCL_XMH_F_KEY

3foreignkey（项目编号）

4referencesZYB（单据号）；

表已更改。

SQL>spooloff;

SQL>descdanWDM

名称是否为空？类型

单位代码NOTNULLVARCHAR2（20）

单位名称NOTNULLVARCHAR2（20）

2.数据插入

SQL>insertintodanwdm

2values（'1122丁采油厂）；

已创建1行。

SQL>insertintodanwdm

2values（'112201','采油一矿,）；

已创建1行。

SQL>insertintodanwdm

2values（'1122O2',‘采油二矿'）；

已创建1行。

SQL>insertintodanwdm

2values（'112201001',fiT1队'）;

已创建1行。

SQL>insertintodanwdm

2valuesCllZZOlOOZ','采油一矿2队,）;

已创建1行。

SQL>insertintodanwdm

2values（U12201003',,采油一矿3队

已创建1行。

SQL>insertintodanwdm

2valuesCllZZOZOOl'，'采油二矿1队）;

已创建1行。

SQL>insertintodanwdm

2values（112202002','采油二矿2队'）;

已创建1行。

SQL>select*fromdanwdm;

单位代码

单位名称

112201

采油一矿

112201001

采油一矿1队

112201002

采油一矿2队

单位代码

单位名称

112201003

采油一矿3队

112202

采油二矿

112202001

采油二矿1队

单位代码

单位名称

112202002

采油二矿2队

1122

采油厂

已选择8行。

SQL>setlinesize80

SQL>select*fromdanwdm;

单位代码

单位名称

112201

采油一矿

112201001

采油一矿1队

112201002

采油一矿2队

单位代码

单位名称

112201003

采油一矿3队

112202

采油二矿

112202001

采油二矿1队

单位代码

单位名称

112202002

采油二矿2队

1122

采油厂

已选择8行。

SQL>descyousjb

名称是否为空？类型

井号NOTNULLVARCHAR2(20)

井别NOTNULLVARCHAR2(20)

单位代码NOTNULLVARCHAR2(20)

SQL>insertintoyousjbvalues

2(

3'yOOl','112201001');

已创建1行。

SQL>insertintoyousjbvalues

2(

3'y002','油'，'112201001');

已创建1行。

SQL>insertintoyousjbvalues

2(

3'y003','油'，'112201002');

已创建1行。

SQL>insertintoyousjbvalues

2(

3'sOOl','ZN.','112201002');

已创建1行。

SQL>insertintoyousjbvalues

2(

3'y004','油'，112201003');

已创建1行。

SQL>insertintoyousjbvalues

2(

3's002','ZK','112202001');

已创建1行。

SQL>insertintoyousjbvalues

2(

3'sOO3','水'，'112202001');

已创建1行。

SQL>insertintoyousjbvalues

2(

3'y005','油'，'112202002');

已创建1行。

SQL>select*fromyousjb;

井号

井别

单位代码

yOOl

油

112201001

y002

油

112201001

井号

井别

单位代码

y003

油

112201002

S001

水

井号

井别

单位代码

112201002

y004

油

112201003

s002

井号

井别

单位代码

水

112202001

S003

水

112202001

井号

井别

单位代码

y005

油

112202002

已选择8行。

SQL>insertintoshigdwbvalues（

2，作业公司作业一队’

3）；

’作业公司作业一队’

*

第2行出现错误：

ORA-12899:列"SYSTEM'1,SHIGDWB"."施工单位名称"的值太大（实际值:24,最大值:

20)

SQL>altertableshigdwb

2modify施工单位名称varchar2(40);

表已更改。

SQL>insertintoshigdwbvalues(

2’作业公司作业一队'

3)；

已创建1行。

SQL>insertintoshigdwbvalues(

2’作业公司作业二队'

3)；

已创建1行。

SQL>insertintoshigdwbvalues(

2，作业公司作业三队’

3)；

已创建1行。

SQL>select*fromshigdwb;

施工单位名称

作业公司作业一队

作业公司作业三队

作业公司作业二队

SQL>deswumb

SP2-0042:未知命令"deswumb"-其余行忽略。

SQL>descwumb

名称是否为空？类型

物码NOTNULLVARCHAR2(20)

名称规格NOTNULLVARCHAR2(20)

计量单位NOTNULLVARCHAR2(20)

SQL>insertintowumbvalues(

2WmOOl'J材料一,/吨i);

已创建1行。

SQL>insertintowumbvalues)

2,wm002'「材料二？米。；

已创建1行。

SQL>insertintowumbvalues(

2'wm003丁材料三,，桶)；

已创建1行。

SQL>insertintowumbvalues(

2,wm004丁材料四子袋i);

已创建1行。

SQL>altertablezyb

2modify施工单位varchar2(40);

表已更改。

SQL>desczyb

名称是否为空？类型

单据号NOTNULLVARCHAR2(20)

预算单位NOTNULLVARCHAR2(20)

井号NOTNULLVARCHAR2(20)

预算金额NOTNULLNUMBER(IO)

预算人NOTNULLVARCHAR2(20)

预算日期NOTNULLDATE

开工日期DATE

完工日期DATE

施工单位VARCHAR2(40)

施工内容VARCHAR2(20)

材料费NUMBER(IO)

人工费NUMBER(IO)

设备费NUMBER(IO)

其它费用NUMBER(IO)

结算金额NUMBER(IO)

结算人VARCHAR2(20)

结算日期DATE

入账人VARCHAR2(20)

入账日期DATE

入账金额NUMBER(IO)

SQL>select*fromzyb

2；

未选定行

SQL>

SQL>insertintowumbvalues)

2'wmOOl',,材料吨,);

insertintowumbvalues(

*

第1行出现错误：

ORA-OOOOl:违反唯一约束条件(SYSTEM.WM_PM_KEY)

SQL>insertintozybvalues(

2'zy2009001,,

3'采油一矿1队,，

4'yOOl',

510000.00,

6'张三

7to_date('2009-5-L'yy-mm-dcT),

8to_date('2009-5-4,,,yy-mm-dd,),

9to_date('2009-5-257yy-mm-dd,),

10,作业公司作业一队

11'堵漏

127000.00,

132500.00,

141000.00,

151400.00,

1611900.00,

17’李四,，

,,,

18to_date(2009-5-26'/yy-mm-dd)/

19'王五)

20to_date(,2009-5-287yy-mm-dd,),

2111900.00

22);

已创建1行。

SQL>insertintozybvalues(

2'zy2009002,,

3'采油一矿2队,，

4'y003',

511000.00,

6'张三'，

7tO-dateCZOOg-S-l'/yy-mm-dd'),

8to_date(,2009-5-4',,yy-mm-dd,),

9to_date('2009-5-23'「yy-mm-dcT),

10,作业公司作业二队)

11'检泵

126000.00,

131500.00,

141000.00,

152400.00,

1610900.00,

17।李四匚

18to_date('2009-5-267yy-mm-dd,),

19'王五)

20to_date('2009-5-28'「yy-mm-dd)

2110900.00

22);

已创建1行。

SQL>insertintozybvalues(

2'zy2009003,,

3'采油一矿2队,，

4'y003',

510500.00,

6'张三，

7to_date('2009-5-l'「yy-mm-dd),

8to_date(,2009-5-6,,'yy-mm-dd,),

9to_date('2009-5-23'「yy-mm-dcT),

10,作业公司作业二队)

11'检泵

126500.00,

132000.00,

14500.00,

151400.00,

1610400.00,

17’李四,，

18to_date(,2009-5-26,/yy-mm-dd,),

19'王五。

20to_date(,2009-5-28',,yy-mm-dd,),

2110400.00

22);

已创建1行。

SQL>insertintozybvalues(

2'zy2009004,,

3'采油二矿1队,，

4's002',

512000.00,

6'张三。

7to_date('2009-5-l?yy-mm-dd)

8to_date(2009-5-4'「yy-mm-dd),

9to_date(,2009-5-24,,,yy-mm-dd,),

10,作业公司作业三队

11,防砂,

126000.00,

132000.00,

141000.00,

151600.00,

1610600.00,

17'李四

18to_date(,2009-5-26,,'yy-mm-dd,),

19'赵六'，

20to_date(,2009-5-28,；yy-mm-dd,),

2110600.00

22);

已创建1行。

SQL>insertintozybvalues(

2'zy2009005'z

3'采油二矿2队,，

4'y005',

512000.00,

6'张三，

7to_date('2009-5-l'「yy-mm-dd),

8to_date('2009-5-4'「yy-mm-dd)

9to_date('2009-5-28'「yy-mm-dcT),

10，作业公司作业三队)

11,防砂,

127000.00,

131000.00,

142000.00,

151300.00,

1611300.00,

17’李四匚

18to_date(,2009-5-28','yy-mm-dd,),

19null,

20null,

21null

22);

已创建1行。

SQL>setlinesize780;

SQL>select*fromzyb;

单据号预算单位井号预算金额预算人

预算11期开工日期完工日期施工单位

施工内容材料费人工费设备费其它费用结算金额结算人

结算日期入账人入账日期入账金额

zy2009001采油一矿1队

yOOl10000张三

01-5月-0904-5月-0925-5月-09作

业公司作业一队

堵漏700025001000

140011900李四

26-5月-09王五28-5月-09

11900

zy2009002采油一矿2队

y00311000张三

01-5月-0904-5月-0923-5月-09作

业公司作业二队

检泵600015001000

240010900李四

26-5月-09王五28-5月-09

10900

zy2009003采油一矿2队

y00310500张三

01-5月-0906-5月-0923-5月-09作

业公司作业二队

检泵65002000500

140010400李四

26-5月-09王五28-5月-09

10400

zy2009004采油二矿1队

s00212000张三

01-5月-0904-5月-0924-5月-09作

业公司作业三队

防砂600020001000

160010600李四

26-5月-09赵六28-5月-09

10600

zy2009005采油二矿2队

yOO512000张三

01-5月-0904-5月-0928-5月-09作

业公司作业三队

防砂700010002000

130011300李四

28-5月-09

SQL>altertablecailfb

2add(材料四number(lO));

表已更改。

SQL>insertintocailfbvalues

2(

32000,

42000,

52000,

6'zy2009001,,

71000

8)；

已创建1行。

SQL>insertintocailfbvalues

2(

32000,

42000,

52000,

6'zy2009002,,

70

8)；

已创建1行。

SQL>insertintocailfbvalues

2(

32000,

42000,

52500,

6'zy2009003,,

70

8)；

已创建1行。

SQL>insertintocailfbvalues

2(

32000,

42000,

50,

6'zy2009004’,

72000

8）；

已创建1行。

SQL>insertintocailfbvalues

2(

32000,

42000,

50,

6'zy2009005,,

73000

8)；

已创建1行。

SQL>select*fromcailfb;

材料一材料二材料三项目编号材料四

200020002000zy2009001

1000

200020002000zy2009002

0

200020002500zy2009003

0

200020000zy2009004

2000

200020000zy2009005

3000

SQL>insertintocailfbvalues

2(

32000,

42000,

50,

6'zy2009005,,

73000

8)；

insertintocailfbvalues

*

第1行出现错误：

ORA-OOOOl:违反唯一约束条件(SYSTEM.CL_PM_KEY)

SQL>insertintocailfbvalues

2(

32000,

42000,

50,

6'zy2009006,,

73000

8)；

insertintocailfbvalues

*

第1行出现错误：

ORA-02291:违反完整约束条件(SYSTEM.CL_XMH_F_KEY)-未找到父项关键字

SQL>spooloff

3.数据查询

SQL>select单据号，材料一,材料二，材料三,材料四，结算日期，预算单位

2fromzyb,cailfb

3where预算单位='采油一矿2队’

4and

5结算日期betweento_date('2009-5-l,,,yy-mm-dd,)andto_date(,2009-5-28',,yy-mm-dd,)

6and单据号=项目编号；

单据号材料一材料二材料三材料四结算日期预算单位

zy2009002200020002000

026-5月-09采油一矿2队

zy2009003200020002500

026-5月-09采油一矿2队

SQL>select预算单位，sum（入账金额）as总预算金额

2fromzyb

3where预算单位='采油一矿2队，

4groupby预算单位；

预算单位总预算金额

采油一矿2队21300

SQL>select预算单位，sum(入账金额)as总预算金额

2fromzyb

3where预算单位=，采油一矿2队，

4and

5结算日期betweento_date(,2009-5-l,,'yy-mm-dd,)andto_date('2009-5-28','yy-mm-dd,)

6groupby预算单位；

预算单位总预算金额

采油一矿2队21300

SQL>select预算单位，sum(入账金额)as总预算金额

2fromzyb

3where预算单位like'采油一矿％，

4and

5结算日期betweento_date(,2009-5-l',,yy-mm-dd,)andto_date(,2009-5-28','yy-mm-dd')

6groupby预算单位；

预算单位总预算金额

采油一矿2队21300

采油一矿1队11900

SQL>select।采油一矿'as预算单位，sum(入账金额)as总预算金额

2fromzyb

3where预算单位like，采油一矿％，

4and

5结算日期betweento_date(,2009-5-l','yy-mm-dd,)andto_date('2009-5-28',,yy-mm-dd,)

6；

预算单位总预算金额

采油一矿33200

SQL>selectdistinct入账人

2fromzyb

3where入账人isnotnull;

入账人

王五

赵六

SQL>select单据号，结算日期，入账日期

2fromzyb

3where结算日期betweento_date(,2009-5-l','yy-mm-dd,)and

to_date('2009-5-28'「yy-mm-dcT)

4and入账日期isnull;

单据号结算日期入账日期

zy200900528-5月-09

SQL>select单据号，入账金额

2fromzyb

3where预算单位=，采油一矿2队,

4orderby入账金额desc;

单据号入账金额

zy200900210900

zy200900310400

SQL>select预算单位，sum(结算金额)

2fromzyb

3where结算日期isnotnull

4groupby预算单位;

预算单位SUM（结算金额）

采油一矿2队21300

采油二矿2队11300

采油一矿1队11900

采油二矿1队10600

SQL>select单据号，材料费

2fromzyb

3where单据号in（

4select项目编号

5from

6cailfb

7where材料三>=2000）;

单据号材料费

zy20090017000

zy20090026000

zy20090036500

SQL>select单据号，施工单位

2fromzyb

3where施工单位二，作业公司作业二队

单据号施工单位

zy2009002作业公司作业二队

zy2009003作业公司作业二队

SQL>select单据号，施工单位

2fromzyb

3where施工单位二,作业公司作业二队，

4union

5select单据号，施工单位

6fromzyb

7where施工单位='作业公司作业一队，;

单据号施工单位

zy2009001作业公司作业一队

zy2009002作业公司作业二队

zy2009003作业公司作业二队

SQL>spooloff

4.数据更新

SQL>spoole:/oracle.txtappend

SQL>updatezyb

2set人工费=人工费+100,结算金额=结算金额+100

3where单据号='zy2009005,;

已更新1行。

SQL>deletefromzyb

2where结算金额isnotnulland入账金额isnull;

deletefromzyb

*

第1行出现错误：

ORA-02292:违反完整约束条件(SYSTEM.CL_XMH_F_KEY)-已找到子记录

SQL>altertablecailfb

2dropconstraintcl_xmh_f_key;

表已更改。

SQL>altertablecailfb

2addconstraintcl_xmh_f_key

3foreignkey(项目编号)

4referenceszyb(单据号)ondeletecascade;

表已更改。

SQL>deletefromzyb

2where结算金额isnotnulland入账金额isnull;

已删除1行。

SQL>createtableclfbjt(

2单据号varchar2(20)notnull,

3物码varchar2(20),

4单价number(lO),

5数量number(lO));

表已创建。

5.事务管理

SQL>altertableclfbjt

2addconstraintcljt_wm_f_keyforeignkey(物码)

3referenceswumb(物码)ondeletecascade;

表已更改。

SQL>altertableclfbjt

2addconstraintclJt_PM_keyprimarykey(单据号，物码);

表已更改。

SQL>altertableclfbjt

2addconstraintcljt_dj_f_keyforeignkey(单据号)

3referenceszyb(单据号)ondeletecascade;

表已更改。

SQL>savepointsi;

保存点已创建。

SQL>begin

2insertintozybvalues(

3'zy2009006,,

4'采油二矿2队,，

5'y005',

610000,

7'张三)

8to_date('2009-07-017yy-mm-dd'),

9to_date('2009-07-04','yy-mm-dcr),

10to_date('2009-07-25','yy-mm-dcT),

11,作业公司作业一队，

12'堵漏

137000,

142500,

151000,

161400,

1711900,

18哮四,，

19to_date(2009-07-26'「yy-mm-dcT),

20।王五。

21to_date(2009-07-28'「yy-mm-dd)

2211900);

23

24insertintoclfbjtvalues('zy2009006',,wm001',200,10);

25

26insertintoclfbjtvalues('zy2009006',,wm002,,200,10);

27

28insertintoclfbjtvalues(,zy2009006',,wm003,,200,10)；

29

30insertintoclfbjtvalues(,zy2009006','wm004,,100,10)；

31commit;

32exception

33whenothersthen

34dbms_output.put_line（'ErrorCode='||TO_CHAR（SQLCODE））;

35dbms_output.put_line（'ErrorMessage='||SQLERRM）;

36rollbacktosavepointsi;

37end;

38/

PL/SQL过程已成功完成。

6.游标

SQL>declare

2row_zybzyb%rowtype;

3cursorzyb_cursoris

4select*fromzyb;

5begin

6

7dbms_output.put（'单据号'）；

8

9dbms_output.put（'预算单位"）；

10dbms_output.put（，井号,）；

11dbms_output.put（'预算金额'）；

12dbms_output.put（'预算人,）；

13dbms_output.putC预算日期,）；

14dbms_output.put（'开工日期'）;

15dbms_output.put（'完工日期'）;

16dbms_output.put（'施工单位"）；

17dbms_output.put（'施工内容'）；

18dbms_output.putC材料费,）；

19dbms_output.put（'人工费,）；

20dbms_output.put（'设备费'）；

21dbms_output.put（'其它费用'）；

22dbms_output.putC结算金额,）；

23dbms_output.put（'结算人'）；

24dbms_output.put（'结算日期'）;

25dbms_output.put（'入账人'）;

26dbms_output.put（'入账日期'）;

27dbms_output.put（'入账金额'）；

28dbms_output.put_line（''）；

29openzyb_cursor;

30fetchzyb_cursorintorow_zyb;

31whilezyb_cursor%foundloop

32dbms_output.put（row_zyb.单据号||''）；

33dbms_output.put（row_zyb.预算单位11''）；

34dbms_output.put（row_zyb.井号11''）;

35dbms_output.put（row_zyb.预算金额11''）；

36dbms_output.put（row_zyb.预算人||''）；

37dbms_output.put（row_zyb.预算日期11,，）；

38dbms_output.put（row_zyb.FFI日期11'，）；

39dbms_output.put（row_zyb.完工日期111）;

40dbms_output.put（row_zyb.施工单位11''）；

41dbms_output.put（row_zyb.施工内容|一）；

42dbms_output.put（row_zyb.材料费11''）；

43dbms_output.put（row_zyb.人工费11''）；

44dbms_output.put（row_zyb.设备费||''）；

45dbms_output.put（row_zyb淇它费用11''）；

46dbms_output.put（row_zyb.结算金额11''）;

47dbms_output.put（row_zyb.结算人11''）；

48dbms_output.put（row_zyb.结算日期11,，）；

49dbms_output.put（row_zyb.入账人11''）；

50dbms_output.put（row_zyb.入账日期||

51dbms_output.put（row_zyb.入账金额11''）；

52dbms_output.put_line（''）;

53fetchzyb_cursorintorow_zyb;

54endloop;

55closezyb_cursor;

56end;

57/

单据号预算单位井号预算金额预算人预算日期开工日期完工日期施工单位施工内容材料费

人工费设备费其它费用结算金额结算人结算日期

入账人入账日期入账金额

zy2009001采油一矿1队yOOl10000张三01-5月-0904-5月-0925-5月-09作业公司作

业一队堵漏700025001000140011900李四26-5月-09王五

28-5月-0911900

zy2009002采油一矿2队y00311000张三01-5月-0904-5月-0923-5月-09作业公司作

业二队检泵600015001000240010900李四26-5月-09王五

28-5月-0910900

zy2009003采油一矿2队y00310500张三01-5月-0906-5月-0923-5月-09作业公司作

业二队检泵65002000500140010400李四26-5月-09王五

28-5月-0910400

zy2009004采油二矿1队s00212000张三01-5月-0904-5月-0924-5月-09作业公司作

业三队防砂600020001000160010600李四26-5月-09赵六

28-5月-0910600

zy2009005采油二矿2队y00512000张三01-5月-0904-5月-0928-5月-09作业公司作

业三队防砂700011002000130011400李四28-5月-09

zy2009006采油二矿2队y00510000张三01-7月-0904-7月-0925-7月-09作业公司作

业一队堵漏700025001000140011900李四26-7月-09王五

28-7月-0911900

7.视图

PL/SQL过程已成功完成。

SQL>createviewcai_zyb

2as

3select*from

4zyb,cailfb

5wherecailfb.项目编号二zyb.单据号；

视图已创建。

SQL>select单据号，材料费，材料一,材料二，材料三,材料四

2fromcai_zyb;

单据号材料费材料一材料二材料三材料四

zy2009001700020002000

20001000

zy2009002600020002000

20000

zy2009003650020002000

25000

zy2009004600020002000

02000

zy2009005700020002000

03000

SQL>altersessionsetnls_date_format='yy-mm-dd';

会话已更改。

8.存储过程

SQL>createorreplaceprocedureproc_l(

2work_noinvarchar2z

3begin_dateindate,

4end_dateindate)is

5begin

6declare

7yu_sumnumber(10):=0;

8jie_sumnumber(10):=0;

9ru_sumnumber(10):=0;

10typemoneyisrecord(