Web Application 開 發 利 器 - WebSnap(七)(8…

2008-04-09 04:29:13来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

procedure TMyPageAdapter.AdaptDeleteFileGetParams(Sender: TObject;

Params: TStrings);

begin

Params.Add(''''FileName='''' AdaptFileName.Value);

end;

OnGetParams 會 在 網 頁 顯 示 前 被 觸 發 , 因 此 我 們 利 用 她 的 Params 參 數 來 加 入 檔 案 名 稱 , 這 樣 當 Action 被 觸 發 時 這 個 參 數 就 會 傳 到 我 們 的 OnExecute 事 件 中 , 我 們 就 可 以 利 用 這 個 參 數 值 來 刪 除 該 檔 案 , 要 完 全 了 解 這 部 份 的 動 作 我 們 要 觀 察 網 頁 中 的 程 式 碼 :

<input type="submit" value="DeleteFile" onclick="AdapterForm1.

__act.value=''''FileName.13.inventory.rtf__p.13.MyPageAdapter__id.38.MyPageAdapter.PagedAdapter1.DeleteFile''''">

你 可 以 看 到 紅 色 字 的 部 份 , 這 就 是 我 們 在 OnGetParams 所 填 入 的 參 數 值 , 當 使 用 者 按 下 按 紐 後 TAdapterDispatcher 會 取 出 這 個 參 數 值 並 送 到 我 們 的 OnExecute 事 件 中 。 完 成 設 計 網 頁 的 動 作 後 這 個 程 式 就 算 完 成 了 , 你 已 經 擁 有 一 個 簡 單 的 檔 案 總 管 了 , 接 下 來 你 可 以 結 合 使 用 者 管 理 與 其 它 一 些 控 制 之 後 , 就 可 以 達 到 類 似 PCHome 個 人 網 頁 的 能 力 了 , 這 些 就 當 成 是 你 的 練 習 題 了 。

7-3 TOrpEditablePagedAdapter

原 本 我 一 直 避 免 在 這 篇 文 章 中 論 及 元 件 設 計 , 可 是 我 後 來 想 想 , 這 個 範 例 對 你 來 說 可 能 是 蠻 有 用 的 , 但 是 我 不 打 算 在 這 篇 文 章 中 解 釋 元 件 設 計 , 因 為 那 得 用 一 篇 文 章 才 能 交 代 各 個 Interface 間 的 互 動 及 協 調 , 但 我 又 很 想 將 這 個 範 例 與 你 分 享 , 所 以 我 下 了 個 決 定 , 我 將 元 件 給 你 , 但 原 始 碼 等 到 Inside WebSnap 時 再 詳 細 的 解 釋 ! 還 記 得 我 們 上 一 節 的 範 例 嗎 ? 基 本 上 看 起 來 是 很 不 錯 , 但 是 我 們 必 須 承 認 , 她 還 不 是 很 實 用 , 也 不 足以 啟 發 你 其 它 的 聯 想 , 所 以 我 完 成 了 這 個 範 例 , 要 編 譯 這 個 範 例 , 你 必 須 要 先 安 裝 Orpdemo.bpl 這 個 Package , 裡 面 有 一 個 TOrpEditablePagedAdapter 元 件 , 她 是 基 於 TPagedAdapter 再 加 入 可 編 修 資 料 的 能 力 , 我 們 利 用 她 來 完 成 我 們 上 一 節 中 未 完 成 的 範 例 , 這 個 檔 案 總 管 可 以 讓 使 用 者 先 挑 選 要 刪 除 的 資 料 , 之 後 按 下 刪 除 的 按 紐 後 刪 除 資 料 , 這 不 只 可 以 用 在 刪 除 檔 案 , 你 也 可 以 利 用 她 來 將 使 用 者 選 擇 的 檔 案 壓 縮 後 讓 使 用 者 下 載 , 亦 或 是 購 物 車 , 或 者 更 多 地 方 ! 這 也 是 我 為 何 會 破 例 在 這 篇 文 章 中 展 示 她

标签:

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

上一篇:Delphi控件的拿来主义(三)

下一篇:Pascal 精要--第一章