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

0707

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-07 14:45:30 +08:00
parent 66dfced431
commit 6f1d5981be
11 changed files with 221 additions and 126 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

140
E01梭织生产计划/TatPlan.dproj.local
View File

@ -1,76 +1,76 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>

BIN
E01梭织生产计划/TatPlan.identcache
View File

Binary file not shown.

9
E01梭织生产计划/U_TatGYInPut.dfm
View File

@ -72,6 +72,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Ctl3D = False Ctl3D = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
object Label2: TLabel object Label2: TLabel
Left = 848 Left = 848
Top = 9 Top = 9
@ -668,7 +669,7 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Height = 414 Height = 414
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 9 Properties.Style = 9
ClientRectBottom = 414 ClientRectBottom = 414
@ -744,8 +745,6 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Height = 384 Height = 384
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = -2
ExplicitTop = -1
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -863,6 +862,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Caption = #25439#32791'%' Caption = #25439#32791'%'
DataBinding.FieldName = 'SH' DataBinding.FieldName = 'SH'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
GroupSummaryAlignment = taCenter GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 77 Width = 77
@ -1120,6 +1121,8 @@ inherited frmTatGYInPut: TfrmTatGYInPut
Caption = #25439#32791'CM' Caption = #25439#32791'CM'
DataBinding.FieldName = 'SH' DataBinding.FieldName = 'SH'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TatPlan.grid_head_black Styles.Header = DataLink_TatPlan.grid_head_black
Width = 83 Width = 83

26
E01梭织生产计划/U_TatGYInPut.pas
View File

@ -1022,7 +1022,7 @@ end;
procedure TfrmTatGYInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject); procedure TfrmTatGYInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, TW: double; GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
begin begin
mvalue := TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
@ -1052,6 +1052,15 @@ begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数 ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end; end;
if FieldByName('SH').Value = null then
begin
SUNHAO := 0; //ËðºÄ
end
else
begin
SUNHAO := FieldByName('SH').Value; //ËðºÄ
end;
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅 MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
if FieldByName('TestDenier').Value = null then if FieldByName('TestDenier').Value = null then
@ -1072,7 +1081,7 @@ begin
with CDS_1 do with CDS_1 do
begin begin
Edit; Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS * (1 + SUNHAO / 100) / 9000, 2);
Post; Post;
end; end;
end; end;
@ -1112,7 +1121,7 @@ end;
procedure TfrmTatGYInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject); procedure TfrmTatGYInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM: double; GS, ZGS, MF, DS, WM, sunhao: double;
begin begin
mvalue := TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
@ -1141,7 +1150,14 @@ begin
begin begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数 ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end; end;
if FieldByName('SH').Value = null then
begin
sunhao := 0; //ËðºÄ
end
else
begin
sunhao := FieldByName('SH').Value; //ËðºÄ
end;
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅 MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
if FieldByName('TestDenier').Value = null then if FieldByName('TestDenier').Value = null then
@ -1160,7 +1176,7 @@ begin
with CDS_2 do with CDS_2 do
begin begin
Edit; Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2); FieldByName('MeterQty').Value := roundfloat(GS / ZGS * (MF + sunhao) * DS * WM / 9000, 2);
Post; Post;
end; end;
end; end;

4
E01梭织生产计划/U_TatPlanInPut.dfm
View File

@ -885,6 +885,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Caption = #25439#32791'%' Caption = #25439#32791'%'
DataBinding.FieldName = 'SH' DataBinding.FieldName = 'SH'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
@ -1138,6 +1140,8 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut
Caption = #25439#32791'CM' Caption = #25439#32791'CM'
DataBinding.FieldName = 'SH' DataBinding.FieldName = 'SH'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv2Column1PropertiesEditValueChanged
FooterAlignmentHorz = taCenter FooterAlignmentHorz = taCenter
GroupSummaryAlignment = taCenter GroupSummaryAlignment = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter

