From bb22952f38c310c28b9544a6a4adbd6268dd1416 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Mon, 29 Sep 2025 09:27:53 +0800
Subject: [PATCH] ~

---
 打卷检验管理/U_MJManageNewFDNew.pas | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas
index 915e99b..4a62383 100644
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@@ -1714,7 +1714,7 @@ var
   mvalue1: integer;
   i: Integer;
 begin
-  S1 := false;
+  S1 := false;                                      
   if (strtofloatdef(trim(MJLen.Text), 0) = 0) and (strtofloatdef(trim(mjqty4.Text), 0) = 0) then
   begin
     application.MessageBox('���Ȼ����������ܶ�Ϊ�㣡', '��ʾ��Ϣ', 0);
@@ -1730,11 +1730,15 @@ begin
 //    application.MessageBox('���ȳ���200�����ύ', '��ʾ');
     exit;
   end;
+  if (strtofloatdef(trim(MJMaoZ.Text), 0) > 100) then
+  begin
+    exit;
+  end;
   if Trim(Edit14.Text) = '' then
-  begin                                    
+  begin
 
   end
-  else                        
+  else
   begin
     if (strtofloatdef(trim(MJMaoZ.Text), 0) < 5) or (strtofloatdef(trim(MJQty4.Text), 0) < 5) then
     begin