diff --git a/E01梭织生产计划/TatPlan.dpr b/E01梭织生产计划/TatPlan.dpr index 2b983b7..bb54824 100644 --- a/E01梭织生产计划/TatPlan.dpr +++ b/E01梭织生产计划/TatPlan.dpr @@ -37,14 +37,16 @@ uses U_globalVar in '..\..\..\public10\design\U_globalVar.pas', U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas', U_YarnInfoInPut in '..\B02ɴֿ߲\U_YarnInfoInPut.pas' {frmYarnInfoInPut}, - U_WBSpecInPut in '..\A02Ʒ\U_WBSpecInPut.pas' {frmWBSpecInPut}, + U_WBSpecInPut in 'U_WBSpecInPut.pas' {frmWBSpecInPut}, FrameDateSel in '..\A00ͨ\FrameDateSel.pas' {frmFrameDateSel: TFrame}, uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', U_TatGYList in 'U_TatGYList.pas' {frmTatGYList}, U_TatGYInPut in 'U_TatGYInPut.pas' {frmTatGYInPut}, U_TatGYSel in '..\E00֯ͨô\U_TatGYSel.pas' {frmTatGYSel}, U_TatPlanSel in '..\E00֯ͨô\U_TatPlanSel.pas' {frmTatPlanSel}, - U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload}; + U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload}, + U_GKManageSel in '..\A02Ʒ\U_GKManageSel.pas' {frmGKManageSel}, + U_GKInput in 'U_GKInput.pas' {frmGKInput}; {$R *.res} diff --git a/E01梭织生产计划/TatPlan.dproj b/E01梭织生产计划/TatPlan.dproj index 92ff511..9dcf41b 100644 --- a/E01梭织生产计划/TatPlan.dproj +++ b/E01梭织生产计划/TatPlan.dproj @@ -180,7 +180,7 @@
frmYarnInfoInPut
dfm - +
frmWBSpecInPut
dfm @@ -210,6 +210,14 @@
frmPictureUpload
dfm + +
frmGKManageSel
+ dfm + + +
frmGKInput
+ dfm + Cfg_2 Base diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index e41142d..0dd6e33 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,77 +1,83 @@  - 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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas - 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.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.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.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.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm - 1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.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.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.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.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.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.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.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.630,=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.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.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.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.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_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.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm + 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.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.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.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.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.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.259,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A00通用窗体\U_PictureUpload.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.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 2025-09-01 15:46:20.258,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKManageSel.pas + 2025-09-01 16:22:25.613,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas + 2025-09-01 16:22:56.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.pas + 2025-09-01 16:22:56.531,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_GKInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_GKInput.dfm + 2025-09-01 16:24:18.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.pas + 2025-09-01 16:24:18.295,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E01梭织生产计划\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A02基础产品管理\U_WBSpecInPut.dfm @@ -100,8 +106,8 @@ - - + + @@ -153,5 +159,9 @@ + + + + diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache index ecb05cc..2621b63 100644 Binary files a/E01梭织生产计划/TatPlan.identcache and b/E01梭织生产计划/TatPlan.identcache differ diff --git a/E01梭织生产计划/U_GKInput.dfm b/E01梭织生产计划/U_GKInput.dfm new file mode 100644 index 0000000..2a3c5d3 --- /dev/null +++ b/E01梭织生产计划/U_GKInput.dfm @@ -0,0 +1,237 @@ +inherited frmGKInput: TfrmGKInput + Left = 261 + Top = 149 + Caption = #38050#25187#24405#20837 + ClientHeight = 549 + ClientWidth = 863 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Height = -16 + OldCreateOrder = True + Position = poScreenCenter + OnClose = FormClose + ExplicitWidth = 879 + ExplicitHeight = 588 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 863 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 59 + Caption = 'ToolBar1' + Color = clWhite + Images = DataLink_TatPlan.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + object TbSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TbSaveClick + end + object TBClose: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox [1] + Left = 0 + Top = 30 + Width = 863 + Height = 519 + Align = alClient + BevelInner = bvNone + BevelOuter = bvNone + BorderStyle = bsNone + Color = clWhite + Ctl3D = False + ParentColor = False + ParentCtl3D = False + TabOrder = 1 + ExplicitTop = 27 + ExplicitHeight = 522 + object Label2: TLabel + Left = 48 + Top = 73 + Width = 64 + Height = 21 + Caption = #38050#31576#32534#21495 + end + object Label6: TLabel + Left = 48 + Top = 109 + Width = 106 + Height = 21 + Caption = #31576#21495'('#40831'/2'#33521#23544')' + end + object Label39: TLabel + Left = 48 + Top = 146 + Width = 91 + Height = 21 + Caption = #38050#31576#38271#24230'CM' + end + object Label7: TLabel + Left = 48 + Top = 230 + Width = 57 + Height = 21 + Caption = #22791' '#27880 + end + object Label3: TLabel + Left = 399 + Top = 73 + Width = 64 + Height = 21 + Caption = #26550#23376#32534#21495 + end + object Label1: TLabel + Left = 399 + Top = 108 + Width = 64 + Height = 21 + Caption = #26550#23376#23618#21495 + end + object Label4: TLabel + Left = 48 + Top = 186 + Width = 48 + Height = 21 + Caption = #31576#40831#25968 + end + object Label5: TLabel + Left = 399 + Top = 143 + Width = 32 + Height = 21 + Caption = #31576#24133 + end + object Label8: TLabel + Left = 647 + Top = 139 + Width = 16 + Height = 21 + Caption = #8220 + end + object GKKH: TcxTextEdit + Tag = 2 + Left = 159 + Top = 105 + Properties.OnChange = JZBHPropertiesChange + TabOrder = 1 + OnExit = GKKHExit + Width = 200 + end + object GKBH: TcxTextEdit + Tag = 2 + Left = 159 + Top = 69 + Enabled = False + TabOrder = 0 + Text = #33258#21160#29983#25104 + Width = 200 + end + object GKLength: TcxTextEdit + Tag = 2 + Left = 159 + Top = 143 + Properties.OnChange = JZBHPropertiesChange + TabOrder = 2 + Width = 200 + end + object JZBH: TcxTextEdit + Tag = 2 + Left = 469 + Top = 69 + Properties.OnChange = JZBHPropertiesChange + TabOrder = 3 + Width = 200 + end + object Note: TcxMemo + Tag = 2 + Left = 159 + Top = 230 + TabOrder = 4 + Height = 77 + Width = 518 + end + object JZCH: TcxTextEdit + Tag = 2 + Left = 469 + Top = 104 + Properties.OnChange = JZBHPropertiesChange + TabOrder = 5 + Width = 200 + end + object GKCS: TcxTextEdit + Tag = 2 + Left = 159 + Top = 183 + Properties.OnChange = JZBHPropertiesChange + TabOrder = 6 + OnExit = GKKHExit + Width = 200 + end + object GKwidth: TcxTextEdit + Tag = 2 + Left = 469 + Top = 140 + Properties.OnChange = JZBHPropertiesChange + TabOrder = 7 + Width = 172 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Left = 704 + Top = 219 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Left = 706 + Top = 264 + end + inherited ImageList_new32: TImageList + Left = 688 + Top = 166 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + Left = 770 + Top = 88 + DesignInfo = 5767938 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatPlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 747 + Top = 173 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Parameters = <> + Left = 684 + Top = 101 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatPlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 692 + Top = 52 + end +end diff --git a/E01梭织生产计划/U_GKInput.pas b/E01梭织生产计划/U_GKInput.pas new file mode 100644 index 0000000..9c83b54 --- /dev/null +++ b/E01梭织生产计划/U_GKInput.pas @@ -0,0 +1,253 @@ +unit U_GKInput; + +interface + +uses + Windows, Messages, StrUtils, SysUtils, Variants, Classes, Graphics, Controls, + Forms, Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, + ADODB, cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, + StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, + cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, dxCore, + cxDateUtils, cxImage, cxDBEdit, IdExplicitTLSClientServerBase, cxMemo, + U_BaseInput, System.ImageList, Vcl.ImgList, cxImageList, dxSkinsCore, + dxSkinsDefaultPainters; + +type + TfrmGKInput = class(TfrmBaseInput) + ToolBar1: TToolBar; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + TbSave: TToolButton; + ScrollBox1: TScrollBox; + Label2: TLabel; + Label6: TLabel; + Label39: TLabel; + GKKH: TcxTextEdit; + GKBH: TcxTextEdit; + GKLength: TcxTextEdit; + Label7: TLabel; + JZBH: TcxTextEdit; + Label3: TLabel; + Note: TcxMemo; + Label1: TLabel; + JZCH: TcxTextEdit; + Label4: TLabel; + GKCS: TcxTextEdit; + Label5: TLabel; + GKwidth: TcxTextEdit; + Label8: TLabel; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure TbSaveClick(Sender: TObject); + procedure CoareaBtnDnClick(Sender: TObject); + procedure JZBHPropertiesChange(Sender: TObject); + procedure GKKHExit(Sender: TObject); + private + { Private declarations } + procedure InitGrid(); + function SaveData(): Boolean; + public + fFlileFlag: string; + fkhType: string; + { Public declarations } + FGKID: string; + end; + +var + frmGKInput: TfrmGKInput; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel; + +{$R *.dfm} + +procedure TfrmGKInput.InitGrid(); +begin + try + + ADOQueryMain.DisableControls; + with ADOQueryMain do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select * from BS_GK where GKID=''' + Trim(FGKID) + ''''); + Open; + end; + SCSHData(ADOQueryMain, ScrollBox1, 2); + + finally + ADOQueryMain.EnableControls; + end; +end; + +procedure TfrmGKInput.JZBHPropertiesChange(Sender: TObject); +begin + inherited; + GKBH.Text := JZBH.Text + '-' + GKKH.Text + '-' + JZCH.Text + '-' + GKLength.Text; +end; + +procedure TfrmGKInput.FormDestroy(Sender: TObject); +begin + inherited; + frmGKInput := nil; +end; + +procedure TfrmGKInput.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmGKInput.TBCloseClick(Sender: TObject); +begin + ModalResult := 1; +end; + +procedure TfrmGKInput.FormShow(Sender: TObject); +begin + inherited; + InitGrid(); + +end; + +procedure TfrmGKInput.GKKHExit(Sender: TObject); +var + FKCS, FKOUHAO: double; +begin + FKCS := StrToFloatDef(GKCS.Text, 0); + FKOUHAO := StrToFloatDef(GKKH.Text, 0); + if FKOUHAO <> 0 then + begin + GKwidth.Text := FloatToStr(RoundFloat(FKCS / FKOUHAO * 2, 2)); + end; + +end; + +procedure TfrmGKInput.TBRafreshClick(Sender: TObject); +begin + InitGrid(); +end; + +function TfrmGKInput.SaveData(): Boolean; +var + MaxId, MaxSubId, FCoCode, FCCID, MaxCFID: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + if Trim(FGKID) = '' then + begin + if GetLSNo(ADOQueryCmd, MaxId, 'GK', 'BS_GK', 4, 1) = False then + begin + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + + end + else + begin + MaxId := Trim(FGKID); + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from BS_GK where GKID=''' + Trim(FGKID) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FGKID) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('GKID').Value := Trim(MaxId); + RTSetsavedata(ADOQueryCmd, 'BS_GK', ScrollBox1, 2); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from BS_GK where GKBH=' + quotedstr(trim(GKBH.Text))); + Open; + end; + if ADOQueryCmd.RecordCount > 1 then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ֿ۱ظ!', 'ʾ', 0); + Exit; + end; + + ADOQueryCmd.Connection.CommitTrans; + FCCID := Trim(MaxSubId); + Result := True; + except + Result := false; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('쳣!', 'ʾ', 0); + end; +end; + +procedure TfrmGKInput.TbSaveClick(Sender: TObject); +begin + if Trim(JZBH.Text) = '' then + begin + Application.MessageBox('ӱŲΪ!', 'ʾ', 0); + Exit; + end + else if Trim(GKKH.Text) = '' then + begin + Application.MessageBox('غŲΪ!', 'ʾ', 0); + Exit; + end + else if Trim(JZCH.Text) = '' then + begin + Application.MessageBox('ӲŲΪ!', 'ʾ', 0); + Exit; + end + else if Trim(GKLength.Text) = '' then + begin + Application.MessageBox('سȲΪ!', 'ʾ', 0); + Exit; + end; + + if SaveData() then + begin + Application.MessageBox('ɹ!', 'ʾ', 0); + ModalResult := 1; + end; +end; + +procedure TfrmGKInput.CoareaBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; + TBtnEditC(Sender).TxtCode := ''; +end; + +end. + diff --git a/E01梭织生产计划/U_TatCardInPut1.dfm b/E01梭织生产计划/U_TatCardInPut1.dfm index 262337b..6d0029c 100644 --- a/E01梭织生产计划/U_TatCardInPut1.dfm +++ b/E01梭织生产计划/U_TatCardInPut1.dfm @@ -400,7 +400,7 @@ inherited frmTatCardInPut1: TfrmTatCardInPut1 Caption = #22791' '#27880 end object Button3: TButton - Left = 621 + Left = 626 Top = 6 Width = 143 Height = 63 diff --git a/E01梭织生产计划/U_TatPlanMachList.dfm b/E01梭织生产计划/U_TatPlanMachList.dfm index 0eeac0a..d377fcc 100644 --- a/E01梭织生产计划/U_TatPlanMachList.dfm +++ b/E01梭织生产计划/U_TatPlanMachList.dfm @@ -82,16 +82,24 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList ImageIndex = 11 OnClick = ToolButton4Click end - object ToolButton2: TToolButton + object ToolButton7: TToolButton Left = 609 Top = 0 AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = ToolButton7Click + end + object ToolButton2: TToolButton + Left = 680 + Top = 0 + AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 OnClick = ToolButton2Click end object TBClose: TToolButton - Left = 712 + Left = 783 Top = 0 AutoSize = True Caption = #20851#38381 @@ -207,7 +215,6 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList Align = alClient PopupMenu = PM_1 TabOrder = 2 - ExplicitTop = 146 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -242,6 +249,16 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList Options.Editing = False Width = 50 end + object Tv1Column18: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'ssel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Width = 67 + end object v1Column8: TcxGridDBColumn Caption = #26426#22411 DataBinding.FieldName = 'MCType' diff --git a/E01梭织生产计划/U_TatPlanMachList.pas b/E01梭织生产计划/U_TatPlanMachList.pas index b0a485c..64c46a5 100644 --- a/E01梭织生产计划/U_TatPlanMachList.pas +++ b/E01梭织生产计划/U_TatPlanMachList.pas @@ -93,6 +93,8 @@ type Tv1Column12: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + ToolButton7: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDestroy(Sender: TObject); procedure P_CodeNameChange(Sender: TObject); @@ -114,6 +116,7 @@ type procedure ToolButton5Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject); procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure ToolButton7Click(Sender: TObject); private procedure InitGrid(); procedure SetStatus(); @@ -131,7 +134,7 @@ var implementation uses - U_DataLink, U_RTFun, U_ZDYHelp, U_TatPlanMachInput; + U_DataLink, U_RTFun, U_ZDYHelp, U_TatPlanMachInput, U_LabelPrint; {$R *.dfm} procedure TfrmTatPlanMachList.SetStatus(); @@ -525,6 +528,52 @@ begin end; end; +procedure TfrmTatPlanMachList.ToolButton7Click(Sender: TObject); +var + MBCIOID: string; +begin + if CDS_1.IsEmpty then + Exit; + if CDS_1.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + + MBCIOID := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while CDS_1.Locate('SSel', True, []) do + begin + + MBCIOID := MBCIOID + ',' + (Trim(CDS_1.fieldbyname('PMID').AsString)); + + Edit; + FieldByName('SSel').Value := False; + Post; + end; + end; + CDS_1.EnableControls; + + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'PMID'; + FFiltration1 := MBCIOID; + if ShowModal = 1 then + begin + + Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; +end; + procedure TfrmTatPlanMachList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin // if (AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('IsRed').Index]) = 0 then diff --git a/E01梭织生产计划/U_WBSpecInPut.dfm b/E01梭织生产计划/U_WBSpecInPut.dfm new file mode 100644 index 0000000..9324bd1 --- /dev/null +++ b/E01梭织生产计划/U_WBSpecInPut.dfm @@ -0,0 +1,1009 @@ +inherited frmWBSpecInPut: TfrmWBSpecInPut + Left = 88 + Top = 141 + Caption = #25972#32463#24037#33402#24405#20837 + ClientHeight = 845 + ClientWidth = 1174 + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Height = -11 + Font.Name = 'Tahoma' + Position = poMainFormCenter + ExplicitWidth = 1190 + ExplicitHeight = 884 + PixelsPerInch = 96 + TextHeight = 13 + object cxGrid1: TcxGrid [0] + Left = 0 + Top = 439 + Width = 1174 + Height = 406 + Align = alClient + PopupMenu = PopupMenu1 + TabOrder = 0 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.GroupByBox = False + object v1Column18: TcxGridDBColumn + Caption = #37319#36141#21152#24037#21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 106 + end + object v1Column15: TcxGridDBColumn + Caption = #21697#29260 + DataBinding.FieldName = 'SXPinPai' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 103 + end + object Tv1Column3: TcxGridDBColumn + Caption = #34892#21495 + DataBinding.FieldName = 'RowNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column2: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'Y_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = Tv1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 94 + end + object v1SPName: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'Y_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + Properties.OnButtonClick = Tv1Column2PropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 101 + end + object v1SPSpec: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'Y_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + HeaderGlyphAlignmentHorz = taCenter + Options.Editing = False + Width = 116 + end + object v1Column1: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 92 + end + object v1Column10: TcxGridDBColumn + Caption = #36816#36153 + DataBinding.FieldName = 'YunFei' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + VisibleForCustomization = False + Width = 68 + end + object Tv1Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'Y_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20998#29305'(Dtex)' + DataBinding.FieldName = 'Denier' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv1Column8: TcxGridDBColumn + Caption = #25903#25968 + DataBinding.FieldName = 'ZS' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 100 + end + object v1Column3: TcxGridDBColumn + Caption = #26681#25968 + DataBinding.FieldName = 'YarnQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 72 + end + object Tv1Column4: TcxGridDBColumn + Caption = #24490#29615#26681#25968 + DataBinding.FieldName = 'CycleYarnQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged + GroupSummaryAlignment = taCenter + HeaderAlignmentHorz = taCenter + Width = 102 + end + object Tv1Column9: TcxGridDBColumn + Caption = #30334#31859#32463#38271#29992#37327'KG' + DataBinding.FieldName = 'MeterQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 116 + end + object Tv1Column6: TcxGridDBColumn + Caption = #20840#24133#26681#25968 + DataBinding.FieldName = 'QFYARNQTY' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv1Column8PropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 80 + end + object v1Column12: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 118 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar [1] + Tag = 1 + Left = 0 + Top = 0 + Width = 1174 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Images = cxImageList_bar + List = True + ShowCaptions = True + TabOrder = 1 + object TBSave: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TBSaveClick + end + object btn1: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #22383#24067#20449#24687 + ImageIndex = 8 + Visible = False + OnClick = btn1Click + end + object ToolButton1: TToolButton + Left = 150 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object ScrollBox1: TScrollBox [2] + Left = 0 + Top = 30 + Width = 1174 + Height = 379 + Align = alTop + BevelInner = bvNone + BevelOuter = bvNone + BorderStyle = bsNone + Ctl3D = False + ParentCtl3D = False + TabOrder = 2 + object Label3: TLabel + Left = 11 + Top = 11 + Width = 96 + Height = 21 + Caption = #25972#32463#24037#33402#32534#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label8: TLabel + Left = 568 + Top = 8 + Width = 64 + Height = 21 + Caption = #24635#32463#26681#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label1: TLabel + Left = 287 + Top = 6 + Width = 96 + Height = 21 + Caption = #25972#32463#24037#33402#21517#31216 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label2: TLabel + Left = 560 + Top = 312 + Width = 64 + Height = 21 + Caption = #36793#31359#20837#27861 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label5: TLabel + Left = 6 + Top = 315 + Width = 48 + Height = 21 + Caption = #36793#32433#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label10: TLabel + Left = 803 + Top = 274 + Width = 32 + Height = 21 + Caption = #31576#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label12: TLabel + Left = 284 + Top = 274 + Width = 48 + Height = 21 + Caption = #31576#40831#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label18: TLabel + Left = 1038 + Top = 125 + Width = 48 + Height = 13 + Caption = #26159#21542#19978#27974 + Visible = False + end + object Label19: TLabel + Left = 6 + Top = 271 + Width = 64 + Height = 21 + Caption = #38050#31576#32534#21495 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label20: TLabel + Left = 806 + Top = 9 + Width = 64 + Height = 21 + Caption = #25972#32463#31867#22411 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 560 + Top = 274 + Width = 32 + Height = 21 + Caption = #31576#24133 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label24: TLabel + Left = 284 + Top = 309 + Width = 64 + Height = 21 + Caption = #22320#31359#20837#27861 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object WB_Code: TcxTextEdit + Tag = 2 + Left = 113 + Top = 5 + Enabled = False + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 0 + Width = 150 + end + object WB_YarnQty: TcxTextEdit + Tag = 2 + Left = 633 + Top = 5 + ParentColor = True + ParentFont = False + Properties.OnEditValueChanged = WB_YarnQtyPropertiesEditValueChanged + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 1 + OnExit = WB_YarnQtyExit + Width = 150 + end + object WB_Name: TcxTextEdit + Tag = 2 + Left = 400 + Top = 5 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 2 + Width = 150 + end + object WB_ReedNote: TcxTextEdit + Tag = 2 + Left = 630 + Top = 309 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 3 + Width = 373 + end + object BSQTY: TcxTextEdit + Tag = 2 + Left = 110 + Top = 309 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 4 + Width = 150 + end + object WB_ReedNo: TcxTextEdit + Tag = 2 + Left = 873 + Top = 270 + ParentColor = True + ParentFont = False + Properties.ReadOnly = True + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 5 + Width = 130 + end + object C_KCQTY: TcxTextEdit + Tag = 2 + Left = 397 + Top = 270 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 6 + Width = 150 + end + object ISSizing: TcxComboBox + Tag = 2 + Left = 1038 + Top = 103 + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #21542 + #26159) + TabOrder = 7 + Text = #21542 + Visible = False + Width = 99 + end + object GKBH: TcxButtonEdit + Tag = 2 + Left = 110 + Top = 270 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = GKBHPropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 8 + Width = 150 + end + object WB_TYPE: TcxComboBox + Tag = 2 + Left = 876 + Top = 5 + ParentFont = False + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #20998#26465 + #25972#27974#24182) + Properties.OnChange = WB_TYPEPropertiesChange + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 9 + Width = 130 + end + object WB_Width: TcxTextEdit + Tag = 2 + Left = 630 + Top = 270 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 10 + Width = 150 + end + object cxGroupBox1: TcxGroupBox + Left = 3 + Top = 52 + Caption = #20998#26465 + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clBlack + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 11 + Height = 125 + Width = 1003 + object Label6: TLabel + Left = 8 + Top = 28 + Width = 96 + Height = 21 + Caption = #32433#39550#26368#22823#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label7: TLabel + Left = 8 + Top = 74 + Width = 32 + Height = 21 + Caption = #26465#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label9: TLabel + Left = 286 + Top = 74 + Width = 64 + Height = 21 + Caption = #19978#26550#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label11: TLabel + Left = 565 + Top = 74 + Width = 32 + Height = 21 + Caption = #20313#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object F_MAXKESHU: TcxTextEdit + Tag = 2 + Left = 110 + Top = 27 + ParentColor = True + TabOrder = 0 + Text = '640' + OnExit = WB_YarnQtyExit + Width = 150 + end + object F_YarnStripQty: TcxTextEdit + Tag = 2 + Left = 110 + Top = 74 + ParentColor = True + TabOrder = 1 + OnExit = WB_YarnQtyExit + Width = 150 + end + object F_SJKESHU: TcxTextEdit + Tag = 2 + Left = 397 + Top = 74 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 2 + OnExit = WB_YarnQtyExit + Width = 150 + end + object F_YUSHU: TcxTextEdit + Tag = 2 + Left = 630 + Top = 74 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 3 + OnExit = WB_YarnQtyExit + Width = 150 + end + end + object cxGroupBox2: TcxGroupBox + Left = 3 + Top = 52 + Caption = #25972#27974#24182 + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clBlack + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 12 + Height = 194 + Width = 1003 + object Label13: TLabel + Left = 8 + Top = 30 + Width = 96 + Height = 21 + Caption = #32433#39550#26368#22823#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label14: TLabel + Left = 8 + Top = 68 + Width = 32 + Height = 21 + Caption = #20998#32478 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label15: TLabel + Left = 286 + Top = 67 + Width = 64 + Height = 21 + Caption = #20998#32478#26681#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label16: TLabel + Left = 565 + Top = 67 + Width = 32 + Height = 21 + Caption = #24182#25968 + end + object Label17: TLabel + Left = 8 + Top = 105 + Width = 96 + Height = 21 + Caption = #32433#26550#25346#32433#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label21: TLabel + Left = 286 + Top = 105 + Width = 48 + Height = 21 + Caption = #31232#36724#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label22: TLabel + Left = 8 + Top = 143 + Width = 96 + Height = 21 + Caption = #32433#26550#25346#32433#39063#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Label23: TLabel + Left = 286 + Top = 143 + Width = 48 + Height = 21 + Caption = #31232#36724#25968 + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False + end + object Z_MAXKESHU: TcxTextEdit + Tag = 2 + Left = 110 + Top = 29 + ParentColor = True + TabOrder = 0 + Text = '480' + OnExit = WB_YarnQtyExit + Width = 150 + end + object Z_FENJIAO: TcxTextEdit + Tag = 2 + Left = 110 + Top = 67 + ParentColor = True + TabOrder = 1 + OnExit = WB_YarnQtyExit + Width = 150 + end + object Z_FJGENSHU: TcxTextEdit + Tag = 2 + Left = 397 + Top = 67 + ParentColor = True + Properties.ReadOnly = False + TabOrder = 2 + Width = 150 + end + object Z_BINGSHU: TcxTextEdit + Tag = 2 + Left = 630 + Top = 67 + ParentColor = True + Properties.ReadOnly = False + TabOrder = 3 + Width = 150 + end + object Z_SJKESHU1: TcxTextEdit + Tag = 2 + Left = 110 + Top = 105 + ParentColor = True + TabOrder = 4 + Width = 150 + end + object Z_ZHOUSHU1: TcxTextEdit + Tag = 2 + Left = 397 + Top = 105 + ParentColor = True + TabOrder = 5 + Width = 150 + end + object Z_SJKESHU2: TcxTextEdit + Tag = 2 + Left = 110 + Top = 143 + ParentColor = True + TabOrder = 6 + Width = 150 + end + object Z_ZHOUSHU2: TcxTextEdit + Tag = 2 + Left = 397 + Top = 143 + ParentColor = True + TabOrder = 7 + Width = 150 + end + end + object DCRQTY: TcxTextEdit + Tag = 2 + Left = 397 + Top = 305 + ParentColor = True + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.IsFontAssigned = True + TabOrder = 13 + Width = 150 + end + end + object ToolBar2: TToolBar [3] + Tag = 1 + Left = 0 + Top = 409 + Width = 1174 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 95 + Caption = 'ToolBar1' + Images = cxImageList_bar + List = True + ShowCaptions = True + TabOrder = 3 + Visible = False + object ToolButton3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #26032#22686 + ImageIndex = 2 + OnClick = TBAddClick + end + object ToolButton4: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 6 + OnClick = TBDelClick + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #28165#31354#24403#21069#21015 + ImageIndex = 3 + OnClick = ToolButton2Click + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Left = 465 + Top = 592 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Left = 665 + Top = 601 + end + inherited ImageList_new32: TImageList + Left = 170 + Top = 587 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + end + object DS_1: TDataSource + DataSet = CDS_Sub + Left = 256 + Top = 584 + end + object CDS_Sub: TClientDataSet + Aggregates = <> + Params = <> + Left = 304 + Top = 584 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatPlan.ADOLink + Parameters = <> + Left = 736 + Top = 594 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatPlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 386 + Top = 589 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatPlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 580 + Top = 593 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 216 + Top = 584 + end + object PopupMenu1: TPopupMenu + Left = 536 + Top = 512 + object N1: TMenuItem + Caption = #28165#31354#24403#21069#21015 + OnClick = N1Click + end + end +end diff --git a/E01梭织生产计划/U_WBSpecInPut.pas b/E01梭织生产计划/U_WBSpecInPut.pas new file mode 100644 index 0000000..25d856b --- /dev/null +++ b/E01梭织生产计划/U_WBSpecInPut.pas @@ -0,0 +1,888 @@ +unit U_WBSpecInPut; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, + dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList, + cxMemo, dxScrollbarAnnotations, cxContainer, dxSkinsCore, + dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinWXI, cxMaskEdit, cxGroupBox, MATH, Vcl.Menus; + +type + TfrmWBSpecInPut = class(TfrmBaseInput) + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1SPName: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + ToolBar1: TToolBar; + TBSave: TToolButton; + TBClose: TToolButton; + DS_1: TDataSource; + CDS_Sub: TClientDataSet; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + GPM_1: TcxGridPopupMenu; + v1Column12: TcxGridDBColumn; + v1SPSpec: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + v1Column18: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + ToolButton1: TToolButton; + Tv1Column1: TcxGridDBColumn; + ScrollBox1: TScrollBox; + Label3: TLabel; + WB_Code: TcxTextEdit; + ToolBar2: TToolBar; + ToolButton3: TToolButton; + ToolButton4: TToolButton; + Label8: TLabel; + WB_YarnQty: TcxTextEdit; + Tv1Column2: TcxGridDBColumn; + Label1: TLabel; + Label2: TLabel; + WB_Name: TcxTextEdit; + WB_ReedNote: TcxTextEdit; + Label5: TLabel; + BSQTY: TcxTextEdit; + Label10: TLabel; + WB_ReedNo: TcxTextEdit; + Label12: TLabel; + C_KCQTY: TcxTextEdit; + Tv1Column3: TcxGridDBColumn; + btn1: TToolButton; + Tv1Column4: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Label18: TLabel; + ISSizing: TcxComboBox; + Tv1Column8: TcxGridDBColumn; + Label19: TLabel; + GKBH: TcxButtonEdit; + Tv1Column9: TcxGridDBColumn; + Label20: TLabel; + WB_TYPE: TcxComboBox; + Label4: TLabel; + WB_Width: TcxTextEdit; + cxGroupBox1: TcxGroupBox; + Label6: TLabel; + F_MAXKESHU: TcxTextEdit; + Label7: TLabel; + F_YarnStripQty: TcxTextEdit; + Label9: TLabel; + F_SJKESHU: TcxTextEdit; + Label11: TLabel; + F_YUSHU: TcxTextEdit; + cxGroupBox2: TcxGroupBox; + Label13: TLabel; + Label14: TLabel; + Label15: TLabel; + Label16: TLabel; + Z_MAXKESHU: TcxTextEdit; + Z_FENJIAO: TcxTextEdit; + Z_FJGENSHU: TcxTextEdit; + Z_BINGSHU: TcxTextEdit; + Label17: TLabel; + Label21: TLabel; + Z_SJKESHU1: TcxTextEdit; + Z_ZHOUSHU1: TcxTextEdit; + Label22: TLabel; + Label23: TLabel; + Z_SJKESHU2: TcxTextEdit; + Z_ZHOUSHU2: TcxTextEdit; + ToolButton2: TToolButton; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + Label24: TLabel; + DCRQTY: TcxTextEdit; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBAddClick(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBDelClick(Sender: TObject); + procedure TBSaveClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure btn1Click(Sender: TObject); + procedure GYNoDblClick(Sender: TObject); + procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure WB_YarnQtyPropertiesEditValueChanged(Sender: TObject); + procedure WB_YarnQtyExit(Sender: TObject); + + procedure Tv1Column8PropertiesEditValueChanged(Sender: TObject); + procedure WB_TYPEPropertiesChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure N1Click(Sender: TObject); + private + { Private declarations } + function SaveData(): Boolean; + procedure JSJS(); //㾭˿ + + procedure JS(); //㾭˿ + public + { Public declarations } + FWBSID, FSTKName: string; + end; + +var + frmWBSpecInPut: TfrmWBSpecInPut; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_YarnInfoSel, U_TatClothInfoSel, U_TatGYSel, + U_CompanySel, U_GKManageSel; + +{$R *.dfm} + +procedure TfrmWBSpecInPut.JS(); +var + FZGS, FF_MAXKESHU: double; + fTS, FSJKS, FFJ, FF_MAXKESHU2, ffjgs, fbs: Integer; + FSJKS1, FSJKZ2, FXZS1, FXZS2: Integer; +begin +//ܾ/ɴɴ ȡ= +// ܾ/ ȡ= +// ܾ-* ȡ= + FZGS := STRTOFLOATDEF(WB_YarnQty.Text, 0); + FF_MAXKESHU := STRTOFLOATDEF(F_MAXKESHU.Text, 0); + if (FF_MAXKESHU <> 0) and (FZGS <> 0) then + begin + fTS := Ceil(FZGS / FF_MAXKESHU); + F_YarnStripQty.Text := INTTOSTR(fTS); + FSJKS := Floor(FZGS / fTS); + F_SJKESHU.Text := INTTOSTR(FSJKS); + F_YUSHU.Text := FLOATTOSTR(FZGS - FSJKS * fTS); + end + else + begin + Exit; + end; + + // ܾ/ֽ ȡ=ֽʸ + // ֽ/ ɴɴ ȡ= + // ֽ/ ȡ=ϡ + // ֽ- ֽ/ ȡ*6=ϡ + FFJ := StrToIntdef(Z_FENJIAO.Text, 0); + FF_MAXKESHU2 := STRTOintDEF(Z_MAXKESHU.Text, 0); + if (FFJ <> 0) and (FF_MAXKESHU2 <> 0) then + begin + ffjgs := Ceil(FZGS / FFJ); + Z_FJGENSHU.Text := inttostr(ffjgs); + fbs := Ceil(ffjgs / FF_MAXKESHU2); + Z_BINGSHU.Text := inttostr(fbs); + FSJKS1 := Floor(ffjgs / fbs); + if FSJKS1 * fbs = ffjgs then + begin + Z_SJKESHU1.Text := inttostr(FSJKS1); + Z_ZHOUSHU1.Text := inttostr(fbs); + Z_SJKESHU2.Text := '0'; + Z_ZHOUSHU2.Text := '0'; + end + else + begin + Z_SJKESHU1.Text := inttostr(FSJKS1); + Z_ZHOUSHU1.Text := inttostr(fbs - 1); + Z_SJKESHU2.Text := inttostr(ffjgs - (FSJKS1 * (fbs - 1))); + Z_ZHOUSHU2.Text := '1'; + end; + + end; +end; + +procedure TfrmWBSpecInPut.JSJS(); +var + GS, ZGS, MF, DS, WM, TW: double; +begin + if CDS_SUB.IsEmpty then + exit; + with CDS_SUB do + begin + DisableControls; + first; + while not eof do + begin + + with CDS_SUB do + begin + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(WB_Width.text, 0); //ط + + TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ + + if FieldByName('TestDenier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('TestDenier').Value; //D + end; + + end; + if ZGS <> 0 then + begin + with CDS_SUB do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + Post; + end; + end; + next; + end; + First; + EnableControls; + end; +end; + +procedure TfrmWBSpecInPut.N1Click(Sender: TObject); +var + I, J: Integer; + AField: TField; +begin + with tv1 do + begin + // ѡ + + DataController.DataSource.Dataset.Edit; // ༭ģʽ + + // ֶ + for J := 0 to ColumnCount - 1 do + begin + // ȡǰеֶ + AField := Columns[J].DataBinding.Field; + + // ֶδҲ RowNo + if (AField <> nil) and (CompareText(AField.FieldName, 'RowNo') <> 0) and (CompareText(Columns[J].Name, 'RowNo') <> 0) then // ˫ؼȷų + begin + AField.Clear; // ֵֶ + end; + end; + + DataController.DataSource.Dataset.Post; // ύ޸ + + end; +end; + +procedure TfrmWBSpecInPut.btn1Click(Sender: TObject); +begin + try + frmTatClothInfoSel := TfrmTatClothInfoSel.Create(Application); + with frmTatClothInfoSel do + begin + if ShowModal = 1 then + begin + + Self.WB_YarnQty.Text := frmTatClothInfoSel.CDS_1.fieldbyname('C_YarnQty').AsString; + Self.WB_ReedNo.Text := frmTatClothInfoSel.CDS_1.fieldbyname('C_ReedNo').AsString; + + with Self.ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* from BS_Cloth_Yarn A inner join Bs_Cloth_Info B on A.BCIID=B.BCIID'); + sql.Add(' where A.YRType=''˿'' and B.C_Code=''' + Trim(frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').AsString) + ''''); + Open; + First; + Self.CDS_Sub.EmptyDataSet; + while not Eof do + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('RowNo').Value := Self.ADOQueryTemp.fieldbyname('RowNo').value; + FieldByName('Y_Code').Value := Self.ADOQueryTemp.fieldbyname('Y_Code').value; + FieldByName('Y_Name').Value := Self.ADOQueryTemp.fieldbyname('Y_Name').value; + FieldByName('Y_Spec').Value := Self.ADOQueryTemp.fieldbyname('Y_Spec').value; + FieldByName('Y_Color').Value := Self.ADOQueryTemp.fieldbyname('Y_Color').value; + FieldByName('YarnQty').Value := Self.ADOQueryTemp.fieldbyname('YarnQty').value; + FieldByName('CycleYarnQty').Value := Self.ADOQueryTemp.fieldbyname('CycleYarnQty').value; + end; + Next; + end; + + end; + + end; + end; + finally + frmTatClothInfoSel.Free; + end; +end; + +procedure TfrmWBSpecInPut.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmWBSpecInPut.TBAddClick(Sender: TObject); +begin + try + frmYarnInfoSel := TfrmYarnInfoSel.Create(Application); + with frmYarnInfoSel do + begin + FSTKName := 'ɴ'; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Append; + FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').value; + FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').value; + FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').value; + FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').value; + + FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').value; + FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value; + FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').value; + FieldByName('Y_Ratio').Value := 0; + end; + end; + end; + finally + frmYarnInfoSel.Free; + end; +end; + +function TfrmWBSpecInPut.SaveData(): Boolean; +var + MaxNo, MaxYRId: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + + if Trim(FWBSID) = '' then + begin + if GetLSNo(ADOQueryCmd, MaxNo, 'QJ', 'Tat_WB_Spec', 5, 0) = False then + raise Exception.Create('ȡʧܣ'); + + WB_Code.Text := MaxNo; + end + else + begin + MaxNo := Trim(FWBSID); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Tat_WB_Spec where WBSID=''' + Trim(MaxNo) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FWBSID) = '' then + begin + Append; + FieldByName('FillId').Value := Trim(DCode); + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('EditId').Value := Trim(DCode); + FieldByName('Editer').Value := Trim(DName); + FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); + end; + FieldByName('WBSID').Value := Trim(MaxNo); + RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', ScrollBox1, 2); + RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', cxGroupBox1, 2); + RTSetsavedata(ADOQueryCmd, 'Tat_WB_Spec', cxGroupBox2, 2); + Post; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Tat_WB_Spec where WB_Code=' + quotedstr(trim(WB_Code.Text))); + Open; + end; + if ADOQueryCmd.RecordCount > 1 then + raise Exception.Create('ظ!'); + + CDS_Sub.DisableControls; + with CDS_Sub do + begin + First; + while not eof do + begin + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Tat_WB_Formula '); + sql.Add('where WBSID=''' + Trim(MaxNo) + ''''); + sql.Add('and YRId=''' + Trim(CDS_Sub.fieldbyname('YRId').AsString) + ''''); + open; + end; + MaxYRId := Trim(ADOQueryTemp.fieldbyname('YRId').AsString); + if Trim(MaxYRId) = '' then + begin + if GetLSNo(ADOQueryCmd, MaxYRId, 'P', 'Tat_WB_Formula', 4, 0) = False then + raise Exception.Create('ȡʧܣ'); + end + else + begin + MaxYRId := Trim(MaxYRId); + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Tat_WB_Formula where YRId=''' + Trim(MaxYRId) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(MaxYRId) = '' then + begin + Append; + FieldByName('Fillid').Value := Trim(Dcode); + FieldByName('Filler').Value := Trim(DName) + end + else + begin + Edit; + FieldByName('Editid').Value := Trim(Dcode); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp); + end; + FieldByName('WBSID').Value := Trim(MaxNo); + FieldByName('YRId').Value := Trim(MaxYRId); + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'Tat_WB_Formula', 0); + Post; + end; + + Edit; + FieldByName('YRId').Value := Trim(MaxYRId); + Post; + Next; + end; + end; + CDS_Sub.EnableControls; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update Tat_WB_Spec set WB_Name='); // X.RowNo + sql.Add(' SUBSTRING(CAST((select ''+''+X.Y_Name from Tat_WB_Formula X where isnull(X.Y_Name,'''')<>'''' and X.WBSID=Tat_WB_Spec.WBSID order by RowNo for xml path('''') ) AS VARCHAR(200)) , 2, 200)'); + sql.Add('where isnull(WB_Name,'''')='''' and WBSID=''' + Trim(MaxNo) + ''''); +// ShowMessage(SQL.Text); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result := True; + except + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; + +end; + +procedure TfrmWBSpecInPut.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmWBSpecInPut.FormShow(Sender: TObject); +var + fsj: string; +begin + inherited; + ReadCxGrid(trim(self.Caption), Tv1, 'ֿ'); + + with ADOQueryTemp do + begin + Close; + SQL.Clear; + sql.Add(' select * from Tat_WB_Spec '); + sql.Add(' where WBSID=''' + Trim(FWBSID) + ''''); + Open; + end; + SCSHData(ADOQueryTemp, ScrollBox1, 2); + SCSHData(ADOQueryTemp, cxGroupBox1, 2); + SCSHData(ADOQueryTemp, cxGroupBox2, 2); + + if WB_TYPE.Text = '' then + begin + cxGroupBox2.Visible := True; + cxGroupBox1.Visible := false; + end + else + begin + cxGroupBox2.Visible := false; + cxGroupBox1.Visible := True; + end; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add(' select * from Tat_WB_Formula '); + sql.Add(' where WBSID=''' + Trim(FWBSID) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_Sub); + SInitCDSData(ADOQueryTemp, CDS_Sub); + + if FWBSID = '' then + begin + with CDS_Sub do + begin + Append; + FieldByName('RowNo').Value := 'A'; + Post; + + Append; + FieldByName('RowNo').Value := 'B'; + Post; + + Append; + FieldByName('RowNo').Value := 'C'; + Post; + + Append; + FieldByName('RowNo').Value := 'D'; + Post; + + Append; + FieldByName('RowNo').Value := 'E'; + Post; + + Append; + FieldByName('RowNo').Value := 'F'; + Post; + + Append; + FieldByName('RowNo').Value := 'G'; + Post; + + Append; + FieldByName('RowNo').Value := 'H'; + Post; + + end; + end; + +end; + +procedure TfrmWBSpecInPut.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmGKManageSel := tfrmGKManageSel.Create(Application); + with frmGKManageSel do + begin + + if ShowModal = 1 then + begin + SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString; + SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString; + SELF.C_KCQTY.Text := CDS_HZ.FieldByName('GKCS').AsString; + SELF.WB_Width.Text := CDS_HZ.FieldByName('GKwidth').AsString; + end; + end; + finally + frmGKManageSel.Free; + end; +end; + +procedure TfrmWBSpecInPut.GYNoDblClick(Sender: TObject); +begin + inherited; + TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; + TcxButtonEdit(Sender).Text := ''; +end; + +procedure TfrmWBSpecInPut.TBDelClick(Sender: TObject); +begin + if CDS_Sub.IsEmpty then + Exit; + if Trim(CDS_Sub.fieldbyname('YRId').AsString) <> '' then + begin + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' delete Tat_WB_Formula where YRId=''' + Trim(CDS_Sub.fieldbyname('YRId').AsString) + ''''); + ExecSQL; + end; + + ADOQueryCmd.Connection.CommitTrans; + CDS_Sub.Delete; + except + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ɾ쳣!', 'ʾ', 0); + end; + + end + else + begin + CDS_Sub.Delete; + end; + +end; + +procedure TfrmWBSpecInPut.TBSaveClick(Sender: TObject); +begin + ToolBar1.SetFocus; + +// with CDS_Sub do +// begin +// CDS_Sub.First; +// while not Eof do +// begin +// if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then +// begin +// if StrToFloatDef(Trim(CDS_Sub.fieldbyname('YarnQty').AsString), 0) = 0 then +// begin +// Application.MessageBox('Ϊ!', 'ʾ', 0); +// Exit; +// end; +// end; +// +// if trim(CDS_Sub.fieldbyname('Y_Code').asstring) <> '' then +// begin +// if StrToFloatDef(Trim(CDS_Sub.fieldbyname('CycleYarnQty').AsString), 0) = 0 then +// begin +// Application.MessageBox('ѭΪ!', 'ʾ', 0); +// Exit; +// end; +// end; +// +// CDS_Sub.Next; +// end; +// end; + + if SaveData() then + begin + Application.MessageBox('ɹ!', 'ʾ', 0); + ModalResult := 1; + Exit; + end; +end; + +procedure TfrmWBSpecInPut.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption), Tv1, 'ֿ'); +end; + +procedure TfrmWBSpecInPut.ToolButton2Click(Sender: TObject); +var + I, J: Integer; +begin + // ȷõȷͼ TcxGridDBTableView + with TV1 do + begin + // ѡ +// for I := 0 to SelectedRowCount - 1 do +// begin + // ȡݼ¼ + DataController.DataSource.Dataset.Edit; // ༭ģʽ + // ֶ + for J := 0 to ColumnCount - 1 do + begin + // ֵֶֻ/ؼֶΣ + if Columns[J].DataBinding.Field <> nil then + Columns[J].DataBinding.Field.Clear; + end; + DataController.DataSource.Dataset.Post; // ύ޸ +// end; + end; + +end; + +procedure TfrmWBSpecInPut.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmYarnInfoSel := TfrmYarnInfoSel.Create(Application); + with frmYarnInfoSel do + begin + FSTKName := 'ɴ'; + if ShowModal = 1 then + begin + with Self.CDS_Sub do + begin + Edit; + FieldByName('Y_Color').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Color').value; + FieldByName('Y_Code').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Code').value; + FieldByName('Y_Name').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Name').value; + FieldByName('Y_Spec').Value := frmYarnInfoSel.CDS_1.fieldbyname('Y_Spec').value; + + FieldByName('FF').Value := frmYarnInfoSel.CDS_1.fieldbyname('FF').value; + FieldByName('ND').Value := frmYarnInfoSel.CDS_1.fieldbyname('ND').value; + FieldByName('Denier').Value := frmYarnInfoSel.CDS_1.fieldbyname('Denier').value; + FieldByName('ZS').Value := frmYarnInfoSel.CDS_1.fieldbyname('ZS').value; + FieldByName('Y_Ratio').Value := 0; + end; + end; + end; + finally + frmYarnInfoSel.Free; + end; +end; + +procedure TfrmWBSpecInPut.Tv1Column8PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + ZS, ZGS: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + + with CDS_SUB do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + + if FieldByName('QFYARNQTY').Value = null then + begin + ZGS := 0; //QUANFU + end + else + begin + ZGS := FieldByName('QFYARNQTY').Value; //ȫ + end; + + if FieldByName('ZS').Value = null then + begin + ZS := 0; //ѭ + end + else + begin + ZS := FieldByName('ZS').Value; //ѭ + end; + + end; + if ZS <> 0 then + begin + with CDS_SUB do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(ZGS * 0.059 / ZS * 1.08, 2); + Post; + end; + end; +end; + +procedure TfrmWBSpecInPut.v1Column3PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + GS, ZGS, MF, DS, WM, TW, SUNHAO: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + +// with CDS_SUB do +// begin +// Edit; +// FieldByName(FFieldName).Value := mvalue; +// Post; +// +// if FieldByName('YarnQty').Value = null then +// begin +// GS := 0; // +// end +// else +// begin +// GS := FieldByName('YarnQty').Value; // +// end; +// +// if FieldByName('CycleYarnQty').Value = null then +// begin +// ZGS := 0; //ѭ +// end +// else +// begin +// ZGS := FieldByName('CycleYarnQty').Value; //ѭ +// end; +// +// if FieldByName('Denier').Value = null then +// begin +// DS := 0; //D +// end +// else +// begin +// DS := FieldByName('Denier').Value; //D +// end; +// +// TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ +// end; +// if ZGS <> 0 then +// begin +// with CDS_SUB do +// begin +// Edit; +// FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); +// Post; +// end; +// end; +end; + +procedure TfrmWBSpecInPut.WB_TYPEPropertiesChange(Sender: TObject); +begin + if WB_TYPE.Text = '' then + begin + cxGroupBox2.Visible := True; + cxGroupBox1.Visible := false; + end + else + begin + cxGroupBox2.Visible := false; + cxGroupBox1.Visible := True; + end; + +end; + +procedure TfrmWBSpecInPut.WB_YarnQtyExit(Sender: TObject); +begin + JS(); +end; + +procedure TfrmWBSpecInPut.WB_YarnQtyPropertiesEditValueChanged(Sender: TObject); +begin + JSJS(); +end; + +end. + diff --git a/E03梭织坯布检验/TatInsp.dproj.local b/E03梭织坯布检验/TatInsp.dproj.local index 3b481a2..1ad5cf6 100644 --- a/E03梭织坯布检验/TatInsp.dproj.local +++ b/E03梭织坯布检验/TatInsp.dproj.local @@ -1,58 +1,86 @@  - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas - 1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= - 1899/12/30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.935,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj - 1899/12/30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm - 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas - 1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas - 1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.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.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas - 1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj - 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.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.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas - 1899/12/30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas + 1899-12-30 00:00:00.000.151,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas + 1899-12-30 00:00:00.000.231,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E03梭织坯布检验\U_ZKJL.pas + 1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.514,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.935,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.636,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp2.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas + 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas + 1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas + 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj + 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm + 1899-12-30 00:00:00.000.897,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.dfm + 1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.973,D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E03梭织坯布检验\U_TatMachInsp.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/E03梭织坯布检验/TatInsp.identcache b/E03梭织坯布检验/TatInsp.identcache index c30b33c..2dbcb93 100644 Binary files a/E03梭织坯布检验/TatInsp.identcache and b/E03梭织坯布检验/TatInsp.identcache differ diff --git a/E03梭织坯布检验/TatInspLogin.dproj.local b/E03梭织坯布检验/TatInspLogin.dproj.local index 6bcb841..80c3023 100644 --- a/E03梭织坯布检验/TatInspLogin.dproj.local +++ b/E03梭织坯布检验/TatInspLogin.dproj.local @@ -1,6 +1,34 @@  + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -21,7 +49,7 @@ - 1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj - 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj + 1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj + 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj