diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas
index 3e9ca13..c94a947 100644
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@@ -620,7 +620,7 @@ begin
   Th := LoadLibrary(Pchar(trim(DllName)));            
   if Th > 0 then
   begin
-    try
+    try                                                 
       Tp := GetProcAddress(Th, 'CommOpen');
       if Tp <> nil then
       begin
@@ -1684,6 +1684,12 @@ begin
     exit;
   end;
 
+   if (strtofloatdef(trim(MJLen.Text), 0) <= 0)  then
+  begin
+    application.MessageBox('����С���㣡', '��ʾ��Ϣ', 0);
+    exit;
+  end;
+  
   if Trim(FAPID) = '' then
     Exit;