From c9c4f58cf1bd237b9f294fa6aa97549679540a10 Mon Sep 17 00:00:00 2001
From: sgwp <63001967@qq.com>
Date: Wed, 12 Feb 2025 10:28:55 +0800
Subject: [PATCH] =?UTF-8?q?=E5=8A=9F=E8=83=BD=E5=8D=87=E7=BA=A7?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas  | 5 ++++-
 .../Dp10RepoV1/public10/design/U_WindowFormdesign.pas        | 5 +++--
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas
index b91d529..b647c01 100644
--- a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas
+++ b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_BaseList.pas
@@ -73,7 +73,10 @@ begin
        fModuleId:=StringReplace(Trim(jsonObject.GetValue('moduleId').ToString),'"','',[rfReplaceAll]);
        fModuleSubId:=StringReplace(trim(jsonObject.GetValue('moduleSubId').ToString),'"','',[rfReplaceAll]);
        gTeamWorker:=StringReplace(trim(jsonObject.GetValue('teamWorkerId').ToString),'"','',[rfReplaceAll]);
-       fParameters10:='';
+       if Parameters1='��ѯ' then
+         fParameters10:='��ѯ'
+       else
+        fParameters10:='';
      finally
        jsonValue.Free;
      end;
diff --git a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas
index 63639e7..047a380 100644
--- a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas
+++ b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_WindowFormdesign.pas
@@ -427,6 +427,7 @@ begin
           toolBar.List := mToolBarList;
       end;
       //
+
       if fFormRightButtons<>'' then
         initUserFormButtons(toolBar);
       //continue;
@@ -710,7 +711,7 @@ begin
         if (mCaption = '�ر�') or (mCaption = '�˳�') or (mCaption = '����') then
           exit;
         /// ////////////////////////////////////////
-        if trim(mOperRight) = '��ѯ' then
+        if (trim(mOperRight) = '��ѯ') or (trim(mOperRight) = '��ѯģ��') then
         begin
           if pos(mCaption, '��ѯ,ˢ��,����,�߼�����,�߼���ѯ') > 0 then // ,�鿴,��ϸ
           begin
@@ -740,7 +741,7 @@ begin
       exit;
     end;
     /// ////////////////////////////////////////////////
-    if trim(mOperRight) = '��ѯ' then
+    if (trim(mOperRight) = '��ѯ') or (trim(mOperRight) = '��ѯģ��') then
       exit;
     with mParent do
     begin