【搞定】[请求]自定义查询怎么那么难实现？**

atiger

你写啥代码了，
procedure TMainForm.BizFormCreate(Sender: TObject);
begin

end;
里面的内容呢？其他的是系统自动生成的，

songyun

原来如此。可否试着举个例子说明下。

alang

请参考 http://wiki.justep.cn/mywiki/moi ... ghlight=%28query%29

alang

这个是信息中的两个数据集
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
object DataSetCXTJSJJ: TUserDataSet
  Relation.DeleteRule = krNoAction
  Relation.UpdateRule = krNoAction
  UpdateOptions.Enabled = False
  ID = 'CXTJSJJ'
  DisplayName = #26597#35810#26465#20214#25968#25454#38598
  CheckConstraints = <>
  Left = 146
  Top = 106
  object FIELD_CXTJSJJ_XSY: TUserDataField
    ID = 'XSY'
    DisplayName = #38144#21806#21592
    DataType = dtString
    DataTypeAttribute.Size = 32
    EditStyleID = 'String'
    AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
    StoredProps = {
      417474726962757465730D0A4175746F46696C6C4465660D0A446973706C6179
      4E616D650D0A456C656D656E740D0A4C6F6F6B75704465660D0A}
  end
  object FIELD_CXTJSJJ_DDJE: TUserDataField
    ID = 'DDJE'
    DisplayName = #35746#21333#37329#39069
    DataType = dtNumber
    DataTypeAttribute.Precision = 15
    DataTypeAttribute.Scale = 0
    EditStyleID = 'String'
    AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
    StoredProps = {
      417474726962757465730D0A4175746F46696C6C4465660D0A446973706C6179
      4E616D650D0A456C656D656E740D0A4C6F6F6B75704465660D0A}
  end
  object FIELD_CXTJSJJ_JSQDRQ: TUserDataField
    ID = 'JSQDRQ'
    DisplayName = #32467#26463#31614#35746#26085#26399
    DataType = dtDateTime
    EditStyleID = 'String'
    AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
    StoredProps = {
      417474726962757465730D0A4175746F46696C6C4465660D0A446973706C6179
      4E616D650D0A456C656D656E740D0A4C6F6F6B75704465660D0A}
  end
  object FIELD_CXTJSJJ_QSQDRQ: TUserDataField
    ID = 'QSQDRQ'
    DisplayName = #36215#22987#31614#35746#26085#26399
    DataType = dtDateTime
    EditStyleID = 'String'
    AutoFillDef.Trigger = [ftOnInsert, ftOnEdit, ftOnDataChange]
    StoredProps = {
      417474726962757465730D0A4175746F46696C6C4465660D0A446973706C6179
      4E616D650D0A456C656D656E740D0A4C6F6F6B75704465660D0A}
  end
end
object DataSetDDSJJ: TSQLDataSet
  Relation.DeleteRule = krNoAction
  Relation.UpdateRule = krNoAction
  ID = 'DDSJJ'
  DisplayName = #35746#21333#25968#25454#38598
  Database.Reference = 'BizZSJK1.Database'
  CheckConstraints = <>
  Params = <>
  SQL.Text = 'SELECT *'#13#10'  FROM DDB'
  Left = 146
  Top = 106
end

alang

这是查询用的文档
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
unit CXTJ;

interface

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

type
  TCXTJ = class(TFormDoc)
    InfoBroker: TInfoBroker;
    DataEdit1: TDataEdit;
    DataEdit2: TDataEdit;
    DataEdit3: TDataEdit;
    DataEdit4: TDataEdit;
    DataSetBroker1: TDataSetBroker;
    DataLabel1: TDataLabel;
    DataLabel2: TDataLabel;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TCXTJ.Button1Click(Sender: TObject);
begin
//用TSQLDataSet模式
  TDDCXXX(InfoBroker.Info).QueryOrder;

//用Query模式
//  TDDCXXX(InfoBroker.Info).QueryOrderUseringQuery;//QueryOrder;
end;

end.

alang

这是功能主窗体
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
unit MainForm;

interface

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

type
  TMainForm = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerDDCXXX: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    DocViewBar: TDocViewBar;
    Panel: TPanel;
    Splitter: TSplitter;
    DocViewDDCXXX_CXTJ: TDocView;
    DocViewDDCXXX_DDCXJG: TDocView;
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation

end.

songyun

我还在研究住，先别结贴，谢谢，呵呵
还有就是为什么我就是开不了11楼给的地址呢

atiger

你是怎么打开的，你直接点击那个连接就可以了

songyun

我回家就打开得了，郁闷。

atiger

呵呵，还是先解决问题吧