VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

多細節帶報表的實現

原文來自：foxtalk 2001年2月刊

作者：Cathy Pountney

譯者：fbilo

前言：
這個月，Cathy Pountney 將向你展示更多的 FoxPro 報表編輯器技巧。她從解釋怎樣在單個報表上建立多個細節帶區開始——有些程式師認為用 FoxPro 自帶的報表編輯器來做到這一點是不可能的。她還為你展示了怎樣把一個細節帶區拆分到幾頁上去，還有幾個如處理圖形圖像、線條和boxes的技巧。

正文：
現在，你已經因為報表編輯器技巧的第一部分（查看foxtalk 2000年12月刊）而興奮起來了，是時候深入探索報表編輯器了。許多程式師對細節帶區很困惑。他們傾向於批鬥自帶的報表編輯器，因為它不允許他們憑著直覺精確的設計出象他們所需要的那樣的報表。例如，自帶的報表編輯器不孕許多細節帶區，它也不允許你把一個細節帶區拆分到幾頁上。不過，請別失望——你可能做到所有這些東西，只要你知道一點點秘密的話。

那麼，讓我們開始吧。可以從 www.pinnaclepublishing.com/ft下載的源代碼檔包含了集成這些技巧中的每一個的工作示例。查看 readme.txt，其中有一個列表，它告訴你哪個檔是演示哪個技巧的。

多細節帶區
你常常會面對要在一個報表上建立多個細節帶區的情況（如圖1）。在這個例子裏，報表中涉及兩個表。第一個表是客戶的貨物清單列表（Invoice 表）。第二個表是來自客戶的付款列表（Payment表）。在現實世界裏，你很可能有三個表，因為你還需要一個單獨的客戶表。不過為了讓我的例子更加的簡單，我把有關客戶資訊的內容包含在每個表中，這樣我就不需要使用/介紹第三個表了。說的夠多了！你建立的報表需要根據客戶來排序，為“A”客戶列出貨物清單，接著是“A”客戶的付款，接下來是“B”客戶的貨物清單，然後是“B”客戶的付款，等等。我想你已經看到圖片了。

不幸的是，自帶的報表編輯器不允許多細節帶區。每個報表你只有一個細節帶區，而那是 Microsoft 的最終回答！那麼你怎麼做——放棄並告訴你的客戶它是不可能做到的嗎？雖然現在對你來說這可能是一個好主意，我不認為你的客戶會高興。事實上，他們也許會決定給朋友打一個電話或者問問其他人。更好的解決方法是把兩個子表中的所有紀錄都放到一個臨時表中去，然後使用一個特殊的組與"Print When "邏輯變數結合來控制每個需要的細節帶區的列印。

我們從建立一個包含貨物清單表和付款表的所有欄位的臨時表或者表來開始，你還需要一個額外的欄位來跟蹤每個紀錄的源（Source）。下面的代碼建立一個臨時表並包含一個名叫"REC_TYPE"的字元型欄位。對所有來自貨物清單表的紀錄，這個欄位的值是"1"（字元型，不是數值型）；對所有來自付款表的紀錄，這個值是"2"。

圖1?.經過一些特殊的努力，多細節帶區也能通過使用 FoxPro 自帶的報表編輯器來做到。

** 建立臨時表

CREATE CURSOR tmpcurs

(rec_type C(1), inv_no C(4), client C(30),

po_no C(4), inv_date D(8 ), due_date D(8 ),

inv_amt N(10,2), chk_no C(4), date_rcvd D(8 ),

amt_paid N(10,2))

INDEX ON clent + rec_type + inv_no TAG PrimaryKey

** 把貨物清單表（invoices）的內容添加到臨時表

SELECT tmpcurs

SCATTER MEMVAR MEMO BLANK

SELECT 0

USE invoice

SCAN

SCATTER MEMVAR MEMO

m.rec_type = '1' && 貨物清單

INSERT INTO tmpcurs FROM MEMVAR

ENDSCAN

