unit CalcFields_ClientMain;

interface

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

type
  TCalcFields_ClientMainForm = class(TForm)
    OpenCloseButton: TButton;
    gCustomers: TDBGrid;
    ApplyUpdatesButton: TButton;
    ROPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton;
    procedure OpenCloseButtonClick(Sender: TObject);
    procedure ApplyUpdatesButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CalcFields_ClientMainForm: TCalcFields_ClientMainForm;

implementation

uses CalcFields_ClientData;

{$R *.dfm}

procedure TCalcFields_ClientMainForm.OpenCloseButtonClick(Sender: TObject);
begin
  with CalcFields_ClientDataForm do
    tbl_Customers.Active := not tbl_Customers.Active;
end;

procedure TCalcFields_ClientMainForm.ApplyUpdatesButtonClick(Sender: TObject);
begin
  CalcFields_ClientDataForm.tbl_Customers.ApplyUpdates(True)
end;

end.