rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

判断存储过程

Browse Source
This commit is contained in:
sgwp 2024-10-24 16:54:44 +08:00
parent def92b203f
commit 87da435326
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
public10/design/U_DetailBaseList.pas
View File

@ -348,6 +348,7 @@ begin
begin begin
fWindowDesign.FormStyleInit10(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10); fWindowDesign.FormStyleInit10(self, fFormId, ADOQueryBaseTemp, ADOQueryBaseCmd, '', fParameters10);
end; end;
//
if dxLayoutControl_query.Tag<>999 then if dxLayoutControl_query.Tag<>999 then
readLayOut(dxLayoutControl_query,ADOQueryBaseTemp,PWideChar( fDllFileName+'|'+self.name+'|'+dxLayoutControl_query.Name+'.ini')); readLayOut(dxLayoutControl_query,ADOQueryBaseTemp,PWideChar( fDllFileName+'|'+self.name+'|'+dxLayoutControl_query.Name+'.ini'));
fWindowDesign.fProcedureName:=fProcedureName; fWindowDesign.fProcedureName:=fProcedureName;
@ -365,6 +366,8 @@ end;
/// ///
procedure TfrmDetailBaseList.initGrid(); procedure TfrmDetailBaseList.initGrid();
begin begin
if fProcedureName='' then exit;
if fQueryType='criteria' then if fQueryType='criteria' then
begin begin
doQueryByCriteria() ; doQueryByCriteria() ;

3
public10/design/U_QryBaseList.pas
View File

@ -357,6 +357,8 @@ end;
/// ///
procedure TfrmQryBaseList.initGrid(); procedure TfrmQryBaseList.initGrid();
begin begin
if fProcedureName='' then exit;
if fQueryType='criteria' then if fQueryType='criteria' then
begin begin
doQueryByCriteria() ; doQueryByCriteria() ;
@ -366,5 +368,6 @@ begin
frmFrameDateSel1.jqModel.Checked:=true; frmFrameDateSel1.jqModel.Checked:=true;
doQuery() ; doQuery() ;
end; end;
end; end;
end. end.