Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-07-12 15:10:02 +08:00
parent b03753a3cd
commit 4f81bee7c8
13 changed files with 360 additions and 690 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
E04梭织坯布仓库/TatClothStk.dpr
View File

@ -45,7 +45,8 @@ uses
U_TatClothInList_ZDDY in 'U_TatClothInList_ZDDY.pas' {frmTatClothInList_ZDDY}, U_TatClothInList_ZDDY in 'U_TatClothInList_ZDDY.pas' {frmTatClothInList_ZDDY},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
U_TatClothStkList in 'U_TatClothStkList.pas' {frmTatClothStkList}; U_TatClothStkList in 'U_TatClothStkList.pas' {frmTatClothStkList},
U_TatClothStkSel in 'U_TatClothStkSel.pas' {frmTatClothStkSel};
{$R *.res} {$R *.res}

5
E04梭织坯布仓库/TatClothStk.dproj
View File

@ -188,6 +188,10 @@
<Form>frmTatClothStkList</Form> <Form>frmTatClothStkList</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_TatClothStkSel.pas">
<Form>frmTatClothStkSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
@ -913,6 +917,7 @@
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/> <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/> <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
</Deployment> </Deployment>
<ModelSupport>False</ModelSupport>
</BorlandProject> </BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion> <ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions> </ProjectExtensions>

77
E04梭织坯布仓库/TatClothStk.dproj.local
View File

@ -1,90 +1,95 @@
<?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.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm</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.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.559,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList_ZDDY.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.559,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList_ZDDY.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.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.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.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.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.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.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.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.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10RepoV1\项目代码\花蝴蝶\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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.744,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.744,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.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.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.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.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.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
<Transaction>2025/07/03 14:12:23.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>2025/07/03 14:12:23.000.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>2025/07/12 10:29:31.000.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>2025/07/12 10:34:14.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction>
<Transaction>2025/07/12 10:51:18.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>2025/07/12 10:53:24.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction>
<Transaction>2025/07/12 10:53:58.993,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>
@ -168,5 +173,7 @@
<File Path="U_TatDRSel.dfm"/> <File Path="U_TatDRSel.dfm"/>
<File Path="U_TatClothStkList.pas"/> <File Path="U_TatClothStkList.pas"/>
<File Path="U_TatClothStkList.dfm"/> <File Path="U_TatClothStkList.dfm"/>
<File Path="U_TatClothStkSel.pas"/>
<File Path="U_TatClothStkSel.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

BIN
E04梭织坯布仓库/TatClothStk.identcache
View File

Binary file not shown.

24
E04梭织坯布仓库/U_TatClothStkList.dfm
View File