** 把付款表（payments）添加到臨時表

SELECT tmpcurs

SCATTER MEMVAR MEMO BLANK

SELECT 0

USE payment

SCAN

SCATTER MEMVAR MEMO

m.rec_type = '2' && 付款表

INSERT INTO tmpcurs FROM MEMVAR

ENDSCAN

注意這個臨時表有一個根據 CLIENT + REC_TYPE + INV_NO 建立的複合索引，它用來保證報表被列印時的正確的順序。為 REC_TYPE 使用一個“字元型”欄位可以使得在複合索引中包含 REC_TYPE 變得更容易。相對於使用 "INV" 和 "PAY" ，使用 "1" 和 "2" 給了我強制細節帶區按照我所想要次序列印的機動性。在我的例子中，第一個客戶的貨物清單將被列印，接著是那個客戶的付款單，後面是第二個客戶的貨物清單，再後面是第二個客戶的付款單，等等。如果我想首先顯示付款單，那麼我寧願使用 "INV" 和 "PAY," 而目前我的運氣不好，I 在 P 的前面，所以出於習慣，我發現最好使用數位來代替描述代碼來控制排序。

現在你的這個臨時表中已經有了所有的資料，你可以轉而關注于建立報表本身了。從建立一個包含兩個組的報表開始，第一個組按照 Client 欄位分組，第二個組按照 Rec_Type 欄位分組。在細節帶區裏，放入所有來自於貨物清單表的欄位。依你自己的需要移動並排列它們。同時，把貨物清單表字段的標題放入到 Rec_Type 組帶區的組標頭部分裏去。現在，轉回去把下面的代碼放到每個欄位和標題的 " Printing when " 條件（譯者注：雙擊欄位或標題，在出現的“報表運算式”視窗中單擊“列印條件”，在出現的“列印條件”視窗中把代碼放入到“僅當下列運算式為真時列印”文本框）中去：

rec_type = "1"

下一步，你需要對來自付款單表的所有欄位做一遍同樣的事情。現在報表變得很難看（看圖2），因為你需要把付款表字段重疊的放到所有的貨物清單標欄位上面去，這使得你很難看清哪個標題究竟是屬於哪個欄位的。我發現最好是建立一個假的報表，並把付款單字段和標題放到那個假報表上去。精確的按你的需要移動和排列好它們。把前面提到的代碼添加到每個欄位和標題的 "Printing When" 條件中去，把“1”替換為“2”。一旦你佈局好了，從假報表中剪切並把它們粘貼到你真正工作的報表中去。把它們剛好放到貨物清單表字段的上面。

那就是所有我們需要做的事情！很簡單，對吧？對你來說，只要花很小的一點努力就可以實現這個技巧。

拆分一個細節帶區使它跨越多頁
有些時候，細節帶區包含那麼多的內容以至於它需要跨越一頁或者多頁。使用一個類似於前面提到的技術，你可以把你的資料分配到象你所需要的那麼多頁上面去。

我們從建立一個臨時表或者游標（Cursor）開始，其中包含在你的源表中每個欄位的多個紀錄。例如，如果你需要為你的每個紀錄列印兩個細節帶區，並且你的源表包含六個紀錄，那麼你的新表裏面應該有12個紀錄（2×6）以實現最終有12個列印頁的結果。這個新的游標應該在結構中增加一個額外的名為 REC_TYPE 欄位，並且它的排序依據應該是你所希望的排序欄位加上 REC_TYPE 欄位。下面的代碼演示了怎樣建立這個新的游標（它假定表中的第一個欄位是我想用來根據它排序的欄位）：

** 建立臨時表

Select '1' as REC_TYPE , * FROM Spaing

UNION

Select '2' AS REC_TYPE, * FROM Spaing

INTO CURSOR tmpcurs

ORDER BY 2, 1

在報表編輯器中，調整細節帶區的高度到差不多一整頁的大小。我說“差不多”是因為你必須為也存在於你的報表上的任何頁標頭、標題、注腳、組、或者總結帶區留出一點空間。確保所有帶區的總高度不會超出頁面的長度。

