融海咨詢informix_4gl教材 第四十一章先進(jìn)的報(bào)表概念：一個(gè)SELECT語(yǔ)句出兩個(gè)報(bào)表

1、.  第四十一章      先進(jìn)的報(bào)表概念：一個(gè)SELECT語(yǔ)句出兩個(gè)報(bào)表本章討論在兩個(gè)不同的報(bào)表中用同一個(gè)SELECT語(yǔ)句的方法。輸出的實(shí)例：用同一信息往兩個(gè)報(bào)表輸出有時(shí)同一信息要以完全不同的格式輸出，如上圖中的例子，一個(gè)報(bào)表按明細(xì)列信息，另一個(gè)報(bào)表按產(chǎn)品分組把同樣的信息列出來。這兩個(gè)報(bào)表把同樣的信息用完全不同的方式輸出。本章就是要說明怎樣用一個(gè)SELECT語(yǔ)句為兩個(gè)報(bào)表檢索信息，一旦信息檢索出來了，就可以按你想要的任意方式格式化。聲明一個(gè)游標(biāo)在上例中，聲明了一個(gè)從stock表取所有行和字段的游標(biāo)，把這個(gè)游標(biāo)寫到

2、程序中后，就可以往任意一個(gè)REPORT函數(shù)送數(shù)。重復(fù)報(bào)表驅(qū)動(dòng)語(yǔ)句從上列可以看出把同樣的信息送給兩個(gè)報(bào)表是相當(dāng)容易的，只要重復(fù)報(bào)表驅(qū)動(dòng)語(yǔ)句，那么，你能否用一個(gè)SELECT語(yǔ)句向三個(gè)報(bào)表送數(shù)呢？ 上例中，兩個(gè)報(bào)表向不同的文件輸出，若向同一文件輸出，第二個(gè)START REPORT語(yǔ)句會(huì)履蓋第一個(gè)的結(jié)果，若都向屏幕輸出，第一個(gè)START REPORT語(yǔ)句的輸出會(huì)顯示在屏幕上，然后是第二個(gè)START REPORT語(yǔ)句的輸出。 這個(gè)模塊中的報(bào)表代碼列在下頁(yè)，用同一個(gè)SELECT語(yǔ)句向兩個(gè)報(bào)表送數(shù)的概念是很有用的，用這些信息，每個(gè)報(bào)表可以完成大量工作。程序?qū)嵗?#160;databas

3、e stores main define lr_stock record like stock.*stock_cur游標(biāo)用SELECT語(yǔ)句從stock表檢索所有信息。declare stock_cur cursor for select * from stock 為每一個(gè)報(bào)表寫一個(gè)START REPORT語(yǔ)句。start report stock_by_desc to “/tmp/stock_by_desc.out”start report group_by_code to “/tmp/group_by_code.out” foreach stock_cur in

4、to lr_stock.*兩個(gè)OUTPUT語(yǔ)句為不同的報(bào)表送同一行數(shù)據(jù)。output to report stock_by_desc(lr_stock.*)output to report group_by_code(lr_stock.*)end foreach finish report stock_by_descfinish report stock_by_code end mainreport stock_by_desc(rr_stock)define rr_stock record like stock.*outputleft margin 0top margin

5、0bottom margin 0page length 23order by rr_stock.descriptionformatfirst page headerprint column 30,”Stock Listing”print column 30,”As of “,todayskip 1 lineprint “Stock #”,column 10, “Code”,column 20, “Description”,column 40, “Unit price”,column 55, “Unit”,column 65, “Unit Descr.”Page headerprint “Sto

6、ck #”,column 10, “Code”,column 20, “Description”,column 40, “Unit price”,column 55, “Unit”,column 65, “Unit Descr.”on every rowprint rr_stock.stock_num using “#”,column 10, rr_stock.manu_code,column 20, rr_stock.description clipped,column 40, rr_stock.unit_price using “$#.&&”,column 55, rr_s

7、tock.unit,column 65, rr_stock.unit_descr,skip 1 lineprint “Created by John Doe”,column 65,pageno using “page -&&-“pause “Press return to continue”end reportreport group_by_code(rr_code)define rr_code record like stock.*outputleft margin 0top margin 0bottom margin 0page length 66order by rr_c

8、ode.manu_codeformatfirst page headerprint column 30,”Stock Listing”print column 25,”Group by Manufacturer “print column 30,”As of “,todayskip 1 linebefore group of rrcode.manu_codeprint “Listings for: “,rr_code.manu_codeskip 1 lineprint “Stock #”,column 10, “Description”,column 30, “Unit price”,colu

9、mn 45, “Unit”,column 55, “Unit Descr.”on every rowprint rr_code.stock_num using “#”,column 10, rr_code.description clipped,column 30, rr_code.unit_price using “$#.&&”,column 45, rr_code.unit,column 55, rr_code.unit_descr,after group of rr_code.manu_codeskip 1 lineprint “Total of ”,group count(*) using “<<<<”, “ items.”Skip