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
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() ;

3
public10/design/U_QryBaseList.pas
View File

@ -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.