From bdf24ed94f1b5b4f4dff45102f5472641e0748c2 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Fri, 18 Jul 2025 16:16:28 +0800
Subject: [PATCH] ~

---
 打卷检验管理/U_MJManageNewFDNew.dfm | 40 ++++++++++++++++++++++++++---
 打卷检验管理/U_MJManageNewFDNew.pas | 20 ++++++++++++---
 2 files changed, 53 insertions(+), 7 deletions(-)

diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm
index 2b9d737..0b8297d 100644
--- a/打卷检验管理/U_MJManageNewFDNew.dfm
+++ b/打卷检验管理/U_MJManageNewFDNew.dfm
@@ -975,7 +975,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     object Panel4: TPanel
       Left = 8
       Top = 256
-      Width = 289
+      Width = 329
       Height = 265
       BevelInner = bvRaised
       BevelOuter = bvLowered
@@ -1108,6 +1108,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         ParentFont = False
         OnClick = SpeedButton1Click
       end
+      object SpeedButton19: TSpeedButton
+        Tag = 9
+        Left = 265
+        Top = 11
+        Width = 58
+        Height = 228
+        Caption = #38544#34255
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -28
+        Font.Name = #26999#20307'_GB2312'
+        Font.Style = [fsBold]
+        ParentFont = False
+        OnClick = SpeedButton19Click
+      end
     end
   end
   object Panel2: TPanel
@@ -1734,7 +1749,9 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
         '1'
         '2'
         '3'
-        '4')
+        '4'
+        '5'
+        '6')
     end
     object MJStr4: TEdit
       Left = 57
@@ -2272,8 +2289,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
   end
   object Panel3: TPanel
-    Left = 638
-    Top = 326
+    Left = 635
+    Top = 322
     Width = 353
     Height = 334
     BevelInner = bvRaised
@@ -3275,6 +3292,21 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       TabOrder = 17
       OnClick = Button26Click
     end
+    object Button27: TButton
+      Left = 297
+      Top = 211
+      Width = 68
+      Height = 65
+      Caption = #38544#34255
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -35
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 18
+      OnClick = Button27Click
+    end
   end
   object cxStyleRepository1: TcxStyleRepository
     Left = 732
diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas
index a70f706..603224f 100644
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@@ -1,8 +1,8 @@
 unit U_MJManageNewFDNew;
 
-interface
+interface            
 
-uses
+uses                            
   Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls,
   Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
   cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel,
@@ -295,6 +295,8 @@ type
     Button24: TButton;
     Button25: TButton;
     Button26: TButton;
+    SpeedButton19: TSpeedButton;
+    Button27: TButton;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -371,6 +373,8 @@ type
     procedure Button23Click(Sender: TObject);
     procedure Button24Click(Sender: TObject);
     procedure Button25Click(Sender: TObject);
+    procedure SpeedButton19Click(Sender: TObject);
+    procedure Button27Click(Sender: TObject);
   private
     { Private declarations }
     FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
@@ -18440,7 +18444,7 @@ begin
   end
   else
     exit;
-
+                                        
   if Trim(Edit6.Text) = '��' then
   begin
     PrtData(FFFMJID);
@@ -18491,5 +18495,15 @@ begin
   MJLen.OnClick(Mjlen);
 end;
 
+procedure TfrmMJManageNewFDNewSF.SpeedButton19Click(Sender: TObject);
+begin
+  Panel4.Visible := False;
+end;
+
+procedure TfrmMJManageNewFDNewSF.Button27Click(Sender: TObject);
+begin
+  Panel1.Visible := False;
+end;
+
 end.