111

进度统计查询(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)">

进度统计查询(Statistics.dll)/Statistics.skincfg

@@ -0,0 +1,5 @@
+[ExpressSkins]
+Default=1
+ShowNotifications=1
+Enabled=1
+dxSkinsDefaultPainters=1

进度统计查询(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;

进度统计查询(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

进度统计查询(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;