78 lines
2.0 KiB
ObjectPascal
78 lines
2.0 KiB
ObjectPascal
unit BusinessProcessorClientMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
|
|
uROClient, uROClientIntf, uRORemoteService, uROBinMessage, ExtCtrls,
|
|
DBCtrls, Grids, DBGrids;
|
|
|
|
type
|
|
TBusinessProcessorClientMainForm = class(TForm)
|
|
gCustomers: TDBGrid;
|
|
dbnCustomers: TDBNavigator;
|
|
Button1: TButton;
|
|
Button2: TButton;
|
|
Panel1: TPanel;
|
|
ApplyUpdateButton: TButton;
|
|
OpenButton: TButton;
|
|
gOrders: TDBGrid;
|
|
dbnOrders: TDBNavigator;
|
|
Splitter1: TSplitter;
|
|
CreateCustomerButton: TButton;
|
|
CreateOrderButton: TButton;
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure ApplyUpdateButtonClick(Sender: TObject);
|
|
procedure CreateCustomerButtonClick(Sender: TObject);
|
|
procedure CreateOrderButtonClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
BusinessProcessorClientMainForm: TBusinessProcessorClientMainForm;
|
|
|
|
implementation
|
|
|
|
uses
|
|
BusinessProcessorClientData, BizSchemaClient, SchemaClient_Intf;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TBusinessProcessorClientMainForm.Button1Click(Sender: TObject);
|
|
begin
|
|
with BusinessProcessorClientDataModule.tbl_Customers do
|
|
Active := not Active;
|
|
end;
|
|
|
|
procedure TBusinessProcessorClientMainForm.ApplyUpdateButtonClick(Sender: TObject);
|
|
begin
|
|
with BusinessProcessorClientDataModule.tbl_Customers do
|
|
ApplyUpdates();
|
|
end;
|
|
|
|
procedure TBusinessProcessorClientMainForm.CreateCustomerButtonClick(Sender: TObject);
|
|
begin
|
|
with BusinessProcessorClientDataModule.tbl_Customers as IBizCustomers do begin
|
|
Insert;
|
|
CustomerID := 'test';
|
|
CompanyName := 'test company';
|
|
Post;
|
|
end;
|
|
end;
|
|
|
|
procedure TBusinessProcessorClientMainForm.CreateOrderButtonClick(Sender: TObject);
|
|
begin
|
|
with BusinessProcessorClientDataModule.tbl_Orders as IBizOrders do begin
|
|
Insert;
|
|
OrderID := 1;
|
|
Freight := 10;
|
|
Post;
|
|
end;
|
|
end;
|
|
|
|
end.
|
|
|