rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2024-07-16 21:55:07 +08:00
parent 6cd3abab79
commit 321ddb24ca
22 changed files with 790 additions and 526 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
项目代码/RTBasicsV1/A01基础公司管理/Company.dpr
View File

@ -12,9 +12,6 @@ uses
U_iniParam in 'U_iniParam.pas', U_iniParam in 'U_iniParam.pas',
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput}, U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList}, 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_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
U_Factory in 'U_Factory.pas' {frmFactory}, U_Factory in 'U_Factory.pas' {frmFactory},
U_CustInput in 'U_CustInput.pas' {frmCustInput}, U_CustInput in 'U_CustInput.pas' {frmCustInput},
@ -36,7 +33,12 @@ uses
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
U_CustomerInput in 'U_CustomerInput.pas' {frmCustomerInput}, U_CustomerInput in 'U_CustomerInput.pas' {frmCustomerInput},
U_SYDept in 'U_SYDept.pas' {frmSYDept}, 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} {$R *.res}

10
项目代码/RTBasicsV1/A01基础公司管理/Company.dproj
View File

@ -123,7 +123,7 @@
<BT_BuildType>Debug</BT_BuildType> <BT_BuildType>Debug</BT_BuildType>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\RTFormwork\项目代码\RTBasicsV1\A01基础公司管理\testDll.exe</Debugger_HostApplication>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
@ -141,9 +141,6 @@
<DCCReference Include="..\..\..\public10\design\U_BaseList.pas"> <DCCReference Include="..\..\..\public10\design\U_BaseList.pas">
<Form>frmBaseList</Form> <Form>frmBaseList</Form>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/> <DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<DCCReference Include="U_Factory.pas"> <DCCReference Include="U_Factory.pas">
<Form>frmFactory</Form> <Form>frmFactory</Form>
@ -225,6 +222,11 @@
<Form>frmYGInPut</Form> <Form>frmYGInPut</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

58
项目代码/RTBasicsV1/A01基础公司管理/Company.dproj.local
View File

@ -1,32 +1,34 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.373,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_SYDept.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.pas</Transaction>
<Transaction>2024/07/16 15:31:52.854,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>2024/07/16 15:31:52.899,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -71,7 +73,7 @@
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/> <File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/> <File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/> <File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="D:\Dp10RepoV1"/> <File Path="D:\RTFormwork"/>
<File Path="..\..\..\public10"/> <File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/> <File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/> <File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
@ -85,6 +87,8 @@
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/> <File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/> <File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/> <File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\ThreeFun"/> <File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/> <File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/> <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>

BIN
项目代码/RTBasicsV1/A01基础公司管理/Company.identcache
View File

Binary file not shown.

59
项目代码/RTBasicsV1/A01基础公司管理/Company.skincfg
View File

@ -1,5 +1,62 @@
[ExpressSkins] [ExpressSkins]
Default=1 Default=0
ShowNotifications=1 ShowNotifications=1
Enabled=1 Enabled=1
dxSkinsDefaultPainters=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

2
项目代码/RTBasicsV1/A01基础公司管理/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\Company.dproj"/> <Projects ActiveProject="D:\RTFormwork\项目代码\RTBasicsV1\A01基础公司管理\Company.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

22
项目代码/RTBasicsV1/A01基础公司管理/U_CustInput.dfm
View File

@ -23,7 +23,7 @@ inherited frmCustInput: TfrmCustInput
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clWhite Color = clWhite
DisabledImages = DataLink_Company.ImageList_new32 DisabledImages = DataLink_Company.ImageList_new32
@ -41,7 +41,7 @@ inherited frmCustInput: TfrmCustInput
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 63 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -49,7 +49,7 @@ inherited frmCustInput: TfrmCustInput
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 150 Left = 174
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -71,6 +71,8 @@ inherited frmCustInput: TfrmCustInput
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitLeft = 1
ExplicitTop = 26
object Label2: TLabel object Label2: TLabel
Left = 17 Left = 17
Top = 12 Top = 12
@ -272,7 +274,7 @@ inherited frmCustInput: TfrmCustInput
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clWhite Color = clWhite
DisabledImages = DataLink_Company.ImageList_new32 DisabledImages = DataLink_Company.ImageList_new32
@ -290,7 +292,7 @@ inherited frmCustInput: TfrmCustInput
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 87 Left = 103
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22686#34892 Caption = #22686#34892
@ -298,7 +300,7 @@ inherited frmCustInput: TfrmCustInput
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 150 Left = 174
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
@ -318,6 +320,7 @@ inherited frmCustInput: TfrmCustInput
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DSLXR DataController.DataSource = DSLXR
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -339,6 +342,7 @@ inherited frmCustInput: TfrmCustInput
object cxGridDBColumn2: TcxGridDBColumn object cxGridDBColumn2: TcxGridDBColumn
Caption = #40664#35748 Caption = #40664#35748
DataBinding.FieldName = 'IsDefault' DataBinding.FieldName = 'IsDefault'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -347,6 +351,7 @@ inherited frmCustInput: TfrmCustInput
object cxGridDBColumn3: TcxGridDBColumn object cxGridDBColumn3: TcxGridDBColumn
Caption = #32852#31995#20154 Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts' DataBinding.FieldName = 'Contacts'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -355,12 +360,14 @@ inherited frmCustInput: TfrmCustInput
object cxGridDBColumn5: TcxGridDBColumn object cxGridDBColumn5: TcxGridDBColumn
Caption = #32844#20301 Caption = #32844#20301
DataBinding.FieldName = 'position' DataBinding.FieldName = 'position'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object cxGridDBColumn6: TcxGridDBColumn object cxGridDBColumn6: TcxGridDBColumn
Caption = #32852#31995#30005#35805 Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone' DataBinding.FieldName = 'Telephone'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -369,6 +376,7 @@ inherited frmCustInput: TfrmCustInput
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #25163#26426#21495 Caption = #25163#26426#21495
DataBinding.FieldName = 'PhoneNumber' DataBinding.FieldName = 'PhoneNumber'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -376,12 +384,14 @@ inherited frmCustInput: TfrmCustInput
end end
object cxGridDBColumn8: TcxGridDBColumn object cxGridDBColumn8: TcxGridDBColumn
DataBinding.FieldName = 'EMAIL' DataBinding.FieldName = 'EMAIL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object TV2Column2: TcxGridDBColumn object TV2Column2: TcxGridDBColumn
Caption = #24494#20449#21495 Caption = #24494#20449#21495
DataBinding.FieldName = 'WeChat' DataBinding.FieldName = 'WeChat'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end