把你所有想要顯示在“第一頁”上的欄位放到細節帶區上，確保 " Printing When "條件為 REC_TYPE = '1'。然後把你所有想要顯示在“第二頁”上的欄位添加到細節帶區上，並確保" Printing When "條件為 REC_TYPE = '2'。我再一次建議你使用我們前面提到的“假報表”技術，以將你自己從目光歪斜和狂拔自己頭髮的慘狀中解救出來。當這些工作做完以後，你就已經準備完上路了。運行報表，你將看到你的報表為當前檔中的每個事項分配到兩頁中去了。

動態圖形圖像
FoxPro 自帶的報表編輯器提供了列印圖形圖像的能力。如果你使用的是老版本的 FoxPro 或者 Visual FoxPro，你就只能使用 BMP 檔。Visual FoxPro 6.0 及以上的版本允許你列印 BMP 和 JPG 檔。報表編輯器的一個受歡迎的變化！

把“靜態”的圖像放到一個報表上是簡單的。只要使用 Pictrue 控制項，把這個物件放到你的報表上並輸入控制 Picture 的檔案名或者欄位名。但如果你想要動態的改變圖像時怎麼辦？例如，你也許想要根據報表發送給哪個客戶在報表的標題部分使用不同的標誌（logo），或者你想要在報表的第一頁上列印一個大的標誌而在以後的各頁上列印小標誌。那麼現在你該怎麼辦？

在顯示在圖3中的例子中，為奇數行使用了兩個圖示中的一個——向上的箭頭，並為偶數行使用了向下的箭頭。儘管你的用戶不會要求你去做這種奇數/偶數的事情，這不過是個例子。

現在怎樣做到這種效果取決於你使用的是 FoxPro 2.x 還是 Visual FoxPro。我們先對付 2.x。為了能夠簡單的判定細節帶區是在列印一個奇數行還是偶數行，我建立了一個作為行號的名為 nRecord 的報表變數，它的初始值為1，並且在“計算”選項按鈕組中選中了“總和”，並且它將作為行號顯示在報表中。在 FoxPro 2.x 版中，我把這兩個圖像都放在報表上，其中一個在另一個的上面，我把下面的代碼放在了向上的箭頭和向下的箭頭的 " Printing When " 語句中：

** 向上的箭頭

MOD(nRecord, 2) <> 0

** 向下的箭頭

MOD(nRecord, 2) = 0

如果你在使用 Visual FoxPro ，列印動態圖形圖像更加容易。在報表上放入一個 Picture 控制項，然後，在出現的“報表圖片”對話方塊中，在“圖片來源”的“檔”文本框中輸入一個運算式來代替檔案名，在運算式的兩邊要加上圓括號。要生成圖3中的示例，使用下面的運算式：

(IIF(MOD(nRecord, 2) = 0, "next.bmp", "Prior.bmp"))

再次重複一遍，你需要在運算式的兩端加上圓括號。它告訴 FoxPro 檔案名其實是一個需要運算的運算式。Visual FoxPro 提供了比 FoxPro 2.x 更多的可能性。在 FoxPro 2.x 中，你必須在設計時向報表中放入真正的圖像。而在 Visual FoxPro 中，在設計時你並非必須要知道是哪個可用的圖片。

讓我們假設你有一個產品表，而你希望為每個產品關聯一幅圖片。不同的產品常常會使用同一幅圖片。在這個案例中，在表的通用欄位中儲存圖片並不是一個精明的主意，因為你可能會佔據大量的空間來一次又一次的重複儲存同一幅圖片。作為替代方案，給你的表增加一個欄位，比如 MyPicture，它包含於這個產品相關聯的圖片的檔案名。在報表的“圖片來源”的“檔”文本框中放入欄位名，在它的兩邊加上圓括號，象下面這樣：

(MyFile.MyPicture)

