diff --git a/public10/design/U_DetailBaseList.pas b/public10/design/U_DetailBaseList.pas index d92c6b1..d6a9f37 100644 --- a/public10/design/U_DetailBaseList.pas +++ b/public10/design/U_DetailBaseList.pas @@ -348,6 +348,7 @@ begin begin fWindowDesign.FormStyleInit10(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10); end; + // if dxLayoutControl_query.Tag<>999 then readLayOut(dxLayoutControl_query,ADOQueryBaseTemp,PWideChar( fDllFileName+'|'+self.name+'|'+dxLayoutControl_query.Name+'.ini')); fWindowDesign.fProcedureName:=fProcedureName; @@ -365,6 +366,8 @@ end; /// procedure TfrmDetailBaseList.initGrid(); begin + if fProcedureName='' then exit; + if fQueryType='criteria' then begin doQueryByCriteria() ; diff --git a/public10/design/U_QryBaseList.pas b/public10/design/U_QryBaseList.pas index 82d2b9d..08b7767 100644 --- a/public10/design/U_QryBaseList.pas +++ b/public10/design/U_QryBaseList.pas @@ -357,6 +357,8 @@ end; /// procedure TfrmQryBaseList.initGrid(); begin + if fProcedureName='' then exit; + if fQueryType='criteria' then begin doQueryByCriteria() ; @@ -366,5 +368,6 @@ begin frmFrameDateSel1.jqModel.Checked:=true; doQuery() ; end; + end; end.