2
项目代码/RTBasicsV1/A01基础公司管理/U_CustInput.pas
View File

@ -15,7 +15,7 @@ uses
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer, dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer,
cxMemo; cxMemo, dxSkinWXI, dxScrollbarAnnotations;
type type
TfrmCustInput = class(TfrmBaseInput) TfrmCustInput = class(TfrmBaseInput)

54
项目代码/RTBasicsV1/A01基础公司管理/U_Customer.dfm
View File

@ -5,7 +5,6 @@ inherited frmCustomer: TfrmCustomer
ClientHeight = 611 ClientHeight = 611
ClientWidth = 1366 ClientWidth = 1366
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
@ -21,7 +20,7 @@ inherited frmCustomer: TfrmCustomer
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 115
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clWhite Color = clWhite
DisabledImages = DataLink_Company.cxImageList_bar DisabledImages = DataLink_Company.cxImageList_bar
@ -31,7 +30,6 @@ inherited frmCustomer: TfrmCustomer
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = -6
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -41,7 +39,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object btnAdd: TToolButton object btnAdd: TToolButton
Left = 63 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -49,7 +47,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = btnAddClick OnClick = btnAddClick
end end
object btnEdit: TToolButton object btnEdit: TToolButton
Left = 126 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -57,7 +55,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = btnEditClick OnClick = btnEditClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 189 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -65,7 +63,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = TBDelClick OnClick = TBDelClick
end end
object btnSaleser: TToolButton object btnSaleser: TToolButton
Left = 252 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25351#23450#19994#21153#21592 Caption = #25351#23450#19994#21153#21592
@ -73,7 +71,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = btnSaleserClick OnClick = btnSaleserClick
end end
object btnTallyer: TToolButton object btnTallyer: TToolButton
Left = 351 Left = 403
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25351#23450#29702#21333 Caption = #25351#23450#29702#21333
@ -81,7 +79,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = btnTallyerClick OnClick = btnTallyerClick
end end
object btnChk: TToolButton object btnChk: TToolButton
Left = 438 Left = 506
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680
@ -89,7 +87,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = btnChkClick OnClick = btnChkClick
end end
object btnReChk: TToolButton object btnReChk: TToolButton
Left = 501 Left = 577
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
@ -97,7 +95,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = btnReChkClick OnClick = btnReChkClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 588 Left = 680
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
@ -105,7 +103,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 651 Left = 751
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -113,7 +111,7 @@ inherited frmCustomer: TfrmCustomer
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 738 Left = 854
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -132,6 +130,7 @@ inherited frmCustomer: TfrmCustomer
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 205 Left = 205
Top = 20 Top = 20
@ -208,10 +207,13 @@ inherited frmCustomer: TfrmCustomer
Height = 287 Height = 287
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitLeft = -1
ExplicitTop = 116
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -237,6 +239,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column2: TcxGridDBColumn object v2Column2: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'CoCode' DataBinding.FieldName = 'CoCode'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -245,6 +248,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Caption = #20840#31216 Caption = #20840#31216
DataBinding.FieldName = 'CoName' DataBinding.FieldName = 'CoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 127 Width = 127
@ -252,6 +256,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column15: TcxGridDBColumn object v2Column15: TcxGridDBColumn
Caption = #31616#31216 Caption = #31616#31216
DataBinding.FieldName = 'CoAbbrName' DataBinding.FieldName = 'CoAbbrName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
@ -259,6 +264,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column10: TcxGridDBColumn object v2Column10: TcxGridDBColumn
Caption = #19994#21153#21592 Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser' DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 84 Width = 84
@ -266,6 +272,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column7: TcxGridDBColumn object v2Column7: TcxGridDBColumn
Caption = #20844#21496#22320#22336 Caption = #20844#21496#22320#22336
DataBinding.FieldName = 'CoAddress' DataBinding.FieldName = 'CoAddress'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -274,6 +281,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -282,6 +290,7 @@ inherited frmCustomer: TfrmCustomer
object v2Column3: TcxGridDBColumn object v2Column3: TcxGridDBColumn
Caption = #22269#23478 Caption = #22269#23478
DataBinding.FieldName = 'cocountry' DataBinding.FieldName = 'cocountry'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 99 Width = 99
@ -289,6 +298,7 @@ inherited frmCustomer: TfrmCustomer
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #23458#25143#31561#32423 Caption = #23458#25143#31561#32423
DataBinding.FieldName = 'CoLevel' DataBinding.FieldName = 'CoLevel'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 115 Width = 115
@ -296,6 +306,7 @@ inherited frmCustomer: TfrmCustomer
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #30331#35760#26102#38388 Caption = #30331#35760#26102#38388
DataBinding.FieldName = 'Filltime' DataBinding.FieldName = 'Filltime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 157 Width = 157
@ -303,6 +314,7 @@ inherited frmCustomer: TfrmCustomer
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #30331#35760#20154 Caption = #30331#35760#20154
DataBinding.FieldName = 'Filler' DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -310,6 +322,7 @@ inherited frmCustomer: TfrmCustomer
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #29702#21333 Caption = #29702#21333
DataBinding.FieldName = 'Tallyer' DataBinding.FieldName = 'Tallyer'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 99 Width = 99
@ -317,12 +330,14 @@ inherited frmCustomer: TfrmCustomer
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #19978#32423#21333#20301 Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'ParentCoName' DataBinding.FieldName = 'ParentCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 86 Width = 86
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
DataBinding.FieldName = 'COID' DataBinding.FieldName = 'COID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 73 Width = 73
@ -330,6 +345,7 @@ inherited frmCustomer: TfrmCustomer
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #23458#25143#31867#22411 Caption = #23458#25143#31867#22411
DataBinding.FieldName = 'CoBusinessType' DataBinding.FieldName = 'CoBusinessType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -358,6 +374,7 @@ inherited frmCustomer: TfrmCustomer
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2 DataController.DataSource = DS_2
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -379,6 +396,7 @@ inherited frmCustomer: TfrmCustomer
object v3Column3: TcxGridDBColumn object v3Column3: TcxGridDBColumn
Caption = #40664#35748 Caption = #40664#35748
DataBinding.FieldName = 'IsDefault' DataBinding.FieldName = 'IsDefault'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -387,6 +405,7 @@ inherited frmCustomer: TfrmCustomer
object cxGridDBColumn1: TcxGridDBColumn object cxGridDBColumn1: TcxGridDBColumn
Caption = #32852#31995#20154 Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts' DataBinding.FieldName = 'Contacts'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -396,6 +415,7 @@ inherited frmCustomer: TfrmCustomer
object cxGridDBColumn2: TcxGridDBColumn object cxGridDBColumn2: TcxGridDBColumn
Caption = #32844#20301 Caption = #32844#20301
DataBinding.FieldName = 'position' DataBinding.FieldName = 'position'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -405,6 +425,7 @@ inherited frmCustomer: TfrmCustomer
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #32852#31995#30005#35805 Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone' DataBinding.FieldName = 'Telephone'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -414,6 +435,7 @@ inherited frmCustomer: TfrmCustomer
object cxGridDBColumn5: TcxGridDBColumn object cxGridDBColumn5: TcxGridDBColumn
Caption = #25163#26426#21495 Caption = #25163#26426#21495
DataBinding.FieldName = 'PhoneNumber' DataBinding.FieldName = 'PhoneNumber'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -423,6 +445,7 @@ inherited frmCustomer: TfrmCustomer
object Tv2Column1: TcxGridDBColumn object Tv2Column1: TcxGridDBColumn
Caption = 'EMAIL' Caption = 'EMAIL'
DataBinding.FieldName = 'Email' DataBinding.FieldName = 'Email'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -432,6 +455,7 @@ inherited frmCustomer: TfrmCustomer
object v3Column2: TcxGridDBColumn object v3Column2: TcxGridDBColumn
Caption = #24494#20449#21495 Caption = #24494#20449#21495
DataBinding.FieldName = 'WeChat' DataBinding.FieldName = 'WeChat'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 169 Width = 169
@ -499,13 +523,13 @@ inherited frmCustomer: TfrmCustomer
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
Left = 264 Left = 472
Top = 285 Top = 285
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 365 Left = 405
Top = 289 Top = 289
end end
object CDS_2: TClientDataSet object CDS_2: TClientDataSet

