diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas
index ce65e93..08207d4 100644
--- a/打卷检验管理/U_JYOrderCDOne.pas
+++ b/打卷检验管理/U_JYOrderCDOne.pas
@@ -720,7 +720,7 @@ begin
         else
         begin
           //begin
-          with ADOQueryCmd do
+          with ADOQueryCmd do                    
           begin
             Close;
             sql.Clear;
diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas
index d74f3cc..bed1c07 100644
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@@ -1717,9 +1717,9 @@ begin
     application.MessageBox('���Ȼ����������ܶ�Ϊ�㣡', '��ʾ��Ϣ', 0);
     exit;
   end;
-  if (strtofloatdef(trim(MJLen.Text), 0) < 10) or (strtofloatdef(trim(MJLen1.Text), 0) < 10) then
+  if (strtofloatdef(trim(MJLen.Text), 0) < 20) or (strtofloatdef(trim(MJLen1.Text), 0) < 20) then
   begin
-    application.MessageBox('���Ȳ���', '��ʾ');
+    application.MessageBox('���Ȳ���20', '��ʾ');
     exit;
   end;
   if (strtofloatdef(trim(MJLen.Text), 0) > 200) or (strtofloatdef(trim(MJLen1.Text), 0) > 200) then
diff --git a/打卷检验管理/U_ProductOrderLBNameSet.dfm b/打卷检验管理/U_ProductOrderLBNameSet.dfm
index 5cb4cc6..b60c90c 100644
--- a/打卷检验管理/U_ProductOrderLBNameSet.dfm
+++ b/打卷检验管理/U_ProductOrderLBNameSet.dfm
@@ -609,8 +609,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
           ''
           #25353#32568#21495#29983#25104
           #25353#39068#33394#29983#25104
-          #25353#35746#21333#29983#25104
-          #26080#35268#21017#29983#25104)
+          #25353#35746#21333#29983#25104)
         Properties.OnEditValueChanged = v1Column2PropertiesEditValueChanged
         HeaderAlignmentHorz = taCenter
         Width = 107
diff --git a/打卷检验管理/U_ProductOrderLBNameSet.pas b/打卷检验管理/U_ProductOrderLBNameSet.pas
index 4a7763d..ccdb47b 100644
--- a/打卷检验管理/U_ProductOrderLBNameSet.pas
+++ b/打卷检验管理/U_ProductOrderLBNameSet.pas
@@ -832,6 +832,22 @@ var
 begin
   mvalues := TCXTextEdit(Sender).Text;
 
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+    sql.Add(' ' + quotedstr(trim(DName)));
+    sql.Add(',getdate() ');
+    sql.Add(',' + quotedstr(trim(self.Caption)));
+    sql.Add(',' + quotedstr(trim('���Ź���')));
+    sql.Add(',' + quotedstr(trim('ָʾ����:' + trim(Order_Main.FieldByName('orderno').AsString) + ' �ӱ�:' + trim(Order_Main.FieldByName('subID').AsString) + 'ԭ������:' + trim(Order_Main.FieldByName('Orddefstr15').AsString) + '����֮��:' + trim(mvalues))));
+    sql.Add(',' + quotedstr(trim('�ɹ�')));
+    sql.Add(')');
+    sql.Add('Update JYOrder_Main Set Orddefstr15=''' + trim(mvalues) + ''' ');
+    sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
+    ExecSQL;
+  end;
   with Order_Main do
   begin
     edit;
@@ -839,16 +855,6 @@ begin
     post;
   end;
   tv1.Controller.EditingController.ShowEdit();
-
-  with ADOQueryCmd do
-  begin
-    Close;
-    sql.Clear;
-    sql.Add('Update JYOrder_Main Set Orddefstr15=''' + trim(mvalues) + ''' ');
-    sql.Add('where Mainid=''' + Trim(Order_Main.fieldbyname('Mainid').AsString) + '''');
-    ExecSQL;
-  end;
-
 end;
 
 procedure TfrmProductOrderLBNameSet.ToolButton5Click(Sender: TObject);
@@ -1682,7 +1688,7 @@ begin
         end;
       end;
       next;
-    end;                               
+    end;
   end;
   CheckBox1.Checked := False;
   with Order_Main do