111

2025-04-16 16:55:15 +08:00 · 2025-04-16 16:55:15 +08:00 · f32d12dffc
commit f32d12dffc
parent f46fb83cdf
7 changed files with 285 additions and 75 deletions
--- a/F04染色刷卡/DyeProcess.identcache
+++ b/F04染色刷卡/DyeProcess.identcache
--- a/进度统计查询(Statistics.dll)/Statistics.dproj
+++ b/进度统计查询(Statistics.dll)/Statistics.dproj
@ -124,7 +124,7 @@
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
-        <Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmXinHua\进度统计查询(Statistics.dll)\testDll.exe</Debugger_HostApplication>
+        <Debugger_HostApplication>D:\Dp10Repo\项目代码\D10gmBitao\进度统计查询(Statistics.dll)\testDll.exe</Debugger_HostApplication>
    </PropertyGroup>
    <ItemGroup>
        <DelphiCompile Include="$(MainSource)">
--- a/进度统计查询(Statistics.dll)/Statistics.identcache
+++ b/进度统计查询(Statistics.dll)/Statistics.identcache
--- a/进度统计查询(Statistics.dll)/Statistics.skincfg
+++ b/进度统计查询(Statistics.dll)/Statistics.skincfg
@ -0,0 +1,5 @@
+[ExpressSkins]
+Default=1
+ShowNotifications=1
+Enabled=1
+dxSkinsDefaultPainters=1
--- a/进度统计查询(Statistics.dll)/U_GetDllForm.pas
+++ b/进度统计查询(Statistics.dll)/U_GetDllForm.pas
@ -69,7 +69,7 @@ begin
  if trim(DataBaseStr) = '' then
  begin
    server := '101.132.143.144,7781';
-    dtbase := 'xinhuahuaqiandata';
+    dtbase := 'bitaodata';
    user := 'rtsa';
    pswd := 'rightsoft@5740';
    DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
--- a/进度统计查询(Statistics.dll)/U_OrderProgress.dfm
+++ b/进度统计查询(Statistics.dll)/U_OrderProgress.dfm
@ -3,8 +3,8 @@ inherited frmOrderProgress: TfrmOrderProgress
  Top = 107
  Caption = #35746#21333#36827#24230
  ClientHeight = 554
-  ClientWidth = 1267
-  ExplicitWidth = 1283
+  ClientWidth = 1347
+  ExplicitWidth = 1363
  ExplicitHeight = 593
  PixelsPerInch = 96
  TextHeight = 12
@ -12,11 +12,11 @@ inherited frmOrderProgress: TfrmOrderProgress
    Tag = 1
    Left = 0
    Top = 0
-    Width = 1267
+    Width = 1347
    Height = 38
    AutoSize = True
    ButtonHeight = 38
-    ButtonWidth = 75
+    ButtonWidth = 91
    Caption = 'ToolBar1'
    Color = clWhite
    DisabledImages = DataLink_Statistics.ImageList_new32
@ -41,16 +41,24 @@ inherited frmOrderProgress: TfrmOrderProgress
      ImageIndex = 0
      OnClick = ToolButton2Click
    end
-    object ToolButton1: TToolButton
+    object btn1: TToolButton
      Left = 142
      Top = 0
      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = btn1Click
+    end
+    object ToolButton1: TToolButton
+      Left = 237
+      Top = 0
+      AutoSize = True
      Caption = #23548#20986
      ImageIndex = 20
      OnClick = ToolButton1Click
    end
    object TBClose: TToolButton
-      Left = 213
+      Left = 308
      Top = 0
      AutoSize = True
      Caption = #20851#38381
@ -61,13 +69,14 @@ inherited frmOrderProgress: TfrmOrderProgress
  object Panel1: TPanel [1]
    Left = 0
    Top = 38
-    Width = 1267
+    Width = 1347
    Height = 91
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = clSkyBlue
    TabOrder = 1
+    ExplicitWidth = 1267
    object Label3: TLabel
      Left = 245
      Top = 50
@ -101,7 +110,7 @@ inherited frmOrderProgress: TfrmOrderProgress
      Top = 50
      Width = 48
      Height = 12
-      Caption = #21512' '#21516' '#21495
+      Caption = #35746' '#21333' '#21495
    end
    object Label9: TLabel
      Left = 418