68
E01梭织生产计划/U_TatPlanInPut.pas
View File

@ -244,7 +244,7 @@ type
public public
PState, FCopyInt: Integer; PState, FCopyInt: Integer;
FConNo, FMainId, FSubId: string; FConNo, FMainId, FSubId: string;
fStatus : Integer; //0ÐÂÔö, 1ÐÞ¸Ä fStatus: Integer; //0新增, 1修改
{ Public declarations } { Public declarations }
end; end;
@ -571,6 +571,9 @@ begin
ReadCxGrid('坯布生产计划单录入11', Tv1, '坯布生产管理'); ReadCxGrid('坯布生产计划单录入11', Tv1, '坯布生产管理');
ReadCxGrid('坯布生产计划单录入22', Tv2, '坯布生产管理'); ReadCxGrid('坯布生产计划单录入22', Tv2, '坯布生产管理');
InitData(); InitData();
JSJS(); //计算经丝
JSWS(); //计算纬丝
JSKZ();
// Initexcel(); // Initexcel();
end; end;
@ -1032,7 +1035,7 @@ end;
procedure TfrmTatPlanInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject); procedure TfrmTatPlanInPut.TV1Column1PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM, TW, SH: double; GS, ZGS, MF, DS, WM, TW, SUNHAO: double;
begin begin
mvalue := TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
@ -1062,6 +1065,15 @@ begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数 ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end; end;
if FieldByName('SH').Value = null then
begin
SUNHAO := 0; //损耗
end
else
begin
SUNHAO := FieldByName('SH').Value; //损耗
end;
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅 MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
if FieldByName('TestDenier').Value = null then if FieldByName('TestDenier').Value = null then
@ -1076,15 +1088,13 @@ begin
WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密 WM := strtofloatdef(C_FinishLatitudeDensity.text, 0); //纬密
TW := strtofloatdef(C_YarnQty.text, 0); //头纹 TW := strtofloatdef(C_YarnQty.text, 0); //头纹
end; end;
if ZGS <> 0 then if ZGS <> 0 then
begin begin
with CDS_1 do with CDS_1 do
begin begin
Edit; Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS * (1 + SUNHAO / 100) / 9000, 2);
Post; Post;
end; end;
end; end;
@ -1124,7 +1134,7 @@ end;
procedure TfrmTatPlanInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject); procedure TfrmTatPlanInPut.Tv2Column1PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
GS, ZGS, MF, DS, WM: double; GS, ZGS, MF, DS, WM, sunhao: double;
begin begin
mvalue := TcxTextEdit(Sender).EditingText; mvalue := TcxTextEdit(Sender).EditingText;
@ -1153,7 +1163,14 @@ begin
begin begin
ZGS := FieldByName('CycleYarnQty').Value; //循环根数 ZGS := FieldByName('CycleYarnQty').Value; //循环根数
end; end;
if FieldByName('SH').Value = null then
begin
sunhao := 0; //损耗
end
else
begin
sunhao := FieldByName('SH').Value; //损耗
end;
MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅 MF := strtofloatdef(C_ReedWidth.text, 0); //筘幅
if FieldByName('TestDenier').Value = null then if FieldByName('TestDenier').Value = null then
@ -1172,7 +1189,7 @@ begin
with CDS_2 do with CDS_2 do
begin begin
Edit; Edit;
FieldByName('MeterQty').Value := roundfloat(GS / ZGS * MF * DS * WM / 9000, 2); FieldByName('MeterQty').Value := roundfloat(GS / ZGS * (MF + sunhao) * DS * WM / 9000, 2);
Post; Post;
end; end;
end; end;
@ -1181,7 +1198,7 @@ end;
procedure TfrmTatPlanInPut.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmTatPlanInPut.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
if (Trim(Self.C_Code.Text)='') or (Trim(Self.C_Name.text) = '') then if (Trim(Self.C_Code.Text) = '') or (Trim(Self.C_Name.text) = '') then
begin begin
ShowMessage('请先选择产品信息'); ShowMessage('请先选择产品信息');
Exit; Exit;
@ -1545,22 +1562,29 @@ var
begin begin
C_GramWeight.SetFocus; C_GramWeight.SetFocus;
SumJS := IfThen(VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]), if Tv1.DataController.Summary.FooterSummaryValues[0] <> NULL then
0, begin
Tv1.DataController.Summary.FooterSummaryValues[0]); SumJS := IfThen(VarIsNull(Tv1.DataController.Summary.FooterSummaryValues[0]), 0, Tv1.DataController.Summary.FooterSummaryValues[0]);
end;
if Tv2.DataController.Summary.FooterSummaryValues[0] <> NULL then
begin
SumWS := IfThen(VarIsNull(Tv2.DataController.Summary.FooterSummaryValues[0]), 0, Tv2.DataController.Summary.FooterSummaryValues[0]);
end;
SumWS := IfThen(VarIsNull(Tv2.DataController.Summary.FooterSummaryValues[0]),
0,
Tv2.DataController.Summary.FooterSummaryValues[0]);
IsInch := ContainsText(C_ReedWidth.Text, '"'); IsInch := ContainsText(C_ReedWidth.Text, '"');
Val(Trim(StringReplace(C_ReedWidth.Text, '"', '', [rfReplaceAll, rfIgnoreCase])), Val(Trim(StringReplace(C_ReedWidth.Text, '"', '', [rfReplaceAll, rfIgnoreCase])), ReedWidthValue, ErrCode);
ReedWidthValue,
ErrCode);
if (ErrCode = 0) and (ReedWidthValue > 0) then if (ErrCode = 0) and (ReedWidthValue > 0) then
begin begin
if IsInch then if IsInch then
ReedWidthValue := ReedWidthValue * 0.0254; begin
C_GramWeight.Text := FormatFloat('0.00', (SumJS + SumWS) / ReedWidthValue/100); C_GramWeight.Text := FloatToStr(roundfloat(((SumJS + SumWS) / ReedWidthValue * 2.54 * 100), 0));
end
else
begin
C_GramWeight.Text := FloatToStr(roundfloat(((SumJS + SumWS) / ReedWidthValue * 100), 0));
end;
end end
else else
C_GramWeight.Text := '0.00'; C_GramWeight.Text := '0.00';
@ -1780,7 +1804,8 @@ procedure TfrmTatPlanInPut.UpdateCalculations(Sender: TObject);
var var
dQty, dPiece, dPieceLen: Double; dQty, dPiece, dPieceLen: Double;
begin begin
if FUpdating then Exit; if FUpdating then
Exit;
FUpdating := True; FUpdating := True;
try try
dQty := StrToFloatDef(OrdQty.Text, 0); dQty := StrToFloatDef(OrdQty.Text, 0);
@ -1805,7 +1830,6 @@ begin
end; end;
end; end;
procedure TfrmTatPlanInPut.OrdPieceLenPropertiesChange(Sender: TObject); //pi chang procedure TfrmTatPlanInPut.OrdPieceLenPropertiesChange(Sender: TObject); //pi chang
begin begin
UpdateCalculations(Sender); UpdateCalculations(Sender);

