本文檢查了 IBM DB2 Universal Database 的元資料，以便動態構建檢視和窗體，其中包括如何動態生成新的 CLX 窗體，以及將窗體流化（stream）為 Delphi .pas 和 .xfm 檔案，並準備將它們新增到 Kylix 和 Delphi CLX 專案中。

簡介
在 上一篇文章中，我檢查了 IBM® DB2® Universal Database™（UDB）的元資料，以便動態構建檢視和窗體。我使用了 Linux 上的 Borland® Kylix™ 3 和 dbExpress 資料訪問驅動程式，來分析 IBM DB2 UDB 資料庫表、欄位（名稱和型別），允許使用者選擇特定的表，來回切換應該顯示的欄位，以及在資料網格（datagrid）和單個數據感知控制元件中動態檢視輸出。

這次，我們將擴充套件該方法，以允許使用者指定更加複雜的查詢（例如 JOIN）。作為附加步驟，我們將產生一個單獨的窗體，並以 .pas 和 .xfm 源格式儲存它，因此，可以將結果窗體新增至 Borland Delphi™ 或 Kylix 專案中。這類似於原來的基於 BDE（且僅用於 Windows）的資料庫-窗體嚮導，但這次產生的是一個跨平臺的 CLX 窗體。

從 Linux 進行遷移
上次，我完成了一個在 Linux 上執行的 Kylix 3 專案。這次，我首先需要將該專案遷移到 Windows 上，並在那裡進行擴充套件（用以說明該專案和由此生成的 CLX 窗體是跨平臺的，既可以用於 Linux 上的 Kylix，也可用於 Windows 上的 Delphi）。

將該專案從 Kylix 遷移到 Delphi 僅涉及一項更改：LibraryName 和 VendorLib 的 TSQLConnection 屬性在 Linux 上被設定為 libsqldb2.so 和 libdb2.so，但在 Windows 上，該屬性必須設為 dbexpdb2.dll 和 db2cli.dll。關於如何建立跨平臺專案的指導，請參閱 大轉變：利用 Kylix 3 從 Windows 遷移到 Linux。

新增 SQL 功能
一旦可以在 Delphi 7 中重新開啟該專案，您就可以對頁面控制的 Meta Data 選項卡進行一些增強。具體地說，您需要允許使用者輸入 SQL 語句，而不是隻能從可用表的列表中選擇表名。圖 1 展示了新的使用者介面（顯示了 EMP_PHOTO 表的欄位），您可以使用左下方的 memo 欄位輸入 SQL 語句。

圖 1. 用於 DB2 的新動態窗體

就在 TMemo 控制元件的正上方，我放置了文字 SELECT * FROM，作為小小的一個提示：使用者只需指定表名，以及下面可選的 where子句。可以用程式碼來構造 SQL 語句，檢索元資料（metadata）來獲取欄位名，並將這些欄位名置於 TCheckListBox 中，該程式碼如下所示：  

作為一個實際示例，我輸入了一條 SQL 語句，以連線 EMPLOYEE 和 EMP_PHOTO 表，該操作是基於 EMPNO 欄位的。因為已經給定了 SELECT * FROM，所以我只需要在查詢 memo 欄位中輸入 EMP_PHOTO, EMPLOYEE WHERE EMP_PHOTO.EMPNO = EMPLOYEE.EMPNO，然後啟用 Select fields from query複選框，這將執行以上程式碼，產生 TCheckListBox 中的欄位列表。

圖 2. 從查詢中選擇欄位

請注意，EMPNO 欄位出現了兩次：一次是在 EMP_PHOTO 表中（稱作 EMPNO），一次是在 EMPLOYEE 表中（然後自動稱作 EMPNO_1）。

在上面的例項中，通過左下方所指定的 where子句，我從查詢中選擇了 PICTURE、FIRSTNME、LASTNAME、PHONENO、HIREDATE 和 SEX 欄位。

為了給 DBGrid 和其他資料感知控制元件提供真正的資料，您需要新增一些程式碼，以獲取表名（從 TListBox 中）或 where子句（從 TMemo 控制元件中）。這項決策是基於複選框的啟用情況的，其編碼如下：

這確保您可以使用帶有表名的 TListBox，或使用帶有 SQL where 子句的 TMemo ，來選擇欄位併為檢視產生資料。

新增更多的控制元件
您在圖 2 中選擇的欄位是 PICTURE 欄位。上次，我在由 TDBMemo 表示的 Memo 欄位之間進行了區分，雖然其他所有欄位都是由 TDBEdit 表示的。對於可以是 ftGraphic 或 ftBlob（本例項中）的 image 欄位，您可以使用 TDBImage 控制元件。請注意，ftBlob 的情況並不是百分之百確定的：大多數 BLOB 欄位只包含二進位制資料，而不是總包含影象。但是對於本例，ftBlob PICTURE 欄位包含影象（以不同的格式，如 bmp 或 gif）。

必須新增一些附加程式碼，以檢測欄位型別，並通過動態建立 TDBImage 對此作出響應，這些附加程式碼片斷如下所示：

