From aa81285e79a33dd9cc4f9c3dec8304f3be4a45c4 Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Fri, 19 Sep 2025 13:48:12 +0800
Subject: [PATCH] ~

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

diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas
index 4fd8982..81a7be5 100644
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@@ -1593,6 +1593,11 @@ begin
     application.MessageBox('���Ȼ����������ܶ�Ϊ�㣡', '��ʾ��Ϣ', 0);
     exit;
   end;
+    if (strtofloatdef(trim(MJMaoZ.Text), 0) < 5)   then
+  begin
+    application.MessageBox('��������С��5�������³Ƶ����ݣ�', '��ʾ��Ϣ', 0);
+    exit;
+  end;
 
   if Trim(FAPID) = '' then
     Exit;
@@ -1663,7 +1668,7 @@ begin
       sql.Add('select * from JYorder_Sub where Subid=''' + Trim(FSubId) + ''' and isnull(Slbname,'''')<>'''' ');
       Open;
     end;
-    if ADOTmp.IsEmpty then
+    if ADOTmp.IsEmpty then                    
     begin
       PlaySound('wav\û�����ñ�ǩ.wav', 0, SND_FILENAME or SND_ASYNC);
       Application.MessageBox('û�����ñ�ǩ', '��ʾ', 0);