111

进度统计查询(Statistics.dll)/ProjectGroup1.groupproj.local

@@ -2,6 +2,6 @@
 <BorlandProject>
 	<Transactions/>
 	<Default.Personality>
-		<Projects ActiveProject="D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\进度统计查询(Statistics.dll)\Statistics.dproj"/>
+		<Projects ActiveProject="D:\Dp10Repo\项目代码\D10gmBitao\进度统计查询(Statistics.dll)\Statistics.dproj"/>
 	</Default.Personality>
 </BorlandProject>

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

@@ -24,7 +24,8 @@ uses
   U_KkAndDjList in 'U_KkAndDjList.pas' {frmKkAndDjList},
   U_PBJYCLList in 'U_PBJYCLList.pas' {frmPBJYCLList},
   U_ClothCLCXList in 'U_ClothCLCXList.pas' {frmClothCLCXList},
-  U_ClothCLJTCXList in 'U_ClothCLJTCXList.pas' {frmClothCLJTCXList};
+  U_ClothCLJTCXList in 'U_ClothCLJTCXList.pas' {frmClothCLJTCXList},
+  U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
 
 {$R *.res}
 

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

@@ -181,6 +181,11 @@
             <Form>frmClothCLJTCXList</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
+            <Form>BaseDataLink</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

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

@@ -1,12 +1,13 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.409,=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.936,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.dfm=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_PBJYCLList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.936,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_PBJYCLList.pas=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.820,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress2.dfm=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.936,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_PBJYCLList.dfm=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.820,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress.pas=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress2.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.704,=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLCXList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.820,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress.dfm=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress2.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.820,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress2.pas=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.091,=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLJTCXList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.409,=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.936,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.pas=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_PBJYCLList.pas</Transaction>
+    <Transaction>2025-04-16 17:14:16.889,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
   </Transactions>
 </BorlandProject>

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

@@ -1,9 +1,8 @@
-object DataLink_Statistics: TDataLink_Statistics
+inherited DataLink_Statistics: TDataLink_Statistics
-  OldCreateOrder = False
-  OnCreate = DataModuleCreate
   OnDestroy = DataModuleDestroy
-  Height = 349
+  inherited cxImageList_bar: TcxImageList
-  Width = 482
+    FormatVersion = 1
+  end
   object AdoDataLink: TADOQuery
     Connection = ADOLink
     Parameters = <>
@@ -10426,6 +10425,8 @@ object DataLink_Statistics: TDataLink_Statistics
   object ThreeLookAndFeelCol: TcxLookAndFeelController
     Kind = lfStandard
     NativeStyle = False
+    ScrollbarMode = sbmHybrid
+    SkinName = 'WXI'
     Left = 253
     Top = 12
   end

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

@@ -5,7 +5,8 @@ interface
 uses
   SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
   Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore,
-  dxSkinsDefaultPainters, System.ImageList, Vcl.ExtCtrls, SyncObjs;
+  dxSkinsDefaultPainters, System.ImageList, Vcl.ExtCtrls, SyncObjs,
+  U_BaseDataLink, dxCore, cxLocalization, cxImageList, cxGraphics, dxSkinsForm;
 
 type
   TMyThread = class(TThread)
@@ -34,7 +35,7 @@ var
   UserDataFlag, fDllFileName: string;
 
 type
-  TDataLink_Statistics = class(TDataModule)
+  TDataLink_Statistics = class(TBaseDataLink)
     AdoDataLink: TADOQuery;
     ADOLink: TADOConnection;
     ThreeImgList: TImageList;
@@ -106,6 +107,7 @@ end;
 
 procedure TDataLink_Statistics.DataModuleCreate(Sender: TObject);
 begin
+  inherited;
   CriticalSection := TCriticalSection.Create;
 end;
 
@@ -117,6 +119,7 @@ end;
 
 procedure TDataLink_Statistics.Timer_linkTimer(Sender: TObject);
 begin
