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

我 們 選 擇 了 在 BeforeDispatchPage 事 件 中 將 Session 取 出 並 Lock 後 對 應 至 FDeleteArray 中 。

procedure TMySessionPagedAdapter.WebPageModuleAfterDispatchPage(

Sender: TObject; const PageName: String);

begin

VarArrayUnLock(FSessionVariant);

Session.Values[''''DeleteList'''']:=FSessionVariant;

end;

在 Dispatch 之 後 我 們 將 Variant UnLock 後 存 回 Session 中 。

procedure TMySessionPagedAdapter.AdaptDeleteGetValue(Sender: TObject;

var Value: Boolean);

begin

Value:=FindSession(AdaptFileName.Value,foNothing);

end;

我 們 在 這 個 範 例 中 提 供 一 個 checkbox 在 每 一 筆 資 料 後 面 ， 這 個 值 必 須 由 Session 中 取 出 。

procedure TMySessionPagedAdapter.AdaptDeleteUpdateValue(Sender: TObject;

Value: Boolean);

begin

AddToList(FStrings.Names[OrpEditablePagedAdapter1.CurrentUpdateIndex])

end;

當 使 用 者 選 定 檔 案 或 是 切 換 至 其 它 的 Page 時 ， 我 們 要 執 行 Adapter 的 UpdateRecords 函 式 ， 她 會 觸 發 AdapterField 的 UpdateValue 事 件 ， 這 裡 我 們 使 用 了 TOrpEditablePagedAdapter 的 特 有 屬 性 :CurrentUpdateIndex ， 這 個 屬 性 會 告 知 我 們 目 前 更 新 的 記 錄 位 置 ， 我 們 再 由 FStrings 取 出 對 應 的 檔 名 .

procedure TMySessionPagedAdapter.ActionPrevPageBeforeExecute(

Sender: TObject; Params: TStrings; var Handled: Boolean);

var

I,iClearStart,iClearEnd:Integer;

begin

FSessionVariant:=Session.Values[''''DeleteList''''];

FDeleteArray:=VarArrayLock(FSessionVariant);

标签：

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