From 4b0f2a1f847170cf3902130f5fdcdc6d4370c085 Mon Sep 17 00:00:00 2001 From: "LAPTOP-8NOV8MVQ\\cai" Date: Fri, 11 Jul 2025 10:43:50 +0800 Subject: [PATCH] 11 --- E01梭织生产计划/TatPlan.dproj.local | 140 +++++----- E01梭织生产计划/TatPlan.identcache | Bin 3050 -> 3050 bytes E01梭织生产计划/U_TatGYInPut.dfm | 402 +++++++++------------------- E01梭织生产计划/U_TatGYInPut.pas | 85 ++---- E01梭织生产计划/testDll.res | Bin 3308 -> 3308 bytes 5 files changed, 224 insertions(+), 403 deletions(-) diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index 734d479..3eb9086 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,76 +1,76 @@  - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.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.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.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.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm - 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.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.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= - 1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.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.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas - 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.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm - 1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas - 1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.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.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.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.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas - 1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas - 1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= + 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.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm + 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.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas + 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.734,=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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm + 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.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.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.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.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.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 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.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.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.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.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas + 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.630,=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.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.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.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache index 2c3d866ba4e99df49ca97aea650069ed79e71c1b..aa1d692c8e5687d75300d930d0d4ed0f3944e264 100644 GIT binary patch delta 97 zcmaDQ{z{xtZ89Uf&SU{j!;LJFjFVS$+fQ!eNZicLl+3vK46_T<&{YfcX2FrCcJm`pJ977S&dzB@@6(kpc2i=_8g{@zcD5P f#Wg24FiA{wm7JWwZoN5;Q=e(_1}3G+HyLFCyu>S@ diff --git a/E01梭织生产计划/U_TatGYInPut.dfm b/E01梭织生产计划/U_TatGYInPut.dfm index b3e2cd1..ef5e578 100644 --- a/E01梭织生产计划/U_TatGYInPut.dfm +++ b/E01梭织生产计划/U_TatGYInPut.dfm @@ -72,8 +72,9 @@ inherited frmTatGYInPut: TfrmTatGYInPut Ctl3D = False ParentCtl3D = False TabOrder = 1 + ExplicitTop = 24 object Label2: TLabel - Left = 848 + Left = 567 Top = 9 Width = 80 Height = 21 @@ -81,25 +82,11 @@ inherited frmTatGYInPut: TfrmTatGYInPut end object Label3: TLabel Left = 286 - Top = 81 + Top = 45 Width = 80 Height = 21 Caption = #22383#24067#21517#31216#65306 end - object Label14: TLabel - Left = 848 - Top = 44 - Width = 80 - Height = 21 - Caption = #20844#21496#25260#22836#65306 - end - object Label5: TLabel - Left = 573 - Top = 9 - Width = 80 - Height = 21 - Caption = #20132#36135#26085#26399#65306 - end object Label8: TLabel Left = 1180 Top = 309 @@ -108,13 +95,6 @@ inherited frmTatGYInPut: TfrmTatGYInPut Caption = #21305#25968#65306 Visible = False end - object Label12: TLabel - Left = 848 - Top = 116 - Width = 48 - Height = 21 - Caption = #21305#38271#65306 - end object Label13: TLabel Left = 1172 Top = 353 @@ -125,32 +105,25 @@ inherited frmTatGYInPut: TfrmTatGYInPut end object Label26: TLabel Left = 9 - Top = 81 + Top = 45 Width = 80 Height = 21 Caption = #22383#24067#32534#21495#65306 end object Label31: TLabel Left = 848 - Top = 207 + Top = 45 Width = 68 Height = 21 Caption = #35268' '#26684#65306 end object Label47: TLabel - Left = 573 - Top = 44 + Left = 848 + Top = 9 Width = 48 Height = 21 Caption = #23458#25143#65306 end - object Label43: TLabel - Left = 286 - Top = 44 - Width = 64 - Height = 21 - Caption = #19994#21153#21592#65306 - end object lbl2: TLabel Left = 286 Top = 9 @@ -165,65 +138,58 @@ inherited frmTatGYInPut: TfrmTatGYInPut Height = 21 Caption = #24037#33402#21333#21495#65306 end - object Label4: TLabel - Left = 1108 - Top = 44 - Width = 80 - Height = 21 - Caption = #21152#24037#21333#20301#65306 - end object Label35: TLabel - Left = 9 - Top = 44 + Left = 1108 + Top = 9 Width = 64 Height = 21 Caption = #21512#21516#21495#65306 end object Label10: TLabel Left = 1108 - Top = 9 + Top = 155 Width = 78 Height = 21 Caption = #26426' '#22411#65306 end object Label9: TLabel Left = 9 - Top = 152 - Width = 48 + Top = 119 + Width = 119 Height = 21 - Caption = #31576#24133#65306 + Caption = #31576#24133'/'#19978#32423#38376#24133#65306 end object Label6: TLabel - Left = 573 - Top = 81 + Left = 567 + Top = 155 Width = 112 Height = 21 Caption = #29702#35770#24179#26041#20811#37325#65306 end object Label11: TLabel - Left = 573 - Top = 152 + Left = 1108 + Top = 119 Width = 64 Height = 21 Caption = #24635#22836#32441#65306 end object Label15: TLabel - Left = 573 - Top = 116 + Left = 286 + Top = 155 Width = 48 Height = 21 Caption = #32428#23494#65306 end object Label16: TLabel Left = 848 - Top = 81 + Top = 155 Width = 112 Height = 21 Caption = #23454#27979#24179#26041#20811#37325#65306 end object Label17: TLabel Left = 286 - Top = 152 + Top = 119 Width = 48 Height = 21 Caption = #31576#21495#65306 @@ -259,44 +225,23 @@ inherited frmTatGYInPut: TfrmTatGYInPut Caption = #35746#21333#25968#37327#65306 Visible = False end - object Label20: TLabel - Left = 848 - Top = 152 - Width = 80 - Height = 21 - Caption = #19978#26426#38376#24133#65306 - end - object Label21: TLabel - Left = 1108 - Top = 152 - Width = 80 - Height = 21 - Caption = #25104#21697#38376#24133#65306 - end - object Label22: TLabel - Left = 1108 - Top = 81 - Width = 80 - Height = 21 - Caption = #29256#26412#32534#21495#65306 - end object Label23: TLabel - Left = 1108 - Top = 116 + Left = 567 + Top = 45 Width = 78 Height = 21 Caption = #39068' '#33394#65306 end object Label24: TLabel Left = 286 - Top = 117 + Top = 83 Width = 112 Height = 21 Caption = #25972#32463#24037#33402#21517#31216#65306 end object Label25: TLabel Left = 9 - Top = 117 + Top = 82 Width = 112 Height = 21 Caption = #25972#32463#24037#33402#32534#21495#65306 @@ -316,7 +261,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut end object Label28: TLabel Left = 14 - Top = 279 + Top = 286 Width = 454 Height = 21 Caption = #32428#32433#31859#24212#29992#37327'='#26681#25968'/'#24635#26681#25968'*('#38376#24133'+'#25439#32791')*'#20998#29305'(Dtex)*'#32428#23494'/9000' @@ -327,21 +272,33 @@ inherited frmTatGYInPut: TfrmTatGYInPut Font.Style = [] ParentFont = False end - object OrdPieceLen: TcxTextEdit - Tag = 2 - Left = 952 - Top = 113 - Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged - TabOrder = 2 - OnKeyPress = ConNoKeyPress - Width = 150 + object Label4: TLabel + Left = 848 + Top = 119 + Width = 80 + Height = 21 + Caption = #31359#31576#20837#27861#65306 + end + object Label5: TLabel + Left = 9 + Top = 155 + Width = 48 + Height = 21 + Caption = #32463#23494#65306 + end + object Label12: TLabel + Left = 567 + Top = 119 + Width = 80 + Height = 21 + Caption = #38050#31576#32534#21495#65306 end object OrdPiece: TcxTextEdit Tag = 2 Left = 1254 Top = 305 Properties.OnEditValueChanged = OrdPiecePropertiesEditValueChanged - TabOrder = 3 + TabOrder = 2 Visible = False OnKeyPress = ConNoKeyPress Width = 150 @@ -358,23 +315,16 @@ inherited frmTatGYInPut: TfrmTatGYInPut object C_Name: TcxTextEdit Tag = 2 Left = 398 - Top = 77 + Top = 42 TabOrder = 0 OnKeyPress = ConNoKeyPress Width = 150 end - object Saleser: TcxTextEdit - Left = 398 - Top = 40 - TabOrder = 4 - OnKeyPress = ConNoKeyPress - Width = 150 - end object OrderNo: TcxTextEdit - Left = 114 + Left = 121 Top = 5 Enabled = False - TabOrder = 5 + TabOrder = 3 OnKeyPress = ConNoKeyPress Width = 150 end @@ -383,7 +333,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 909 Top = 270 Enabled = False - TabOrder = 6 + TabOrder = 4 Visible = False OnKeyPress = ConNoKeyPress Width = 120 @@ -393,7 +343,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 909 Top = 305 Enabled = False - TabOrder = 7 + TabOrder = 5 Visible = False OnKeyPress = ConNoKeyPress Width = 120 @@ -404,107 +354,77 @@ inherited frmTatGYInPut: TfrmTatGYInPut Top = 389 ParentColor = True ParentFont = False - TabOrder = 8 + TabOrder = 6 Visible = False Height = 57 Width = 589 end object C_FinishLatitudeDensity: TcxTextEdit Tag = 2 - Left = 680 - Top = 112 + Left = 398 + Top = 152 ParentColor = True Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged - TabOrder = 9 + TabOrder = 7 Width = 150 end object C_TestGramWeight: TcxTextEdit Tag = 2 Left = 952 - Top = 77 + Top = 152 ParentColor = True - TabOrder = 10 + TabOrder = 8 Width = 150 end object C_GramWeight: TcxTextEdit Tag = 2 Left = 679 - Top = 79 + Top = 152 ParentColor = True - TabOrder = 11 + TabOrder = 9 Width = 150 end object C_ReedNo: TcxTextEdit Tag = 2 Left = 398 - Top = 150 + Top = 115 ParentColor = True - TabOrder = 12 + TabOrder = 10 Width = 150 end object C_ReedWidth: TcxTextEdit Tag = 2 - Left = 114 - Top = 150 + Left = 121 + Top = 115 ParentColor = True Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged - TabOrder = 13 + TabOrder = 11 Width = 150 end object C_YarnQty: TcxTextEdit Tag = 2 - Left = 680 - Top = 148 + Left = 1200 + Top = 112 ParentColor = True Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged - TabOrder = 14 + TabOrder = 12 Width = 150 end object LoomType: TcxTextEdit Tag = 2 Left = 1200 - Top = 5 + Top = 154 ParentColor = True - TabOrder = 15 + TabOrder = 13 Width = 150 end object OrdNote: TcxMemo - Left = 114 + Left = 121 Top = 189 ParentColor = True - TabOrder = 16 + TabOrder = 14 Height = 57 - Width = 685 - end - object OurCoName: TcxButtonEdit - Left = 952 - Top = 40 - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - Properties.OnButtonClick = OurCoNamePropertiesButtonClick - Style.ButtonStyle = btsDefault - TabOrder = 17 - OnDblClick = OurCoNameDblClick - Width = 150 - end - object FtyCoName: TcxButtonEdit - Left = 1200 - Top = 40 - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.ReadOnly = True - Properties.OnButtonClick = FtyCoNamePropertiesButtonClick - Style.ButtonStyle = btsDefault - TabOrder = 18 - OnDblClick = OurCoNameDblClick - Width = 150 + Width = 708 end object OrdType: TcxComboBox Left = 398 @@ -512,27 +432,20 @@ inherited frmTatGYInPut: TfrmTatGYInPut Properties.Items.Strings = ( #22823#36135#21333 #35797#26679#21333) - TabOrder = 19 - Width = 150 - end - object DlyDate: TcxDateEdit - Left = 679 - Top = 5 - Properties.ShowTime = False - TabOrder = 20 + TabOrder = 15 Width = 150 end object OrdDate: TcxDateEdit - Left = 952 + Left = 679 Top = 5 Properties.ShowTime = False - TabOrder = 21 + TabOrder = 16 Width = 150 end object ConNo: TcxButtonEdit Tag = 2 - Left = 114 - Top = 40 + Left = 1200 + Top = 5 Properties.Buttons = < item Default = True @@ -541,13 +454,13 @@ inherited frmTatGYInPut: TfrmTatGYInPut Properties.ReadOnly = True Properties.OnButtonClick = ConNoPropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 22 + TabOrder = 17 OnDblClick = OurCoNameDblClick Width = 150 end object CustName: TcxButtonEdit - Left = 679 - Top = 40 + Left = 952 + Top = 5 Properties.Buttons = < item Default = True @@ -556,22 +469,22 @@ inherited frmTatGYInPut: TfrmTatGYInPut Properties.ReadOnly = True Properties.OnButtonClick = CustNamePropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 23 + TabOrder = 18 OnDblClick = OurCoNameDblClick Width = 150 end object C_Spec: TcxMemo Tag = 2 Left = 952 - Top = 202 - TabOrder = 24 + Top = 42 + TabOrder = 19 Height = 32 Width = 398 end object C_Code: TcxButtonEdit Tag = 2 - Left = 114 - Top = 77 + Left = 121 + Top = 42 Properties.Buttons = < item Default = True @@ -580,7 +493,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Properties.ReadOnly = True Properties.OnButtonClick = C_CodePropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 25 + TabOrder = 20 OnDblClick = OurCoNameDblClick Width = 150 end @@ -589,7 +502,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 986 Top = 364 Properties.ReadOnly = True - TabOrder = 26 + TabOrder = 21 Visible = False OnKeyPress = ConNoKeyPress Width = 150 @@ -599,55 +512,31 @@ inherited frmTatGYInPut: TfrmTatGYInPut Left = 986 Top = 399 Properties.ReadOnly = True - TabOrder = 27 + TabOrder = 22 Visible = False OnKeyPress = ConNoKeyPress Width = 150 end - object C_Width: TcxTextEdit - Tag = 2 - Left = 952 - Top = 148 - ParentColor = True - TabOrder = 28 - Width = 150 - end - object C_FinishWidth: TcxTextEdit - Tag = 2 - Left = 1200 - Top = 148 - ParentColor = True - TabOrder = 29 - Width = 150 - end - object BBNo: TcxTextEdit - Tag = 2 - Left = 1200 - Top = 77 - ParentColor = True - TabOrder = 30 - Width = 150 - end object C_Color: TcxTextEdit Tag = 2 - Left = 1200 - Top = 112 + Left = 679 + Top = 42 ParentColor = True - TabOrder = 31 + TabOrder = 23 Width = 150 end object WB_Name: TcxTextEdit Tag = 2 Left = 398 - Top = 113 + Top = 79 Properties.ReadOnly = True - TabOrder = 32 + TabOrder = 24 Width = 150 end object WB_Code: TcxButtonEdit Tag = 2 - Left = 114 - Top = 113 + Left = 121 + Top = 79 Properties.Buttons = < item Default = True @@ -656,10 +545,35 @@ inherited frmTatGYInPut: TfrmTatGYInPut Properties.ReadOnly = True Properties.OnButtonClick = WB_CodePropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 33 + TabOrder = 25 OnDblClick = OurCoNameDblClick Width = 150 end + object WB_ReedNote: TcxTextEdit + Tag = 2 + Left = 952 + Top = 115 + ParentColor = True + TabOrder = 26 + Width = 150 + end + object WB_YarnDensity: TcxTextEdit + Tag = 2 + Left = 121 + Top = 152 + ParentColor = True + Properties.OnEditValueChanged = C_YarnQtyPropertiesEditValueChanged + TabOrder = 27 + Width = 150 + end + object GKBH: TcxTextEdit + Tag = 2 + Left = 679 + Top = 115 + ParentColor = True + TabOrder = 28 + Width = 150 + end end object cxPageControl3: TcxPageControl [2] Left = 0 @@ -668,7 +582,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Height = 414 Align = alClient TabOrder = 2 - Properties.ActivePage = cxTabSheet2 + Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> Properties.Style = 9 ClientRectBottom = 414 @@ -744,6 +658,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut Height = 384 Align = alClient TabOrder = 1 + ExplicitLeft = -2 + ExplicitTop = -1 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -871,6 +787,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut Caption = #30424#22836#21495 DataBinding.FieldName = 'PTNo' DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter Width = 100 end @@ -881,15 +798,6 @@ inherited frmTatGYInPut: TfrmTatGYInPut HeaderAlignmentHorz = taCenter Width = 99 end - object cxGridDBColumn5: TcxGridDBColumn - Caption = #32433#32447#21697#29260 - DataBinding.FieldName = 'Brand' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Moving = False - Options.Sorting = False - Width = 111 - end object TV1Column11: TcxGridDBColumn Caption = #32442#27861 DataBinding.FieldName = 'FF' @@ -904,27 +812,6 @@ inherited frmTatGYInPut: TfrmTatGYInPut HeaderAlignmentHorz = taCenter Width = 80 end - object TV1Column3: TcxGridDBColumn - Caption = #28068 - DataBinding.FieldName = 'Dacron' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object TV1Column4: TcxGridDBColumn - Caption = #26825 - DataBinding.FieldName = 'Cotton' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 67 - end - object TV1Column5: TcxGridDBColumn - Caption = #40635 - DataBinding.FieldName = 'Linen' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 48 - end end object cxGridLevel2: TcxGridLevel GridView = TV1 @@ -1126,13 +1013,6 @@ inherited frmTatGYInPut: TfrmTatGYInPut Styles.Header = DataLink_TatPlan.grid_head_black Width = 83 end - object Tv2Column13: TcxGridDBColumn - Caption = #28504#36890#21495 - DataBinding.FieldName = 'PTNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 100 - end object v2Column6: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'Y_Color' @@ -1140,15 +1020,6 @@ inherited frmTatGYInPut: TfrmTatGYInPut HeaderAlignmentHorz = taCenter Width = 99 end - object v2Column2: TcxGridDBColumn - Caption = #32433#32447#21697#29260 - DataBinding.FieldName = 'Brand' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Moving = False - Options.Sorting = False - Width = 111 - end object Tv2Column12: TcxGridDBColumn Caption = #25467#24230 DataBinding.FieldName = 'ND' @@ -1163,27 +1034,6 @@ inherited frmTatGYInPut: TfrmTatGYInPut HeaderAlignmentHorz = taCenter Width = 80 end - object Tv2Column3: TcxGridDBColumn - Caption = #28068 - DataBinding.FieldName = 'Dacron' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column4: TcxGridDBColumn - Caption = #26825 - DataBinding.FieldName = 'Cotton' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv2Column5: TcxGridDBColumn - Caption = #40635 - DataBinding.FieldName = 'Linen' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end end object cxGridLevel1: TcxGridLevel GridView = Tv2 diff --git a/E01梭织生产计划/U_TatGYInPut.pas b/E01梭织生产计划/U_TatGYInPut.pas index c316ba4..a174d83 100644 --- a/E01梭织生产计划/U_TatGYInPut.pas +++ b/E01梭织生产计划/U_TatGYInPut.pas @@ -46,12 +46,8 @@ type ScrollBox1: TScrollBox; Label2: TLabel; Label3: TLabel; - Label14: TLabel; ADOQueryTemp: TADOQuery; - Label5: TLabel; Label8: TLabel; - Label12: TLabel; - OrdPieceLen: TcxTextEdit; OrdPiece: TcxTextEdit; Label13: TLabel; OrdQty: TcxTextEdit; @@ -63,12 +59,9 @@ type Label31: TLabel; Label47: TLabel; C_Name: TcxTextEdit; - Label43: TLabel; lbl2: TLabel; - Saleser: TcxTextEdit; Label7: TLabel; OrderNo: TcxTextEdit; - Label4: TLabel; ToolButton8: TToolButton; Label35: TLabel; ConMId: TcxTextEdit; @@ -110,10 +103,7 @@ type Label17: TLabel; Label55: TLabel; Label18: TLabel; - OurCoName: TcxButtonEdit; - FtyCoName: TcxButtonEdit; OrdType: TcxComboBox; - DlyDate: TcxDateEdit; OrdDate: TcxDateEdit; ConNo: TcxButtonEdit; CustName: TcxButtonEdit; @@ -124,13 +114,9 @@ type TV1Column7: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn; - cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn8: TcxGridDBColumn; TV1Column1: TcxGridDBColumn; TV1Column2: TcxGridDBColumn; - TV1Column3: TcxGridDBColumn; - TV1Column4: TcxGridDBColumn; - TV1Column5: TcxGridDBColumn; TV1Column6: TcxGridDBColumn; TV1Column8: TcxGridDBColumn; TV1Column9: TcxGridDBColumn; @@ -140,13 +126,9 @@ type Tv2Column7: TcxGridDBColumn; v2Column10: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn; - v2Column2: TcxGridDBColumn; v2Column6: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn; Tv2Column2: TcxGridDBColumn; - Tv2Column3: TcxGridDBColumn; - Tv2Column4: TcxGridDBColumn; - Tv2Column5: TcxGridDBColumn; Tv2Column6: TcxGridDBColumn; Tv2Column8: TcxGridDBColumn; Tv2Column9: TcxGridDBColumn; @@ -165,17 +147,10 @@ type PBQty: TcxTextEdit; Label19: TLabel; DDQty: TcxTextEdit; - Label20: TLabel; - C_Width: TcxTextEdit; - Label21: TLabel; - C_FinishWidth: TcxTextEdit; - Label22: TLabel; - BBNo: TcxTextEdit; Label23: TLabel; C_Color: TcxTextEdit; QZF: TMemo; Tv2Column10: TcxGridDBColumn; - Tv2Column13: TcxGridDBColumn; TV1Column10: TcxGridDBColumn; TV1Column13: TcxGridDBColumn; Label24: TLabel; @@ -189,6 +164,12 @@ type Label27: TLabel; Label28: TLabel; C_TestGramWeight: TcxTextEdit; + Label4: TLabel; + WB_ReedNote: TcxTextEdit; + Label5: TLabel; + WB_YarnDensity: TcxTextEdit; + Label12: TLabel; + GKBH: TcxTextEdit; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -272,7 +253,6 @@ begin Self.C_TestGramWeight.Text := ADOQueryTemp.fieldbyname('C_TestGramWeight').AsString; Self.LoomType.Text := ADOQueryTemp.fieldbyname('LoomType').AsString; Self.C_ReedWidth.Text := ADOQueryTemp.fieldbyname('C_ReedWidth').AsString; - Self.BBNO.Text := ADOQueryTemp.fieldbyname('BBNO').AsString; Self.C_Color.Text := ADOQueryTemp.fieldbyname('C_Color').AsString; // Self.QZF.Text := ADOQueryTemp.fieldbyname('QZF').AsString; @@ -549,7 +529,6 @@ var begin FDate := SGetServerDateTime(ADOQueryTemp); OrdDate.Date := FDate; - DlyDate.Date := FDate; end; procedure TfrmTatGYInPut.FormShow(Sender: TObject); @@ -573,8 +552,8 @@ begin FCoType := 'Ӧ'; if ShowModal = 1 then begin - FtyCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); - FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); +// FtyCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); +// FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); end; end; finally @@ -873,12 +852,6 @@ begin Exit; end; - if Trim(C_Width.Text) = '' then - begin - Application.MessageBox('ϻŷΪ!', 'ʾ', 0); - Exit; - end; - // if Trim(OrdQty.Text) = '' then // begin // Application.MessageBox('Ϊ!', 'ʾ', 0); @@ -1542,6 +1515,10 @@ begin Self.C_ReedWidth.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Width').AsString); Self.Y_Note_PLJ.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString); + Self.WB_ReedNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_ReedNote').AsString); + Self.GKBH.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('GKBH').AsString); + Self.WB_YarnDensity.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnDensity').AsString); + with ADOQuery1 do begin Close; @@ -1595,14 +1572,14 @@ var FOrdQty, FOrdPieceLen: Double; begin FOrdQty := StrToFloatDef(OrdQty.Text, 0); - FOrdPieceLen := StrToFloatDef(OrdPieceLen.Text, 0); - if FOrdPieceLen > 0 then - OrdPiece.Text := IntToStr(Ceil(FOrdQty / FOrdPieceLen)); +// FOrdPieceLen := StrToFloatDef(OrdPieceLen.Text, 0); +// if FOrdPieceLen > 0 then +// OrdPiece.Text := IntToStr(Ceil(FOrdQty / FOrdPieceLen)); end; procedure TfrmTatGYInPut.OrdPiecePropertiesEditValueChanged(Sender: TObject); begin - OrdQty.text := floattostr(strtofloatdef(OrdPiece.text, 0) * strtofloatdef(OrdPieceLen.text, 0)); +// OrdQty.text := floattostr(strtofloatdef(OrdPiece.text, 0) * strtofloatdef(OrdPieceLen.text, 0)); end; procedure TfrmTatGYInPut.OurCoNameDblClick(Sender: TObject); @@ -1620,10 +1597,10 @@ begin FCoType := '˾'; if ShowModal = 1 then begin - OurCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); - OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); - FtyCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); - FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); +// OurCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); +// OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); +// FtyCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); +// FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); end; end; finally @@ -1635,12 +1612,12 @@ procedure TfrmTatGYInPut.OrdPieceChange(Sender: TObject); var FOrdQty, FOrdPieceLen, FOrdPiece: Double; begin - FOrdPieceLen := StrToFloatDef(OrdPieceLen.Text, 0); - FOrdPiece := StrToFloatDef(OrdPiece.Text, 0); - if FOrdPiece > 0 then - OrdQty.Text := FloatToStr(FOrdPieceLen * FOrdPiece) - else - OrdQty.Text := '0'; +// FOrdPieceLen := StrToFloatDef(OrdPieceLen.Text, 0); +// FOrdPiece := StrToFloatDef(OrdPiece.Text, 0); +// if FOrdPiece > 0 then +// OrdQty.Text := FloatToStr(FOrdPieceLen * FOrdPiece) +// else +// OrdQty.Text := '0'; end; procedure TfrmTatGYInPut.C_CodeKeyPress(Sender: TObject; var Key: Char); @@ -1754,22 +1731,16 @@ begin self.CustName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyNo').AsString); self.CustName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyName').AsString); - self.OurCoName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellno').AsString); - self.OurCoName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellname').AsString); - - self.FtyCoName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellno').AsString); - self.FtyCoName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Sellname').AsString); self.ConNo.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString); self.ConMId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConMId').AsString); self.ConSId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConSId').AsString); - self.Saleser.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('Saleser').AsString); self.C_Code.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').AsString); - self.C_Width.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Width').AsString); + self.C_GramWeight.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_GramWeight').AsString); - self.BBNO.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BBNO').AsString); + self.C_Color.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Color').AsString); self.OrdQty.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConQty').AsString); InitClothYarn(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').AsString); diff --git a/E01梭织生产计划/testDll.res b/E01梭织生产计划/testDll.res index 2465ca0e30696a8467f3b1371b2f343eab2cd121..e116c482ff64a90aae29d14ae002699b9b83f166 100644 GIT binary patch delta 12 TcmaDO`9^ZX3mz6m1_lNIB7g(5 delta 12 TcmaDO`9^ZX3m%rnDGUq%COibl