+  inherited;
   TMyThread.Create(False);
 end;
 

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

@@ -76,7 +76,6 @@ inherited frmOrderProgress: TfrmOrderProgress
     BevelOuter = bvLowered
     Color = clSkyBlue
     TabOrder = 1
-    ExplicitWidth = 1267
     object Label3: TLabel
       Left = 245
       Top = 50
@@ -202,8 +201,6 @@ inherited frmOrderProgress: TfrmOrderProgress
     Height = 425
     Align = alClient
     TabOrder = 2
-    ExplicitLeft = 132
-    ExplicitTop = 110
     object TV1: TcxGridDBBandedTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
@@ -408,7 +405,6 @@ inherited frmOrderProgress: TfrmOrderProgress
         item
           Format = '0.00'
           Kind = skSum
-          Column = cxGridDBBandedColumn77
         end
         item
           Format = '0.00'
@@ -422,7 +418,6 @@ inherited frmOrderProgress: TfrmOrderProgress
         item
           Format = '0.00'
           Kind = skSum
-          Column = cxGridDBBandedColumn91
         end
         item
           Format = '0.00'
@@ -432,12 +427,10 @@ inherited frmOrderProgress: TfrmOrderProgress
         item
           Format = '0.00'
           Kind = skSum
-          Column = V1Column3
         end
         item
           Format = '0.00'
           Kind = skSum
-          Column = V1Column8
         end
         item
           Format = '0.00'
@@ -464,7 +457,6 @@ inherited frmOrderProgress: TfrmOrderProgress
         end
         item
           Kind = skSum
-          Column = TV1Column15
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsCustomize.ColumnFiltering = False
@@ -572,53 +564,6 @@ inherited frmOrderProgress: TfrmOrderProgress
         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
-        Width = 66
-        Position.BandIndex = 7
-        Position.ColIndex = 0
-        Position.RowIndex = 0
-      end
-      object cxGridDBBandedColumn59: TcxGridDBBandedColumn
-        Caption = #38271#24230
-        DataBinding.FieldName = 'CPJYQty'
-        DataBinding.IsNullValueType = True
-        PropertiesClassName = 'TcxTextEditProperties'
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-        Position.BandIndex = 7
-        Position.ColIndex = 3
-        Position.RowIndex = 0
-      end
-      object cxGridDBBandedColumn61: TcxGridDBBandedColumn
-        DataBinding.FieldName = 'IsHG'
-        DataBinding.IsNullValueType = True
-        Visible = False
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-        Position.BandIndex = -1
-        Position.ColIndex = -1
-        Position.RowIndex = -1
-      end
-      object cxGridDBBandedColumn63: TcxGridDBBandedColumn
-        Caption = #27719#24635#21333#21495
-        DataBinding.FieldName = 'OrderNoHZ'
-        DataBinding.IsNullValueType = True
-        Visible = False
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-        Position.BandIndex = -1
-        Position.ColIndex = -1
-        Position.RowIndex = -1
-      end
       object cxGridDBBandedColumn64: TcxGridDBBandedColumn
         Caption = #19979#21333#26085#26399
         DataBinding.FieldName = 'OrdDate'
@@ -632,52 +577,6 @@ inherited frmOrderProgress: TfrmOrderProgress
         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
-        Position.BandIndex = -1
-        Position.ColIndex = -1
-        Position.RowIndex = -1
-      end
-      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 = 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 = 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
-        Position.BandIndex = -1
-        Position.ColIndex = -1
-        Position.RowIndex = -1
-      end
       object V1Column26: TcxGridDBBandedColumn
         Caption = #25104#21697#20811#37325
         DataBinding.FieldName = 'C_GramWeight'
@@ -700,240 +599,6 @@ inherited frmOrderProgress: TfrmOrderProgress
         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
