Web Application 開 發 利 器 - WebSnap（七）(3…

procedure TMyAdapter.AdaptSiteAddressGetValue(Sender:TObject;

var Value: Variant);

begin

Value:=AdaptValueField.Value;

end;

接 著 我 們 開 始 設 計 網 頁 ， 開 啟 Visual Page Designer 視 窗 ， 新 增 一 個 AdapterForm 及 一 個 AdapterGrid 後 ， 你 會 看 到 這 樣 的 畫 面 :

然 後 執 行 程 式 後 我 們 就 可 以 看 到 成 果 了 :

很 簡 單 不 是 嗎 ? 這 個 範 例 讓 我 們 了 解 到 Adapter 的 存 在 意 義 。 我 們 可 以 使 用 TAdapter 來 封 裝 任 何 型 態 的 資 料 ， 並 在 網 頁 中 顯 示 資 料 ， 而 你 只 要 撰 寫 幾 個 事 件 就 可 以 了 ， 這 可 以 應 用 在 許 多 地 方 ， 例 如 檔 案 列 表 、 搜 尋 結 果 或 是 顯 示 一 些 非 正 規 的 資 料 庫 等 等 。 從 這 個 範 例 中 我 們 也 可 以 大 略 猜 到 TDataSetAdapter 如 何 將 資 料 庫 資 料 封 裝 起 來 ， 並 提 供 她 們 給 TAdapterGrid 及 TAdapterFieldGroup 來 顯 示 。 當 然 ! 如 果 你 的 目 的 只 是 要 顯 示 TStringsValueList 中 的 資 料 的 話 ， 那 直 接 將 TStringsValueList 設 給 AdapterGrid 就 行 了 ， 這 裡 我 是 為 了 展 示 以 TAdapter 封 裝 某 種 資 料 的 技 術 才 這 樣 使 用 。

7-2 、 TPagedAdapter

TPagedAdapter 的 功 能 與 使 用 方 式 大 致 與 TAdapter 相 同 ， 不 過 她 增 加 了 分 頁 的 能 力 ， 所 謂 分 頁 的 能 力 指 的 是 當 一 個 網 頁 中 的 資 料 過 多 時 ， 我 們 利 用 一 個 以 上 的 網 頁 來 顯 示 她 們 ， 例 如 你 在 搜 尋 引 擎 查 出 結 果 後 ， 當 結 果 筆 數 超 過 20-30 筆 時 ， 你 會 看 到 網 頁 下 方 有 頁 次 顯 示 ， 利 用 TPagedAdapter 我 們 可 以 輕 易 的 做 出 這 種 網 頁 。 接 下 來 就 讓 我 們 利 用 一 個 檔 案 列 表 的 範 例 程 式 來 展 示 如 何 應 用 TPagedAdpater ， 請 你 新 增 一 個 Page Module 到 專 案 中 ， 將 PageName 設 成 MyPageAdapter 並 選 擇 AdapterPageProducer 為 PageProducer ， 接 著 放 入 一 個 TPagedAdapter 元 件 ， 新 增 兩 個 AdapterField 元 件 到 裡 面 :

然 後 我 們 要 撰 寫 建 立 TStrings 物 件 ， 以 及 將 檔 案 列 表 儲 存 到 TStrings 的 函 式 :

procedure TMyPageAdapter.InitializeList(AListDir:string);

var

sr: TSearchRec;

begin

FStrings.Clear;

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有