@ -3,12 +3,12 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Top = 138 Top = 138
Caption = #25104#21697#24211#23384#21015#34920 Caption = #25104#21697#24211#23384#21015#34920
ClientHeight = 600 ClientHeight = 600
ClientWidth = 1541 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1557 ExplicitWidth = 1556
ExplicitHeight = 639 ExplicitHeight = 639
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -16,7 +16,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1541 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -78,16 +78,16 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxPageControl1: TcxPageControl [1] object cxPageControl1: TcxPageControl [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1541 Width = 1540
Height = 570 Height = 570
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
Properties.ActivePage = cxTabSheet2 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 570 ClientRectBottom = 570
ClientRectRight = 1541 ClientRectRight = 1540
ClientRectTop = 32 ClientRectTop = 32
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635#20449#24687' ' Caption = ' '#20135#21697#27719#24635#20449#24687' '
@ -95,7 +95,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Pnl_F2: TPanel object Pnl_F2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1541 Width = 1540
Height = 75 Height = 75
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -274,7 +274,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 75 Top = 75
Width = 1541 Width = 1540
Height = 463 Height = 463
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
@ -504,13 +504,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 102 Top = 102
Width = 1541 Width = 1540
Height = 33 Height = 33
Align = alTop Align = alTop
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 0 TabOrder = 0
DesignSize = ( DesignSize = (
1537 1536
29) 29)
object Label31: TLabel object Label31: TLabel
Left = 35 Left = 35
@ -607,7 +607,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Pnl_F1: TPanel object Pnl_F1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1541 Width = 1540
Height = 102 Height = 102
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -837,7 +837,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 135 Top = 135
Width = 1541 Width = 1540
Height = 403 Height = 403
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone

65
E04梭织坯布仓库/U_TatClothStkSelSel.dfm → E04梭织坯布仓库/U_TatClothStkSel.dfm
View File

@ -1,22 +1,20 @@
inherited frmTatClothStkList: TfrmTatClothStkList inherited frmTatClothStkSel: TfrmTatClothStkSel
Left = 184 Left = 184
Top = 138 Top = 138
Caption = #25104#21697#24211#23384#21015#34920 Caption = #25104#21697#24211#23384#36873#25321
ClientHeight = 600 ClientHeight = 600
ClientWidth = 1541 ClientWidth = 1540
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True ExplicitWidth = 1556
ExplicitWidth = 1557
ExplicitHeight = 639 ExplicitHeight = 639
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Tag = 1 Tag = 2
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1541 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -42,24 +40,34 @@ inherited frmTatClothStkList: TfrmTatClothStkList
ImageIndex = 1 ImageIndex = 1
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object ToolButton2: TToolButton object ToolButton1: TToolButton
Left = 63 Left = 63
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36873#25321
ImageIndex = 12
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #30721#21333#25171#21360 Caption = #30721#21333#25171#21360
ImageIndex = 21 ImageIndex = 21
Visible = False
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 150 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 20 ImageIndex = 20
Visible = False
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 213 Left = 276
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -67,7 +75,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 300 Left = 363
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -78,16 +86,17 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxPageControl1: TcxPageControl [1] object cxPageControl1: TcxPageControl [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1541 Width = 1540
Height = 570 Height = 570
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
Properties.ActivePage = cxTabSheet2 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ExplicitTop = 36
ClientRectBottom = 570 ClientRectBottom = 570
ClientRectRight = 1541 ClientRectRight = 1540
ClientRectTop = 32 ClientRectTop = 32
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635#20449#24687' ' Caption = ' '#20135#21697#27719#24635#20449#24687' '
@ -95,7 +104,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Pnl_F2: TPanel object Pnl_F2: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1541 Width = 1540
Height = 75 Height = 75
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -103,6 +112,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
ExplicitTop = -6
object Label4: TLabel object Label4: TLabel
Left = 244 Left = 244
Top = 10 Top = 10
@ -274,16 +284,16 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 75 Top = 75
Width = 1541 Width = 1540
Height = 463 Height = 463
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = PM_2 PopupMenu = PM_2
TabOrder = 1 TabOrder = 1
ExplicitTop = 72
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = TV2CellDblClick
OnCustomDrawCell = TV2CustomDrawCell OnCustomDrawCell = TV2CustomDrawCell
DataController.DataSource = DS_2 DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
@ -347,6 +357,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30 OptionsView.IndicatorWidth = 30
object TV2SSel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object cxGridDBColumn2: TcxGridDBColumn object cxGridDBColumn2: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
@ -501,16 +518,17 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxTabSheet2: TcxTabSheet object cxTabSheet2: TcxTabSheet
Caption = ' '#20135#21697#26126#32454#20449#24687' ' Caption = ' '#20135#21697#26126#32454#20449#24687' '
ImageIndex = 1 ImageIndex = 1
TabVisible = False
object Panel6: TPanel object Panel6: TPanel
Left = 0 Left = 0
Top = 102 Top = 102
Width = 1541 Width = 1540
Height = 33 Height = 33
Align = alTop Align = alTop
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 0 TabOrder = 0
DesignSize = ( DesignSize = (
1537 1536
29) 29)
object Label31: TLabel object Label31: TLabel
Left = 35 Left = 35
@ -607,7 +625,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Pnl_F1: TPanel object Pnl_F1: TPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1541 Width = 1540
Height = 102 Height = 102
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -615,6 +633,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = -1
object Label3: TLabel object Label3: TLabel
Left = 236 Left = 236
Top = 9 Top = 9
@ -837,12 +856,14 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 135 Top = 135
Width = 1541 Width = 1540
Height = 403 Height = 403
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitLeft = -128
ExplicitTop = 108
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

147
E04梭织坯布仓库/U_TatClothStkSel.pas
View File

@ -1,4 +1,4 @@
unit U_TatClothStkList; unit U_TatClothStkSel;
interface interface
@ -33,7 +33,7 @@ uses
dxSkinXmas2008Blue; dxSkinXmas2008Blue;
type type
TfrmTatClothStkList = class(TfrmBaseList) TfrmTatClothStkSel = class(TfrmBaseList)
ToolBar1: TToolBar; ToolBar1: TToolBar;
TBRafresh: TToolButton; TBRafresh: TToolButton;
TBExport: TToolButton; TBExport: TToolButton;
@ -154,6 +154,8 @@ type
BegDate: TcxDateEdit; BegDate: TcxDateEdit;
EndDate: TcxDateEdit; EndDate: TcxDateEdit;
TV2Column1: TcxGridDBColumn; TV2Column1: TcxGridDBColumn;
TV2SSel: TcxGridDBColumn;
ToolButton1: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -172,12 +174,13 @@ type
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject); procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure MenuItem1Click(Sender: TObject); procedure MenuItem1Click(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton1Click(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstPacketId: TStringList; lstPacketId: TStringList;
@ -190,13 +193,16 @@ type
{ Public declarations } { Public declarations }
end; end;
var
frmTatClothStkSel: TfrmTatClothStkSel;
implementation implementation
uses uses
U_DataLink, U_RTFun, U_LabelPrint; U_DataLink, U_RTFun, U_LabelPrint;
{$R *.dfm} {$R *.dfm}
procedure TfrmTatClothStkList.InitPage(); procedure TfrmTatClothStkSel.InitPage();
begin begin
CurrentPage := 1; CurrentPage := 1;
case cxPageControl1.ActivePageIndex of case cxPageControl1.ActivePageIndex of
@ -211,20 +217,20 @@ begin
end; end;
end; end;
procedure TfrmTatClothStkList.SetStatus(); procedure TfrmTatClothStkSel.SetStatus();
begin begin
// if canshu1 then // if canshu1 then
end; end;
procedure TfrmTatClothStkList.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmTatClothStkSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
inherited; inherited;
FreeAndNil(lstPacketId); FreeAndNil(lstPacketId);
Action := caFree; Action := caFree;
end; end;
procedure TfrmTatClothStkList.FormCreate(Sender: TObject); procedure TfrmTatClothStkSel.FormCreate(Sender: TObject);
begin begin
inherited; inherited;
lstPacketId := TStringList.Create; lstPacketId := TStringList.Create;
@ -235,7 +241,7 @@ begin
FWorkshop := trim(Self.fParameters3); FWorkshop := trim(Self.fParameters3);
end; end;
procedure TfrmTatClothStkList.InitGrid(WSql: string); procedure TfrmTatClothStkSel.InitGrid(WSql: string);
begin begin
if Trim(WSql) <> '' then if Trim(WSql) <> '' then
@ -256,11 +262,10 @@ begin
sql.Clear; sql.Clear;
sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color'); sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color');
sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight'); sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage'); sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage,ConNo,ConMID,ConSID');
sql.Add(' from V_Tat_Cloth_Stk A where 1=1 '); sql.Add(' from V_Tat_Cloth_Stk A where 1=1 ');
sql.Add(WSql); sql.Add(WSql);
sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color'); sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color,ConNo,ConMID,ConSID');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
end; end;
@ -271,66 +276,65 @@ begin
end; end;
1: 1:
begin begin
if chk_F1.Checked then // if chk_F1.Checked then
begin // begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)); // WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date));
WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1)); // WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1));
end; // end;
with ADOQueryMain do // with ADOQueryMain do
begin // begin
Filtered := False; // Filtered := False;
Close; // Close;
sql.Clear; // sql.Clear;
sql.Add(' select top ' + inttostr(RecordsNumber) + ' * '); // sql.Add(' select top ' + inttostr(RecordsNumber) + ' * ');
sql.Add(' from '); // sql.Add(' from ');
sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)'); // sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)');
sql.Add(',COUNT(1) OVER() AS TotalCount'); // sql.Add(',COUNT(1) OVER() AS TotalCount');
sql.Add(', kl= DATEDIFF(dd,IOTime, GETDATE()),* from V_Tat_Cloth_Stk AA where 1=1 '); // sql.Add(', kl= DATEDIFF(dd,IOTime, GETDATE()),* from V_Tat_Cloth_Stk AA where 1=1 ');
// if trim(FWorkshop) <> '' then //// if trim(FWorkshop) <> '' then
// sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' '); //// sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' ');
sql.Add('and 1=1 ' + WSql); // sql.Add('and 1=1 ' + WSql);
sql.Add(') temp_row'); // sql.Add(') temp_row');
sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber))); // sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber)));
sql.Add(' order by rownumber'); // sql.Add(' order by rownumber');
// showmessage(sql.text); //// showmessage(sql.text);
Open; // Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber));
TV1.DataController.Filter.Clear;
end; end;
// SCreateCDS(ADOQueryMain, CDS_1);
// SInitCDSData(ADOQueryMain, CDS_1);
// LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber));
// TV1.DataController.Filter.Clear;
// end;
end; end;
end; end;
procedure TfrmTatClothStkList.TBRafreshClick(Sender: TObject); procedure TfrmTatClothStkSel.TBRafreshClick(Sender: TObject);
begin begin
InitPage(); InitPage();
end; end;
procedure TfrmTatClothStkList.CDS_1BeforeOpen(DataSet: TDataSet); procedure TfrmTatClothStkSel.CDS_1BeforeOpen(DataSet: TDataSet);
begin begin
lstPacketId.Clear; lstPacketId.Clear;
end; end;
procedure TfrmTatClothStkList.cxPageControl1Change(Sender: TObject); procedure TfrmTatClothStkSel.cxPageControl1Change(Sender: TObject);
begin begin
SetStatus(); SetStatus();
end; end;
procedure TfrmTatClothStkList.TBCloseClick(Sender: TObject); procedure TfrmTatClothStkSel.TBCloseClick(Sender: TObject);
begin begin
Close; Close;
end; end;
procedure TfrmTatClothStkList.FormShow(Sender: TObject); procedure TfrmTatClothStkSel.FormShow(Sender: TObject);
begin begin
inherited; inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ËóÖ¯Å÷²¼²Ö¿â'); ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存选择');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ËóÖ¯Å÷²¼²Ö¿â');
CurrentPage := 1; CurrentPage := 1;
RecordsNumber := 500; RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1); canshu1 := Trim(Self.fParameters1);
@ -338,14 +342,14 @@ begin
InitPage(); InitPage();
end; end;
procedure TfrmTatClothStkList.TBExportClick(Sender: TObject); procedure TfrmTatClothStkSel.TBExportClick(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
exit; exit;
TcxGridToExcel(Self.Caption, cxGrid1); TcxGridToExcel(Self.Caption, cxGrid1);
end; end;
procedure TfrmTatClothStkList.orderNoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTatClothStkSel.orderNoKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
begin begin
@ -353,88 +357,84 @@ begin
end; end;
end; end;
procedure TfrmTatClothStkList.PM11Click(Sender: TObject); procedure TfrmTatClothStkSel.PM11Click(Sender: TObject);
begin begin
SelOKNo(CDS_1, false); SelOKNo(CDS_1, false);
end; end;
procedure TfrmTatClothStkList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TfrmTatClothStkSel.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
ACanvas.Brush.Color := $B3DEF5; ACanvas.Brush.Color := $B3DEF5;
end; end;
procedure TfrmTatClothStkList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); procedure TfrmTatClothStkSel.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin begin
lstPacketId.Clear; //ÖØдò¿ªÊý¾Ý¼¯Ç°Çå¿ÕlstPacketId lstPacketId.Clear; //ÖØдò¿ªÊý¾Ý¼¯Ç°Çå¿ÕlstPacketId
end; end;
procedure TfrmTatClothStkList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); procedure TfrmTatClothStkSel.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin begin
if lstPacketId <> nil then if lstPacketId <> nil then
AText := IntToStr(lstPacketId.Count); AText := IntToStr(lstPacketId.Count);
end; end;
procedure TfrmTatClothStkList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure TfrmTatClothStkSel.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
BegDate.Date := BegDate2.Date;
EndDate.Date := EndDate2.Date;
chk_F2.Checked := chk_F1.Checked;
cxPageControl1.ActivePageIndex := 1;
SetStatus();
InitGrid(SGetCDSFilters(Tv2, CDS_2));
end;
procedure TfrmTatClothStkList.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
ACanvas.Brush.Color := $B3DEF5; ACanvas.Brush.Color := $B3DEF5;
end; end;
procedure TfrmTatClothStkList.BTNPClick(Sender: TObject); procedure TfrmTatClothStkSel.BTNPClick(Sender: TObject);
begin begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1; CurrentPage := CurrentPage + 1;
InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end; end;
procedure TfrmTatClothStkList.BTLPClick(Sender: TObject); procedure TfrmTatClothStkSel.BTLPClick(Sender: TObject);
begin begin
if CurrentPage > 1 then if CurrentPage > 1 then
CurrentPage := CurrentPage - 1; CurrentPage := CurrentPage - 1;
InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end; end;
procedure TfrmTatClothStkList.TCBNORChange(Sender: TObject); procedure TfrmTatClothStkSel.TCBNORChange(Sender: TObject);
begin begin
RecordsNumber := StrToInt(TCBNOR.Text); RecordsNumber := StrToInt(TCBNOR.Text);
CurrentPage := 1; CurrentPage := 1;
InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end; end;
procedure TfrmTatClothStkList.JYTypeChange(Sender: TObject); procedure TfrmTatClothStkSel.JYTypeChange(Sender: TObject);
begin begin
CurrentPage := 1; CurrentPage := 1;
InitPage(); InitPage();
end; end;
procedure TfrmTatClothStkList.MenuItem1Click(Sender: TObject); procedure TfrmTatClothStkSel.MenuItem1Click(Sender: TObject);
begin begin
Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end; end;
procedure TfrmTatClothStkList.N1Click(Sender: TObject); procedure TfrmTatClothStkSel.N1Click(Sender: TObject);
begin begin
SelOKNo(CDS_1, true); SelOKNo(CDS_1, true);
end; end;
procedure TfrmTatClothStkList.N2Click(Sender: TObject); procedure TfrmTatClothStkSel.N2Click(Sender: TObject);
begin begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end; end;
procedure TfrmTatClothStkList.ToolButton2Click(Sender: TObject); procedure TfrmTatClothStkSel.ToolButton1Click(Sender: TObject);
begin
inherited;
ModalResult := 1;
end;
procedure TfrmTatClothStkSel.ToolButton2Click(Sender: TObject);
var var
WSql: string; WSql: string;
begin begin
@ -485,10 +485,9 @@ begin
end; end;
end; end;
procedure TfrmTatClothStkList.ToolButton4Click(Sender: TObject); procedure TfrmTatClothStkSel.ToolButton4Click(Sender: TObject);
begin begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ËóÖ¯Å÷²¼²Ö¿â'); WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存选择');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ËóÖ¯Å÷²¼²Ö¿â');
end; end;
end. end.