2
项目代码/RTBasicsV1/A01基础公司管理/U_Customer.pas
View File

@ -17,7 +17,7 @@ uses
dxBarBuiltInMenu, cxPC, FireDAC.Stan.Intf, FireDAC.Stan.Option, dxBarBuiltInMenu, cxPC, FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet,
FireDAC.Comp.Client, cxContainer; FireDAC.Comp.Client, cxContainer, dxSkinWXI, dxScrollbarAnnotations;
type type
TfrmCustomer = class(TfrmBaseList) TfrmCustomer = class(TfrmBaseList)

BIN
项目代码/RTBasicsV1/A01基础公司管理/testDll.identcache
View File

Binary file not shown.

7
项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dpr
View File

@ -26,7 +26,6 @@ uses
U_KnitSalesContractSel in '..\D00针织通用窗体\U_KnitSalesContractSel.pas' {frmKnitSalesContractSel}, U_KnitSalesContractSel in '..\D00针织通用窗体\U_KnitSalesContractSel.pas' {frmKnitSalesContractSel},
U_KnitPlanSel in '..\D00针织通用窗体\U_KnitPlanSel.pas' {frmKnitPlanSel}, U_KnitPlanSel in '..\D00针织通用窗体\U_KnitPlanSel.pas' {frmKnitPlanSel},
U_KnitClothInfoSel in '..\A00通用窗体\U_KnitClothInfoSel.pas' {frmKnitClothInfoSel}, U_KnitClothInfoSel in '..\A00通用窗体\U_KnitClothInfoSel.pas' {frmKnitClothInfoSel},
U_KnitPlanList in 'U_KnitPlanList.pas' {frmKnitPlanList},
U_KnitPlanCardDel in 'U_KnitPlanCardDel.pas' {frmKnitPlanCardDel}, U_KnitPlanCardDel in 'U_KnitPlanCardDel.pas' {frmKnitPlanCardDel},
U_MachPlanSet in 'U_MachPlanSet.pas' {frmMachPlanSet}, U_MachPlanSet in 'U_MachPlanSet.pas' {frmMachPlanSet},
U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas', U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
@ -34,7 +33,11 @@ uses
U_globalVar in '..\..\..\public10\design\U_globalVar.pas', U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas', U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
U_LoomSel in '..\A00通用窗体\U_LoomSel.pas' {frmLoomSel}, U_LoomSel in '..\A00通用窗体\U_LoomSel.pas' {frmLoomSel},
U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel}; U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
FramePagingSel in '..\A00通用组件\FramePagingSel.pas' {frmFramePagingSel: TFrame},
U_KnitPlanList in 'U_KnitPlanList.pas' {frmKnitPlanList},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
{$R *.res} {$R *.res}

