From 87da43532629bfdb49c174c02181adbe0d0c10e3 Mon Sep 17 00:00:00 2001
From: sgwp <63001967@qq.com>
Date: Thu, 24 Oct 2024 16:54:44 +0800
Subject: [PATCH] =?UTF-8?q?=E5=88=A4=E6=96=AD=E5=AD=98=E5=82=A8=E8=BF=87?=
 =?UTF-8?q?=E7=A8=8B?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 public10/design/U_DetailBaseList.pas | 3 +++
 public10/design/U_QryBaseList.pas    | 3 +++
 2 files changed, 6 insertions(+)

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.