unit FirstSampleclientMain;

interface

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

type
  TFirstSampleclientMainForm = class(TForm)
    DAPoweredByDataAbstractButton1: TDAPoweredByDataAbstractButton;
    FillButton: TButton;
    UpdateButton: TButton;
    DBGrid1: TDBGrid;
    procedure FillButtonClick(Sender: TObject);
    procedure UpdateButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FirstSampleclientMainForm: TFirstSampleclientMainForm;

implementation

uses
  FirstSampleClientData;

{$R *.dfm}

procedure TFirstSampleclientMainForm.FillButtonClick(Sender: TObject);
begin
  FirstSampleClientDataModule.tbl_Customers.Open;
  UpdateButton.Enabled:=True;
end;

procedure TFirstSampleclientMainForm.UpdateButtonClick(Sender: TObject);
begin
  FirstSampleClientDataModule.tbl_Customers.ApplyUpdates;
end;

end.