unit MultiLevelDetailClient_Main;

interface

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

type
  TMultiLevelDetailClient_MainForm = class(TForm)
    Panel1: TPanel;
    FillButton: TButton;
    gOrderDetails: TDBGrid;
    Splitter1: TSplitter;
    gProducts: TDBGrid;
    Splitter2: TSplitter;
    gCategories: TDBGrid;
    UpdateButton: TButton;
    procedure FillButtonClick(Sender: TObject);
    procedure UpdateButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MultiLevelDetailClient_MainForm: TMultiLevelDetailClient_MainForm;

implementation

uses
  MultiLevelDetailClient_Data;

{$R *.dfm}

procedure TMultiLevelDetailClient_MainForm.FillButtonClick(Sender: TObject);
begin
  MultiLevelDetailClient_DataModule.tbl_Categories.Open;
end;

procedure TMultiLevelDetailClient_MainForm.UpdateButtonClick(Sender: TObject);
begin
  MultiLevelDetailClient_DataModule.tbl_Categories.ApplyUpdates;
end;

end.