diff --git a/项目代码/RTBasicsV1/A01基础公司管理/Company.dpr b/项目代码/RTBasicsV1/A01基础公司管理/Company.dpr
index b3432ed..915dbdf 100644
--- a/项目代码/RTBasicsV1/A01基础公司管理/Company.dpr
+++ b/项目代码/RTBasicsV1/A01基础公司管理/Company.dpr
@@ -12,9 +12,6 @@ uses
U_iniParam in 'U_iniParam.pas',
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
- U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas',
- U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
- U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
U_Factory in 'U_Factory.pas' {frmFactory},
U_CustInput in 'U_CustInput.pas' {frmCustInput},
@@ -36,7 +33,12 @@ uses
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
U_CustomerInput in 'U_CustomerInput.pas' {frmCustomerInput},
U_SYDept in 'U_SYDept.pas' {frmSYDept},
- U_EmployeeInPut in 'U_EmployeeInPut.pas' {frmYGInPut};
+ U_EmployeeInPut in 'U_EmployeeInPut.pas' {frmYGInPut},
+ U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas',
+ U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
+ U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
+ U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
+ U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas';
{$R *.res}
diff --git a/项目代码/RTBasicsV1/A01基础公司管理/Company.dproj b/项目代码/RTBasicsV1/A01基础公司管理/Company.dproj
index cd8f202..c627b94 100644
--- a/项目代码/RTBasicsV1/A01基础公司管理/Company.dproj
+++ b/项目代码/RTBasicsV1/A01基础公司管理/Company.dproj
@@ -123,7 +123,7 @@
Debug
- D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\testDll.exe
+ D:\RTFormwork\项目代码\RTBasicsV1\A01基础公司管理\testDll.exe
CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)
@@ -141,9 +141,6 @@
-
-
-
@@ -225,6 +222,11 @@
dfm
+
+
+
+
+
Cfg_2
Base
diff --git a/项目代码/RTBasicsV1/A01基础公司管理/Company.dproj.local b/项目代码/RTBasicsV1/A01基础公司管理/Company.dproj.local
index 623037f..c2a4d48 100644
--- a/项目代码/RTBasicsV1/A01基础公司管理/Company.dproj.local
+++ b/项目代码/RTBasicsV1/A01基础公司管理/Company.dproj.local
@@ -1,32 +1,34 @@
- 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas
- 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas
- 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm
- 1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas
- 1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899-12-30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas
- 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas
- 1899-12-30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas
- 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=
- 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm
- 1899-12-30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
- 1899-12-30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas
- 1899-12-30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas
- 1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas
- 1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899-12-30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas
- 1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=
- 1899-12-30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas
- 1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899-12-30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas
- 1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm
- 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm
+ 1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899/12/30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas
+ 1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas
+ 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm
+ 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm
+ 1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=
+ 1899/12/30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas
+ 1899/12/30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899/12/30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas
+ 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas
+ 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas
+ 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm
+ 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas
+ 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899/12/30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas
+ 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm
+ 1899/12/30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas
+ 1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas
+ 1899/12/30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas
+ 1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=
+ 1899/12/30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas
+ 2024/07/16 15:31:52.854,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas
+ 2024/07/16 15:31:52.899,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas
@@ -71,7 +73,7 @@
-
+
@@ -85,6 +87,8 @@
+
+
diff --git a/项目代码/RTBasicsV1/A01基础公司管理/Company.identcache b/项目代码/RTBasicsV1/A01基础公司管理/Company.identcache
index 669e6c7..5231db2 100644
Binary files a/项目代码/RTBasicsV1/A01基础公司管理/Company.identcache and b/项目代码/RTBasicsV1/A01基础公司管理/Company.identcache differ
diff --git a/项目代码/RTBasicsV1/A01基础公司管理/Company.skincfg b/项目代码/RTBasicsV1/A01基础公司管理/Company.skincfg
index c0891d9..0db8cb4 100644
--- a/项目代码/RTBasicsV1/A01基础公司管理/Company.skincfg
+++ b/项目代码/RTBasicsV1/A01基础公司管理/Company.skincfg
@@ -1,5 +1,62 @@
[ExpressSkins]
-Default=1
+Default=0
ShowNotifications=1
Enabled=1
dxSkinsDefaultPainters=1
+dxSkinBasic=0
+dxSkinBlack=0
+dxSkinBlue=0
+dxSkinBlueprint=0
+dxSkinCaramel=0
+dxSkinCoffee=0
+dxSkinDarkroom=0
+dxSkinDarkSide=0
+dxSkinDevExpressDarkStyle=0
+dxSkinDevExpressStyle=0
+dxSkinFoggy=0
+dxSkinGlassOceans=0
+dxSkinHighContrast=0
+dxSkiniMaginary=0
+dxSkinLilian=0
+dxSkinLiquidSky=0
+dxSkinLondonLiquidSky=0
+dxSkinMcSkin=0
+dxSkinMetropolis=0
+dxSkinMetropolisDark=0
+dxSkinMoneyTwins=0
+dxSkinOffice2007Black=0
+dxSkinOffice2007Blue=0
+dxSkinOffice2007Green=0
+dxSkinOffice2007Pink=0
+dxSkinOffice2007Silver=0
+dxSkinOffice2010Black=0
+dxSkinOffice2010Blue=0
+dxSkinOffice2010Silver=0
+dxSkinOffice2013DarkGray=0
+dxSkinOffice2013LightGray=0
+dxSkinOffice2013White=0
+dxSkinOffice2016Colorful=0
+dxSkinOffice2016Dark=0
+dxSkinOffice2019Black=0
+dxSkinOffice2019Colorful=0
+dxSkinOffice2019DarkGray=0
+dxSkinOffice2019White=0
+dxSkinPumpkin=0
+dxSkinSeven=0
+dxSkinSevenClassic=0
+dxSkinSharp=0
+dxSkinSharpPlus=0
+dxSkinSilver=0
+dxSkinSpringtime=0
+dxSkinStardust=0
+dxSkinSummer2008=0
+dxSkinTheAsphaltWorld=0
+dxSkinTheBezier=0
+dxSkinValentine=0
+dxSkinVisualStudio2013Blue=0
+dxSkinVisualStudio2013Dark=0
+dxSkinVisualStudio2013Light=0
+dxSkinVS2010=0
+dxSkinWhiteprint=0
+dxSkinWXI=1
+dxSkinXmas2008Blue=0
diff --git a/项目代码/RTBasicsV1/A01基础公司管理/ProjectGroup1.groupproj.local b/项目代码/RTBasicsV1/A01基础公司管理/ProjectGroup1.groupproj.local
index dc532d0..65b3a70 100644
--- a/项目代码/RTBasicsV1/A01基础公司管理/ProjectGroup1.groupproj.local
+++ b/项目代码/RTBasicsV1/A01基础公司管理/ProjectGroup1.groupproj.local
@@ -2,6 +2,6 @@
-
+
diff --git a/项目代码/RTBasicsV1/A01基础公司管理/U_CustInput.dfm b/项目代码/RTBasicsV1/A01基础公司管理/U_CustInput.dfm
index 809a392..37dae08 100644
--- a/项目代码/RTBasicsV1/A01基础公司管理/U_CustInput.dfm
+++ b/项目代码/RTBasicsV1/A01基础公司管理/U_CustInput.dfm
@@ -23,7 +23,7 @@ inherited frmCustInput: TfrmCustInput
Height = 30
AutoSize = True
ButtonHeight = 30
- ButtonWidth = 83
+ ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Company.ImageList_new32
@@ -41,7 +41,7 @@ inherited frmCustInput: TfrmCustInput
OnClick = ToolButton3Click
end
object ToolButton1: TToolButton
- Left = 63
+ Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@@ -49,7 +49,7 @@ inherited frmCustInput: TfrmCustInput
OnClick = ToolButton1Click
end
object TBClose: TToolButton
- Left = 150
+ Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381
@@ -71,6 +71,8 @@ inherited frmCustInput: TfrmCustInput
ParentColor = False
ParentCtl3D = False
TabOrder = 1
+ ExplicitLeft = 1
+ ExplicitTop = 26
object Label2: TLabel
Left = 17
Top = 12
@@ -272,7 +274,7 @@ inherited frmCustInput: TfrmCustInput
Height = 30
AutoSize = True
ButtonHeight = 30
- ButtonWidth = 83
+ ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Company.ImageList_new32
@@ -290,7 +292,7 @@ inherited frmCustInput: TfrmCustInput
OnClick = ToolButton2Click
end
object ToolButton6: TToolButton
- Left = 87
+ Left = 103
Top = 0
AutoSize = True
Caption = #22686#34892
@@ -298,7 +300,7 @@ inherited frmCustInput: TfrmCustInput
OnClick = ToolButton6Click
end
object ToolButton7: TToolButton
- Left = 150
+ Left = 174
Top = 0
AutoSize = True
Caption = #21024#34892
@@ -318,6 +320,7 @@ inherited frmCustInput: TfrmCustInput
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DSLXR
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@@ -339,6 +342,7 @@ inherited frmCustInput: TfrmCustInput
object cxGridDBColumn2: TcxGridDBColumn
Caption = #40664#35748
DataBinding.FieldName = 'IsDefault'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@@ -347,6 +351,7 @@ inherited frmCustInput: TfrmCustInput
object cxGridDBColumn3: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
@@ -355,12 +360,14 @@ inherited frmCustInput: TfrmCustInput
object cxGridDBColumn5: TcxGridDBColumn
Caption = #32844#20301
DataBinding.FieldName = 'position'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
@@ -369,6 +376,7 @@ inherited frmCustInput: TfrmCustInput
object cxGridDBColumn7: TcxGridDBColumn
Caption = #25163#26426#21495
DataBinding.FieldName = 'PhoneNumber'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
@@ -376,12 +384,14 @@ inherited frmCustInput: TfrmCustInput
end
object cxGridDBColumn8: TcxGridDBColumn
DataBinding.FieldName = 'EMAIL'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV2Column2: TcxGridDBColumn
Caption = #24494#20449#21495
DataBinding.FieldName = 'WeChat'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
diff --git a/项目代码/RTBasicsV1/A01基础公司管理/U_CustInput.pas b/项目代码/RTBasicsV1/A01基础公司管理/U_CustInput.pas
index 7a7b964..722aa9e 100644
--- a/项目代码/RTBasicsV1/A01基础公司管理/U_CustInput.pas
+++ b/项目代码/RTBasicsV1/A01基础公司管理/U_CustInput.pas
@@ -15,7 +15,7 @@ uses
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer,
- cxMemo;
+ cxMemo, dxSkinWXI, dxScrollbarAnnotations;
type
TfrmCustInput = class(TfrmBaseInput)
diff --git a/项目代码/RTBasicsV1/A01基础公司管理/U_Customer.dfm b/项目代码/RTBasicsV1/A01基础公司管理/U_Customer.dfm
index 876eb60..58b6c4b 100644
--- a/项目代码/RTBasicsV1/A01基础公司管理/U_Customer.dfm
+++ b/项目代码/RTBasicsV1/A01基础公司管理/U_Customer.dfm
@@ -5,7 +5,6 @@ inherited frmCustomer: TfrmCustomer
ClientHeight = 611
ClientWidth = 1366
Font.Height = -16
- Font.Name = #24494#36719#38597#40657
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
@@ -21,7 +20,7 @@ inherited frmCustomer: TfrmCustomer
Height = 30
AutoSize = True
ButtonHeight = 30
- ButtonWidth = 95
+ ButtonWidth = 115
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Company.cxImageList_bar
@@ -31,7 +30,6 @@ inherited frmCustomer: TfrmCustomer
ParentColor = False
ShowCaptions = True
TabOrder = 0
- ExplicitTop = -6
object TBRafresh: TToolButton
Left = 0
Top = 0
@@ -41,7 +39,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = TBRafreshClick
end
object btnAdd: TToolButton
- Left = 63
+ Left = 71
Top = 0
AutoSize = True
Caption = #26032#22686
@@ -49,7 +47,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = btnAddClick
end
object btnEdit: TToolButton
- Left = 126
+ Left = 142
Top = 0
AutoSize = True
Caption = #20462#25913
@@ -57,7 +55,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = btnEditClick
end
object TBDel: TToolButton
- Left = 189
+ Left = 213
Top = 0
AutoSize = True
Caption = #21024#38500
@@ -65,7 +63,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = TBDelClick
end
object btnSaleser: TToolButton
- Left = 252
+ Left = 284
Top = 0
AutoSize = True
Caption = #25351#23450#19994#21153#21592
@@ -73,7 +71,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = btnSaleserClick
end
object btnTallyer: TToolButton
- Left = 351
+ Left = 403
Top = 0
AutoSize = True
Caption = #25351#23450#29702#21333
@@ -81,7 +79,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = btnTallyerClick
end
object btnChk: TToolButton
- Left = 438
+ Left = 506
Top = 0
AutoSize = True
Caption = #23457#26680
@@ -89,7 +87,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = btnChkClick
end
object btnReChk: TToolButton
- Left = 501
+ Left = 577
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
@@ -97,7 +95,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = btnReChkClick
end
object ToolButton3: TToolButton
- Left = 588
+ Left = 680
Top = 0
AutoSize = True
Caption = #38468#20214
@@ -105,7 +103,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = ToolButton3Click
end
object ToolButton1: TToolButton
- Left = 651
+ Left = 751
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@@ -113,7 +111,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = ToolButton1Click
end
object TBClose: TToolButton
- Left = 738
+ Left = 854
Top = 0
AutoSize = True
Caption = #20851#38381
@@ -132,6 +130,7 @@ inherited frmCustomer: TfrmCustomer
Color = clWhite
ParentBackground = False
TabOrder = 1
+ ExplicitTop = 24
object Label3: TLabel
Left = 205
Top = 20
@@ -208,10 +207,13 @@ inherited frmCustomer: TfrmCustomer
Height = 287
Align = alClient
TabOrder = 2
+ ExplicitLeft = -1
+ ExplicitTop = 116
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
+ ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -237,6 +239,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column2: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'CoCode'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@@ -245,6 +248,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column6: TcxGridDBColumn
Caption = #20840#31216
DataBinding.FieldName = 'CoName'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 127
@@ -252,6 +256,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column15: TcxGridDBColumn
Caption = #31616#31216
DataBinding.FieldName = 'CoAbbrName'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
@@ -259,6 +264,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column10: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
@@ -266,6 +272,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column7: TcxGridDBColumn
Caption = #20844#21496#22320#22336
DataBinding.FieldName = 'CoAddress'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@@ -274,6 +281,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@@ -282,6 +290,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column3: TcxGridDBColumn
Caption = #22269#23478
DataBinding.FieldName = 'cocountry'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
@@ -289,6 +298,7 @@ inherited frmCustomer: TfrmCustomer
object Tv1Column2: TcxGridDBColumn
Caption = #23458#25143#31561#32423
DataBinding.FieldName = 'CoLevel'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 115
@@ -296,6 +306,7 @@ inherited frmCustomer: TfrmCustomer
object Tv1Column3: TcxGridDBColumn
Caption = #30331#35760#26102#38388
DataBinding.FieldName = 'Filltime'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 157
@@ -303,6 +314,7 @@ inherited frmCustomer: TfrmCustomer
object Tv1Column4: TcxGridDBColumn
Caption = #30331#35760#20154
DataBinding.FieldName = 'Filler'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -310,6 +322,7 @@ inherited frmCustomer: TfrmCustomer
object Tv1Column5: TcxGridDBColumn
Caption = #29702#21333
DataBinding.FieldName = 'Tallyer'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
@@ -317,12 +330,14 @@ inherited frmCustomer: TfrmCustomer
object Tv1Column7: TcxGridDBColumn
Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'ParentCoName'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 86
end
object Tv1Column1: TcxGridDBColumn
DataBinding.FieldName = 'COID'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
@@ -330,6 +345,7 @@ inherited frmCustomer: TfrmCustomer
object Tv1Column6: TcxGridDBColumn
Caption = #23458#25143#31867#22411
DataBinding.FieldName = 'CoBusinessType'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@@ -358,6 +374,7 @@ inherited frmCustomer: TfrmCustomer
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
@@ -379,6 +396,7 @@ inherited frmCustomer: TfrmCustomer
object v3Column3: TcxGridDBColumn
Caption = #40664#35748
DataBinding.FieldName = 'IsDefault'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@@ -387,6 +405,7 @@ inherited frmCustomer: TfrmCustomer
object cxGridDBColumn1: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
@@ -396,6 +415,7 @@ inherited frmCustomer: TfrmCustomer
object cxGridDBColumn2: TcxGridDBColumn
Caption = #32844#20301
DataBinding.FieldName = 'position'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
@@ -405,6 +425,7 @@ inherited frmCustomer: TfrmCustomer
object cxGridDBColumn4: TcxGridDBColumn
Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
@@ -414,6 +435,7 @@ inherited frmCustomer: TfrmCustomer
object cxGridDBColumn5: TcxGridDBColumn
Caption = #25163#26426#21495
DataBinding.FieldName = 'PhoneNumber'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
@@ -423,6 +445,7 @@ inherited frmCustomer: TfrmCustomer
object Tv2Column1: TcxGridDBColumn
Caption = 'EMAIL'
DataBinding.FieldName = 'Email'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
@@ -432,6 +455,7 @@ inherited frmCustomer: TfrmCustomer
object v3Column2: TcxGridDBColumn
Caption = #24494#20449#21495
DataBinding.FieldName = 'WeChat'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 169
@@ -499,13 +523,13 @@ inherited frmCustomer: TfrmCustomer
end
object DS_1: TDataSource
DataSet = CDS_1
- Left = 264
+ Left = 472
Top = 285
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
- Left = 365
+ Left = 405
Top = 289
end
object CDS_2: TClientDataSet
diff --git a/项目代码/RTBasicsV1/A01基础公司管理/U_Customer.pas b/项目代码/RTBasicsV1/A01基础公司管理/U_Customer.pas
index a53cd7e..ebf11d4 100644
--- a/项目代码/RTBasicsV1/A01基础公司管理/U_Customer.pas
+++ b/项目代码/RTBasicsV1/A01基础公司管理/U_Customer.pas
@@ -17,7 +17,7 @@ uses
dxBarBuiltInMenu, cxPC, FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet,
- FireDAC.Comp.Client, cxContainer;
+ FireDAC.Comp.Client, cxContainer, dxSkinWXI, dxScrollbarAnnotations;
type
TfrmCustomer = class(TfrmBaseList)
diff --git a/项目代码/RTBasicsV1/A01基础公司管理/testDll.identcache b/项目代码/RTBasicsV1/A01基础公司管理/testDll.identcache
index ce1a611..790da88 100644
Binary files a/项目代码/RTBasicsV1/A01基础公司管理/testDll.identcache and b/项目代码/RTBasicsV1/A01基础公司管理/testDll.identcache differ
diff --git a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dpr b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dpr
index ac7c0b1..4bd0a75 100644
--- a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dpr
+++ b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dpr
@@ -26,7 +26,6 @@ uses
U_KnitSalesContractSel in '..\D00֯ͨô\U_KnitSalesContractSel.pas' {frmKnitSalesContractSel},
U_KnitPlanSel in '..\D00֯ͨô\U_KnitPlanSel.pas' {frmKnitPlanSel},
U_KnitClothInfoSel in '..\A00ͨô\U_KnitClothInfoSel.pas' {frmKnitClothInfoSel},
- U_KnitPlanList in 'U_KnitPlanList.pas' {frmKnitPlanList},
U_KnitPlanCardDel in 'U_KnitPlanCardDel.pas' {frmKnitPlanCardDel},
U_MachPlanSet in 'U_MachPlanSet.pas' {frmMachPlanSet},
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
@@ -34,7 +33,11 @@ uses
U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
U_LoomSel in '..\A00ͨô\U_LoomSel.pas' {frmLoomSel},
- U_EmployeeSel in '..\A00ͨô\U_EmployeeSel.pas' {frmEmployeeSel};
+ U_EmployeeSel in '..\A00ͨô\U_EmployeeSel.pas' {frmEmployeeSel},
+ FrameDateSel in '..\A00ͨ\FrameDateSel.pas' {frmFrameDateSel: TFrame},
+ FramePagingSel in '..\A00ͨ\FramePagingSel.pas' {frmFramePagingSel: TFrame},
+ U_KnitPlanList in 'U_KnitPlanList.pas' {frmKnitPlanList},
+ U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
{$R *.res}
diff --git a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj
index a198e1d..58f1250 100644
--- a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj
+++ b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj
@@ -191,10 +191,6 @@
dfm
-
-
- dfm
-
dfm
@@ -215,6 +211,25 @@
dfm
+
+
+ dfm
+ TFrame
+
+
+
+ dfm
+ TFrame
+
+
+
+ dfm
+
+
+
+ dfm
+ TDataModule
+
Cfg_2
Base
diff --git a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local
index 39c778f..d055b12 100644
--- a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local
+++ b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local
@@ -1,59 +1,62 @@
- 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
- 1899-12-30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.dfm
- 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899-12-30 00:00:00.000.612,=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitPlanSel.pas
- 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899-12-30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas
- 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
- 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_YarnInfoInPut.pas
- 1899-12-30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas=
- 1899-12-30 00:00:00.000.929,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas=
- 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899-12-30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.dfm
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899-12-30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.pas=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.pas
- 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas=
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899-12-30 00:00:00.000.945,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas
- 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj
- 1899-12-30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899-12-30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.dfm=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.dfm
- 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899-12-30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas
- 1899-12-30 00:00:00.000.798,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899-12-30 00:00:00.000.911,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas
- 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.667,=D:\Dp10Repo\项目代码\共佳\A02基础产品管理\U_KnitClothInfoInput.pas
- 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899-12-30 00:00:00.000.811,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanList.pas
- 1899-12-30 00:00:00.000.257,=D:\Dp10Repo\项目代码\恒赫\D01针织生产计划\U_MachPlanSet.pas
- 1899-12-30 00:00:00.000.264,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanCard.pas
- 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
- 1899-12-30 00:00:00.000.031,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas
- 1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
- 2024-07-01 14:35:16.140,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas
- 2024-07-01 14:35:16.181,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas
- 2024-07-01 14:35:50.709,D:\RTFormwork\项目代码\RTBasicsV1\B02基础纱线仓库\U_YarnInfoInPut.pas=
- 2024-07-01 14:36:01.139,D:\RTFormwork\项目代码\RTBasicsV1\A02基础产品管理\U_KnitClothInfoInput.pas=
- 2024-07-01 15:27:57.232,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_LoomSel.pas
+ 1899/12/30 00:00:00.000.811,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanList.pas
+ 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899/12/30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
+ 1899/12/30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
+ 1899/12/30 00:00:00.000.257,=D:\Dp10Repo\项目代码\恒赫\D01针织生产计划\U_MachPlanSet.pas
+ 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.911,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas
+ 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas
+ 1899/12/30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas
+ 1899/12/30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas=
+ 1899/12/30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.pas=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.pas
+ 1899/12/30 00:00:00.000.139,D:\RTFormwork\项目代码\RTBasicsV1\A02基础产品管理\U_KnitClothInfoInput.pas=
+ 1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas=
+ 1899/12/30 00:00:00.000.612,=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitPlanSel.pas
+ 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
+ 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_YarnInfoInPut.pas
+ 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899/12/30 00:00:00.000.140,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas
+ 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899/12/30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas
+ 1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.031,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas
+ 1899/12/30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.dfm=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.dfm
+ 1899/12/30 00:00:00.000.264,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanCard.pas
+ 1899/12/30 00:00:00.000.667,=D:\Dp10Repo\项目代码\共佳\A02基础产品管理\U_KnitClothInfoInput.pas
+ 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899/12/30 00:00:00.000.181,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas
+ 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899/12/30 00:00:00.000.798,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899/12/30 00:00:00.000.709,D:\RTFormwork\项目代码\RTBasicsV1\B02基础纱线仓库\U_YarnInfoInPut.pas=
+ 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899/12/30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.dfm
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.929,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas=
+ 1899/12/30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.dfm
+ 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899/12/30 00:00:00.000.945,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas
+ 1899/12/30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj
+ 1899/12/30 00:00:00.000.232,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_LoomSel.pas
+ 2024/07/16 16:57:34.000.480,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.pas
+ 2024/07/16 16:57:34.000.356,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas
+ 2024/07/16 17:00:42.000.758,=D:\RTFormwork\public10\design\U_BaseDataLink.pas
@@ -104,6 +107,11 @@
+
+
+
+
+
@@ -123,6 +131,8 @@
+
+
diff --git a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.identcache b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.identcache
index 37e3fd1..623a26d 100644
Binary files a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.identcache and b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.identcache differ
diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.dfm
index 6e55c98..b434142 100644
--- a/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.dfm
+++ b/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.dfm
@@ -1,9 +1,25 @@
-object DataLink_KnitPlan: TDataLink_KnitPlan
- OldCreateOrder = False
- OnCreate = DataModuleCreate
+inherited DataLink_KnitPlan: TDataLink_KnitPlan
+ OldCreateOrder = True
OnDestroy = DataModuleDestroy
- Height = 349
- Width = 482
+ Height = 406
+ Width = 599
+ inherited cxEditStyleController1: TcxEditStyleController
+ PixelsPerInch = 96
+ end
+ inherited cxDefaultEditStyleController1: TcxDefaultEditStyleController
+ PixelsPerInch = 96
+ end
+ inherited cxImageList_bar: TcxImageList
+ FormatVersion = 1
+ end
+ inherited ThreeColorBase: TcxStyleRepository
+ PixelsPerInch = 96
+ end
+ inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
+ inherited dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel
+ PixelsPerInch = 96
+ end
+ end
object AdoDataLink: TADOQuery
Connection = ADOLink
Parameters = <>
@@ -10423,139 +10439,6 @@ object DataLink_KnitPlan: TDataLink_KnitPlan
FF800001000000F003FFFE00FFE0000300000000000000000000000000000000
000000000000}
end
- object ThreeLookAndFeelCol: TcxLookAndFeelController
- Kind = lfStandard
- NativeStyle = False
- Left = 253
- Top = 12
- end
- object ThreeColorBase: TcxStyleRepository
- Left = 147
- Top = 80
- PixelsPerInch = 96
- object SHuangSe: TcxStyle
- AssignedValues = [svColor, svFont, svTextColor]
- Color = 4707838
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- TextColor = clBtnText
- end
- object SkyBlue: TcxStyle
- AssignedValues = [svColor, svFont, svTextColor]
- Color = clSkyBlue
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- TextColor = clBlack
- end
- object Default: TcxStyle
- AssignedValues = [svFont]
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- end
- object QHuangSe: TcxStyle
- AssignedValues = [svColor, svFont]
- Color = 8454143
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- end
- object Red: TcxStyle
- AssignedValues = [svColor, svFont]
- Color = clRed
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- end
- object FontBlue: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlue
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clBlue
- end
- object TextSHuangSe: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clOlive
- end
- object FonePurple: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindow
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clPurple
- end
- object FoneClMaroon: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clMaroon
- end
- object FoneRed: TcxStyle
- AssignedValues = [svFont, svTextColor]
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clRed
- end
- object RowColor: TcxStyle
- AssignedValues = [svColor]
- Color = 16311512
- end
- object handBlack: TcxStyle
- AssignedValues = [svFont]
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- end
- object cxBlue: TcxStyle
- AssignedValues = [svColor, svFont]
- Color = 16711731
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- end
- object SHuangSeCu: TcxStyle
- AssignedValues = [svColor, svFont, svTextColor]
- Color = 4707838
- Font.Charset = GB2312_CHARSET
- Font.Color = clBlack
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- TextColor = clRed
- end
- end
object Timer_link: TTimer
Interval = 15000
OnTimer = Timer_linkTimer
diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.pas
index bfe9de6..f7fe5a8 100644
--- a/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.pas
+++ b/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.pas
@@ -5,6 +5,7 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
+ U_BaseDataLink,
dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinBasic,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
@@ -21,7 +22,9 @@ uses
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
- dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
+ dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxCore, cxLocalization,
+ dxLayoutLookAndFeels, cxImageList, cxGraphics, cxEdit, cxContainer,
+ dxSkinsForm;
type
TMyThread = class(TThread)
@@ -53,26 +56,10 @@ var
UserDataFlag: string;
type
- TDataLink_KnitPlan = class(TDataModule)
+ TDataLink_KnitPlan = class(TBaseDataLink)
AdoDataLink: TADOQuery;
ADOLink: TADOConnection;
ThreeImgList: TImageList;
- ThreeLookAndFeelCol: TcxLookAndFeelController;
- ThreeColorBase: TcxStyleRepository;
- SHuangSe: TcxStyle;
- SkyBlue: TcxStyle;
- Default: TcxStyle;
- QHuangSe: TcxStyle;
- Red: TcxStyle;
- FontBlue: TcxStyle;
- TextSHuangSe: TcxStyle;
- FonePurple: TcxStyle;
- FoneClMaroon: TcxStyle;
- FoneRed: TcxStyle;
- RowColor: TcxStyle;
- handBlack: TcxStyle;
- cxBlue: TcxStyle;
- SHuangSeCu: TcxStyle;
Timer_link: TTimer;
ImageList_new32: TImageList;
procedure DataModuleDestroy(Sender: TObject);
@@ -125,6 +112,7 @@ end;
procedure TDataLink_KnitPlan.DataModuleDestroy(Sender: TObject);
begin
+inherited;
CriticalSection.Free;
DataLink_KnitPlan := nil;
end;
@@ -136,6 +124,7 @@ end;
procedure TDataLink_KnitPlan.DataModuleCreate(Sender: TObject);
begin
+inherited;
CriticalSection := TCriticalSection.Create;
end;
diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm
index 83d94d2..f225ae7 100644
--- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm
+++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm
@@ -845,9 +845,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
end
object OrdSNote: TRichEdit
Tag = 2
- Left = 75
- Top = 285
- Width = 807
+ Left = 793
+ Top = 290
+ Width = 582
Height = 40
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@@ -1223,24 +1223,13 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
TabOrder = 42
OnKeyPress = ConNoKeyPress
end
- object Repairer: TBtnEditC
- Left = 1321
- Top = 30
- Width = 120
- Height = 20
- Hint = 'Repairer/'#26426#20462#24037
- TabOrder = 43
- Visible = False
- OnBtnUpClick = MCTypeBtnUpClick
- OnBtnDnClick = CustNameBtnDnClick
- end
object C_Composition: TEdit
Tag = 2
Left = 529
Top = 81
Width = 120
Height = 18
- TabOrder = 44
+ TabOrder = 43
OnKeyPress = ConNoKeyPress
end
object C_Color: TEdit
@@ -1249,7 +1238,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Top = 56
Width = 120
Height = 18
- TabOrder = 45
+ TabOrder = 44
Visible = False
OnKeyPress = ConNoKeyPress
end
@@ -1258,7 +1247,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Top = 258
Width = 120
Height = 18
- TabOrder = 46
+ TabOrder = 45
Visible = False
OnKeyPress = ConNoKeyPress
end
@@ -1267,7 +1256,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Top = 282
Width = 120
Height = 18
- TabOrder = 47
+ TabOrder = 46
Visible = False
OnKeyPress = ConNoKeyPress
end
@@ -1277,7 +1266,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Width = 121
Height = 22
Style = csOwnerDrawFixed
- TabOrder = 48
+ TabOrder = 47
Visible = False
Items.Strings = (
#36864#22238
@@ -1286,10 +1275,10 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object C_Type: TEdit
Tag = 2
Left = 529
- Top = 31
+ Top = 30
Width = 120
Height = 18
- TabOrder = 49
+ TabOrder = 48
OnKeyPress = ConNoKeyPress
end
object Price: TEdit
@@ -1298,7 +1287,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Top = 154
Width = 120
Height = 18
- TabOrder = 50
+ TabOrder = 49
OnKeyPress = ConNoKeyPress
end
object Workshop: TComboBox
@@ -1308,7 +1297,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Height = 22
Style = csOwnerDrawFixed
ItemIndex = 0
- TabOrder = 51
+ TabOrder = 50
Text = #19968#36710#38388
Items.Strings = (
#19968#36710#38388
@@ -1325,7 +1314,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
- TabOrder = 52
+ TabOrder = 51
Zoom = 100
end
object SellType: TBtnEditC
@@ -1334,7 +1323,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Width = 120
Height = 20
Hint = 'SellType/'#19994#21153#31867#22411
- TabOrder = 53
+ TabOrder = 52
OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
@@ -1344,10 +1333,37 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
Width = 120
Height = 20
Hint = 'Strain/'#21367#24067#24352#21147
- TabOrder = 54
+ TabOrder = 53
OnBtnUpClick = MCTypeBtnUpClick
OnBtnDnClick = CustNameBtnDnClick
end
+ object Repairer: TcxButtonEdit
+ Tag = 4
+ Left = 942
+ Top = 251
+ Hint = 'Repairer/'#26426#20462#24037
+ ParentFont = False
+ Properties.Buttons = <
+ item
+ Default = True
+ Kind = bkEllipsis
+ end>
+ Properties.ReadOnly = True
+ Properties.OnButtonClick = FollowerPropertiesButtonClick
+ Style.ButtonStyle = btsDefault
+ TabOrder = 54
+ OnDblClick = RepairerDblClick
+ Width = 200
+ end
+ object OrdNote: TcxMemo
+ Tag = 1
+ Left = 120
+ Top = 281
+ ParentFont = False
+ TabOrder = 55
+ Height = 55
+ Width = 633
+ end
end
object Panel2: TPanel [2]
Left = 0
@@ -1398,6 +1414,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
TabOrder = 0
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -1433,12 +1450,14 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object Tv2Column1: TcxGridDBColumn
Caption = #37096#20301
DataBinding.FieldName = 'Position'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object v2Column10: TcxGridDBColumn
Caption = #21407#26009#20195#21495
DataBinding.FieldName = 'Y_Code'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 66
@@ -1446,6 +1465,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn1: TcxGridDBColumn
Caption = #21407#26009#21517#31216
DataBinding.FieldName = 'Y_Name'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -1455,6 +1475,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v2Column2: TcxGridDBColumn
Caption = #21697#29260
DataBinding.FieldName = 'Brand'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -1463,36 +1484,42 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object Tv2Column2: TcxGridDBColumn
Caption = #37319#36141#33394#21495
DataBinding.FieldName = 'Y_FtyColorNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv2Column6: TcxGridDBColumn
Caption = #21407#22987#33394#21495
DataBinding.FieldName = 'Y_ColorNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
object Tv2Column3: TcxGridDBColumn
Caption = #33394#31216
DataBinding.FieldName = 'Y_Color'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 91
end
object Tv2Column4: TcxGridDBColumn
Caption = #33394#21619#27604#20363
DataBinding.FieldName = 'ColorPositionRatio'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 92
end
object Tv2Column5: TcxGridDBColumn
Caption = #39063#25968
DataBinding.FieldName = 'YarnPieces'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object v2Column5: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 66
@@ -1500,6 +1527,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v2Column6: TcxGridDBColumn
Caption = 'D'#25968
DataBinding.FieldName = 'Denier'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 66
@@ -1507,6 +1535,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v2Column4: TcxGridDBColumn
Caption = #32433#38271
DataBinding.FieldName = 'Y_Len'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_KnitPlan.Default
@@ -1515,6 +1544,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v2Column1: TcxGridDBColumn
Caption = #29992#32433#36335#25968
DataBinding.FieldName = 'Y_Route'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.FonePurple
Width = 66
@@ -1522,6 +1552,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v2Column12: TcxGridDBColumn
Caption = #27604#20363'%'
DataBinding.FieldName = 'Y_Ratio'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_KnitPlan.FontBlue
Styles.Footer = DataLink_KnitPlan.FontBlue
@@ -1531,6 +1562,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v2Column7: TcxGridDBColumn
Caption = #25439#32791'%'
DataBinding.FieldName = 'Y_Loss'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.FonePurple
Width = 66
@@ -1538,6 +1570,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v2Column8: TcxGridDBColumn
Caption = #39044#35745#29992#37327'Kg'
DataBinding.FieldName = 'Y_Qty'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_KnitPlan.FonePurple
@@ -1546,6 +1579,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v2Column3: TcxGridDBColumn
Caption = #25490#32433
DataBinding.FieldName = 'Y_Arr'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_KnitPlan.Default
Width = 66
@@ -1553,6 +1587,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn6: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -1679,6 +1714,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object TV5: TcxGridDBTableView
OnMouseDown = TV5MouseDown
Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource5
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -1705,6 +1741,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn32: TcxGridDBColumn
Caption = #20301#32622
DataBinding.FieldName = 'WeiZhi'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#19978#30424
@@ -1716,6 +1753,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn34: TcxGridDBColumn
Caption = '1'
DataBinding.FieldName = 'PZ1'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1731,6 +1769,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn35: TcxGridDBColumn
Caption = '2'
DataBinding.FieldName = 'PZ2'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1746,6 +1785,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn36: TcxGridDBColumn
Caption = '3'
DataBinding.FieldName = 'PZ3'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1761,6 +1801,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn37: TcxGridDBColumn
Caption = '4'
DataBinding.FieldName = 'PZ4'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1776,6 +1817,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn38: TcxGridDBColumn
Caption = '5'
DataBinding.FieldName = 'PZ5'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1791,6 +1833,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn39: TcxGridDBColumn
Caption = '6'
DataBinding.FieldName = 'PZ6'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1806,6 +1849,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn40: TcxGridDBColumn
Caption = '7'
DataBinding.FieldName = 'PZ7'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1821,6 +1865,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn43: TcxGridDBColumn
Caption = '8'
DataBinding.FieldName = 'PZ8'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1836,6 +1881,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn44: TcxGridDBColumn
Caption = '9'
DataBinding.FieldName = 'PZ9'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1851,6 +1897,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn45: TcxGridDBColumn
Caption = '10'
DataBinding.FieldName = 'PZ10'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1866,6 +1913,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn46: TcxGridDBColumn
Caption = '11'
DataBinding.FieldName = 'PZ11'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1881,6 +1929,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn47: TcxGridDBColumn
Caption = '12'
DataBinding.FieldName = 'PZ12'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1896,6 +1945,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn48: TcxGridDBColumn
Caption = '13'
DataBinding.FieldName = 'PZ13'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1911,6 +1961,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn49: TcxGridDBColumn
Caption = '14'
DataBinding.FieldName = 'PZ14'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1926,6 +1977,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn50: TcxGridDBColumn
Caption = '15'
DataBinding.FieldName = 'PZ15'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1941,6 +1993,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn51: TcxGridDBColumn
Caption = '16'
DataBinding.FieldName = 'PZ16'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1956,6 +2009,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn52: TcxGridDBColumn
Caption = '17'
DataBinding.FieldName = 'PZ17'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1971,6 +2025,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn53: TcxGridDBColumn
Caption = '18'
DataBinding.FieldName = 'PZ18'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -1986,6 +2041,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn54: TcxGridDBColumn
Caption = '19'
DataBinding.FieldName = 'PZ19'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2001,6 +2057,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn55: TcxGridDBColumn
Caption = '20'
DataBinding.FieldName = 'PZ20'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2016,6 +2073,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn56: TcxGridDBColumn
Caption = '21'
DataBinding.FieldName = 'PZ21'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2031,6 +2089,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn57: TcxGridDBColumn
Caption = '22'
DataBinding.FieldName = 'PZ22'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2046,6 +2105,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn58: TcxGridDBColumn
Caption = '23'
DataBinding.FieldName = 'PZ23'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2061,6 +2121,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn59: TcxGridDBColumn
Caption = '24'
DataBinding.FieldName = 'PZ24'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2076,6 +2137,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn60: TcxGridDBColumn
Caption = '25'
DataBinding.FieldName = 'PZ25'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2089,6 +2151,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn61: TcxGridDBColumn
Caption = '26'
DataBinding.FieldName = 'PZ26'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2102,6 +2165,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn62: TcxGridDBColumn
Caption = '27'
DataBinding.FieldName = 'PZ27'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2115,6 +2179,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn63: TcxGridDBColumn
Caption = '28'
DataBinding.FieldName = 'PZ28'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2128,6 +2193,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn64: TcxGridDBColumn
Caption = '29'
DataBinding.FieldName = 'PZ29'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2141,6 +2207,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn65: TcxGridDBColumn
Caption = '30'
DataBinding.FieldName = 'PZ30'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2154,6 +2221,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn66: TcxGridDBColumn
Caption = '31'
DataBinding.FieldName = 'PZ31'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2167,6 +2235,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn67: TcxGridDBColumn
Caption = '32'
DataBinding.FieldName = 'PZ32'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2180,6 +2249,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn68: TcxGridDBColumn
Caption = '33'
DataBinding.FieldName = 'PZ33'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2193,6 +2263,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn69: TcxGridDBColumn
Caption = '34'
DataBinding.FieldName = 'PZ34'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2206,6 +2277,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn70: TcxGridDBColumn
Caption = '35'
DataBinding.FieldName = 'PZ35'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2219,6 +2291,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn71: TcxGridDBColumn
Caption = '36'
DataBinding.FieldName = 'PZ36'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2232,6 +2305,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn72: TcxGridDBColumn
Caption = '37'
DataBinding.FieldName = 'PZ37'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2245,6 +2319,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn73: TcxGridDBColumn
Caption = '38'
DataBinding.FieldName = 'PZ38'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2258,6 +2333,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn74: TcxGridDBColumn
Caption = '39'
DataBinding.FieldName = 'PZ39'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2271,6 +2347,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn75: TcxGridDBColumn
Caption = '40'
DataBinding.FieldName = 'PZ40'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2284,6 +2361,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn76: TcxGridDBColumn
Caption = '41'
DataBinding.FieldName = 'PZ41'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2297,6 +2375,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn77: TcxGridDBColumn
Caption = '42'
DataBinding.FieldName = 'PZ42'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2310,6 +2389,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn78: TcxGridDBColumn
Caption = '43'
DataBinding.FieldName = 'PZ43'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2323,6 +2403,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn79: TcxGridDBColumn
Caption = '44'
DataBinding.FieldName = 'PZ44'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2336,6 +2417,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn80: TcxGridDBColumn
Caption = '45'
DataBinding.FieldName = 'PZ45'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2349,6 +2431,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn81: TcxGridDBColumn
Caption = '46'
DataBinding.FieldName = 'PZ46'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2362,6 +2445,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn82: TcxGridDBColumn
Caption = '47'
DataBinding.FieldName = 'PZ47'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2375,6 +2459,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn83: TcxGridDBColumn
Caption = '48'
DataBinding.FieldName = 'PZ48'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2388,6 +2473,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn84: TcxGridDBColumn
Caption = '49'
DataBinding.FieldName = 'PZ49'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2401,6 +2487,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn85: TcxGridDBColumn
Caption = '50'
DataBinding.FieldName = 'PZ50'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2414,6 +2501,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn86: TcxGridDBColumn
Caption = '51'
DataBinding.FieldName = 'PZ51'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2427,6 +2515,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn87: TcxGridDBColumn
Caption = '52'
DataBinding.FieldName = 'PZ52'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2440,6 +2529,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn88: TcxGridDBColumn
Caption = '53'
DataBinding.FieldName = 'PZ53'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2453,6 +2543,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn89: TcxGridDBColumn
Caption = '54'
DataBinding.FieldName = 'PZ54'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2466,6 +2557,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn90: TcxGridDBColumn
Caption = '55'
DataBinding.FieldName = 'PZ55'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2479,6 +2571,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn91: TcxGridDBColumn
Caption = '56'
DataBinding.FieldName = 'PZ56'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2492,6 +2585,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn92: TcxGridDBColumn
Caption = '57'
DataBinding.FieldName = 'PZ57'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2505,6 +2599,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn93: TcxGridDBColumn
Caption = '58'
DataBinding.FieldName = 'PZ58'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2518,6 +2613,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn94: TcxGridDBColumn
Caption = '59'
DataBinding.FieldName = 'PZ59'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2531,6 +2627,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn95: TcxGridDBColumn
Caption = '60'
DataBinding.FieldName = 'PZ60'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2544,6 +2641,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn96: TcxGridDBColumn
Caption = '61'
DataBinding.FieldName = 'PZ61'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2557,6 +2655,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn97: TcxGridDBColumn
Caption = '62'
DataBinding.FieldName = 'PZ62'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2570,6 +2669,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn98: TcxGridDBColumn
Caption = '63'
DataBinding.FieldName = 'PZ63'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2583,6 +2683,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn99: TcxGridDBColumn
Caption = '64'
DataBinding.FieldName = 'PZ64'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2596,6 +2697,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn100: TcxGridDBColumn
Caption = '65'
DataBinding.FieldName = 'PZ65'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2609,6 +2711,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn101: TcxGridDBColumn
Caption = '66'
DataBinding.FieldName = 'PZ66'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2622,6 +2725,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn102: TcxGridDBColumn
Caption = '67'
DataBinding.FieldName = 'PZ67'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2635,6 +2739,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn103: TcxGridDBColumn
Caption = '68'
DataBinding.FieldName = 'PZ68'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2648,6 +2753,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn104: TcxGridDBColumn
Caption = '69'
DataBinding.FieldName = 'PZ69'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2661,6 +2767,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn105: TcxGridDBColumn
Caption = '70'
DataBinding.FieldName = 'PZ70'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2674,6 +2781,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn106: TcxGridDBColumn
Caption = '71'
DataBinding.FieldName = 'PZ71'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2687,6 +2795,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn107: TcxGridDBColumn
Caption = '72'
DataBinding.FieldName = 'PZ72'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2700,6 +2809,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn108: TcxGridDBColumn
Caption = '73'
DataBinding.FieldName = 'PZ73'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2713,6 +2823,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn109: TcxGridDBColumn
Caption = '74'
DataBinding.FieldName = 'PZ74'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2726,6 +2837,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn110: TcxGridDBColumn
Caption = '75'
DataBinding.FieldName = 'PZ75'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2739,6 +2851,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn111: TcxGridDBColumn
Caption = '76'
DataBinding.FieldName = 'PZ76'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2752,6 +2865,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn112: TcxGridDBColumn
Caption = '77'
DataBinding.FieldName = 'PZ77'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2765,6 +2879,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn113: TcxGridDBColumn
Caption = '78'
DataBinding.FieldName = 'PZ78'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2778,6 +2893,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn114: TcxGridDBColumn
Caption = '79'
DataBinding.FieldName = 'PZ79'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2791,6 +2907,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn115: TcxGridDBColumn
Caption = '80'
DataBinding.FieldName = 'PZ80'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2804,6 +2921,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn116: TcxGridDBColumn
Caption = '81'
DataBinding.FieldName = 'PZ81'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2817,6 +2935,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn117: TcxGridDBColumn
Caption = '82'
DataBinding.FieldName = 'PZ82'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2830,6 +2949,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn118: TcxGridDBColumn
Caption = '83'
DataBinding.FieldName = 'PZ83'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2843,6 +2963,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object cxGridDBColumn119: TcxGridDBColumn
Caption = '84'
DataBinding.FieldName = 'PZ84'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#8744
@@ -2875,6 +2996,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object Tv3: TcxGridDBTableView
OnMouseDown = Tv3MouseDown
Navigator.Buttons.CustomButtons = <>
+ ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource3
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -2901,6 +3023,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column37: TcxGridDBColumn
Caption = #20301#32622
DataBinding.FieldName = 'WeiZhi'
+ DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#19978#30424
@@ -2912,12 +3035,14 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column38: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'PZNote'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 59
end
object v3Column1: TcxGridDBColumn
Caption = '1'
DataBinding.FieldName = 'PZ1'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -2926,6 +3051,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column2: TcxGridDBColumn
Caption = '2'
DataBinding.FieldName = 'PZ2'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -2934,6 +3060,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column3: TcxGridDBColumn
Caption = '3'
DataBinding.FieldName = 'PZ3'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -2942,6 +3069,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column4: TcxGridDBColumn
Caption = '4'
DataBinding.FieldName = 'PZ4'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -2950,6 +3078,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column5: TcxGridDBColumn
Caption = '5'
DataBinding.FieldName = 'PZ5'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -2958,6 +3087,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column6: TcxGridDBColumn
Caption = '6'
DataBinding.FieldName = 'PZ6'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -2966,6 +3096,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column7: TcxGridDBColumn
Caption = '7'
DataBinding.FieldName = 'PZ7'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -2974,6 +3105,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column8: TcxGridDBColumn
Caption = '8'
DataBinding.FieldName = 'PZ8'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -2982,6 +3114,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column9: TcxGridDBColumn
Caption = '9'
DataBinding.FieldName = 'PZ9'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -2990,6 +3123,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column10: TcxGridDBColumn
Caption = '10'
DataBinding.FieldName = 'PZ10'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -2998,6 +3132,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column11: TcxGridDBColumn
Caption = '11'
DataBinding.FieldName = 'PZ11'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3006,6 +3141,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column12: TcxGridDBColumn
Caption = '12'
DataBinding.FieldName = 'PZ12'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3014,6 +3150,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column13: TcxGridDBColumn
Caption = '13'
DataBinding.FieldName = 'PZ13'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3022,6 +3159,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column14: TcxGridDBColumn
Caption = '14'
DataBinding.FieldName = 'PZ14'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3030,6 +3168,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column15: TcxGridDBColumn
Caption = '15'
DataBinding.FieldName = 'PZ15'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3038,6 +3177,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column16: TcxGridDBColumn
Caption = '16'
DataBinding.FieldName = 'PZ16'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3046,6 +3186,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column17: TcxGridDBColumn
Caption = '17'
DataBinding.FieldName = 'PZ17'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3054,6 +3195,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column18: TcxGridDBColumn
Caption = '18'
DataBinding.FieldName = 'PZ18'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3062,6 +3204,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column19: TcxGridDBColumn
Caption = '19'
DataBinding.FieldName = 'PZ19'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3070,6 +3213,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column20: TcxGridDBColumn
Caption = '20'
DataBinding.FieldName = 'PZ20'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3078,6 +3222,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column21: TcxGridDBColumn
Caption = '21'
DataBinding.FieldName = 'PZ21'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3086,6 +3231,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column22: TcxGridDBColumn
Caption = '22'
DataBinding.FieldName = 'PZ22'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3094,6 +3240,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column23: TcxGridDBColumn
Caption = '23'
DataBinding.FieldName = 'PZ23'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3102,6 +3249,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column24: TcxGridDBColumn
Caption = '24'
DataBinding.FieldName = 'PZ24'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Moving = False
Options.Sorting = False
@@ -3110,720 +3258,840 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
object v3Column25: TcxGridDBColumn
Caption = '25'
DataBinding.FieldName = 'PZ25'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column26: TcxGridDBColumn
Caption = '26'
DataBinding.FieldName = 'PZ26'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column27: TcxGridDBColumn
Caption = '27'
DataBinding.FieldName = 'PZ27'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column28: TcxGridDBColumn
Caption = '28'
DataBinding.FieldName = 'PZ28'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column29: TcxGridDBColumn
Caption = '29'
DataBinding.FieldName = 'PZ29'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column30: TcxGridDBColumn
Caption = '30'
DataBinding.FieldName = 'PZ30'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column31: TcxGridDBColumn
Caption = '31'
DataBinding.FieldName = 'PZ31'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column32: TcxGridDBColumn
Caption = '32'
DataBinding.FieldName = 'PZ32'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column33: TcxGridDBColumn
Caption = '33'
DataBinding.FieldName = 'PZ33'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column34: TcxGridDBColumn
Caption = '34'
DataBinding.FieldName = 'PZ34'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column35: TcxGridDBColumn
Caption = '35'
DataBinding.FieldName = 'PZ35'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column36: TcxGridDBColumn
Caption = '36'
DataBinding.FieldName = 'PZ36'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column39: TcxGridDBColumn
Caption = '37'
DataBinding.FieldName = 'PZ37'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column40: TcxGridDBColumn
Caption = '38'
DataBinding.FieldName = 'PZ38'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column41: TcxGridDBColumn
Caption = '39'
DataBinding.FieldName = 'PZ39'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column42: TcxGridDBColumn
Caption = '40'
DataBinding.FieldName = 'PZ40'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column43: TcxGridDBColumn
Caption = '41'
DataBinding.FieldName = 'PZ41'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column44: TcxGridDBColumn
Caption = '42'
DataBinding.FieldName = 'PZ42'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column45: TcxGridDBColumn
Caption = '43'
DataBinding.FieldName = 'PZ43'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column46: TcxGridDBColumn
Caption = '44'
DataBinding.FieldName = 'PZ44'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column47: TcxGridDBColumn
Caption = '45'
DataBinding.FieldName = 'PZ45'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column48: TcxGridDBColumn
Caption = '46'
DataBinding.FieldName = 'PZ46'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column49: TcxGridDBColumn
Caption = '47'
DataBinding.FieldName = 'PZ47'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column50: TcxGridDBColumn
Caption = '48'
DataBinding.FieldName = 'PZ48'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column51: TcxGridDBColumn
Caption = '49'
DataBinding.FieldName = 'PZ49'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column52: TcxGridDBColumn
Caption = '50'
DataBinding.FieldName = 'PZ50'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column53: TcxGridDBColumn
Caption = '51'
DataBinding.FieldName = 'PZ51'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column54: TcxGridDBColumn
Caption = '52'
DataBinding.FieldName = 'PZ52'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column55: TcxGridDBColumn
Caption = '53'
DataBinding.FieldName = 'PZ53'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column56: TcxGridDBColumn
Caption = '54'
DataBinding.FieldName = 'PZ54'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column57: TcxGridDBColumn
Caption = '55'
DataBinding.FieldName = 'PZ55'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column58: TcxGridDBColumn
Caption = '56'
DataBinding.FieldName = 'PZ56'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column59: TcxGridDBColumn
Caption = '57'
DataBinding.FieldName = 'PZ57'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column60: TcxGridDBColumn
Caption = '58'
DataBinding.FieldName = 'PZ58'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column61: TcxGridDBColumn
Caption = '59'
DataBinding.FieldName = 'PZ59'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column62: TcxGridDBColumn
Caption = '60'
DataBinding.FieldName = 'PZ60'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column63: TcxGridDBColumn
Caption = '61'
DataBinding.FieldName = 'PZ61'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column64: TcxGridDBColumn
Caption = '62'
DataBinding.FieldName = 'PZ62'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column65: TcxGridDBColumn
Caption = '63'
DataBinding.FieldName = 'PZ63'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column66: TcxGridDBColumn
Caption = '64'
DataBinding.FieldName = 'PZ64'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column67: TcxGridDBColumn
Caption = '65'
DataBinding.FieldName = 'PZ65'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column68: TcxGridDBColumn
Caption = '66'
DataBinding.FieldName = 'PZ66'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column69: TcxGridDBColumn
Caption = '67'
DataBinding.FieldName = 'PZ67'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column70: TcxGridDBColumn
Caption = '68'
DataBinding.FieldName = 'PZ68'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column71: TcxGridDBColumn
Caption = '69'
DataBinding.FieldName = 'PZ69'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column72: TcxGridDBColumn
Caption = '70'
DataBinding.FieldName = 'PZ70'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column73: TcxGridDBColumn
Caption = '71'
DataBinding.FieldName = 'PZ71'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column74: TcxGridDBColumn
Caption = '72'
DataBinding.FieldName = 'PZ72'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column75: TcxGridDBColumn
Caption = '73'
DataBinding.FieldName = 'PZ73'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column76: TcxGridDBColumn
Caption = '74'
DataBinding.FieldName = 'PZ74'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column77: TcxGridDBColumn
Caption = '75'
DataBinding.FieldName = 'PZ75'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column78: TcxGridDBColumn
Caption = '76'
DataBinding.FieldName = 'PZ76'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column79: TcxGridDBColumn
Caption = '77'
DataBinding.FieldName = 'PZ77'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column80: TcxGridDBColumn
Caption = '78'
DataBinding.FieldName = 'PZ78'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column81: TcxGridDBColumn
Caption = '79'
DataBinding.FieldName = 'PZ79'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column82: TcxGridDBColumn
Caption = '80'
DataBinding.FieldName = 'PZ80'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column83: TcxGridDBColumn
Caption = '81'
DataBinding.FieldName = 'PZ81'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column84: TcxGridDBColumn
Caption = '82'
DataBinding.FieldName = 'PZ82'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column85: TcxGridDBColumn
Caption = '83'
DataBinding.FieldName = 'PZ83'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column86: TcxGridDBColumn
Caption = '84'
DataBinding.FieldName = 'PZ84'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column87: TcxGridDBColumn
Caption = '85'
DataBinding.FieldName = 'PZ85'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column88: TcxGridDBColumn
Caption = '86'
DataBinding.FieldName = 'PZ86'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column89: TcxGridDBColumn
Caption = '87'
DataBinding.FieldName = 'PZ87'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column90: TcxGridDBColumn
Caption = '88'
DataBinding.FieldName = 'PZ88'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column91: TcxGridDBColumn
Caption = '89'
DataBinding.FieldName = 'PZ89'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column92: TcxGridDBColumn
Caption = '90'
DataBinding.FieldName = 'PZ90'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column93: TcxGridDBColumn
Caption = '91'
DataBinding.FieldName = 'PZ91'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column94: TcxGridDBColumn
Caption = '92'
DataBinding.FieldName = 'PZ92'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column95: TcxGridDBColumn
Caption = '93'
DataBinding.FieldName = 'PZ93'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column96: TcxGridDBColumn
Caption = '94'
DataBinding.FieldName = 'PZ94'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column97: TcxGridDBColumn
Caption = '95'
DataBinding.FieldName = 'PZ95'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column98: TcxGridDBColumn
Caption = '96'
DataBinding.FieldName = 'PZ96'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column99: TcxGridDBColumn
Caption = '97'
DataBinding.FieldName = 'PZ97'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column100: TcxGridDBColumn
Caption = '98'
DataBinding.FieldName = 'PZ98'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column101: TcxGridDBColumn
Caption = '99'
DataBinding.FieldName = 'PZ99'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column102: TcxGridDBColumn
Caption = '100'
DataBinding.FieldName = 'PZ100'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column103: TcxGridDBColumn
Caption = '101'
DataBinding.FieldName = 'PZ101'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column104: TcxGridDBColumn
Caption = '102'
DataBinding.FieldName = 'PZ102'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column105: TcxGridDBColumn
Caption = '103'
DataBinding.FieldName = 'PZ103'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column106: TcxGridDBColumn
Caption = '104'
DataBinding.FieldName = 'PZ104'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column107: TcxGridDBColumn
Caption = '105'
DataBinding.FieldName = 'PZ105'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column108: TcxGridDBColumn
Caption = '106'
DataBinding.FieldName = 'PZ106'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column109: TcxGridDBColumn
Caption = '107'
DataBinding.FieldName = 'PZ107'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column110: TcxGridDBColumn
Caption = '108'
DataBinding.FieldName = 'PZ108'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column111: TcxGridDBColumn
Caption = '109'
DataBinding.FieldName = 'PZ109'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column112: TcxGridDBColumn
Caption = '110'
DataBinding.FieldName = 'PZ110'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column113: TcxGridDBColumn
Caption = '111'
DataBinding.FieldName = 'PZ111'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column114: TcxGridDBColumn
Caption = '112'
DataBinding.FieldName = 'PZ112'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column115: TcxGridDBColumn
Caption = '113'
DataBinding.FieldName = 'PZ113'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column116: TcxGridDBColumn
Caption = '114'
DataBinding.FieldName = 'PZ114'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column117: TcxGridDBColumn
Caption = '115'
DataBinding.FieldName = 'PZ115'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column118: TcxGridDBColumn
Caption = '116'
DataBinding.FieldName = 'PZ116'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column119: TcxGridDBColumn
Caption = '117'
DataBinding.FieldName = 'PZ117'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column120: TcxGridDBColumn
Caption = '118'
DataBinding.FieldName = 'PZ118'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column121: TcxGridDBColumn
Caption = '119'
DataBinding.FieldName = 'PZ119'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column122: TcxGridDBColumn
Caption = '120'
DataBinding.FieldName = 'PZ120'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column123: TcxGridDBColumn
Caption = '121'
DataBinding.FieldName = 'PZ121'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column124: TcxGridDBColumn
Caption = '122'
DataBinding.FieldName = 'PZ122'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column125: TcxGridDBColumn
Caption = '123'
DataBinding.FieldName = 'PZ123'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column126: TcxGridDBColumn
Caption = '124'
DataBinding.FieldName = 'PZ124'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column127: TcxGridDBColumn
Caption = '125'
DataBinding.FieldName = 'PZ125'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column128: TcxGridDBColumn
Caption = '126'
DataBinding.FieldName = 'PZ126'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column129: TcxGridDBColumn
Caption = '127'
DataBinding.FieldName = 'PZ127'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column130: TcxGridDBColumn
Caption = '128'
DataBinding.FieldName = 'PZ128'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column131: TcxGridDBColumn
Caption = '129'
DataBinding.FieldName = 'PZ129'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column132: TcxGridDBColumn
Caption = '130'
DataBinding.FieldName = 'PZ130'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column133: TcxGridDBColumn
Caption = '131'
DataBinding.FieldName = 'PZ131'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column134: TcxGridDBColumn
Caption = '132'
DataBinding.FieldName = 'PZ132'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column135: TcxGridDBColumn
Caption = '133'
DataBinding.FieldName = 'PZ133'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column136: TcxGridDBColumn
Caption = '134'
DataBinding.FieldName = 'PZ134'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column137: TcxGridDBColumn
Caption = '135'
DataBinding.FieldName = 'PZ135'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column138: TcxGridDBColumn
Caption = '136'
DataBinding.FieldName = 'PZ136'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column139: TcxGridDBColumn
Caption = '137'
DataBinding.FieldName = 'PZ137'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column140: TcxGridDBColumn
Caption = '138'
DataBinding.FieldName = 'PZ138'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column141: TcxGridDBColumn
Caption = '139'
DataBinding.FieldName = 'PZ139'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column142: TcxGridDBColumn
Caption = '140'
DataBinding.FieldName = 'PZ140'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column143: TcxGridDBColumn
Caption = '141'
DataBinding.FieldName = 'PZ141'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column144: TcxGridDBColumn
Caption = '142'
DataBinding.FieldName = 'PZ142'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column145: TcxGridDBColumn
Caption = '143'
DataBinding.FieldName = 'PZ143'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column146: TcxGridDBColumn
Caption = '144'
DataBinding.FieldName = 'PZ144'
+ DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.pas
index 404532c..f83bbe1 100644
--- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.pas
+++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.pas
@@ -12,7 +12,7 @@ uses
StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels,
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, U_BaseInput, System.ImageList,
- Vcl.ImgList, Vcl.Menus;
+ Vcl.ImgList, Vcl.Menus, dxSkinWXI, dxScrollbarAnnotations;
type
TfrmKnitPlanInPut = class(TfrmBaseInput)
@@ -388,7 +388,6 @@ type
Label35: TLabel;
TurnsQtyAvg: TEdit;
Label36: TLabel;
- Repairer: TBtnEditC;
Label38: TLabel;
C_Composition: TEdit;
Label39: TLabel;
@@ -412,6 +411,8 @@ type
Label30: TLabel;
Strain: TBtnEditC;
ToolButton2: TToolButton;
+ Repairer: TcxButtonEdit;
+ OrdNote: TcxMemo;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@@ -437,6 +438,9 @@ type
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure OrdPieceWeightExit(Sender: TObject);
+ procedure RepairerDblClick(Sender: TObject);
+ procedure FollowerPropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
private
FXS, FGridFlag: Integer;
procedure InitData();
@@ -681,6 +685,37 @@ begin
end;
+procedure TfrmKnitPlanInPut.RepairerDblClick(Sender: TObject);
+begin
+ TcxButtonEdit(Sender).Text := '';
+ TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
+end;
+
+procedure TfrmKnitPlanInPut.FollowerPropertiesButtonClick(Sender: TObject;
+ AButtonIndex: Integer);
+var
+ fsj: string;
+ FWZ: Integer;
+begin
+ fsj := Trim(TcxButtonEdit(Sender).Hint);
+ FWZ := Pos('/', fsj);
+ try
+ frmZDYHelp := TfrmZDYHelp.Create(Application);
+ with frmZDYHelp do
+ begin
+ flag := Copy(fsj, 1, FWZ - 1);
+ flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+ if ShowModal = 1 then
+ begin
+ TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+ end;
+ end;
+ finally
+ frmZDYHelp.Free;
+ end;
+
+end;
+
procedure TfrmKnitPlanInPut.FormShow(Sender: TObject);
begin
InitData();
diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm
index b8e829c..86a95ac 100644
--- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm
+++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm
@@ -4,29 +4,30 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #36710#38388#29983#20135#35745#21010#21333
ClientHeight = 642
ClientWidth = 1540
+ Font.Height = -16
Position = poScreenCenter
ExplicitWidth = 1556
ExplicitHeight = 681
PixelsPerInch = 96
- TextHeight = 17
+ TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
- Height = 38
+ Height = 30
AutoSize = True
- ButtonHeight = 38
- ButtonWidth = 91
+ ButtonHeight = 30
+ ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
- DisabledImages = DataLink_KnitPlan.ImageList_new32
+ DisabledImages = DataLink_KnitPlan.cxImageList_bar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
- Images = DataLink_KnitPlan.ImageList_new32
+ Images = DataLink_KnitPlan.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
@@ -41,7 +42,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBRafreshClick
end
object TBFind: TToolButton
- Left = 71
+ Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
@@ -49,7 +50,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBFindClick
end
object TBAdd: TToolButton
- Left = 142
+ Left = 126
Top = 0
AutoSize = True
Caption = #26032#22686
@@ -57,7 +58,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBAddClick
end
object TBCopy: TToolButton
- Left = 213
+ Left = 189
Top = 0
AutoSize = True
Caption = #22797#21046
@@ -65,7 +66,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBCopyClick
end
object ToolButton2: TToolButton
- Left = 284
+ Left = 252
Top = 0
AutoSize = True
Caption = #25171#21367#35774#32622
@@ -73,7 +74,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton2Click
end
object TBEdit: TToolButton
- Left = 379
+ Left = 339
Top = 0
AutoSize = True
Caption = #20462#25913
@@ -81,7 +82,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBEditClick
end
object TBPrint: TToolButton
- Left = 450
+ Left = 402
Top = 0
AutoSize = True
Caption = #25171#21360
@@ -89,7 +90,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBPrintClick
end
object TBView: TToolButton
- Left = 521
+ Left = 465
Top = 0
AutoSize = True
Caption = #26597#30475
@@ -97,7 +98,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBViewClick
end
object TBDel: TToolButton
- Left = 592
+ Left = 528
Top = 0
AutoSize = True
Caption = #21024#38500
@@ -105,7 +106,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBDelClick
end
object TBSCAP: TToolButton
- Left = 663
+ Left = 591
Top = 0
AutoSize = True
Caption = #29983#20135#23433#25490
@@ -113,7 +114,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBSCAPClick
end
object btnChk: TToolButton
- Left = 758
+ Left = 678
Top = 0
AutoSize = True
Caption = #24320#22987
@@ -121,7 +122,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = btnChkClick
end
object btnReChk: TToolButton
- Left = 829
+ Left = 741
Top = 0
AutoSize = True
Caption = #25764#38144#24320#22987
@@ -129,7 +130,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = btnReChkClick
end
object TBEnd: TToolButton
- Left = 924
+ Left = 828
Top = 0
AutoSize = True
Caption = #32467#26463
@@ -137,7 +138,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBEndClick
end
object TBNoEnd: TToolButton
- Left = 995
+ Left = 891
Top = 0
AutoSize = True
Caption = #25764#38144#32467#26463
@@ -145,7 +146,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBNoEndClick
end
object ToolButton1: TToolButton
- Left = 1090
+ Left = 978
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@@ -153,7 +154,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton1Click
end
object TBExport: TToolButton
- Left = 1185
+ Left = 1065
Top = 0
AutoSize = True
Caption = #23548#20986
@@ -161,7 +162,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBExportClick
end
object TBClose: TToolButton
- Left = 1256
+ Left = 1128
Top = 0
AutoSize = True
Caption = #20851#38381
@@ -171,201 +172,151 @@ inherited frmKnitPlanList: TfrmKnitPlanList
end
object Panel1: TPanel [1]
Left = 0
- Top = 38
+ Top = 30
Width = 1540
- Height = 67
+ Height = 131
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
- object Label1: TLabel
- Left = 18
- Top = 14
- Width = 52
- Height = 12
- Caption = #30331#35760#26085#26399
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 53
- Top = 40
- Width = 15
- Height = 17
- Caption = '---'
- end
object Label3: TLabel
- Left = 184
- Top = 14
- Width = 39
- Height = 12
+ Left = 25
+ Top = 51
+ Width = 48
+ Height = 21
Caption = #21512#21516#21495
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
end
object Label5: TLabel
- Left = 485
- Top = 40
- Width = 52
- Height = 12
+ Left = 421
+ Top = 88
+ Width = 64
+ Height = 21
Caption = #20135#21697#21517#31216
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
end
object Label10: TLabel
- Left = 485
- Top = 14
- Width = 52
- Height = 12
+ Left = 421
+ Top = 51
+ Width = 64
+ Height = 21
Caption = #20135#21697#32534#21495
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
end
object Label7: TLabel
- Left = 326
- Top = 14
- Width = 26
- Height = 12
+ Left = 231
+ Top = 51
+ Width = 32
+ Height = 21
Caption = #23458#25143
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
end
object lbl1: TLabel
- Left = 326
- Top = 40
- Width = 26
- Height = 12
+ Left = 231
+ Top = 88
+ Width = 32
+ Height = 21
Caption = #31867#22411
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
end
object Label4: TLabel
- Left = 184
- Top = 40
- Width = 39
- Height = 12
+ Left = 25
+ Top = 88
+ Width = 48
+ Height = 21
Caption = #35745#21010#21333
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
+ end
+ object ConNo: TcxTextEdit
+ Tag = 2
+ Left = 77
+ Top = 45
ParentFont = False
- end
- object BegDate: TDateTimePicker
- Left = 71
- Top = 10
- Width = 85
- Height = 20
- Date = 44378.000000000000000000
- Format = 'yyyy-MM-dd'
- Time = 0.464742650459811600
TabOrder = 0
+ OnKeyPress = conPress
+ Width = 150
end
- object EndDate: TDateTimePicker
- Left = 71
- Top = 36
- Width = 86
- Height = 20
- Date = 40675.000000000000000000
- Format = 'yyyy-MM-dd'
- Time = 0.464761099538009100
+ object C_Name: TcxTextEdit
+ Tag = 2
+ Left = 489
+ Top = 82
+ ParentFont = False
+ Properties.OnChange = C_NamePropertiesChange
TabOrder = 1
- end
- object ConNo: TEdit
- Tag = 2
- Left = 229
- Top = 10
- Width = 81
- Height = 25
- TabOrder = 2
- OnChange = ConNoChange
- OnKeyPress = conPress
- end
- object C_Name: TEdit
- Tag = 2
- Left = 539
- Top = 36
- Width = 83
- Height = 25
- TabOrder = 3
- OnChange = ConNoChange
OnKeyPress = C_NameKeyPress
+ Width = 150
end
- object C_Code: TEdit
+ object C_Code: TcxTextEdit
Tag = 2
- Left = 539
- Top = 10
- Width = 83
- Height = 25
- TabOrder = 4
- OnChange = ConNoChange
+ Left = 489
+ Top = 45
+ ParentFont = False
+ TabOrder = 2
OnKeyPress = C_CodeKeyPress
+ Width = 150
end
- object CustName: TEdit
+ object CustName: TcxTextEdit
Tag = 2
- Left = 356
- Top = 10
- Width = 110
- Height = 25
- TabOrder = 5
- OnChange = ConNoChange
+ Left = 267
+ Top = 45
+ ParentFont = False
+ TabOrder = 3
OnKeyPress = CustNameKeyPress
+ Width = 150
end
- object OrdType: TComboBox
- Left = 356
- Top = 35
- Width = 110
- Height = 22
- Style = csOwnerDrawFixed
- TabOrder = 6
- OnChange = OrdTypeChange
- end
- object OrderNo: TEdit
+ object OrderNo: TcxTextEdit
Tag = 2
- Left = 229
- Top = 36
- Width = 81
- Height = 25
- TabOrder = 7
- OnChange = ConNoChange
+ Left = 77
+ Top = 82
+ ParentFont = False
+ TabOrder = 4
OnKeyPress = conPress
+ Width = 150
+ end
+ object OrdType: TcxComboBox
+ Tag = 2
+ Left = 267
+ Top = 82
+ ParentFont = False
+ Properties.DropDownListStyle = lsFixedList
+ Properties.Items.Strings = (
+ 'M'
+ 'Y'
+ 'Kg')
+ TabOrder = 5
+ Text = 'M'
+ Width = 150
+ end
+ inline frmFrameDateSel1: TfrmFrameDateSel
+ Left = 2
+ Top = 2
+ Width = 1536
+ Height = 37
+ Align = alTop
+ Color = clWhite
+ ParentBackground = False
+ ParentColor = False
+ TabOrder = 6
+ ExplicitLeft = 2
+ ExplicitTop = 2
+ ExplicitWidth = 1536
+ inherited BegDate: TcxDateEdit
+ ExplicitHeight = 33
+ end
+ inherited EndDate: TcxDateEdit
+ ExplicitHeight = 33
+ end
+ inherited cbbType: TcxComboBox
+ ExplicitHeight = 33
+ end
end
end
object cxGrid1: TcxGrid [2]
Left = 0
- Top = 133
+ Top = 189
Width = 1317
- Height = 509
+ Height = 453
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
+ ExplicitTop = 217
+ ExplicitHeight = 425
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -652,7 +603,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
end
object cxTabControl1: TcxTabControl [3]
Left = 0
- Top = 105
+ Top = 161
Width = 1540
Height = 28
Align = alTop
@@ -672,17 +623,20 @@ inherited frmKnitPlanList: TfrmKnitPlanList
#24050#32467#26463
#20840#37096)
OnChange = cxTabControl1Change
+ ExplicitTop = 189
ClientRectBottom = 30
ClientRectRight = 1540
ClientRectTop = 30
end
object Panel2: TPanel [4]
Left = 1317
- Top = 133
+ Top = 189
Width = 223
- Height = 509
+ Height = 453
Align = alRight
TabOrder = 4
+ ExplicitTop = 217
+ ExplicitHeight = 425
object Label6: TLabel
Left = 28
Top = 48
@@ -774,61 +728,61 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Font.Style = [fsBold]
ParentFont = False
end
- object CardPiece: TEdit
+ object CardPiece: TcxTextEdit
Left = 86
Top = 44
- Width = 112
- Height = 25
+ ParentFont = False
TabOrder = 0
OnKeyPress = conPress
+ Width = 112
end
- object PBJYPS: TEdit
+ object PBJYPS: TcxTextEdit
Left = 86
Top = 70
- Width = 112
- Height = 25
+ ParentFont = False
TabOrder = 1
OnKeyPress = conPress
+ Width = 112
end
- object PBJYQty: TEdit
+ object PBJYQty: TcxTextEdit
Left = 86
Top = 95
- Width = 112
- Height = 25
+ ParentFont = False
TabOrder = 2
OnKeyPress = conPress
+ Width = 112
end
- object PBCKPS: TEdit
+ object PBCKPS: TcxTextEdit
Left = 86
Top = 121
- Width = 112
- Height = 25
+ ParentFont = False
TabOrder = 3
OnKeyPress = conPress
+ Width = 112
end
- object PBCKQty: TEdit
+ object PBCKQty: TcxTextEdit
Left = 86
Top = 148
- Width = 112
- Height = 25
+ ParentFont = False
TabOrder = 4
OnKeyPress = conPress
+ Width = 112
end
- object PBKCPS: TEdit
+ object PBKCPS: TcxTextEdit
Left = 86
Top = 174
- Width = 112
- Height = 25
+ ParentFont = False
TabOrder = 5
OnKeyPress = conPress
+ Width = 112
end
- object PBKCQty: TEdit
+ object PBKCQty: TcxTextEdit
Left = 86
Top = 200
- Width = 112
- Height = 25
+ ParentFont = False
TabOrder = 6
OnKeyPress = conPress
+ Width = 112
end
end
inherited ADOQueryBaseCmd: TADOQuery
diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas
index a81c55a..65d0467 100644
--- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas
+++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas
@@ -27,7 +27,8 @@ uses
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
- dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations;
+ dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations,
+ cxContainer, cxMaskEdit, cxDropDownEdit, FrameDateSel;
type
TfrmKnitPlanList = class(TfrmBaseList)
@@ -40,19 +41,15 @@ type
TBPrint: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
- BegDate: TDateTimePicker;
- EndDate: TDateTimePicker;
- Label1: TLabel;
- Label2: TLabel;
GPM_1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
Label3: TLabel;
- ConNo: TEdit;
+ ConNo: TcxTextEdit;
Label5: TLabel;
- C_Name: TEdit;
+ C_Name: TcxTextEdit;
TBExport: TToolButton;
CDS_1: TClientDataSet;
cxGrid1: TcxGrid;
@@ -74,18 +71,17 @@ type
v1Column19: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
Label10: TLabel;
- C_Code: TEdit;
+ C_Code: TcxTextEdit;
v1Column22: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
v1Column31: TcxGridDBColumn;
- CustName: TEdit;
+ CustName: TcxTextEdit;
Label7: TLabel;
lbl1: TLabel;
- OrdType: TComboBox;
cxTabControl1: TcxTabControl;
Tv1Column1: TcxGridDBColumn;
Label4: TLabel;
- OrderNo: TEdit;
+ OrderNo: TcxTextEdit;
Tv1Column2: TcxGridDBColumn;
TBEnd: TToolButton;
TBNoEnd: TToolButton;
@@ -100,23 +96,25 @@ type
Tv1Column6: TcxGridDBColumn;
Panel2: TPanel;
Label6: TLabel;
- CardPiece: TEdit;
+ CardPiece: TcxTextEdit;
Label8: TLabel;
- PBJYPS: TEdit;
+ PBJYPS: TcxTextEdit;
Label9: TLabel;
- PBJYQty: TEdit;
+ PBJYQty: TcxTextEdit;
Label11: TLabel;
- PBCKPS: TEdit;
+ PBCKPS: TcxTextEdit;
Label12: TLabel;
- PBCKQty: TEdit;
+ PBCKQty: TcxTextEdit;
Label13: TLabel;
- PBKCPS: TEdit;
+ PBKCPS: TcxTextEdit;
Label14: TLabel;
- PBKCQty: TEdit;
+ PBKCQty: TcxTextEdit;
ADO_JD: TADOQuery;
Tv1Column7: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
+ OrdType: TcxComboBox;
+ frmFrameDateSel1: TfrmFrameDateSel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
@@ -131,7 +129,7 @@ type
procedure conPress(Sender: TObject; var Key: Char);
procedure TBViewClick(Sender: TObject);
procedure TBCopyClick(Sender: TObject);
- procedure OrdTypeChange(Sender: TObject);
+ procedure OrdType1Change(Sender: TObject);
procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
procedure BatchNoHZKeyPress(Sender: TObject; var Key: Char);
procedure CustNameKeyPress(Sender: TObject; var Key: Char);
@@ -146,6 +144,7 @@ type
procedure ToolButton2Click(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure N1Click(Sender: TObject);
+ procedure C_NamePropertiesChange(Sender: TObject);
private
FInt, PFInt: Integer;
procedure InitGrid();
@@ -264,8 +263,8 @@ begin
sql.Add(',Y_NameS= SUBSTRING(CAST((select ''+'' +X.Y_Name from knit_Plan_Yarn X where X.subid=B.subid order by YRId for xml path('''') ) AS VARCHAR(100)) , 2, 100) ');
sql.Add(' from knit_Plan_Main A inner join knit_Plan_Sub B on A.Mainid=B.MainId');
- sql.Add(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
- sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
+ sql.Add(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1.BegDate.Date)) + '''');
+ sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1.EndDate.Date + 1)) + '''');
case cxTabControl1.TabIndex of
0:
@@ -279,8 +278,8 @@ begin
2:
begin
sql.Add('and isnull(Status,''0'') =''10'' ');
- sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
- sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
+ sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''');
+ sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1. EndDate.Date + 1)) + '''');
end;
end;
sql.add('order by A.FILLTIME DESC');
@@ -303,8 +302,8 @@ procedure TfrmKnitPlanList.InitForm();
begin
InitButton();
ReadCxGrid(trim(self.Caption), Tv1, '');
- BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 30;
- EndDate.DateTime := SGetServerDate(ADOQueryTemp);
+ frmFrameDateSel1. BegDate.Date := SGetServerDate(ADOQueryTemp) - 30;
+ frmFrameDateSel1. EndDate.Date := SGetServerDate(ADOQueryTemp);
InitGrid();
end;
@@ -631,8 +630,8 @@ begin
begin
Close;
SQL.Clear;
- sql.Add(' exec P_Knit_Plan_Progress @Begdate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', Begdate.DateTime))));
- sql.Add(',@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1))));
+ sql.Add(' exec P_Knit_Plan_Progress @Begdate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1. Begdate.Date))));
+ sql.Add(',@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1. EndDate.Date + 1))));
sql.Add(',@criteria= ' + quotedstr(fwhere));
Open;
end;
@@ -724,7 +723,7 @@ begin
end;
end;
-procedure TfrmKnitPlanList.OrdTypeChange(Sender: TObject);
+procedure TfrmKnitPlanList.OrdType1Change(Sender: TObject);
begin
TBRafresh.Click;
end;
@@ -779,5 +778,14 @@ begin
SInitCDSData(ADOQueryMain, CDS_1);
end;
+procedure TfrmKnitPlanList.C_NamePropertiesChange(Sender: TObject);
+begin
+ if ADOQueryMain.Active = False then
+ Exit;
+ SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryMain, CDS_1);
+ SInitCDSData(ADOQueryMain, CDS_1);
+end;
+
end.
diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.identcache b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.identcache
index 40b36e0..bdea84d 100644
Binary files a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.identcache and b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.identcache differ