23
项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj
View File

@ -191,10 +191,6 @@
<Form>frmKnitClothInfoSel</Form> <Form>frmKnitClothInfoSel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_KnitPlanList.pas">
<Form>frmKnitPlanList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_KnitPlanCardDel.pas"> <DCCReference Include="U_KnitPlanCardDel.pas">
<Form>frmKnitPlanCardDel</Form> <Form>frmKnitPlanCardDel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
@ -215,6 +211,25 @@
<Form>frmEmployeeSel</Form> <Form>frmEmployeeSel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\A00通用组件\FrameDateSel.pas">
<Form>frmFrameDateSel</Form>
<FormType>dfm</FormType>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="..\A00通用组件\FramePagingSel.pas">
<Form>frmFramePagingSel</Form>
<FormType>dfm</FormType>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="U_KnitPlanList.pas">
<Form>frmKnitPlanList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
<Form>BaseDataLink</Form>
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

116
项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local
View File

@ -1,59 +1,62 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.811,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.612,=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitPlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.257,=D:\Dp10Repo\项目代码\恒赫\D01针织生产计划\U_MachPlanSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.911,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.929,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.pas=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.139,D:\RTFormwork\项目代码\RTBasicsV1\A02基础产品管理\U_KnitClothInfoInput.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.pas=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.612,=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitPlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.945,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.140,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.dfm=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.031,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.dfm=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.264,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.667,=D:\Dp10Repo\项目代码\共佳\A02基础产品管理\U_KnitClothInfoInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.798,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.181,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.911,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.798,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.667,=D:\Dp10Repo\项目代码\共佳\A02基础产品管理\U_KnitClothInfoInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.709,D:\RTFormwork\项目代码\RTBasicsV1\B02基础纱线仓库\U_YarnInfoInPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.811,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.257,=D:\Dp10Repo\项目代码\恒赫\D01针织生产计划\U_MachPlanSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.264,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanCard.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.031,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.929,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction>
<Transaction>2024-07-01 14:35:16.140,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>2024-07-01 14:35:16.181,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>2024-07-01 14:35:50.709,D:\RTFormwork\项目代码\RTBasicsV1\B02基础纱线仓库\U_YarnInfoInPut.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.945,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>
<Transaction>2024-07-01 14:36:01.139,D:\RTFormwork\项目代码\RTBasicsV1\A02基础产品管理\U_KnitClothInfoInput.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj</Transaction>
<Transaction>2024-07-01 15:27:57.232,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_LoomSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.232,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_LoomSel.pas</Transaction>
<Transaction>2024/07/16 16:57:34.000.480,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.pas</Transaction>
<Transaction>2024/07/16 16:57:34.000.356,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>2024/07/16 17:00:42.000.758,=D:\RTFormwork\public10\design\U_BaseDataLink.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -104,6 +107,11 @@
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/> <File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_LoomSel.pas"/> <File Path="..\A00通用窗体\U_LoomSel.pas"/>
<File Path="..\A00通用窗体\U_LoomSel.dfm"/> <File Path="..\A00通用窗体\U_LoomSel.dfm"/>
<File Path="..\A00通用组件"/>
<File Path="..\A00通用组件\FrameDateSel.pas"/>
<File Path="..\A00通用组件\FrameDateSel.dfm"/>
<File Path="..\A00通用组件\FramePagingSel.pas"/>
<File Path="..\A00通用组件\FramePagingSel.dfm"/>
<File Path="..\D00针织通用窗体"/> <File Path="..\D00针织通用窗体"/>
<File Path="..\D00针织通用窗体\U_KnitPlanSel.pas"/> <File Path="..\D00针织通用窗体\U_KnitPlanSel.pas"/>
<File Path="..\D00针织通用窗体\U_KnitPlanSel.dfm"/> <File Path="..\D00针织通用窗体\U_KnitPlanSel.dfm"/>
@ -123,6 +131,8 @@
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/> <File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/> <File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/> <File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
<File Path="..\..\..\public10\ThreeFun"/> <File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/> <File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/> <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>

