~

复合检验管理/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=

复合检验管理/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

复合检验管理/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;