495
E04梭织坯布仓库/U_TatClothStkSelSel.pas
View File

@ -1,495 +0,0 @@
unit U_TatClothStkList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxPC, System.StrUtils, cxContainer, dxCore,
cxDateUtils, cxMaskEdit, dxScrollbarAnnotations, cxProgressBar, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue;
type
TfrmTatClothStkList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
CDS_1: TClientDataSet;
ToolButton2: TToolButton;
ToolButton4: TToolButton;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
Panel6: TPanel;
Label31: TLabel;
LBCPAP: TLabel;
BTLP: TButton;
BTNP: TButton;
TCBNOR: TComboBox;
Pnl_F1: TPanel;
Label3: TLabel;
Label7: TLabel;
Label10: TLabel;
Label5: TLabel;
lbl1: TLabel;
Label20: TLabel;
Label23: TLabel;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
OrderNo: TcxTextEdit;
conNO: TcxTextEdit;
STKID: TcxTextEdit;
C_Name: TcxTextEdit;
C_Color: TcxTextEdit;
BCIOID: TcxTextEdit;
C_Pattern: TcxTextEdit;
C_Code: TcxTextEdit;
Pnl_F2: TPanel;
Label4: TLabel;
Label6: TLabel;
Label9: TLabel;
Label13: TLabel;
DateTimePicker3: TDateTimePicker;
DateTimePicker4: TDateTimePicker;
Edit1: TcxTextEdit;
Edit2: TcxTextEdit;
Edit4: TcxTextEdit;
Edit5: TcxTextEdit;
Edit8: TcxTextEdit;
GPM_2: TcxGridPopupMenu;
CDS_2: TClientDataSet;
DS_2: TDataSource;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV2Column3: TcxGridDBColumn;
Label18: TLabel;
Label19: TLabel;
Edit9: TcxTextEdit;
Edit10: TcxTextEdit;
Label8: TLabel;
Label14: TLabel;
Edit3: TcxTextEdit;
Edit11: TcxTextEdit;
PM_2: TPopupMenu;
MenuItem1: TMenuItem;
N2: TMenuItem;
TV2Column2: TcxGridDBColumn;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
v1Column32: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column42: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label1: TLabel;
BegDate2: TcxDateEdit;
EndDate2: TcxDateEdit;
chk_F2: TcxCheckBox;
Label2: TLabel;
chk_F1: TcxCheckBox;
BegDate: TcxDateEdit;
EndDate: TcxDateEdit;
TV2Column1: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
procedure JYTypeChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure MenuItem1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
private
CurrentPage, RecordsNumber: Integer;
lstPacketId: TStringList;
procedure InitGrid(WSql: string);
procedure InitPage();
procedure SetStatus();
{ Private declarations }
public
canshu1, FWorkshop: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatClothStkList.InitPage();
begin
CurrentPage := 1;
case cxPageControl1.ActivePageIndex of
0:
begin
InitGrid(SGetHintFilters(Pnl_F2, 1, 2));
end;
1:
begin
InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end;
end;
end;
procedure TfrmTatClothStkList.SetStatus();
begin
// if canshu1 then
end;
procedure TfrmTatClothStkList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstPacketId);
Action := caFree;
end;
procedure TfrmTatClothStkList.FormCreate(Sender: TObject);
begin
inherited;
lstPacketId := TStringList.Create;
EndDate.Date := SGetServerDateTime(ADOQueryTemp);
BegDate.Date := EndDate.Date - 20;
BegDate2.Date := BegDate.Date;
EndDate2.Date := EndDate.Date;
FWorkshop := trim(Self.fParameters3);
end;
procedure TfrmTatClothStkList.InitGrid(WSql: string);
begin
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
case cxPageControl1.ActivePageIndex of
0:
begin
if chk_F2.Checked then
begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate2.Date));
WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate2.Date + 1));
end;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color');
sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage');
sql.Add(' from V_Tat_Cloth_Stk A where 1=1 ');
sql.Add(WSql);
sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
TV2.DataController.Filter.Clear;
end;
1:
begin
if chk_F1.Checked then
begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date));
WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1));
end;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select top ' + inttostr(RecordsNumber) + ' * ');
sql.Add(' from ');
sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)');
sql.Add(',COUNT(1) OVER() AS TotalCount');
sql.Add(', kl= DATEDIFF(dd,IOTime, GETDATE()),* from V_Tat_Cloth_Stk AA where 1=1 ');
// if trim(FWorkshop) <> '' then
// sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' ');
sql.Add('and 1=1 ' + WSql);
sql.Add(') temp_row');
sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber)));
sql.Add(' order by rownumber');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber));
TV1.DataController.Filter.Clear;
end;
end;
end;
procedure TfrmTatClothStkList.TBRafreshClick(Sender: TObject);
begin
InitPage();
end;
procedure TfrmTatClothStkList.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstPacketId.Clear;
end;
procedure TfrmTatClothStkList.cxPageControl1Change(Sender: TObject);
begin
SetStatus();
end;
procedure TfrmTatClothStkList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatClothStkList.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '梭织坯布仓库');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '梭织坯布仓库');
CurrentPage := 1;
RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1);
SetStatus();
InitPage();
end;
procedure TfrmTatClothStkList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
TcxGridToExcel(Self.Caption, cxGrid1);
end;
procedure TfrmTatClothStkList.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitPage();
end;
end;
procedure TfrmTatClothStkList.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_1, false);
end;
procedure TfrmTatClothStkList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
ACanvas.Brush.Color := $B3DEF5;
end;
procedure TfrmTatClothStkList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstPacketId.Clear; //重新打开数据集前清空lstPacketId
end;
procedure TfrmTatClothStkList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstPacketId <> nil then
AText := IntToStr(lstPacketId.Count);
end;
procedure TfrmTatClothStkList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
BegDate.Date := BegDate2.Date;
EndDate.Date := EndDate2.Date;
chk_F2.Checked := chk_F1.Checked;
cxPageControl1.ActivePageIndex := 1;
SetStatus();
InitGrid(SGetCDSFilters(Tv2, CDS_2));
end;
procedure TfrmTatClothStkList.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
ACanvas.Brush.Color := $B3DEF5;
end;
procedure TfrmTatClothStkList.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end;
procedure TfrmTatClothStkList.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end;
procedure TfrmTatClothStkList.TCBNORChange(Sender: TObject);
begin
RecordsNumber := StrToInt(TCBNOR.Text);
CurrentPage := 1;
InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end;
procedure TfrmTatClothStkList.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitPage();
end;
procedure TfrmTatClothStkList.MenuItem1Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothStkList.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, true);
end;
procedure TfrmTatClothStkList.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothStkList.ToolButton2Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
if not CDS_1.Locate('SSel', True, []) then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
WSql := '';
CDS_1.DisableControls;
with CDS_1 do
begin
First;
while not Eof do
begin
if CDS_1.fieldbyname('SSel').AsBoolean then
begin
if WSql <> '' then
begin
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end
else
begin
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
end;
end;
Next;
end;
end;
ShowMessage(WSql);
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TatClothStk';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatClothStkList.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '梭织坯布仓库');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '梭织坯布仓库');
end;
end.