-        Position.BandIndex = 7
-        Position.ColIndex = 1
-        Position.RowIndex = 0
-      end
-      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 = 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 = 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
-        Position.ColIndex = -1
-        Position.RowIndex = -1
-      end
-      object V1Column8: TcxGridDBBandedColumn
-        Caption = #26816#39564#38271#24230
-        DataBinding.FieldName = 'JYlen'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Position.BandIndex = -1
-        Position.ColIndex = -1
-        Position.RowIndex = -1
-      end
-      object V1Column9: TcxGridDBBandedColumn
-        Caption = #25171#21360#24352#25968
-        DataBinding.FieldName = 'CardPiece'
-        DataBinding.IsNullValueType = True
-        PropertiesClassName = 'TcxTextEditProperties'
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        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
-        Position.ColIndex = -1
-        Position.RowIndex = -1
-      end
-      object TV1Column1: TcxGridDBBandedColumn
-        Caption = #38271#24230
-        DataBinding.FieldName = 'CPCKQty'
-        DataBinding.IsNullValueType = True
-        PropertiesClassName = 'TcxTextEditProperties'
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-        Position.BandIndex = 8
-        Position.ColIndex = 3
-        Position.RowIndex = 0
-      end
-      object TV1Column2: TcxGridDBBandedColumn
-        Caption = #27611#37325
-        DataBinding.FieldName = 'CPCKMZ'
-        DataBinding.IsNullValueType = True
-        PropertiesClassName = 'TcxTextEditProperties'
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-        Position.BandIndex = 8
-        Position.ColIndex = 1
-        Position.RowIndex = 0
-      end
-      object TV1Column3: TcxGridDBBandedColumn
-        Caption = #21305#25968
-        DataBinding.FieldName = 'CPCKPS'
-        DataBinding.IsNullValueType = True
-        PropertiesClassName = 'TcxTextEditProperties'
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 64
-        Position.BandIndex = 8
-        Position.ColIndex = 0
-        Position.RowIndex = 0
-      end
-      object TV1Column4: TcxGridDBBandedColumn
-        Caption = #21512#21516#21495
-        DataBinding.FieldName = 'ConNo'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 100
-        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
-        Width = 66
-        Position.BandIndex = 9
-        Position.ColIndex = 0
-        Position.RowIndex = 0
-      end
-      object TV1Column8: TcxGridDBBandedColumn
-        Caption = #27611#37325
-        DataBinding.FieldName = 'CPKCMZ'
-        DataBinding.IsNullValueType = True
-        PropertiesClassName = 'TcxTextEditProperties'
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-        Position.BandIndex = 9
-        Position.ColIndex = 1
-        Position.RowIndex = 0
-      end
-      object TV1Column12: TcxGridDBBandedColumn
-        Caption = #20928#37325
-        DataBinding.FieldName = 'CPJYJZ'
-        DataBinding.IsNullValueType = True
-        PropertiesClassName = 'TcxTextEditProperties'
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-        Position.BandIndex = 7
-        Position.ColIndex = 2
-        Position.RowIndex = 0
-      end
-      object TV1Column13: TcxGridDBBandedColumn
-        Caption = #20928#37325
-        DataBinding.FieldName = 'CPCKJZ'
-        DataBinding.IsNullValueType = True
-        PropertiesClassName = 'TcxTextEditProperties'
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-        Position.BandIndex = 8
-        Position.ColIndex = 2
-        Position.RowIndex = 0
-      end
-      object TV1Column15: TcxGridDBBandedColumn
-        Caption = #38144#21806#25968#37327
-        DataBinding.FieldName = 'ConQty'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 80
-        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 = 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 = 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
-        Position.ColIndex = 2
-        Position.RowIndex = 0
-      end
-      object TV1Column9: TcxGridDBBandedColumn
-        Caption = #38271#24230
-        DataBinding.FieldName = 'CPKCQty'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Position.BandIndex = 9
-        Position.ColIndex = 3
-        Position.RowIndex = 0
-      end
-      object TV1Column10: TcxGridDBBandedColumn
-        Caption = #39068#33394
-        DataBinding.FieldName = 'C_Color'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 63
-        Position.BandIndex = -1
-        Position.ColIndex = -1
-        Position.RowIndex = -1
-      end
       object TV1Column5: TcxGridDBBandedColumn
         Caption = #22383#24067#20811#37325
         DataBinding.FieldName = 'C_KnitGramWeight'
