11

报关管理(BaoGuan.dll)/BaoGuan.dpr

@@ -19,7 +19,13 @@ uses
   U_SelExportField in '..\Z99Dependency\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
   U_ColumnBandSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
   U_ColumnSet in '..\Z99Dependency\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
-  U_SelPrintFieldNew in '..\Z99Dependency\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew};
+  U_SelPrintFieldNew in '..\Z99Dependency\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
+  U_ClientPrintRmf in '..\A00±êÇ©´òÓ¡\U_ClientPrintRmf.pas' {frmClientPrintRmf},
+  U_LabelMapSet in '..\A00±êÇ©´òÓ¡\U_LabelMapSet.pas' {frmLabelMapSet},
+  U_LabelPrint in '..\A00±êÇ©´òÓ¡\U_LabelPrint.pas' {frmLabelPrint},
+  superobject in '..\Z99Dependency\ThreeFun\Fun\superobject.pas',
+  U_QrCodeFun in '..\A00±êÇ©´òÓ¡\U_QrCodeFun.pas',
+  U_LabelPrintFun in '..\A00±êÇ©´òÓ¡\U_LabelPrintFun.pas';
 
 // U_SelfForm in '..\..\SelfForm\U_SelfForm.pas',
  // U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField},

染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm

@@ -1,6 +1,6 @@
 object frmMarkingInspection: TfrmMarkingInspection
-  Left = 318
+  Left = 556
-  Top = 159
+  Top = 370
   Width = 1539
   Height = 825
   Align = alLeft
@@ -1987,22 +1987,6 @@ object frmMarkingInspection: TfrmMarkingInspection
       TabOrder = 11
       OnClick = BTPrintClick
     end
-    object Button5: TButton
-      Left = 19
-      Top = 557
-      Width = 80
-      Height = 45
-      Caption = #37325#25171
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -20
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
-      TabOrder = 12
-      Visible = False
-      OnClick = Button5Click
-    end
     object Edit3: TEdit
       Left = 52
       Top = 307
@@ -2163,7 +2147,7 @@ object frmMarkingInspection: TfrmMarkingInspection
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      TabOrder = 13
+      TabOrder = 12
       Visible = False
       OnChange = MJLenChange
       OnClick = Edit1Click
@@ -2181,7 +2165,7 @@ object frmMarkingInspection: TfrmMarkingInspection
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      TabOrder = 14
+      TabOrder = 13
       OnClick = Button3Click
     end
     object JYPerson: TEdit
@@ -2195,7 +2179,7 @@ object frmMarkingInspection: TfrmMarkingInspection
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      TabOrder = 15
+      TabOrder = 14
     end
     object Button6: TButton
       Left = 123
@@ -2209,7 +2193,7 @@ object frmMarkingInspection: TfrmMarkingInspection
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      TabOrder = 16
+      TabOrder = 15
       OnClick = Button6Click
     end
     object KuangHao: TEdit
@@ -2224,7 +2208,7 @@ object frmMarkingInspection: TfrmMarkingInspection
       Font.Style = [fsBold]
       ParentFont = False
       ReadOnly = True
-      TabOrder = 17
+      TabOrder = 16
       OnClick = Edit1Click
       OnKeyPress = MJstr3KeyPress
     end
@@ -2240,25 +2224,9 @@ object frmMarkingInspection: TfrmMarkingInspection
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      TabOrder = 18
+      TabOrder = 17
       OnClick = Button7Click
     end
-    object Button8: TButton
-      Left = 123
-      Top = 556
-      Width = 110
-      Height = 45
-      Caption = #37325#25171#21253#26631#31614
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -20
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
-      TabOrder = 19
-      Visible = False
-      OnClick = Button8Click
-    end
     object Button9: TButton
       Left = 19
       Top = 508
@@ -2271,14 +2239,14 @@ object frmMarkingInspection: TfrmMarkingInspection
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      TabOrder = 20
+      TabOrder = 18
       OnClick = Button9Click
     end
     object cxImage1: TcxImage
       Left = 43
       Top = 608
       AutoSize = True
-      TabOrder = 21
+      TabOrder = 19
       Visible = False
       Height = 113
       Width = 169
@@ -2650,6 +2618,38 @@ object frmMarkingInspection: TfrmMarkingInspection
         ParentFont = False
         TabOrder = 5
       end
+      object Button5: TButton
+        Left = 291
+        Top = 48
+        Width = 80
+        Height = 28
+        Caption = #37325#25171
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -20
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+        TabOrder = 6
+        Visible = False
+        OnClick = Button5Click
+      end
+      object Button8: TButton
+        Left = 390
+        Top = 48
+        Width = 110
+        Height = 28
+        Caption = #37325#25171#21253#26631#31614
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -20
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+        TabOrder = 7
+        Visible = False
+        OnClick = Button8Click
+      end
     end
     object ToolBar1: TToolBar
       Left = 1
@@ -2931,7 +2931,7 @@ object frmMarkingInspection: TfrmMarkingInspection
   end
   object MovePanel1: TMovePanel
     Left = 237
-    Top = 93
+    Top = 133
     Width = 391
     Height = 337
     BevelInner = bvLowered

染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas

@@ -98,7 +98,6 @@ type
     Label5: TLabel;
     Label11: TLabel;
     BTPrint: TButton;
-    Button5: TButton;
     Edit3: TEdit;
     Label10: TLabel;
     Edit4: TEdit;
@@ -202,7 +201,6 @@ type
     v3Column8: TcxGridDBColumn;
     ToolButton4: TToolButton;
     Button7: TButton;
-    Button8: TButton;
     Button9: TButton;
     Tv3Column1: TcxGridDBColumn;
     ScrollBox1: TScrollBox;
@@ -330,6 +328,8 @@ type
     Label25: TLabel;
     BarCode: TEdit;
     Tv3Column2: TcxGridDBColumn;
+    Button5: TButton;
+    Button8: TButton;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);