From 70808bb0ed51207e4279bf3382f20abdf38077c7 Mon Sep 17 00:00:00 2001 From: funa <1559646174@qq.com> Date: Wed, 28 Oct 2026 17:12:57 +0800 Subject: [PATCH] =?UTF-8?q?=E8=AE=A1=E5=88=92?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- E01梭织生产计划/TatPlan.dpr | 1 + E01梭织生产计划/TatPlan.dproj.local | 106 ++-- E01梭织生产计划/TatPlan.identcache | Bin 3331 -> 3422 bytes E01梭织生产计划/U_GetDllForm.pas | 14 +- E01梭织生产计划/U_TatOrderProdTJ.dfm | 696 ++++++++++++++++++++++++++ E01梭织生产计划/U_TatOrderProdTJ.pas | 213 ++++++++ E01梭织生产计划/U_TatPlanPSYLLIST.dfm | 7 +- 7 files changed, 980 insertions(+), 57 deletions(-) create mode 100644 E01梭织生产计划/U_TatOrderProdTJ.dfm create mode 100644 E01梭织生产计划/U_TatOrderProdTJ.pas diff --git a/E01梭织生产计划/TatPlan.dpr b/E01梭织生产计划/TatPlan.dpr index c8aa7b7..f24aa40 100644 --- a/E01梭织生产计划/TatPlan.dpr +++ b/E01梭织生产计划/TatPlan.dpr @@ -26,6 +26,7 @@ uses U_YarnInfoSel in '..\A00ͨô\U_YarnInfoSel.pas' {frmYarnInfoSel}, U_TatClothInfoSel in '..\A00ͨô\U_TatClothInfoSel.pas' {frmTatClothInfoSel}, U_JHDTJ in 'U_JHDTJ.pas' {frmJHDTJ}, + U_TatOrderProdTJ in 'U_TatOrderProdTJ.pas' {frmTatOrderProdTJ}, U_WBSpecSel in '..\A00ͨô\U_WBSpecSel.pas' {frmWBSpecSel}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, U_TradeSalesContractSel in '..\T00óͨô\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index 0938405..8b18e2b 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,84 +1,84 @@  + 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas 1899/12/30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas - 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm - 1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas + 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm 1899/12/30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas - 1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas 1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas= - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899/12/30 00:00:00.000.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.pas - 1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas + 1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj 1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas + 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm + 1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.724,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_YarnStkSel.pas 1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas - 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas + 1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm + 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm + 1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas 1899/12/30 00:00:00.000.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas - 1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm - 1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas + 1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas 1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm + 1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas - 1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899/12/30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas + 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas 1899/12/30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas - 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm + 1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm 1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm - 1899/12/30 00:00:00.000.998,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas 1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas - 1899/12/30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas - 1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas + 1899/12/30 00:00:00.000.998,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\B02基础纱线仓库\U_YarnCFInfoSel.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm + 1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas + 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm + 1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas - 1899/12/30 00:00:00.000.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm - 1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm - 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas + 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm + 1899/12/30 00:00:00.000.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm + 1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas + 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm + 1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas + 1899/12/30 00:00:00.000.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.pas 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas @@ -169,5 +169,7 @@ + + diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache index bd3c48ae7dc2801b0f56cd6e659e1fedc2f3b743..24abfb03d409c43a62c34b19cf3803708bd10c00 100644 GIT binary patch delta 167 zcmZpcx+le`Gm+6@;-{aJ|FNh}mgkh7T*DMN`7WF6WEF17$!D1yCwnn(oBW#5eDYf^ zsYxv1lizV$Pwrr|-8_XwoN@9mj@ZqsSu+?J{U$TA*zkoUmiQN?q!tAf<)?&rO^)R- z1)3i?<0PQz0!%^^D-?jb)hE|+woVS=nmJjCNoq15v&|$H+sRejB|y6zC*G8t TtjV(oXr=ySBQB-Mr+F*@N^Cgb delta 139 zcmca7)hxxRJ(1C2vM00Z&eDEizch_S^xmo(=Iar diff --git a/E01梭织生产计划/U_GetDllForm.pas b/E01梭织生产计划/U_GetDllForm.pas index afb170b..072b127 100644 --- a/E01梭织生产计划/U_GetDllForm.pas +++ b/E01梭织生产计划/U_GetDllForm.pas @@ -17,7 +17,7 @@ implementation uses U_DataLink, U_iniParam, U_TatPlanList, U_TatPlanCard, U_TatPlanMachList, U_TatPlanCard1, U_TatPlanCardWJY, U_JHDTJ, U_TatGYList, U_TatPlanJTSCLIST, - U_TatPlanPSYLLIST; + U_TatPlanPSYLLIST, U_TatOrderProdTJ; @@ -198,6 +198,18 @@ begin end; end; + 212: //ͳ + begin + with TfrmTatOrderProdTJ.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + // 126: //²δ // begin // with TfrmTatPlanCardWJY.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do diff --git a/E01梭织生产计划/U_TatOrderProdTJ.dfm b/E01梭织生产计划/U_TatOrderProdTJ.dfm new file mode 100644 index 0000000..19624db --- /dev/null +++ b/E01梭织生产计划/U_TatOrderProdTJ.dfm @@ -0,0 +1,696 @@ +inherited frmTatOrderProdTJ: TfrmTatOrderProdTJ + Left = 154 + Top = 76 + Caption = #22383#24067#35746#21333#29983#20135#32479#35745 + ClientHeight = 637 + ClientWidth = 1541 + Font.Height = -16 + Position = poScreenCenter + ExplicitWidth = 1557 + ExplicitHeight = 676 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1541 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_TatPlan.cxImageList_bar + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatPlan.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 2 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object ToolButton1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton2Click + end + object TBClose: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 1541 + Height = 95 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 4 + object Label1: TLabel + Left = 22 + Top = 16 + Width = 64 + Height = 21 + Caption = #26597#35810#26085#26399 + end + object Label2: TLabel + Left = 65 + Top = 53 + Width = 21 + Height = 21 + Caption = '---' + end + object Label3: TLabel + Left = 236 + Top = 16 + Width = 48 + Height = 21 + Caption = #21512#21516#21495 + end + object Label4: TLabel + Left = 236 + Top = 53 + Width = 32 + Height = 21 + Caption = #23458#25143 + end + object Label5: TLabel + Left = 488 + Top = 16 + Width = 64 + Height = 21 + Caption = #38754#26009#21517#31216 + end + object BegDate: TcxDateEdit + Left = 90 + Top = 12 + Properties.ShowTime = False + TabOrder = 0 + Width = 120 + end + object EndDate: TcxDateEdit + Left = 90 + Top = 49 + Properties.ShowTime = False + TabOrder = 1 + Width = 120 + end + object ConNo: TcxTextEdit + Tag = 2 + Left = 306 + Top = 12 + Properties.OnChange = EdtPropertiesChange + TabOrder = 2 + Width = 150 + end + object CustName: TcxTextEdit + Tag = 2 + Left = 306 + Top = 49 + Properties.OnChange = EdtPropertiesChange + TabOrder = 3 + Width = 150 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 558 + Top = 12 + Properties.OnChange = EdtPropertiesChange + TabOrder = 4 + Width = 150 + end + end + object cxGrid1: TcxGrid [3] + Left = 0 + Top = 125 + Width = 1541 + Height = 512 + Align = alClient + TabOrder = 3 + object TV1: TcxGridDBBandedTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Format = '0.00' + Kind = skSum + Column = ColOrdQty + end + item + Format = '0.00' + Kind = skSum + Column = ColLLYarnLen + end + item + Format = '0.00' + Kind = skSum + Column = ColLLYarnQty + end + item + Format = '0' + Kind = skSum + Column = ColAZGroup + end + item + Format = '0' + Kind = skSum + Column = ColAZCard + end + item + Format = '0.00' + Kind = skSum + Column = ColAZLen + end + item + Format = '0' + Kind = skSum + Column = ColWSCard + end + item + Format = '0.00' + Kind = skSum + Column = ColWSLen + end + item + Format = '0' + Kind = skSum + Column = ColSCCard + end + item + Format = '0.00' + Kind = skSum + Column = ColSCLen + end + item + Format = '0' + Kind = skSum + Column = ColJLCard + end + item + Format = '0.00' + Kind = skSum + Column = ColJLLen + end + item + Format = '0.00' + Kind = skSum + Column = ColMBMeter + end + item + Format = '0.00' + Kind = skSum + Column = ColYBMeter + end + item + Format = '0.00' + Kind = skSum + Column = ColRKQty + end + item + Format = '0.00' + Kind = skSum + Column = ColQSQty + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.Indicator = True + OptionsView.IndicatorWidth = 30 + Styles.OnGetContentStyle = TV1StylesGetContentStyle + Bands = < + item + Caption = #21512#21516#20449#24687 + Options.Moving = False + Width = 640 + end + item + Caption = #32433#32447#29702#35770#29992#37327 + Options.Moving = False + Width = 415 + end + item + Caption = #24050#23433#25490 + Options.Moving = False + Width = 190 + end + item + Caption = #26410#19978#36724 + Options.Moving = False + Width = 135 + end + item + Caption = #29983#20135#20013 + Options.Moving = False + Width = 135 + end + item + Caption = #24050#20102#26426 + Options.Moving = False + Width = 135 + end + item + Caption = #22383#24067#32479#35745 + Options.Moving = False + Width = 290 + end> + object ColConNo: TcxGridDBBandedColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object ColCustName: TcxGridDBBandedColumn + Caption = #23458#25143 + DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 140 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object ColC_Name: TcxGridDBBandedColumn + Caption = #38754#26009#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 120 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object ColC_Spec: TcxGridDBBandedColumn + Caption = #38754#26009#35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 140 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object ColOrdQty: TcxGridDBBandedColumn + Caption = #35746#21333#25968#37327 + DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 70 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object ColJHDate: TcxGridDBBandedColumn + Caption = #20132#26399 + DataBinding.FieldName = 'JHDate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxDateEditProperties' + Properties.ShowTime = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 0 + Position.ColIndex = 5 + Position.RowIndex = 0 + end + object ColYType: TcxGridDBBandedColumn + Caption = #31867#22411 + DataBinding.FieldName = 'YType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 45 + Position.BandIndex = 1 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object ColYZS: TcxGridDBBandedColumn + Caption = #32433#25903 + DataBinding.FieldName = 'YZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + Position.BandIndex = 1 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object ColYGYS: TcxGridDBBandedColumn + Caption = #32433#32447#20379#24212#21830 + DataBinding.FieldName = 'YGYS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 140 + Position.BandIndex = 1 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object ColLLYarnLen: TcxGridDBBandedColumn + Caption = #29702#35770#32433#32447#38271#24230'M' + DataBinding.FieldName = 'LLYarnLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 95 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 1 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object ColLLYarnQty: TcxGridDBBandedColumn + Caption = #29702#35770#29992#37327'KG' + DataBinding.FieldName = 'LLYarnQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + Position.BandIndex = 1 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + object ColAZGroup: TcxGridDBBandedColumn + Caption = #36724#32452#25968 + DataBinding.FieldName = 'AZGroup' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 55 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 2 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object ColAZCard: TcxGridDBBandedColumn + Caption = #36724#21345#25968 + DataBinding.FieldName = 'AZCard' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 55 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 2 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object ColAZLen: TcxGridDBBandedColumn + Caption = #32463#36724#38271#24230 + DataBinding.FieldName = 'AZLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 2 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object ColWSCard: TcxGridDBBandedColumn + Caption = #32463#36724#25968 + DataBinding.FieldName = 'WSCard' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 55 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 3 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object ColWSLen: TcxGridDBBandedColumn + Caption = #32463#36724#38271#24230 + DataBinding.FieldName = 'WSLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 3 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object ColSCCard: TcxGridDBBandedColumn + Caption = #32463#36724#25968 + DataBinding.FieldName = 'SCCard' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 55 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 4 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object ColSCLen: TcxGridDBBandedColumn + Caption = #32463#36724#38271#24230 + DataBinding.FieldName = 'SCLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 4 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object ColJLCard: TcxGridDBBandedColumn + Caption = #32463#36724#25968 + DataBinding.FieldName = 'JLCard' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 55 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 5 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object ColJLLen: TcxGridDBBandedColumn + Caption = #32463#36724#38271#24230 + DataBinding.FieldName = 'JLLen' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 5 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object ColMBMeter: TcxGridDBBandedColumn + Caption = #30721#24067#31859#25968 + DataBinding.FieldName = 'MBMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 6 + Position.ColIndex = 0 + Position.RowIndex = 0 + end + object ColYBMeter: TcxGridDBBandedColumn + Caption = #39564#24067#31859#25968 + DataBinding.FieldName = 'YBMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 6 + Position.ColIndex = 1 + Position.RowIndex = 0 + end + object ColRKQty: TcxGridDBBandedColumn + Caption = #20837#24211#31859#25968 + DataBinding.FieldName = 'RKQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 6 + Position.ColIndex = 2 + Position.RowIndex = 0 + end + object ColQSQty: TcxGridDBBandedColumn + Caption = #35746#21333#32570#25968 + DataBinding.FieldName = 'QSQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 6 + Position.ColIndex = 3 + Position.RowIndex = 0 + end + object ColIsRed: TcxGridDBBandedColumn + Caption = #26631#32418 + DataBinding.FieldName = 'IsRed' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 55 + OnCompareRowValuesForCellMerging = TV1CompareRowValuesForCellMerging + Position.BandIndex = 6 + Position.ColIndex = 4 + Position.RowIndex = 0 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV1 + end + end + inherited cxProgressBar2: TcxProgressBar + Left = 430 + Top = 441 + ExplicitLeft = 430 + ExplicitTop = 441 + ExplicitHeight = 29 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Left = 81 + Top = 272 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Left = 81 + Top = 209 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 296 + Top = 368 + end + object PopupMenu1: TPopupMenu + Left = 362 + Top = 368 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object N2: TMenuItem + Caption = #20840#24323 + OnClick = N2Click + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Parameters = <> + Left = 720 + Top = 208 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatPlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 701 + Top = 399 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatPlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 396 + Top = 403 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 520 + Top = 364 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 472 + Top = 364 + end + object cxStyleRepository1: TcxStyleRepository + Left = 600 + Top = 300 + PixelsPerInch = 96 + object cxStyleRed: TcxStyle + AssignedValues = [svFont, svTextColor] + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clRed + end + end +end diff --git a/E01梭织生产计划/U_TatOrderProdTJ.pas b/E01梭织生产计划/U_TatOrderProdTJ.pas new file mode 100644 index 0000000..198fffc --- /dev/null +++ b/E01梭织生产计划/U_TatOrderProdTJ.pas @@ -0,0 +1,213 @@ +unit U_TatOrderProdTJ; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCalendar, cxTextEdit, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, Vcl.Menus, cxContainer, dxCore, + cxDateUtils, cxMaskEdit, cxDropDownEdit, dxSkinsCore, cxProgressBar, + cxGridBandedTableView, cxGridDBBandedTableView, U_BaseList, dxSkinWXI, + dxDateRanges, dxScrollbarAnnotations, dxBarBuiltInMenu; + +type + TfrmTatOrderProdTJ = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + ToolButton1: TToolButton; + ToolButton2: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + Label5: TLabel; + BegDate: TcxDateEdit; + EndDate: TcxDateEdit; + ConNo: TcxTextEdit; + CustName: TcxTextEdit; + C_Name: TcxTextEdit; + cxGrid1: TcxGrid; + TV1: TcxGridDBBandedTableView; + ColConNo: TcxGridDBBandedColumn; + ColCustName: TcxGridDBBandedColumn; + ColC_Name: TcxGridDBBandedColumn; + ColC_Spec: TcxGridDBBandedColumn; + ColOrdQty: TcxGridDBBandedColumn; + ColJHDate: TcxGridDBBandedColumn; + ColYType: TcxGridDBBandedColumn; + ColYZS: TcxGridDBBandedColumn; + ColYGYS: TcxGridDBBandedColumn; + ColLLYarnLen: TcxGridDBBandedColumn; + ColLLYarnQty: TcxGridDBBandedColumn; + ColAZGroup: TcxGridDBBandedColumn; + ColAZCard: TcxGridDBBandedColumn; + ColAZLen: TcxGridDBBandedColumn; + ColWSCard: TcxGridDBBandedColumn; + ColWSLen: TcxGridDBBandedColumn; + ColSCCard: TcxGridDBBandedColumn; + ColSCLen: TcxGridDBBandedColumn; + ColJLCard: TcxGridDBBandedColumn; + ColJLLen: TcxGridDBBandedColumn; + ColMBMeter: TcxGridDBBandedColumn; + ColYBMeter: TcxGridDBBandedColumn; + ColRKQty: TcxGridDBBandedColumn; + ColQSQty: TcxGridDBBandedColumn; + ColIsRed: TcxGridDBBandedColumn; + cxGridLevel1: TcxGridLevel; + GPM_1: TcxGridPopupMenu; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + N2: TMenuItem; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + CDS_1: TClientDataSet; + cxStyleRepository1: TcxStyleRepository; + cxStyleRed: TcxStyle; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure EdtPropertiesChange(Sender: TObject); + procedure TV1CompareRowValuesForCellMerging(Sender: TcxGridColumn; + ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; + const AValue1: Variant; ARow2: TcxGridDataRow; + AProperties2: TcxCustomEditProperties; const AValue2: Variant; + var AAreEqual: Boolean); + procedure TV1StylesGetContentStyle(Sender: TcxCustomGridTableView; + ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; + var AStyle: TcxStyle); + private + procedure InitGrid(); + { Private declarations } + public + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun; + +{$R *.dfm} + +procedure TfrmTatOrderProdTJ.FormClose(Sender: TObject; + var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTatOrderProdTJ.TBCloseClick(Sender: TObject); +begin + Close; +end; + +procedure TfrmTatOrderProdTJ.InitGrid(); +var + fwhere, Pwhere: string; +begin + Pwhere := SGetFilters(Panel1, 1, 2); + if trim(Pwhere) <> '' then + fwhere := ' and ' + trim(Pwhere) + else + fwhere := ''; + try + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Close; + SQL.Clear; + sql.Add(' exec P_Tat_OrderProdTJ @Begdate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', Begdate.Date)))); + sql.Add(',@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)))); + sql.Add(',@criteria= ' + quotedstr(fwhere)); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmTatOrderProdTJ.N1Click(Sender: TObject); +begin + SelOKNo(CDS_1, True); +end; + +procedure TfrmTatOrderProdTJ.N2Click(Sender: TObject); +begin + SelOKNo(CDS_1, False); +end; + +procedure TfrmTatOrderProdTJ.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +procedure TfrmTatOrderProdTJ.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxGrid1); +end; + +procedure TfrmTatOrderProdTJ.ToolButton2Click(Sender: TObject); +begin + WriteCxBandedGrid(trim(self.Caption) + 'Tv1', Tv1, 'ͳƲѯ'); +end; + +procedure TfrmTatOrderProdTJ.TV1CompareRowValuesForCellMerging( + Sender: TcxGridColumn; ARow1: TcxGridDataRow; + AProperties1: TcxCustomEditProperties; const AValue1: Variant; + ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; + const AValue2: Variant; var AAreEqual: Boolean); +begin + if ARow1.Values[ColConNo.Index] = ARow2.Values[ColConNo.Index] then + AAreEqual := True + else + AAreEqual := False; +end; + +procedure TfrmTatOrderProdTJ.TV1StylesGetContentStyle( + Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; + AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); +begin + if (AItem = ColQSQty) and (ARecord <> nil) then + begin + if (not VarIsNull(ARecord.Values[ColIsRed.Index])) + and (ARecord.Values[ColIsRed.Index] = 1) then + AStyle := cxStyleRed; + end; +end; + +procedure TfrmTatOrderProdTJ.EdtPropertiesChange(Sender: TObject); +begin + if ADOQueryMain.Active = False then + Exit; + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); +end; + +procedure TfrmTatOrderProdTJ.FormShow(Sender: TObject); +begin + inherited; + ReadCxBandedGrid(trim(self.Caption) + 'Tv1', Tv1, 'ͳƲѯ'); + EndDate.Date := SGetServerDate(ADOQueryTemp); + BegDate.Date := EndDate.Date - 90; + InitGrid(); +end; + +end. diff --git a/E01梭织生产计划/U_TatPlanPSYLLIST.dfm b/E01梭织生产计划/U_TatPlanPSYLLIST.dfm index 08e9643..78814a9 100644 --- a/E01梭织生产计划/U_TatPlanPSYLLIST.dfm +++ b/E01梭织生产计划/U_TatPlanPSYLLIST.dfm @@ -115,11 +115,10 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST TabOrder = 4 Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> - ExplicitTop = 82 ClientRectBottom = 495 ClientRectLeft = 1 ClientRectRight = 1124 - ClientRectTop = 29 + ClientRectTop = 35 object cxTabSheet1: TcxTabSheet Caption = ' '#27719#24635' ' ImageIndex = 0 @@ -127,7 +126,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST Left = 0 Top = 0 Width = 1123 - Height = 466 + Height = 460 Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 @@ -257,7 +256,7 @@ inherited frmTatPlanPSYLLIST: TfrmTatPlanPSYLLIST Left = 0 Top = 0 Width = 1123 - Height = 466 + Height = 460 Align = alClient PopupMenu = PopupMenu1 TabOrder = 0