cbx 应用 ao调用bpl对象示例

AO调用bpl中对象例子

Unit uAO_AoDemoBpl;

Interface

Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uModRoot, ExtCtrls, StdCtrls, udmCLXBaseAppX, ImgList, Menus, udatamodule,（bpl中对象单元名称）
DB, DBClient, Grids, DBGrids, ComCtrls;

Type
TAO_AoDemoBpl = Class(TModRoot)
    DataSource1: TDataSource;
    pnl1: TPanel;
    btn5: TButton;
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    btn6: TButton;
    pnl2: TPanel;
    dbgrd1: TDBGrid;
    btn4: TButton;
    Procedure btn5Click(Sender: TObject);
    Procedure btn6Click(Sender: TObject);
    Procedure btn1Click(Sender: TObject);
    Procedure btn2Click(Sender: TObject);
    Procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
Private
    { Private declarations }
Public
    { Public declarations }
    procedure InitModule(Data: string; SvrHost: string); override;
End;

Function GetModClass: TModRootClass;

Implementation
{$R *.dfm}

Exports
GetModClass;

Function GetModClass: TModRootClass;
Begin
Result := TAO_AoDemoBpl;
End;

Procedure TAO_AoDemoBpl.btn5Click(Sender: TObject);

Begin

DataModule1.cds1.Close;

DataModule1.cds1.Open;

End;

Procedure TAO_AoDemoBpl.btn6Click(Sender: TObject);
Begin

End;

 

procedure TAO_AoDemoBpl.InitModule(Data, SvrHost: string);

begin
inherited;
   //设置bpl中 datamodule1中对象属性
DataModule1.ROWinInetHTTPChannel1.TargetURL := 'http://61.128.123.88/CBX/AppSvr.dll/Bin';
DataModule1.RODataSnapConnection1.ServerName := 'XO_ycyl';
DataModule1.cds1.RemoteServer := DataModule1.RODataSnapConnection1;
DataModule1.cds1.ProviderName :='DataSetProvider1';
DataSource1.DataSet := DataModule1.cds1;
end;

Procedure TAO_AoDemoBpl.btn2Click(Sender: TObject);
Begin
Inherited;
  
    DataModule1.cds1.Append;

End;

Procedure TAO_AoDemoBpl.btn3Click(Sender: TObject);
Begin
Inherited;
     DataModule1.cds1.ApplyUpdates(-1);
  
End;

procedure TAO_AoDemoBpl.btn4Click(Sender: TObject);
begin
inherited;
   DataModule1.cds1.Close;
end;

End.