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

var EOF: Boolean);

begin

Inc(FIndex);

EOF:=not (FIndex < FStrings.Count);

end;

procedure TMyPageAdapter.PagedAdapter1GetRecordCount(Sender: TObject;

var Count: Integer);

begin

Count:=FStrings.Count;

end;

procedure TMyPageAdapter.PagedAdapter1GetRecordIndex(Sender: TObject;

var Index: Integer);

begin

Index:=FIndex;

end;

procedure TMyPageAdapter.AdaptFileNameGetValue(Sender: TObject;

var Value: Variant);

begin

Value:=FStrings.Names[FIndex];

end;

procedure TMyPageAdapter.AdaptSizeGetValue(Sender: TObject;

var Value: Variant);

begin

Value:=FStrings.Values[FStrings.Names[FIndex]];

end;

接 著 我 們 還 要 設 定 每 一 頁 中 所 顯 示 的 資 料 筆 數 :

最 後 開 啟 Visual Page Designer 加 入 AdapterForm 、 AdapterGrid 、 AdapterCommandGroup 並 設 定 Adapter 特 性 值 及 AdapterAction 後 ， 你 就 可 以 看 到 如 下 的 畫 面 :

在 我 的 電 腦 上 這 個 程 式 執 行 結 果 如 下 :

你 可 以 使 用 畫 面 下 方 的 Page Link 來 切 換 頁 次 ， 或 是 利 用 Prev 、 Next 來 做 上 下 頁 的 切 換 ， 接 著 讓 我 們 加 強 這 個 網 頁 成 為 一 個 具 有 完 整 功 能 的 檔 案 總 管 ， 要 讓 網 頁 具 有 UploadFile 的 能 力 的 話 ， 我 們 必 須 新 增 一 個 新 的 TAdapter ， 並 在 裡 面 新 增

标签：

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