@ -110,6 +119,13 @@ inherited frmOrderProgress: TfrmOrderProgress
      Height = 12
      Caption = #19994' '#21153' '#21592
    end
+    object lbl1: TLabel
+      Left = 625
+      Top = 10
+      Width = 48
+      Height = 12
+      Caption = #23458'    '#25143
+    end
    object C_Name: TEdit
      Tag = 2
      Left = 299
@ -150,7 +166,7 @@ inherited frmOrderProgress: TfrmOrderProgress
      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
      TabOrder = 0
    end
-    object ConNo: TEdit
+    object OrderNo: TEdit
      Tag = 2
      Left = 496
      Top = 46
@ -169,16 +185,28 @@ inherited frmOrderProgress: TfrmOrderProgress
      TabOrder = 5
      OnChange = C_NameChange
    end
+    object CustName: TEdit
+      Tag = 2
+      Left = 703
+      Top = 6
+      Width = 89
+      Height = 20
+      TabOrder = 6
+      OnChange = C_NameChange
+    end
  end
  object cxGrid1: TcxGrid [2]
    Left = 0
    Top = 129
-    Width = 1267
+    Width = 1347
    Height = 425
    Align = alClient
    TabOrder = 2
+    ExplicitLeft = 132
+    ExplicitTop = 110
    object TV1: TcxGridDBBandedTableView
      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
      DataController.DataSource = DataSource1
      DataController.Filter.AutoDataSetFilter = True
      DataController.Summary.DefaultGroupSummaryItems = <>
@ -450,98 +478,104 @@ inherited frmOrderProgress: TfrmOrderProgress
      Styles.Inactive = DataLink_Statistics.FontBlue
      Styles.BandHeader = DataLink_Statistics.FontBlue
      Bands = <
-        item
-          Caption = #38144#21806#21512#21516
-          Options.Moving = False
-          Styles.Header = DataLink_Statistics.FoneRed
-          Width = 900
-        end
        item
          Caption = #29983#20135#21333
          Options.Moving = False
-          Width = 162
+          Width = 728
        end
        item
          Caption = #24067#31080#25171#21360
-          Width = 115
+          Width = 97
        end
        item
          Caption = #24067#21305#19979#26426
-          Width = 95
+          Width = 77
        end
        item
          Caption = #22383#24067#26816#39564
-          Width = 162
+          Styles.Header = cxStyle5
+          Width = 146
        end
        item
          Caption = #22383#24067#20986#24211
-          Width = 162
+          Styles.Header = cxStyle5
+          Width = 130
        end
        item
          Caption = #22383#24067#24211#23384
-          Width = 162
+          Styles.Header = cxStyle5
+          Width = 133
+        end
+        item
+          Caption = #21518#22788#29702
+          Styles.Header = cxStyle2
        end
        item
          Caption = #25104#21697#26816#39564
          Options.Moving = False
          Styles.Header = DataLink_Statistics.FonePurple
-          Width = 235
+          Width = 214
        end
        item
          Caption = #25104#21697#20986#24211
          Styles.Header = DataLink_Statistics.FonePurple
-          Width = 235
+          Width = 213
        end
        item
          Caption = #25104#21697#24211#23384
          Styles.Header = DataLink_Statistics.FonePurple
-          Width = 235
+          Width = 215
        end>
      object cxGridDBBandedColumn35: TcxGridDBBandedColumn
        Caption = #20135#21697#21517#31216
        DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
-        Width = 92
+        Width = 76
        Position.BandIndex = 0
-        Position.ColIndex = 4
+        Position.ColIndex = 3
        Position.RowIndex = 0
      end
      object cxGridDBBandedColumn42: TcxGridDBBandedColumn
        Caption = #20135#21697#32534#21495
        DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
-        Width = 88
+        Width = 73
        Position.BandIndex = 0
-        Position.ColIndex = 3
+        Position.ColIndex = 2
        Position.RowIndex = 0
      end
      object cxGridDBBandedColumn51: TcxGridDBBandedColumn
        Caption = #21305#25968
        DataBinding.FieldName = 'OrdPiece'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
