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

hsq101783 · 发表于 2007-4-2 22:30:40

想实现智能查询,不知道从哪里下手,希望给点思路或者简单说说怎么可以实现?
比如查询条件: 时间,编号,得出产品结果.这个,我不想通过简单SQL来做.

atiger · 发表于 2007-4-3 10:01:30

那就自己做查询界面就可以了，不明白楼主遇到哪些问题呢?

songyun · 发表于 2007-4-6 10:27:45

建了一个决策数据集，可是做了多条件查询，却实现不了。生成的窗体上放了InfoBroker1、datagrid.借别人的思路来做的，效果如下

songyun · 发表于 2007-4-6 10:29:50

刚学，不知道还缺什么控件来相互调用数据。
格式如上所示：上半部分给用户定义自己感兴趣的条件
下半部分为DATAGRID，显示查询结果

songyun · 发表于 2007-4-6 11:51:50

实现以上功能都需要什么控件，不知道可否指点迷津？

atiger · 发表于 2007-4-6 14:54:41

你用的是决策数据集还是标准数据集，不过实现大致是一样的，
1、拖一个数据集代理下来，然后连接到实际的数据集上
2、根据输入的条件，传到数据集上就可以了。
参考：
http://bbs.justep.com/forum.php?mod=viewthread&tid=590
http://bbs.justep.com/forum.php?mod=viewthread&tid=3573

songyun · 发表于 2007-4-6 16:41:34

我用的是标准数据集。

songyun · 发表于 2007-4-6 16:50:37

4楼的第一步，我做好了。
到第二步，我过不去。因为看了你给的帖子，有点迷糊，我想用BuildFilter，需要往窗体里加什么组件？还是直接写进代码里？

atiger · 发表于 2007-4-6 16:59:09

嗯，看4楼

songyun · 发表于 2007-4-6 17:16:23

看了，看不懂，郁闷，我是这样写的代码。
unit MainForm;

interface

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

type
  TMainForm = class(TForm)
FuncBroker: TFuncBroker;
InfoBrokerXGDRCYWXX: TInfoBroker;
ControlBar: TControlBar;
DataNavigator: TDataNavigator;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
DataGrid1: TDataGrid;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
InfoBroker1: TInfoBroker;
DataSetBroker1: TDataSetBroker;
DataGrid1BH: TDataGridColumn;
DataGrid1SSXGD: TDataGridColumn;
DataGrid1XM: TDataGridColumn;
DataGrid1XB: TDataGridColumn;
DataGrid1SFZHM: TDataGridColumn;
DataGrid1CSNY: TDataGridColumn;
DataGrid1JG: TDataGridColumn;
DataGrid1MZ: TDataGridColumn;
DataGrid1XL: TDataGridColumn;
DataGrid1ZC: TDataGridColumn;
DataGrid1HYZK: TDataGridColumn;
DataGrid1GZZW: TDataGridColumn;
DataGrid1XZJB: TDataGridColumn;
DataGrid1ZZMM: TDataGridColumn;
DataGrid1BYXX: TDataGridColumn;
DataGrid1SXZY: TDataGridColumn;
DataGrid1GRZZ: TDataGridColumn;
DataGrid1SFYJRC: TDataGridColumn;
DataGrid1YJDW: TDataGridColumn;
DataGrid1YJNY: TDataGridColumn;
DataGrid1SFPYRC: TDataGridColumn;
DataGrid1PYNY: TDataGridColumn;
DataGrid1PYDW: TDataGridColumn;
DataGrid1GWPY: TDataGridColumn;
DataGrid1QWPY: TDataGridColumn;
DataGrid1QNPY: TDataGridColumn;
DataGrid1BDZK: TDataGridColumn;
DataGrid1BDNY: TDataGridColumn;
DataGrid1JL: TDataGridColumn;
DataGrid1HJQK: TDataGridColumn;
DataGrid1MQCDXM1: TDataGridColumn;
DataGrid1XM1JS: TDataGridColumn;
DataGrid1MQCDXM2: TDataGridColumn;
DataGrid1XM2JS: TDataGridColumn;
DataGrid1MQCDXM3: TDataGridColumn;
DataGrid1XM3JS: TDataGridColumn;
DataGrid1MQCDXM4: TDataGridColumn;
DataGrid1XM4JS: TDataGridColumn;
DataGrid1MQCDXM5: TDataGridColumn;
DataGrid1XM5JS: TDataGridColumn;
DataGrid1XP: TDataGridColumn;
DataGrid1CDXMQK: TDataGridColumn;
DataGrid1XXDS: TDataGridColumn;
DataGrid1ZXDS: TDataGridColumn;
DataGrid1GZDS: TDataGridColumn;
DataGrid1DXDDXBK: TDataGridColumn;
DataGrid1GDSS: TDataGridColumn;
DataGrid1GDBS: TDataGridColumn;
DataGrid1GZ: TDataGridColumn;
DataGrid1XC: TDataGridColumn;
DataGrid1XMMC: TDataGridColumn;
DataGrid1LXRQ: TDataGridColumn;
DataGrid1WCRQ: TDataGridColumn;
DataGrid1XMJB: TDataGridColumn;
DataGrid1DRJS: TDataGridColumn;
DataGrid1XMJE: TDataGridColumn;
DataGrid1XMZK: TDataGridColumn;
DataLocateComboBox1: TDataLocateComboBox;
DataLocateComboBox2: TDataLocateComboBox;
DataLocateComboBox3: TDataLocateComboBox;
DataLocateComboBox4: TDataLocateComboBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure BizFormCreate(Sender: TObject);
  private
{private declarations}
  public
{public declarations}
  end;

implementation

procedure TMainForm.BizFormCreate(Sender: TObject);
begin

end;

end.

		自动登录	找回密码
密码			立即注册