63 lines
1.6 KiB
ObjectPascal
63 lines
1.6 KiB
ObjectPascal
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.
|
|
|