unit QuantumGrid4_ClientMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
  uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROIndyHTTPChannel,
  Grids, DBGrids, ComCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter,
  cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses,
  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, ExtCtrls, DBClient;

type
  TQuantumGrid4_ClientMainForm = class(TForm)
    PageControl: TPageControl;
    TabSheet2: TTabSheet;
    viewCustomers: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    viewOrders: TcxGridDBTableView;
    viewCustomersCustomerID: TcxGridDBColumn;
    viewCustomersCompanyName: TcxGridDBColumn;
    viewCustomersContactName: TcxGridDBColumn;
    viewCustomersContactTitle: TcxGridDBColumn;
    viewCustomersAddress: TcxGridDBColumn;
    viewCustomersCity: TcxGridDBColumn;
    viewCustomersRegion: TcxGridDBColumn;
    viewCustomersPostalCode: TcxGridDBColumn;
    viewCustomersCountry: TcxGridDBColumn;
    viewCustomersPhone: TcxGridDBColumn;
    viewCustomersFax: TcxGridDBColumn;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    viewOrdersOrderID: TcxGridDBColumn;
    viewOrdersCustomerID: TcxGridDBColumn;
    viewOrdersEmployeeID: TcxGridDBColumn;
    viewOrdersOrderDate: TcxGridDBColumn;
    viewOrdersRequiredDate: TcxGridDBColumn;
    viewOrdersShippedDate: TcxGridDBColumn;
    viewOrdersShipVia: TcxGridDBColumn;
    viewOrdersFreight: TcxGridDBColumn;
    viewOrdersShipName: TcxGridDBColumn;
    viewOrdersShipAddress: TcxGridDBColumn;
    viewOrdersShipCity: TcxGridDBColumn;
    viewOrdersShipRegion: TcxGridDBColumn;
    viewOrdersShipPostalCode: TcxGridDBColumn;
    viewOrdersShipCountry: TcxGridDBColumn;
    cxGrid1Level2: TcxGridLevel;
    DBGrid3: TDBGrid;
    Panel2: TPanel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    fLastMaster: Variant;
  public

  end;

var
  QuantumGrid4_ClientMainForm: TQuantumGrid4_ClientMainForm;

implementation

uses QuantumGrid4_ClientData, uDAInterfaces, uDADataTable;

{$R *.dfm}

procedure TQuantumGrid4_ClientMainForm.Button2Click(Sender: TObject);
begin
  with QuantumGrid4_ClientDataModule.dtCustomers do
    Active := Active xor TRUE;
end;

procedure TQuantumGrid4_ClientMainForm.Button1Click(Sender: TObject);
begin
  QuantumGrid4_ClientDataModule.dtCustomers.ApplyUpdates(TRUE);
end;

end.