[分享]数据集和数据集代理**

alang

数据集代理TDataSetBroker是通过指定信息代理，指定数据集ID来代理这个数据集的
数据源TDataSource是通过直接用数据集对象对它的DataSet属性赋值代理这个数据集的
数据集可以是在信息中，通过数据集ID来访问，也可以不在信息中

alang

通过数据集的URL，创建信息中的数据集
function TMainForm.GetDataSetByURL(AURL: String): TDataSet;
var
  lBizClassURL: TBizClassURL;
begin
  //根据给定的BizURL，创建数据集
  lBizClassURL := TBizClassURL.Create;
  lBizClassURL.BizURL.URL := AURL;
  Result := Context.GetItem(lBizClassURL.BizURL) as TDataSet;
  lBizClassURL.Free;
end;

procedure TMainForm.Button4Click(Sender: TObject);
var
  lDataSet: TDataSet;
begin
  //根据给定的BizURL，创建数据集
  lDataSet := GetDataSetByURL('Biz:\LZ\DLKJXX.Info\BZSJJ1.DataSet');
  lDataSet.Open;
  Dialogs.ShowMessage(lDataSet.Fields[0].AsString);
end;

alang

运行期创建的数据集，也可以创建在信息中，通过数据集ID来访问
function TMainForm.CreateDataSetInInfo(AInfo: TInfo; AID, AConnectionStr, ASQL: String): TSQLDataSet;
begin
  Result := TSQLDataSet.Create(AInfo);
  Result.ID := AID;
  Result.ConnectionString := 'DATABASEURL='+AConnectionStr;
  Result.Connection.Transaction := AInfo.Transaction;
  Result.SQL.Text := ASQL;
  Result.Open;
  //注意，这句必须有，否则Info.DataSetByID会报错
  AInfo.RefreshList;
end;

procedure TMainForm.Button6Click(Sender: TObject);
var
  lDataSet: TSQLDataSet;
  lInfo: TInfo;
  lID: String;
begin
  lID := 'DataSet'+SysUtils.IntToStr(Random(1000));
  lInfo := GetInfoByURL('Biz:\LZ\DLKJXX.Info');
  lDataSet := CreateDataSetInInfo(lInfo, lID, 'Biz:\OPERATION\OPERATIONDB.DATABASE', 'SELECT * FROM CRM_CUSTOMER');
  lDataSet.Open;
  InfoBroker1.AutoBroker := False;
  InfoBroker1.Info := lInfo;
  DataSetBroker1.InfoBroker := InfoBroker1;
  DataSetBroker1.DataSetID := lID;
end;

alang

function TMainForm.CreateDataSet(AConnectionStr, ASQL: String): TSQLDataSet;
begin
  Result := TSQLDataSet.Create(Self);
  Result.ConnectionString := 'DATABASEURL='+AConnectionStr;
  Result.SQL.Text := ASQL;
  Result.Open;
end;

procedure TMainForm.Button7Click(Sender: TObject);
var
  lDataSet: TSQLDataSet;
begin
  lDataSet := CreateDataSet('Biz:\OPERATION\OPERATIONDB.DATABASE', 'SELECT * FROM CRM_CUSTOMER');
  DataSource1.DataSet := lDataSet;
  DataGrid1.DataSource := DataSource1;
end;