~

打卷检验管理/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