From 0cdd3134a9e2e14453140d12760ca6ba71707e55 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Sat, 6 Dec 2025 17:02:53 +0800
Subject: [PATCH] ~

---
 打卷检验管理/U_JYOrderCDOne.dfm     | 7 ++++---
 打卷检验管理/U_JYOrderCDOne.pas     | 2 +-
 打卷检验管理/U_MJManageNewFDNew.dfm | 9 +++++----
 打卷检验管理/U_MJManageNewFDNew.pas | 6 +++---
 4 files changed, 13 insertions(+), 11 deletions(-)

diff --git a/打卷检验管理/U_JYOrderCDOne.dfm b/打卷检验管理/U_JYOrderCDOne.dfm
index 2414df8..e3f77f0 100644
--- a/打卷检验管理/U_JYOrderCDOne.dfm
+++ b/打卷检验管理/U_JYOrderCDOne.dfm
@@ -1444,7 +1444,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       Height = 145
       ItemIndex = 0
       Items.Strings = (
-        #26816#39564#25253#21578#26222#36890#29256)
+        #26816#39564#25253#21578#26222#36890#29256
+        #39564#36135#25253#21578#20010#25968#29256)
       TabOrder = 1
     end
   end
@@ -2009,8 +2010,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
     end
   end
   object Panel16: TPanel
-    Left = 432
-    Top = 376
+    Left = 368
+    Top = 400
     Width = 225
     Height = 117
     Color = clSkyBlue
diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas
index 8878dfc..366013b 100644
--- a/打卷检验管理/U_JYOrderCDOne.pas
+++ b/打卷检验管理/U_JYOrderCDOne.pas
@@ -1391,7 +1391,7 @@ begin
   with ADOQueryCmd do
   begin
     Close;
-    sql.Clear;
+    sql.Clear;                                                       
     sql.Add('delete TBSubID where DName=''' + Trim(DCode) + '''');
     ExecSQL;
   end;
diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm
index b8f20c8..b6c5beb 100644
--- a/打卷检验管理/U_MJManageNewFDNew.dfm
+++ b/打卷检验管理/U_MJManageNewFDNew.dfm
@@ -1760,7 +1760,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       ParentFont = False
     end
     object Label7: TLabel
-      Left = 157
+      Left = 178
       Top = 61
       Width = 11
       Height = 19
@@ -1771,13 +1771,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label8: TLabel
       Left = 7
       Top = 61
-      Width = 73
+      Width = 91
       Height = 19
-      Caption = #38271'   '#24230
+      Caption = #29781#30133'/'#20010#25968
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -19
@@ -1872,7 +1873,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       OnClick = Edit1Click
     end
     object CDQty: TEdit
-      Left = 78
+      Left = 99
       Top = 57
       Width = 73
       Height = 32
diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas
index f1cdef8..996508a 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,
@@ -8,10 +8,10 @@ uses
   cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel,
   cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
   cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport,
-  RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,
+  RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu,                             
   ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox,
   MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI,
-  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
+  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,        
   dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
   dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
   dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,