5
E04梭织坯布仓库/U_TatDRList.dfm
View File

@ -155,8 +155,7 @@ inherited frmTatDRList: TfrmTatDRList
Height = 237 Height = 237
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
ExplicitTop = 117 ExplicitTop = 129
ExplicitHeight = 247
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -475,7 +474,6 @@ inherited frmTatDRList: TfrmTatDRList
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
Control = cxGrid2 Control = cxGrid2
ExplicitWidth = 8
end end
object cxGrid2: TcxGrid [5] object cxGrid2: TcxGrid [5]
Left = 0 Left = 0
@ -484,6 +482,7 @@ inherited frmTatDRList: TfrmTatDRList
Height = 222 Height = 222
Align = alBottom Align = alBottom
TabOrder = 5 TabOrder = 5
ExplicitTop = 370
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

133
E04梭织坯布仓库/U_TatDRtInPut.dfm
View File

@ -3,7 +3,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Top = 139 Top = 139
Caption = #21457#36135#30003#35831#24405#20837 Caption = #21457#36135#30003#35831#24405#20837
ClientHeight = 644 ClientHeight = 644
ClientWidth = 1252 ClientWidth = 1312
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -19,7 +19,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1252 Width = 1312
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -68,7 +68,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1252 Width = 1312
Height = 75 Height = 75
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
@ -131,11 +131,11 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentFont = False ParentFont = False
end end
object Label27: TLabel object Label27: TLabel
Left = 703 Left = 688
Top = 12 Top = 12
Width = 52 Width = 65
Height = 15 Height = 15
Caption = #25968#37327#21333#20301 Caption = #25968#37327#21333#20301#65306
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -143,6 +143,47 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end end
object Label3: TLabel
Left = 865
Top = 13
Width = 78
Height = 12
Caption = #20986#21040#21512#21516#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 1090
Top = 5
Width = 91
Height = 12
Caption = #20986#21040#21512#21516#23376#34920#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label5: TLabel
Left = 1090
Top = 31
Width = 91
Height = 12
Caption = #20986#21040#21512#21516#20027#34920#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object OutType: TComboBox object OutType: TComboBox
Tag = 1 Tag = 1
Left = 306 Left = 306
@ -158,8 +199,8 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object Note: TEdit object Note: TEdit
Tag = 1 Tag = 1
Left = 96 Left = 96
Top = 39 Top = 40
Width = 962 Width = 984
Height = 18 Height = 18
TabOrder = 2 TabOrder = 2
end end
@ -186,7 +227,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end end
object QtyUnit: TComboBox object QtyUnit: TComboBox
Tag = 2 Tag = 2
Left = 758 Left = 749
Top = 9 Top = 9
Width = 96 Width = 96
Height = 20 Height = 20
@ -197,16 +238,44 @@ object frmTatDRtInPut: TfrmTatDRtInPut
'Y' 'Y'
'Kg') 'Kg')
end end
object ToConNo: TBtnEditC
Tag = 1
Left = 942
Top = 9
Width = 138
Height = 20
TabOrder = 5
OnBtnUpClick = ToConNoBtnUpClick
OnBtnDnClick = ToConNoBtnDnClick
end
object ToConSId: TBtnEditC
Tag = 1
Left = 1187
Top = 5
Width = 138
Height = 20
TabOrder = 6
Visible = False
end
object ToConMId: TBtnEditC
Tag = 1
Left = 1187
Top = 29
Width = 138
Height = 20
TabOrder = 7
Visible = False
end
end end
object ToolBar2: TToolBar object ToolBar2: TToolBar
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 113 Top = 113
Width = 1252 Width = 1312
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
ButtonWidth = 75 ButtonWidth = 91
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clBtnFace Color = clBtnFace
DisabledImages = DataLink_TatClothStk.ImageList_new32 DisabledImages = DataLink_TatClothStk.ImageList_new32
@ -223,16 +292,17 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
object ToolButton3: TToolButton ExplicitTop = 107
object SelectStk: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36873#21333 Caption = #36873#25321#24211#23384
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton3Click OnClick = SelectStkClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 71 Left = 95
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22686#34892 Caption = #22686#34892
@ -241,7 +311,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 142 Left = 166
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
@ -252,10 +322,11 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 151 Top = 151
Width = 1252 Width = 1312
Height = 493 Height = 493
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
ExplicitTop = 157
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -298,6 +369,13 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Options.Editing = False Options.Editing = False
Width = 100 Width = 100
end end
object Tv1Column3: TcxGridDBColumn
Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
@ -312,6 +390,27 @@ object frmTatDRtInPut: TfrmTatDRtInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 106 Width = 106
end end
object Tv1Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column5: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'Y_Type'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column6: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #30003#35831#21305#25968 Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'Piece' DataBinding.FieldName = 'Piece'

