【结帖】工作台中弹出窗体问题。**

lhb963

TSystemCore.FuncManager.RunFunc(Context, '', 功能URL,'' ,'你的条件'
False, nil, False);

然后在功能处理窗体里面的FormCreate里面
databroker.dataset.close;
databroker.dataset.SqlFilter:=FuncBroker.Func.Parameters;
databroker.dataset.SqlFilter:=true;
databroker.dataset.open;

我按这个改了，以后在功能处理窗体中编译报错：“[[错误]Biz:\OPERATION\SXY\WJJ1\GZRWXX.FUNC.DIR\MainForm.Form.pas(31, 26): Undeclared identifier "SqlFilter"
[错误]Biz:\OPERATION\SXY\WJJ1\GZRWXX.FUNC.DIR\MainForm.Form.pas(32, 26): Undeclared identifier "SqlFilter"
”
请问怎么解决？

jiahaiminghr

TSqlDataset(databroker.dataset).SqlFilter

lhb963

数据没有过滤出来，都是显示的同一个结果。
这个是工作台上的代码：
unit DESKTOPDOCCHILD;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data, Business.Data,
  SystemCore;

type
  TDESKTOPDOCCHILD = class(DESKTOPINFO.TDESKTOPDOC)
    DataTransparentGrid1: TDataTransparentGrid;
    DataSetBroker1: TDataSetBroker;
    InfoBroker1: TInfoBroker;
    procedure DataTransparentGrid1Click(Sender: TObject);
    procedure actDetailExecute(Sender: TObject);
    procedure FormDocCreate(Sender: TObject);
  private
    {private declarations}
    function GetTestDataSet: TSQLDataSet;
    function GetTestInfo: TYWXX1;
   // procedure DoGetPlanFieldsEvent(var APlanFields: string);
  public
    property TestDataSet: TSQLDataSet read GetTestDataSet;
    property YWXX1: TYWXX1 read GetTestInfo;
  end;

implementation


procedure TDESKTOPDOCCHILD.DataTransparentGrid1Click(Sender: TObject);
begin
  actDetailExecute(DataTransparentGrid1);

end;
function TDESKTOPDOCCHILD.GetTestDataSet: TSQLDataSet;
begin
  Result := DataSetBroker1.DataSet as TSQLDataSet;
end;
function TDESKTOPDOCCHILD.GetTestInfo: TYWXX1;
begin
  Result := InfoBroker1.Info as TYWXX1;
end;
procedure TDESKTOPDOCCHILD.actDetailExecute(Sender: TObject);
begin
TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\OPERATION\SXY\GZRWXX.Func',
   GetTestDataSet.FieldByName('ID').AsString , False, nil, False);
end;

procedure TDESKTOPDOCCHILD.FormDocCreate(Sender: TObject);
begin
  Inherited;
TestDataSet.Open;
end;

end.

lhb963

这个是要打开的窗体上的代码：
unit MainForm;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Data,Business.System.SysUtils;

type
  TMainForm = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerYWXX1: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    DocViewBar: TDocViewBar;
    Panel: TPanel;
    DocViewYWXX1_GZRWWD: TDocView;
    DataSetBroker1: TDataSetBroker;
    procedure BizFormCreate(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TMainForm.BizFormCreate(Sender: TObject);
begin
  DataSetBroker1.dataset.close;
  TSqlDataset(DataSetBroker1.DataSet).SqlFilter:='ID='+FuncBroker.Func.Parameters;
  //DataSetBroker1.dataset.SqlFilter:=true;
  DataSetBroker1.dataset.open;

end;

end.

lhb963

帮忙看看，那的问题，我就是想把点击的记录显示出来。

alang

DataSetBroker1.dataset.close;
  TSqlDataset(DataSetBroker1.DataSet).SqlFilter:='ID='+FuncBroker.Func.Parameters;
   TSqlDataset(Dataset(DataSetBroker1.DataSet).SqlFiltered:=true;
  DataSetBroker1.dataset.open;

lhb963

按上面的改完后（应该这样：TSqlDataset(DataSetBroker1.DataSet).SqlFiltered:=true;），打开窗体时报错。如图：

lhb963

我试了一下“FuncBroker.Func.Parameters;”没有接到东西。

alang

8楼怎么试的？

lhb963

我在要打开的窗体中加了个“ dialogs.ShowMessage('传递的id是：'+FuncBroker.Func.Parameters);”，输出了下。