【搞定】数据集的问题

wj0623

请教2个数据集的问题
1、有一个400万条记录的表，建立为新的数据集（未自动打开数据集），结果X3系统基本不能操作，打开业务功能大概1小时以上。如何解决？
2、请看下面的代码，想通过数据库过滤生成曲线图，但WHERE过滤功能没有起作用，而是显示的全部数据生成的曲线，如何解决？
with TQuery.Create(Self) do
         try       ConnectionString := 'DATABASEURL=BIZ:\JQGL\JQGLSJK.DATABASE';
           CommandText := 'select SBM  ,NC_MB from SBMXB where SBLX = ' + SysUtils.QuotedStr('SUN 服务器');
          Open;
         finally
           DataChart1.Series[0].XLabelsSource:='SBM';
           DataChart1.Series[0].YValues.ValueSource:='NC_MB';
           DataChart1.Series[0].DataSource:=DataSetBroker3;
         Free;
         end;

谢谢！

wj0623

急啊

wj0623

有人在线帮助吗？

wj0623

我跟踪了SQL查询结果，SELECT的过滤功能是完成了的，但画曲线图时，不理会过滤结果，而是将全部数据画出来。

zfang

DataChart1.Series[0].DataSource:=DataSetBroker3;
那你最好在DataSetBroker3这个代理上做一下数据过滤（sqlfilter /filter之类的）

zfang

对于1
数据集的打开，可以在很多地方可以设置，请检查
（业务信息上，信息中的文档上，功能中的信息策略上，代码中）
另外，对于大数据量的话，最好是在服务端做一下过滤（sqlfilter/userfilter），否则会影响性能

wj0623

在DataSetBroker3这个代理上做数据过滤是可以的，但一个页面上有5个统计图表，不会要做5个数据集来对应吧？能否使用ADOQery的查询来做数据源，如果可以请给一个例子。先谢谢了。

zfang

var
  lQuery : TQuery;
  lDataSource : TDataSource;
begin
  lQuery := TQuery.Create(nil);
  lDataSource := TDataSource.Create(nil);
  try
    lQuery.ConnectionString := 'DATABASEURL=Biz:\PXYS_LX_\SJK.DATABASE';
    lQuery.CommandText :=  'select * from khb where  1 = 1';
    lQuery.Open;
    lDataSource.DataSet := lQuery;
这样就可以得到一个datasource了，仅供参考
DataChart1.Series[0].DataSource:=lDataSource;
具体怎么做要看你实际需要。

alang

DataSetBroker3 是数据集代理，只能对应标准数据集、透视数据集之类的，你1楼给出的代码中的TQuery根本就没有用到，当然显示出来的也不对了
要么用8楼给的，数据源指定到自己的TQuery
要么去过滤DataSetBroker3所代理的数据集

wj0623

谢谢，结帖吧。