From 15126d51fab3f0fc488786941730a54a713372b5 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Sat, 30 Aug 2025 17:02:29 +0800 Subject: [PATCH] ~ --- 复合检验管理/TradeManage.dof | 2 +- 复合检验管理/U_MJManageNewFDNew.pas | 208 +++++++++++++++------------- 2 files changed, 112 insertions(+), 98 deletions(-) diff --git a/复合检验管理/TradeManage.dof b/复合检验管理/TradeManage.dof index 9268f25..210a624 100644 --- a/复合检验管理/TradeManage.dof +++ b/复合检验管理/TradeManage.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\Ŀ\ɽ\ϼ\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7DJxiongshan\ϼ\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/复合检验管理/U_MJManageNewFDNew.pas b/复合检验管理/U_MJManageNewFDNew.pas index 2b9ff36..de3c32b 100644 --- a/复合检验管理/U_MJManageNewFDNew.pas +++ b/复合检验管理/U_MJManageNewFDNew.pas @@ -1,7 +1,7 @@ unit U_MJManageNewFDNew; interface - + uses Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, @@ -10,7 +10,7 @@ uses cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox, - MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI, + MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI, BtnEdit, FTComboBox, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, @@ -475,6 +475,7 @@ type procedure On1201(var Message: Tmessage); message 1201; procedure On1301(var Message: Tmessage); message 1301; function JsXj(str1: string): string; + function NewRoundTo(value: Double; ws: Integer): Double; public fmanage, ftest: string; { Public declarations } @@ -493,6 +494,16 @@ uses U_SCPersonColor, U_SysLogOrder; {$R *.dfm} +function TfrmMJManageNewFDNewSF.NewRoundTo(value: Double; ws: Integer): Double; +var + iLen: Integer; + E: Extended; +begin + iLen := StrToInt('1' + stringOfChar('0', ws)); + E := StrToFloat(FloatToStr(value)); + Result := Ceil(E * iLen) / iLen; +end; + procedure TfrmMJManageNewFDNewSF.PrtBaoData(FBaoid: string); var fPrintFile: string; @@ -634,10 +645,11 @@ begin i1 := Message.WParam; i2 := Message.LParam; if IsJsMessage then - begin + begin if trim(Edit9.Text) = '' then begin - MJMaoZ.Text := format('%.' + trim(fxsws1) + 'f', [i1 / 100000]); +// MJMaoZ.Text := format('%.3f', [i1 / 100000]); + MJMaoZ.Text := FloatToStr(NEWroundto((i1 / 100000), strtointdef(fxsws1, 0))); end; end; end; @@ -892,7 +904,7 @@ begin with CDS_MJCD do begin Append; - FieldByName('cdname').Value := Trim(TButton(Fbtn).Caption); + FieldByName('cdname').value := Trim(TButton(Fbtn).Caption); Post; end; end; @@ -902,7 +914,7 @@ begin with CDS_MJCD do begin Append; - FieldByName('cdname').Value := Trim(TSpeedButton(Fbtn).Hint); + FieldByName('cdname').value := Trim(TSpeedButton(Fbtn).Hint); Post; end; end; @@ -925,9 +937,9 @@ begin with CDS_MJCD do begin Edit; - FieldByName(FColumn).Value := Trim(FieldByName(FColumn).AsString) + Trim(TButton(Fbtn).Caption); + FieldByName(FColumn).value := Trim(FieldByName(FColumn).AsString) + Trim(TButton(Fbtn).Caption); if Trim(fieldbyname('CDQtyS').AsString) <> '' then - Fieldbyname('CDQty').Value := Trim(fieldbyname('CDQtyS').AsString); + Fieldbyname('CDQty').value := Trim(fieldbyname('CDQtyS').AsString); Post; end; end; @@ -1054,13 +1066,13 @@ begin Edit; if Length(CDS_MJCD.FieldByName(FColumn).AsString) = 1 then begin - FieldByName(FColumn).Value := null; - FieldByName('CDQty').Value := 0; + FieldByName(FColumn).value := null; + FieldByName('CDQty').value := 0; end else begin - FieldByName(FColumn).Value := Copy(Trim(FieldByName(FColumn).AsString), 1, Length(Trim(FieldByName(FColumn).AsString)) - 1); - FieldByName('CDQty').Value := FieldByName(FColumn).Value; + FieldByName(FColumn).value := Copy(Trim(FieldByName(FColumn).AsString), 1, Length(Trim(FieldByName(FColumn).AsString)) - 1); + FieldByName('CDQty').value := FieldByName(FColumn).value; end; Post; end; @@ -1207,56 +1219,56 @@ begin FieldByName('MainId').value := Trim(FMainId); FieldByName('SubId').value := Trim(FSubId); FieldByName('APId').value := Trim(FAPId); - FieldByName('MJID').Value := Trim(maxno); - FieldByName('MJStr2').Value := 'δ'; - FieldByName('MJBanZu').Value := Trim(FBanZu); - FieldByName('MJstr3').Value := Trim(MJstr3.Text); - FieldByName('MJstr4').Value := Trim(MJstr4.Text); - FieldByName('MJstr5').Value := Trim(MJstr5.Text); - FieldByName('mjxh').Value := Trim(mjxh.Text); + FieldByName('MJID').value := Trim(maxno); + FieldByName('MJStr2').value := 'δ'; + FieldByName('MJBanZu').value := Trim(FBanZu); + FieldByName('MJstr3').value := Trim(MJstr3.Text); + FieldByName('MJstr4').value := Trim(MJstr4.Text); + FieldByName('MJstr5').value := Trim(MJstr5.Text); + FieldByName('mjxh').value := Trim(mjxh.Text); // FieldByName('BaoNO').Value := Trim(BaoNO.Text); - FieldByName('MJTypeOther').Value := Trim(Label9.Caption); - FieldByName('MJStr1').Value := Trim(Label13.Caption); + FieldByName('MJTypeOther').value := Trim(Label9.Caption); + FieldByName('MJStr1').value := Trim(Label13.Caption); if PM.Text <> '' then begin - FieldByName('PM').Value := Trim(PM.Text); + FieldByName('PM').value := Trim(PM.Text); end; if KH.Text <> '' then begin - FieldByName('KH').Value := Trim(KH.Text); + FieldByName('KH').value := Trim(KH.Text); end; if SHDZ.Text <> '' then begin - FieldByName('SHDZ').Value := Trim(SHDZ.Text); + FieldByName('SHDZ').value := Trim(SHDZ.Text); end; if LXR.Text <> '' then begin - FieldByName('LXR').Value := Trim(LXR.Text); + FieldByName('LXR').value := Trim(LXR.Text); end; if YS.Text <> '' then begin - FieldByName('YS').Value := Trim(YS.Text); + FieldByName('YS').value := Trim(YS.Text); end; if DBYS.Text <> '' then begin - FieldByName('DBYS').Value := Trim(DBYS.Text); + FieldByName('DBYS').value := Trim(DBYS.Text); end; if HX.Text <> '' then begin - FieldByName('HX').Value := Trim(HX.Text); + FieldByName('HX').value := Trim(HX.Text); end; if SH.Text <> '' then begin - FieldByName('SH').Value := Trim(SH.Text); + FieldByName('SH').value := Trim(SH.Text); end; if SHDZ.Text <> '' then begin - FieldByName('SHDZ').Value := Trim(SHDZ.Text); + FieldByName('SHDZ').value := Trim(SHDZ.Text); end; if LXR.Text <> '' then begin - FieldByName('LXR').Value := Trim(LXR.Text); + FieldByName('LXR').value := Trim(LXR.Text); end; // FieldByName('KH').Value := Trim(KH.Text); @@ -1265,47 +1277,47 @@ begin // FieldByName('HX').Value := Trim(HX.Text); // FieldByName('SH').Value := Trim(SH.Text); - FieldByName('DJ').Value := StrToFloatDef(Trim(DJ.Text), 0); + FieldByName('DJ').value := StrToFloatDef(Trim(DJ.Text), 0); if Edit12.Text <> '' then begin - FieldByName('DingMaFlag').Value := ''; + FieldByName('DingMaFlag').value := ''; end; if Edit10.Text <> '' then begin - FieldByName('DaoXuFlag').Value := 'ŵ'; + FieldByName('DaoXuFlag').value := 'ŵ'; end; - FieldByName('QuhaoFlag').Value := Trim(ComboBox2.Text); + FieldByName('QuhaoFlag').value := Trim(ComboBox2.Text); if (FDC <> 0) and (Edit12.text <> '') then begin - FieldByName('MJLen').Value := FDC; + FieldByName('MJLen').value := FDC; end else begin if StrToFloatdef(trim(mbxs.Text), 1) > 0 then begin - FieldByName('MJLen').Value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0) / StrToFloatdef(trim(mbxs.Text), 1)) + StrToFloatdef(trim(MJQty2.Text), 0) + fjc]); + FieldByName('MJLen').value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0) / StrToFloatdef(trim(mbxs.Text), 1)) + StrToFloatdef(trim(MJQty2.Text), 0) + fjc]); end else begin - FieldByName('MJLen').Value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0)) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]); + FieldByName('MJLen').value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0)) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]); // FieldByName('Sjcd').Value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0)) - StrToFloatdef(trim(MJQty2.Text), 0)]); end; // FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen1.Text), 0) + StrToFloatdef(trim(MJQty2.Text), 0) + fjc; // FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc; end; - FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); - FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); - FieldByName('MJQty5').Value := StrToFloatdef(trim(MJQty5.Text), 0); - FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); - FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0); //+ StrToFloatdef(trim(MJQty5.Text), 0) + fjZ - FieldByName('MJMaoZ').Value := StrToFloatdef(trim(MJMaoZ.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0) + fjZ; + FieldByName('MJQty1').value := StrToFloatdef(trim(MJQty1.Text), 0); + FieldByName('MJQty2').value := StrToFloatdef(trim(MJQty2.Text), 0); + FieldByName('MJQty5').value := StrToFloatdef(trim(MJQty5.Text), 0); + FieldByName('MJQty3').value := StrToFloatdef(trim(MJQty3.Text), 0); + FieldByName('MJQty4').value := StrToFloatdef(trim(MJQty4.Text), 0); //+ StrToFloatdef(trim(MJQty5.Text), 0) + fjZ + FieldByName('MJMaoZ').value := StrToFloatdef(trim(MJMaoZ.Text), 0) + StrToFloatdef(trim(MJQty5.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; if Trim(MJFK.Text) <> '' then begin - FieldByName('MJFK').Value := MJFK.Text; + FieldByName('MJFK').value := MJFK.Text; end; // if Trim(MJMaoZ.Text) <> '' then // begin @@ -1313,39 +1325,39 @@ begin // end; if Trim(MJSJKZ.Text) <> '' then begin - FieldByName('MJSJKZ').Value := MJSJKZ.Text; + FieldByName('MJSJKZ').value := MJSJKZ.Text; end; - FieldByName('MJType').Value := ''; + FieldByName('MJType').value := ''; if Trim(Edit3.Text) <> '' then begin - FieldByName('MJType').Value := 'Ʒ'; + FieldByName('MJType').value := 'Ʒ'; end; if Trim(Edit4.Text) <> '' then begin - FieldByName('MJType').Value := 'Ʒ'; + FieldByName('MJType').value := 'Ʒ'; end; - FieldByName('MJStr1').Value := Trim(Label13.Caption); + FieldByName('MJStr1').value := Trim(Label13.Caption); if Trim(FMJID) = '' then begin - FieldByName('Filler').Value := Trim(DName); + FieldByName('Filler').value := Trim(DName); end else begin - FieldByName('Editer').Value := Trim(DName); - FieldByName('EditTime').Value := SGetServerDateTime(ADOTmp); + FieldByName('Editer').value := Trim(DName); + FieldByName('EditTime').value := SGetServerDateTime(ADOTmp); end; if Trim(SCXFlag) <> '' then begin - FieldByName('JTType').Value := Trim(SCXFlag); + FieldByName('JTType').value := Trim(SCXFlag); end; - FieldByName('MJTypeOther').Value := Trim(Label9.Caption); + FieldByName('MJTypeOther').value := Trim(Label9.Caption); if trim(fbaotype) = 'ֶ' then begin - FieldByName('baoNO').Value := Trim(baono.text); - FieldByName('baoID').Value := Trim(baoID.Text); + FieldByName('baoNO').value := Trim(baono.text); + FieldByName('baoID').value := Trim(baoID.Text); end; Post; @@ -1744,21 +1756,21 @@ begin Append else Edit; - FieldByName('MJId').Value := Trim(FMJID); - FieldByName('MCID').Value := Trim(maxno); + FieldByName('MJId').value := Trim(FMJID); + FieldByName('MCID').value := Trim(maxno); SSetSaveDataCDSNew(ADOCmd, Tv2, CDS_MJCD, 'WFB_MJJY_CD', 0); - FieldByName('KouFenType').Value := CDS_MJCD.fieldbyname('KouFenType').Value; + FieldByName('KouFenType').value := CDS_MJCD.fieldbyname('KouFenType').value; Post; end; CDS_MJCD.Edit; - CDS_MJCD.FieldByName('MCID').Value := Trim(maxno); + CDS_MJCD.FieldByName('MCID').value := Trim(maxno); Next; end; end; with CDS_MJID do begin Append; - FieldByName('MJID').Value := Trim(FMJID); + FieldByName('MJID').value := Trim(FMJID); Post; end; with ADOCmd do @@ -2190,7 +2202,7 @@ begin sql.Add('select * from CK_BanCP_CRID'); Open; end; - CRID := ADOCmd.fieldbyname('CRID').Value; + CRID := ADOCmd.fieldbyname('CRID').value; if GetLSNo(ADOCmd, MaxCkNo, 'JR', 'CK_BanCP_CR', 4, 1) = False then begin ADOCmd.Connection.RollbackTrans; @@ -2207,34 +2219,34 @@ begin with ADOCmd do begin Append; - FieldByName('MainId').Value := Trim(FMainId); - FieldByName('SubId').Value := Trim(FSubId); - FieldByName('APID').Value := Trim(FAPID); - FieldByName('MJID').Value := Trim(CDS_MJID.fieldbyname('MJId').AsString); - FieldByName('BCID').Value := Trim(MaxCkNo); - FieldByName('CRTime').Value := SGetServerDateTime(ADOTmp); - FieldByName('CRFlag').Value := ''; - FieldByName('CRType').Value := ''; + FieldByName('MainId').value := Trim(FMainId); + FieldByName('SubId').value := Trim(FSubId); + FieldByName('APID').value := Trim(FAPID); + FieldByName('MJID').value := Trim(CDS_MJID.fieldbyname('MJId').AsString); + FieldByName('BCID').value := Trim(MaxCkNo); + FieldByName('CRTime').value := SGetServerDateTime(ADOTmp); + FieldByName('CRFlag').value := ''; + FieldByName('CRType').value := ''; //FieldByName('JTType').Value:=Trim(XJFlag); - FieldByName('CRID').Value := CRID; + FieldByName('CRID').value := CRID; if Trim(MJMaoZ.Text) <> '' then begin - FieldByName('KGQty').Value := StrToFloat(MJMaoZ.Text); + FieldByName('KGQty').value := StrToFloat(MJMaoZ.Text); end; if Trim(MJLen.Text) <> '' then begin - FieldByName('Qty').Value := StrToFloat(MJLen.Text); + FieldByName('Qty').value := StrToFloat(MJLen.Text); end; - FieldByName('QtyUnit').Value := Trim(Label9.Caption); - FieldByName('Filler').Value := Trim(DName); - FieldByName('FillTime').Value := SGetServerDateTime(ADOTmp); + FieldByName('QtyUnit').value := Trim(Label9.Caption); + FieldByName('Filler').value := Trim(DName); + FieldByName('FillTime').value := SGetServerDateTime(ADOTmp); if Trim(Edit3.Text) <> '' then begin - FieldByName('CPType').Value := 'Ʒ'; + FieldByName('CPType').value := 'Ʒ'; end; if Trim(Edit4.Text) <> '' then begin - FieldByName('CPType').Value := 'Ʒ'; + FieldByName('CPType').value := 'Ʒ'; end; Post; end; @@ -2248,18 +2260,18 @@ begin with ADOCmd do begin Append; - FieldByName('CRID').Value := CRID; - FieldByName('BCID').Value := Trim(MaxCkNo); - FieldByName('MJID').Value := Trim(CDS_MJID.fieldbyname('MJID').AsString); + FieldByName('CRID').value := CRID; + FieldByName('BCID').value := Trim(MaxCkNo); + FieldByName('MJID').value := Trim(CDS_MJID.fieldbyname('MJID').AsString); if Trim(MJMaoZ.Text) <> '' then begin - FieldByName('KCKGQty').Value := StrToFloat(MJMaoZ.Text); + FieldByName('KCKGQty').value := StrToFloat(MJMaoZ.Text); end; if Trim(MJLen.Text) <> '' then begin - FieldByName('KCQty').Value := StrToFloat(MJLen.Text); + FieldByName('KCQty').value := StrToFloat(MJLen.Text); end; - FieldByName('KCQtyUnit').Value := Trim(Label9.Caption); + FieldByName('KCQtyUnit').value := Trim(Label9.Caption); Post; end; end; @@ -2278,17 +2290,17 @@ begin if Trim(mvalue) <> '' then begin CDS_MJCD.Edit; - CDS_MJCD.FieldByName('CDQty').Value := mvalue; + CDS_MJCD.FieldByName('CDQty').value := mvalue; CDS_MJCD.Post; end else begin CDS_MJCD.Edit; - CDS_MJCD.FieldByName('CDQty').Value := 0; + CDS_MJCD.FieldByName('CDQty').value := 0; CDS_MJCD.Post; end; CDS_MJCD.Edit; - CDS_MJCD.FieldByName('CDQtyS').Value := mvalue; + CDS_MJCD.FieldByName('CDQtyS').value := mvalue; except Application.MessageBox('Ƿ֣', 'ʾ', 0); end; @@ -2396,7 +2408,7 @@ begin if Trim(Order_MJ.fieldbyname('SubId').AsString) <> fsj then begin Edit; - FieldByName('SSel').Value := False; + FieldByName('SSel').value := False; end; Next; end; @@ -2436,18 +2448,18 @@ begin with CDS_MJCD do begin Append; - FieldByName('cdname').Value := Trim(FCDName); - FieldByName('CDbeg').Value := Trim(Edit1.Text); - FieldByName('CDEnd').Value := Trim(Edit2.Text); - FieldByName('KouFenQty').Value := RadioGroup1.ItemIndex + 1; - FieldByName('JBQty').Value := strtofloatdef(trim(Edit8.Text), 0); + FieldByName('cdname').value := Trim(FCDName); + FieldByName('CDbeg').value := Trim(Edit1.Text); + FieldByName('CDEnd').value := Trim(Edit2.Text); + FieldByName('KouFenQty').value := RadioGroup1.ItemIndex + 1; + FieldByName('JBQty').value := strtofloatdef(trim(Edit8.Text), 0); if Trim(CDQty.Text) <> '' then begin - FieldByName('CDQty').Value := StrToFloat(CDQty.Text); + FieldByName('CDQty').value := StrToFloat(CDQty.Text); end else begin - FieldByName('CDQty').Value := 0; + FieldByName('CDQty').value := 0; end; Post; @@ -2647,7 +2659,9 @@ begin if TryStrToFloat(MJQty3.Text, FReal) = False then Exit; jz := StrToFloat(MJMaoZ.Text) - StrToFloat(MJQty3.Text); - MJQty4.Text := format('%.' + trim(fxsws1) + 'f', [jz]); + + MJQty4.Text := FloatToStr(NEWroundto((jz), strtointdef(fxsws1, 0))); + // MJQty4.Text := format('%.' + trim(fxsws1) + 'f', [jz]); end else begin