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;