@@ -957,27 +622,6 @@ inherited frmOrderProgress: TfrmOrderProgress
         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 = 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'
@@ -1023,6 +667,96 @@ inherited frmOrderProgress: TfrmOrderProgress
         Position.ColIndex = 12
         Position.RowIndex = 0
       end
+      object V1Column9: TcxGridDBBandedColumn
+        Caption = #25171#21360#24352#25968
+        DataBinding.FieldName = 'CardPiece'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Position.BandIndex = 1
+        Position.ColIndex = 0
+        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 = 2
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      object TV1Column16: TcxGridDBBandedColumn
+        Caption = #26816#39564#21305#25968
+        DataBinding.FieldName = 'PBJYPS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        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 = 3
+        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 = 4
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
+      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 = 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 = 5
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      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 = 5
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
       object TV1Column23: TcxGridDBBandedColumn
         Caption = #20837#24211#21305#25968
         DataBinding.FieldName = 'HCLRKPS'
@@ -1056,6 +790,145 @@ inherited frmOrderProgress: TfrmOrderProgress
         Position.ColIndex = 2
         Position.RowIndex = 0
       end
+      object cxGridDBBandedColumn57: TcxGridDBBandedColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'CPJYPS'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+        Position.BandIndex = 7
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      object cxGridDBBandedColumn59: TcxGridDBBandedColumn
+        Caption = #38271#24230
+        DataBinding.FieldName = 'CPJYQty'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+        Position.BandIndex = 7
+        Position.ColIndex = 3
+        Position.RowIndex = 0
+      end
+      object V1Column4: TcxGridDBBandedColumn
+        Caption = #27611#37325
+        DataBinding.FieldName = 'CPJYMZ'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Position.BandIndex = 7
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
+      object TV1Column12: TcxGridDBBandedColumn
+        Caption = #20928#37325
+        DataBinding.FieldName = 'CPJYJZ'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+        Position.BandIndex = 7
+        Position.ColIndex = 2
+        Position.RowIndex = 0
+      end
+      object TV1Column1: TcxGridDBBandedColumn
+        Caption = #38271#24230
+        DataBinding.FieldName = 'CPCKQty'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+        Position.BandIndex = 8
+        Position.ColIndex = 3
+        Position.RowIndex = 0
+      end
+      object TV1Column2: TcxGridDBBandedColumn
+        Caption = #27611#37325
+        DataBinding.FieldName = 'CPCKMZ'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+        Position.BandIndex = 8
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
+      object TV1Column3: TcxGridDBBandedColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'CPCKPS'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 64
+        Position.BandIndex = 8
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      object TV1Column13: TcxGridDBBandedColumn
+        Caption = #20928#37325
+        DataBinding.FieldName = 'CPCKJZ'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+        Position.BandIndex = 8
+        Position.ColIndex = 2
+        Position.RowIndex = 0
+      end
+      object TV1Column7: TcxGridDBBandedColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'CPKCPS'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+        Position.BandIndex = 9
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+      end
+      object TV1Column8: TcxGridDBBandedColumn
+        Caption = #27611#37325
+        DataBinding.FieldName = 'CPKCMZ'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+        Position.BandIndex = 9
+        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
+        Position.ColIndex = 2
+        Position.RowIndex = 0
+      end
+      object TV1Column9: TcxGridDBBandedColumn
+        Caption = #38271#24230
+        DataBinding.FieldName = 'CPKCQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Position.BandIndex = 9
+        Position.ColIndex = 3
+        Position.RowIndex = 0
+      end
     end
     object cxGridLevel2: TcxGridLevel
       GridView = TV1

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

