1

2025-06-04 14:51:18 +08:00 · 2025-06-04 14:51:18 +08:00 · 298ffe5dca
commit 298ffe5dca
parent cc81ebbd15
8 changed files with 216 additions and 188 deletions
--- a/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof
+++ b/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof
@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\马哥代码\项目代码\云翔\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
+HostApplication=D:\马国钢开发代码\项目代码\D7WMyunxiang\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
--- a/成品仓库(FinishedClothWarehouse.dll)/ProjectGroup1.bpg
+++ b/成品仓库(FinishedClothWarehouse.dll)/ProjectGroup1.bpg
@ -9,7 +9,7 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
 DCC = $(ROOT)\bin\dcc32.exe $**
 BRCC = $(ROOT)\bin\brcc32.exe $**
 #------------------------------------------------------------------------------
-PROJECTS = testDll.exe
+PROJECTS = testDll.exe FinishedClothWarehouse.dll
 #------------------------------------------------------------------------------
 default: $(PROJECTS)
 #------------------------------------------------------------------------------
@ -17,4 +17,7 @@ default: $(PROJECTS)
 testDll.exe: testDll.dpr
  $(DCC)

+FinishedClothWarehouse.dll: FinishedClothWarehouse.dpr
+  $(DCC)
+

--- a/成品仓库(FinishedClothWarehouse.dll)/ProjectGroup1.~bpg
+++ b/成品仓库(FinishedClothWarehouse.dll)/ProjectGroup1.~bpg
@ -9,7 +9,7 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
 DCC = $(ROOT)\bin\dcc32.exe $**
 BRCC = $(ROOT)\bin\brcc32.exe $**
 #------------------------------------------------------------------------------
-PROJECTS = testDll.exe ProductPrice.dll
+PROJECTS = testDll.exe
 #------------------------------------------------------------------------------
 default: $(PROJECTS)
 #------------------------------------------------------------------------------
@ -17,7 +17,4 @@ default: $(PROJECTS)
 testDll.exe: testDll.dpr
  $(DCC)

-ProductPrice.dll: ProductPrice.dpr
-  $(DCC)
-

--- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.dfm
+++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.dfm
@ -1,25 +1,25 @@
 object frmCKProductBCPOutList: TfrmCKProductBCPOutList
-  Left = 245
-  Top = 105
+  Left = 309
+  Top = 334
  Width = 1621
  Height = 863
  Caption = #25104#21697#20986#24211#21015#34920
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
-  Font.Height = -15
+  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
-  PixelsPerInch = 120
-  TextHeight = 15
+  PixelsPerInch = 96
+  TextHeight = 12
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
-    Width = 1603
+    Width = 1613
    Height = 33
    ButtonHeight = 30
    ButtonWidth = 115
@ -64,7 +64,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
    end
    object ComboBox1: TComboBox
      Left = 317
-      Top = 0
+      Top = 1
      Width = 128
      Height = 27
      Style = csDropDownList
@ -110,165 +110,165 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
  object Panel1: TPanel
    Left = 0
    Top = 33
-    Width = 1603
-    Height = 105
+    Width = 1613
+    Height = 84
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = clSkyBlue
    TabOrder = 1
    object Label3: TLabel
-      Left = 553
-      Top = 15
-      Width = 92
-      Height = 22
+      Left = 442
+      Top = 12
+      Width = 80
+      Height = 19
      Caption = #20013#25991#21517#31216
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
-      Left = 786
-      Top = 15
-      Width = 46
-      Height = 22
+      Left = 629
+      Top = 12
+      Width = 40
+      Height = 19
      Caption = #39068#33394
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
-      Left = 110
-      Top = 50
-      Width = 23
-      Height = 22
+      Left = 88
+      Top = 40
+      Width = 20
+      Height = 19
      Caption = #33267
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
-      Left = 316
-      Top = 50
-      Width = 92
-      Height = 22
+      Left = 253
+      Top = 40
+      Width = 80
+      Height = 19
      Caption = #25351#31034#21333#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
-      Left = 786
-      Top = 50
-      Width = 46
-      Height = 22
+      Left = 629
+      Top = 40
+      Width = 40
+      Height = 19
      Caption = #26465#30721
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
-      Left = 1018
-      Top = 15
-      Width = 46
-      Height = 22
+      Left = 814
+      Top = 12
+      Width = 40
+      Height = 19
      Caption = #31867#22411
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
-      Left = 316
-      Top = 15
-      Width = 92
-      Height = 22
+      Left = 253
+      Top = 12
+      Width = 80
+      Height = 19
      Caption = #20986#24211#21333#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
-      Left = 598
-      Top = 50
-      Width = 46
-      Height = 22
+      Left = 478
+      Top = 40
+      Width = 40
+      Height = 19
      Caption = #32568#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label22: TLabel