BIN
项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.identcache
View File

Binary file not shown.

159
项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.dfm
View File

@ -1,9 +1,25 @@
object DataLink_KnitPlan: TDataLink_KnitPlan inherited DataLink_KnitPlan: TDataLink_KnitPlan
OldCreateOrder = False OldCreateOrder = True
OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Height = 349 Height = 406
Width = 482 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 object AdoDataLink: TADOQuery
Connection = ADOLink Connection = ADOLink
Parameters = <> Parameters = <>
@ -10423,139 +10439,6 @@ object DataLink_KnitPlan: TDataLink_KnitPlan
FF800001000000F003FFFE00FFE0000300000000000000000000000000000000 FF800001000000F003FFFE00FFE0000300000000000000000000000000000000
000000000000} 000000000000}
end 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 object Timer_link: TTimer
Interval = 15000 Interval = 15000
OnTimer = Timer_linkTimer OnTimer = Timer_linkTimer

25
项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.pas
View File

@ -5,6 +5,7 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
U_BaseDataLink,
dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinBasic, dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinBasic,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
@ -21,7 +22,9 @@ uses
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue; dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxCore, cxLocalization,
dxLayoutLookAndFeels, cxImageList, cxGraphics, cxEdit, cxContainer,
dxSkinsForm;
type type
TMyThread = class(TThread) TMyThread = class(TThread)
@ -53,26 +56,10 @@ var
UserDataFlag: string; UserDataFlag: string;
type type
TDataLink_KnitPlan = class(TDataModule) TDataLink_KnitPlan = class(TBaseDataLink)
AdoDataLink: TADOQuery; AdoDataLink: TADOQuery;
ADOLink: TADOConnection; ADOLink: TADOConnection;
ThreeImgList: TImageList; 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; Timer_link: TTimer;
ImageList_new32: TImageList; ImageList_new32: TImageList;
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
@ -125,6 +112,7 @@ end;
procedure TDataLink_KnitPlan.DataModuleDestroy(Sender: TObject); procedure TDataLink_KnitPlan.DataModuleDestroy(Sender: TObject);
begin begin
inherited;
CriticalSection.Free; CriticalSection.Free;
DataLink_KnitPlan := nil; DataLink_KnitPlan := nil;
end; end;
@ -136,6 +124,7 @@ end;
procedure TDataLink_KnitPlan.DataModuleCreate(Sender: TObject); procedure TDataLink_KnitPlan.DataModuleCreate(Sender: TObject);
begin begin
inherited;
CriticalSection := TCriticalSection.Create; CriticalSection := TCriticalSection.Create;
end; end;

320
项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm
View File

File diff suppressed because it is too large Load Diff

39
项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.pas
View File

@ -12,7 +12,7 @@ uses
StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels, StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels,
cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxSkinsCore, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, U_BaseInput, System.ImageList, dxSkinsDefaultPainters, dxDateRanges, U_BaseInput, System.ImageList,
Vcl.ImgList, Vcl.Menus; Vcl.ImgList, Vcl.Menus, dxSkinWXI, dxScrollbarAnnotations;
type type
TfrmKnitPlanInPut = class(TfrmBaseInput) TfrmKnitPlanInPut = class(TfrmBaseInput)
@ -388,7 +388,6 @@ type
Label35: TLabel; Label35: TLabel;
TurnsQtyAvg: TEdit; TurnsQtyAvg: TEdit;
Label36: TLabel; Label36: TLabel;
Repairer: TBtnEditC;
Label38: TLabel; Label38: TLabel;
C_Composition: TEdit; C_Composition: TEdit;
Label39: TLabel; Label39: TLabel;
@ -412,6 +411,8 @@ type
Label30: TLabel; Label30: TLabel;
Strain: TBtnEditC; Strain: TBtnEditC;
ToolButton2: TToolButton; ToolButton2: TToolButton;
Repairer: TcxButtonEdit;
OrdNote: TcxMemo;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -437,6 +438,9 @@ type
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure OrdPieceWeightExit(Sender: TObject); procedure OrdPieceWeightExit(Sender: TObject);
procedure RepairerDblClick(Sender: TObject);
procedure FollowerPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private private
FXS, FGridFlag: Integer; FXS, FGridFlag: Integer;
procedure InitData(); procedure InitData();
@ -681,6 +685,37 @@ begin
end; 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); procedure TfrmKnitPlanInPut.FormShow(Sender: TObject);
begin begin
InitData(); InitData();

344
项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm
View File

