From 55badb4118b527179d572da0a766579ffc27fa0a Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Thu, 5 Feb 2026 17:08:26 +0800
Subject: [PATCH] ~

---
 检验管理/U_MJManageNewFDNew.dfm | 11 +++++++--
 检验管理/U_MJManageNewFDNew.pas | 40 +++++++++++++++++++++------------
 2 files changed, 35 insertions(+), 16 deletions(-)

diff --git a/检验管理/U_MJManageNewFDNew.dfm b/检验管理/U_MJManageNewFDNew.dfm
index c320040..261970e 100644
--- a/检验管理/U_MJManageNewFDNew.dfm
+++ b/检验管理/U_MJManageNewFDNew.dfm
@@ -2521,7 +2521,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         Width = 1243
         Height = 30
         ButtonHeight = 30
-        ButtonWidth = 83
+        ButtonWidth = 107
         Caption = 'ToolBar1'
         Color = clSkyBlue
         EdgeInner = esNone
@@ -2570,9 +2570,16 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
           ImageIndex = 54
           OnClick = ToolButton2Click
         end
-        object TBClose: TToolButton
+        object ToolButton4: TToolButton
           Left = 276
           Top = 0
+          Caption = #37325#22797#37325#26032#21462#21495
+          ImageIndex = 51
+          OnClick = ToolButton4Click
+        end
+        object TBClose: TToolButton
+          Left = 383
+          Top = 0
           AutoSize = True
           Caption = #20851#38381
           ImageIndex = 55
diff --git a/检验管理/U_MJManageNewFDNew.pas b/检验管理/U_MJManageNewFDNew.pas
index 3921a4d..1cbe1f9 100644
--- a/检验管理/U_MJManageNewFDNew.pas
+++ b/检验管理/U_MJManageNewFDNew.pas
@@ -1,6 +1,6 @@
 unit U_MJManageNewFDNew;
 
-interface
+interface       
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
@@ -13,18 +13,17 @@ uses
   MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, BtnEdit,
   dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
   dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
-  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
-  dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
-  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
-  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
-  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
-  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
-  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
-  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
-  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
-  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
-  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
-  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
+  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
+  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
+  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
+  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
+  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
+  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
+  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
+  dxSkinXmas2008Blue, dxSkinscxPCPainter;
 
 type
   TfrmMJManageNewFDNewSF = class(TForm)
@@ -274,6 +273,7 @@ type
     Tv3Column1: TcxGridDBColumn;
     Label43: TLabel;
     Note: TBtnEditC;
+    ToolButton4: TToolButton;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -336,6 +336,7 @@ type
     procedure Edit10Click(Sender: TObject);
     procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
     procedure NoteBtnUpClick(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
   private
     { Private declarations }
     FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@@ -2624,7 +2625,7 @@ begin
     RM2.LoadFromFile(fPrintFile);
     RM2.DefaultCopies := 1;
      //RM2.ShowReport;
-    RM2.printReport;                          
+    RM2.printReport;
   end;
 
 end;
@@ -2675,5 +2676,16 @@ begin
   end;
 end;
 
+procedure TfrmMJManageNewFDNewSF.ToolButton4Click(Sender: TObject);
+begin
+  with ADOCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add(' update SY_MaxBH set BHNo=BHNo+5 where BHType=''WFB_MJJY_CD'' and BHStr=''MC'' ');
+    Execsql;
+  end;
+end;
+
 end.