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

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

2、位 VARCHAR(20), 井号 VARCHAR(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), 物

3、码 VARCHAR(20), 消耗数量 BIGINT,单价 FLOAT）;*/*INSERT INTO UNITNO（ 单位代码 , 单位名称 ）VALUES（'1122',' 采油厂 '）;INSERT INTO UNITNO（单位代码 , 单位名称 ）VALUES（'112201',' 采油一矿 '）;采油一矿一队 '); 采油一矿二队 '); 采油一矿三队 '); 采油二矿一队 '); 采油二矿二队 ');INSERT INTO UNITNO（单位代码 , 单位名称 ）VALUES（&

4、#39;112202',' 采油二矿 '）;INSERT INTO UNITNO（单位代码 , 单位名称 ）VALUES（'112201001','INSERT INTO UNITNO（单位代码 , 单位名称 ）VALUES（'112201002','INSERT INTO UNITNO（单位代码 , 单位名称 ）VALUES（'112201003','INSERT INTO UNITNO（单位代码 , 单位名称 ）VALUES（'112202001','INSERT INT

5、O UNITNO（单位代码 , 单位名称 ）VALUES（'112202002','油井 ','112201001'）;油井 ','112201001'）;油井 ','112201002'）;水井 ','112201002'）;油井 ','112201003'）;水井 ','112201001'）;水井 ','112201001'）;油井 ','112201002'）;INSERT

6、 INTO OILWELL（井号,井别,单位代码 ）VALUES（'y001','INSERT INTO OILWELL（井号,井别,单位代码 ）VALUES（'y002','INSERT INTO OILWELL（井号,井别,单位代码 ）VALUES（'y003','INSERT INTO OILWELL（井号,井别,单位代码 ）VALUES（'s001',' INSERT INTO OILWELL（井号,井别,单位代码 ）VALUES（'y004',' INSERT IN

7、TO OILWELL（井号,井别,单位代码 ）VALUES（'s002',' INSERT INTO OILWELL（井号,井别,单位代码 ）VALUES（'s003',' INSERT INTO OILWELL（井号,井别,单位代码 ）VALUES（'y005','INSERT INTO CONSTRUCTIONUNI施T（工单位名称 ）VALUES（' 作业公司作业一队 '）;INSERT INTO CONSTRUCTIONUNI施T（工单位名称 ）VALUES（' 作业公司作业二队 '

8、）;INSERT INTO CONSTRUCTIONUNI施T（工单位名称 ）VALUES（' 作业公司作业三队 '）;INSERT INTO GOODSNO物（码,名称规格 ,计量单位 ）VALUES（'wm001',' 材料一 ',' 吨'）; INSERT INTO GOODSNO物（码,名称规格 ,计量单位 ）VALUES（'wm002',' 材料二 ',' 米'）; INSERT INTO GOODSNO物（码,名称规格 ,计量单位 ）VALUES（'wm003&#

9、39;,' 材料三 ',' 桶'）; INSERT INTO GOODSNO物（码,名称规格 ,计量单位 ）VALUES（'wm004',' 材料四 ',' 袋'）;INSERT INTO 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');INSERT INTO COST(单据号,预算单位 ,井号,预算金额 ,预算人,预算日期 ,开工日期 ,完工日期 , 施工单位 ,施工内容 ,材料费 ,人工费 ,设备费,其他费用 ,结算金额 ,结算人,结算日期 ,入账金额 ,入账 人, 入账日期 )VALUES('ZY2016002','112201002','y003','11000.00','张三','2016-5-1','2016-5-4','2016-5-23',' 作

12、业公司作业二队 ',' 检泵 ','6000.00','1500.00','1000.00','2400.00','10900.00',' 李 四','2016-5-26','10900.00','王五 ','2016-5-28');INSERTI NTO COST(单据号,预算单位,井号,预算金额,预算人,预算日期,开工日期,完工日期 , 施工单位 ,施工内容 ,材料费 ,人工费,设备费,其他费用,结算金额 ,

13、结算人,结算日期,入账金额,入账 人, 入账日期 )VALUES('ZY2016003','112201002','s001','10500.00','张三','2016-5-1','2016-5-6','2016-5-23',' 作业公司作业二队 ',' 调剖 ','6500.00','2000.00','500.00','1400.00','10400.00&#

14、39;,' 李 四','2016-5-26','10400.00','王五 ','2016-5-28');INSERT INTO COST(单据号,预算单位,井号,预算金额,预算人,预算日期,开工日期,完工日期 , 施工单位 ,施工内容 ,材料费 ,人工费,设备费,其他费用,结算金额 ,结算人,结算日期,入账金额,入账 人, 入账日期 )VALUES('ZY2016004','112202001','s002','12000.00','张三&#

15、39;,'2016-5-1','2016-5-4','2016-5-24',' 作业公司作业三队 ',' 解堵 ','6000.00','2000.00','1000.00','1600.00','10600.00',' 李 四','2016-5-26','10600.00','赵六 ','2016-5-28');INSERT INTO COST(单据号,预

16、算单位,井号,预算金额,预算人,预算日期,开工日期,完工日期 , 施工单位 ,施工内容 ,材料费 ,人工费,设备费,其他费用,结算金额 ,结算人,结算日期)VALUES('ZY2016005','112202002','y005','12000.00','张三','2016-5-1','2016-5-4','2016-5-28',' 作业公司作业三队 ',' 防砂 ','7000.00','1000.00'

17、;,'2000.00','1300.00','11300.00',' 李 四','2016-6-1');INSERT INTO MATERIALPRICE单( 据号 ,物码 ,消耗数量 ,单 价)VALUES('ZY2016001','wm001','200','10.00');INSERT INTO MATERIALPRICE单( 据号 ,物码 ,消耗数量 ,单 价)VALUES('ZY2016001','wm002'

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

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

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

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

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

23、据号 ,物码 ,消耗数量 ,单 价)VALUES('ZY2016005','wm002','200','10.00');INSERT INTO MATERIALPRICE单( 据号 ,物码 ,消耗数量 ,单 价)VALUES('ZY2016005','wm004','300','10.00');UPDATE COSTSET 人工费 =人工费 +200.00, 结算金额 =结算金额 +200.00 WHERE单 据号 ='zy2016005'DELETE

24、FROM COSTWHERE入 账金额 IS NULL OR 入账人 IS NULL OR 入账日期 IS NULL;BEGIN TRANUPDATE COSTSET 人工费 =人工费 +200.00, 结算金额 =结算金额 +200.00WHERE单 据号 ='zy2016005'DELETEFROM COSTWHERE入 账金额 IS NULL OR 入账人 IS NULL OR 入账日期 IS NULL;ROLLBACK TRAN实验四CREATE INDEX yDATE ON COST预（ 算日期 ）;CREATE INDEX jDATE ON COST结（ 算日期 ）

25、;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 NULL AND 预算 人 IS NOT NULL;SELECT DISTINCT * FROM COST,UNITNOWHERE 单 位名称 ='采油一矿二

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

27、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 入账人 IS NOT NULL AND 入账 日期 IS NOT NULL;SELECT 预算总额 =SUM（DIS

28、TINCT 预算金额 ）FROM UNITNO,COSTWHERE单 位名称 =' 采油一矿二队 'AND 预算单位 =单位代码 AND 入账日期 >='2016-5-1'AND 入账日期 <='2016-5-28'SELECT 结算总额 =SUM（DISTINCT 结算金额 ）FROM UNITNO,COSTWHERE单 位名称 =' 采油一矿二队 'AND 预算单位 =单位代码 AND 入账日期 >='2016-5-1'AND 入账日期 <='2016-5-28'SELE

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

30、39;2016-5-28'SELECT DISTINCT 入账人FROM COSTWHERE入 账人 IS NOT NULL;SELECT DISTINCT 单据号FROM COSTWHERE结 算日期 >='2016-5-1' AND 结算日期 <='2016-5-28' AND 入账金额 IS NULL AND 结 算金额 IS NOT NULL ;SELECT DISTINCT 单据号 , 入账金额FROM COST,UNITNOWHERE单 位名称 =' 采油一矿二队 'AND 预算单位 =单位代码 ORDER BY入

31、 账金额 DESC;SELECT 单位名称 ,结算金额总和 =SUM（DISTINCT 结算金额 ）, 项目数 =COUNT（DISTINCT结 算 金额）FROM COST,UNITNOWHERE预 算单位 =单位代码GROUP BY单 位名称SELECT distinct 单据号 , 物码,消耗数量 , 单价 FROM MATERIALPRICEWHERE物 码 IN（SELECT 物码FROM GOODSNOWHERE名 称规格 =' 材料三 '）AND 单价 *消耗数量 >=2000;SELECT DISTINCT 单据号FROM COSTWHERE施 工单位 =

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

33、AR（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 单位代码 =预算单位 AND 单位名称 Like 'ROLLB

35、ACK TRAN采油一矿 %'采油一矿 %');DROP 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 数据表 ;ALTER TABLE UNITNOALT

36、ER COLUMN单 位代码 VARCHAR(20) NOT NULL;ALTER TABLE UNITNOADD CONSTRAINT UNI_NUM PRIMARY KE单Y(位代码 );ALTER TABLE OILWELLALTER COLUMN井 号 VARCHAR(20) NOT NULL;ALTER TABLE OILWELLADD CONSTRAINT WELL_NUM PRIMARY KE井Y号( );ALTER TABLE GOODSNOALTER COLUMN物 码 VARCHAR(20) NOT NULL;ALTER TABLE GOODSNOADD CONSTRAIN

37、T GOOD_NUM PRIMARY K物EY码( );ALTER TABLE COSTALTER COLUMN单 据号 VARCHAR(20) NOT NULL;ALTER TABLE COSTADD CONSTRAINT COST_NUM PRIMARY KE单Y(据 号 );ALTER TABLE MATERIALPRICEALTER COLUMN单 据号 VARCHAR(20) NOT NULL;ALTER TABLE MATERIALPRICEALTER COLUMN物 码 VARCHAR(20) NOT NULL;ALTER TABLE MATERIALPRICE ADD PRIM

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

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

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

41、016007','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单( 位名称 );ALTE

43、R TABLE OILWELLALTER COLUMN 单 位代码 VARCHAR(20) NOT NULL;ALTER TABLE OILWELLADD CONSTRAINT OIL_CHECK CHEC井K别( IN(' 油井 ',' 水井 ');ALTER TABLE GOODSNOALTER COLUMN名 称规格 VARCHAR(30) NOT NULL;ALTER TABLE GOODSNO ADD UNIQU名E称( 规格 );ALTER TABLE GOODSNOALTER COLUMN计 量单位 VARCHAR(20) NOT NULL;ALT

44、ER TABLE MATERIALPRICEALTER 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,MATERIALPRICE where COST. 单据号 =MATERIALPRICE单. 据号 ;SE

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

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

47、00, ' 李四' , '07-26-2016' , 11900, ' 王五' , '07-28-2016' ); IF ERR<O>R0BEGINPRINT ' 第一条插入出错 'ROLLBACKENDELSEBEGINPRINT ' 第一条插入成功COMMITTRANSACTIONENDBEGIN TRANSACTIONinsert into MATERIALPRICE values ('zy2016006' , 'wm001' , 200, 10); IF

48、ERR<O>R0BEGINPRINT ' 第二条插入出错 'ROLLBACKENDELSEBEGINPRINT ' 第二条插入成功 'COMMITTRANSACTIONENDBEGIN TRANSACTIONinsert into MATERIALPRICE values ('zy2016006' , 'wm002' , 200, 10); IF ERR<O>R0BEGINPRINT ' 第三条插入出错 'ROLLBACKENDELSEBEGINPRINT ' 第三条插入成功 

49、9;COMMITTRANSACTIONENDBEGIN TRANSACTIONinsert into MATERIALPRICE values ('zy2016006' , 'wm003' , 200, 10); IF ERR<O>R0BEGINPRINT ' 第四条插入出错 'ROLLBACKENDELSEBEGINPRINT ' 第四条插入成功 'COMMITTRANSACTIONENDBEGIN TRANSACTION insert into MATERIALPRICE values ('zy201600

50、6' , 'wm004' , 100, 10); IF ERR<O>R0BEGINPRINT ' 第五条插入出错 'ROLLBACKENDELSEBEGINPRINT ' 第五条插入成功 ' COMMITTRANSACTIONENDBEGIN TRANSACTIONDECLAR ECOST_CURS CROLLCURSORFOR SELECT*FROM COST;OPEN COST_CU;RDECLAR E单据号 VARCHA(R20) DECLAR E预算单位 VARCHA(R20) DECLAR E井号 VARCHA(R2

51、0) DECLAR E预算金额 FLOAT DECLAR E预算人 VARCHA(R20) DECLAR E预算日期 DATE DECLAR E开工日期 DATE DECLAR E完工日期 DATE DECLAR E施工单位 VARCHA(R30) DECLAR E施工内容 VARCHA(R50) DECLAR E材料费 FLOAT DECLAR E人工费 FLOAT DECLAR E设备费 FLOAT DECLAR E其他费用 FLOAT DECLAR E结算金额 FLOAT DECLAR E结算人 VARCHA(R20) DECLAR E结算日期 DATE DECLAR E入账金额 FLO

52、AT DECLAR E入账人 VARCHA(R20) DECLAR E入账日期 DATEPRINT '单据号 ' +'预算单位 ' +'井号 ' +'预算金额 ' +'预算人'+' 预算日期'+' 开工日期 ' +' 完工日期 '+' 施工单位 ' +'施工内容 ' +'材料费 '+' 人工费 ' +' 设备费 ' +' 其它费用 ' +' 结算金额 ' +

53、' 结算人 ' +' 结算日期 ' +' 入账金额 +' 入账人 ' +' 入账日期 'FETCHFIRST FROM COST_CRUINTO 单据号, 预算单位 , 井号, 预算金额 ,预算人 , 预算日期 ,开工日期 , 完工日期 , 施工单位 , 施工内容 , 材料费 ,人工费 ,设备费 , 其他费用 , 结算金额 , 结算人 , 结算日期 , 入账金额 , 入账人 , 入账日期WHILE( FETCH_STA=T0U)SBEGINPRINT +单据号 +预算单位 +井号 +预算金额 +' ' +预

54、算人 +' ' +预算日期 +'' +开工日期 +' ' +完工日期 +' ' +施工单位 +' ' +施工内容 +材料费 +人工费 +设备费+其他费用 +结算金额 +' '+结算人 +' ' +结算日期 +入账金额 +' ' +入账人 +入账日期FETCH NEXT FROM COST_CRUINTO单据号 , 预算单位 , 井号, 预算金额 ,预算人 , 预算日期 ,开工日期 , 完工日期 , 施工单位 , 施工内容 , 材料费 ,人工费 ,设备费 , 其他费用

55、, 结算金额 , 结算人 , 结算日期 , 入账金额 , 入账人 , 入账日期ENDif OBJECT_ID( 'YUNXING_SITU', 'p' ) is not nulldrop procedure YUNXING_SITU;goCREATEPROCEDUR YEUNXING_SITUDANWEIDAIMAV ARCHA(R30), STARTTIMED ATE, ENDTIMED ATEASDECLAR EDANWEIMINGV ARCHA(R30);DECLAR EYSMONEmY oney, JSMONEmYo ney, RZMONEmYo ney

56、, NOJSMONEmYo ney, NORUZHANGMOmNEonYe y;SELECT DANWEIMIN=G' 单位名称 'FROM UNITNOWHER EDANWEIDAIM=A' 单位代码 'SETYSMONE=Y（ SELECTSUM（ 预算金额 ）FROM COSTWHERE预算单位 LIKE DANWEIDAIM+A'%' AND预算日期 BETWEE NSTARTTIMEA ND ENDTIMEa nd 预算金额 is not null）SETJSMONE=Y（ SELECTSUM（结算金额 ）FROM COST WHERE

57、预算单位 LIKE DANWEIDAIM+'A%' AND结算日期 BETWEE NSTARTTIMEA ND ENDTIMEa nd 结算金额 is not null)SETRZMONE=Y( SELECTSUM( 入账金额 )FROM COST WHERE预算单位 LIKE DANWEIDAIM+'A%' AND 入账日期 BETWEE NSTARTTIMEA ND ENDTIMEA ND 入账人 IS NOT NULL)SETNOJSMON=E(YSELECTSUM( 预算金额 )FROM COST WHERE预算日期 BETWEE N STARTTIME

58、A ND ENDTIMEA ND 结算金额 IS NULL)SETNORUZHANGMO=N(ESYELECTSUM( 结算金额 )FROM COST WHERE结算日期 BETWEEN STARTTIMEA ND ENDTIMEA ND 入账人 IS NULL)IF YSMONEYIS NULL SET YSMONE=0YIF JSMONEYIS NULL SET JSMONE=Y0IF RZMONEYIS NULL SET RZMONE=0YIF NOJSMONEIYS NULL SET NOJSMON=E0YIF NORUZHANGMONISEYN ULL SET NORUZHANGMO

59、=N0E YSET NOJSMON=EY YSMON-EYJSMONEYSET NORUZHANGMO=NEJYSMON-EY RZMONEY/*DECLARE RESULT VARCHAR(100)SET RESULT=CONVERT(VARCHAR,YSMONEY)+' '+CONVERT(VARCHAR,JSMONEY)+' '+CONVERT(VARCHAR,RZMONEY)+' '+CONVERT(VARCHAR,NOJSMONEY)+' '+CONVERT(VARCHAR,NORUZHANGMONEY)PRINT DA

60、NWEIMING单+'位'+CONVERT(VARCHAR,STARTTIME,102)+'-'+CONVERT(VARCHAR,ENDTIME,10成2)本+'运行 情况'PRINT ' 预算金额 结算金额 入账金额 未结算金额 未入账金额 'PRINT RESULT*/printDANWEIMIN+cGonvert ( varchar , STARTTIM,E102)+ '-' +convert ( varchar , ENDTIM, E102)+ ' 成本运营情况 ' print '