-      Left = 1225
-      Top = 15
-      Width = 46
-      Height = 22
+      Left = 980
+      Top = 12
+      Width = 40
+      Height = 19
      Caption = #23458#25143
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label24: TLabel
-      Left = 973
-      Top = 50
-      Width = 92
-      Height = 22
+      Left = 778
+      Top = 40
+      Width = 80
+      Height = 19
      Caption = #20986#24211#31867#22411
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label8: TLabel
-      Left = 1203
-      Top = 50
-      Width = 69
-      Height = 22
+      Left = 962
+      Top = 40
+      Width = 60
+      Height = 19
      Caption = #21512#21516#21495
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
    end
    object MLCodeName: TEdit
      Tag = 2
-      Left = 648
-      Top = 10
-      Width = 112
-      Height = 25
+      Left = 518
+      Top = 8
+      Width = 90
+      Height = 30
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
@ -276,30 +276,30 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
      OnKeyPress = MLOrderNoKeyPress
    end
    object BegDate: TDateTimePicker
-      Left = 140
-      Top = 10
-      Width = 154
-      Height = 30
+      Left = 112
+      Top = 8
+      Width = 123
+      Height = 27
      Date = 40768.458268587970000000
      Time = 40768.458268587970000000
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object EndDate: TDateTimePicker
-      Left = 140
-      Top = 45
-      Width = 154
-      Height = 30
+      Left = 112
+      Top = 36
+      Width = 123
+      Height = 27
      Date = 40768.458268587970000000
      Time = 40768.458268587970000000
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
@ -307,13 +307,13 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
    end
    object MLOrderNo: TEdit
      Tag = 2
-      Left = 408
-      Top = 45
-      Width = 112
-      Height = 25
+      Left = 326
+      Top = 36
+      Width = 90
+      Height = 30
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
@ -322,13 +322,13 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
    end
    object MJID: TEdit
      Tag = 2
-      Left = 834
-      Top = 45
-      Width = 112
-      Height = 25
+      Left = 667
+      Top = 36
+      Width = 90
+      Height = 30
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
@ -337,13 +337,13 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
    end
    object CkOrdNo: TEdit
      Tag = 2
-      Left = 408
-      Top = 10
-      Width = 112
-      Height = 25
+      Left = 326
+      Top = 8
+      Width = 90
+      Height = 30
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
@ -351,10 +351,10 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
      OnKeyPress = MLOrderNoKeyPress
    end
    object begtime: TDateTimePicker
-      Left = 56
-      Top = 125
-      Width = 69
-      Height = 23
+      Left = 45
+      Top = 100
+      Width = 55
+      Height = 20
      Date = 39780.000000000000000000
      Format = 'HH:mm'
      Time = 39780.000000000000000000
@ -362,10 +362,10 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
      TabOrder = 12
    end
    object endTime: TDateTimePicker
-      Left = 56
-      Top = 155
-      Width = 69
-      Height = 23
+      Left = 45
+      Top = 124
+      Width = 55
+      Height = 20
      Date = 39780.999317129630000000
      Format = 'HH:mm'
      Time = 39780.999317129630000000
@ -374,13 +374,13 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
    end
    object CXKH: TEdit
      Tag = 2
-      Left = 1271
-      Top = 10
-      Width = 100
-      Height = 25
+      Left = 1017
+      Top = 8
+      Width = 80
+      Height = 30
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
@ -389,17 +389,17 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
    end
    object CRType: TComboBox
      Tag = 2
-      Left = 1065
-      Top = 45
-      Width = 113
-      Height = 30
+      Left = 852
+      Top = 36
+      Width = 90
+      Height = 27
      Style = csDropDownList
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
-      ItemHeight = 22
+      ItemHeight = 19
      ParentFont = False
      TabOrder = 9
      OnChange = CRTypeChange
@ -414,17 +414,17 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
    end
    object CPType: TComboBox
      Tag = 2
-      Left = 1065
-      Top = 10
-      Width = 113
-      Height = 30
+      Left = 852
+      Top = 8
+      Width = 90
+      Height = 27
      Style = csDropDownList
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
-      ItemHeight = 22
+      ItemHeight = 19
      ParentFont = False
      TabOrder = 8
      OnChange = CPTypeChange
@ -435,15 +435,15 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
        '')
    end
    object IsJYTime: TCheckBox
-      Left = 24
-      Top = 15
-      Width = 119
-      Height = 21
+      Left = 19
+      Top = 12
+      Width = 95
+      Height = 17
      Caption = #26597#35810#26085#26399
      Checked = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
@ -452,13 +452,13 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
    end
    object MLColor: TEdit
      Tag = 2
-      Left = 834
-      Top = 10
-      Width = 112
-      Height = 25
+      Left = 667
+      Top = 8
+      Width = 90
+      Height = 30
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
@ -467,13 +467,13 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
    end
    object ganghao: TEdit
      Tag = 2
-      Left = 648
-      Top = 45
-      Width = 112
-      Height = 25
+      Left = 518
+      Top = 36
+      Width = 90
+      Height = 30
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
@ -482,13 +482,13 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
    end
    object MLConNo: TEdit
      Tag = 2