這只是一個小技巧，不過你可能需要讓這個欄位足夠的長以儲存帶著完整路徑的檔案名或者至少是帶著相對路徑的檔案名以代替只儲存檔案名的情況。這當然完全取決於你的整個應用程式的設計情況。（你的路徑可能會更動的。<s>）

固定風格的陰影
會計人員喜歡看到每隔一行加上陰影的頁面。這將有助於他們閱讀一行又一行的數字。那麼給他們想要的東西並讓他們快樂起來吧！記住，他們越快樂，就越不可能丟下你。

陰影可以通過使用矩形物件來實現。在報表上放上一個矩形。讓它與你的細節帶區的高度相同同時象你所需要的那樣寬。改變它的前景色和背景色為灰色。要在 FoxPro 2.x 中改變背景色，從功能表欄中選擇 object，選擇 Fill Color，然後選擇 Gray。要改變前景色，從功能表欄中選擇 object，選擇 Fill Color，然後選擇 Gray。

在 Visual FoxPro 中，步驟有些不同。請先確定調色板工具欄被啟動（從“顯示”功能表中選擇它）。要改變背景色，選中物件，選擇背景色按鈕（有油漆桶的那個），然後選擇灰色。要改變前景色，選中物件，選擇前景色按鈕（上面有個 "T" 字的那個），然後選擇灰色。

最後的步驟是把下面的代碼放入到 " Printing When " 條件中去（這裏假設你已經象前面的“拆分”示例那樣建立了一個名為 nRecord 的變數）：

MOD(nRecord, 2) = 0

當你列印的時候，每隔一行將會呈現灰色陰影。現在，會計人員們會高興了，而你將會有一些空閒時間了。不管怎麼說，這畢竟是好事情。

縮放的垂直線和矩形
在過去美好的點點陣式印表機的日子裏，除非絕對必要，否則垂直線和矩形是應該儘量避免的。但是鐳射和噴墨印表機改變了一切。在練習中用破折線來代替水平線、水平線的垂直邊，用加號來代替角部的日子已經過去了。現在，我們可以向報表添加真正的線條來極大的增強報表的清晰度。事實上，那正是我們的用戶所希望的。

我相信你們都知道怎樣向報表上添加線條、矩形、圓角的矩形。但你是否知道這些東西的高度是可以縮放的？當你的細節帶區包含其他物件，如備註欄位的時候，這是非常重要的，它們可以縮放尺寸。單擊一個線條或者矩形，在 FoxPro 2.x 中選擇“Stretch With band”，或者在 Visual FoxPro 中選擇“相對于帶區的高度伸展”（譯者注：注意——域控制項是沒有這個選項的，只有線條、矩形這些圖形物件才有）。這麼做將告訴 FoxPro ，無論細節帶區何時變長都要把這個線條也變長。在 Visual FoxPro 中，你還可以使用另一個可用的選項：相對於組中最高的物件伸展。這個選項嘛.....是的....就象它的名字說的那樣。

到目前為止，我談到的都是包含在一個帶區中的線條和矩形。那麼你是否能夠縮放在兩個帶區之間的一根線條呢？你可以的。圖3中有一個從該頁的頂部直到底部的矩形。我是通過在報表上放入一個起始於頁標頭帶區、穿過細節帶區、結束於頁注腳帶區的矩形來實現的。當你讓線條或者矩形穿過組帶區的時候，類似的縮放也可以實現。

注意一下垂直線和矩形的不同。垂直線在達到該頁細節帶區的最後一行後不會繼續下去。但是矩形卻會遠遠的超出本頁細節帶區的最後一行，直到到達頁注腳帶區為止。這是一個要理解的重要特性。因為矩形起始於頁標頭帶區、並結束於頁注腳帶區，Visual FoxPro 會假定你象要伸展它一直穿過整個細節帶區。（譯者注：這一段作者寫的有點詞不達意，簡單的說，就是垂直線條不能使用在一個細節帶區跨越多頁的情況下，因為它只顯示了第一頁就沒有了，而矩形可以。）

