【搞定】查询效率问题.**

jacobpro

我在查询按钮代码中执行了这个函数,查询时间就从1秒延长到10多秒,请各位老师指正.

procedure TMainForm.SWJLZZGSCKJL;
var
  lComType: string;
begin
  lComType := TCommonFunctionLib.GetCompanyType(context);
  if lComType = '制造公司' then
  begin

    dsbMaster.DataSet.FieldByName('SWJLCKJL').ReadOnly := True;
    dsbMaster.DataSet.FieldByName('ZRRID').ReadOnly := True;

    dsbMaster.DataSet.FieldByName('HTBM').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('HTZJE').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('XSGSID').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('KHID').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('KHLXR').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('KHDH').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('XMID').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('FHSJ').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('FHJE').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('YDK').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('YQK').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('BYJHHL').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('SJHL').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('CY').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('XYJHHL').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('XXYJHHL').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('ZL').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('ZZGSCKJL').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('CYYYFX').ReadOnly := False;
    dsbMaster.DataSet.FieldByName('HTTK').ReadOnly := False;

    dsbXSY.DataSet.ReadOnly := False;
    dsbXSY.DataSet.Edit;
  end;
end;

jacobpro

up

alang

这么多的设置只读，当然速度慢了
你可以定义数据集的是否可编辑表达式来定义只读，也可以在字段的 编辑属性|只读 上定义只读

如果必须用代码的话，可以在所有的代码之前执行DataSet.DisableControls，最后执行DataSet.EnableControls

jacobpro

前两个方法在我做的这个里面不大可行.后一个我试试.谢谢您的支持.
如果可行的话,我再跟帖

jacobpro

谢谢,相对来说.查询时间从10秒缩短到4秒.先结帖吧.