~

2025-09-29 09:27:53 +08:00 · 2025-09-29 09:27:53 +08:00 · bb22952f38
commit bb22952f38
parent eedb221e4d
1 changed files with 7 additions and 3 deletions
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@ -1730,6 +1730,10 @@ begin
 //    application.MessageBox('长度超出200不能提交', '提示');
    exit;
  end;
+  if (strtofloatdef(trim(MJMaoZ.Text), 0) > 100) then
+  begin
+    exit;
+  end;
  if Trim(Edit14.Text) = '' then
  begin