diff --git a/F01染色坯布仓库/DyeGreyClothStk.identcache b/F01染色坯布仓库/DyeGreyClothStk.identcache
index 6e51d25..c6130ca 100644
Binary files a/F01染色坯布仓库/DyeGreyClothStk.identcache and b/F01染色坯布仓库/DyeGreyClothStk.identcache differ
diff --git a/进度统计查询(Statistics.dll)/ProjectGroup1.groupproj.local b/进度统计查询(Statistics.dll)/ProjectGroup1.groupproj.local
index ff99599..4630e14 100644
--- a/进度统计查询(Statistics.dll)/ProjectGroup1.groupproj.local
+++ b/进度统计查询(Statistics.dll)/ProjectGroup1.groupproj.local
@@ -2,6 +2,6 @@
-
+
diff --git a/进度统计查询(Statistics.dll)/Statistics.dpr b/进度统计查询(Statistics.dll)/Statistics.dpr
index 48c2c7f..7f45398 100644
--- 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}
diff --git a/进度统计查询(Statistics.dll)/Statistics.dproj b/进度统计查询(Statistics.dll)/Statistics.dproj
index e7b9b64..0ebde09 100644
--- a/进度统计查询(Statistics.dll)/Statistics.dproj
+++ b/进度统计查询(Statistics.dll)/Statistics.dproj
@@ -181,6 +181,11 @@
dfm
+
+
+ dfm
+ TDataModule
+
Cfg_2
Base
diff --git a/进度统计查询(Statistics.dll)/Statistics.dproj.local b/进度统计查询(Statistics.dll)/Statistics.dproj.local
index cac5a77..73a337d 100644
--- a/进度统计查询(Statistics.dll)/Statistics.dproj.local
+++ b/进度统计查询(Statistics.dll)/Statistics.dproj.local
@@ -1,12 +1,13 @@
- 1899-12-30 00:00:00.000.409,=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.pas
- 1899-12-30 00:00:00.000.936,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_PBJYCLList.pas=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.pas
- 1899-12-30 00:00:00.000.936,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_PBJYCLList.dfm=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.dfm
- 1899-12-30 00:00:00.000.820,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress.pas=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress2.pas
+ 1899-12-30 00:00:00.000.936,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.dfm=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_PBJYCLList.dfm
+ 1899-12-30 00:00:00.000.820,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress2.dfm=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress.dfm
1899-12-30 00:00:00.000.704,=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLCXList.pas
- 1899-12-30 00:00:00.000.820,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress.dfm=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress2.dfm
+ 1899-12-30 00:00:00.000.820,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress2.pas=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_OrderProgress.pas
1899-12-30 00:00:00.000.091,=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLJTCXList.pas
+ 1899-12-30 00:00:00.000.409,=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.pas
+ 1899-12-30 00:00:00.000.936,D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_ClothCLList.pas=D:\Dp10Repo\项目代码\茂鑫\进度统计查询(Statistics.dll)\U_PBJYCLList.pas
+ 2025-04-16 17:14:16.889,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas
diff --git a/进度统计查询(Statistics.dll)/Statistics.identcache b/进度统计查询(Statistics.dll)/Statistics.identcache
index f99f928..d4f7d0b 100644
Binary files a/进度统计查询(Statistics.dll)/Statistics.identcache and b/进度统计查询(Statistics.dll)/Statistics.identcache differ
diff --git a/进度统计查询(Statistics.dll)/U_DataLink.dfm b/进度统计查询(Statistics.dll)/U_DataLink.dfm
index b07dfe7..89123b2 100644
--- 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
diff --git a/进度统计查询(Statistics.dll)/U_DataLink.pas b/进度统计查询(Statistics.dll)/U_DataLink.pas
index 387fb8b..820eef5 100644
--- 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;
diff --git a/进度统计查询(Statistics.dll)/U_OrderProgress.dfm b/进度统计查询(Statistics.dll)/U_OrderProgress.dfm
index 94da9dd..d66411f 100644
--- 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
diff --git a/进度统计查询(Statistics.dll)/U_OrderProgress.pas b/进度统计查询(Statistics.dll)/U_OrderProgress.pas
index 1c5148c..e77ed0c 100644
--- 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);
diff --git a/进度统计查询(Statistics.dll)/testDll.identcache b/进度统计查询(Statistics.dll)/testDll.identcache
index f168878..5f8c90d 100644
Binary files a/进度统计查询(Statistics.dll)/testDll.identcache and b/进度统计查询(Statistics.dll)/testDll.identcache differ