浮水印
浮水印不過就是放在一頁上的一個圖形/圖像。在 FoxPro 中要實現浮水印效果的棘手部分是讓圖像伸展到整頁。讓我們試一下。向報表上放入一個 Image，縮放它為從頁標頭帶區的頂部直到頁注腳帶區的底部。現在運行這個報表，如果你希望著圖像會象線條和矩形那樣縮放，那麼你會失望的，因為真正出現的並不是那樣的效果。圖像仍然保持在它顯示在報表編輯器中的大小。但如果你運行包含在源代碼檔中的示例，你將會看到我確實讓圖像伸展滿了整頁。我是怎麼做到的？

歡迎來到“報表黑客 101”！這個技巧不能通過自帶的報表編輯器來實現。你必須黑一下報表的FRX檔。如果你還不知道這個內情，那麼讓我告訴你：報表資料保存在兩個檔中——一個以 FRX 為副檔名，另一個以 FRT 為副檔名。這些檔其實不過分別是一個 DBF 檔和一個 FPT 檔。這意味著你可以象使用其他任何 DBF 檔那樣 USE 報表表，只要你在 USE 命令中帶上報表的副檔名。

在你繼續深入以前，給 FRX 和 FRT 檔做一個備份。當黑的時候先做好安全措施，以免你把事情搞的一團糟以至於 FoxPro 自帶的工具再也不能識別這個報表（那從來也沒有讓我開心過<s>）。一旦你做完了備份，象下面這樣打開報表：

USE MyReport.frx

BROWSE

我不會詳細的講述這個檔中每個欄位的細節內容。John Koziol 在 FoxTalk 2000年8月刊裏他的文章《弄清 Visual FoxPro 報表檔》中做了一件很好的工作。目前你唯一需要關心的記錄是用於你添加到報表中的BMP的那個。它的 OBJTYPE 欄位的值應該是 17，PICTURE 欄位則包含 BMP 的檔案名。

一旦你找准了那個紀錄，查看一下 VPOS、HPOS、HEIGHT、WDITH欄位。如果你想對圖片的左上角位置進行微調，你可以通過調整 VPOS 和 HPOS 欄位的值來做到。VPOS 欄位表示垂直開始的位置，HPOS欄位表示水平位置，使用的度量單位是1英寸的 1/10000。所以，要把圖片放到距頂部 0.5、距左邊 1 的位置，可以把 VPOS 的值設置為 5000、把 HPOS 的值設置為 10000。

要調整圖片的尺寸，修改 HEIGHT 和 WIDTH 欄位。記住，度量的單位是1英寸的 1/10000。所以，要把圖片的尺寸縮放到高度為9、寬度為6.5的大小，需要分別把 HEIGHT 和 WIDTH 欄位的值改動到 90000 和 65000。現在關閉這個表然後運行這個報表，圖片將被伸展到整頁。

關於這個技術還有兩件小事情。首先，欄位和圖片在報表上的前後次序是重要的。如果你在向報表放置了欄位之後再放置圖片，圖片將顯示在欄位的上面。這可不是你象要的。選中圖片並選擇“置後”選項，這將會把圖片放到所有欄位的後面。另外一件事情是如果你黑了報表之後又對圖片做了某些修改，比如圖片的前後次序，黑過的圖片尺寸將會被恢復到 FoxPro 認為可接受的範圍。所以你必須再黑一次尺寸。

展望
FoxPro 自帶的報表編輯器要比它起初看起來的樣子強大的多。關鍵是要知道讓它做到你想做的事情的技巧。幸運的是，我已經為使用這個工具露出了一線光明。但還有許多技巧需要我們去學習。我將繼續去尋找程式師們到底需要什麼並報告給 Foxtalk 的讀者們。如果你希望看到文章設計某些你需要的內容，或者你已經自己發現了某些事情，給我一個email，我將盡我所能在將來的文章中包含進去。