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