-      Left = 1271
-      Top = 45
-      Width = 100
-      Height = 25
+      Left = 1017
+      Top = 36
+      Width = 80
+      Height = 30
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -22
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
@ -498,9 +498,9 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
  end
  object cxGrid2: TcxGrid
    Left = 0
-    Top = 177
-    Width = 1603
-    Height = 639
+    Top = 150
+    Width = 1613
+    Height = 682
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 3
@ -670,7 +670,7 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
      end
      object v1Column10: TcxGridDBColumn
        Caption = #32568#21495
-        DataBinding.FieldName = 'ganghao'
+        DataBinding.FieldName = 'gangNO'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 79
@ -702,16 +702,16 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
    end
  end
  object MovePanel2: TMovePanel
-    Left = 590
-    Top = 400
-    Width = 361
-    Height = 61
+    Left = 472
+    Top = 320
+    Width = 289
+    Height = 49
    BevelInner = bvLowered
    Caption = #27491#22312#25191#34892#25968#25454#25805#20316#65292#35831#31245#21518#12290#12290#12290
    Color = clSkyBlue
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
-    Font.Height = -17
+    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
@ -720,65 +720,65 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
  end
  object Panel6: TPanel
    Left = 0
-    Top = 138
-    Width = 1603
-    Height = 39
+    Top = 117
+    Width = 1613
+    Height = 33
    Align = alTop
    AutoSize = True
    BorderStyle = bsSingle
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
-    Font.Height = -23
+    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    DesignSize = (
-      1599
-      35)
+      1609
+      29)
    object LBCPAP: TLabel
-      Left = 634
-      Top = 4
-      Width = 106
-      Height = 27
+      Left = 507
+      Top = 3
+      Width = 85
+      Height = 22
      Alignment = taCenter
      Anchors = [akLeft, akTop, akBottom]
      AutoSize = False
      Caption = #24403#21069#39029'/'#24635#39029#25968
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -23
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Layout = tlCenter
    end
    object Label1: TLabel
-      Left = 30
-      Top = 5
-      Width = 158
-      Height = 28
+      Left = 24
+      Top = 4
+      Width = 126
+      Height = 22
      Alignment = taCenter
      Anchors = [akLeft, akTop, akBottom]
      AutoSize = False
      Caption = #27599#39029#35760#24405#26465#25968
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -23
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      Layout = tlCenter
    end
    object BTLP: TButton
-      Left = 524
-      Top = 3
-      Width = 97
-      Height = 31
+      Left = 419
+      Top = 2
+      Width = 78
+      Height = 25
      Caption = #19978#19968#39029
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -23
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
@ -786,14 +786,14 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
      OnClick = BTLPClick
    end
    object BTNP: TButton
-      Left = 746
+      Left = 597
      Top = 1
-      Width = 98
-      Height = 32
+      Width = 78
+      Height = 25
      Caption = #19979#19968#39029
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -23
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
@ -802,18 +802,18 @@ object frmCKProductBCPOutList: TfrmCKProductBCPOutList
    end
    object TCBNOR: TComboBox
      Tag = 2
-      Left = 195
+      Left = 156
      Top = 1
-      Width = 98
-      Height = 31
+      Width = 78
+      Height = 27
      Style = csDropDownList
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
-      Font.Height = -23
+      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
-      ItemHeight = 23
+      ItemHeight = 19
      ItemIndex = 0
      ParentFont = False
      TabOrder = 2
--- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.pas
+++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPOutList.pas
@ -11,7 +11,21 @@ uses
  ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
  cxDropDownEdit, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System,
  RM_GridReport, cxCheckBox, Menus, MovePanel, RM_E_llPDF, cxCalendar, Math,
-  Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
+  Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, 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;

 type
  TfrmCKProductBCPOutList = class(TForm)
--- a/成品仓库(FinishedClothWarehouse.dll)/U_DataLink.dfm
+++ b/成品仓库(FinishedClothWarehouse.dll)/U_DataLink.dfm
@ -17858,7 +17858,7 @@ object DataLink_FinishedClothWarehouse: TDataLink_FinishedClothWarehouse
  object ThreeColorBase: TcxStyleRepository
    Left = 147
    Top = 80
-    PixelsPerInch = 120
+    PixelsPerInch = 96
    object SHuangSe: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 4707838
--- a/成品仓库(FinishedClothWarehouse.dll)/U_DataLink.pas
+++ b/成品仓库(FinishedClothWarehouse.dll)/U_DataLink.pas
@ -4,7 +4,21 @@ interface

 uses
  SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
-  Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses;
+  Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, 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;
 var
   DConString:String;   {全局连接字符串}
   server, dtbase, user, pswd: String;  {数据库连接参数}
--- a/成品仓库(FinishedClothWarehouse.dll)/U_testdll.dfm
+++ b/成品仓库(FinishedClothWarehouse.dll)/U_testdll.dfm
@ -21,7 +21,7 @@ object Form1: TForm1
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
-    Width = 775
+    Width = 783
    Height = 25
    ButtonWidth = 57
    Caption = 'ToolBar1'