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_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}

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

@ -123,7 +123,7 @@
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<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>
</PropertyGroup>
<ItemGroup>
@ -141,9 +141,6 @@
<DCCReference Include="..\..\..\public10\design\U_BaseList.pas">
<Form>frmBaseList</Form>
</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="U_Factory.pas">
<Form>frmFactory</Form>
@ -225,6 +222,11 @@
<Form>frmYGInPut</Form>
<FormType>dfm</FormType>
</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">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -1,32 +1,34 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.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.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.829,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_EmployeeInPut.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.387,=D:\Dp10RepoV1\public10\ThreeFun\Form\U_ZDYHelp.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.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.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.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.222,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Company.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.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.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.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.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.708,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_Customer.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.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.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.333,=D:\Dp10Repo\public10\design\U_BaseHelp.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.692,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.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.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm</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.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.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.863,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_FactoryInput.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.618,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A01基础公司管理\U_CustomerInput.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.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.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</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>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -71,7 +73,7 @@
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="D:\Dp10RepoV1"/>
<File Path="D:\RTFormwork"/>
<File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
@ -85,6 +87,8 @@
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.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\Form"/>
<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]
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

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

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

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

@ -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

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

@ -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)

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

@ -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

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

@ -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)

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

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

@ -191,10 +191,6 @@
<Form>frmKnitClothInfoSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_KnitPlanList.pas">
<Form>frmKnitPlanList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_KnitPlanCardDel.pas">
<Form>frmKnitPlanCardDel</Form>
<FormType>dfm</FormType>
@ -215,6 +211,25 @@
<Form>frmEmployeeSel</Form>
<FormType>dfm</FormType>
</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">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -1,59 +1,62 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.612,=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitPlanSel.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.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.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.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.111,=D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_YarnInfoInPut.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.929,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.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.dfm=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.dfm</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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.798,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.811,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanList.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.264,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanCard.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.031,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>2024-07-01 14:35:16.140,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>2024-07-01 14:35:16.181,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>2024-07-01 14:35:50.709,D:\RTFormwork\项目代码\RTBasicsV1\B02基础纱线仓库\U_YarnInfoInPut.pas=</Transaction>
<Transaction>2024-07-01 14:36:01.139,D:\RTFormwork\项目代码\RTBasicsV1\A02基础产品管理\U_KnitClothInfoInput.pas=</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.811,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanList.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.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.911,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.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.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.pas=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.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.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.111,=D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_YarnInfoInPut.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.140,=D:\RTFormwork\public10\design\U_cxGridCustomSet.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.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.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.031,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.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.264,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanCard.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.709,D:\RTFormwork\项目代码\RTBasicsV1\B02基础纱线仓库\U_YarnInfoInPut.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.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.dfm</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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=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.dfm=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.dfm</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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj</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>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -104,6 +107,11 @@
<File Path="..\A00通用窗体\U_YarnInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_LoomSel.pas"/>
<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针织通用窗体\U_KnitPlanSel.pas"/>
<File Path="..\D00针织通用窗体\U_KnitPlanSel.dfm"/>
@ -123,6 +131,8 @@
<File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.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\Form"/>
<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
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

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

@ -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;

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,
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();

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

@ -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

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

@ -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.

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

Binary file not shown.