@ -4,29 +4,30 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Caption = #36710#38388#29983#20135#35745#21010#21333 Caption = #36710#38388#29983#20135#35745#21010#21333
ClientHeight = 642 ClientHeight = 642
ClientWidth = 1540 ClientWidth = 1540
Font.Height = -16
Position = poScreenCenter Position = poScreenCenter
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 681 ExplicitHeight = 681
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 17 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1540 Width = 1540
Height = 38 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 30
ButtonWidth = 91 ButtonWidth = 83
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
DisabledImages = DataLink_KnitPlan.ImageList_new32 DisabledImages = DataLink_KnitPlan.cxImageList_bar
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
Images = DataLink_KnitPlan.ImageList_new32 Images = DataLink_KnitPlan.cxImageList_bar
List = True List = True
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
@ -41,7 +42,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object TBFind: TToolButton object TBFind: TToolButton
Left = 71 Left = 63
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36807#28388 Caption = #36807#28388
@ -49,7 +50,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBFindClick OnClick = TBFindClick
end end
object TBAdd: TToolButton object TBAdd: TToolButton
Left = 142 Left = 126
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -57,7 +58,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBAddClick OnClick = TBAddClick
end end
object TBCopy: TToolButton object TBCopy: TToolButton
Left = 213 Left = 189
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22797#21046 Caption = #22797#21046
@ -65,7 +66,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBCopyClick OnClick = TBCopyClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 284 Left = 252
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21367#35774#32622 Caption = #25171#21367#35774#32622
@ -73,7 +74,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBEdit: TToolButton object TBEdit: TToolButton
Left = 379 Left = 339
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -81,7 +82,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBEditClick OnClick = TBEditClick
end end
object TBPrint: TToolButton object TBPrint: TToolButton
Left = 450 Left = 402
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -89,7 +90,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBPrintClick OnClick = TBPrintClick
end end
object TBView: TToolButton object TBView: TToolButton
Left = 521 Left = 465
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
@ -97,7 +98,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBViewClick OnClick = TBViewClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 592 Left = 528
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -105,7 +106,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBDelClick OnClick = TBDelClick
end end
object TBSCAP: TToolButton object TBSCAP: TToolButton
Left = 663 Left = 591
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #29983#20135#23433#25490 Caption = #29983#20135#23433#25490
@ -113,7 +114,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBSCAPClick OnClick = TBSCAPClick
end end
object btnChk: TToolButton object btnChk: TToolButton
Left = 758 Left = 678
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #24320#22987 Caption = #24320#22987
@ -121,7 +122,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = btnChkClick OnClick = btnChkClick
end end
object btnReChk: TToolButton object btnReChk: TToolButton
Left = 829 Left = 741
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#24320#22987 Caption = #25764#38144#24320#22987
@ -129,7 +130,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = btnReChkClick OnClick = btnReChkClick
end end
object TBEnd: TToolButton object TBEnd: TToolButton
Left = 924 Left = 828
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #32467#26463 Caption = #32467#26463
@ -137,7 +138,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBEndClick OnClick = TBEndClick
end end
object TBNoEnd: TToolButton object TBNoEnd: TToolButton
Left = 995 Left = 891
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#32467#26463 Caption = #25764#38144#32467#26463
@ -145,7 +146,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBNoEndClick OnClick = TBNoEndClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 1090 Left = 978
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -153,7 +154,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 1185 Left = 1065
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -161,7 +162,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1256 Left = 1128
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -171,201 +172,151 @@ inherited frmKnitPlanList: TfrmKnitPlanList
end end
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 38 Top = 30
Width = 1540 Width = 1540
Height = 67 Height = 131
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 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 object Label3: TLabel
Left = 184 Left = 25
Top = 14 Top = 51
Width = 39 Width = 48
Height = 12 Height = 21
Caption = #21512#21516#21495 Caption = #21512#21516#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 485 Left = 421
Top = 40 Top = 88
Width = 52 Width = 64
Height = 12 Height = 21
Caption = #20135#21697#21517#31216 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 end
object Label10: TLabel object Label10: TLabel
Left = 485 Left = 421
Top = 14 Top = 51
Width = 52 Width = 64
Height = 12 Height = 21
Caption = #20135#21697#32534#21495 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 end
object Label7: TLabel object Label7: TLabel
Left = 326 Left = 231
Top = 14 Top = 51
Width = 26 Width = 32
Height = 12 Height = 21
Caption = #23458#25143 Caption = #23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end end
object lbl1: TLabel object lbl1: TLabel
Left = 326 Left = 231
Top = 40 Top = 88
Width = 26 Width = 32
Height = 12 Height = 21
Caption = #31867#22411 Caption = #31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end end
object Label4: TLabel object Label4: TLabel
Left = 184 Left = 25
Top = 40 Top = 88
Width = 39 Width = 48
Height = 12 Height = 21
Caption = #35745#21010#21333 Caption = #35745#21010#21333
Font.Charset = GB2312_CHARSET end
Font.Color = clWindowText object ConNo: TcxTextEdit
Font.Height = -12 Tag = 2
Font.Name = #23435#20307 Left = 77
Font.Style = [fsBold] Top = 45
ParentFont = False 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 TabOrder = 0
OnKeyPress = conPress
Width = 150
end end
object EndDate: TDateTimePicker object C_Name: TcxTextEdit
Left = 71 Tag = 2
Top = 36 Left = 489
Width = 86 Top = 82
Height = 20 ParentFont = False
Date = 40675.000000000000000000 Properties.OnChange = C_NamePropertiesChange
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
TabOrder = 1 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 OnKeyPress = C_NameKeyPress
Width = 150
end end
object C_Code: TEdit object C_Code: TcxTextEdit
Tag = 2 Tag = 2
Left = 539 Left = 489
Top = 10 Top = 45
Width = 83 ParentFont = False
Height = 25 TabOrder = 2
TabOrder = 4
OnChange = ConNoChange
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
Width = 150
end end
object CustName: TEdit object CustName: TcxTextEdit
Tag = 2 Tag = 2
Left = 356 Left = 267
Top = 10 Top = 45
Width = 110 ParentFont = False
Height = 25 TabOrder = 3
TabOrder = 5
OnChange = ConNoChange
OnKeyPress = CustNameKeyPress OnKeyPress = CustNameKeyPress
Width = 150
end end
object OrdType: TComboBox object OrderNo: TcxTextEdit
Left = 356
Top = 35
Width = 110
Height = 22
Style = csOwnerDrawFixed
TabOrder = 6
OnChange = OrdTypeChange
end
object OrderNo: TEdit
Tag = 2 Tag = 2
Left = 229 Left = 77
Top = 36 Top = 82
Width = 81 ParentFont = False
Height = 25 TabOrder = 4
TabOrder = 7
OnChange = ConNoChange
OnKeyPress = conPress 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
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 133 Top = 189
Width = 1317 Width = 1317
Height = 509 Height = 453
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 217
ExplicitHeight = 425
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -652,7 +603,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
end end
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 105 Top = 161
Width = 1540 Width = 1540
Height = 28 Height = 28
Align = alTop Align = alTop
@ -672,17 +623,20 @@ inherited frmKnitPlanList: TfrmKnitPlanList
#24050#32467#26463 #24050#32467#26463
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 189
ClientRectBottom = 30 ClientRectBottom = 30
ClientRectRight = 1540 ClientRectRight = 1540
ClientRectTop = 30 ClientRectTop = 30
end end
object Panel2: TPanel [4] object Panel2: TPanel [4]
Left = 1317 Left = 1317
Top = 133 Top = 189
Width = 223 Width = 223
Height = 509 Height = 453
Align = alRight Align = alRight
TabOrder = 4 TabOrder = 4
ExplicitTop = 217
ExplicitHeight = 425
object Label6: TLabel object Label6: TLabel
Left = 28 Left = 28
Top = 48 Top = 48
@ -774,61 +728,61 @@ inherited frmKnitPlanList: TfrmKnitPlanList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object CardPiece: TEdit object CardPiece: TcxTextEdit
Left = 86 Left = 86
Top = 44 Top = 44
Width = 112 ParentFont = False
Height = 25
TabOrder = 0 TabOrder = 0
OnKeyPress = conPress OnKeyPress = conPress
Width = 112
end end
object PBJYPS: TEdit object PBJYPS: TcxTextEdit
Left = 86 Left = 86
Top = 70 Top = 70
Width = 112 ParentFont = False
Height = 25
TabOrder = 1 TabOrder = 1
OnKeyPress = conPress OnKeyPress = conPress
Width = 112
end end
object PBJYQty: TEdit object PBJYQty: TcxTextEdit
Left = 86 Left = 86
Top = 95 Top = 95
Width = 112 ParentFont = False
Height = 25
TabOrder = 2 TabOrder = 2
OnKeyPress = conPress OnKeyPress = conPress
Width = 112
end end
object PBCKPS: TEdit object PBCKPS: TcxTextEdit
Left = 86 Left = 86
Top = 121 Top = 121
Width = 112 ParentFont = False
Height = 25
TabOrder = 3 TabOrder = 3
OnKeyPress = conPress OnKeyPress = conPress
Width = 112
end end
object PBCKQty: TEdit object PBCKQty: TcxTextEdit
Left = 86 Left = 86
Top = 148 Top = 148
Width = 112 ParentFont = False
Height = 25
TabOrder = 4 TabOrder = 4
OnKeyPress = conPress OnKeyPress = conPress
Width = 112
end end
object PBKCPS: TEdit object PBKCPS: TcxTextEdit
Left = 86 Left = 86
Top = 174 Top = 174
Width = 112 ParentFont = False
Height = 25
TabOrder = 5 TabOrder = 5
OnKeyPress = conPress OnKeyPress = conPress
Width = 112
end end
object PBKCQty: TEdit object PBKCQty: TcxTextEdit
Left = 86 Left = 86
Top = 200 Top = 200
Width = 112 ParentFont = False
Height = 25
TabOrder = 6 TabOrder = 6
OnKeyPress = conPress OnKeyPress = conPress
Width = 112
end end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

