unit LocalSchemaMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uDAEngine, uDAADODriver, uDADriverManager, uDAClasses,
  uDADataTable, uDABINAdapter, uDACDSDataTable, DB, StdCtrls, ExtCtrls,
  DBCtrls, Grids, DBGrids, uDABusinessProcessor, uDAScriptingProvider,
  uDADataStreamer;

type
  TLocalSchemaMainForm = class(TForm)
    DriverManager: TDADriverManager;
    ADODriver: TDAADODriver;
    BINAdapter: TDABinDataStreamer;
    DataSource: TDADataSource;
    DataTable: TDACDSDataTable;
    DBGrid1: TDBGrid;
    BusinessProcessor: TDABusinessProcessor;
    eCust1: TEdit;
    eCust2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    ConnectionManager: TDAConnectionManager;
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    bOpenClose: TButton;
    bApplyUpdates: TButton;
    DASchema: TDASchema;
    procedure bOpenCloseClick(Sender: TObject);
    procedure bApplyUpdatesClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LocalSchemaMainForm: TLocalSchemaMainForm;

implementation

{$R *.dfm}

procedure TLocalSchemaMainForm.bOpenCloseClick(Sender: TObject);
begin
  if not DataTable.Active then begin
    DataTable.ParamByName('CustA').AsString := eCust1.Text;
    DataTable.ParamByName('CustB').AsString := eCust2.Text;
  end;

  DataTable.Active := DataTable.Active xor TRUE;
end;

procedure TLocalSchemaMainForm.bApplyUpdatesClick(Sender: TObject);
begin
  BusinessProcessor.ProcessDelta(DataTable, AllChanges);
end;

end.