在您選擇了 PICTURE、FIRSTNME、LASTNAME、PHONENO、HIREDATE 和 SEX 欄位的示例中，該程式碼的結果如圖 3 所示。

圖 3. 動態資料控制元件預覽

請注意，這裡還有一個附加的按鈕，在這裡，將用它在新的 CLX 窗體上從該 tabsheet 重新建立這些控制元件。該窗體將被流化為 Delphi .pas 原始檔和 .xfm 窗體檔案；並準備將它們新增至 Kylix 或 Delphi CLX 專案中。

設計新的窗體框架
雖然在 tabsheet 中檢視資料效果極佳（如圖 3 中），但是在新的窗體（不同於原先那個您指定了表名或查詢，並選擇了要使用的欄位名的窗體）中檢視控制元件將具有更強大的功能。您必須重新建立 TLabel、TDBEdit、TDBMemo 和 TDBImage 控制元件，這意味著您可以從一個幾乎為空的框架窗體開始，準備建立到 DB2 UDB 資料庫新的 dbExpress 連線，輸入 SQL 語句，並放置資料感知控制元件，以顯示資料。

通過 Delphi 7，我設計了一個新的 CLX 窗體，該窗體包含 TSQLConnection、TSQLDataSet、TDataSetProvider、TClientDataSet、TdataSource 和 TDBNavigator 控制元件；其佈局如圖 4 中所示。像您以前多次做過的那樣，將它們都關聯起來，但是此時還沒有任何資料感知控制元件。

圖 4. 設計時的新窗體模板

現在，應該為圖 3 中首次出現的 Generate Code 按鈕實現 OnClick 事件處理程式了。

生成新的窗體內容
Generate Code 按鈕將建立新 CLX 框架窗體的一個例項，並動態新增 TLabel、TDBEdit、TDBMemo 和 TDBImage 控制元件（使用與原來窗體相同的屬性值）。用來建立新的 CLX 窗體並克隆將放置在新 CLX 窗體上的控制元件的程式碼如下所示：

在該事件處理程式的結尾，通過呼叫 ShowModal 顯示了 NewForm，其結果如圖 5 所示。因為就在顯示該窗體之前激活了 TClientDataSet（關閉該窗體之時再取消啟用狀態），所以該圖將顯示帶有資料的新窗體。

圖 5. 執行時的新窗體

在顯示了該窗體之後，您可以建立一個 Delphi .xfm 檔案，其中包含窗體的流化（streaming）資訊、其上所有的元件及其屬性資訊。對 WriteComponentResFile 的呼叫將為該窗體建立一個二進位制的原始檔。該檔案可用於 Kylix 或 Delphi CLX 專案，但是還需要相應的 .pas 檔案，其中包含窗體上每個元件的原始碼宣告。

生成相關的原始碼
最後一步（也整合在“Generate Code”OnClick 事件處理程式中）是建立包含元件宣告的相應的 .pas 檔案。這是一個由三個階段組成的過程。首先，您要編寫該 .pas 檔案的第一部分，然後動態新增單個 TLabel、TDBEdit、TDBMemo 和 TDBImage 控制元件，最後，新增該 .pas 檔案的最後一部分。

完整的原始碼整合位於事件處理程式之中，可通過下載獲得。

使用結果
其結果就是一個 .pas 以及相應的 .xfm 檔案，可以將它們用於 Linux 上的 Kylix 以及 Windows 上的 Delphi CLX 專案中。例如，目前給出了給定演示的結果窗體，如圖 6 中所示，該圖中顯示了 Delphi 7 在設計時顯示的結果窗體。該窗體與初始的框架窗體一樣，只是添加了 TLabel、TDBImage 和 TDBEdit 控制元件，事實上，Height 已經被修改，以顯示所有控制元件。

圖 6. 設計時生成的新窗體

正如我上次提到的，所生成的窗體不包含呼叫 TClientDataSet 的 ApplyUpdates 方法（用以將更新送回資料庫）或 UndoLastChange，以及其他 Undo 方法的按鈕。這將作為練習留給讀者來完成。作為一點小小的一個提示，我建議在 NewForm 中將這些按鈕新增至框架窗體，因此，您所做的修改將用於所有新生成的窗體中。那樣的話，就可以將 NewForm 視作一個基類，用於所有動態建立的資料庫窗體。

結束語
在這篇以及上一篇文章中，都檢查了 IBM DB2 Universal Database 元資料，以便動態構建檢視和窗體。您已經使用了帶有 dbExpress 的 Linux 上的 Borland Kylix 3，以及 Windows 上的 Delphi 7，來分析 DB2 UDB 資料表、欄位（名稱和型別），允許使用者選擇特定的表或指定 SQL 語句的 join/where 子句，來回切換應該顯示的欄位，以及在資料網格（datagrid）和單個數據感知控制元件中動態檢視輸出。

最後一步包括動態生成新的 CLX 窗體，以及將該窗體流化為 Delphi .pas 和 .xfm 檔案，並準備將它們新增到 Kylix 和 Delphi CLX 專案中（為 DB2 UDB 資料庫表產生我們自己定製的資料庫窗體嚮導）。