(完整版)石油大学(华东)数据库原理实验答案(sql语句)

1、实验三/*CREATE TABLE UNITNO(单位代码VARCHAR(20),单位名称VARCHAR(30);CREATE TABLE OILWELL(井号 VARCHAR(20),井别 VARCHAR(20),单位代码VARCHAR(20),);CREATE TABLE CONSTRUCTIONUNIT(施工单位名称VARCHAR(30);CREATE TABLE GOODSNO(物码 VARCHAR(20),名称规格VARCHAR(30),计量单位VARCHAR(20);CREATE TABLE COST(单据号 VARCHAR(20),预算单位VARCHAR(20),井号 VARCH

2、AR(20),预算金额FLOAT,预算人 VARCHAR(20),预算日期DATE,开工日期DATE,完工日期DATE,施工单位VARCHAR(30),施工内容VARCHAR(50),材料费 FLOAT,人工费 FLOAT,设备费 FLOAT,其他费用FLOAT,结算金额FLOAT,结算人 VARCHAR(20),结算日期DATE,入账金额FLOAT,入账人 VARCHAR(20),入账日期DATE);CREATE TABLE MATERIALPRICE(单据号 VARCHAR(20),物码 VARCHAR(20),消耗数量 BIGINT,单价 FLOAT);*/*INSERT INTO UN

3、ITNO( 单位代码 , 单位名称 )VALUES('1122',' 采油厂 '); INSERT INTO UNITNO(单位代码 , 单位名称 )VALUES('112201',' 采油一矿 '); INSERT INTO UNITNO(单位代码 , 单位名称 )VALUES('112202',' 采油二矿 '); INSERT INTO UNITNO(单位代码 , 单位名称 )VALUES('112201001',' 采油一矿一队 '); INSERT INTO

