石油大學(xué)(華東)數(shù)據(jù)庫原理實驗答案(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), 名稱規(guī)格 VARCHAR(30), 計量單位 VARCHAR(20) );CREATE TABLE COST單( 據(jù)號 VARCHAR(20), 預(yù)算單

2、位 VARCHAR(20), 井號 VARCHAR(20), 預(yù)算金額 FLOAT, 預(yù)算人 VARCHAR(20), 預(yù)算日期 DATE, 開工日期 DATE, 完工日期 DATE, 施工單位 VARCHAR(30), 施工內(nèi)容 VARCHAR(50), 材料費 FLOAT, 人工費 FLOAT, 設(shè)備費 FLOAT, 其他費用 FLOAT, 結(jié)算金額 FLOAT, 結(jié)算人 VARCHAR(20), 結(jié)算日期 DATE, 入賬金額 FLOAT, 入賬人 VARCHAR(20), 入賬日期 DATE );CREATE TABLE MATERIALPRICE單(據(jù)號 VARCHAR(20), 物

3、碼 VARCHAR(20), 消耗數(shù)量 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（' 作業(yè)公司作業(yè)一隊 '）;INSERT INTO CONSTRUCTIONUNI施T（工單位名稱 ）VALUES（' 作業(yè)公司作業(yè)二隊 '

8、）;INSERT INTO CONSTRUCTIONUNI施T（工單位名稱 ）VALUES（' 作業(yè)公司作業(yè)三隊 '）;INSERT INTO GOODSNO物（碼,名稱規(guī)格 ,計量單位 ）VALUES（'wm001',' 材料一 ',' 噸'）; INSERT INTO GOODSNO物（碼,名稱規(guī)格 ,計量單位 ）VALUES（'wm002',' 材料二 ',' 米'）; INSERT INTO GOODSNO物（碼,名稱規(guī)格 ,計量單位 ）VALUES（'wm003&#

9、39;,' 材料三 ',' 桶'）; INSERT INTO GOODSNO物（碼,名稱規(guī)格 ,計量單位 ）VALUES（'wm004',' 材料四 ',' 袋'）;INSERT INTO COST(單據(jù)號,預(yù)算單位 ,井號,預(yù)算金額 ,預(yù)算人,預(yù)算日期 ,開工日期 ,完工日期 , 施工單位 ,施工內(nèi)容 ,材料費 ,人工費 ,設(shè)備費,其他費用 ,結(jié)算金額 ,結(jié)算人,結(jié)算日期 ,入賬金額 ,入賬 人, 入賬日期 )VALUES('ZY2016001','112201001','

10、y001','10000.00','張三','2016-5-1','2016-5-4','2016-5-25',' 作業(yè)公司作業(yè)一隊 ',' 堵漏 ','7000.00','2500.00','1000.00','1400.00','11900.00',' 李 四','2016-5-26','11900.00','王五 ','

11、2016-5-28');INSERT INTO COST(單據(jù)號,預(yù)算單位 ,井號,預(yù)算金額 ,預(yù)算人,預(yù)算日期 ,開工日期 ,完工日期 , 施工單位 ,施工內(nèi)容 ,材料費 ,人工費 ,設(shè)備費,其他費用 ,結(jié)算金額 ,結(jié)算人,結(jié)算日期 ,入賬金額 ,入賬 人, 入賬日期 )VALUES('ZY2016002','112201002','y003','11000.00','張三','2016-5-1','2016-5-4','2016-5-23',' 作

12、業(yè)公司作業(yè)二隊 ',' 檢泵 ','6000.00','1500.00','1000.00','2400.00','10900.00',' 李 四','2016-5-26','10900.00','王五 ','2016-5-28');INSERTI NTO COST(單據(jù)號,預(yù)算單位,井號,預(yù)算金額,預(yù)算人,預(yù)算日期,開工日期,完工日期 , 施工單位 ,施工內(nèi)容 ,材料費 ,人工費,設(shè)備費,其他費用,結(jié)算金額 ,

13、結(jié)算人,結(jié)算日期,入賬金額,入賬 人, 入賬日期 )VALUES('ZY2016003','112201002','s001','10500.00','張三','2016-5-1','2016-5-6','2016-5-23',' 作業(yè)公司作業(yè)二隊 ',' 調(diào)剖 ','6500.00','2000.00','500.00','1400.00','10400.00&#

14、39;,' 李 四','2016-5-26','10400.00','王五 ','2016-5-28');INSERT INTO COST(單據(jù)號,預(yù)算單位,井號,預(yù)算金額,預(yù)算人,預(yù)算日期,開工日期,完工日期 , 施工單位 ,施工內(nèi)容 ,材料費 ,人工費,設(shè)備費,其他費用,結(jié)算金額 ,結(jié)算人,結(jié)算日期,入賬金額,入賬 人, 入賬日期 )VALUES('ZY2016004','112202001','s002','12000.00','張三&#

15、39;,'2016-5-1','2016-5-4','2016-5-24',' 作業(yè)公司作業(yè)三隊 ',' 解堵 ','6000.00','2000.00','1000.00','1600.00','10600.00',' 李 四','2016-5-26','10600.00','趙六 ','2016-5-28');INSERT INTO COST(單據(jù)號,預(yù)

16、算單位,井號,預(yù)算金額,預(yù)算人,預(yù)算日期,開工日期,完工日期 , 施工單位 ,施工內(nèi)容 ,材料費 ,人工費,設(shè)備費,其他費用,結(jié)算金額 ,結(jié)算人,結(jié)算日期)VALUES('ZY2016005','112202002','y005','12000.00','張三','2016-5-1','2016-5-4','2016-5-28',' 作業(yè)公司作業(yè)三隊 ',' 防砂 ','7000.00','1000.00'

17、;,'2000.00','1300.00','11300.00',' 李 四','2016-6-1');INSERT INTO MATERIALPRICE單( 據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016001','wm001','200','10.00');INSERT INTO MATERIALPRICE單( 據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016001','wm002'

18、,'200','10.00');INSERT INTO MATERIALPRICE單( 據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016001','wm003','200','10.00');INSERT INTO MATERIALPRICE單( 據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016001','wm004','100','10.00');INSERT INTO MATERIALPRICE單(

19、據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016002','wm001','200','10.00');INSERT INTO MATERIALPRICE單( 據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016002','wm002','200','10.00');INSERT INTO MATERIALPRICE單( 據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016002','wm003'

20、,'200','10.00');INSERT INTO MATERIALPRICE單( 據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016003','wm001','200','10.00');INSERT INTO MATERIALPRICE單( 據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016003','wm002','200','10.00');INSERT INTO MATERIALPRICE單(

21、據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016003','wm003','250','10.00');INSERT INTO MATERIALPRICE單( 據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016004','wm001','200','10.00');INSERT INTO MATERIALPRICE單( 據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016004','wm002'

22、,'200','10.00');INSERT INTO MATERIALPRICE單( 據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016004','wm004','200','10.00');INSERT INTO MATERIALPRICE單( 據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016005','wm001','200','10.00');INSERT INTO MATERIALPRICE單(

23、據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016005','wm002','200','10.00');INSERT INTO MATERIALPRICE單( 據(jù)號 ,物碼 ,消耗數(shù)量 ,單 價)VALUES('ZY2016005','wm004','300','10.00');UPDATE COSTSET 人工費 =人工費 +200.00, 結(jié)算金額 =結(jié)算金額 +200.00 WHERE單 據(jù)號 ='zy2016005'DELETE

24、FROM COSTWHERE入 賬金額 IS NULL OR 入賬人 IS NULL OR 入賬日期 IS NULL;BEGIN TRANUPDATE COSTSET 人工費 =人工費 +200.00, 結(jié)算金額 =結(jié)算金額 +200.00WHERE單 據(jù)號 ='zy2016005'DELETEFROM COSTWHERE入 賬金額 IS NULL OR 入賬人 IS NULL OR 入賬日期 IS NULL;ROLLBACK TRAN實驗四CREATE INDEX yDATE ON COST預(yù)（ 算日期 ）;CREATE INDEX jDATE ON COST結(jié)（ 算日期 ）

25、;CREATE INDEX rDATE ON COST入（ 賬日期 ）;SELECT DISTINCT * FROM COST,UNITNOWHERE 單 位名稱 ='采油一礦二隊 'AND 預(yù)算單位=單位代碼 AND 入賬日期 >='2016-5-1'AND 入賬日期 <='2016-5-28' AND 預(yù)算金額 IS NOT NULL AND 預(yù)算日期 IS NOT NULL AND 預(yù)算 人 IS NOT NULL;SELECT DISTINCT * FROM COST,UNITNOWHERE 單 位名稱 ='采油一礦二

26、隊 'AND 預(yù)算單位=單位代碼 AND 入賬日期 >='2016-5-1'AND 入賬日期 <='2016-5-28' AND 結(jié)算金額 IS NOT NULL AND 結(jié)算人 IS NOT NULL AND 結(jié)算 日期 IS NOT NULL;SELECT DISTINCT MATERIALPRICE單. 據(jù)號 , 物碼,消耗數(shù)量 , 單價FROM COST,MATERIALPRICE,UNITNOWHERE單 位名稱 =' 采油一礦二隊 'AND 預(yù)算單位 =單位代碼 AND 入賬日期 >='2016-5-

27、1'AND 入賬日期 <='2016-5-28'AND MATERIALPRICE. 單據(jù)號 =COST.單據(jù)號 ;SELECT DISTINCT * FROM COST,UNITNOWHERE 單 位名稱 ='采油一礦二隊 'AND 預(yù)算單位=單位代碼 AND 入賬日期 >='2016-5-1'AND 入賬日期 <='2016-5-28' AND 入賬金額 IS NOT NULL AND 入賬人 IS NOT NULL AND 入賬 日期 IS NOT NULL;SELECT 預(yù)算總額 =SUM（DIS

28、TINCT 預(yù)算金額 ）FROM UNITNO,COSTWHERE單 位名稱 =' 采油一礦二隊 'AND 預(yù)算單位 =單位代碼 AND 入賬日期 >='2016-5-1'AND 入賬日期 <='2016-5-28'SELECT 結(jié)算總額 =SUM（DISTINCT 結(jié)算金額 ）FROM UNITNO,COSTWHERE單 位名稱 =' 采油一礦二隊 'AND 預(yù)算單位 =單位代碼 AND 入賬日期 >='2016-5-1'AND 入賬日期 <='2016-5-28'SELE

29、CT 入賬總額 =SUM（DISTINCT 入賬金額 ）FROM UNITNO,COSTWHERE單 位名稱 =' 采油一礦二隊 'AND 預(yù)算單位 =單位代碼 AND 入賬日期 >='2016-5-1'AND 入賬日期 <='2016-5-28'SELECT 一礦入賬總額 =SUM（DISTINCT 入賬金額 ）FROM UNITNO,COSTWHERE單 位名稱 LIKE ' 采油一礦 %'AND 預(yù)算單位 =單位代碼 AND 入賬日 期>='2016-5-1'AND 入賬日期 <=&#

30、39;2016-5-28'SELECT DISTINCT 入賬人FROM COSTWHERE入 賬人 IS NOT NULL;SELECT DISTINCT 單據(jù)號FROM COSTWHERE結(jié) 算日期 >='2016-5-1' AND 結(jié)算日期 <='2016-5-28' AND 入賬金額 IS NULL AND 結(jié) 算金額 IS NOT NULL ;SELECT DISTINCT 單據(jù)號 , 入賬金額FROM COST,UNITNOWHERE單 位名稱 =' 采油一礦二隊 'AND 預(yù)算單位 =單位代碼 ORDER BY入

31、 賬金額 DESC;SELECT 單位名稱 ,結(jié)算金額總和 =SUM（DISTINCT 結(jié)算金額 ）, 項目數(shù) =COUNT（DISTINCT結(jié) 算 金額）FROM COST,UNITNOWHERE預(yù) 算單位 =單位代碼GROUP BY單 位名稱SELECT distinct 單據(jù)號 , 物碼,消耗數(shù)量 , 單價 FROM MATERIALPRICEWHERE物 碼 IN（SELECT 物碼FROM GOODSNOWHERE名 稱規(guī)格 =' 材料三 '）AND 單價 *消耗數(shù)量 >=2000;SELECT DISTINCT 單據(jù)號FROM COSTWHERE施 工單位 =

32、' 作業(yè)公司作業(yè)二隊 'SELECT 單據(jù)號 , 施工單位FROM COSTWHERE施 工單位 =' 作業(yè)公司作業(yè)二隊 'UNIONSELECT 單據(jù)號 , 施工單位FROM COSTWHERE施 工單位 =' 作業(yè)公司作業(yè)一隊 'SELECT DISTINCT 施工單位FROM COST,OILWELL,UNITNOWHERE預(yù) 算單位 =UNITNO.單位代碼 AND UNITNO.單位代碼 =OILWELL.單位代碼 AND 單位名 稱 LIKE ' 采油一礦 %'CREATE TABLE數(shù) 據(jù)表 （ 施工單位 VARCH

33、AR（30）,年月 VARCHAR（20）, 結(jié)算金額 FLOAT ）;INSERT INTO 數(shù)據(jù)表 （施工單位 ,年月 ,結(jié)算金額 ）（SELECT 施工單位 ,YEAR（結(jié)算日期 ）*100+MONTH（結(jié)算日期 ）,SUM（ 結(jié)算金額 ） FROM COSTGROUP BY 施工單位 ,YEAR（ 結(jié)算日期 ）*100+MONTH（結(jié)算日期 ）;UPDATE COSTSET 結(jié)算人 =' 李兵 ' WHERE預(yù) 算單位 IN（SELECT 單位代碼FROM UNITNOWHERE 單位代碼 =預(yù)算單位 AND 單位名稱 Like ' 采油一礦 %' );

34、DELETEFROM COSTWHERE預(yù) 算單位 IN(SELECT 單位代碼FROM UNITNOWHERE單 位代碼 = 預(yù)算單位 AND 單位名稱 Like采油一礦 %');BEGIN TRANUPDATE COSTSET 結(jié)算人 =' 李兵 'WHERE預(yù) 算單位 IN(SELECT 單位代碼FROM UNITNOWHERE 單位代碼 =預(yù)算單位 AND 單位名稱 Like );DELETEFROM COSTWHERE預(yù) 算單位 IN(SELECT 單位代碼FROM UNITNOWHERE 單位代碼 =預(yù)算單位 AND 單位名稱 Like 'ROLLB

35、ACK TRAN采油一礦 %'采油一礦 %');DROP INDEX yDATE ON COST;DROP INDEX jDATE ON COST;DROP INDEX rDATE ON COST;實驗五ALTER TABLE 數(shù)據(jù)表 ADD 備注 CHAR;SELECT *FROM 數(shù)據(jù)表;ALTER TABLE 數(shù)據(jù)表ALTER COLUMN施 工單位 VARCHAR(30) NOT NULL;ALTER TABLE 數(shù)據(jù)表 ADD PRIMARY KEY(施工單位 );DELETEFROM 數(shù)據(jù)表;DROP TABLE 數(shù)據(jù)表 ;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單 據(jù)號 VARCHAR(20) NOT NULL;ALTER TABLE COSTADD CONSTRAINT COST_NUM PRIMARY KE單Y(據(jù) 號 );ALTER TABLE MATERIALPRICEALTER COLUMN單 據(jù)號 VARCHAR(20) NOT NULL;ALTER TABLE MATERIALPRICEALTER COLUMN物 碼 VARCHAR(20) NOT NULL;ALTER TABLE MATERIALPRICE ADD PRIM

38、ARY KEY單( 據(jù)號 , 物碼 );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(單據(jù)號 , 物碼 , 消耗數(shù)量 , 單 價)VALUES('zy2

41、016007','wm006','100','10.00');UPDATE COSTSET 施工單位 =' 作業(yè)公司作業(yè)五隊 'WHERE單 據(jù)號 ='ZY2016001'DELETEFROM UNITNOWHERE單 位名稱 =' 采油二礦二隊 ' AND 單位代碼 ='112202002'UPDATE GOODSNOSET 物碼 ='wm04'WHERE物 碼 ='wm004'BEGIN TRANUPDATE COSTSET 施工單位 =&

42、#39; 作業(yè)公司作業(yè)五隊 'WHERE單 據(jù)號 ='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名 稱規(guī)格 VARCHAR(30) NOT NULL;ALTER TABLE GOODSNO ADD UNIQU名E稱( 規(guī)格 );ALTER TABLE GOODSNOALTER COLUMN計 量單位 VARCHAR(20) NOT NULL;ALT

44、ER TABLE MATERIALPRICEALTER COLUMN消 耗數(shù)量 BIGINT NOT NULL;ALTER TABLE MATERIALPRICEALTER COLUMN單 價 FLOAT NOT NULL;ALTER TABLE COSTALTER COLUMN預(yù) 算人 VARCHAR(20) NOT NULL;BEGIN TRANSACTIONGOCREATE VIEW COST_PRICEASSELECT COST.*,物碼 , 消耗數(shù)量 , 單價FROM COST,MATERIALPRICE where COST. 單據(jù)號 =MATERIALPRICE單. 據(jù)號 ;SE

45、LECT 單據(jù)號 , 物碼FROM COST_PRICEWHERE物 碼 ='wm002'SELECT 單據(jù)號 , 單價FROM COST_PRICEWHERE單 據(jù)號 ='ZY2016001'and 物碼 ='wm001'GOCREATE VIEW YUSUANASSELECT 單據(jù)號,預(yù)算單位 ,井號,預(yù)算金額 ,預(yù)算人 ,預(yù)算日期 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' ,' 作業(yè)公司作業(yè)一隊 ' ,' 堵漏 ' , 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單據(jù)號 VARCHA(R20) DECLAR E預(yù)算單位 VARCHA(R20) DECLAR E井號 VARCHA(R2

51、0) DECLAR E預(yù)算金額 FLOAT DECLAR E預(yù)算人 VARCHA(R20) DECLAR E預(yù)算日期 DATE DECLAR E開工日期 DATE DECLAR E完工日期 DATE DECLAR E施工單位 VARCHA(R30) DECLAR E施工內(nèi)容 VARCHA(R50) DECLAR E材料費 FLOAT DECLAR E人工費 FLOAT DECLAR E設(shè)備費 FLOAT DECLAR E其他費用 FLOAT DECLAR E結(jié)算金額 FLOAT DECLAR E結(jié)算人 VARCHA(R20) DECLAR E結(jié)算日期 DATE DECLAR E入賬金額 FLO

52、AT DECLAR E入賬人 VARCHA(R20) DECLAR E入賬日期 DATEPRINT '單據(jù)號 ' +'預(yù)算單位 ' +'井號 ' +'預(yù)算金額 ' +'預(yù)算人'+' 預(yù)算日期'+' 開工日期 ' +' 完工日期 '+' 施工單位 ' +'施工內(nèi)容 ' +'材料費 '+' 人工費 ' +' 設(shè)備費 ' +' 其它費用 ' +' 結(jié)算金額 ' +

53、' 結(jié)算人 ' +' 結(jié)算日期 ' +' 入賬金額 +' 入賬人 ' +' 入賬日期 'FETCHFIRST FROM COST_CRUINTO 單據(jù)號, 預(yù)算單位 , 井號, 預(yù)算金額 ,預(yù)算人 , 預(yù)算日期 ,開工日期 , 完工日期 , 施工單位 , 施工內(nèi)容 , 材料費 ,人工費 ,設(shè)備費 , 其他費用 , 結(jié)算金額 , 結(jié)算人 , 結(jié)算日期 , 入賬金額 , 入賬人 , 入賬日期WHILE( FETCH_STA=T0U)SBEGINPRINT +單據(jù)號 +預(yù)算單位 +井號 +預(yù)算金額 +' ' +預(yù)

54、算人 +' ' +預(yù)算日期 +'' +開工日期 +' ' +完工日期 +' ' +施工單位 +' ' +施工內(nèi)容 +材料費 +人工費 +設(shè)備費+其他費用 +結(jié)算金額 +' '+結(jié)算人 +' ' +結(jié)算日期 +入賬金額 +' ' +入賬人 +入賬日期FETCH NEXT FROM COST_CRUINTO單據(jù)號 , 預(yù)算單位 , 井號, 預(yù)算金額 ,預(yù)算人 , 預(yù)算日期 ,開工日期 , 完工日期 , 施工單位 , 施工內(nèi)容 , 材料費 ,人工費 ,設(shè)備費 , 其他費用

55、, 結(jié)算金額 , 結(jié)算人 , 結(jié)算日期 , 入賬金額 , 入賬人 , 入賬日期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（ 預(yù)算金額 ）FROM COSTWHERE預(yù)算單位 LIKE DANWEIDAIM+A'%' AND預(yù)算日期 BETWEE NSTARTTIMEA ND ENDTIMEa nd 預(yù)算金額 is not null）SETJSMONE=Y（ SELECTSUM（結(jié)算金額 ）FROM COST WHERE

57、預(yù)算單位 LIKE DANWEIDAIM+'A%' AND結(jié)算日期 BETWEE NSTARTTIMEA ND ENDTIMEa nd 結(jié)算金額 is not null)SETRZMONE=Y( SELECTSUM( 入賬金額 )FROM COST WHERE預(yù)算單位 LIKE DANWEIDAIM+'A%' AND 入賬日期 BETWEE NSTARTTIMEA ND ENDTIMEA ND 入賬人 IS NOT NULL)SETNOJSMON=E(YSELECTSUM( 預(yù)算金額 )FROM COST WHERE預(yù)算日期 BETWEE N STARTTIME

58、A ND ENDTIMEA ND 結(jié)算金額 IS NULL)SETNORUZHANGMO=N(ESYELECTSUM( 結(jié)算金額 )FROM COST WHERE結(jié)算日期 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 ' 預(yù)算金額 結(jié)算金額 入賬金額 未結(jié)算金額 未入賬金額 'PRINT RESULT*/printDANWEIMIN+cGonvert ( varchar , STARTTIM,E102)+ '-' +convert ( varchar , ENDTIM, E102)+ ' 成本運營情況 ' print '

61、預(yù)算金額結(jié)算金額入賬金額未結(jié)算金額未入賬金額 '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環(huán)畑 土 丄 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 '形浄金頊結(jié)肖金更入處255卞結(jié)算主額牛入全額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