111

2025-04-16 17:24:11 +08:00 · 2025-04-16 17:24:11 +08:00 · da694c1471
commit da694c1471
parent f32d12dffc
11 changed files with 257 additions and 384 deletions
--- a/F01染色坯布仓库/DyeGreyClothStk.identcache
+++ b/F01染色坯布仓库/DyeGreyClothStk.identcache
--- a/进度统计查询(Statistics.dll)/ProjectGroup1.groupproj.local
+++ b/进度统计查询(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>
--- a/进度统计查询(Statistics.dll)/Statistics.dpr
+++ b/进度统计查询(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}

--- a/进度统计查询(Statistics.dll)/Statistics.dproj
+++ b/进度统计查询(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>
--- a/进度统计查询(Statistics.dll)/Statistics.dproj.local
+++ b/进度统计查询(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_PBJYCLList.pas=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.pas</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.936,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.dfm=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_PBJYCLList.dfm</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.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>
--- a/进度统计查询(Statistics.dll)/Statistics.identcache
+++ b/进度统计查询(Statistics.dll)/Statistics.identcache
--- a/进度统计查询(Statistics.dll)/U_DataLink.dfm
+++ b/进度统计查询(Statistics.dll)/U_DataLink.dfm
@ -1,9 +1,8 @@
-object DataLink_Statistics: TDataLink_Statistics
-  OldCreateOrder = False
-  OnCreate = DataModuleCreate
+inherited DataLink_Statistics: TDataLink_Statistics
  OnDestroy = DataModuleDestroy
-  Height = 349
-  Width = 482
+  inherited cxImageList_bar: TcxImageList
+    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
--- a/进度统计查询(Statistics.dll)/U_DataLink.pas
+++ b/进度统计查询(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;

--- a/进度统计查询(Statistics.dll)/U_OrderProgress.dfm
+++ b/进度统计查询(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
--- a/进度统计查询(Statistics.dll)/U_OrderProgress.pas
+++ b/进度统计查询(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);
--- a/进度统计查询(Statistics.dll)/testDll.identcache
+++ b/进度统计查询(Statistics.dll)/testDll.identcache