diff --git a/打卷检验管理/TradeManage.dof b/打卷检验管理/TradeManage.dof
index 2ae8eff..597418b 100644
--- a/打卷检验管理/TradeManage.dof
+++ b/打卷检验管理/TradeManage.dof
@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\�������Ŀ����\��Ŀ����\��ɽ\����������\testDll.exe
+HostApplication=D:\Dp7Repo\��Ŀ����\D7DJlanshan\����������\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas
index 480f325..1d5292e 100644
--- a/打卷检验管理/U_JYOrderCDOne.pas
+++ b/打卷检验管理/U_JYOrderCDOne.pas
@@ -3,7 +3,7 @@ unit U_JYOrderCDOne;
 interface
 
 uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,                      
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
   cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
   cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
@@ -1921,6 +1921,31 @@ begin
   if Application.MessageBox('ȷ��Ҫ������', '��ʾ', 32 + 4) <> IDYES then
     Exit;
   Order_Main.DisableControls;
+  with Order_Main do
+  begin
+    First;
+    while not Eof do
+    begin
+      if Order_Main.FieldByName('SSel').AsBoolean = True then
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('update WFB_MJJY set CKFlag=''�ѳ���'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
+          ExecSQL;
+        end;
+        Order_Main.Edit;
+        Order_Main.FieldByName('CKFlag').Value := '�ѳ���';
+        Order_Main.FieldByName('SSel').AsBoolean := false;
+        Order_Main.Post;
+      end
+      else
+        Next;
+    end;
+  end;
+  Order_Main.EnableControls; 
+ { Order_Main.DisableControls;
   with Order_Main do
   begin
     First;
@@ -1936,18 +1961,16 @@ begin
           sql.Add('update WFB_MJJY set CKFlag=''�ѳ���'',CKtime=Getdate(),CKer=''' + trim(DName) + '''  where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
           ExecSQL;
         end;
-
         Edit;
         FieldByName('CKFlag').Value := '�ѳ���';
         Post;
-
         Next;
       end
       else
         Next;
     end;
   end;
-  Order_Main.EnableControls;
+  Order_Main.EnableControls; }
 
 end;
 
@@ -1963,12 +1986,36 @@ begin
   Order_Main.DisableControls;
   with Order_Main do
   begin
-    First;                    
+    First;
+    while not Eof do
+    begin
+      if Order_Main.FieldByName('SSel').AsBoolean = True then
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;                        
+          sql.Clear;
+          sql.Add('update WFB_MJJY set CKFlag=''���'' where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
+          ExecSQL;
+        end;
+        Order_Main.Edit;
+        Order_Main.FieldByName('CKFlag').Value := '���';
+        Order_Main.FieldByName('SSel').AsBoolean := false;
+        Order_Main.Post;
+      end
+      else
+        Next;
+    end;
+  end;
+  Order_Main.EnableControls;
+ { Order_Main.DisableControls;
+  with Order_Main do
+  begin
+    First;
     while not Eof do
     begin
       if Order_Main.FieldByName('SSel').AsBoolean = True then
       begin
-          //begin                         
         with ADOQueryCmd do
         begin
           Close;
@@ -1976,7 +2023,6 @@ begin
           sql.Add('update WFB_MJJY set CKFlag=''���'',CKtime=null,CKer=null where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
           ExecSQL;
         end;
-
         Edit;
         FieldByName('CKFlag').Value := '���';
         FieldByName('SSel').AsBoolean := False;
@@ -1987,7 +2033,7 @@ begin
         Next;
     end;
   end;
-  Order_Main.EnableControls;
+  Order_Main.EnableControls; }
 
 end;