-        Width = 72
-        Position.BandIndex = 1
-        Position.ColIndex = 0
+        Width = 42
+        Position.BandIndex = 0
+        Position.ColIndex = 10
        Position.RowIndex = 0
      end
      object cxGridDBBandedColumn52: TcxGridDBBandedColumn
-        Caption = #25968#37327
-        DataBinding.FieldName = 'OrdPiece'
+        Caption = #35746#21333#25968#37327
+        DataBinding.FieldName = 'OrdQty'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
-        Width = 72
-        Position.BandIndex = 1
-        Position.ColIndex = 1
+        Width = 60
+        Position.BandIndex = 0
+        Position.ColIndex = 8
        Position.RowIndex = 0
      end
      object cxGridDBBandedColumn57: TcxGridDBBandedColumn
        Caption = #21305#25968
        DataBinding.FieldName = 'CPJYPS'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
@ -553,6 +587,7 @@ inherited frmOrderProgress: TfrmOrderProgress
      object cxGridDBBandedColumn59: TcxGridDBBandedColumn
        Caption = #38271#24230
        DataBinding.FieldName = 'CPJYQty'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
@ -563,6 +598,7 @@ inherited frmOrderProgress: TfrmOrderProgress
      end
      object cxGridDBBandedColumn61: TcxGridDBBandedColumn
        DataBinding.FieldName = 'IsHG'
+        DataBinding.IsNullValueType = True
        Visible = False
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
@ -574,6 +610,7 @@ inherited frmOrderProgress: TfrmOrderProgress
      object cxGridDBBandedColumn63: TcxGridDBBandedColumn
        Caption = #27719#24635#21333#21495
        DataBinding.FieldName = 'OrderNoHZ'
+        DataBinding.IsNullValueType = True
        Visible = False
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
@ -583,20 +620,22 @@ inherited frmOrderProgress: TfrmOrderProgress
        Position.RowIndex = -1
      end
      object cxGridDBBandedColumn64: TcxGridDBBandedColumn
-        Caption = #38144#21806#26085#26399
-        DataBinding.FieldName = 'ConDate'
+        Caption = #19979#21333#26085#26399
+        DataBinding.FieldName = 'OrdDate'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxDateEditProperties'
        Properties.ShowTime = False
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
-        Width = 75
+        Width = 70
        Position.BandIndex = 0
-        Position.ColIndex = 2
+        Position.ColIndex = 11
        Position.RowIndex = 0
      end
      object cxGridDBBandedColumn77: TcxGridDBBandedColumn
        Caption = #21305#25968
        DataBinding.FieldName = 'DCPS'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 66
@ -607,28 +646,31 @@ inherited frmOrderProgress: TfrmOrderProgress
      object cxGridDBBandedColumn79: TcxGridDBBandedColumn
        Caption = #20986#24211#21305#25968
        DataBinding.FieldName = 'PBCKPS'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 66
-        Position.BandIndex = 5
+        Position.BandIndex = 4
        Position.ColIndex = 0
        Position.RowIndex = 0
      end
      object cxGridDBBandedColumn87: TcxGridDBBandedColumn
        Caption = #24211#23384#21305#25968
        DataBinding.FieldName = 'PBKCPS'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 81
-        Position.BandIndex = 6
+        Position.BandIndex = 5
        Position.ColIndex = 0
        Position.RowIndex = 0
      end
      object cxGridDBBandedColumn91: TcxGridDBBandedColumn
        Caption = #25968#37327
        DataBinding.FieldName = 'DCSL'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 66
@ -639,26 +681,29 @@ inherited frmOrderProgress: TfrmOrderProgress
      object V1Column26: TcxGridDBBandedColumn
        Caption = #25104#21697#20811#37325
        DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
-        Width = 70
+        Width = 60
        Position.BandIndex = 0
-        Position.ColIndex = 7
+        Position.ColIndex = 6
        Position.RowIndex = 0
      end
      object V1Column27: TcxGridDBBandedColumn
        Caption = #38376#24133
        DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
-        Width = 74
+        Width = 50
        Position.BandIndex = 0
-        Position.ColIndex = 5
+        Position.ColIndex = 4
        Position.RowIndex = 0
      end
      object V1Column4: TcxGridDBBandedColumn
        Caption = #27611#37325
        DataBinding.FieldName = 'CPJYMZ'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
