~

检验管理/U_MJManageNewFDNew.dfm

@@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     Left = 0
     Top = 101
     Width = 237
-    Height = 606
+    Height = 598
     Align = alLeft
     TabOrder = 1
     object Tv3: TcxGridDBTableView
@@ -127,8 +127,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
   object ScrollBox1: TScrollBox
     Left = 645
     Top = 101
-    Width = 612
-    Height = 606
+    Width = 604
+    Height = 598
     Align = alClient
     TabOrder = 4
     object SpeedButton13: TSpeedButton
@@ -977,7 +977,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     Left = 445
     Top = 101
     Width = 200
-    Height = 606
+    Height = 598
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -1801,7 +1801,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
   object Panel4: TPanel
     Left = 0
     Top = 0
-    Width = 1257
+    Width = 1249
     Height = 101
     Align = alTop
     BevelInner = bvRaised
@@ -1810,14 +1810,14 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     object Panel5: TPanel
       Left = 2
       Top = 2
-      Width = 1253
+      Width = 1245
       Height = 97
       Align = alClient
       TabOrder = 0
       object Panel6: TPanel
         Left = 1
         Top = 31
-        Width = 1251
+        Width = 1243
         Height = 78
         Align = alTop
         BevelInner = bvRaised
@@ -2179,7 +2179,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       object ToolBar1: TToolBar
         Left = 1
         Top = 1
-        Width = 1251
+        Width = 1243
         Height = 30
         ButtonHeight = 30
         ButtonWidth = 107
@@ -2506,7 +2506,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     Left = 237
     Top = 101
     Width = 208
-    Height = 606
+    Height = 598
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -2515,7 +2515,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Left = 2
       Top = 2
       Width = 204
-      Height = 280
+      Height = 272
       Align = alClient
       TabOrder = 0
       object Tv2: TcxGridDBTableView
@@ -2624,7 +2624,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Panel8: TPanel
       Left = 2
-      Top = 282
+      Top = 274
       Width = 204
       Height = 29
       Align = alBottom
@@ -2639,7 +2639,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object AOrdDefNote1: TRichEdit
       Left = 2
-      Top = 311
+      Top = 303
       Width = 204
       Height = 293
       Align = alBottom

检验管理/U_MJManageNewFDNew.pas

@@ -511,9 +511,9 @@ begin
   if isCommopen then
   begin
     if trim(DllName) <> '' then
-      closeCom(DllName);
-    if trim(JCYDLL) <> '' then
-      closeCom(JCYDLL);
+      closeCom(DllName);             
+//    if trim(JCYDLL) <> '' then
+//      closeCom(JCYDLL);                     
   end;
 
 end;