4、 UNITNO(单位代码 , 单位名称 )VALUES('112201002',' 采油一矿二队 '); INSERT INTO UNITNO(单位代码 , 单位名称 )VALUES('112201003',' 采油一矿三队 '); INSERT INTO UNITNO(单位代码 , 单位名称 )VALUES('112202001',' 采油二矿一队 '); INSERT INTO UNITNO(单位代码 , 单位名称 )VALUES('112202002',' 采油二矿二队

5、 ');INSERT INTO OILWELL(井号 , 井别 , 单位代码 )VALUES('y001','油井 ','112201001');INSERT INTO OILWELL(井号 , 井别 , 单位代码 )VALUES('y002','油井 ','112201001');INSERT INTO OILWELL(井号 , 井别 , 单位代码 )VALUES('y003','油井 ','112201002');INSERT INTO O

6、ILWELL(井号 , 井别 , 单位代码 )VALUES('s001','水井 ','112201002');INSERT INTO OILWELL(井号 , 井别 , 单位代码 )VALUES('y004','油井 ','112201003');INSERT INTO OILWELL(井号 , 井别 , 单位代码 )VALUES('s002','水井 ','112201001');INSERT INTO OILWELL(井号 , 井别 , 单位代码

7、 )VALUES('s003','水井 ','112201001');INSERT INTO OILWELL(井号 , 井别 , 单位代码 )VALUES('y005','油井 ','112201002');INSERT INTO CONSTRUCTIONUNIT(施工单位名称INSERT INTO CONSTRUCTIONUNIT(施工单位名称INSERT INTO CONSTRUCTIONUNIT(施工单位名称)VALUES(' 作业公司作业一队 '); )VALUES('

8、; 作业公司作业二队 '); )VALUES(' 作业公司作业三队 ');INSERT INTO GOODSNO(物码 , 名称规格 , 计量单位 )VALUES('wm001','材料一 ','吨 ');INSERT INTO GOODSNO(物码 , 名称规格 , 计量单位 )VALUES('wm002','材料二 ','米 ');INSERT INTO GOODSNO(物码 , 名称规格 , 计量单位 )VALUES('wm003','材料三 &

9、#39;,'桶 ');INSERT INTO GOODSNO(物码 , 名称规格 , 计量单位 )VALUES('wm004','材料四 ','袋 ');INSERTINTO COST(单据号 , 预算单位 , 井号 , 预算金额 , 预算人 , 预算日期 , 开工日期 , 完工日期 , 施工单位 , 施工内容 , 材料费 ,人工费 , 设备费 , 其他费用 , 结算金额 , 结算人 , 结算日期 , 入账金额 , 入账人, 入账日期 )VALUES('ZY2016001','112201001',

10、'y001','10000.00','张三','2016-5-1','2016-5-4','2016-5-25','作业公司作业一队','堵漏 ','7000.00','2500.00','1000.00','1400.00','11900.00','李四','2016-5-26','11900.00','王五 ','

11、2016-5-28');INSERTINTO COST(单据号 , 预算单位 , 井号 , 预算金额 , 预算人 , 预算日期 , 开工日期 , 完工日期 ,施工单位 , 施工内容 , 材料费 ,人工费 , 设备费 , 其他费用 , 结算金额 , 结算人 , 结算日期 , 入账金额 , 入账人, 入账日期 )VALUES('ZY2016002','112201002','y003','11000.00','张三','2016-5-1','2016-5-4','2016

12、-5-23','作业公司作业二队','检泵 ','6000.00','1500.00','1000.00','2400.00','10900.00','李四','2016-5-26','10900.00','王五 ','2016-5-28');INSERTINTO COST(单据号 , 预算单位 , 井号 , 预算金额 , 预算人 , 预算日期 , 开工日期 , 完工日期 ,施工单位 , 施工内容

13、 , 材料费 ,人工费 , 设备费 , 其他费用 , 结算金额 , 结算人 , 结算日期 , 入账金额 , 入账人, 入账日期 )VALUES('ZY2016003','112201002','s001','10500.00','张三','2016-5-1','2016-5-6','2016-5-23','作业公司作业二队','调剖 ','6500.00','2000.00','500.00

14、9;,'1400.00','10400.00','李四','2016-5-26','10400.00','王五 ','2016-5-28');INSERTINTO COST(单据号 , 预算单位 , 井号 , 预算金额 , 预算人 , 预算日期 , 开工日期 , 完工日期 ,施工单位 , 施工内容 , 材料费 ,人工费 , 设备费 , 其他费用 , 结算金额 , 结算人 , 结算日期 , 入账金额 , 入账人, 入账日期 )VALUES('ZY2016004',

15、9;112202001','s002','12000.00','张三','2016-5-1','2016-5-4','2016-5-24','作业公司作业三队','解堵 ','6000.00','2000.00','1000.00','1600.00','10600.00','李四','2016-5-26','10600.00',&#

16、39;赵六 ','2016-5-28');INSERTINTO COST(单据号 , 预算单位 , 井号 , 预算金额 , 预算人 , 预算日期 , 开工日期 , 完工日期 ,施工单位 , 施工内容 , 材料费 ,人工费 , 设备费 , 其他费用 , 结算金额 , 结算人 , 结算日期)VALUES('ZY2016005','112202002','y005','12000.00','张三','2016-5-1','2016-5-4','2016-5-

17、28','作业公司作业三队','防砂 ','7000.00','1000.00','2000.00','1300.00','11300.00','李四 ','2016-6-1');INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016001','wm001','200','10.00');INSERT INTO M

18、ATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016001','wm002','200','10.00');INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016001','wm003','200','10.00');INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016001

19、9;,'wm004','100','10.00');INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016002','wm001','200','10.00');INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016002','wm002','200','10.00');INSERT I

20、NTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016002','wm003','200','10.00');INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016003','wm001','200','10.00');INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY20160

21、03','wm002','200','10.00');INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016003','wm003','250','10.00');INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016004','wm001','200','10.00');INS

22、ERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016004','wm002','200','10.00');INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016004','wm004','200','10.00');INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY

23、2016005','wm001','200','10.00');INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016005','wm002','200','10.00');INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('ZY2016005','wm004','300','10.00'

24、);UPDATE COSTSET 人工费 =人工费 +200.00, 结算金额 =结算金额 +200.00 WHERE单据号 ='zy2016005'DELETEFROM COSTWHERE入账金额 IS NULL OR入账人 IS NULL OR入账日期 IS NULL;BEGIN TRANUPDATE COSTSET 人工费 =人工费 +200.00, 结算金额 =结算金额 +200.00 WHERE单据号 ='zy2016005'DELETEFROM COSTWHERE入账金额 IS NULL OR入账人 IS NULL OR入账日期 IS NULL;RO

