unit XXCB;
interface
uses
Business.System, Business.Model, Business.Forms, Business.Data,
SystemCore;
type
TXXCB = class(DESKTOPINFO.TDESKTOPDOC)
DataSetBroker1: TDataSetBroker;
InfoBroker1: TInfoBroker;
Timer1: TTimer;
ImageList1: TImageList;
ActionList1: TActionList;
PopupMenu1: TPopupMenu;
Grid: TDataTransparentGrid;
procedure actDetailExecute(Sender: TObject);
procedure FormDocCreate(Sender: TObject);
private
function GetTestDataSet: TSQLDataSet;
function GetTestInfo: TXXSJ;
public
property TestDataSet: TSQLDataSet read GetTestDataSet;
property XXSJ: TXXSJ read GetTestInfo;
end;
implementation
function TXXCB.GetTestDataSet: TSQLDataSet;
begin
Result := DataSetBroker1.DataSet as TSQLDataSet;
end;
function TXXCB.GetTestInfo: TXXSJ;
begin
Result := InfoBroker1.Info as TXXSJ;
end;
procedure TXXCB.actDetailExecute(Sender: TObject);
begin
TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\JTTXM\XXCK1.Func','' , False, nil, False);
end;
procedure TXXCB.FormDocCreate(Sender: TObject);
begin
DataSetBroker1.DataSet.Open;
end; //这行是报错的行
end. |