73
E04梭织坯布仓库/U_TatDRtInPut.pas
View File

@ -45,11 +45,21 @@ type
Label2: TLabel; Label2: TLabel;
DlyDate: TDateTimePicker; DlyDate: TDateTimePicker;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
ToolButton3: TToolButton; SelectStk: TToolButton;
ToolButton4: TToolButton; ToolButton4: TToolButton;
Label27: TLabel; Label27: TLabel;
QtyUnit: TComboBox; QtyUnit: TComboBox;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Label3: TLabel;
ToConNo: TBtnEditC;
Label4: TLabel;
ToConSId: TBtnEditC;
Label5: TLabel;
ToConMId: TBtnEditC;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -58,8 +68,10 @@ type
procedure ToCoNameBtnUpClick(Sender: TObject); procedure ToCoNameBtnUpClick(Sender: TObject);
procedure ToCoNameBtnDnClick(Sender: TObject); procedure ToCoNameBtnDnClick(Sender: TObject);
procedure JSQtyUnitChange(Sender: TObject); procedure JSQtyUnitChange(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure SelectStkClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure ToConNoBtnDnClick(Sender: TObject);
procedure ToConNoBtnUpClick(Sender: TObject);
private private
fuserName: string; fuserName: string;
procedure InitData(); procedure InitData();
@ -79,7 +91,7 @@ implementation
uses uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_TatPlanSel, U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_TatPlanSel,
U_TradeSalesContractSel; U_TradeSalesContractSel, U_TatClothStkSel;
{$R *.dfm} {$R *.dfm}
@ -116,6 +128,7 @@ begin
end; end;
SCreateCDS(ADOQuery1, Order_Sub); SCreateCDS(ADOQuery1, Order_Sub);
SInitCDSData(ADOQuery1, Order_Sub); SInitCDSData(ADOQuery1, Order_Sub);
SCSHData(ADOQuery1, ScrollBox1, 2);
with ADOQuery1 do with ADOQuery1 do
begin begin
@ -139,6 +152,32 @@ begin
end; end;
end; end;
procedure TfrmTatDRtInPut.ToConNoBtnDnClick(Sender: TObject);
begin
ToConNo.Text := '';
end;
procedure TfrmTatDRtInPut.ToConNoBtnUpClick(Sender: TObject);
begin
try
frmTradeSalesContractSel := TfrmTradeSalesContractSel.Create(Application);
with frmTradeSalesContractSel do
begin
if ShowModal = 1 then
begin
with Self.Order_Sub do
begin
self.ToConNo.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
self.ToConMId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConMId').AsString);
self.ToConSId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConSId').AsString);
end;
end;
end;
finally
frmTradeSalesContractSel.Free;
end;
end;
procedure TfrmTatDRtInPut.FormShow(Sender: TObject); procedure TfrmTatDRtInPut.FormShow(Sender: TObject);
var var
fsj: string; fsj: string;
@ -369,34 +408,38 @@ begin
Order_Sub.Delete; Order_Sub.Delete;
end; end;
procedure TfrmTatDRtInPut.ToolButton3Click(Sender: TObject); procedure TfrmTatDRtInPut.SelectStkClick(Sender: TObject);
var var
FConMainId, FMPRTCode: string; FConMainId, FMPRTCode: string;
begin begin
try try
frmTradeSalesContractSel := TfrmTradeSalesContractSel.Create(Application); frmTatClothStkSel := TfrmTatClothStkSel.Create(Application);
with frmTradeSalesContractSel do with frmTatClothStkSel do
begin begin
if ShowModal = 1 then if ShowModal = 1 then
begin begin
while CDS_1.locate('SSel', true, []) do while CDS_2.locate('SSel', true, []) do
begin begin
with Self.Order_Sub do with Self.Order_Sub do
begin begin
Append; Append;
FieldByName('ConNo').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').Value; FieldByName('ConNo').Value := frmTatClothStkSel.CDS_2.fieldbyname('ConNo').Value;
FieldByName('ConMID').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('ConMID').Value; FieldByName('ConMID').Value := frmTatClothStkSel.CDS_2.fieldbyname('ConMID').Value;
FieldByName('ConSID').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('ConSID').Value; FieldByName('ConSID').Value := frmTatClothStkSel.CDS_2.fieldbyname('ConSID').Value;
FieldByName('C_Code').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').Value; FieldByName('OrderNo').Value := frmTatClothStkSel.CDS_2.fieldbyname('OrderNo').Value;
FieldByName('C_Name').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_Name').Value; FieldByName('C_Code').Value := frmTatClothStkSel.CDS_2.fieldbyname('C_Code').Value;
FieldByName('C_Name').Value := frmTatClothStkSel.CDS_2.fieldbyname('C_Name').Value;
FieldByName('C_Color').Value := frmTatClothStkSel.CDS_2.fieldbyname('C_Color').Value;
FieldByName('Y_Type').Value := frmTatClothStkSel.CDS_2.fieldbyname('Grade').Value;
FieldByName('BatchNo').Value := frmTatClothStkSel.CDS_2.fieldbyname('BatchNo').Value;
end; end;
CDS_1.Edit; CDS_2.Edit;
CDS_1.fieldbyname('SSel').value := false; CDS_2.fieldbyname('SSel').value := false;
end; end;
end; end;
end; end;
finally finally
frmTradeSalesContractSel.Free; frmTatClothStkSel.Free;
end; end;
end; end;

22
T00贸易通用窗体/U_TradeSalesContractSel.dfm
View File

@ -3,14 +3,14 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
Top = 106 Top = 106
Caption = #21512#21516#36873#25321 Caption = #21512#21516#36873#25321
ClientHeight = 558 ClientHeight = 558
ClientWidth = 1564 ClientWidth = 1540
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1580 ExplicitWidth = 1556
ExplicitHeight = 597 ExplicitHeight = 597
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
@ -18,7 +18,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1564 Width = 1540
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -64,7 +64,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1564 Width = 1540
Height = 44 Height = 44
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -122,13 +122,14 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 110 Top = 110
Width = 1564 Width = 1540
Height = 448 Height = 448
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
@ -169,15 +170,6 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.Header = Default Styles.Header = Default
object TV1Column7: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 41
end
object TV1Column13: TcxGridDBColumn object TV1Column13: TcxGridDBColumn
Caption = #19979#21333#26085#26399 Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'ConDate' DataBinding.FieldName = 'ConDate'
@ -394,7 +386,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 82 Top = 82
Width = 1564 Width = 1540
Height = 28 Height = 28
Align = alTop Align = alTop
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET

1
T00贸易通用窗体/U_TradeSalesContractSel.pas
View File

@ -85,7 +85,6 @@ type
handBlack: TcxStyle; handBlack: TcxStyle;
cxBlue: TcxStyle; cxBlue: TcxStyle;
SHuangSeCu: TcxStyle; SHuangSeCu: TcxStyle;
TV1Column7: TcxGridDBColumn;
PM_1: TPopupMenu; PM_1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
N2: TMenuItem; N2: TMenuItem;