From 3811a69a8ccbb7756a724937565b61af5c234b5b Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Sat, 30 Aug 2025 17:02:11 +0800
Subject: [PATCH] ~

---
 复合检验管理/TradeManage.dof        | 2 +-
 复合检验管理/U_MJManageNewFDNew.dfm | 1 +
 复合检验管理/U_MJManageNewFDNew.pas | 2 +-
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/复合检验管理/TradeManage.dof b/复合检验管理/TradeManage.dof
index c5042bd..0541bad 100644
--- a/复合检验管理/TradeManage.dof
+++ b/复合检验管理/TradeManage.dof
@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\�������Ŀ����\��Ŀ����\ȺХ��֯\���ϼ������\testDll.exe
+HostApplication=D:\Dp7Repo\��Ŀ����\D7DJquanxiao\���ϼ������\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
diff --git a/复合检验管理/U_MJManageNewFDNew.dfm b/复合检验管理/U_MJManageNewFDNew.dfm
index b3f5b85..ec1ebe4 100644
--- a/复合检验管理/U_MJManageNewFDNew.dfm
+++ b/复合检验管理/U_MJManageNewFDNew.dfm
@@ -2313,6 +2313,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 3
+      OnClick = Edit1Click
     end
     object RadioGroup1: TRadioGroup
       Left = 10
diff --git a/复合检验管理/U_MJManageNewFDNew.pas b/复合检验管理/U_MJManageNewFDNew.pas
index bd90a08..69b2a97 100644
--- a/复合检验管理/U_MJManageNewFDNew.pas
+++ b/复合检验管理/U_MJManageNewFDNew.pas
@@ -1167,7 +1167,7 @@ begin
           FieldByName('MJLen').value := StrToFloatdef(trim(MJLen1.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
         end
         else
-        begin
+        begin                              
           with CDS_MJCD do
           begin
             First;