@ -669,27 +714,30 @@ inherited frmOrderProgress: TfrmOrderProgress
      object V1Column5: TcxGridDBBandedColumn
        Caption = #24211#23384#38271#24230
        DataBinding.FieldName = 'PBKCQty'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 79
-        Position.BandIndex = 6
+        Position.BandIndex = 5
        Position.ColIndex = 1
        Position.RowIndex = 0
      end
      object V1Column7: TcxGridDBBandedColumn
        Caption = #20986#24211#38271#24230
        DataBinding.FieldName = 'PBCKQty'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
-        Position.BandIndex = 5
+        Position.BandIndex = 4
        Position.ColIndex = 1
        Position.RowIndex = 0
      end
      object V1Column3: TcxGridDBBandedColumn
        Caption = #26816#39564#21305#25968
        DataBinding.FieldName = 'JYPS'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Position.BandIndex = -1
@ -699,6 +747,7 @@ inherited frmOrderProgress: TfrmOrderProgress
      object V1Column8: TcxGridDBBandedColumn
        Caption = #26816#39564#38271#24230
        DataBinding.FieldName = 'JYlen'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Position.BandIndex = -1
@ -708,16 +757,18 @@ inherited frmOrderProgress: TfrmOrderProgress
      object V1Column9: TcxGridDBBandedColumn
        Caption = #25171#21360#24352#25968
        DataBinding.FieldName = 'CardPiece'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
-        Position.BandIndex = 2
+        Position.BandIndex = 1
        Position.ColIndex = 0
        Position.RowIndex = 0
      end
      object V1Column11: TcxGridDBBandedColumn
        Caption = #26816#39564#37325#37327
        DataBinding.FieldName = 'JYGW'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Position.BandIndex = -1
@ -727,6 +778,7 @@ inherited frmOrderProgress: TfrmOrderProgress
      object TV1Column1: TcxGridDBBandedColumn
        Caption = #38271#24230
        DataBinding.FieldName = 'CPCKQty'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
@ -738,6 +790,7 @@ inherited frmOrderProgress: TfrmOrderProgress
      object TV1Column2: TcxGridDBBandedColumn
        Caption = #27611#37325
        DataBinding.FieldName = 'CPCKMZ'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
@ -749,6 +802,7 @@ inherited frmOrderProgress: TfrmOrderProgress
      object TV1Column3: TcxGridDBBandedColumn
        Caption = #21305#25968
        DataBinding.FieldName = 'CPCKPS'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
@ -760,16 +814,18 @@ inherited frmOrderProgress: TfrmOrderProgress
      object TV1Column4: TcxGridDBBandedColumn
        Caption = #21512#21516#21495
        DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 100
-        Position.BandIndex = 0
-        Position.ColIndex = 0
-        Position.RowIndex = 0
+        Position.BandIndex = -1
+        Position.ColIndex = -1
+        Position.RowIndex = -1
      end
      object TV1Column7: TcxGridDBBandedColumn
        Caption = #21305#25968
        DataBinding.FieldName = 'CPKCPS'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
@ -781,6 +837,7 @@ inherited frmOrderProgress: TfrmOrderProgress
      object TV1Column8: TcxGridDBBandedColumn
        Caption = #27611#37325
        DataBinding.FieldName = 'CPKCMZ'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
@ -792,6 +849,7 @@ inherited frmOrderProgress: TfrmOrderProgress
      object TV1Column12: TcxGridDBBandedColumn
        Caption = #20928#37325
        DataBinding.FieldName = 'CPJYJZ'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
@ -803,6 +861,7 @@ inherited frmOrderProgress: TfrmOrderProgress
      object TV1Column13: TcxGridDBBandedColumn
        Caption = #20928#37325
        DataBinding.FieldName = 'CPCKJZ'
+        DataBinding.IsNullValueType = True
        PropertiesClassName = 'TcxTextEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
@ -814,36 +873,40 @@ inherited frmOrderProgress: TfrmOrderProgress
      object TV1Column15: TcxGridDBBandedColumn
        Caption = #38144#21806#25968#37327
        DataBinding.FieldName = 'ConQty'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 80
-        Position.BandIndex = 0
-        Position.ColIndex = 9
-        Position.RowIndex = 0
+        Position.BandIndex = -1
+        Position.ColIndex = -1
+        Position.RowIndex = -1
      end
      object TV1Column16: TcxGridDBBandedColumn
        Caption = #26816#39564#21305#25968
        DataBinding.FieldName = 'PBJYPS'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
