From 20d981d9873761e083ff826e8099200915636cca Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Sat, 19 Jul 2025 13:53:03 +0800
Subject: [PATCH] ~

---
 复合检验管理/U_JYOrderCDOne.dfm     |  3 ++-
 复合检验管理/U_JYOrderCDOne.pas     |  2 +-
 复合检验管理/U_MJManageNewFDNew.dfm | 18 ++++++++++++++----
 复合检验管理/U_MJManageNewFDNew.pas |  3 ++-
 4 files changed, 19 insertions(+), 7 deletions(-)

diff --git a/复合检验管理/U_JYOrderCDOne.dfm b/复合检验管理/U_JYOrderCDOne.dfm
index 38f0800..04cce9d 100644
--- a/复合检验管理/U_JYOrderCDOne.dfm
+++ b/复合检验管理/U_JYOrderCDOne.dfm
@@ -809,7 +809,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       TabOrder = 21
       OnClick = CheckBox3Click
     end
-    object CustomerNoName: TEdit
+    object KH: TEdit
       Tag = 2
       Left = 357
       Top = 11
@@ -942,6 +942,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       object v1Column29: TcxGridDBColumn
         Caption = #23458#25143
         DataBinding.FieldName = 'CustomerNoName'
+        Visible = False
         HeaderAlignmentHorz = taCenter
         Width = 70
       end
diff --git a/复合检验管理/U_JYOrderCDOne.pas b/复合检验管理/U_JYOrderCDOne.pas
index 96eac67..c5f68e9 100644
--- a/复合检验管理/U_JYOrderCDOne.pas
+++ b/复合检验管理/U_JYOrderCDOne.pas
@@ -222,7 +222,7 @@ type
     Label36: TLabel;
     ComboBox3: TComboBox;
     Label37: TLabel;
-    CustomerNoName: TEdit;
+    KH: TEdit;
     v1Column29: TcxGridDBColumn;
     ToolButton14: TToolButton;
     Panel14: TPanel;
diff --git a/复合检验管理/U_MJManageNewFDNew.dfm b/复合检验管理/U_MJManageNewFDNew.dfm
index ccd6ef3..a28e2b6 100644
--- a/复合检验管理/U_MJManageNewFDNew.dfm
+++ b/复合检验管理/U_MJManageNewFDNew.dfm
@@ -127,6 +127,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Styles.Content = cxStyle4
+        Styles.Footer = cxStyle7
         Styles.Header = cxStyle4
         Width = 40
       end
@@ -136,6 +137,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Styles.Content = cxStyle3
+        Styles.Footer = cxStyle7
         Styles.Header = cxStyle3
         Width = 42
       end
@@ -144,7 +146,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         DataBinding.FieldName = 'MJMaoZ'
         HeaderAlignmentHorz = taCenter
         Styles.Content = cxStyle5
-        Styles.Footer = cxStyle5
+        Styles.Footer = cxStyle7
         Styles.Header = cxStyle5
         Width = 50
       end
@@ -153,7 +155,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         DataBinding.FieldName = 'MJQty4'
         HeaderAlignmentHorz = taCenter
         Styles.Content = cxStyle3
-        Styles.Footer = cxStyle3
+        Styles.Footer = cxStyle7
         Styles.Header = cxStyle3
         Width = 50
       end
@@ -3232,8 +3234,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
   end
   object ScrollBox2: TScrollBox
-    Left = -168
-    Top = 456
+    Left = -464
+    Top = 632
     Width = 481
     Height = 457
     Font.Charset = GB2312_CHARSET
@@ -3669,6 +3671,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Style = [fsBold]
       TextColor = clDefault
     end
+    object cxStyle7: TcxStyle
+      AssignedValues = [svFont]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -19
+      Font.Name = #23435#20307
+      Font.Style = []
+    end
   end
   object cxGridPopupMenu1: TcxGridPopupMenu
     PopupMenus = <>
diff --git a/复合检验管理/U_MJManageNewFDNew.pas b/复合检验管理/U_MJManageNewFDNew.pas
index 9380831..db33d4a 100644
--- a/复合检验管理/U_MJManageNewFDNew.pas
+++ b/复合检验管理/U_MJManageNewFDNew.pas
@@ -1,6 +1,6 @@
 unit U_MJManageNewFDNew;
 
-interface
+interface                       
 
 uses
   Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls,
@@ -319,6 +319,7 @@ type
     Label63: TLabel;
     Kuanno: TBtnEditA;
     Button5: TButton;
+    cxStyle7: TcxStyle;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);