diff --git a/报关管理(BaoGuan.dll)/BaoGuan.dpr b/报关管理(BaoGuan.dll)/BaoGuan.dpr index e3e747f..928341b 100644 --- a/报关管理(BaoGuan.dll)/BaoGuan.dpr +++ b/报关管理(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}, diff --git a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm index d151c61..1fc2c60 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm +++ b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm @@ -1,6 +1,6 @@ object frmMarkingInspection: TfrmMarkingInspection - Left = 318 - Top = 159 + Left = 556 + 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 diff --git a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas index d609b78..df6bc0f 100644 --- a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.pas +++ b/染整计划(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);