【搞定】2617取数据慢

lili7912

procedure TMainForm.BizFormShow(Sender: TObject);
var
  lFilter,lDateFilter: string;
begin
  dsbYZJL.DataSet.close;
  lFilter := '(SSDW LIKE ''' + 'S11JH0340030' + '%'')'; //to do by bwk
  lDateFilter:=' AND (to_Date(to_Char(TCNY, ''yyyy.mm''), ''yyyy.mm'') <= to_Date('''
  + IntToStr(2006) + '-' + IntToStr(4) + ''', ''yyyy.mm''))';
  TSQLDataset(dsbYZJL.DataSet).SqlFiltered :=False;
  TSQLDataset(dsbYZJL.DataSet).SqlFilter:= 'TBNF='+IntToStr(2006)+' and LSH='+IntToStr(4)
    +' AND (SBGUID IN (SELECT GUID FROM TABLE_SBJBXX WHERE '
    + lFilter+lDateFilter + '))';
    //End Edit
  TSQLDataset(dsbYZJL.DataSet).SqlFiltered := True;
  Dialogs.ShowMessage(TSQLDataset(dsbYZJL.DataSet).SqlFilter);
  dsbYZJL.Dataset.Open;
end;
该界面没有其它代码，只有上面一段代码，起动需要一分钟。界面才刷新完。满足条件的记录只有90条。界面见下图
该SQL语句在Oracle下面只需要零点几秒。
信息中只有一个标准数据集和一个网格，数据集未打开，网格的AutoOpenDataset的Check框为空。运转记录有32万多条。

atiger

楼主，你这样，你把这段代码放到一个按钮上去执行看看需要多久，应该是你其他地方暂用的时间。

lili7912

把这段代码放到一个按钮上去执行也将近一分钟。
我用初始空的2617系统测试，把这段代码放到一个按钮上去执行，刷新大约5秒钟。
可能是2611升级到2617的原因，我们的2611系统升级到2617有问题出现，原来发过贴。

aDragon

在2611上运行需要多长时间？

atiger

是吧，你1楼说1分钟和5S还是有非常大的差距的，所以楼主还要优化功能打开，

另外，正如4楼所说，2611需要多久，2611到2617，没有大的变动不应该有这么多的差别的

lili7912

2611运转记录功能运转正常，在该功能的OnShow在事件，取基本信息数据、运转记录数据、取累计运转记录时间取完数据后，作基本信息与运转记录、累计运转时间的连接。取完数据后，界面正常显示。因为升级到2617后，该功能运行不正常，取完数据后界面刷新约1分钟。
因此考虑到优化的问题。因此把取运转记录数据单独做一测试功能，该功能如1楼，在2611升级到2617里面做，如一楼所说，初始化2617的系统里运行该功能如3楼所说。因此怀疑从2611升级到2617没有升好，因为在升级过程中，出现错误提示。

atiger

哦，那你先检查一下，我觉得不应该是版本的问题，你可以初始化一个新系统库，然后连接到这个业务库上，看看速度

lili7912

在初始化的新系统库里，运行1楼的代码，刷新界面大约5秒钟，在2611升级到2617的系统里，运行1楼的代码，刷新界面大约1分钟。
是2611升级到2617的原因，因为2611升级到2617出现错误提示，升级没有升好。
更正，不是取数据的速度慢，而是数据取到本地来了，刷新界面慢，。

atiger

我打电话没有找到你，请看到消息后，给我们来个电话

atiger

??