25、LLBACK TRAN实验四CREATE INDEX yDATE ON COST(预算日期 );CREATE INDEX jDATE ON COST(结算日期 );CREATE INDEX rDATE ON COST(入账日期 );SELECT DISTINCT * FROM COST,UNITNOWHERE 单位名称 =' 采油一矿二队 'AND 预算单位 =单位代码 AND 入账日期 >='2016-5-1'AND 入账日期 <='2016-5-28' AND 预算金额 IS NOT NULL AND 预算日期 IS NOT NU

26、LL AND 预算人 IS NOT NULL;SELECT DISTINCT * FROM COST,UNITNOWHERE 单位名称 =' 采油一矿二队'AND 预算单位 =单位代码AND 入账日期 >='2016-5-1'AND入账日期 <='2016-5-28' AND日期 IS NOT NULL;结算金额IS NOT NULL AND结算人IS NOT NULL AND结算SELECT DISTINCT MATERIALPRICE单.据号 , 物码 , 消耗数量 FROM COST,MATERIALPRICE,UNITNO,

27、单价WHERE单位名称='采油一矿二队'AND预算单位=单位代码AND入账日期>='2016-5-1'AND入账日期 <='2016-5-28'AND MATERIALPRICE. 单据号 =COST.单据号 ;SELECT DISTINCT * FROM COST,UNITNOWHERE 单位名称 =' 采油一矿二队'AND 预算单位 =单位代码AND 入账日期 >='2016-5-1'AND入账日期 <='2016-5-28' AND入账金额IS NOT NULL AND

28、入账人 IS NOT NULL AND 入账日期 IS NOT NULL;SELECT 预算总额 =SUM(DISTINCT 预算金额 )FROM UNITNO,COSTWHERE单位名称 =' 采油一矿二队 'AND 预算单位 =单位代码 AND 入账日期 >='2016-5-1'AND 入账日期 <='2016-5-28'SELECT 结算总额 =SUM(DISTINCT 结算金额 )FROM UNITNO,COSTWHERE单位名称 =' 采油一矿二队 'AND 预算单位 =单位代码 AND 入账日期 >=

29、'2016-5-1'AND 入账日期 <='2016-5-28'SELECT 入账总额 =SUM(DISTINCT 入账金额 )FROM UNITNO,COSTWHERE单位名称 =' 采油一矿二队 'AND 预算单位 =单位代码 AND 入账日期 >='2016-5-1'AND 入账日期 <='2016-5-28'SELECT 一矿入账总额 =SUM(DISTINCT 入账金额 )FROM UNITNO,COSTWHERE单位名称 LIKE '采油一矿 %'AND 预算单位 =单

30、位代码 AND 入账日期>='2016-5-1'AND 入账日期 <='2016-5-28'SELECT DISTINCT 入账人FROM COSTWHERE入账人 IS NOT NULL;SELECT DISTINCT FROM COST单据号WHERE结算日期 >='2016-5-1' AND算金额 IS NOT NULL ;结算日期<='2016-5-28' AND入账金额 ISNULL AND 结SELECT DISTINCT 单据号 , 入账金额FROM COST,UNITNOWHERE单位名称

31、=' 采油一矿二队 'AND 预算单位 =单位代码ORDER BY入账金额DESC;SELECT 单位名称 , 结算金额总和=SUM(DISTINCT 结算金额 ), 项目数 =COUNT(DISTINCT结算金额 )FROM COST,UNITNOWHERE预算单位 =单位代码GROUP BY单位名称 ;SELECT distinct单据号 , 物码 , 消耗数量 , 单价FROM MATERIALPRICEWHERE物码 IN(SELECT物码FROM GOODSNOWHERE名称规格 =' 材料三 ')AND 单价 *消耗数量 >=2000;SELE

32、CT DISTINCT 单据号FROM COSTWHERE施工单位 =' 作业公司作业二队'SELECT 单据号 , 施工单位FROM COSTWHERE施工单位 =' 作业公司作业二队'UNIONSELECT 单据号 , 施工单位FROM COSTWHERE施工单位 =' 作业公司作业一队'SELECT DISTINCT 施工单位FROM COST,OILWELL,UNITNOWHERE预算单位 =UNITNO.单位代码AND UNITNO.单位代码 =OILWELL.单位代码 AND 单位名称 LIKE ' 采油一矿 %'CR