61、预算金额结算金额入账金额未结算金额未入账金额 'print convert ( varchar , YSMON)E+Y' ' +convert ( varchar , JSMONE)+Y'' +convert ( varchar , RZMON)EY+' ' +convert ( varchar , NOJSMON)+EY'' +convert ( varchar , NORUZHANGMO);NEY GOEXECUT EYUNXING_SITU DANWEIDAIM='1A122' , STARTTIM=

62、E'2016-5-1' , ENDTIM=E'2016-5-29' ;EXECUT EYUNXING_SITUDANWEIDAIM='1A12201' , STARTTIM=E'2016-5-1' , ENDTIM=E'2016-5-29' ; EXECUT EYUNXING_SITUDANWEIDAIM='1A12201001' , STARTTIM=E'2016-5-1' , ENDTIM=E'2016-5-29'GO> SQLQueryl.sql WIND

63、OWS-G5BD088.zyxt1 fWINDOWS-G5BD088MyPC (54)* Microsof.-丈件IF) «B；t) WH(V)J58(P) 耐lD)工fiO(W)巨 JJ2 d J 匹UjtCddil A 心 4 T "V 丑© E? W500 «(D) v 二:C O 二三辛李s WINDOWS G!* auras z u环畑 土 丄 SdEffy 刁(J Rcpcrt； Z | j Report?m (j zyxti t Cj散芬 口尹ffi lJ 3 Q CJ F B cFK1N1FKD1I print printHF TintG

64、O3RESUL7 /切AffVETKniG .0 v- I. vat char. STARTTIKE. *.02：(/ -' n v- I Aratchai SEKD7DG. 10 '形浄金顼结肖金更入处255卞结算主额牛入全额convert (varchsr <5YSM>NEY|* ccwert varchr OJSHCJJET)* Convert (y-convert fvarcbar- aBi)JSHOHEY：'+rr -convert (varchsr. (SNORUxHAJKXiNEY：:BEXECUre EXECU rE EXECUTE®

65、;4JWTTTiAIKA 1122 ®S7AR"?ITG- 2016->T jJEIEiTIME2C1 £-5-29*YUirXIJK.SITOYunxi»j_snu AnWELDALIU *lL22Cr ®S7AKITUlr * 201 -b-r . ® 1ILIJJtt 2C1 b-b-2 YinrXIJK SITO W.4JWTmr#A- H22C10Dr fiGTARTTIME-OlC 5-r WMrWE-'2O16-H/<REAIH DIGGER TL OX COST AFTER INSERT AS DECLARE GVLCD% - <池两中三存在启艾Y1帧乔-SEFTP