----------------------------------程----------------------------------
IWRun(TformBase, TIWServerController);
------------------------------------------------------------------------




----------------------------------程----------------------------------
procedure TframMenu.Move(AFormClass: TIWAppFormClass);
begin
 TIWAppForm(RWebApplication.ActiveForm).Release;
 AFormClass.Create(RWebApplication).Show;
end;
------------------------------------------------------------------------





----------------------------------程----------------------------------
AFormClass.Create(RWebApplication).Show;------------------------------------------------------------------------




----------------------------------程----------------------------------
(程式List 1，部分較無關主題以虛線代替，完整程式可至RUN!PC網站下載List1.pas)

unit IWformEmployeeGrid;
……
type
  …..
  TformEmployeeGrid = class(TformEmployee)
    …………..
  private
    FDBKey:string;
    FDBState:TLastEvent;
    CurrentPage:Integer;
    …………….
  end;
　…………..
procedure TformEmployeeGrid.ReloadState;
begin
 InitData;
 if FDBKey <> '' then
 begin
      MainDM.tbEmployee.Locate('EmpNo',FDBKey,[]);
      case FDBState of
       stNavEdit:
              MainDM.tbEmployee.Edit;
       stNavInsert:
              MainDM.tbEmployee.Insert;
    end;
  end;
end;

procedure TformEmployeeGrid.SaveState(LastEvent:TLastEvent=stGridClick);
begin
  FDBKey:=MainDM.tbEmployee.FieldByName('EmpNo').AsString;
  FDBState:=LastEvent;
end;

function TformEmployeeGrid.IsBOF:Boolean;
begin
  Result:=UserSession.CurrentPage;
end;

procedure TformEmployeeGrid.btnNextClick(Sender: TObject);
begin
  inherited;
  MainDM.tbEmployee.First;
  Inc(CurrentPage);
  MainDM.tbEmployee.MoveBy(CurrentPage*10);
  SaveState;
  MaintainPage;
end;

procedure TformEmployeeGrid.btnPrevClick(Sender: TObject);
begin
  inherited;
  MainDM.tbEmployee.First;
  Dec(CurrentPage);
  MainDM.tbEmployee.MoveBy(CurrentPage*10);
  SaveState;
  MaintainPage;
end;
………………….
end.------------------------------------------------------------------------





----------------------------------程----------------------------------
HiddenParams.Clear;------------------------------------------------------------------------