@@ -46,13 +46,9 @@ type
     cxGridDBBandedColumn52: TcxGridDBBandedColumn;
     cxGridDBBandedColumn57: TcxGridDBBandedColumn;
     cxGridDBBandedColumn59: TcxGridDBBandedColumn;
-    cxGridDBBandedColumn61: TcxGridDBBandedColumn;
-    cxGridDBBandedColumn63: TcxGridDBBandedColumn;
     cxGridDBBandedColumn64: TcxGridDBBandedColumn;
-    cxGridDBBandedColumn77: TcxGridDBBandedColumn;
     cxGridDBBandedColumn79: TcxGridDBBandedColumn;
     cxGridDBBandedColumn87: TcxGridDBBandedColumn;
-    cxGridDBBandedColumn91: TcxGridDBBandedColumn;
     cxGridLevel2: TcxGridLevel;
     V1Column26: TcxGridDBBandedColumn;
     V1Column27: TcxGridDBBandedColumn;
@@ -67,24 +63,18 @@ type
     ADOQueryMain: TADOQuery;
     DataSource1: TDataSource;
     CDS_HZ: TClientDataSet;
-    V1Column3: TcxGridDBBandedColumn;
-    V1Column8: TcxGridDBBandedColumn;
     V1Column9: TcxGridDBBandedColumn;
-    V1Column11: TcxGridDBBandedColumn;
     TV1Column1: TcxGridDBBandedColumn;
     TV1Column2: TcxGridDBBandedColumn;
     TV1Column3: TcxGridDBBandedColumn;
-    TV1Column4: TcxGridDBBandedColumn;
     TV1Column7: TcxGridDBBandedColumn;
     TV1Column8: TcxGridDBBandedColumn;
     TV1Column12: TcxGridDBBandedColumn;
     TV1Column13: TcxGridDBBandedColumn;
-    TV1Column15: TcxGridDBBandedColumn;
     TV1Column16: TcxGridDBBandedColumn;
     TV1Column17: TcxGridDBBandedColumn;
     TV1Column6: TcxGridDBBandedColumn;
     TV1Column9: TcxGridDBBandedColumn;
-    TV1Column10: TcxGridDBBandedColumn;
     cxStyleRepository1: TcxStyleRepository;
     cxStyle1: TcxStyle;
     TV1Column5: TcxGridDBBandedColumn;
@@ -92,7 +82,6 @@ type
     Saleser: TEdit;
     TV1Column11: TcxGridDBBandedColumn;
     TV1Column14: TcxGridDBBandedColumn;
-    TV1Column19: TcxGridDBBandedColumn;
     TV1Column18: TcxGridDBBandedColumn;
     TV1Column20: TcxGridDBBandedColumn;
     TV1Column21: TcxGridDBBandedColumn;
@@ -192,7 +181,7 @@ end;
 
 procedure TfrmOrderProgress.TBCloseClick(Sender: TObject);
 begin
-  WriteCxBandedGrid(trim(self.caption), Tv1, '进度管理66');
+  WriteCxBandedGrid(trim(self.caption), Tv1, '进度管理');
   Close;
 end;
 
@@ -200,7 +189,7 @@ procedure TfrmOrderProgress.FormShow(Sender: TObject);
 begin
   inherited;
   canshu1 := self.fParameters1;
-  ReadCxBandedGrid(trim(self.caption), Tv1, '进度管理666');
+  ReadCxBandedGrid(trim(self.caption), Tv1, '进度管理');
 //  InitGrid();
 end;
 
@@ -221,7 +210,7 @@ end;
 
 procedure TfrmOrderProgress.btn1Click(Sender: TObject);
 begin
-   WriteCxBandedGrid(trim(Self.Caption), TV1, '进度管理666');
+   WriteCxBandedGrid(trim(Self.Caption), TV1, '进度管理');
 end;
 
 procedure TfrmOrderProgress.C_NameChange(Sender: TObject);