64
项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas
View File

@ -27,7 +27,8 @@ uses
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations; dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations,
cxContainer, cxMaskEdit, cxDropDownEdit, FrameDateSel;
type type
TfrmKnitPlanList = class(TfrmBaseList) TfrmKnitPlanList = class(TfrmBaseList)
@ -40,19 +41,15 @@ type
TBPrint: TToolButton; TBPrint: TToolButton;
TBClose: TToolButton; TBClose: TToolButton;
Panel1: TPanel; Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
DS_1: TDataSource; DS_1: TDataSource;
Label3: TLabel; Label3: TLabel;
ConNo: TEdit; ConNo: TcxTextEdit;
Label5: TLabel; Label5: TLabel;
C_Name: TEdit; C_Name: TcxTextEdit;
TBExport: TToolButton; TBExport: TToolButton;
CDS_1: TClientDataSet; CDS_1: TClientDataSet;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
@ -74,18 +71,17 @@ type
v1Column19: TcxGridDBColumn; v1Column19: TcxGridDBColumn;
v1Column21: TcxGridDBColumn; v1Column21: TcxGridDBColumn;
Label10: TLabel; Label10: TLabel;
C_Code: TEdit; C_Code: TcxTextEdit;
v1Column22: TcxGridDBColumn; v1Column22: TcxGridDBColumn;
v1Column20: TcxGridDBColumn; v1Column20: TcxGridDBColumn;
v1Column31: TcxGridDBColumn; v1Column31: TcxGridDBColumn;
CustName: TEdit; CustName: TcxTextEdit;
Label7: TLabel; Label7: TLabel;
lbl1: TLabel; lbl1: TLabel;
OrdType: TComboBox;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Label4: TLabel; Label4: TLabel;
OrderNo: TEdit; OrderNo: TcxTextEdit;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
TBEnd: TToolButton; TBEnd: TToolButton;
TBNoEnd: TToolButton; TBNoEnd: TToolButton;
@ -100,23 +96,25 @@ type
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Panel2: TPanel; Panel2: TPanel;
Label6: TLabel; Label6: TLabel;
CardPiece: TEdit; CardPiece: TcxTextEdit;
Label8: TLabel; Label8: TLabel;
PBJYPS: TEdit; PBJYPS: TcxTextEdit;
Label9: TLabel; Label9: TLabel;
PBJYQty: TEdit; PBJYQty: TcxTextEdit;
Label11: TLabel; Label11: TLabel;
PBCKPS: TEdit; PBCKPS: TcxTextEdit;
Label12: TLabel; Label12: TLabel;
PBCKQty: TEdit; PBCKQty: TcxTextEdit;
Label13: TLabel; Label13: TLabel;
PBKCPS: TEdit; PBKCPS: TcxTextEdit;
Label14: TLabel; Label14: TLabel;
PBKCQty: TEdit; PBKCQty: TcxTextEdit;
ADO_JD: TADOQuery; ADO_JD: TADOQuery;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
OrdType: TcxComboBox;
frmFrameDateSel1: TfrmFrameDateSel;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
@ -131,7 +129,7 @@ type
procedure conPress(Sender: TObject; var Key: Char); procedure conPress(Sender: TObject; var Key: Char);
procedure TBViewClick(Sender: TObject); procedure TBViewClick(Sender: TObject);
procedure TBCopyClick(Sender: TObject); procedure TBCopyClick(Sender: TObject);
procedure OrdTypeChange(Sender: TObject); procedure OrdType1Change(Sender: TObject);
procedure C_CodeKeyPress(Sender: TObject; var Key: Char); procedure C_CodeKeyPress(Sender: TObject; var Key: Char);
procedure BatchNoHZKeyPress(Sender: TObject; var Key: Char); procedure BatchNoHZKeyPress(Sender: TObject; var Key: Char);
procedure CustNameKeyPress(Sender: TObject; var Key: Char); procedure CustNameKeyPress(Sender: TObject; var Key: Char);
@ -146,6 +144,7 @@ type
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure C_NamePropertiesChange(Sender: TObject);
private private
FInt, PFInt: Integer; FInt, PFInt: Integer;
procedure InitGrid(); 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(',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(' 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(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1.BegDate.Date)) + '''');
sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''); sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1.EndDate.Date + 1)) + '''');
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
@ -279,8 +278,8 @@ begin
2: 2:
begin begin
sql.Add('and isnull(Status,''0'') =''10'' '); 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', frmFrameDateSel1.BegDate.Date)) + '''');
sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''); sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1. EndDate.Date + 1)) + '''');
end; end;
end; end;
sql.add('order by A.FILLTIME DESC'); sql.add('order by A.FILLTIME DESC');
@ -303,8 +302,8 @@ procedure TfrmKnitPlanList.InitForm();
begin begin
InitButton(); InitButton();
ReadCxGrid(trim(self.Caption), Tv1, 'Å÷²¼Éú²ú¹ÜÀí'); ReadCxGrid(trim(self.Caption), Tv1, 'Å÷²¼Éú²ú¹ÜÀí');
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 30; frmFrameDateSel1. BegDate.Date := SGetServerDate(ADOQueryTemp) - 30;
EndDate.DateTime := SGetServerDate(ADOQueryTemp); frmFrameDateSel1. EndDate.Date := SGetServerDate(ADOQueryTemp);
InitGrid(); InitGrid();
end; end;
@ -631,8 +630,8 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' exec P_Knit_Plan_Progress @Begdate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', Begdate.DateTime)))); 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', EndDate.DateTime + 1)))); sql.Add(',@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1. EndDate.Date + 1))));
sql.Add(',@criteria= ' + quotedstr(fwhere)); sql.Add(',@criteria= ' + quotedstr(fwhere));
Open; Open;
end; end;
@ -724,7 +723,7 @@ begin
end; end;
end; end;
procedure TfrmKnitPlanList.OrdTypeChange(Sender: TObject); procedure TfrmKnitPlanList.OrdType1Change(Sender: TObject);
begin begin
TBRafresh.Click; TBRafresh.Click;
end; end;
@ -779,5 +778,14 @@ begin
SInitCDSData(ADOQueryMain, CDS_1); SInitCDSData(ADOQueryMain, CDS_1);
end; 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. end.

BIN
项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.identcache
View File

Binary file not shown.