FastReport VCL程序員手冊：交互式報表

FastReport VCL是用于Delphi，C ++ Builder，RAD Studio和Lazarus的報告和文檔創建VCL庫。它提供了可視化模板設計器，可以訪問最受歡迎的數據源，報告引擎，預覽，將過濾器導出為30多種格式，并可以部署到云，Web，電子郵件和打印中。

近日，FastReport VCL更新至v6.9，在新版本中，在PDF導出中增加了對以下對象的交互式表單支持：文本，復選框和圖片。能夠通過InteractiveFormsFontSubset屬性將所需的字形僅包含在交互式形式中。同時修復了多個Bug問題。歡迎下載體驗。（點擊下方按鈕下載）

立即點擊下載FastReport VCL v6.9最新版

在交互式報表中，可以定義對鼠標單擊預覽窗口中任何報表對象的反應。例如，用戶可以單擊數據行，從而運行包含所選行的詳細數據的新報告。

任何報告都可以互動。為此，您只需要創建一個TfrxReport.OnClickObject事件處理程序。以下是此處理程序的代碼示例：

Pascal:

procedure TForm1.frxReport1ClickObject(Page: TfrxPage; View: TfrxView;
  Button: TMouseButton; Shift: TShiftState; var Modified: Boolean);
begin
  if View.Name = 'Memo1' then
    ShowMessage('Memo1 contents:' + #13#10 + TfrxMemoView(View).Text);
  if View.Name = 'Memo2' then
  begin
    TfrxMemoView(View).Text := InputBox('Edit', 'Edit Memo2 text:', TfrxMemoView(View).Text);
    Modified := True;
  end;
end;

void __fastcall TForm1::frxReport1ClickObject(TfrxView *Sender,
      TMouseButton Button, TShiftState Shift, bool &Modified)
{
  TfrxMemoView * Memo;
  if(Memo =  dynamic_cast <TfrxMemoView *> (Sender))
  {
    if(Memo->Name == "Memo1")
      ShowMessage("Memo1 contents:\n\r" + Memo->Text);
    if(Memo->Name == "Memo2")
    {
      Memo->Text = InputBox("Edit", "Edit Memo2 text:", Memo->Text);
       Modified = true;
    }
  }
}

• 修改傳遞給處理程序的對象或頁面的內容（因此，應指定“ Modified”標志，以便將修改內容考慮在內）；
• 調用TfrxReport.PrepareReport用于重建/重建報告的方法。

同樣，可以為點擊定義不同的反應。例如，它可以運行新報告。有必要注意以下幾點。一個TfrxReport組件只能在預覽窗口中顯示一個報告。這就是為什么應該在單獨的TfrxReport對象中或在同一對象中運行報表，但是必須刪除當前報表的原因。

為了向最終用戶提供有關可點擊對象的提示，我們可以在鼠標光標經過預覽窗口中的可點擊對象時對其進行修改。為此，請在報表設計器中選擇所需的對象，并將其cursor屬性設置為crDefault以外的其他值。

另一個細節涉及定義可點擊對象。在簡單的報表中，可以在對象的名稱或其內容中定義它。但是，這并不總是在更復雜的情況下執行。例如，應在選定的數據行中創建詳細的報告。用戶單擊內容為“ 12”的?Memo1?對象。該對象指的是什么數據線？這就是為什么您應該知道主鍵，它清楚地標識了這一行的原因。FastReport可以為每個報表的對象分配一個字符串，其中包含任何數據（在本例中為主鍵的數據）。此字符串存儲在TagStr屬性中。

讓我們通過一個報告示例來說明此過程，該示例包含在FastReportDemo.exe-“簡單列表”演示中。這是公司的客戶列表，其中包含諸如“客戶名稱”，“地址”，“聯系人”等數據。數據源是DBDEMOS演示數據庫中的“ Customer.db”表。該表具有一個主鍵，即?CustNo?字段，該字段未在報告中顯示。我們的任務是通過單擊完成的報告中的任何對象來確定其引用的記錄，這意味著獲取主鍵的值。為此，只需TagStr在“主數據”區域中的所有對象的屬性中輸入以下值：

[Customers."CustNo"]

如果主鍵是復合鍵（即它包含多個字段），則TagStr屬性的內容可以如下：

[Table1."Field1"];[Table1."Field2"]