From 340b596ad4bc40c1d2b7fab53aa9df09bd833e49 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Sat, 13 Dec 2025 16:25:42 +0800
Subject: [PATCH] ~

---
 检验管理/U_MJManageNewFDNew.dfm | 20 ++++++++++----------
 检验管理/U_MJManageNewFDNew.pas | 20 +++++++-------------
 2 files changed, 17 insertions(+), 23 deletions(-)

diff --git a/检验管理/U_MJManageNewFDNew.dfm b/检验管理/U_MJManageNewFDNew.dfm
index 8470308..9f3a964 100644
--- a/检验管理/U_MJManageNewFDNew.dfm
+++ b/检验管理/U_MJManageNewFDNew.dfm
@@ -1,8 +1,8 @@
 object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
-  Left = -33
-  Top = 113
-  Width = 1522
-  Height = 723
+  Left = 314
+  Top = 229
+  Width = 1227
+  Height = 700
   Caption = #25104#21697#26816#39564
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -22,7 +22,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     Left = 0
     Top = 87
     Width = 545
-    Height = 605
+    Height = 574
     Align = alLeft
     TabOrder = 0
     object Tv3: TcxGridDBTableView
@@ -198,7 +198,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     Left = 545
     Top = 87
     Width = 205
-    Height = 605
+    Height = 574
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -1215,7 +1215,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     Left = 750
     Top = 87
     Width = 355
-    Height = 605
+    Height = 574
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -1349,7 +1349,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Left = 2
       Top = 277
       Width = 351
-      Height = 326
+      Height = 295
       Align = alClient
       Color = clWhite
       ParentColor = False
@@ -2395,7 +2395,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1514
+    Width = 1211
     Height = 30
     AutoSize = True
     ButtonHeight = 30
@@ -2624,7 +2624,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
   object Panel6: TPanel
     Left = 0
     Top = 30
-    Width = 1514
+    Width = 1211
     Height = 57
     Align = alTop
     BevelInner = bvRaised
diff --git a/检验管理/U_MJManageNewFDNew.pas b/检验管理/U_MJManageNewFDNew.pas
index 8f149da..7644332 100644
--- a/检验管理/U_MJManageNewFDNew.pas
+++ b/检验管理/U_MJManageNewFDNew.pas
@@ -329,10 +329,7 @@ type
     procedure baoNoExit(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure Edit13Click(Sender: TObject);
-
-    procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView;
-      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
-      var ADone: Boolean);
+    procedure Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
    // procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
   private
     { Private declarations }
@@ -1094,6 +1091,7 @@ begin
 
       if trim(fbaotype) = '�ֶ����' then
       begin
+        FieldByName('DBType').Value := '�ֶ����';
         FieldByName('baoNO').Value := Trim(baono.text);
         FieldByName('baoID').Value := Trim(baoID.Text);
       end;
@@ -1597,13 +1595,13 @@ begin
     begin
 
     end
-    else
+    else                            
     begin
-      with ADOCmd do
+      with ADOCmd do                 
       begin
         Close;
         sql.Clear;
-        sql.Add('exec P_Update_Bao ''' + trim(FMJID) + ''' ');
+        sql.Add('exec P_Update_Bao_copy1 ''' + trim(FMJID) + ''' ');
         if fbaotype = '��������' then
         begin
           sql.Add(',1 ');
@@ -3138,11 +3136,7 @@ end;
 //
 //end;
 
-
-
-procedure TfrmMJManageNewFDNewSF.Tv3CustomDrawCell(
-  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
-  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+procedure TfrmMJManageNewFDNewSF.Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
 var
   Column7Value: string;
   Column7Index: Integer;
@@ -3163,7 +3157,7 @@ begin
         Break;
       end;
     end;
-    
+
     if Column7Index <> -1 then
     begin
       Column7Value := VarToStr(AViewInfo.GridRecord.Values[Column7Index]);