diff --git a/检验管理/U_MJManageNewFDNew.pas b/检验管理/U_MJManageNewFDNew.pas
index ee4bc2d..c8ad7c1 100644
--- a/检验管理/U_MJManageNewFDNew.pas
+++ b/检验管理/U_MJManageNewFDNew.pas
@@ -1631,9 +1631,9 @@ begin
       Exit;
     end;
   end;
-  if (strtofloatdef(trim(MJLen.Text), 0) > 200) then
+  if (strtofloatdef(trim(MJLen.Text), 0) > 400) then
   begin
-    application.MessageBox('���Ȳ��ܴ���200��', '��ʾ��Ϣ', 0);
+    application.MessageBox('���Ȳ��ܴ���400��', '��ʾ��Ϣ', 0);
     exit;
   end;
   if Trim(Edit6.Text) <> '' then
@@ -2628,7 +2628,7 @@ begin
       begin
         TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name);
       end;
-    end;
+    end;                                   
   end;
 end;