33、EATE TABLE数据表 ( 施工单位 VARCHAR(30),年月 VARCHAR(20),结算金额 FLOAT);INSERT INTO 数据表 ( 施工单位 , 年月 , 结算金额 )(SELECT 施工单位 ,YEAR(结算日期 )*100+MONTH(结算日期 ),SUM( 结算金额 )FROM COSTGROUP BY 施工单位 ,YEAR(结算日期 )*100+MONTH(结算日期 );UPDATE COSTSET 结算人 =' 李兵 'WHERE预算单位IN(SELECT单位代码FROM UNITNOWHERE 单位代码 =预算单位 AND 单位名称 Like

34、 ' 采油一矿 %' );DELETEFROM COSTWHERE预算单位 IN(SELECT 单位代码FROM UNITNOWHERE单位代码 =预算单位 AND 单位名称Like '采油一矿 %');BEGIN TRANUPDATE COSTSET 结算人 =' 李兵 'WHERE预算单位IN(SELECT单位代码FROM UNITNOWHERE 单位代码 =预算单位AND 单位名称Like '采油一矿 %');DELETEFROM COSTWHERE预算单位 IN(SELECT 单位代码FROM UNITNOWHERE 单位

35、代码 =预算单位AND 单位名称 Like '采油一矿 %');ROLLBACK TRANDROP INDEX yDATE ON COST;DROP INDEX jDATE ON COST;DROP INDEX rDATE ON COST;实验五ALTER TABLE 数据表 ADD 备注 CHAR;SELECT *FROM 数据表 ;ALTER TABLE 数据表ALTER COLUMN施工单位 VARCHAR(30) NOT NULL;ALTER TABLE 数据表 ADD PRIMARY KEY(施工单位 );DELETEFROM 数据表 ;DROP TABLE 数据表

36、;ALTER TABLE UNITNOALTER COLUMN单位代码VARCHAR(20) NOT NULL;ALTER TABLE UNITNOADD CONSTRAINT UNI_NUM PRIMARY KEY(单位代码 );ALTER TABLE OILWELLALTER COLUMN井号 VARCHAR(20) NOT NULL;ALTER TABLE OILWELLADD CONSTRAINT WELL_NUM PRIMARY KEY(井号 );ALTER TABLE GOODSNOALTER COLUMN物码 VARCHAR(20) NOT NULL;ALTER TABLE GO

37、ODSNOADD CONSTRAINT GOOD_NUM PRIMARY KEY(物码 );ALTER TABLE COSTALTER COLUMN单据号 VARCHAR(20) NOT NULL;ALTER TABLE COSTADD CONSTRAINT COST_NUM PRIMARY KEY(单据号 );ALTER TABLE MATERIALPRICEALTER COLUMN单据号 VARCHAR(20) NOT NULL;ALTER TABLE MATERIALPRICEALTER COLUMN物码 VARCHAR(20) NOT NULL;ALTER TABLE MATERIAL

38、PRICE ADD PRIMARY KEY(单据号 , 物码 );ALTER TABLE CONSTRUCTIONUNITALTER COLUMN施工单位名称VARCHAR(30) NOT NULL;ALTER TABLE CONSTRUCTIONUNITADD CONSTRAINT UNI_NAME PRIMARY KEY(施工单位名称 );INSERT INTO MATERIALPRICE VALUES('zy2016001','wm004',100,10);INSERT INTO MATERIALPRICE VALUES('zy2016002

39、9;,NULL,200,10);ALTER TABLE OILWELLALTER COLUMN单位代码 VARCHAR(20) NOT NULL;ALTER TABLE OILWELLADD CONSTRAINT UNI_NUM2 FOREIGN KEY(单位代码 ) REFERENCES UNITNO(单位代码 );ALTER TABLE COSTALTER COLUMN井号 VARCHAR(20) NOT NULL;ALTER TABLE COSTADD CONSTRAINT WELL_NUM2 FOREIGN KEY(井号 ) REFERENCES OILWELL(井号 );ALTER

40、TABLE MATERIALPRICEALTER COLUMN物码 VARCHAR(20) NOT NULL;ALTER TABLE MATERIALPRICEADD CONSTRAINT GOOD_NUM2 FOREIGN KEY(物码 ) REFERENCES GOODSNO(物码 );INSERT INTO OILWELL( 井号 , 井别 , 单位代码 )VALUES('y007',' 油井 ','112203002'); INSERT INTO MATERIALPRICE(单据号 , 物码 , 消耗数量 , 单价)VALUES('

41、;zy2016007','wm006','100','10.00');UPDATE COSTSET 施工单位 =' 作业公司作业五队'WHERE单据号 ='ZY2016001'DELETEFROM UNITNOWHERE单位名称 =' 采油二矿二队' AND 单位代码 ='112202002'UPDATE GOODSNOSET 物码 ='wm04'WHERE物码 ='wm004'BEGIN TRANUPDATE COSTSET 施工单位 =&#

42、39; 作业公司作业五队'WHERE单据号 ='ZY2016001'DELETEFROM UNITNOWHERE单位名称 =' 采油二矿二队' AND 单位代码 ='112202002'UPDATE GOODSNOSET 物码 ='wm04'WHERE物码 ='wm004'ROLLBACK TRANALTER TABLE UNITNOALTER COLUMN单位名称VARCHAR(30) NOT NULL;ALTER TABLE UNITNO ADD UNIQUE(单位名称 );ALTER TABLE OI

43、LWELLALTER COLUMN单位代码VARCHAR(20) NOT NULL;ALTER TABLE OILWELLADD CONSTRAINT OIL_CHECK CHECK(井别 IN('油井 ','水井 ');ALTER TABLE GOODSNOALTER COLUMN名称规格 VARCHAR(30) NOT NULL;ALTER TABLE GOODSNO ADD UNIQUE(名称规格 );ALTER TABLE GOODSNOALTER COLUMN计量单位 VARCHAR(20) NOT NULL;ALTER TABLE MATERIALP

44、RICEALTER COLUMN消耗数量 BIGINT NOT NULL;ALTER TABLE MATERIALPRICEALTER COLUMN单价 FLOAT NOT NULL;ALTER TABLE COSTALTER COLUMN预算人 VARCHAR(20) NOT NULL;BEGIN TRANSACTIONGOCREATE VIEW COST_PRICEASSELECT COST.*,物码 , 消耗数量 , 单价FROM COST,MATERIALPRICEwhere COST. 单据号 =MATERIALPRICE单.据号 ;SELECT 单据号 , 物码FROM COST_

45、PRICEWHERE物码 ='wm002'SELECT 单据号 , 单价FROM COST_PRICEWHERE单据号 ='ZY2016001'and物码 ='wm001'GOCREATE VIEW YUSUANASSELECT 单据号 , 预算单位 , 井号 , 预算金额 , 预算人 , 预算日期FROM COST;INSERTINTO YUSUANVALUES('zy2016008','112202002','y005',10000,'张三 ', '2016-07-02&

46、#39;);ROLLBACK */实验六BEGIN TRANSACTIONINSERT INTO COST VALUES( 'zy2016006', '112202002', 'y005', 10000, ' 张三 ' ,'07-01-2016', '07-04-2016', '07-25-2016', ' 作业公司作业一队' , ' 堵漏' , 7000, 2500, 1000, 1400, 11900, ' 李四 ' , '

47、07-26-2016', 11900, ' 王五 ' , '07-28-2016');IFERROR<>0BEGINPRINT ' 第一条插入出错'ROLLBACKENDELSEBEGINPRINT ' 第一条插入成功'COMMITTRANSACTIONENDBEGIN TRANSACTIONinsert into MATERIALPRICE values ( 'zy2016006' , 'wm001' , 200, 10); IF ERROR<>0BEGINPRIN

48、T ' 第二条插入出错'ROLLBACKENDELSEBEGINPRINT ' 第二条插入成功'COMMITTRANSACTIONENDBEGIN TRANSACTIONinsertintoMATERIALPRICE values ( 'zy2016006', 'wm002' , 200, 10);IFERROR<>0BEGINPRINT ' 第三条插入出错'ROLLBACKENDELSEBEGINPRINT ' 第三条插入成功'COMMITTRANSACTIONENDBEGIN TRA

49、NSACTIONinsert into MATERIALPRICE values ( 'zy2016006' , 'wm003' , 200, 10); IF ERROR<>0BEGINPRINT ' 第四条插入出错'ROLLBACKENDELSEBEGINPRINT ' 第四条插入成功'COMMITTRANSACTIONENDBEGIN TRANSACTIONinsertintoMATERIALPRICE values ( 'zy2016006', 'wm004' , 100, 10)

50、;IFERROR<>0BEGINPRINT ' 第五条插入出错'ROLLBACKENDELSEBEGINPRINT ' 第五条插入成功'COMMITTRANSACTIONENDBEGIN TRANSACTIONDECLARECOST_CURSCROLLCURSORFOR SELECT*FROMCOST;OPENCOST_CUR;DECLARE单据号 VARCHAR(20)DECLARE预算单位VARCHAR( 20)DECLARE井号 VARCHAR( 20)DECLARE预算金额FLOATDECLARE预算人 VARCHAR(20)DECLARE预

51、算日期DATEDECLARE开工日期DATEDECLARE完工日期DATEDECLARE施工单位VARCHAR( 30)DECLARE施工内容VARCHAR( 50)DECLARE材料费 FLOATDECLARE人工费 FLOATDECLARE设备费 FLOATDECLARE其他费用FLOATDECLARE结算金额FLOATDECLARE结算人 VARCHAR(20)DECLARE结算日期DATEDECLARE入账金额FLOATDECLARE入账人 VARCHAR(20)DECLARE入账日期DATEPRINT ' 单据号 ' +' 预算单位 '+'井号

52、 ' +' 预算金额 ' +' 预算人 ' +'预算日期 '+'开工日期 '+'完工日期 ' +'施工单位 '+' 施工内容 ' +' 材料费 ' +'人工费 '+'设备费 ' +'其它费用 '+'结算金额 ' +'结算人 ' +' 结算日期 '+'入账金额 '+'入账人 ' +'入账日期 'FETCHFIRST FR

53、OMCOST_CRUINTO 单据号 , 预算单位 , 井号 , 预算金额 , 预算人 , 预算日期 , 开工日期 , 完工日期 , 施工单位 , 施工内容 , 材料费 , 人工费 ,设备费 , 其他费用 , 结算金额 , 结算人 , 结算日期 , 入账金额 , 入账人 , 入账日期WHILE( FETCH_STATUS=0)BEGINPRINT +单据号 +预算单位+井号+预算金额+''+预算人 +' '+预算日期+'' +开工日期 +' ' +完工日期 +' ' +施工单位 +' ' +施工内容

54、 +材料费 +人工费+设备费+其他费用+结算金额人 +入账日期+''+结算人+' '+结算日期+入账金额+''+入账FETCHNEXT FROMCOST_CRUINTO单据号 , 预算单位 , 井号 , 预算金额 , 预算人 , 预算日期 ,开工日期 , 完工日期 , 施工单位 , 施工内容 , 材料费 , 人工费 ,设备费 , 其他费用 , 结算金额 , 结算人 , 结算日期 , 入账金额 , 入账人 , 入账日期END;ifOBJECT_ID( 'YUNXING_SITU', 'p') isnotnulldro

55、pprocedureYUNXING_SITU;goCREATEPROCEDUREYUNXING_SITUDANWEIDAIMAVARCHAR( 30), STARTTIMEDATE, ENDTIMEDATE ASDECLAREDANWEIMINGVARCHAR( 30);DECLAREYSMONEYmoney, JSMONEYmoney, RZMONEYmoney, NOJSMONEYmoney, NORUZHANGMONEYmoney;SELECTDANWEIMING=' 单位名称 'FROMUNITNOWHEREDANWEIDAIMA=' 单位代码 'SET

56、YSMONEY=( SELECTSUM( 预算金额 )FROMCOSTWHERE预算单位LIKE DANWEIDAIMA+'%'AND预算日期BETWEENSTARTTIMEANDENDTIMEand 预算金额isnotnull)SETJSMONEY=( SELECTSUM( 结算金额 ) FROMCOST WHERE预算单位LIKE DANWEIDAIMA+'%' AND结算日期BETWEENSTARTTIMEANDENDTIMEand 结算金额isnotnull)SETRZMONEY=( SELECTSUM( 入账金额 ) FROMCOST WHERE预算单位 LIKE DANWEIDAIMA+'%' AND 入账日期 BETWEENSTARTTIMEANDENDTIMEAND 入账人 IS NOT NULL)SETNOJSMONEY=( SELECTSUM( 预算金额 ) FROMCOST WHERE预算日期 BETWEENSTARTTIMEAND ENDTIMEAN