unit fClientForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
  uROClient, uROClientIntf, uRORemoteService, uROBinMessage,
  uROPoweredByRemObjectsButton, uDAPoweredByDataAbstractButton, ExtCtrls, Grids,
  DBGrids;

type
  TClientForm = class(TForm)
    Panel1: TPanel;
    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
    btLoad: TButton;
    btUpdate: TButton;
    chUseReducedDeltas: TCheckBox;
    dgData: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure btLoadClick(Sender: TObject);
    procedure btUpdateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ClientForm: TClientForm;

implementation

uses
  fClientDataModule;  
  
{$R *.dfm}

procedure TClientForm.btLoadClick(Sender: TObject);
begin
  with ClientDataModule do begin
    tbl_Workers.ClearRows(true);
    RemoteDataAdapter.Fill([tbl_Workers]);
  end;
end;

procedure TClientForm.btUpdateClick(Sender: TObject);
begin
  with ClientDataModule do begin
    DataStreamer.SendReducedDelta := chUseReducedDeltas.Checked;
    RemoteDataAdapter.ApplyUpdates([tbl_Workers]);
  end;
end;

procedure TClientForm.FormCreate(Sender: TObject);
begin
  // TODO: until DynamicRequest bug fixed
  //ClientDataModule.Login;
  Application.Title := ClientForm.Caption;  
end;

end.