-        Width = 51
-        Position.BandIndex = 4
+        Width = 76
+        Position.BandIndex = 3
        Position.ColIndex = 0
        Position.RowIndex = 0
      end
      object TV1Column17: TcxGridDBBandedColumn
        Caption = #26816#39564#38271#24230
        DataBinding.FieldName = 'PBJYQty'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 70
-        Position.BandIndex = 4
+        Position.BandIndex = 3
        Position.ColIndex = 1
        Position.RowIndex = 0
      end
      object TV1Column6: TcxGridDBBandedColumn
        Caption = #20928#37325
        DataBinding.FieldName = 'CPKCJZ'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Position.BandIndex = 9
@ -853,6 +916,7 @@ inherited frmOrderProgress: TfrmOrderProgress
      object TV1Column9: TcxGridDBBandedColumn
        Caption = #38271#24230
        DataBinding.FieldName = 'CPKCQty'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Position.BandIndex = 9
@ -862,50 +926,134 @@ inherited frmOrderProgress: TfrmOrderProgress
      object TV1Column10: TcxGridDBBandedColumn
        Caption = #39068#33394
        DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 63
-        Position.BandIndex = 0
-        Position.ColIndex = 8
-        Position.RowIndex = 0
+        Position.BandIndex = -1
+        Position.ColIndex = -1
+        Position.RowIndex = -1
      end
      object TV1Column5: TcxGridDBBandedColumn
        Caption = #22383#24067#20811#37325
        DataBinding.FieldName = 'C_KnitGramWeight'
+        DataBinding.IsNullValueType = True
+        Visible = False
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 80
        Position.BandIndex = 0
-        Position.ColIndex = 6
+        Position.ColIndex = 5
        Position.RowIndex = 0
      end
      object TV1Column11: TcxGridDBBandedColumn
        Caption = #19994#21153#21592
        DataBinding.FieldName = 'Saleser'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
-        Width = 80
+        Width = 60
        Position.BandIndex = 0
-        Position.ColIndex = 1
+        Position.ColIndex = 7
        Position.RowIndex = 0
      end
      object TV1Column14: TcxGridDBBandedColumn
        Caption = #19979#26426#21305#25968
        DataBinding.FieldName = 'XJPiece'
+        DataBinding.IsNullValueType = True
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
-        Position.BandIndex = 3
+        Position.BandIndex = 2
        Position.ColIndex = 0
        Position.RowIndex = 0
      end
      object TV1Column19: TcxGridDBBandedColumn
        Caption = #38144#21806#21333#20301
        DataBinding.FieldName = 'ConUnit'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+        Position.BandIndex = -1
+        Position.ColIndex = -1
+        Position.RowIndex = -1
+      end
+      object TV1Column18: TcxGridDBBandedColumn
+        Caption = #35745#21010#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+        Position.BandIndex = 0
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      object TV1Column20: TcxGridDBBandedColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+        Position.BandIndex = 0
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
+      object TV1Column21: TcxGridDBBandedColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'OrdUnit'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 35
+        Position.BandIndex = 0
+        Position.ColIndex = 9
+        Position.RowIndex = 0
+      end
+      object TV1Column22: TcxGridDBBandedColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DlyDate'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxDateEditProperties'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 70
        Position.BandIndex = 0
-        Position.ColIndex = 10
+        Position.ColIndex = 12
+        Position.RowIndex = 0
+      end
+      object TV1Column23: TcxGridDBBandedColumn
+        Caption = #20837#24211#21305#25968
+        DataBinding.FieldName = 'HCLRKPS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 75
+        Position.BandIndex = 6
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      object TV1Column25: TcxGridDBBandedColumn
+        Caption = #32763#24067#21305#25968
+        DataBinding.FieldName = 'HCLFBPS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+        Position.BandIndex = 6
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
+      object TV1Column26: TcxGridDBBandedColumn
+        Caption = #23450#22411#21305#25968
+        DataBinding.FieldName = 'HCLDXPS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+        Position.BandIndex = 6
+        Position.ColIndex = 2
        Position.RowIndex = 0
      end
    end