2
E01梭织生产计划/U_TatPlanList.dfm
View File

@ -618,8 +618,6 @@ inherited frmTatPlanList: TfrmTatPlanList
#24050#32467#26463 #24050#32467#26463
#20840#37096) #20840#37096)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitLeft = 32
ExplicitTop = 106
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end

6
E01梭织生产计划/U_TatPlanMachInput.dfm
View File

@ -425,7 +425,7 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
object PMType: TcxComboBox object PMType: TcxComboBox
Tag = 2 Tag = 2
Left = 127 Left = 127
Top = 10 Top = 16
Properties.Items.Strings = ( Properties.Items.Strings = (
#23613#26426#23433#25490 #23613#26426#23433#25490
#19979#24067#25913#26426) #19979#24067#25913#26426)
@ -435,8 +435,8 @@ object frmTatPlanMachInput: TfrmTatPlanMachInput
end end
object WB_Code: TcxButtonEdit object WB_Code: TcxButtonEdit
Tag = 2 Tag = 2
Left = 127 Left = 128
Top = 126 Top = 125
BeepOnEnter = False BeepOnEnter = False
Properties.Buttons = < Properties.Buttons = <
item item

47
E01梭织生产计划/U_TatPlanMachInput.pas
View File

@ -259,12 +259,59 @@ begin
end; end;
procedure TfrmTatPlanMachInput.ToolButton1Click(Sender: TObject); procedure TfrmTatPlanMachInput.ToolButton1Click(Sender: TObject);
var
FWB_CODE: string;
begin begin
if CheckData() = False then if CheckData() = False then
begin begin
exit; exit;
end; end;
if FPMID = '' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM Tat_Plan_Mach');
sql.Add('WHERE ISNULL(Status, ''0'') in (''0'') ');
SQL.Add('AND MCNO=' + QuotedStr(FMCNo));
Open;
end;
if ADOQueryTemp.IsEmpty = FALSE then
begin
Application.MessageBox('该机台已存在未完成任务，不允许保存！', '提示', 0);
exit;
end;
end;
if PMType.Text = '下布改机' then
begin
if FPMID = '' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM Tat_Plan_Mach');
sql.Add('WHERE ISNULL(Status, ''0'') in (''1'') ');
SQL.Add('AND MCNO=' + QuotedStr(FMCNo));
Open;
end;
if ADOQueryTemp.IsEmpty = FALSE then
begin
if ADOQueryTemp.FieldByName('WB_CODE').AsString <> WB_CODE.Text then
begin
Application.MessageBox('工艺不同，不允许保存！', '提示', 0);
exit;
end;
end;
end;
end;
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);

12
E01梭织生产计划/U_TatPlanMachList.dfm
View File

@ -207,6 +207,8 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitLeft = -5
ExplicitTop = 146
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -314,7 +316,7 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
end end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #25972#32463#24037#33402#32534#21495 Caption = #25972#32463#24037#33402#32534#21495
DataBinding.FieldName = 'WB_Name' DataBinding.FieldName = 'WB_code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -363,14 +365,15 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
end end
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #19978#36724#26102#38388 Caption = #19978#36724#26102#38388
DataBinding.FieldName = 'SZSJ' DataBinding.FieldName = 'SZSJ2'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object Tv1Column13: TcxGridDBColumn object Tv1Column13: TcxGridDBColumn
Caption = #36724#21345#21495 Caption = #36724#21345#21495
DataBinding.FieldName = 'ZKH' DataBinding.FieldName = 'WBCID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
@ -378,10 +381,11 @@ inherited frmTatPlanMachList: TfrmTatPlanMachList
end end
object Tv1Column14: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
Caption = #32463#36724#31859#25968 Caption = #32463#36724#31859#25968
DataBinding.FieldName = 'JZMS' DataBinding.FieldName = 'JZMS2'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 70
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel

33
E01梭织生产计划/U_TatPlanMachList.pas
View File

@ -14,23 +14,22 @@ uses
cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList,
dxScrollbarAnnotations, dxCore, cxDateUtils, cxMaskEdit, cxCalendar, dxScrollbarAnnotations, dxCore, cxDateUtils, cxMaskEdit, cxCalendar,
dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, cxImage, cxDBEdit, IdFTP, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, cxImage, cxDBEdit, IdFTP,
ShellAPI, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, ShellAPI, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
dxSkinXmas2008Blue;
type type
TfrmTatPlanMachList = class(TfrmBaseList) TfrmTatPlanMachList = class(TfrmBaseList)