From 321ddb24ca01c3ff26bb707fea069a3df10c85be Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 16 Jul 2024 21:55:07 +0800 Subject: [PATCH] 1 --- .../RTBasicsV1/A01基础公司管理/Company.dpr | 10 +- .../RTBasicsV1/A01基础公司管理/Company.dproj | 10 +- .../A01基础公司管理/Company.dproj.local | 58 +-- .../RTBasicsV1/A01基础公司管理/Company.identcache | Bin 2441 -> 2570 bytes .../RTBasicsV1/A01基础公司管理/Company.skincfg | 59 ++- .../A01基础公司管理/ProjectGroup1.groupproj.local | 2 +- .../RTBasicsV1/A01基础公司管理/U_CustInput.dfm | 22 +- .../RTBasicsV1/A01基础公司管理/U_CustInput.pas | 2 +- .../RTBasicsV1/A01基础公司管理/U_Customer.dfm | 54 ++- .../RTBasicsV1/A01基础公司管理/U_Customer.pas | 2 +- .../RTBasicsV1/A01基础公司管理/testDll.identcache | Bin 174 -> 174 bytes .../RTBasicsV1/D01针织生产计划/KnitPlan.dpr | 7 +- .../RTBasicsV1/D01针织生产计划/KnitPlan.dproj | 23 +- .../D01针织生产计划/KnitPlan.dproj.local | 116 +++--- .../D01针织生产计划/KnitPlan.identcache | Bin 2257 -> 2486 bytes .../RTBasicsV1/D01针织生产计划/U_DataLink.dfm | 159 ++------ .../RTBasicsV1/D01针织生产计划/U_DataLink.pas | 25 +- .../D01针织生产计划/U_KnitPlanInPut.dfm | 320 ++++++++++++++-- .../D01针织生产计划/U_KnitPlanInPut.pas | 39 +- .../RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm | 344 ++++++++---------- .../RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas | 64 ++-- .../T01贸易生产计划/TradePlan.identcache | Bin 3375 -> 3375 bytes 22 files changed, 790 insertions(+), 526 deletions(-) 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 @@
frmBaseList
- - -
frmFactory
@@ -225,6 +222,11 @@
frmYGInPut
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 669e6c7d1e1184766f77324f0f41b8ba7e4f2471..5231db27616650210d1b4dc6167e39a0ec3d54a0 100644 GIT binary patch literal 2570 zcmbtWO>fgc5Y1oV4kZB&h+AuuG~l)osf&s%MH_o)R$1>_yK9x)$^ot*frJDHh`1nx zdgep?n?_du1?#3Y@_Ma0S)VLR^EC6`n>W7EYPIgV4}vHAUB=^M#-~A&jtLGs?H~ey zk7(eJ!WTV`BPSJ-#f}gg2@GbT+*X+wng}a3W4#hzy*lc$epMPib zlf|nai#I>B(|PvxwL;%vQA%K!Nzj2G*#WyqA`jE44%=-C+de<}n7#j&egAOw_nqq0 zVR3@!YzRb$bk>FR1#knN<>X7Lfa`7UHf__aR2PMk@mZfHsnnrwmZ7UAQa%6=i%Q|z zYItZ2WWX`4Kt3+_vZ^6-_KY(&Ho9({O({`0iGfN#Aq+)2d40=AKz9D;KXS&BIvnHv{O?LDhnm*jGzqC%t)ddLUgw@`%+%+HOjS?kR^bIqB2q z%n%>FbwMw7Y6m4ls4Uf;GG-zB{)7W`QyS#csgQi;9&Q6k^f_1EJBqGcAH; cDr1TVh@(o5T&sVsyoY9csdO*?>vaA90qWrA761SM literal 2441 zcmb`J-)a*<6vp!=zJS(^dLiDmyC#jMH6+5$-2-HT$7c#mqSWks;9&uvKNbLult%L>9QZ8Z0;I%@>K8VoVM2=2@y-rDW=G$$@5iTq zKU`uFo%Dd%$a^Mo8O(oQx+G0_5$tXP;kNwlO8I$N-M*umO;cN3je7!ny8-ZAqn}lS zK2A7c6Mz=&KYZl^~pxUCNZJbx+J{t{Q*Q25(oxE*jv9v7+Ne zjP?xQF&(?x>df9ZmBkU-`xr_Pj%6&p5jM{!OpROgC38TV*EQKjLm*p-_aHaWD3DX5_Z_vKElr3bOfe3GZiPUfkujniL=3_vvVC$^RrwZx@$2P%ga&!X_f7Viy00s z?b^9k+zm`|2MLtB%qyB*L|}a)RQ&eXVsT1fn<=>A6gCjucO5*X{n~rEt`r)L6QC;8 K_X>(_zyAOyy{7H} 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 ce1a6118c5fc219cbab19c10d3f4ba6a2371f0bf..790da886a4b773d363ba2f2eede186717b3b2e4c 100644 GIT binary patch delta 47 pcmZ3-xQfrmKnitClothInfoSel dfm - -
frmKnitPlanList
- dfm -
frmKnitPlanCardDel
dfm @@ -215,6 +211,25 @@
frmEmployeeSel
dfm
+ +
frmFrameDateSel
+ dfm + TFrame +
+ +
frmFramePagingSel
+ dfm + TFrame +
+ +
frmKnitPlanList
+ dfm +
+ +
BaseDataLink
+ 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 37e3fd1fbf583ce335a8c99dc7843d087667ecb4..623a26d7b22879a9b6a71ff5374f572734cf544e 100644 GIT binary patch delta 190 zcmca8xJ{T6U2~$Y;bd7-tEjEGMsG z3Yl!k>cD6)FHO%uT?`I5|EWsE6)L=RJ6|2JJe@w{}@7PQhW{TU) e#kPQPVw~#ay&NJyWtNj|IASJFcb%Nb91Q@WA435E delta 131 zcmdlcd{K~9mVtr6cd{Xq+GGKCvB~0$vXk#HSxy$?be+t{W;2rOt;EIcvVVX^^G daW|{N<`rxU7=fHfu##OIF+fXHC+BjA008RCDIEX+ 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 40b36e0236f0c427602a6d7d65628778e3ceb0fe..bdea84d46b7290bb4e815b7edcf91de7e2642f96 100644 GIT binary patch delta 100 zcmZ24wO(pM)a19!mXqIe=x%HeVVpdR*>H0vQw!td+l;XjXDLnoz{$GVmxYsY@+MZ> z$s+6tlYQBaPkzrDH(7>Nar0F6Z05;aTrQJm@Ia{vGU delta 88 zcmZ24wO(pM)W*q;jFV3?$4)L|Hr(vW)WSG1%5t+Bivi>0b(}7f|1+^pj^z=a9L8!p sc^6yU