融海咨詢informix_4gl教材 第四十二章先進(jìn)的報(bào)表概念：用變量命名輸出文件

1、.  第四十二章      先進(jìn)的報(bào)表概念：用變量命名輸出文件本章討論在報(bào)表中用變量名命名輸出文件的用法，也說明了用戶自定義排序鍵的用處和在排序鍵的基礎(chǔ)上有條件地使用FORMAT語(yǔ)句。用菜單定排序鍵在上圖例子中，MENU語(yǔ)句給用戶提供了對(duì)報(bào)表排序的選擇，基于用戶對(duì)菜單的選擇進(jìn)行SELECT語(yǔ)句的準(zhǔn)備以及決定輸出報(bào)表文件名。建立SELECT語(yǔ)句在上例中，用戶有兩個(gè)選擇?；谄溥x擇，sorter變量被賦為相應(yīng)的字段名。字符變量中的SELECT語(yǔ)句，即sglstmnt是帶排序的，它按照附加的Sorter變量進(jìn)行排序。準(zhǔn)備

2、SELECT語(yǔ)句PREPARE語(yǔ)句用于把SELECT語(yǔ)句和Sorter變量結(jié)合在一起組成可執(zhí)行的SELECT語(yǔ)句。當(dāng)為sglstmnt變量聲明游標(biāo)后，就可以在報(bào)表驅(qū)動(dòng)中使用該游標(biāo)了。這種方法的好處用這種方法，在每次要看排序不同的報(bào)表時(shí)就不必再叫你，只用從菜單上進(jìn)行選擇，報(bào)表就會(huì)按需求進(jìn)行排序輸出。命名報(bào)表同樣，基于用戶的輸入可以生成輸出文件名。在START REPORT語(yǔ)句中用變量如repname標(biāo)識(shí)輸出文件名。這個(gè)概念很有用本章中的MENU語(yǔ)句中的代碼列在下頁(yè)，建立排序鍵以及在運(yùn)行時(shí)指定輸出文件名的方法是很有用的。本例中的報(bào)表很簡(jiǎn)單，但很說明問題。程序?qū)嵗篸atabase storesma

3、inMAIN函數(shù)用于顯示一個(gè)帶兩個(gè)排序選項(xiàng)的菜單。define lr_stock record like stock.*define repname char(15),sorter char(10),sqlstmnt char(200)menu “SORT BY”command “Stock Number” “Order the report by stock number.”let repname = “bystock_num.out”repname中放是輸出文件名。let sorter = “stock_num”sorter用于SELECT語(yǔ)句中。exit menucommand “Man

4、ufacturer Code” “order the report by manufacturer code.”let repname = “bymanu_code.out”let sorter = “manu_code”exit menuend menulet sqlstmnt = “select * from stock order by “,sorter clippedprepare ex_stmnt from sqlstmntdeclare stock_cur cursor for ex_stmntstart report stock_rep to repnameforeach sto

5、ck_cur into lr_stock.*output to report stock_rep(lr_stock.*)end foreachfinish report stock_repend mainreport stock_rep(rr_stock)define rr_stock record like stock.*format報(bào)表驅(qū)動(dòng)在這里是很重要的概念。通過它可以按需要進(jìn)行格式化。on every rowprint rr_stock.stock_num using “#”,column 10,rr_stock.manu_code,column 20,rr_stock.descrip

6、tion clipped,column 40,rr_stock.unit_price,using “$#.&&”,column 55,rr_stock.unit,column 65,rr_stock.unit_descrend report盡管讓用戶選擇排序鍵，但輸出的變化開始并不很明顯，若用戶選擇按manu_code排序，應(yīng)該把manu-code字段放在第一列，這可以通過寫兩個(gè)報(bào)表或在REPORT函數(shù)中的ON EVERY ROW控制塊中放IF語(yǔ)句實(shí)現(xiàn)，所需的代碼列在下頁(yè)中。程序?qū)嵗?#160;database stores MAIN函數(shù)用于顯示帶兩個(gè)排序選項(xiàng)的菜單

7、。一旦用戶選了其中一個(gè)，就準(zhǔn)備了一個(gè)SELECT語(yǔ)句，并為它聲明一個(gè)游標(biāo)。maindefine lr_stock record like stock.*definerepname char(15),sorter char(10),sqlstmnt char(200)menu “SORT BY”command “Stock Number” “Order the report by stock number.”let repname = “bystock_num.out”let sorter = “stock_num”exit menucommand “Manufacturer Code” “Or

8、der the report by manufacturer cide.”let repname = “bymanu_code.out”let sorter = “menu_code”exit menuend menusorter變量在SELECT語(yǔ)句中使用，并在OUTPUT TO REPORT語(yǔ)句中傳給REPORT函數(shù)。let sqlstmnt = “select * from stock order by “,sorter clipped prepare ex_stmnt from sqlstmntdeclare stock_cur cursor for ex_stmntstar

9、t report stock_rep to repname foreach stock_cur into lr_stock.*output to report stock_rep(lr_stock.*,sorter)end foreach finish report stock_repend main report stock_rep(rr_stock,sortby)define rr_stock record like stock.*define sortby char(10)formaton every row由IF語(yǔ)句決定stock_num和manu_code的顯示次序。if sortby = “stock_num” thenprint rr_stock.stock_num using “#”,column 10,rr_stock.manu_code;elseprint rr_stock.manu_code,column 10,rr_stock.stock_num using “#”;end if由于前面用的是分號(hào)，下面的PRINT語(yǔ)句與上面的顯示在同一行上。print column 2