@ -916,12 +1064,12 @@ inherited frmOrderProgress: TfrmOrderProgress
  inherited ADOQueryBaseCmd: TADOQuery
    Connection = DataLink_Statistics.ADOLink
    Left = 201
-    Top = 152
+    Top = 165
  end
  inherited ADOQueryBaseTemp: TADOQuery
    Connection = DataLink_Statistics.ADOLink
-    Left = 305
-    Top = 137
+    Left = 285
+    Top = 172
  end
  object ADOQueryTemp: TADOQuery
    Connection = DataLink_Statistics.ADOLink
@ -1013,5 +1161,40 @@ inherited frmOrderProgress: TfrmOrderProgress
      Font.Name = 'Tahoma'
      Font.Style = []
    end
+    object cxStyle2: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clRed
+    end
+  end
+  object cxStyleRepository2: TcxStyleRepository
+    PixelsPerInch = 96
+    object cxStyle3: TcxStyle
+    end
+  end
+  object cxStyleRepository3: TcxStyleRepository
+    PixelsPerInch = 96
+    object cxStyle4: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clDefault
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clBlue
+    end
+    object cxStyle5: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clYellow
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clMaroon
+    end
  end
 end
--- a/进度统计查询(Statistics.dll)/U_OrderProgress.pas
+++ b/进度统计查询(Statistics.dll)/U_OrderProgress.pas
@ -15,7 +15,7 @@ uses
  cxTextEdit, cxDBLookupComboBox, cxGridBandedTableView, cxGridDBBandedTableView,
  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseHelp, dxSkinsCore,
  dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, System.ImageList,
-  Vcl.ImgList, U_BaseList;
+  Vcl.ImgList, U_BaseList, dxScrollbarAnnotations;

 type
  TfrmOrderProgress = class(TfrmBaseList)
@ -60,7 +60,7 @@ type
    V1Column5: TcxGridDBBandedColumn;
    V1Column7: TcxGridDBBandedColumn;
    Label6: TLabel;
-    ConNo: TEdit;
+    OrderNo: TEdit;
    CDSPRTHZ: TClientDataSet;
    CDSPRTMX: TClientDataSet;
    RMDBMX: TRMDBDataSet;
@ -93,6 +93,22 @@ type
    TV1Column11: TcxGridDBBandedColumn;
    TV1Column14: TcxGridDBBandedColumn;
    TV1Column19: TcxGridDBBandedColumn;
+    TV1Column18: TcxGridDBBandedColumn;
+    TV1Column20: TcxGridDBBandedColumn;
+    TV1Column21: TcxGridDBBandedColumn;
+    TV1Column22: TcxGridDBBandedColumn;
+    CustName: TEdit;
+    lbl1: TLabel;
+    TV1Column23: TcxGridDBBandedColumn;
+    TV1Column25: TcxGridDBBandedColumn;
+    TV1Column26: TcxGridDBBandedColumn;
+    cxStyle2: TcxStyle;
+    cxStyleRepository2: TcxStyleRepository;
+    cxStyle3: TcxStyle;
+    cxStyleRepository3: TcxStyleRepository;
+    cxStyle4: TcxStyle;
+    cxStyle5: TcxStyle;
+    btn1: TToolButton;
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TBCloseClick(Sender: TObject);
@ -102,6 +118,7 @@ type
    procedure C_NameChange(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
+    procedure btn1Click(Sender: TObject);
  private

    { Private declarations }
@ -183,7 +200,7 @@ procedure TfrmOrderProgress.FormShow(Sender: TObject);
 begin
  inherited;
  canshu1 := self.fParameters1;
-  ReadCxBandedGrid(trim(self.caption), Tv1, '进度管理66');
+  ReadCxBandedGrid(trim(self.caption), Tv1, '½ø¶È¹ÜÀí666');
 //  InitGrid();
 end;

@ -202,6 +219,11 @@ begin
  end;
 end;

+procedure TfrmOrderProgress.btn1Click(Sender: TObject);
+begin
+   WriteCxBandedGrid(trim(Self.Caption), TV1, '½ø¶È¹ÜÀí666');
+end;
+
 procedure TfrmOrderProgress.C_NameChange(Sender: TObject);
 begin
  ToolButton2.Click;