diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas
index 6351d1d..aad32a6 100644
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@@ -13,18 +13,17 @@ uses
   MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI,
   dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
   dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
-  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
-  dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
-  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
-  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
-  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
-  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
-  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
-  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
-  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
-  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
-  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
-  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
+  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
+  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
+  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
+  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
+  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
+  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
+  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
+  dxSkinXmas2008Blue, dxSkinscxPCPainter;
 
 type
   TfrmMJManageNewFDNewSF = class(TForm)
@@ -456,7 +455,7 @@ procedure TfrmMJManageNewFDNewSF.On1301(var Message: Tmessage);
 var
   i1, i2: integer;
   unitname: string;
-  fdata: double;
+  fdata: double;                          
 begin
   i1 := Message.WParam;
   i2 := Message.LParam;
@@ -465,7 +464,7 @@ begin
 
     if (trim(Edit7.Text) = '��') then
     begin
-      ShowMessage('1301');
+
       MJLen.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
       if i2 = 0 then
         Label9.Caption := 'M'
@@ -531,14 +530,11 @@ type
   TMyFunc = function(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): HWND; stdcall;
 var
   Tf: TMyFunc;
-  Tp: TFarProc;                                 
+  Tp: TFarProc;
   Th: Thandle;
-
-  begin
+begin
  //  closeCom(FComFile);
 
-    ShowMessage('1301');
-
   Th := LoadLibrary(Pchar(trim(DllName)));
   if Th > 0 then
   begin
@@ -562,7 +558,7 @@ var
     finally
     // FreeLibrary(Th);
     end;
-     ShowMessage('һ��1301');
+
   end
   else
   begin
@@ -652,10 +648,7 @@ begin
     if trim(DllName) <> '' then
       OpenCom(DllName);
     if trim(JCYDLL) <> '' then
-    begin
-      ShowMessage('1301');
       OpenCom(JCYDLL);
-    end;
 
     Edit7.Visible := true;
     Label35.Visible := true;
@@ -675,7 +668,7 @@ begin
     sql.Clear;
     sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO ');
 //    showmessage(sql.text);
-    Open;                         
+    Open;
   end;
   if ADOTmp.IsEmpty then
   begin
@@ -1374,7 +1367,7 @@ begin
       with ADOCmd do
       begin
         Close;
-        SQL.Clear;                                                                                                     
+        SQL.Clear;
         sql.Add('select Top 1 MJXH,MJID from WFB_MJJY A where A.Subid=''' + Trim(FSubid) + ''' order by MJXH Desc');
         Open;
       end;
@@ -1896,7 +1889,7 @@ begin
       RM2.PrintReport;
     end;
 
-    if MggCDFalg = '99' then       
+    if MggCDFalg = '99' then
     begin
       with ADOCmd do
       begin
@@ -2743,7 +2736,7 @@ begin
   MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString);
   MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString);
   baono.Text := Trim(ADOTmp.fieldbyname('baono').AsString);
-  baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString);    
+  baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString);
   if Trim(ADOTmp.fieldbyname('MJType').AsString) = '��Ʒ' then
   begin
     Edit3.Text := '��';