From 19ebd6eb13e21ff3338de3dc1320e205725d8338 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Mon, 13 Oct 2025 13:18:40 +0800 Subject: [PATCH] 251013 --- 云翔一码通/U_YMTRKList.dfm | 306 ++++---- 云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.dfm | 712 +++++++++--------- 云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm | 396 +++++----- 工资管理(Wage.dll)/U_DataLink.dfm | 2 +- 工资管理(Wage.dll)/U_DataLink.pas | 3 +- 工资管理(Wage.dll)/U_GetDllForm.pas | 2 +- 工资管理(Wage.dll)/U_XHGZInPut.dfm | 554 +++++++------- 工资管理(Wage.dll)/U_XHGZInPut.pas | 3 +- 工资管理(Wage.dll)/U_XHGZListHZNew.dfm | 137 ++-- 工资管理(Wage.dll)/U_XHGZListHZNew.pas | 2 +- 工资管理(Wage.dll)/U_XHGZListInPut.dfm | 121 +-- 工资管理(Wage.dll)/U_XHGZListInPut.pas | 4 +- 工资管理(Wage.dll)/U_ZdyAttachCP_HX_Sel.dfm | 146 ++-- 工资管理(Wage.dll)/U_ZdyAttachCP_HX_Sel.pas | 5 +- 工资管理(Wage.dll)/Wage.dof | 2 +- .../云翔新贸易(DyeingFinishingPlan.dll)}/AES.pas | 0 .../DyeingFinishingPlan.cfg | 0 .../DyeingFinishingPlan.dof | 0 .../DyeingFinishingPlan.dpr | 0 .../DyeingFinishingPlan.res | Bin .../云翔新贸易(DyeingFinishingPlan.dll)}/ElAES.pas | 0 .../云翔新贸易(DyeingFinishingPlan.dll)}/File.INI | 0 .../ProjectGroup1.bpg | 0 .../SYSTEMSET.ini | 0 .../U_DataLink.dfm | 0 .../U_DataLink.pas | 0 .../U_FileUp.pas | 0 .../U_FjList_RZ.dfm | 0 .../U_FjList_RZ.pas | 0 .../U_GetDllForm.pas | 0 .../U_JYJT_New.dfm | 0 .../U_JYJT_New.pas | 0 .../U_KHListSelJJ.dfm | 0 .../U_KHListSelJJ.pas | 0 .../U_KHList_CX.dfm | 0 .../U_KHList_CX.pas | 0 .../U_LabelList.pas | 0 .../U_MJManageNewFDNew_New.dfm | 0 .../U_MJManageNewFDNew_New.pas | 0 .../U_OrderInPut_New.dfm | 0 .../U_OrderInPut_New.pas | 0 .../U_ProductOrderNewList_BQNew.dfm | 0 .../U_ProductOrderNewList_BQNew.pas | 0 .../U_ProductOrderNewList_New.dfm | 0 .../U_ProductOrderNewList_New.pas | 0 .../U_SCPerson.dfm | 0 .../云翔新贸易(DyeingFinishingPlan.dll)}/U_SLT.dfm | 0 .../U_ZDYHelp.dfm | 0 .../U_ZDYHelp.pas | 0 .../U_ZDYHelpSel.dfm | 0 .../U_ZDYHelpSel.pas | 0 .../U_iniParam.pas | 0 .../U_testdll.dfm | 0 .../U_testdll.pas | 0 .../testDll.cfg | 0 .../testDll.dof | 0 .../testDll.dpr | 0 .../testDll.res | Bin .../testDllDJ.res | Bin .../云翔新贸易(DyeingFinishingPlan.dll)}/已登记.wav | Bin .../条码错误.wav | Bin .../登记成功.wav | Bin .../生产计划单(DyeingFinishingPlan.dll)我}/AES.pas | 0 .../DyeingFinishingPlan.cfg | 0 .../DyeingFinishingPlan.dof | 0 .../DyeingFinishingPlan.dpr | 0 .../DyeingFinishingPlan.res | Bin .../生产计划单(DyeingFinishingPlan.dll)我}/ElAES.pas | 0 .../生产计划单(DyeingFinishingPlan.dll)我}/File.INI | 0 .../ProjectGroup1.bpg | 0 .../SYSTEMSET.ini | 0 .../U_BPZdy_LRM.dfm | 0 .../U_BPZdy_LRM.pas | 0 .../U_CPDBAO.dfm | 0 .../U_CPDBAO.pas | 0 .../U_CheJianXS.dfm | 0 .../U_CheJianXS.pas | 0 .../U_DataLink.dfm | 0 .../U_DataLink.pas | 0 .../U_FileUp.pas | 0 .../U_FjList_RZ.dfm | 0 .../U_FjList_RZ.pas | 0 .../U_GYSList.dfm | 0 .../U_GYSList.pas | 0 .../U_GetDllForm.pas | 0 .../U_JYColorOrdList.dfm | 0 .../U_JYColorOrdList.pas | 0 .../U_JYHZList.dfm | 0 .../U_JYHZList.pas | 0 .../U_JYJT_New.dfm | 0 .../U_JYJT_New.pas | 0 .../U_JYOrdColorList.dfm | 0 .../U_JYOrdColorList.pas | 0 .../U_JYOrdList.dfm | 0 .../U_JYOrdList.pas | 0 .../U_JYRLList.dfm | 0 .../U_JYRLList.pas | 0 .../U_KHGYSList.dfm | 0 .../U_KHGYSList.pas | 0 .../U_KHListSelJJ.dfm | 0 .../U_KHListSelJJ.pas | 0 .../U_KHList_CX.dfm | 0 .../U_KHList_CX.pas | 0 .../U_LabelAdd.dfm | 0 .../U_LabelAdd.pas | 0 .../U_LabelList.dfm | 0 .../U_LabelList.pas | 0 .../U_MJEdit.dfm | 0 .../U_MJEdit.pas | 0 .../U_MJJYTH.dfm | 0 .../U_MJJYTH.pas | 0 .../U_MJManageNewFDNew_New.dfm | 0 .../U_MJManageNewFDNew_New.pas | 0 .../U_MLMangeRSSel.dfm | 0 .../U_MLMangeRSSel.pas | 0 .../U_MLOrderMXSel.dfm | 0 .../U_MLOrderMXSel.pas | 0 .../U_OrdColorSel.dfm | 0 .../U_OrdColorSel.pas | 0 .../U_OrderHCList.dfm | 0 .../U_OrderHCList.pas | 0 .../U_OrderInPut_New.dfm | 0 .../U_OrderInPut_New.pas | 0 .../U_OrderInPut_New210625.dfm | 0 .../U_OrderInPut_New210625.pas | 0 .../U_OrderInPut_New220327.dfm | 0 .../U_OrderInPut_New220327.pas | 0 .../U_OrderList.dfm | 0 .../U_OrderList.pas | 0 .../U_PRTLable.dfm | 0 .../U_PRTLable.pas | 0 .../U_ProductOrderNewList_BQNew.dfm | 0 .../U_ProductOrderNewList_BQNew.pas | 0 .../U_ProductOrderNewList_New.dfm | 0 .../U_ProductOrderNewList_New.pas | 0 .../U_SCColor.dfm | 0 .../U_SCColor.pas | 0 .../U_SCPerson.dfm | 0 .../生产计划单(DyeingFinishingPlan.dll)我}/U_SLT.dfm | 0 .../U_ZDYHelp.dfm | 0 .../U_ZDYHelp.pas | 0 .../U_ZDYHelpSel.dfm | 0 .../U_ZDYHelpSel.pas | 0 .../U_ZHCPList_Sel.dfm | 0 .../U_ZHCPList_Sel.pas | 0 .../U_ZdyAttachCP_HX_sel.dfm | 0 .../U_ZdyAttachCP_HX_sel.pas | 0 .../U_iniParam.pas | 0 .../U_testdll.dfm | 0 .../U_testdll.pas | 0 .../testDll.cfg | 0 .../testDll.dof | 0 .../testDll.dpr | 0 .../testDll.res | Bin .../testDllDJ.res | Bin {生产计划单原 => 废/生产计划单原}/AES.pas | 0 .../生产计划单原}/DyeingFinishingPlan.cfg | 0 .../生产计划单原}/DyeingFinishingPlan.dof | 0 .../生产计划单原}/DyeingFinishingPlan.dpr | 0 .../生产计划单原}/DyeingFinishingPlan.res | Bin {生产计划单原 => 废/生产计划单原}/ElAES.pas | 0 {生产计划单原 => 废/生产计划单原}/File.INI | 0 .../生产计划单原}/ProjectGroup1.bpg | 0 .../生产计划单原}/SYSTEMSET.ini | 0 .../生产计划单原}/U_BPZdy_LRM.dfm | 0 .../生产计划单原}/U_BPZdy_LRM.pas | 0 .../生产计划单原}/U_CPDBAO.dfm | 0 .../生产计划单原}/U_CPDBAO.pas | 0 .../生产计划单原}/U_CheJianXS.dfm | 0 .../生产计划单原}/U_CheJianXS.pas | 0 .../生产计划单原}/U_DataLink.dfm | 0 .../生产计划单原}/U_DataLink.pas | 0 .../生产计划单原}/U_FileUp.pas | 0 .../生产计划单原}/U_FjList_RZ.dfm | 0 .../生产计划单原}/U_FjList_RZ.pas | 0 .../生产计划单原}/U_GYSList.dfm | 0 .../生产计划单原}/U_GYSList.pas | 0 .../生产计划单原}/U_GetDllForm.pas | 0 .../生产计划单原}/U_JYColorOrdList.dfm | 0 .../生产计划单原}/U_JYColorOrdList.pas | 0 .../生产计划单原}/U_JYHZList.dfm | 0 .../生产计划单原}/U_JYHZList.pas | 0 .../生产计划单原}/U_JYJT_New.dfm | 0 .../生产计划单原}/U_JYJT_New.pas | 0 .../生产计划单原}/U_JYOrdColorList.dfm | 0 .../生产计划单原}/U_JYOrdColorList.pas | 0 .../生产计划单原}/U_JYOrdList.dfm | 0 .../生产计划单原}/U_JYOrdList.pas | 0 .../生产计划单原}/U_JYRLList.dfm | 0 .../生产计划单原}/U_JYRLList.pas | 0 .../生产计划单原}/U_KHGYSList.dfm | 0 .../生产计划单原}/U_KHGYSList.pas | 0 .../生产计划单原}/U_KHListSelJJ.dfm | 0 .../生产计划单原}/U_KHListSelJJ.pas | 0 .../生产计划单原}/U_KHList_CX.dfm | 0 .../生产计划单原}/U_KHList_CX.pas | 0 .../生产计划单原}/U_LabelAdd.dfm | 0 .../生产计划单原}/U_LabelAdd.pas | 0 .../生产计划单原}/U_LabelList.dfm | 0 .../生产计划单原}/U_LabelList.pas | 0 .../生产计划单原}/U_MJEdit.dfm | 0 .../生产计划单原}/U_MJEdit.pas | 0 .../生产计划单原}/U_MJJYTH.dfm | 0 .../生产计划单原}/U_MJJYTH.pas | 0 .../生产计划单原}/U_MJManageNewFDNew_New.dfm | 0 .../生产计划单原}/U_MJManageNewFDNew_New.pas | 0 .../生产计划单原}/U_MLMangeRSSel.dfm | 0 .../生产计划单原}/U_MLMangeRSSel.pas | 0 .../生产计划单原}/U_MLOrderMXSel.dfm | 0 .../生产计划单原}/U_MLOrderMXSel.pas | 0 .../生产计划单原}/U_OrdColorSel.dfm | 0 .../生产计划单原}/U_OrdColorSel.pas | 0 .../生产计划单原}/U_OrderHCList.dfm | 0 .../生产计划单原}/U_OrderHCList.pas | 0 .../生产计划单原}/U_OrderInPut_New.dfm | 0 .../生产计划单原}/U_OrderInPut_New.pas | 0 .../生产计划单原}/U_OrderInPut_New210625.dfm | 0 .../生产计划单原}/U_OrderInPut_New210625.pas | 0 .../生产计划单原}/U_OrderInPut_New220327.dfm | 0 .../生产计划单原}/U_OrderInPut_New220327.pas | 0 .../生产计划单原}/U_OrderList.dfm | 0 .../生产计划单原}/U_OrderList.pas | 0 .../生产计划单原}/U_PRTLable.dfm | 0 .../生产计划单原}/U_PRTLable.pas | 0 .../生产计划单原}/U_ProductOrderNewList_BQNew.dfm | 0 .../生产计划单原}/U_ProductOrderNewList_BQNew.pas | 0 .../生产计划单原}/U_ProductOrderNewList_New.dfm | 0 .../生产计划单原}/U_ProductOrderNewList_New.pas | 0 .../生产计划单原}/U_SCColor.dfm | 0 .../生产计划单原}/U_SCColor.pas | 0 .../生产计划单原}/U_SCPerson.dfm | 0 {生产计划单原 => 废/生产计划单原}/U_SLT.dfm | 0 .../生产计划单原}/U_ZDYHelp.dfm | 0 .../生产计划单原}/U_ZDYHelp.pas | 0 .../生产计划单原}/U_ZDYHelpSel.dfm | 0 .../生产计划单原}/U_ZDYHelpSel.pas | 0 .../生产计划单原}/U_ZHCPList_Sel.dfm | 0 .../生产计划单原}/U_ZHCPList_Sel.pas | 0 .../生产计划单原}/U_ZdyAttachCP_HX_sel.dfm | 0 .../生产计划单原}/U_ZdyAttachCP_HX_sel.pas | 0 .../生产计划单原}/U_iniParam.pas | 0 .../生产计划单原}/U_testdll.dfm | 0 .../生产计划单原}/U_testdll.pas | 0 {生产计划单原 => 废/生产计划单原}/testDll.cfg | 0 {生产计划单原 => 废/生产计划单原}/testDll.dof | 0 {生产计划单原 => 废/生产计划单原}/testDll.dpr | 0 {生产计划单原 => 废/生产计划单原}/testDll.res | Bin .../生产计划单原}/testDllDJ.res | Bin .../U_GetDllForm.pas | 20 +- .../U_OrderHCList.dfm | 263 +++---- .../U_OrderHCList.pas | 65 +- 251 files changed, 1400 insertions(+), 1343 deletions(-) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/AES.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/DyeingFinishingPlan.cfg (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/DyeingFinishingPlan.dof (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/DyeingFinishingPlan.dpr (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/DyeingFinishingPlan.res (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/ElAES.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/File.INI (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/ProjectGroup1.bpg (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/SYSTEMSET.ini (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_DataLink.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_DataLink.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_FileUp.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_FjList_RZ.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_FjList_RZ.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_GetDllForm.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_JYJT_New.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_JYJT_New.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_KHListSelJJ.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_KHListSelJJ.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_KHList_CX.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_KHList_CX.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_LabelList.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_MJManageNewFDNew_New.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_MJManageNewFDNew_New.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_OrderInPut_New.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_OrderInPut_New.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_ProductOrderNewList_BQNew.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_ProductOrderNewList_BQNew.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_ProductOrderNewList_New.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_ProductOrderNewList_New.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_SCPerson.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_SLT.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_ZDYHelp.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_ZDYHelp.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_ZDYHelpSel.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_ZDYHelpSel.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_iniParam.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_testdll.dfm (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/U_testdll.pas (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/testDll.cfg (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/testDll.dof (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/testDll.dpr (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/testDll.res (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/testDllDJ.res (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/已登记.wav (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/条码错误.wav (100%) rename {云翔新贸易(DyeingFinishingPlan.dll) => 废/云翔新贸易(DyeingFinishingPlan.dll)}/登记成功.wav (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/AES.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/DyeingFinishingPlan.cfg (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/DyeingFinishingPlan.dof (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/DyeingFinishingPlan.dpr (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/DyeingFinishingPlan.res (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/ElAES.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/File.INI (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/ProjectGroup1.bpg (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/SYSTEMSET.ini (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_BPZdy_LRM.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_BPZdy_LRM.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_CPDBAO.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_CPDBAO.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_CheJianXS.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_CheJianXS.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_DataLink.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_DataLink.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_FileUp.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_FjList_RZ.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_FjList_RZ.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_GYSList.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_GYSList.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_GetDllForm.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_JYColorOrdList.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_JYColorOrdList.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_JYHZList.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_JYHZList.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_JYJT_New.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_JYJT_New.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_JYOrdColorList.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_JYOrdColorList.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_JYOrdList.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_JYOrdList.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_JYRLList.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_JYRLList.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_KHGYSList.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_KHGYSList.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_KHListSelJJ.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_KHListSelJJ.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_KHList_CX.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_KHList_CX.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_LabelAdd.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_LabelAdd.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_LabelList.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_LabelList.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_MJEdit.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_MJEdit.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_MJJYTH.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_MJJYTH.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_MJManageNewFDNew_New.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_MJManageNewFDNew_New.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_MLMangeRSSel.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_MLMangeRSSel.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_MLOrderMXSel.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_MLOrderMXSel.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_OrdColorSel.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_OrdColorSel.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_OrderHCList.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_OrderHCList.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_OrderInPut_New.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_OrderInPut_New.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_OrderInPut_New210625.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_OrderInPut_New210625.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_OrderInPut_New220327.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_OrderInPut_New220327.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_OrderList.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_OrderList.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_PRTLable.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_PRTLable.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_ProductOrderNewList_BQNew.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_ProductOrderNewList_BQNew.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_ProductOrderNewList_New.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_ProductOrderNewList_New.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_SCColor.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_SCColor.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_SCPerson.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_SLT.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_ZDYHelp.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_ZDYHelp.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_ZDYHelpSel.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_ZDYHelpSel.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_ZHCPList_Sel.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_ZHCPList_Sel.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_ZdyAttachCP_HX_sel.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_ZdyAttachCP_HX_sel.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_iniParam.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_testdll.dfm (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/U_testdll.pas (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/testDll.cfg (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/testDll.dof (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/testDll.dpr (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/testDll.res (100%) rename {生产计划单(DyeingFinishingPlan.dll)我 => 废/生产计划单(DyeingFinishingPlan.dll)我}/testDllDJ.res (100%) rename {生产计划单原 => 废/生产计划单原}/AES.pas (100%) rename {生产计划单原 => 废/生产计划单原}/DyeingFinishingPlan.cfg (100%) rename {生产计划单原 => 废/生产计划单原}/DyeingFinishingPlan.dof (100%) rename {生产计划单原 => 废/生产计划单原}/DyeingFinishingPlan.dpr (100%) rename {生产计划单原 => 废/生产计划单原}/DyeingFinishingPlan.res (100%) rename {生产计划单原 => 废/生产计划单原}/ElAES.pas (100%) rename {生产计划单原 => 废/生产计划单原}/File.INI (100%) rename {生产计划单原 => 废/生产计划单原}/ProjectGroup1.bpg (100%) rename {生产计划单原 => 废/生产计划单原}/SYSTEMSET.ini (100%) rename {生产计划单原 => 废/生产计划单原}/U_BPZdy_LRM.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_BPZdy_LRM.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_CPDBAO.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_CPDBAO.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_CheJianXS.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_CheJianXS.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_DataLink.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_DataLink.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_FileUp.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_FjList_RZ.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_FjList_RZ.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_GYSList.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_GYSList.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_GetDllForm.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_JYColorOrdList.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_JYColorOrdList.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_JYHZList.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_JYHZList.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_JYJT_New.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_JYJT_New.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_JYOrdColorList.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_JYOrdColorList.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_JYOrdList.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_JYOrdList.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_JYRLList.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_JYRLList.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_KHGYSList.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_KHGYSList.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_KHListSelJJ.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_KHListSelJJ.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_KHList_CX.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_KHList_CX.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_LabelAdd.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_LabelAdd.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_LabelList.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_LabelList.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_MJEdit.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_MJEdit.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_MJJYTH.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_MJJYTH.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_MJManageNewFDNew_New.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_MJManageNewFDNew_New.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_MLMangeRSSel.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_MLMangeRSSel.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_MLOrderMXSel.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_MLOrderMXSel.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_OrdColorSel.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_OrdColorSel.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_OrderHCList.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_OrderHCList.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_OrderInPut_New.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_OrderInPut_New.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_OrderInPut_New210625.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_OrderInPut_New210625.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_OrderInPut_New220327.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_OrderInPut_New220327.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_OrderList.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_OrderList.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_PRTLable.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_PRTLable.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_ProductOrderNewList_BQNew.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_ProductOrderNewList_BQNew.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_ProductOrderNewList_New.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_ProductOrderNewList_New.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_SCColor.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_SCColor.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_SCPerson.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_SLT.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_ZDYHelp.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_ZDYHelp.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_ZDYHelpSel.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_ZDYHelpSel.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_ZHCPList_Sel.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_ZHCPList_Sel.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_ZdyAttachCP_HX_sel.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_ZdyAttachCP_HX_sel.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_iniParam.pas (100%) rename {生产计划单原 => 废/生产计划单原}/U_testdll.dfm (100%) rename {生产计划单原 => 废/生产计划单原}/U_testdll.pas (100%) rename {生产计划单原 => 废/生产计划单原}/testDll.cfg (100%) rename {生产计划单原 => 废/生产计划单原}/testDll.dof (100%) rename {生产计划单原 => 废/生产计划单原}/testDll.dpr (100%) rename {生产计划单原 => 废/生产计划单原}/testDll.res (100%) rename {生产计划单原 => 废/生产计划单原}/testDllDJ.res (100%) diff --git a/云翔一码通/U_YMTRKList.dfm b/云翔一码通/U_YMTRKList.dfm index e1d443c..72c60d6 100644 --- a/云翔一码通/U_YMTRKList.dfm +++ b/云翔一码通/U_YMTRKList.dfm @@ -1,13 +1,13 @@ object frmYMTRKList: TfrmYMTRKList Left = 267 Top = 100 - Width = 1370 - Height = 700 + Width = 1470 + Height = 823 Caption = #38754#26009#22238#20179#30331#35760 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,12 +15,12 @@ object frmYMTRKList: TfrmYMTRKList OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 12 + PixelsPerInch = 120 + TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1362 + Width = 1462 Height = 33 ButtonHeight = 30 ButtonWidth = 107 @@ -105,13 +105,15 @@ object frmYMTRKList: TfrmYMTRKList object ToolButton1: TToolButton Left = 552 Top = 0 + AutoSize = True Caption = #39044#35272#25171#21360 ImageIndex = 4 OnClick = ToolButton1Click end object ToolButton2: TToolButton - Left = 659 + Left = 639 Top = 0 + AutoSize = True Caption = #24555#36895#25171#21360 ImageIndex = 4 OnClick = ToolButton2Click @@ -120,119 +122,119 @@ object frmYMTRKList: TfrmYMTRKList object Panel1: TPanel Left = 0 Top = 33 - Width = 1362 - Height = 72 + Width = 1462 + Height = 90 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label1: TLabel - Left = 28 - Top = 12 - Width = 48 - Height = 12 + Left = 35 + Top = 15 + Width = 60 + Height = 15 Caption = #26597#35810#26102#38388 end object Label2: TLabel - Left = 64 - Top = 36 - Width = 12 - Height = 12 + Left = 80 + Top = 45 + Width = 15 + Height = 15 Caption = #33267 end object Label3: TLabel - Left = 318 - Top = 12 - Width = 24 - Height = 12 + Left = 398 + Top = 15 + Width = 30 + Height = 15 Caption = #21697#21517 end object Label4: TLabel - Left = 435 - Top = 12 - Width = 36 - Height = 12 + Left = 544 + Top = 15 + Width = 45 + Height = 15 Caption = #21152#24037#21378 end object Label5: TLabel - Left = 178 - Top = 12 - Width = 48 - Height = 12 + Left = 223 + Top = 15 + Width = 60 + Height = 15 Caption = #20837#24211#21333#21495 end object Label8: TLabel - Left = 318 - Top = 36 - Width = 24 - Height = 12 + Left = 398 + Top = 45 + Width = 30 + Height = 15 Caption = #35268#26684 end object Label6: TLabel - Left = 435 - Top = 36 - Width = 36 - Height = 12 + Left = 544 + Top = 45 + Width = 46 + Height = 15 Caption = #25104' '#20998 end object Label7: TLabel - Left = 561 - Top = 36 - Width = 48 - Height = 12 + Left = 701 + Top = 45 + Width = 61 + Height = 15 Caption = #35746' '#21333' '#21495 end object Label9: TLabel - Left = 561 - Top = 12 - Width = 48 - Height = 12 + Left = 701 + Top = 15 + Width = 60 + Height = 15 Caption = #23384#25918#24037#21378 end object Label12: TLabel - Left = 178 - Top = 36 - Width = 48 - Height = 12 + Left = 223 + Top = 45 + Width = 60 + Height = 15 Caption = #20837#24211#31867#22411 end object Label11: TLabel - Left = 823 - Top = 37 - Width = 48 - Height = 12 + Left = 1029 + Top = 46 + Width = 60 + Height = 15 Caption = #26579#21378#32568#21495 end object Label13: TLabel - Left = 704 - Top = 12 - Width = 24 - Height = 12 + Left = 880 + Top = 15 + Width = 30 + Height = 15 Caption = #39068#33394 end object Label15: TLabel - Left = 704 - Top = 37 - Width = 24 - Height = 12 + Left = 880 + Top = 46 + Width = 30 + Height = 15 Caption = #33457#22411 end object BegDate: TDateTimePicker - Left = 77 - Top = 9 - Width = 87 - Height = 20 + Left = 96 + Top = 11 + Width = 109 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 TabOrder = 0 end object EndDate: TDateTimePicker - Left = 77 - Top = 32 - Width = 87 - Height = 20 + Left = 96 + Top = 40 + Width = 109 + Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -240,9 +242,9 @@ object frmYMTRKList: TfrmYMTRKList end object SPName: TEdit Tag = 2 - Left = 345 - Top = 9 - Width = 80 + Left = 431 + Top = 11 + Width = 100 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 TabOrder = 2 @@ -250,9 +252,9 @@ object frmYMTRKList: TfrmYMTRKList end object FactoryName: TEdit Tag = 2 - Left = 472 - Top = 9 - Width = 80 + Left = 590 + Top = 11 + Width = 100 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 TabOrder = 3 @@ -260,9 +262,9 @@ object frmYMTRKList: TfrmYMTRKList end object SPID: TEdit Tag = 2 - Left = 228 - Top = 9 - Width = 80 + Left = 285 + Top = 11 + Width = 100 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 TabOrder = 1 @@ -270,9 +272,9 @@ object frmYMTRKList: TfrmYMTRKList end object SPSpec: TEdit Tag = 2 - Left = 345 - Top = 32 - Width = 80 + Left = 431 + Top = 40 + Width = 100 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 TabOrder = 9 @@ -280,9 +282,9 @@ object frmYMTRKList: TfrmYMTRKList end object SPCF: TEdit Tag = 2 - Left = 472 - Top = 32 - Width = 80 + Left = 590 + Top = 40 + Width = 100 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 TabOrder = 10 @@ -290,9 +292,9 @@ object frmYMTRKList: TfrmYMTRKList end object OrderNo: TEdit Tag = 2 - Left = 612 - Top = 33 - Width = 80 + Left = 765 + Top = 41 + Width = 100 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 TabOrder = 11 @@ -300,9 +302,9 @@ object frmYMTRKList: TfrmYMTRKList end object ToFactoryName: TEdit Tag = 2 - Left = 612 - Top = 9 - Width = 80 + Left = 765 + Top = 11 + Width = 100 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 TabOrder = 4 @@ -310,13 +312,13 @@ object frmYMTRKList: TfrmYMTRKList end object CRType: TComboBox Tag = 2 - Left = 228 - Top = 32 - Width = 80 - Height = 20 + Left = 285 + Top = 40 + Width = 100 + Height = 23 Style = csDropDownList ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 - ItemHeight = 12 + ItemHeight = 15 TabOrder = 8 OnChange = TBFindClick Items.Strings = ( @@ -331,9 +333,9 @@ object frmYMTRKList: TfrmYMTRKList end object RCGangNo: TEdit Tag = 2 - Left = 874 - Top = 34 - Width = 80 + Left = 1093 + Top = 43 + Width = 100 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 TabOrder = 12 @@ -341,9 +343,9 @@ object frmYMTRKList: TfrmYMTRKList end object SPColor: TEdit Tag = 2 - Left = 729 - Top = 9 - Width = 80 + Left = 911 + Top = 11 + Width = 100 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 TabOrder = 5 @@ -351,9 +353,9 @@ object frmYMTRKList: TfrmYMTRKList end object SPHX: TEdit Tag = 2 - Left = 729 - Top = 34 - Width = 80 + Left = 911 + Top = 43 + Width = 100 Height = 20 ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 TabOrder = 6 @@ -362,9 +364,9 @@ object frmYMTRKList: TfrmYMTRKList end object cxGrid2: TcxGrid Left = 0 - Top = 105 - Width = 1078 - Height = 564 + Top = 123 + Width = 1107 + Height = 663 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView @@ -658,18 +660,18 @@ object frmYMTRKList: TfrmYMTRKList end end object Panel2: TPanel - Left = 1078 - Top = 105 - Width = 284 - Height = 564 + Left = 1107 + Top = 123 + Width = 355 + Height = 663 Align = alRight Caption = 'Panel2' TabOrder = 3 object cxGrid1: TcxGrid Left = 1 - Top = 71 - Width = 282 - Height = 492 + Top = 82 + Width = 353 + Height = 580 Align = alClient TabOrder = 0 object TvMX: TcxGridDBTableView @@ -730,7 +732,7 @@ object frmYMTRKList: TfrmYMTRKList end object TvMXMXQty: TcxGridDBColumn Caption = #25968#37327 - DataBinding.FieldName = 'MXQty' + DataBinding.FieldName = 'MQty' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -750,11 +752,11 @@ object frmYMTRKList: TfrmYMTRKList end object ToolBar2: TToolBar Left = 1 - Top = 42 - Width = 282 + Top = 53 + Width = 353 Height = 29 ButtonHeight = 30 - ButtonWidth = 71 + ButtonWidth = 80 Caption = 'ToolBar2' Images = DataLink_YXYMT.ThreeImgList List = True @@ -769,7 +771,7 @@ object frmYMTRKList: TfrmYMTRKList OnClick = TbAddRowClick end object TbDeleteRow: TToolButton - Left = 75 + Left = 84 Top = 2 AutoSize = True Caption = #21024#34892 @@ -780,30 +782,30 @@ object frmYMTRKList: TfrmYMTRKList object Panel3: TPanel Left = 1 Top = 1 - Width = 282 - Height = 41 + Width = 353 + Height = 52 Align = alTop TabOrder = 2 object Label17: TLabel - Left = 6 - Top = 12 - Width = 36 - Height = 12 + Left = 8 + Top = 15 + Width = 45 + Height = 15 Caption = #22686#34892#25968 Layout = tlCenter end object AddNum: TEdit - Left = 47 - Top = 10 - Width = 41 + Left = 59 + Top = 13 + Width = 51 Height = 20 TabOrder = 0 end object Button1: TButton - Left = 98 - Top = 4 - Width = 75 - Height = 30 + Left = 123 + Top = 5 + Width = 93 + Height = 38 Caption = #24555#36895#22686#34892 TabOrder = 1 OnClick = Button1Click @@ -811,41 +813,41 @@ object frmYMTRKList: TfrmYMTRKList end end object Panel4: TPanel - Left = 560 - Top = 140 - Width = 234 - Height = 125 + Left = 684 + Top = 175 + Width = 293 + Height = 156 Color = clSkyBlue TabOrder = 4 Visible = False object Label25: TLabel - Left = 38 - Top = 34 - Width = 24 - Height = 12 + Left = 48 + Top = 43 + Width = 30 + Height = 15 Caption = #24211#20301 end object btnChk: TButton - Left = 28 - Top = 81 - Width = 60 - Height = 25 + Left = 35 + Top = 101 + Width = 75 + Height = 32 Caption = #30830#35748 TabOrder = 0 OnClick = btnChkClick end object btn1: TButton - Left = 160 - Top = 80 - Width = 60 - Height = 25 + Left = 200 + Top = 100 + Width = 75 + Height = 31 Caption = #20851#38381 TabOrder = 1 OnClick = btn1Click end object KuWei: TcxButtonEdit - Left = 75 - Top = 27 + Left = 94 + Top = 34 ParentFont = False Properties.Buttons = < item @@ -855,12 +857,12 @@ object frmYMTRKList: TfrmYMTRKList Properties.OnButtonClick = KuWeiPropertiesButtonClick Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText - Style.Font.Height = -19 + Style.Font.Height = -23 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 2 - Width = 121 + Width = 151 end end object ADOQueryCmd: TADOQuery diff --git a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.dfm b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.dfm index 7171f56..87b960d 100644 --- a/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.dfm +++ b/云翔生产管理(MYSC.dll)/U_LLRKInPutMH_RCCG.dfm @@ -1,25 +1,25 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG - Left = 492 - Top = 133 - Width = 1172 - Height = 807 + Left = 187 + Top = 77 + Width = 1360 + Height = 784 Caption = #30721#21333#24405#20837 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -19 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 15 + PixelsPerInch = 120 + TextHeight = 19 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1164 + Width = 1352 Height = 30 ButtonHeight = 30 ButtonWidth = 79 @@ -100,8 +100,8 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG object Panel3: TPanel Left = 0 Top = 30 - Width = 1164 - Height = 746 + Width = 1352 + Height = 717 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -109,257 +109,257 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG object Panel4: TPanel Left = 2 Top = 2 - Width = 1160 - Height = 246 + Width = 1348 + Height = 311 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Label13: TLabel - Left = 403 - Top = 15 - Width = 74 - Height = 17 + Left = 510 + Top = 19 + Width = 93 + Height = 22 Caption = #26085' '#26399#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label33: TLabel - Left = 28 - Top = 15 - Width = 92 - Height = 17 + Left = 35 + Top = 19 + Width = 116 + Height = 22 Caption = #21152' '#24037' '#21378#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label22: TLabel - Left = 28 - Top = 54 - Width = 94 - Height = 17 + Left = 35 + Top = 68 + Width = 117 + Height = 22 Caption = #21697' '#21517#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label12: TLabel - Left = 646 - Top = 118 - Width = 94 - Height = 17 + Left = 818 + Top = 149 + Width = 117 + Height = 22 Caption = #20811' '#37325#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label14: TLabel - Left = 403 - Top = 118 - Width = 74 - Height = 17 + Left = 510 + Top = 149 + Width = 93 + Height = 22 Caption = #38376' '#24133#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label15: TLabel - Left = 596 - Top = 118 - Width = 20 - Height = 17 + Left = 755 + Top = 149 + Width = 24 + Height = 22 Caption = 'CM' Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label16: TLabel - Left = 836 - Top = 118 - Width = 38 - Height = 17 + Left = 1059 + Top = 149 + Width = 47 + Height = 22 Caption = 'g/'#13217 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 646 - Top = 15 - Width = 94 - Height = 17 + Left = 818 + Top = 19 + Width = 117 + Height = 22 Caption = #33457' '#22411#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label11: TLabel - Left = 403 - Top = 85 - Width = 74 - Height = 17 + Left = 510 + Top = 108 + Width = 93 + Height = 22 Caption = #39068' '#33394#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel - Left = 646 - Top = 54 - Width = 94 - Height = 17 + Left = 818 + Top = 68 + Width = 117 + Height = 22 Caption = #33394' '#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel - Left = 27 - Top = 203 - Width = 94 - Height = 17 + Left = 34 + Top = 257 + Width = 117 + Height = 22 Caption = #22791' '#27880#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel - Left = 28 - Top = 118 - Width = 90 - Height = 17 + Left = 35 + Top = 149 + Width = 115 + Height = 22 Caption = #25910#36135#21333#20301#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel - Left = 28 - Top = 161 - Width = 84 - Height = 17 + Left = 35 + Top = 204 + Width = 105 + Height = 22 Caption = #23458' '#25143#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label8: TLabel - Left = 405 - Top = 161 - Width = 72 - Height = 17 + Left = 513 + Top = 204 + Width = 92 + Height = 22 Caption = #21512#21516#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label10: TLabel - Left = 646 - Top = 161 - Width = 90 - Height = 17 + Left = 818 + Top = 204 + Width = 115 + Height = 22 Caption = #25351#31034#21333#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label17: TLabel - Left = 412 - Top = 204 - Width = 108 - Height = 17 + Left = 522 + Top = 258 + Width = 138 + Height = 22 Caption = #22383#24067#32852#31995#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label21: TLabel - Left = 387 - Top = 52 - Width = 90 - Height = 17 + Left = 490 + Top = 66 + Width = 115 + Height = 22 Caption = #26579#21378#39068#33394#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label25: TLabel - Left = 179 - Top = 85 - Width = 74 - Height = 17 + Left = 227 + Top = 108 + Width = 93 + Height = 22 Caption = #20851#32852'ID'#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object CRTime: TDateTimePicker Tag = 2 - Left = 473 - Top = 12 - Width = 144 - Height = 25 + Left = 599 + Top = 15 + Width = 183 + Height = 30 Date = 42459.000000000000000000 Time = 42459.000000000000000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -367,15 +367,15 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object GYSName: TBtnEditA Tag = 2 - Left = 112 - Top = 13 - Width = 273 + Left = 142 + Top = 16 + Width = 346 Height = 26 Hint = 'GYSNo' Color = clScrollBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -385,13 +385,13 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object MYName: TEdit Tag = 2 - Left = 112 - Top = 50 - Width = 268 + Left = 142 + Top = 63 + Width = 339 Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -399,13 +399,13 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object MYKZ: TEdit Tag = 2 - Left = 722 - Top = 117 - Width = 111 + Left = 915 + Top = 148 + Width = 140 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -413,13 +413,13 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object MYMF: TEdit Tag = 2 - Left = 473 - Top = 117 - Width = 113 + Left = 599 + Top = 148 + Width = 143 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -427,13 +427,13 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object MYHX: TEdit Tag = 2 - Left = 722 - Top = 14 - Width = 138 + Left = 915 + Top = 18 + Width = 174 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -442,13 +442,13 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object MYColor: TEdit Tag = 2 - Left = 473 - Top = 81 - Width = 140 + Left = 599 + Top = 103 + Width = 177 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -457,13 +457,13 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object MYColorNo: TEdit Tag = 2 - Left = 722 - Top = 48 - Width = 140 + Left = 915 + Top = 61 + Width = 177 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -472,13 +472,13 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object Note: TEdit Tag = 2 - Left = 112 - Top = 201 - Width = 273 + Left = 142 + Top = 255 + Width = 346 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -486,15 +486,15 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object ToGYSName: TBtnEditA Tag = 2 - Left = 112 - Top = 116 - Width = 273 + Left = 142 + Top = 147 + Width = 346 Height = 26 Hint = 'ToGYSNo' Color = clScrollBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -503,16 +503,16 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG OnBtnClick = ToGYSNameBtnClick end object KHNameJC: TBtnEditA - Left = 112 - Top = 157 - Width = 273 + Left = 142 + Top = 199 + Width = 346 Height = 26 Hint = 'ToGYSNo' Color = clScrollBar Enabled = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -522,21 +522,21 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object PBBatchNo: TEdit Tag = 2 - Left = 512 - Top = 201 - Width = 348 + Left = 649 + Top = 255 + Width = 440 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 11 end object MLOrderNo: TcxButtonEdit - Left = 722 - Top = 157 + Left = 915 + Top = 199 ParentFont = False Properties.Buttons = < item @@ -547,22 +547,22 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG Properties.OnButtonClick = MLOrderNoPropertiesButtonClick Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText - Style.Font.Height = -17 + Style.Font.Height = -22 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 12 - Width = 141 + Width = 178 end object RCColor: TEdit Tag = 2 - Left = 473 - Top = 48 - Width = 140 + Left = 599 + Top = 61 + Width = 177 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -570,8 +570,8 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object MDMLConNo: TcxButtonEdit Tag = 2 - Left = 473 - Top = 157 + Left = 599 + Top = 199 ParentFont = False Properties.Buttons = < item @@ -582,22 +582,22 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG Properties.OnButtonClick = MLConNoPropertiesButtonClick Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText - Style.Font.Height = -17 + Style.Font.Height = -22 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 14 - Width = 141 + Width = 179 end object btn1: TButton - Left = 28 - Top = 77 - Width = 73 - Height = 33 + Left = 35 + Top = 98 + Width = 93 + Height = 41 Caption = #25968#25454#36873#25321 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -606,14 +606,14 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object scdsubid: TEdit Tag = 2 - Left = 243 - Top = 81 - Width = 140 + Left = 308 + Top = 103 + Width = 177 Height = 25 Enabled = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -622,14 +622,14 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object LXHSL: TEdit Tag = 7 - Left = 915 - Top = 186 - Width = 140 + Left = 1159 + Top = 236 + Width = 177 Height = 25 Enabled = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -638,14 +638,14 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG Visible = False end object Button1: TButton - Left = 104 - Top = 77 - Width = 73 - Height = 33 + Left = 132 + Top = 98 + Width = 92 + Height = 41 Caption = #21457#36135#30003#35831 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -655,178 +655,178 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object Panel5: TPanel Left = 2 - Top = 248 - Width = 1160 - Height = 100 + Top = 313 + Width = 1348 + Height = 127 Align = alTop TabOrder = 1 object Label31: TLabel - Left = 251 - Top = 23 - Width = 90 - Height = 17 + Left = 318 + Top = 29 + Width = 115 + Height = 22 Caption = #30721#21333#24635#25968#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label32: TLabel - Left = 380 - Top = 23 - Width = 18 - Height = 17 + Left = 481 + Top = 29 + Width = 23 + Height = 22 Caption = #21305 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label23: TLabel - Left = 225 - Top = 381 - Width = 48 - Height = 15 + Left = 285 + Top = 483 + Width = 57 + Height = 18 Caption = #21333#20215#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label24: TLabel - Left = 1094 - Top = -16 - Width = 48 - Height = 15 + Left = 1386 + Top = -20 + Width = 57 + Height = 18 Caption = #21333#20215#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label28: TLabel - Left = 695 - Top = 71 - Width = 72 - Height = 17 + Left = 880 + Top = 90 + Width = 92 + Height = 22 Caption = #24635#37329#39069#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label45: TLabel - Left = 488 - Top = 23 - Width = 18 - Height = 17 + Left = 618 + Top = 29 + Width = 23 + Height = 22 Caption = #31859 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label50: TLabel - Left = 592 - Top = 23 - Width = 36 - Height = 17 + Left = 750 + Top = 29 + Width = 46 + Height = 22 Caption = #20844#26020 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label51: TLabel - Left = 551 - Top = 71 - Width = 46 - Height = 17 + Left = 698 + Top = 90 + Width = 58 + Height = 22 Caption = #21333#20215':' Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label43: TLabel - Left = 36 - Top = 23 - Width = 82 - Height = 17 + Left = 46 + Top = 29 + Width = 104 + Height = 22 Caption = #35745#20215#26041#24335':' Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel - Left = 634 - Top = 23 - Width = 82 - Height = 17 + Left = 803 + Top = 29 + Width = 104 + Height = 22 Caption = #26159#21542#21547#31246':' Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel - Left = 35 - Top = 71 - Width = 90 - Height = 17 + Left = 44 + Top = 90 + Width = 115 + Height = 22 Caption = #36153#29992#21517#31216#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel - Left = 351 - Top = 71 - Width = 82 - Height = 17 + Left = 445 + Top = 90 + Width = 104 + Height = 22 Caption = #36153#29992#37329#39069':' Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object PS: TEdit Tag = 2 - Left = 325 - Top = 22 - Width = 50 + Left = 412 + Top = 28 + Width = 63 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -834,13 +834,13 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object Qty: TEdit Tag = 2 - Left = 410 - Top = 22 - Width = 74 + Left = 519 + Top = 28 + Width = 94 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -849,13 +849,13 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object KgQty: TEdit Tag = 2 - Left = 515 - Top = 22 - Width = 72 + Left = 652 + Top = 28 + Width = 92 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -863,30 +863,30 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG OnChange = QtyChange end object Panel7: TPanel - Left = 1218 - Top = 201 - Width = 99 - Height = 181 + Left = 1543 + Top = 255 + Width = 125 + Height = 229 BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 4 Visible = False object Panel1: TPanel - Left = 9 - Top = 9 - Width = 81 - Height = 160 + Left = 11 + Top = 11 + Width = 103 + Height = 203 BevelInner = bvRaised TabOrder = 0 object Label20: TLabel - Left = 27 - Top = 17 - Width = 22 - Height = 126 + Left = 34 + Top = 22 + Width = 28 + Height = 162 Caption = #26126#13#10#32454#13#10#30721#13#10#21333#13#10#24405#13#10#20837 Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -895,13 +895,13 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object PTID: TEdit Tag = 2 - Left = 1301 - Top = 259 - Width = 72 + Left = 1648 + Top = 328 + Width = 91 Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -911,13 +911,13 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object MYPrice: TEdit Tag = 2 - Left = 267 - Top = 379 - Width = 42 + Left = 338 + Top = 480 + Width = 53 Height = 21 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -13 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -926,13 +926,13 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object MYMDMoney: TEdit Tag = 2 - Left = 755 - Top = 70 - Width = 118 + Left = 956 + Top = 89 + Width = 150 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -940,13 +940,13 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object MYMDPrice: TEdit Tag = 2 - Left = 595 - Top = 70 - Width = 94 + Left = 754 + Top = 89 + Width = 119 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -954,15 +954,15 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG OnChange = MYMDPriceChange end object MDMFlag: TCheckBox - Left = 114 - Top = 18 - Width = 51 - Height = 26 + Left = 144 + Top = 23 + Width = 65 + Height = 33 Caption = #31859 Checked = True Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -971,14 +971,14 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG OnClick = MDMFlagClick end object MDKGFlag: TCheckBox - Left = 173 - Top = 18 - Width = 69 - Height = 26 + Left = 219 + Top = 23 + Width = 88 + Height = 33 Caption = #20844#26020 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -986,14 +986,14 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG OnClick = MDKGFlagClick end object HSFlag: TCheckBox - Left = 718 - Top = 18 - Width = 59 - Height = 26 + Left = 909 + Top = 23 + Width = 75 + Height = 33 Caption = #21547#31246 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -1001,15 +1001,15 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG OnClick = HSFlagClick end object BHSFlag: TCheckBox - Left = 800 - Top = 18 - Width = 74 - Height = 26 + Left = 1013 + Top = 23 + Width = 94 + Height = 33 Caption = #19981#21547#31246 Checked = True Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -1019,22 +1019,22 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object FeeName: TBtnEditA Tag = 2 - Left = 112 - Top = 69 - Width = 209 - Height = 23 + Left = 142 + Top = 87 + Width = 265 + Height = 28 TabOrder = 12 OnBtnClick = FeeNameBtnClick end object FeeMoney: TEdit Tag = 2 - Left = 431 - Top = 70 - Width = 106 + Left = 546 + Top = 89 + Width = 134 Height = 25 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -17 + Font.Height = -22 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -1044,79 +1044,79 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end object Panel8: TPanel Left = 2 - Top = 348 - Width = 1160 - Height = 396 + Top = 440 + Width = 1348 + Height = 275 Align = alClient Caption = 'Panel8' TabOrder = 2 object Panel9: TPanel Left = 1 Top = 1 - Width = 316 - Height = 394 + Width = 401 + Height = 273 Align = alLeft TabOrder = 0 object Label18: TLabel - Left = 25 - Top = 19 - Width = 189 - Height = 20 + Left = 32 + Top = 24 + Width = 234 + Height = 25 Caption = #27880#65306#36755#20837#25968#37327#25970#22238#36710 Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -20 + Font.Height = -25 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label19: TLabel - Left = 25 - Top = 76 - Width = 105 - Height = 20 + Left = 32 + Top = 96 + Width = 130 + Height = 25 Caption = #26126#32454#25968#37327#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -20 + Font.Height = -25 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label27: TLabel - Left = 25 - Top = 111 - Width = 107 - Height = 20 + Left = 32 + Top = 141 + Width = 134 + Height = 25 Caption = #29366' '#24577#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -20 + Font.Height = -25 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label29: TLabel - Left = 25 - Top = 148 - Width = 107 - Height = 20 + Left = 32 + Top = 187 + Width = 134 + Height = 25 Caption = #32568' '#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -20 + Font.Height = -25 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Edit1: TEdit - Left = 120 - Top = 72 - Width = 96 + Left = 152 + Top = 91 + Width = 122 Height = 29 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -1124,29 +1124,29 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG OnKeyPress = Edit1KeyPress end object GangNo: TEdit - Left = 120 - Top = 144 - Width = 96 + Left = 152 + Top = 182 + Width = 122 Height = 29 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object ZKZT: TComboBox - Left = 120 - Top = 107 - Width = 97 - Height = 29 + Left = 152 + Top = 136 + Width = 123 + Height = 35 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] - ItemHeight = 21 + ItemHeight = 27 ItemIndex = 0 ParentFont = False TabOrder = 2 @@ -1157,10 +1157,10 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG end end object cxGrid1: TcxGrid - Left = 317 + Left = 402 Top = 1 - Width = 842 - Height = 394 + Width = 945 + Height = 273 Align = alClient TabOrder = 1 object Tv1: TcxGridDBTableView @@ -1355,7 +1355,7 @@ object frmLLRKInPutMH_RCCG: TfrmLLRKInPutMH_RCCG object cxStyleRepository1: TcxStyleRepository Left = 368 Top = 8 - PixelsPerInch = 96 + PixelsPerInch = 120 object cxStyle1: TcxStyle AssignedValues = [svFont] Font.Charset = ANSI_CHARSET diff --git a/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm b/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm index 52caa91..a1b607b 100644 --- a/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm +++ b/云翔生产管理(MYSC.dll)/U_PBCGRKList_RCDJ.dfm @@ -1,13 +1,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ - Left = 599 - Top = 280 + Left = 220 + Top = 72 Width = 1044 Height = 781 Caption = #21152#24037#30721#21333#30331#35760 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,8 +15,8 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 12 + PixelsPerInch = 120 + TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 @@ -111,9 +111,9 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ end object cxGrid1: TcxGrid Left = 0 - Top = 98 + Top = 115 Width = 1036 - Height = 652 + Height = 629 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -364,151 +364,151 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ Left = 0 Top = 32 Width = 1036 - Height = 66 + Height = 83 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label34: TLabel - Left = 207 - Top = 13 - Width = 66 - Height = 15 + Left = 259 + Top = 16 + Width = 77 + Height = 18 Caption = #21152' '#24037' '#21378 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 15 - Top = 13 - Width = 32 - Height = 15 + Left = 19 + Top = 16 + Width = 38 + Height = 18 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel - Left = 15 - Top = 40 - Width = 32 - Height = 15 + Left = 19 + Top = 50 + Width = 38 + Height = 18 Caption = #22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel - Left = 207 - Top = 40 - Width = 64 - Height = 15 + Left = 259 + Top = 50 + Width = 76 + Height = 18 Caption = #25910#36135#21333#20301 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel - Left = 451 - Top = 13 - Width = 48 - Height = 15 + Left = 564 + Top = 16 + Width = 57 + Height = 18 Caption = #21046#20316#20154 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel - Left = 451 - Top = 40 - Width = 50 - Height = 15 + Left = 564 + Top = 50 + Width = 58 + Height = 18 Caption = #31867' '#22411 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel - Left = 626 - Top = 13 - Width = 64 - Height = 15 + Left = 783 + Top = 16 + Width = 76 + Height = 18 Caption = #25351#31034#21333#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel - Left = 626 - Top = 40 - Width = 68 - Height = 15 + Left = 783 + Top = 50 + Width = 78 + Height = 18 Caption = #23458' '#25143 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label8: TLabel - Left = 806 - Top = 40 - Width = 80 - Height = 15 + Left = 1008 + Top = 50 + Width = 95 + Height = 18 Caption = #22383#24067#32852#31995#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel - Left = 806 - Top = 11 - Width = 77 - Height = 15 + Left = 1008 + Top = 14 + Width = 88 + Height = 18 Caption = #39068' '#33394 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object KHNameHZ: TEdit Tag = 2 - Left = 275 - Top = 9 - Width = 158 + Left = 344 + Top = 11 + Width = 197 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -516,30 +516,30 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnChange = CustomerNoNameChange end object BegDate: TDateTimePicker - Left = 1085 - Top = 9 - Width = 127 - Height = 23 + Left = 1356 + Top = 11 + Width = 159 + Height = 26 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 3 end object EndDate: TDateTimePicker - Left = 1085 - Top = 36 - Width = 127 - Height = 23 + Left = 1356 + Top = 45 + Width = 159 + Height = 26 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -547,13 +547,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ end object MYName: TEdit Tag = 2 - Left = 49 - Top = 9 - Width = 141 + Left = 61 + Top = 11 + Width = 177 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -562,13 +562,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ end object Note: TEdit Tag = 2 - Left = 49 - Top = 36 - Width = 141 + Left = 61 + Top = 45 + Width = 177 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -576,15 +576,15 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnChange = CustomerNoNameChange end object CheckBox1: TCheckBox - Left = 999 - Top = 12 - Width = 82 - Height = 16 + Left = 1249 + Top = 15 + Width = 102 + Height = 20 Caption = #26597#35810#26085#26399 Checked = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -594,13 +594,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ end object JCDanWeiJC: TEdit Tag = 2 - Left = 275 - Top = 36 - Width = 158 + Left = 344 + Top = 45 + Width = 197 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -609,13 +609,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ end object filler: TEdit Tag = 2 - Left = 503 - Top = 9 - Width = 103 + Left = 629 + Top = 11 + Width = 129 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -624,31 +624,31 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ end object MYTypeFlag: TComboBox Tag = 1 - Left = 504 - Top = 36 - Width = 104 - Height = 23 + Left = 630 + Top = 45 + Width = 130 + Height = 26 Style = csDropDownList DropDownCount = 20 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] - ItemHeight = 15 + ItemHeight = 18 ParentFont = False TabOrder = 8 OnChange = CustomerNoNameChange end object MLOrderNo: TEdit Tag = 2 - Left = 691 - Top = 8 - Width = 95 + Left = 864 + Top = 10 + Width = 119 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -657,13 +657,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ end object KHNameHZZ: TEdit Tag = 2 - Left = 691 - Top = 36 - Width = 95 + Left = 864 + Top = 45 + Width = 119 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -672,13 +672,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ end object PBBatchNo: TEdit Tag = 2 - Left = 883 - Top = 36 - Width = 110 + Left = 1104 + Top = 45 + Width = 137 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -687,13 +687,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ end object MYColor: TEdit Tag = 2 - Left = 883 - Top = 7 - Width = 109 + Left = 1104 + Top = 9 + Width = 136 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -702,21 +702,21 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ end end object Panel2: TPanel - Left = 276 - Top = 126 - Width = 509 - Height = 379 + Left = 345 + Top = 158 + Width = 636 + Height = 473 Color = clSkyBlue TabOrder = 3 Visible = False object SpeedButton1: TSpeedButton - Left = 36 - Top = 22 - Width = 100 - Height = 53 + Left = 45 + Top = 28 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -724,13 +724,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton - Left = 196 - Top = 22 - Width = 100 - Height = 53 + Left = 245 + Top = 28 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -738,13 +738,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton3: TSpeedButton - Left = 372 - Top = 22 - Width = 100 - Height = 53 + Left = 465 + Top = 28 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -752,13 +752,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton4: TSpeedButton - Left = 36 - Top = 94 - Width = 100 - Height = 53 + Left = 45 + Top = 118 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -766,13 +766,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton5: TSpeedButton - Left = 196 - Top = 94 - Width = 100 - Height = 53 + Left = 245 + Top = 118 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -780,13 +780,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton6: TSpeedButton - Left = 372 - Top = 94 - Width = 100 - Height = 53 + Left = 465 + Top = 118 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -794,13 +794,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton7: TSpeedButton - Left = 36 - Top = 166 - Width = 100 - Height = 53 + Left = 45 + Top = 208 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -808,13 +808,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton8: TSpeedButton - Left = 196 - Top = 166 - Width = 100 - Height = 53 + Left = 245 + Top = 208 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -822,13 +822,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton9: TSpeedButton - Left = 372 - Top = 166 - Width = 100 - Height = 53 + Left = 465 + Top = 208 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -836,13 +836,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton10: TSpeedButton - Left = 36 - Top = 238 - Width = 100 - Height = 53 + Left = 45 + Top = 298 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -850,13 +850,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton11: TSpeedButton - Left = 196 - Top = 238 - Width = 100 - Height = 53 + Left = 245 + Top = 298 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -864,13 +864,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton12: TSpeedButton - Left = 372 - Top = 238 - Width = 100 - Height = 53 + Left = 465 + Top = 298 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -878,13 +878,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton13: TSpeedButton - Left = 36 - Top = 310 - Width = 100 - Height = 53 + Left = 45 + Top = 388 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -892,13 +892,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton14: TSpeedButton - Left = 196 - Top = 310 - Width = 100 - Height = 53 + Left = 245 + Top = 388 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -906,13 +906,13 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object SpeedButton15: TSpeedButton - Left = 372 - Top = 310 - Width = 100 - Height = 53 + Left = 465 + Top = 388 + Width = 125 + Height = 66 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 + Font.Height = -27 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -920,10 +920,10 @@ object frmPBCGRKList_RCDJ: TfrmPBCGRKList_RCDJ OnClick = SpeedButton1Click end object Image2: TImage - Left = 487 - Top = 3 - Width = 22 - Height = 16 + Left = 609 + Top = 4 + Width = 27 + Height = 20 ParentShowHint = False Picture.Data = { 07544269746D617076040000424D760400000000000036000000280000001500 diff --git a/工资管理(Wage.dll)/U_DataLink.dfm b/工资管理(Wage.dll)/U_DataLink.dfm index d6821ad..a746b78 100644 --- a/工资管理(Wage.dll)/U_DataLink.dfm +++ b/工资管理(Wage.dll)/U_DataLink.dfm @@ -17858,7 +17858,7 @@ object DataLink_Wage: TDataLink_Wage object ThreeColorBase: TcxStyleRepository Left = 147 Top = 80 - PixelsPerInch = 96 + PixelsPerInch = 120 object SHuangSe: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = 4707838 diff --git a/工资管理(Wage.dll)/U_DataLink.pas b/工资管理(Wage.dll)/U_DataLink.pas index e6deb63..b2bb2f0 100644 --- a/工资管理(Wage.dll)/U_DataLink.pas +++ b/工资管理(Wage.dll)/U_DataLink.pas @@ -4,7 +4,8 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses; + Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore, + dxSkinsDefaultPainters; var DConString: string; {ȫַ} diff --git a/工资管理(Wage.dll)/U_GetDllForm.pas b/工资管理(Wage.dll)/U_GetDllForm.pas index 1670abd..62c5994 100644 --- a/工资管理(Wage.dll)/U_GetDllForm.pas +++ b/工资管理(Wage.dll)/U_GetDllForm.pas @@ -64,7 +64,7 @@ begin user := 'sa'; pswd := 'rightsoft@123'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; -// DConString := DataBaseStr; + DConString := DataBaseStr; // DName := 'ܸ'; //DParameters1:='Ȩ'; //DParameters3:='1'; diff --git a/工资管理(Wage.dll)/U_XHGZInPut.dfm b/工资管理(Wage.dll)/U_XHGZInPut.dfm index bf3817e..dcbe37d 100644 --- a/工资管理(Wage.dll)/U_XHGZInPut.dfm +++ b/工资管理(Wage.dll)/U_XHGZInPut.dfm @@ -1,25 +1,25 @@ object frmXHGZInPut: TfrmXHGZInPut Left = 431 Top = 67 - Width = 816 - Height = 704 + Width = 927 + Height = 911 Caption = #24037#36164#30331#35760 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 12 + PixelsPerInch = 120 + TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 800 + Width = 919 Height = 29 ButtonHeight = 30 ButtonWidth = 67 @@ -55,8 +55,8 @@ object frmXHGZInPut: TfrmXHGZInPut object ScrollBox1: TScrollBox Left = 0 Top = 29 - Width = 800 - Height = 637 + Width = 919 + Height = 845 Align = alClient BevelInner = bvLowered BevelOuter = bvRaised @@ -65,405 +65,405 @@ object frmXHGZInPut: TfrmXHGZInPut TabOrder = 1 OnClick = ScrollBox1Click object Label2: TLabel - Left = 108 - Top = 13 - Width = 48 - Height = 15 + Left = 135 + Top = 16 + Width = 57 + Height = 18 Caption = #26085#26399#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Tag = 1 - Left = 389 - Top = 68 - Width = 48 - Height = 15 + Left = 486 + Top = 85 + Width = 57 + Height = 18 Caption = #26426#22411#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label22: TLabel Tag = 1 - Left = 135 - Top = 151 - Width = 9 - Height = 15 + Left = 169 + Top = 189 + Width = 10 + Height = 18 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label27: TLabel Tag = 1 - Left = 92 - Top = 68 - Width = 64 - Height = 15 + Left = 115 + Top = 85 + Width = 76 + Height = 18 Caption = #26426#21488#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label28: TLabel - Left = 389 - Top = 40 - Width = 48 - Height = 15 + Left = 486 + Top = 50 + Width = 57 + Height = 18 Caption = #24037#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label37: TLabel Tag = 1 - Left = 357 - Top = 342 - Width = 80 - Height = 15 + Left = 446 + Top = 428 + Width = 95 + Height = 18 Caption = #20854#23427#21333#20215#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label39: TLabel Tag = 1 - Left = 357 - Top = 376 - Width = 80 - Height = 15 + Left = 446 + Top = 470 + Width = 95 + Height = 18 Caption = #20854#20182#24037#36164#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label51: TLabel Tag = 1 - Left = 84 - Top = 493 - Width = 90 - Height = 29 + Left = 105 + Top = 616 + Width = 108 + Height = 35 Caption = #21512#35745#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -29 + Font.Height = -35 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label24: TLabel Tag = 1 - Left = 357 - Top = 181 - Width = 80 - Height = 15 + Left = 446 + Top = 226 + Width = 95 + Height = 18 Caption = #20135#37327#24037#36164#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label8: TLabel - Left = 389 - Top = 13 - Width = 48 - Height = 15 + Left = 486 + Top = 16 + Width = 57 + Height = 18 Caption = #29677#27425#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel - Left = 108 - Top = 40 - Width = 48 - Height = 15 + Left = 135 + Top = 50 + Width = 57 + Height = 18 Caption = #22995#21517#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlue - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Tag = 1 - Left = 76 - Top = 96 - Width = 80 - Height = 15 + Left = 95 + Top = 120 + Width = 95 + Height = 18 Caption = #33457#22411#21517#31216#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label13: TLabel Tag = 1 - Left = 349 - Top = 151 - Width = 9 - Height = 15 + Left = 436 + Top = 189 + Width = 10 + Height = 18 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Tag = 1 - Left = 77 - Top = 376 - Width = 80 - Height = 15 + Left = 96 + Top = 470 + Width = 95 + Height = 18 Caption = #20854#20182#25968#37327#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Tag = 1 - Left = 357 - Top = 432 - Width = 80 - Height = 15 + Left = 446 + Top = 540 + Width = 95 + Height = 18 Caption = #25187#27454#37329#39069#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label15: TLabel Tag = 1 - Left = 72 - Top = 536 - Width = 48 - Height = 15 + Left = 90 + Top = 670 + Width = 57 + Height = 18 Caption = #22791#27880#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label16: TLabel Tag = 1 - Left = 357 - Top = 293 - Width = 80 - Height = 15 + Left = 446 + Top = 366 + Width = 95 + Height = 18 Caption = #34917#21161#37329#39069#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel Tag = 1 - Left = 308 - Top = 293 - Width = 9 - Height = 15 + Left = 385 + Top = 366 + Width = 10 + Height = 18 Caption = '%' Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Tag = 1 - Left = 357 - Top = 261 - Width = 80 - Height = 15 + Left = 446 + Top = 326 + Width = 95 + Height = 18 Caption = #34917#21161#37329#39069#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label12: TLabel Tag = 1 - Left = 308 - Top = 261 - Width = 9 - Height = 15 + Left = 385 + Top = 326 + Width = 10 + Height = 18 Caption = '%' Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label19: TLabel Tag = 1 - Left = 22 - Top = 121 - Width = 747 - Height = 15 + Left = 28 + Top = 151 + Width = 830 + Height = 18 Caption = '----------------------------------------------------------------' + '-------------------' Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label20: TLabel Tag = 1 - Left = 22 - Top = 234 - Width = 747 - Height = 15 + Left = 28 + Top = 293 + Width = 830 + Height = 18 Caption = '----------------------------------------------------------------' + '-------------------' Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label21: TLabel Tag = 1 - Left = 22 - Top = 320 - Width = 747 - Height = 15 + Left = 28 + Top = 400 + Width = 830 + Height = 18 Caption = '----------------------------------------------------------------' + '-------------------' Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label14: TLabel Tag = 1 - Left = 77 - Top = 342 - Width = 80 - Height = 15 + Left = 96 + Top = 428 + Width = 95 + Height = 18 Caption = #20854#20182#34917#21161#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label17: TLabel Tag = 1 - Left = 77 - Top = 432 - Width = 80 - Height = 15 + Left = 96 + Top = 540 + Width = 95 + Height = 18 Caption = #25187#27454#20869#23481#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label18: TLabel Tag = 1 - Left = 22 - Top = 460 - Width = 747 - Height = 15 + Left = 28 + Top = 575 + Width = 830 + Height = 18 Caption = '----------------------------------------------------------------' + '-------------------' Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label11: TLabel Tag = 1 - Left = 22 - Top = 402 - Width = 747 - Height = 15 + Left = 28 + Top = 503 + Width = 830 + Height = 18 Caption = '----------------------------------------------------------------' + '-------------------' Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel - Left = 105 - Top = 213 - Width = 48 - Height = 15 + Left = 131 + Top = 266 + Width = 57 + Height = 18 Caption = #36793#25968#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object CRTime: TDateTimePicker - Left = 155 - Top = 9 - Width = 129 - Height = 23 + Left = 194 + Top = 11 + Width = 161 + Height = 26 BevelInner = bvNone Date = 40916.000000000000000000 Format = 'yyyy-MM-dd' @@ -471,7 +471,7 @@ object frmXHGZInPut: TfrmXHGZInPut Enabled = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -480,13 +480,13 @@ object frmXHGZInPut: TfrmXHGZInPut end object CLBZQty: TEdit Tag = 1 - Left = 160 - Top = 289 - Width = 129 + Left = 200 + Top = 361 + Width = 161 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -497,13 +497,13 @@ object frmXHGZInPut: TfrmXHGZInPut end object MiShu: TEdit Tag = 1 - Left = 160 - Top = 147 - Width = 129 + Left = 200 + Top = 184 + Width = 161 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -514,13 +514,13 @@ object frmXHGZInPut: TfrmXHGZInPut end object ZhenShu: TEdit Tag = 1 - Left = 440 - Top = 147 - Width = 129 + Left = 550 + Top = 184 + Width = 161 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -531,8 +531,8 @@ object frmXHGZInPut: TfrmXHGZInPut end object JTNo: TcxButtonEdit Tag = 1 - Left = 155 - Top = 64 + Left = 194 + Top = 80 BeepOnEnter = False ParentFont = False Properties.Buttons = < @@ -543,23 +543,23 @@ object frmXHGZInPut: TfrmXHGZInPut Properties.OnButtonClick = cxButtonEdit3PropertiesButtonClick Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText - Style.Font.Height = -15 + Style.Font.Height = -18 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 4 OnKeyPress = JTNoKeyPress - Width = 129 + Width = 161 end object YGCode: TEdit - Left = 440 - Top = 36 - Width = 129 + Left = 550 + Top = 45 + Width = 161 Height = 23 Enabled = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -568,14 +568,14 @@ object frmXHGZInPut: TfrmXHGZInPut end object Price1: TEdit Tag = 1 - Left = 440 - Top = 338 - Width = 129 + Left = 550 + Top = 423 + Width = 161 Height = 23 BiDiMode = bdLeftToRight Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -587,14 +587,14 @@ object frmXHGZInPut: TfrmXHGZInPut end object ElseWage: TEdit Tag = 1 - Left = 440 - Top = 372 - Width = 129 + Left = 550 + Top = 465 + Width = 161 Height = 23 BiDiMode = bdLeftToRight Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -606,13 +606,13 @@ object frmXHGZInPut: TfrmXHGZInPut end object Price: TEdit Tag = 1 - Left = 160 - Top = 177 - Width = 129 + Left = 200 + Top = 221 + Width = 161 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -623,14 +623,14 @@ object frmXHGZInPut: TfrmXHGZInPut end object Money: TEdit Tag = 1 - Left = 180 - Top = 489 - Width = 129 + Left = 225 + Top = 611 + Width = 161 Height = 37 Enabled = False Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -29 + Font.Height = -35 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -640,13 +640,13 @@ object frmXHGZInPut: TfrmXHGZInPut end object Note: TMemo Tag = 1 - Left = 120 - Top = 536 - Width = 593 - Height = 63 + Left = 150 + Top = 670 + Width = 741 + Height = 79 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -657,13 +657,13 @@ object frmXHGZInPut: TfrmXHGZInPut end object OutputWage: TEdit Tag = 1 - Left = 440 - Top = 177 - Width = 129 + Left = 550 + Top = 221 + Width = 161 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -673,14 +673,14 @@ object frmXHGZInPut: TfrmXHGZInPut OnKeyPress = qjtsKeyPress end object BanCi: TEdit - Left = 440 - Top = 9 - Width = 129 + Left = 550 + Top = 11 + Width = 161 Height = 23 Enabled = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -688,14 +688,14 @@ object frmXHGZInPut: TfrmXHGZInPut TabOrder = 1 end object YGName: TEdit - Left = 155 - Top = 36 - Width = 129 + Left = 194 + Top = 45 + Width = 161 Height = 23 Enabled = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -704,13 +704,13 @@ object frmXHGZInPut: TfrmXHGZInPut end object JXModel: TEdit Tag = 1 - Left = 440 - Top = 64 - Width = 129 + Left = 550 + Top = 80 + Width = 161 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -720,8 +720,8 @@ object frmXHGZInPut: TfrmXHGZInPut end object HXName: TcxButtonEdit Tag = 1 - Left = 155 - Top = 92 + Left = 194 + Top = 115 BeepOnEnter = False ParentFont = False Properties.Buttons = < @@ -732,23 +732,23 @@ object frmXHGZInPut: TfrmXHGZInPut Properties.OnButtonClick = HXNamePropertiesButtonClick Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText - Style.Font.Height = -15 + Style.Font.Height = -18 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 6 OnKeyPress = JTNoKeyPress - Width = 357 + Width = 446 end object TouJu: TEdit Tag = 1 - Left = 510 - Top = 92 - Width = 57 + Left = 638 + Top = 115 + Width = 71 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -758,14 +758,14 @@ object frmXHGZInPut: TfrmXHGZInPut end object KKMoney: TEdit Tag = 1 - Left = 440 - Top = 428 - Width = 129 + Left = 550 + Top = 535 + Width = 161 Height = 23 BiDiMode = bdLeftToRight Font.Charset = GB2312_CHARSET Font.Color = clGreen - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -777,14 +777,14 @@ object frmXHGZInPut: TfrmXHGZInPut end object Qty1: TEdit Tag = 1 - Left = 156 - Top = 372 - Width = 129 + Left = 195 + Top = 465 + Width = 161 Height = 23 BiDiMode = bdLeftToRight Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -796,8 +796,8 @@ object frmXHGZInPut: TfrmXHGZInPut end object ElseWageName: TcxButtonEdit Tag = 1 - Left = 156 - Top = 338 + Left = 195 + Top = 423 BeepOnEnter = False ParentFont = False Properties.Buttons = < @@ -808,25 +808,25 @@ object frmXHGZInPut: TfrmXHGZInPut Properties.OnButtonClick = ElseWageNamePropertiesButtonClick Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText - Style.Font.Height = -15 + Style.Font.Height = -18 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 19 OnExit = MiShuExit OnKeyPress = ElseWageNameKeyPress - Width = 129 + Width = 161 end object ISMS: TCheckBox Tag = 1 - Left = 88 - Top = 150 - Width = 65 - Height = 17 + Left = 110 + Top = 188 + Width = 81 + Height = 21 Caption = #31859#25968#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -837,14 +837,14 @@ object frmXHGZInPut: TfrmXHGZInPut end object ISZS: TCheckBox Tag = 1 - Left = 338 - Top = 150 - Width = 99 - Height = 17 + Left = 423 + Top = 188 + Width = 123 + Height = 21 Caption = #38024#25968'('#19975')'#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -855,14 +855,14 @@ object frmXHGZInPut: TfrmXHGZInPut end object IFCLBZ: TCheckBox Tag = 1 - Left = 62 - Top = 292 - Width = 89 - Height = 17 + Left = 78 + Top = 365 + Width = 111 + Height = 21 Caption = #20135#37327#34917#21161#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -873,13 +873,13 @@ object frmXHGZInPut: TfrmXHGZInPut end object CLBZMoney: TEdit Tag = 1 - Left = 440 - Top = 289 - Width = 129 + Left = 550 + Top = 361 + Width = 161 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -890,13 +890,13 @@ object frmXHGZInPut: TfrmXHGZInPut end object TXBZQty: TEdit Tag = 1 - Left = 160 - Top = 257 - Width = 129 + Left = 200 + Top = 321 + Width = 161 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -907,14 +907,14 @@ object frmXHGZInPut: TfrmXHGZInPut end object IFTXBZ: TCheckBox Tag = 1 - Left = 62 - Top = 260 - Width = 89 - Height = 17 + Left = 78 + Top = 325 + Width = 111 + Height = 21 Caption = #36339#32447#34917#21161#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -925,13 +925,13 @@ object frmXHGZInPut: TfrmXHGZInPut end object TXBZMoney: TEdit Tag = 1 - Left = 440 - Top = 257 - Width = 129 + Left = 550 + Top = 321 + Width = 161 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -942,8 +942,8 @@ object frmXHGZInPut: TfrmXHGZInPut end object KKNote: TcxButtonEdit Tag = 1 - Left = 156 - Top = 428 + Left = 195 + Top = 535 BeepOnEnter = False ParentFont = False Properties.Buttons = < @@ -954,26 +954,26 @@ object frmXHGZInPut: TfrmXHGZInPut Properties.OnButtonClick = KKNotePropertiesButtonClick Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText - Style.Font.Height = -15 + Style.Font.Height = -18 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 23 OnExit = MiShuExit OnKeyPress = KKNoteKeyPress - Width = 133 + Width = 166 end object IsPrice: TCheckBox Tag = 1 - Left = 88 - Top = 180 - Width = 65 - Height = 17 + Left = 110 + Top = 225 + Width = 81 + Height = 21 Caption = #21333#20215#65306 Checked = True Font.Charset = GB2312_CHARSET Font.Color = clBlack - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -985,18 +985,18 @@ object frmXHGZInPut: TfrmXHGZInPut end object BSType: TComboBox Tag = 1 - Left = 160 - Top = 208 - Width = 129 - Height = 23 + Left = 200 + Top = 260 + Width = 161 + Height = 26 Style = csDropDownList Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 - ItemHeight = 15 + ItemHeight = 18 ParentFont = False TabOrder = 29 Items.Strings = ( diff --git a/工资管理(Wage.dll)/U_XHGZInPut.pas b/工资管理(Wage.dll)/U_XHGZInPut.pas index bd99ebf..ae04fc8 100644 --- a/工资管理(Wage.dll)/U_XHGZInPut.pas +++ b/工资管理(Wage.dll)/U_XHGZInPut.pas @@ -9,7 +9,8 @@ uses cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo, cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit, StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit, - CheckLst; + CheckLst, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, + dxSkinsDefaultPainters; type TfrmXHGZInPut = class(TForm) diff --git a/工资管理(Wage.dll)/U_XHGZListHZNew.dfm b/工资管理(Wage.dll)/U_XHGZListHZNew.dfm index 642b782..94cdbbf 100644 --- a/工资管理(Wage.dll)/U_XHGZListHZNew.dfm +++ b/工资管理(Wage.dll)/U_XHGZListHZNew.dfm @@ -7,7 +7,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,8 +15,8 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 12 + PixelsPerInch = 120 + TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 @@ -58,12 +58,13 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew object ToolButton2: TToolButton Left = 142 Top = 0 + AutoSize = True Caption = #21592#24037#20135#37327#30331#35760 ImageIndex = 24 OnClick = ToolButton2Click end object ToolButton3: TToolButton - Left = 289 + Left = 277 Top = 0 AutoSize = True Caption = #21592#24037#33457#21517#20876 @@ -71,7 +72,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew OnClick = ToolButton3Click end object ToolButton5: TToolButton - Left = 408 + Left = 396 Top = 0 AutoSize = True Caption = #22870#21169#34917#36148 @@ -79,7 +80,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew OnClick = ToolButton5Click end object ToolButton6: TToolButton - Left = 511 + Left = 499 Top = 0 AutoSize = True Caption = #38468#20214 @@ -87,7 +88,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew OnClick = ToolButton6Click end object ToolButton8: TToolButton - Left = 582 + Left = 570 Top = 0 AutoSize = True Caption = #32483#33457#24037#24037#36164#29983#25104 @@ -95,7 +96,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew OnClick = ToolButton8Click end object ToolButton1: TToolButton - Left = 733 + Left = 721 Top = 0 AutoSize = True Caption = #24037#36164#26465 @@ -103,7 +104,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew OnClick = ToolButton1Click end object ToolButton7: TToolButton - Left = 820 + Left = 808 Top = 0 AutoSize = True Caption = #20840#24180#24037#36164 @@ -111,7 +112,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew OnClick = ToolButton7Click end object ToolButton4: TToolButton - Left = 923 + Left = 911 Top = 0 AutoSize = True Caption = #24037#36164#26126#32454 @@ -119,7 +120,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew OnClick = ToolButton4Click end object TBExport: TToolButton - Left = 1026 + Left = 1014 Top = 0 AutoSize = True Caption = #23548#20986 @@ -127,7 +128,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew OnClick = TBExportClick end object TBClose: TToolButton - Left = 1097 + Left = 1085 Top = 0 AutoSize = True Caption = #20851#38381 @@ -139,87 +140,87 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew Left = 0 Top = 33 Width = 1342 - Height = 74 + Height = 93 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label1: TLabel - Left = 20 - Top = 12 - Width = 32 - Height = 15 + Left = 25 + Top = 15 + Width = 38 + Height = 18 Caption = #26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 36 - Top = 39 - Width = 16 - Height = 15 + Left = 45 + Top = 49 + Width = 19 + Height = 18 Caption = #33267 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel - Left = 191 - Top = 12 - Width = 50 - Height = 15 + Left = 239 + Top = 15 + Width = 58 + Height = 18 Caption = #22995' '#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label8: TLabel - Left = 191 - Top = 39 - Width = 50 - Height = 15 + Left = 239 + Top = 49 + Width = 58 + Height = 18 Caption = #24037' '#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel - Left = 363 - Top = 12 - Width = 32 - Height = 15 + Left = 454 + Top = 15 + Width = 38 + Height = 18 Caption = #24037#31181 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object BegDate: TDateTimePicker - Left = 61 - Top = 8 - Width = 115 - Height = 23 + Left = 76 + Top = 10 + Width = 144 + Height = 26 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -227,15 +228,15 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew TabOrder = 0 end object EndDate: TDateTimePicker - Left = 61 - Top = 35 - Width = 113 - Height = 23 + Left = 76 + Top = 44 + Width = 142 + Height = 26 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -244,13 +245,13 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew end object YGName: TEdit Tag = 2 - Left = 246 - Top = 8 - Width = 97 + Left = 308 + Top = 10 + Width = 121 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -260,13 +261,13 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew end object YGCode: TEdit Tag = 2 - Left = 246 - Top = 35 - Width = 97 + Left = 308 + Top = 44 + Width = 121 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -276,13 +277,13 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew end object Edit1: TEdit Tag = 2 - Left = 402 - Top = 8 - Width = 97 + Left = 503 + Top = 10 + Width = 121 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -293,9 +294,9 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew end object cxGrid2: TcxGrid Left = 0 - Top = 133 + Top = 158 Width = 1342 - Height = 513 + Height = 482 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -451,13 +452,13 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew end object cxTabControl1: TcxTabControl Left = 0 - Top = 107 + Top = 126 Width = 1342 - Height = 26 + Height = 32 Align = alTop Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #24494#36719#38597#40657 Font.Style = [fsBold] ParentFont = False @@ -479,9 +480,9 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew ' 11'#26376' ' ' 12'#26376' ') OnChange = cxTabControl1Change - ClientRectBottom = 28 + ClientRectBottom = 34 ClientRectRight = 1342 - ClientRectTop = 28 + ClientRectTop = 34 end object ADOQueryCmd: TADOQuery Connection = DataLink_Wage.ADOLink @@ -579,7 +580,7 @@ object frmXHGZListHZNew: TfrmXHGZListHZNew object cxStyleRepository1: TcxStyleRepository Left = 744 Top = 48 - PixelsPerInch = 96 + PixelsPerInch = 120 object cxStyle1: TcxStyle end end diff --git a/工资管理(Wage.dll)/U_XHGZListHZNew.pas b/工资管理(Wage.dll)/U_XHGZListHZNew.pas index 34f25b7..1f93d85 100644 --- a/工资管理(Wage.dll)/U_XHGZListHZNew.pas +++ b/工资管理(Wage.dll)/U_XHGZListHZNew.pas @@ -12,7 +12,7 @@ uses cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, DateUtils, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, - dxBarBuiltInMenu; + dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter; type TfrmXHGZListHZNew = class(TForm) diff --git a/工资管理(Wage.dll)/U_XHGZListInPut.dfm b/工资管理(Wage.dll)/U_XHGZListInPut.dfm index dd211dc..760d4c0 100644 --- a/工资管理(Wage.dll)/U_XHGZListInPut.dfm +++ b/工资管理(Wage.dll)/U_XHGZListInPut.dfm @@ -8,34 +8,34 @@ object frmXHGZListInPut: TfrmXHGZListInPut Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 12 + PixelsPerInch = 120 + TextHeight = 15 object Panel2: TPanel Left = 0 Top = 0 - Width = 533 - Height = 629 + Width = 666 + Height = 630 Align = alLeft Caption = 'Panel2' TabOrder = 0 object cxGrid2: TcxGrid Left = 1 - Top = 150 - Width = 531 - Height = 478 + Top = 180 + Width = 664 + Height = 449 Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 object TV2: TcxGridDBTableView OnMouseDown = TV2MouseDown - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -141,47 +141,47 @@ object frmXHGZListInPut: TfrmXHGZListInPut object ScrollBox1: TScrollBox Left = 1 Top = 1 - Width = 531 - Height = 120 + Width = 664 + Height = 150 Align = alTop TabOrder = 1 object Label1: TLabel - Left = 27 - Top = 12 - Width = 32 - Height = 15 + Left = 34 + Top = 15 + Width = 38 + Height = 18 Caption = #26085#26399 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 229 - Top = 7 - Width = 32 - Height = 15 + Left = 286 + Top = 9 + Width = 38 + Height = 18 Caption = #24037#36164 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object CRTime: TDateTimePicker Tag = 2 - Left = 61 - Top = 8 - Width = 117 - Height = 23 + Left = 76 + Top = 10 + Width = 147 + Height = 26 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -191,13 +191,13 @@ object frmXHGZListInPut: TfrmXHGZListInPut end object ZJJE: TEdit Tag = 2 - Left = 265 - Top = 7 - Width = 117 + Left = 331 + Top = 9 + Width = 147 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -15 + Font.Height = -18 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 @@ -205,23 +205,23 @@ object frmXHGZListInPut: TfrmXHGZListInPut TabOrder = 1 end object Panel4: TPanel - Left = 59 - Top = 54 - Width = 185 - Height = 41 + Left = 74 + Top = 68 + Width = 231 + Height = 51 Caption = 'Panel4' TabOrder = 2 object lblBC: TLabel Left = 1 Top = 1 - Width = 183 - Height = 39 + Width = 229 + Height = 49 Align = alClient Alignment = taCenter Caption = #30333#29677 Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -24 + Font.Height = -30 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -234,8 +234,8 @@ object frmXHGZListInPut: TfrmXHGZListInPut end object ToolBar2: TToolBar Left = 1 - Top = 121 - Width = 531 + Top = 151 + Width = 664 Height = 29 ButtonHeight = 30 ButtonWidth = 99 @@ -282,22 +282,22 @@ object frmXHGZListInPut: TfrmXHGZListInPut end end object Panel1: TPanel - Left = 533 + Left = 666 Top = 0 - Width = 738 - Height = 629 + Width = 613 + Height = 630 Align = alClient Caption = 'Panel1' TabOrder = 1 object cxGrid1: TcxGrid Left = 1 - Top = 106 - Width = 736 - Height = 522 + Top = 125 + Width = 611 + Height = 504 Align = alClient TabOrder = 0 object Tv1: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource3 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -503,8 +503,8 @@ object frmXHGZListInPut: TfrmXHGZListInPut end object ToolBar3: TToolBar Left = 1 - Top = 77 - Width = 736 + Top = 96 + Width = 611 Height = 29 ButtonHeight = 30 ButtonWidth = 99 @@ -576,31 +576,31 @@ object frmXHGZListInPut: TfrmXHGZListInPut object Panel3: TPanel Left = 1 Top = 1 - Width = 736 - Height = 76 + Width = 611 + Height = 95 Align = alTop TabOrder = 2 object lblYGName: TLabel - Left = 113 - Top = 8 - Width = 29 - Height = 56 + Left = 141 + Top = 10 + Width = 37 + Height = 72 Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -56 + Font.Height = -72 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Button2: TButton - Left = 672 - Top = 18 - Width = 129 - Height = 42 + Left = 840 + Top = 23 + Width = 161 + Height = 52 Caption = #20851#38381 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -24 + Font.Height = -30 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -646,6 +646,7 @@ object frmXHGZListInPut: TfrmXHGZListInPut end object ThreeColorBase: TcxStyleRepository Left = 595 + PixelsPerInch = 120 object SHuangSe: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = 4707838 diff --git a/工资管理(Wage.dll)/U_XHGZListInPut.pas b/工资管理(Wage.dll)/U_XHGZListInPut.pas index 5e5ae84..653227d 100644 --- a/工资管理(Wage.dll)/U_XHGZListInPut.pas +++ b/工资管理(Wage.dll)/U_XHGZListInPut.pas @@ -9,7 +9,9 @@ uses cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxContainer, - cxLabel, StdCtrls, cxCheckBox, ExtCtrls, Menus; + cxLabel, StdCtrls, cxCheckBox, ExtCtrls, Menus, cxLookAndFeels, + cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, + dxSkinscxPCPainter, cxNavigator; type TfrmXHGZListInPut = class(TForm) diff --git a/工资管理(Wage.dll)/U_ZdyAttachCP_HX_Sel.dfm b/工资管理(Wage.dll)/U_ZdyAttachCP_HX_Sel.dfm index deac6da..ed93e4a 100644 --- a/工资管理(Wage.dll)/U_ZdyAttachCP_HX_Sel.dfm +++ b/工资管理(Wage.dll)/U_ZdyAttachCP_HX_Sel.dfm @@ -1,13 +1,13 @@ object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel - Left = 346 - Top = 132 - Width = 1111 - Height = 628 + Left = 276 + Top = 131 + Width = 1253 + Height = 758 Caption = #20135#21697#36164#26009#31649#29702 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,15 +15,15 @@ object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 12 + PixelsPerInch = 120 + TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1095 + Width = 1245 AutoSize = True ButtonHeight = 30 - ButtonWidth = 59 + ButtonWidth = 65 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_Wage.ThreeImgList @@ -42,7 +42,7 @@ object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel OnClick = TBRafreshClick end object ToolButton2: TToolButton - Left = 63 + Left = 69 Top = 0 AutoSize = True Caption = #36807#28388 @@ -50,7 +50,7 @@ object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel OnClick = ToolButton2Click end object TBClose: TToolButton - Left = 126 + Left = 138 Top = 0 AutoSize = True Caption = #20851#38381 @@ -61,81 +61,88 @@ object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel object Panel1: TPanel Left = 0 Top = 32 - Width = 1095 - Height = 41 + Width = 1245 + Height = 51 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label3: TLabel - Left = 210 - Top = 13 - Width = 48 - Height = 12 + Left = 228 + Top = 16 + Width = 60 + Height = 15 Caption = #33457#22411#21517#31216 end object Label1: TLabel - Left = 34 - Top = 13 - Width = 48 - Height = 12 + Left = 43 + Top = 16 + Width = 60 + Height = 15 Caption = #33457#22411#32534#21495 end object Label2: TLabel - Left = 369 - Top = 57 - Width = 24 - Height = 12 + Left = 461 + Top = 71 + Width = 30 + Height = 15 Caption = #31867#22411 end object Label4: TLabel - Left = 394 - Top = 13 - Width = 48 - Height = 12 + Left = 433 + Top = 16 + Width = 60 + Height = 15 Caption = #33457#22411#25551#36848 end object Label5: TLabel - Left = 578 - Top = 13 - Width = 24 - Height = 12 + Left = 641 + Top = 16 + Width = 30 + Height = 15 Caption = #23458#25143 end object Label6: TLabel - Left = 571 - Top = 53 - Width = 48 - Height = 12 + Left = 714 + Top = 66 + Width = 60 + Height = 15 Caption = #23458#25143#31616#31216 end + object Label7: TLabel + Left = 824 + Top = 16 + Width = 30 + Height = 15 + Caption = #22836#36317 + end object ZdyName: TEdit Tag = 2 - Left = 260 - Top = 9 - Width = 100 + Left = 290 + Top = 13 + Width = 125 Height = 20 TabOrder = 1 OnChange = ZdyNameChange end object ZdyCode: TEdit Tag = 2 - Left = 83 - Top = 9 - Width = 89 + Left = 104 + Top = 13 + Width = 111 Height = 20 TabOrder = 0 OnChange = ZdyNameChange end object DEFstr5: TComboBox Tag = 1 - Left = 394 - Top = 52 - Width = 81 - Height = 20 + Left = 493 + Top = 65 + Width = 101 + Height = 23 Style = csDropDownList - ItemHeight = 12 + ItemHeight = 15 TabOrder = 2 OnChange = ZdyNameChange Items.Strings = ( @@ -145,43 +152,52 @@ object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel end object defNote1: TEdit Tag = 2 - Left = 444 - Top = 9 - Width = 100 + Left = 495 + Top = 13 + Width = 125 Height = 20 TabOrder = 3 OnChange = ZdyNameChange end object defnote2: TEdit Tag = 2 - Left = 604 - Top = 9 - Width = 100 + Left = 673 + Top = 13 + Width = 125 Height = 20 TabOrder = 4 OnChange = ZdyNameChange end object zjm: TEdit Tag = 2 - Left = 621 - Top = 49 - Width = 100 + Left = 776 + Top = 61 + Width = 125 Height = 20 TabOrder = 5 OnChange = ZdyNameChange end + object defstr2: TEdit + Tag = 1 + Left = 856 + Top = 13 + Width = 65 + Height = 20 + TabOrder = 6 + OnChange = ZdyNameChange + end end object cxGrid2: TcxGrid Left = 0 - Top = 73 - Width = 1095 - Height = 517 + Top = 83 + Width = 1245 + Height = 638 Align = alClient TabOrder = 2 object Tv2: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False - NavigatorButtons.Delete.Enabled = False - NavigatorButtons.Delete.Visible = False + Navigator.Buttons.CustomButtons = <> + Navigator.Buttons.Delete.Enabled = False + Navigator.Buttons.Delete.Visible = False OnCellDblClick = Tv2CellDblClick DataController.DataSource = DS_HZ DataController.Summary.DefaultGroupSummaryItems = <> @@ -348,7 +364,7 @@ object frmZdyAttachCP_HX_Sel: TfrmZdyAttachCP_HX_Sel Top = 204 end object OpenDialog1: TOpenDialog - Left = 936 - Top = 41 + Left = 992 + Top = 17 end end diff --git a/工资管理(Wage.dll)/U_ZdyAttachCP_HX_Sel.pas b/工资管理(Wage.dll)/U_ZdyAttachCP_HX_Sel.pas index 2df6bcd..4619cd1 100644 --- a/工资管理(Wage.dll)/U_ZdyAttachCP_HX_Sel.pas +++ b/工资管理(Wage.dll)/U_ZdyAttachCP_HX_Sel.pas @@ -12,7 +12,8 @@ uses cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, - cxTextEdit, Menus, cxLookAndFeelPainters, cxButtons; + cxTextEdit, Menus, cxLookAndFeelPainters, cxButtons, cxLookAndFeels, + dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter, cxNavigator; type FdDy = record @@ -61,6 +62,8 @@ type v2Column7: TcxGridDBColumn; zjm: TEdit; Label6: TLabel; + Label7: TLabel; + defstr2: TEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/工资管理(Wage.dll)/Wage.dof b/工资管理(Wage.dll)/Wage.dof index 3054de7..e18d164 100644 --- a/工资管理(Wage.dll)/Wage.dof +++ b/工资管理(Wage.dll)/Wage.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\ֿ\Ŀ\\ʹ(Wage.dll)\testDll.exe +HostApplication=D:\ֿ\Ŀ\D7WMyunxiang\ʹ(Wage.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/AES.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/AES.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/AES.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/AES.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.cfg b/废/云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.cfg similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.cfg rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.cfg diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof b/废/云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dpr b/废/云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dpr similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dpr rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dpr diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.res b/废/云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.res similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.res rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/DyeingFinishingPlan.res diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/ElAES.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/ElAES.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/ElAES.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/ElAES.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/File.INI b/废/云翔新贸易(DyeingFinishingPlan.dll)/File.INI similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/File.INI rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/File.INI diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/ProjectGroup1.bpg b/废/云翔新贸易(DyeingFinishingPlan.dll)/ProjectGroup1.bpg similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/ProjectGroup1.bpg rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/ProjectGroup1.bpg diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/SYSTEMSET.ini b/废/云翔新贸易(DyeingFinishingPlan.dll)/SYSTEMSET.ini similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/SYSTEMSET.ini rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/SYSTEMSET.ini diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_DataLink.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_DataLink.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_DataLink.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_DataLink.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_DataLink.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_DataLink.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_DataLink.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_DataLink.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_FileUp.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_FileUp.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_FileUp.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_FileUp.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_FjList_RZ.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_FjList_RZ.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_FjList_RZ.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_FjList_RZ.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_FjList_RZ.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_FjList_RZ.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_FjList_RZ.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_FjList_RZ.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_GetDllForm.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_GetDllForm.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_GetDllForm.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_GetDllForm.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_JYJT_New.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_JYJT_New.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_JYJT_New.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_JYJT_New.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_JYJT_New.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_JYJT_New.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_JYJT_New.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_JYJT_New.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_KHListSelJJ.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_KHListSelJJ.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_KHListSelJJ.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_KHListSelJJ.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_KHListSelJJ.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_KHListSelJJ.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_KHListSelJJ.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_KHListSelJJ.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_KHList_CX.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_KHList_CX.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_KHList_CX.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_KHList_CX.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_KHList_CX.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_KHList_CX.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_KHList_CX.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_KHList_CX.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_LabelList.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_LabelList.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_LabelList.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_LabelList.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_MJManageNewFDNew_New.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_MJManageNewFDNew_New.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_MJManageNewFDNew_New.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_MJManageNewFDNew_New.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_MJManageNewFDNew_New.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_MJManageNewFDNew_New.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_MJManageNewFDNew_New.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_MJManageNewFDNew_New.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_OrderInPut_New.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_OrderInPut_New.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_OrderInPut_New.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_OrderInPut_New.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_OrderInPut_New.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_OrderInPut_New.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_OrderInPut_New.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_OrderInPut_New.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_BQNew.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_BQNew.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_BQNew.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_BQNew.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_BQNew.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_BQNew.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_BQNew.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_BQNew.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_ProductOrderNewList_New.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_SCPerson.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_SCPerson.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_SCPerson.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_SCPerson.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_SLT.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_SLT.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_SLT.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_SLT.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelp.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelp.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelp.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelp.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelp.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelp.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelp.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelp.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelpSel.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelpSel.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelpSel.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelpSel.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelpSel.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelpSel.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelpSel.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_ZDYHelpSel.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_iniParam.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_iniParam.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_iniParam.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_iniParam.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_testdll.dfm b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_testdll.dfm similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_testdll.dfm rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_testdll.dfm diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/U_testdll.pas b/废/云翔新贸易(DyeingFinishingPlan.dll)/U_testdll.pas similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/U_testdll.pas rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/U_testdll.pas diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/testDll.cfg b/废/云翔新贸易(DyeingFinishingPlan.dll)/testDll.cfg similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/testDll.cfg rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/testDll.cfg diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/testDll.dof b/废/云翔新贸易(DyeingFinishingPlan.dll)/testDll.dof similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/testDll.dof rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/testDll.dof diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/testDll.dpr b/废/云翔新贸易(DyeingFinishingPlan.dll)/testDll.dpr similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/testDll.dpr rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/testDll.dpr diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/testDll.res b/废/云翔新贸易(DyeingFinishingPlan.dll)/testDll.res similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/testDll.res rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/testDll.res diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/testDllDJ.res b/废/云翔新贸易(DyeingFinishingPlan.dll)/testDllDJ.res similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/testDllDJ.res rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/testDllDJ.res diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/已登记.wav b/废/云翔新贸易(DyeingFinishingPlan.dll)/已登记.wav similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/已登记.wav rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/已登记.wav diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/条码错误.wav b/废/云翔新贸易(DyeingFinishingPlan.dll)/条码错误.wav similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/条码错误.wav rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/条码错误.wav diff --git a/云翔新贸易(DyeingFinishingPlan.dll)/登记成功.wav b/废/云翔新贸易(DyeingFinishingPlan.dll)/登记成功.wav similarity index 100% rename from 云翔新贸易(DyeingFinishingPlan.dll)/登记成功.wav rename to 废/云翔新贸易(DyeingFinishingPlan.dll)/登记成功.wav diff --git a/生产计划单(DyeingFinishingPlan.dll)我/AES.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/AES.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/AES.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/AES.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.cfg b/废/生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.cfg similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.cfg rename to 废/生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.cfg diff --git a/生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.dof b/废/生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.dof similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.dof rename to 废/生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.dof diff --git a/生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.dpr b/废/生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.dpr similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.dpr rename to 废/生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.dpr diff --git a/生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.res b/废/生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.res similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.res rename to 废/生产计划单(DyeingFinishingPlan.dll)我/DyeingFinishingPlan.res diff --git a/生产计划单(DyeingFinishingPlan.dll)我/ElAES.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/ElAES.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/ElAES.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/ElAES.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/File.INI b/废/生产计划单(DyeingFinishingPlan.dll)我/File.INI similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/File.INI rename to 废/生产计划单(DyeingFinishingPlan.dll)我/File.INI diff --git a/生产计划单(DyeingFinishingPlan.dll)我/ProjectGroup1.bpg b/废/生产计划单(DyeingFinishingPlan.dll)我/ProjectGroup1.bpg similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/ProjectGroup1.bpg rename to 废/生产计划单(DyeingFinishingPlan.dll)我/ProjectGroup1.bpg diff --git a/生产计划单(DyeingFinishingPlan.dll)我/SYSTEMSET.ini b/废/生产计划单(DyeingFinishingPlan.dll)我/SYSTEMSET.ini similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/SYSTEMSET.ini rename to 废/生产计划单(DyeingFinishingPlan.dll)我/SYSTEMSET.ini diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_BPZdy_LRM.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_BPZdy_LRM.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_BPZdy_LRM.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_BPZdy_LRM.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_BPZdy_LRM.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_BPZdy_LRM.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_BPZdy_LRM.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_BPZdy_LRM.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_CPDBAO.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_CPDBAO.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_CPDBAO.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_CPDBAO.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_CPDBAO.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_CPDBAO.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_CPDBAO.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_CPDBAO.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_CheJianXS.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_CheJianXS.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_CheJianXS.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_CheJianXS.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_CheJianXS.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_CheJianXS.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_CheJianXS.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_CheJianXS.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_DataLink.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_DataLink.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_DataLink.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_DataLink.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_DataLink.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_DataLink.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_DataLink.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_DataLink.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_FileUp.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_FileUp.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_FileUp.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_FileUp.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_FjList_RZ.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_FjList_RZ.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_FjList_RZ.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_FjList_RZ.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_FjList_RZ.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_FjList_RZ.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_FjList_RZ.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_FjList_RZ.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_GYSList.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_GYSList.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_GYSList.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_GYSList.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_GYSList.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_GYSList.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_GYSList.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_GYSList.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_GetDllForm.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_GetDllForm.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_GetDllForm.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_GetDllForm.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_JYColorOrdList.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_JYColorOrdList.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_JYColorOrdList.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_JYColorOrdList.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_JYColorOrdList.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_JYColorOrdList.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_JYColorOrdList.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_JYColorOrdList.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_JYHZList.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_JYHZList.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_JYHZList.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_JYHZList.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_JYHZList.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_JYHZList.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_JYHZList.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_JYHZList.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_JYJT_New.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_JYJT_New.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_JYJT_New.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_JYJT_New.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_JYJT_New.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_JYJT_New.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_JYJT_New.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_JYJT_New.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdColorList.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdColorList.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdColorList.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdColorList.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdColorList.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdColorList.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdColorList.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdColorList.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdList.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdList.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdList.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdList.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdList.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdList.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdList.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_JYOrdList.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_JYRLList.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_JYRLList.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_JYRLList.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_JYRLList.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_JYRLList.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_JYRLList.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_JYRLList.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_JYRLList.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_KHGYSList.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_KHGYSList.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_KHGYSList.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_KHGYSList.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_KHGYSList.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_KHGYSList.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_KHGYSList.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_KHGYSList.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_KHListSelJJ.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_KHListSelJJ.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_KHListSelJJ.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_KHListSelJJ.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_KHListSelJJ.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_KHListSelJJ.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_KHListSelJJ.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_KHListSelJJ.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_KHList_CX.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_KHList_CX.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_KHList_CX.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_KHList_CX.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_KHList_CX.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_KHList_CX.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_KHList_CX.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_KHList_CX.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_LabelAdd.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_LabelAdd.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_LabelAdd.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_LabelAdd.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_LabelAdd.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_LabelAdd.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_LabelAdd.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_LabelAdd.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_LabelList.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_LabelList.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_LabelList.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_LabelList.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_LabelList.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_LabelList.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_LabelList.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_LabelList.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_MJEdit.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_MJEdit.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_MJEdit.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_MJEdit.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_MJEdit.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_MJEdit.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_MJEdit.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_MJEdit.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_MJJYTH.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_MJJYTH.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_MJJYTH.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_MJJYTH.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_MJJYTH.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_MJJYTH.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_MJJYTH.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_MJJYTH.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_MJManageNewFDNew_New.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_MJManageNewFDNew_New.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_MJManageNewFDNew_New.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_MJManageNewFDNew_New.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_MJManageNewFDNew_New.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_MJManageNewFDNew_New.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_MJManageNewFDNew_New.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_MJManageNewFDNew_New.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_MLMangeRSSel.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_MLMangeRSSel.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_MLMangeRSSel.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_MLMangeRSSel.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_MLMangeRSSel.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_MLMangeRSSel.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_MLMangeRSSel.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_MLMangeRSSel.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_MLOrderMXSel.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_MLOrderMXSel.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_MLOrderMXSel.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_MLOrderMXSel.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_MLOrderMXSel.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_MLOrderMXSel.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_MLOrderMXSel.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_MLOrderMXSel.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_OrdColorSel.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_OrdColorSel.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_OrdColorSel.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_OrdColorSel.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_OrdColorSel.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_OrdColorSel.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_OrdColorSel.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_OrdColorSel.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_OrderHCList.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderHCList.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_OrderHCList.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderHCList.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_OrderHCList.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderHCList.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_OrderHCList.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderHCList.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New210625.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New210625.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New210625.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New210625.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New210625.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New210625.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New210625.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New210625.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New220327.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New220327.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New220327.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New220327.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New220327.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New220327.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New220327.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderInPut_New220327.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_OrderList.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderList.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_OrderList.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderList.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_OrderList.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderList.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_OrderList.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_OrderList.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_PRTLable.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_PRTLable.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_PRTLable.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_PRTLable.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_PRTLable.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_PRTLable.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_PRTLable.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_PRTLable.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_BQNew.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_BQNew.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_BQNew.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_BQNew.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_BQNew.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_BQNew.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_BQNew.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_BQNew.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_New.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_New.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_New.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_New.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_New.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_New.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_New.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_ProductOrderNewList_New.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_SCColor.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_SCColor.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_SCColor.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_SCColor.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_SCColor.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_SCColor.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_SCColor.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_SCColor.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_SCPerson.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_SCPerson.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_SCPerson.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_SCPerson.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_SLT.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_SLT.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_SLT.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_SLT.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelp.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelp.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelp.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelp.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelp.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelp.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelp.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelp.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelpSel.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelpSel.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelpSel.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelpSel.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelpSel.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelpSel.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelpSel.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_ZDYHelpSel.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_ZHCPList_Sel.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_ZHCPList_Sel.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_ZHCPList_Sel.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_ZHCPList_Sel.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_ZHCPList_Sel.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_ZHCPList_Sel.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_ZHCPList_Sel.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_ZHCPList_Sel.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_ZdyAttachCP_HX_sel.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_ZdyAttachCP_HX_sel.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_ZdyAttachCP_HX_sel.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_ZdyAttachCP_HX_sel.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_ZdyAttachCP_HX_sel.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_ZdyAttachCP_HX_sel.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_ZdyAttachCP_HX_sel.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_ZdyAttachCP_HX_sel.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_iniParam.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_iniParam.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_iniParam.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_iniParam.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_testdll.dfm b/废/生产计划单(DyeingFinishingPlan.dll)我/U_testdll.dfm similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_testdll.dfm rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_testdll.dfm diff --git a/生产计划单(DyeingFinishingPlan.dll)我/U_testdll.pas b/废/生产计划单(DyeingFinishingPlan.dll)我/U_testdll.pas similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/U_testdll.pas rename to 废/生产计划单(DyeingFinishingPlan.dll)我/U_testdll.pas diff --git a/生产计划单(DyeingFinishingPlan.dll)我/testDll.cfg b/废/生产计划单(DyeingFinishingPlan.dll)我/testDll.cfg similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/testDll.cfg rename to 废/生产计划单(DyeingFinishingPlan.dll)我/testDll.cfg diff --git a/生产计划单(DyeingFinishingPlan.dll)我/testDll.dof b/废/生产计划单(DyeingFinishingPlan.dll)我/testDll.dof similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/testDll.dof rename to 废/生产计划单(DyeingFinishingPlan.dll)我/testDll.dof diff --git a/生产计划单(DyeingFinishingPlan.dll)我/testDll.dpr b/废/生产计划单(DyeingFinishingPlan.dll)我/testDll.dpr similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/testDll.dpr rename to 废/生产计划单(DyeingFinishingPlan.dll)我/testDll.dpr diff --git a/生产计划单(DyeingFinishingPlan.dll)我/testDll.res b/废/生产计划单(DyeingFinishingPlan.dll)我/testDll.res similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/testDll.res rename to 废/生产计划单(DyeingFinishingPlan.dll)我/testDll.res diff --git a/生产计划单(DyeingFinishingPlan.dll)我/testDllDJ.res b/废/生产计划单(DyeingFinishingPlan.dll)我/testDllDJ.res similarity index 100% rename from 生产计划单(DyeingFinishingPlan.dll)我/testDllDJ.res rename to 废/生产计划单(DyeingFinishingPlan.dll)我/testDllDJ.res diff --git a/生产计划单原/AES.pas b/废/生产计划单原/AES.pas similarity index 100% rename from 生产计划单原/AES.pas rename to 废/生产计划单原/AES.pas diff --git a/生产计划单原/DyeingFinishingPlan.cfg b/废/生产计划单原/DyeingFinishingPlan.cfg similarity index 100% rename from 生产计划单原/DyeingFinishingPlan.cfg rename to 废/生产计划单原/DyeingFinishingPlan.cfg diff --git a/生产计划单原/DyeingFinishingPlan.dof b/废/生产计划单原/DyeingFinishingPlan.dof similarity index 100% rename from 生产计划单原/DyeingFinishingPlan.dof rename to 废/生产计划单原/DyeingFinishingPlan.dof diff --git a/生产计划单原/DyeingFinishingPlan.dpr b/废/生产计划单原/DyeingFinishingPlan.dpr similarity index 100% rename from 生产计划单原/DyeingFinishingPlan.dpr rename to 废/生产计划单原/DyeingFinishingPlan.dpr diff --git a/生产计划单原/DyeingFinishingPlan.res b/废/生产计划单原/DyeingFinishingPlan.res similarity index 100% rename from 生产计划单原/DyeingFinishingPlan.res rename to 废/生产计划单原/DyeingFinishingPlan.res diff --git a/生产计划单原/ElAES.pas b/废/生产计划单原/ElAES.pas similarity index 100% rename from 生产计划单原/ElAES.pas rename to 废/生产计划单原/ElAES.pas diff --git a/生产计划单原/File.INI b/废/生产计划单原/File.INI similarity index 100% rename from 生产计划单原/File.INI rename to 废/生产计划单原/File.INI diff --git a/生产计划单原/ProjectGroup1.bpg b/废/生产计划单原/ProjectGroup1.bpg similarity index 100% rename from 生产计划单原/ProjectGroup1.bpg rename to 废/生产计划单原/ProjectGroup1.bpg diff --git a/生产计划单原/SYSTEMSET.ini b/废/生产计划单原/SYSTEMSET.ini similarity index 100% rename from 生产计划单原/SYSTEMSET.ini rename to 废/生产计划单原/SYSTEMSET.ini diff --git a/生产计划单原/U_BPZdy_LRM.dfm b/废/生产计划单原/U_BPZdy_LRM.dfm similarity index 100% rename from 生产计划单原/U_BPZdy_LRM.dfm rename to 废/生产计划单原/U_BPZdy_LRM.dfm diff --git a/生产计划单原/U_BPZdy_LRM.pas b/废/生产计划单原/U_BPZdy_LRM.pas similarity index 100% rename from 生产计划单原/U_BPZdy_LRM.pas rename to 废/生产计划单原/U_BPZdy_LRM.pas diff --git a/生产计划单原/U_CPDBAO.dfm b/废/生产计划单原/U_CPDBAO.dfm similarity index 100% rename from 生产计划单原/U_CPDBAO.dfm rename to 废/生产计划单原/U_CPDBAO.dfm diff --git a/生产计划单原/U_CPDBAO.pas b/废/生产计划单原/U_CPDBAO.pas similarity index 100% rename from 生产计划单原/U_CPDBAO.pas rename to 废/生产计划单原/U_CPDBAO.pas diff --git a/生产计划单原/U_CheJianXS.dfm b/废/生产计划单原/U_CheJianXS.dfm similarity index 100% rename from 生产计划单原/U_CheJianXS.dfm rename to 废/生产计划单原/U_CheJianXS.dfm diff --git a/生产计划单原/U_CheJianXS.pas b/废/生产计划单原/U_CheJianXS.pas similarity index 100% rename from 生产计划单原/U_CheJianXS.pas rename to 废/生产计划单原/U_CheJianXS.pas diff --git a/生产计划单原/U_DataLink.dfm b/废/生产计划单原/U_DataLink.dfm similarity index 100% rename from 生产计划单原/U_DataLink.dfm rename to 废/生产计划单原/U_DataLink.dfm diff --git a/生产计划单原/U_DataLink.pas b/废/生产计划单原/U_DataLink.pas similarity index 100% rename from 生产计划单原/U_DataLink.pas rename to 废/生产计划单原/U_DataLink.pas diff --git a/生产计划单原/U_FileUp.pas b/废/生产计划单原/U_FileUp.pas similarity index 100% rename from 生产计划单原/U_FileUp.pas rename to 废/生产计划单原/U_FileUp.pas diff --git a/生产计划单原/U_FjList_RZ.dfm b/废/生产计划单原/U_FjList_RZ.dfm similarity index 100% rename from 生产计划单原/U_FjList_RZ.dfm rename to 废/生产计划单原/U_FjList_RZ.dfm diff --git a/生产计划单原/U_FjList_RZ.pas b/废/生产计划单原/U_FjList_RZ.pas similarity index 100% rename from 生产计划单原/U_FjList_RZ.pas rename to 废/生产计划单原/U_FjList_RZ.pas diff --git a/生产计划单原/U_GYSList.dfm b/废/生产计划单原/U_GYSList.dfm similarity index 100% rename from 生产计划单原/U_GYSList.dfm rename to 废/生产计划单原/U_GYSList.dfm diff --git a/生产计划单原/U_GYSList.pas b/废/生产计划单原/U_GYSList.pas similarity index 100% rename from 生产计划单原/U_GYSList.pas rename to 废/生产计划单原/U_GYSList.pas diff --git a/生产计划单原/U_GetDllForm.pas b/废/生产计划单原/U_GetDllForm.pas similarity index 100% rename from 生产计划单原/U_GetDllForm.pas rename to 废/生产计划单原/U_GetDllForm.pas diff --git a/生产计划单原/U_JYColorOrdList.dfm b/废/生产计划单原/U_JYColorOrdList.dfm similarity index 100% rename from 生产计划单原/U_JYColorOrdList.dfm rename to 废/生产计划单原/U_JYColorOrdList.dfm diff --git a/生产计划单原/U_JYColorOrdList.pas b/废/生产计划单原/U_JYColorOrdList.pas similarity index 100% rename from 生产计划单原/U_JYColorOrdList.pas rename to 废/生产计划单原/U_JYColorOrdList.pas diff --git a/生产计划单原/U_JYHZList.dfm b/废/生产计划单原/U_JYHZList.dfm similarity index 100% rename from 生产计划单原/U_JYHZList.dfm rename to 废/生产计划单原/U_JYHZList.dfm diff --git a/生产计划单原/U_JYHZList.pas b/废/生产计划单原/U_JYHZList.pas similarity index 100% rename from 生产计划单原/U_JYHZList.pas rename to 废/生产计划单原/U_JYHZList.pas diff --git a/生产计划单原/U_JYJT_New.dfm b/废/生产计划单原/U_JYJT_New.dfm similarity index 100% rename from 生产计划单原/U_JYJT_New.dfm rename to 废/生产计划单原/U_JYJT_New.dfm diff --git a/生产计划单原/U_JYJT_New.pas b/废/生产计划单原/U_JYJT_New.pas similarity index 100% rename from 生产计划单原/U_JYJT_New.pas rename to 废/生产计划单原/U_JYJT_New.pas diff --git a/生产计划单原/U_JYOrdColorList.dfm b/废/生产计划单原/U_JYOrdColorList.dfm similarity index 100% rename from 生产计划单原/U_JYOrdColorList.dfm rename to 废/生产计划单原/U_JYOrdColorList.dfm diff --git a/生产计划单原/U_JYOrdColorList.pas b/废/生产计划单原/U_JYOrdColorList.pas similarity index 100% rename from 生产计划单原/U_JYOrdColorList.pas rename to 废/生产计划单原/U_JYOrdColorList.pas diff --git a/生产计划单原/U_JYOrdList.dfm b/废/生产计划单原/U_JYOrdList.dfm similarity index 100% rename from 生产计划单原/U_JYOrdList.dfm rename to 废/生产计划单原/U_JYOrdList.dfm diff --git a/生产计划单原/U_JYOrdList.pas b/废/生产计划单原/U_JYOrdList.pas similarity index 100% rename from 生产计划单原/U_JYOrdList.pas rename to 废/生产计划单原/U_JYOrdList.pas diff --git a/生产计划单原/U_JYRLList.dfm b/废/生产计划单原/U_JYRLList.dfm similarity index 100% rename from 生产计划单原/U_JYRLList.dfm rename to 废/生产计划单原/U_JYRLList.dfm diff --git a/生产计划单原/U_JYRLList.pas b/废/生产计划单原/U_JYRLList.pas similarity index 100% rename from 生产计划单原/U_JYRLList.pas rename to 废/生产计划单原/U_JYRLList.pas diff --git a/生产计划单原/U_KHGYSList.dfm b/废/生产计划单原/U_KHGYSList.dfm similarity index 100% rename from 生产计划单原/U_KHGYSList.dfm rename to 废/生产计划单原/U_KHGYSList.dfm diff --git a/生产计划单原/U_KHGYSList.pas b/废/生产计划单原/U_KHGYSList.pas similarity index 100% rename from 生产计划单原/U_KHGYSList.pas rename to 废/生产计划单原/U_KHGYSList.pas diff --git a/生产计划单原/U_KHListSelJJ.dfm b/废/生产计划单原/U_KHListSelJJ.dfm similarity index 100% rename from 生产计划单原/U_KHListSelJJ.dfm rename to 废/生产计划单原/U_KHListSelJJ.dfm diff --git a/生产计划单原/U_KHListSelJJ.pas b/废/生产计划单原/U_KHListSelJJ.pas similarity index 100% rename from 生产计划单原/U_KHListSelJJ.pas rename to 废/生产计划单原/U_KHListSelJJ.pas diff --git a/生产计划单原/U_KHList_CX.dfm b/废/生产计划单原/U_KHList_CX.dfm similarity index 100% rename from 生产计划单原/U_KHList_CX.dfm rename to 废/生产计划单原/U_KHList_CX.dfm diff --git a/生产计划单原/U_KHList_CX.pas b/废/生产计划单原/U_KHList_CX.pas similarity index 100% rename from 生产计划单原/U_KHList_CX.pas rename to 废/生产计划单原/U_KHList_CX.pas diff --git a/生产计划单原/U_LabelAdd.dfm b/废/生产计划单原/U_LabelAdd.dfm similarity index 100% rename from 生产计划单原/U_LabelAdd.dfm rename to 废/生产计划单原/U_LabelAdd.dfm diff --git a/生产计划单原/U_LabelAdd.pas b/废/生产计划单原/U_LabelAdd.pas similarity index 100% rename from 生产计划单原/U_LabelAdd.pas rename to 废/生产计划单原/U_LabelAdd.pas diff --git a/生产计划单原/U_LabelList.dfm b/废/生产计划单原/U_LabelList.dfm similarity index 100% rename from 生产计划单原/U_LabelList.dfm rename to 废/生产计划单原/U_LabelList.dfm diff --git a/生产计划单原/U_LabelList.pas b/废/生产计划单原/U_LabelList.pas similarity index 100% rename from 生产计划单原/U_LabelList.pas rename to 废/生产计划单原/U_LabelList.pas diff --git a/生产计划单原/U_MJEdit.dfm b/废/生产计划单原/U_MJEdit.dfm similarity index 100% rename from 生产计划单原/U_MJEdit.dfm rename to 废/生产计划单原/U_MJEdit.dfm diff --git a/生产计划单原/U_MJEdit.pas b/废/生产计划单原/U_MJEdit.pas similarity index 100% rename from 生产计划单原/U_MJEdit.pas rename to 废/生产计划单原/U_MJEdit.pas diff --git a/生产计划单原/U_MJJYTH.dfm b/废/生产计划单原/U_MJJYTH.dfm similarity index 100% rename from 生产计划单原/U_MJJYTH.dfm rename to 废/生产计划单原/U_MJJYTH.dfm diff --git a/生产计划单原/U_MJJYTH.pas b/废/生产计划单原/U_MJJYTH.pas similarity index 100% rename from 生产计划单原/U_MJJYTH.pas rename to 废/生产计划单原/U_MJJYTH.pas diff --git a/生产计划单原/U_MJManageNewFDNew_New.dfm b/废/生产计划单原/U_MJManageNewFDNew_New.dfm similarity index 100% rename from 生产计划单原/U_MJManageNewFDNew_New.dfm rename to 废/生产计划单原/U_MJManageNewFDNew_New.dfm diff --git a/生产计划单原/U_MJManageNewFDNew_New.pas b/废/生产计划单原/U_MJManageNewFDNew_New.pas similarity index 100% rename from 生产计划单原/U_MJManageNewFDNew_New.pas rename to 废/生产计划单原/U_MJManageNewFDNew_New.pas diff --git a/生产计划单原/U_MLMangeRSSel.dfm b/废/生产计划单原/U_MLMangeRSSel.dfm similarity index 100% rename from 生产计划单原/U_MLMangeRSSel.dfm rename to 废/生产计划单原/U_MLMangeRSSel.dfm diff --git a/生产计划单原/U_MLMangeRSSel.pas b/废/生产计划单原/U_MLMangeRSSel.pas similarity index 100% rename from 生产计划单原/U_MLMangeRSSel.pas rename to 废/生产计划单原/U_MLMangeRSSel.pas diff --git a/生产计划单原/U_MLOrderMXSel.dfm b/废/生产计划单原/U_MLOrderMXSel.dfm similarity index 100% rename from 生产计划单原/U_MLOrderMXSel.dfm rename to 废/生产计划单原/U_MLOrderMXSel.dfm diff --git a/生产计划单原/U_MLOrderMXSel.pas b/废/生产计划单原/U_MLOrderMXSel.pas similarity index 100% rename from 生产计划单原/U_MLOrderMXSel.pas rename to 废/生产计划单原/U_MLOrderMXSel.pas diff --git a/生产计划单原/U_OrdColorSel.dfm b/废/生产计划单原/U_OrdColorSel.dfm similarity index 100% rename from 生产计划单原/U_OrdColorSel.dfm rename to 废/生产计划单原/U_OrdColorSel.dfm diff --git a/生产计划单原/U_OrdColorSel.pas b/废/生产计划单原/U_OrdColorSel.pas similarity index 100% rename from 生产计划单原/U_OrdColorSel.pas rename to 废/生产计划单原/U_OrdColorSel.pas diff --git a/生产计划单原/U_OrderHCList.dfm b/废/生产计划单原/U_OrderHCList.dfm similarity index 100% rename from 生产计划单原/U_OrderHCList.dfm rename to 废/生产计划单原/U_OrderHCList.dfm diff --git a/生产计划单原/U_OrderHCList.pas b/废/生产计划单原/U_OrderHCList.pas similarity index 100% rename from 生产计划单原/U_OrderHCList.pas rename to 废/生产计划单原/U_OrderHCList.pas diff --git a/生产计划单原/U_OrderInPut_New.dfm b/废/生产计划单原/U_OrderInPut_New.dfm similarity index 100% rename from 生产计划单原/U_OrderInPut_New.dfm rename to 废/生产计划单原/U_OrderInPut_New.dfm diff --git a/生产计划单原/U_OrderInPut_New.pas b/废/生产计划单原/U_OrderInPut_New.pas similarity index 100% rename from 生产计划单原/U_OrderInPut_New.pas rename to 废/生产计划单原/U_OrderInPut_New.pas diff --git a/生产计划单原/U_OrderInPut_New210625.dfm b/废/生产计划单原/U_OrderInPut_New210625.dfm similarity index 100% rename from 生产计划单原/U_OrderInPut_New210625.dfm rename to 废/生产计划单原/U_OrderInPut_New210625.dfm diff --git a/生产计划单原/U_OrderInPut_New210625.pas b/废/生产计划单原/U_OrderInPut_New210625.pas similarity index 100% rename from 生产计划单原/U_OrderInPut_New210625.pas rename to 废/生产计划单原/U_OrderInPut_New210625.pas diff --git a/生产计划单原/U_OrderInPut_New220327.dfm b/废/生产计划单原/U_OrderInPut_New220327.dfm similarity index 100% rename from 生产计划单原/U_OrderInPut_New220327.dfm rename to 废/生产计划单原/U_OrderInPut_New220327.dfm diff --git a/生产计划单原/U_OrderInPut_New220327.pas b/废/生产计划单原/U_OrderInPut_New220327.pas similarity index 100% rename from 生产计划单原/U_OrderInPut_New220327.pas rename to 废/生产计划单原/U_OrderInPut_New220327.pas diff --git a/生产计划单原/U_OrderList.dfm b/废/生产计划单原/U_OrderList.dfm similarity index 100% rename from 生产计划单原/U_OrderList.dfm rename to 废/生产计划单原/U_OrderList.dfm diff --git a/生产计划单原/U_OrderList.pas b/废/生产计划单原/U_OrderList.pas similarity index 100% rename from 生产计划单原/U_OrderList.pas rename to 废/生产计划单原/U_OrderList.pas diff --git a/生产计划单原/U_PRTLable.dfm b/废/生产计划单原/U_PRTLable.dfm similarity index 100% rename from 生产计划单原/U_PRTLable.dfm rename to 废/生产计划单原/U_PRTLable.dfm diff --git a/生产计划单原/U_PRTLable.pas b/废/生产计划单原/U_PRTLable.pas similarity index 100% rename from 生产计划单原/U_PRTLable.pas rename to 废/生产计划单原/U_PRTLable.pas diff --git a/生产计划单原/U_ProductOrderNewList_BQNew.dfm b/废/生产计划单原/U_ProductOrderNewList_BQNew.dfm similarity index 100% rename from 生产计划单原/U_ProductOrderNewList_BQNew.dfm rename to 废/生产计划单原/U_ProductOrderNewList_BQNew.dfm diff --git a/生产计划单原/U_ProductOrderNewList_BQNew.pas b/废/生产计划单原/U_ProductOrderNewList_BQNew.pas similarity index 100% rename from 生产计划单原/U_ProductOrderNewList_BQNew.pas rename to 废/生产计划单原/U_ProductOrderNewList_BQNew.pas diff --git a/生产计划单原/U_ProductOrderNewList_New.dfm b/废/生产计划单原/U_ProductOrderNewList_New.dfm similarity index 100% rename from 生产计划单原/U_ProductOrderNewList_New.dfm rename to 废/生产计划单原/U_ProductOrderNewList_New.dfm diff --git a/生产计划单原/U_ProductOrderNewList_New.pas b/废/生产计划单原/U_ProductOrderNewList_New.pas similarity index 100% rename from 生产计划单原/U_ProductOrderNewList_New.pas rename to 废/生产计划单原/U_ProductOrderNewList_New.pas diff --git a/生产计划单原/U_SCColor.dfm b/废/生产计划单原/U_SCColor.dfm similarity index 100% rename from 生产计划单原/U_SCColor.dfm rename to 废/生产计划单原/U_SCColor.dfm diff --git a/生产计划单原/U_SCColor.pas b/废/生产计划单原/U_SCColor.pas similarity index 100% rename from 生产计划单原/U_SCColor.pas rename to 废/生产计划单原/U_SCColor.pas diff --git a/生产计划单原/U_SCPerson.dfm b/废/生产计划单原/U_SCPerson.dfm similarity index 100% rename from 生产计划单原/U_SCPerson.dfm rename to 废/生产计划单原/U_SCPerson.dfm diff --git a/生产计划单原/U_SLT.dfm b/废/生产计划单原/U_SLT.dfm similarity index 100% rename from 生产计划单原/U_SLT.dfm rename to 废/生产计划单原/U_SLT.dfm diff --git a/生产计划单原/U_ZDYHelp.dfm b/废/生产计划单原/U_ZDYHelp.dfm similarity index 100% rename from 生产计划单原/U_ZDYHelp.dfm rename to 废/生产计划单原/U_ZDYHelp.dfm diff --git a/生产计划单原/U_ZDYHelp.pas b/废/生产计划单原/U_ZDYHelp.pas similarity index 100% rename from 生产计划单原/U_ZDYHelp.pas rename to 废/生产计划单原/U_ZDYHelp.pas diff --git a/生产计划单原/U_ZDYHelpSel.dfm b/废/生产计划单原/U_ZDYHelpSel.dfm similarity index 100% rename from 生产计划单原/U_ZDYHelpSel.dfm rename to 废/生产计划单原/U_ZDYHelpSel.dfm diff --git a/生产计划单原/U_ZDYHelpSel.pas b/废/生产计划单原/U_ZDYHelpSel.pas similarity index 100% rename from 生产计划单原/U_ZDYHelpSel.pas rename to 废/生产计划单原/U_ZDYHelpSel.pas diff --git a/生产计划单原/U_ZHCPList_Sel.dfm b/废/生产计划单原/U_ZHCPList_Sel.dfm similarity index 100% rename from 生产计划单原/U_ZHCPList_Sel.dfm rename to 废/生产计划单原/U_ZHCPList_Sel.dfm diff --git a/生产计划单原/U_ZHCPList_Sel.pas b/废/生产计划单原/U_ZHCPList_Sel.pas similarity index 100% rename from 生产计划单原/U_ZHCPList_Sel.pas rename to 废/生产计划单原/U_ZHCPList_Sel.pas diff --git a/生产计划单原/U_ZdyAttachCP_HX_sel.dfm b/废/生产计划单原/U_ZdyAttachCP_HX_sel.dfm similarity index 100% rename from 生产计划单原/U_ZdyAttachCP_HX_sel.dfm rename to 废/生产计划单原/U_ZdyAttachCP_HX_sel.dfm diff --git a/生产计划单原/U_ZdyAttachCP_HX_sel.pas b/废/生产计划单原/U_ZdyAttachCP_HX_sel.pas similarity index 100% rename from 生产计划单原/U_ZdyAttachCP_HX_sel.pas rename to 废/生产计划单原/U_ZdyAttachCP_HX_sel.pas diff --git a/生产计划单原/U_iniParam.pas b/废/生产计划单原/U_iniParam.pas similarity index 100% rename from 生产计划单原/U_iniParam.pas rename to 废/生产计划单原/U_iniParam.pas diff --git a/生产计划单原/U_testdll.dfm b/废/生产计划单原/U_testdll.dfm similarity index 100% rename from 生产计划单原/U_testdll.dfm rename to 废/生产计划单原/U_testdll.dfm diff --git a/生产计划单原/U_testdll.pas b/废/生产计划单原/U_testdll.pas similarity index 100% rename from 生产计划单原/U_testdll.pas rename to 废/生产计划单原/U_testdll.pas diff --git a/生产计划单原/testDll.cfg b/废/生产计划单原/testDll.cfg similarity index 100% rename from 生产计划单原/testDll.cfg rename to 废/生产计划单原/testDll.cfg diff --git a/生产计划单原/testDll.dof b/废/生产计划单原/testDll.dof similarity index 100% rename from 生产计划单原/testDll.dof rename to 废/生产计划单原/testDll.dof diff --git a/生产计划单原/testDll.dpr b/废/生产计划单原/testDll.dpr similarity index 100% rename from 生产计划单原/testDll.dpr rename to 废/生产计划单原/testDll.dpr diff --git a/生产计划单原/testDll.res b/废/生产计划单原/testDll.res similarity index 100% rename from 生产计划单原/testDll.res rename to 废/生产计划单原/testDll.res diff --git a/生产计划单原/testDllDJ.res b/废/生产计划单原/testDllDJ.res similarity index 100% rename from 生产计划单原/testDllDJ.res rename to 废/生产计划单原/testDllDJ.res diff --git a/生产计划单(DyeingFinishingPlan.dll)/U_GetDllForm.pas b/生产计划单(DyeingFinishingPlan.dll)/U_GetDllForm.pas index 860ffc2..75371d4 100644 --- a/生产计划单(DyeingFinishingPlan.dll)/U_GetDllForm.pas +++ b/生产计划单(DyeingFinishingPlan.dll)/U_GetDllForm.pas @@ -65,16 +65,18 @@ begin SetLength(user, 255); SetLength(pswd, 255); - server := '106.14.113.234,7781'; - dtbase := 'yunxiangdata'; - user := 'sa'; - pswd := 'rightsoft@123'; - DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; -// DConString := DataBaseStr; - if trim(DataBaseStr) <> '' then + if Trim(DataBaseStr) = '' then + begin + server := '106.14.113.234,7781'; + dtbase := 'yunxiangdata'; + user := 'sa'; + pswd := 'rightsoft@123'; + DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; + end + else + begin DConString := DataBaseStr; - DParameters1 := 'Ȩ'; -// DParameters3:='1'; + end; if not ConnData() then diff --git a/生产计划单(DyeingFinishingPlan.dll)/U_OrderHCList.dfm b/生产计划单(DyeingFinishingPlan.dll)/U_OrderHCList.dfm index f6f1d07..fe92c98 100644 --- a/生产计划单(DyeingFinishingPlan.dll)/U_OrderHCList.dfm +++ b/生产计划单(DyeingFinishingPlan.dll)/U_OrderHCList.dfm @@ -1,13 +1,13 @@ object frmOrderHCList: TfrmOrderHCList - Left = 450 - Top = 375 + Left = 59 + Top = 71 Width = 1556 Height = 834 Caption = #26816#39564#20449#24687#31649#29702 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False @@ -15,15 +15,16 @@ object frmOrderHCList: TfrmOrderHCList OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow - PixelsPerInch = 96 - TextHeight = 12 + PixelsPerInch = 120 + TextHeight = 15 object cxGrid2: TcxGrid Left = 0 - Top = 92 - Width = 185 - Height = 711 + Top = 107 + Width = 231 + Height = 690 Align = alLeft TabOrder = 5 + Visible = False object TV2: TcxGridDBTableView OnDblClick = TV2DblClick Navigator.Buttons.CustomButtons = <> @@ -165,114 +166,114 @@ object frmOrderHCList: TfrmOrderHCList Left = 0 Top = 32 Width = 1548 - Height = 60 + Height = 75 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label3: TLabel - Left = 255 - Top = 8 - Width = 60 - Height = 19 + Left = 319 + Top = 10 + Width = 72 + Height = 23 Caption = #35746#21333#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object TLabel - Left = 255 - Top = 36 - Width = 60 - Height = 19 + Left = 319 + Top = 45 + Width = 72 + Height = 23 Caption = #21512#21516#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel - Left = 423 - Top = 36 - Width = 40 - Height = 19 + Left = 529 + Top = 45 + Width = 48 + Height = 23 Caption = #39068#33394 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel - Left = 549 - Top = 8 - Width = 80 - Height = 19 + Left = 686 + Top = 10 + Width = 96 + Height = 23 Caption = #20135#21697#21517#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel - Left = 423 - Top = 8 - Width = 40 - Height = 19 + Left = 529 + Top = 10 + Width = 48 + Height = 23 Caption = #23458#25143 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label22: TLabel - Left = 1023 - Top = 113 - Width = 52 - Height = 12 + Left = 1279 + Top = 141 + Width = 64 + Height = 15 Caption = #26159#21542#21512#26684 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel - Left = 560 - Top = 36 - Width = 60 - Height = 19 + Left = 700 + Top = 45 + Width = 72 + Height = 23 Caption = #33457#22411#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object BegDate: TDateTimePicker - Left = 97 - Top = 4 - Width = 152 - Height = 27 + Left = 121 + Top = 5 + Width = 190 + Height = 31 Date = 40675.464742650460000000 Format = 'yyyy-MM-dd' Time = 40675.464742650460000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -280,16 +281,16 @@ object frmOrderHCList: TfrmOrderHCList OnChange = BegDateChange end object EndDate: TDateTimePicker - Left = 97 - Top = 32 - Width = 152 - Height = 27 + Left = 121 + Top = 40 + Width = 190 + Height = 31 Date = 40675.464761099540000000 Format = 'yyyy-MM-dd' Time = 40675.464761099540000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -298,13 +299,13 @@ object frmOrderHCList: TfrmOrderHCList end object MLOrderNo: TEdit Tag = 2 - Left = 313 - Top = 4 - Width = 85 - Height = 27 + Left = 391 + Top = 5 + Width = 107 + Height = 31 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -313,13 +314,13 @@ object frmOrderHCList: TfrmOrderHCList end object MLConNo: TEdit Tag = 2 - Left = 313 - Top = 32 - Width = 86 - Height = 27 + Left = 391 + Top = 40 + Width = 108 + Height = 31 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -328,13 +329,13 @@ object frmOrderHCList: TfrmOrderHCList end object MLCodeName: TEdit Tag = 2 - Left = 628 - Top = 4 - Width = 86 - Height = 27 + Left = 785 + Top = 5 + Width = 108 + Height = 31 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -342,14 +343,14 @@ object frmOrderHCList: TfrmOrderHCList OnKeyPress = MLConNoKeyPress end object CheckBox1: TCheckBox - Left = 750 - Top = 87 - Width = 131 - Height = 17 + Left = 938 + Top = 109 + Width = 163 + Height = 21 Caption = #26816#39564#25253#21578#33521#25991 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 + Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -357,23 +358,23 @@ object frmOrderHCList: TfrmOrderHCList Visible = False end object CheckBox2: TCheckBox - Left = 20 - Top = 176 - Width = 97 - Height = 17 + Left = 25 + Top = 220 + Width = 121 + Height = 21 Caption = #20840#36873 TabOrder = 6 OnClick = CheckBox2Click end object KHNameJC: TEdit Tag = 2 - Left = 461 - Top = 4 - Width = 86 - Height = 27 + Left = 576 + Top = 5 + Width = 108 + Height = 31 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -382,13 +383,13 @@ object frmOrderHCList: TfrmOrderHCList end object MLColor: TEdit Tag = 2 - Left = 461 - Top = 32 - Width = 86 - Height = 27 + Left = 576 + Top = 40 + Width = 108 + Height = 31 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -397,12 +398,12 @@ object frmOrderHCList: TfrmOrderHCList end object ISHZ: TComboBox Tag = 2 - Left = 1076 - Top = 107 - Width = 70 - Height = 20 + Left = 1345 + Top = 134 + Width = 88 + Height = 23 Style = csDropDownList - ItemHeight = 12 + ItemHeight = 15 TabOrder = 9 Items.Strings = ( '' @@ -414,15 +415,15 @@ object frmOrderHCList: TfrmOrderHCList '') end object IsJYTime: TCheckBox - Left = 6 - Top = 8 - Width = 92 - Height = 17 + Left = 8 + Top = 10 + Width = 115 + Height = 21 Caption = #26597#35810#26085#26399 Checked = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -431,13 +432,13 @@ object frmOrderHCList: TfrmOrderHCList end object MLHX: TEdit Tag = 2 - Left = 628 - Top = 32 - Width = 86 - Height = 27 + Left = 785 + Top = 40 + Width = 108 + Height = 31 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -446,10 +447,10 @@ object frmOrderHCList: TfrmOrderHCList end end object cxGrid1: TcxGrid - Left = 185 - Top = 92 - Width = 1363 - Height = 711 + Left = 231 + Top = 107 + Width = 1317 + Height = 690 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView @@ -665,23 +666,23 @@ object frmOrderHCList: TfrmOrderHCList end end object Panel4: TPanel - Left = 74 - Top = 199 - Width = 294 - Height = 213 + Left = 93 + Top = 249 + Width = 367 + Height = 266 TabOrder = 3 Visible = False object Label11: TLabel - Left = 48 - Top = 88 - Width = 6 - Height = 12 + Left = 60 + Top = 110 + Width = 8 + Height = 15 end object Panel10: TPanel Left = 1 Top = 1 - Width = 292 - Height = 23 + Width = 365 + Height = 29 Align = alTop Alignment = taLeftJustify BevelOuter = bvNone @@ -689,17 +690,17 @@ object frmOrderHCList: TfrmOrderHCList Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnMouseMove = Panel10MouseMove object Image2: TImage - Left = 269 - Top = 3 - Width = 22 - Height = 16 + Left = 336 + Top = 4 + Width = 28 + Height = 20 ParentShowHint = False Picture.Data = { 07544269746D617076040000424D760400000000000036000000280000001500 @@ -746,13 +747,13 @@ object frmOrderHCList: TfrmOrderHCList end object RichEdit1: TRichEdit Left = 1 - Top = 24 - Width = 292 - Height = 188 + Top = 30 + Width = 365 + Height = 235 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -19 + Font.Height = -23 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False @@ -760,16 +761,16 @@ object frmOrderHCList: TfrmOrderHCList end end object MovePanel2: TMovePanel - Left = 544 - Top = 236 - Width = 289 - Height = 49 + Left = 680 + Top = 295 + Width = 361 + Height = 61 BevelInner = bvLowered Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 Color = clSkyBlue Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -13 + Font.Height = -17 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False diff --git a/生产计划单(DyeingFinishingPlan.dll)/U_OrderHCList.pas b/生产计划单(DyeingFinishingPlan.dll)/U_OrderHCList.pas index d5e2b23..e7acfa0 100644 --- a/生产计划单(DyeingFinishingPlan.dll)/U_OrderHCList.pas +++ b/生产计划单(DyeingFinishingPlan.dll)/U_OrderHCList.pas @@ -372,36 +372,34 @@ begin sql.Clear; sql.Add('delete TbForBatch where DName=' + quotedstr(Trim(DCode))); SQL.Add('and MainType=' + quotedstr('Ԥ뵥')); - // ShowMessage(sql.text); ExecSQL; end; with Order_Main do begin - Order_Main.Locate('SSel', True, []); - FNewMLID := Trim(Order_Main.FieldByName('NewMLID').AsString); while Order_Main.Locate('SSel', true, []) do begin - if Trim(Order_Main.FieldByName('NewMLID').AsString) <> FNewMLID then + if Trim(FNewMLID)='' then begin - Application.MessageBox('ѡ!', 'ʾ', 0); - Exit; - end - else + FNewMLID:=Trim(Order_Main.FieldByName('KHNameJC').AsString); + end else begin - with Self.ADOQueryCmd do + if Trim(Order_Main.FieldByName('KHNameJC').AsString) <> FNewMLID then begin - Close; - sql.Clear; - sql.Add(' insert into TbForBatch(DName,MainType,Value1) '); - sql.Add(' values( ' + quotedstr(Trim(DCode)) + ',' + quotedstr('Ԥ뵥') + ',' + quotedstr(Trim(Self.Order_Main.FieldByName('NewSubid').AsString)) + ')'); -// ShowMessage(SQL.text); - ExecSQL; - end; + Application.MessageBox('ѡͻ!', 'ʾ', 0); + Exit; + end end; - Edit; - Order_Main.FieldByName('SSel').Value := false; - end; + with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' insert into TbForBatch(DName,MainType,Value1) '); + sql.Add(' values( ' + quotedstr(Trim(DCode)) + ',' + quotedstr('Ԥ뵥') + ',' + quotedstr(Trim(Self.Order_Main.FieldByName('NewSubid').AsString)) + ')'); + ExecSQL; + end; + Delete; + end; end; with ADOQueryTemp do @@ -427,6 +425,35 @@ begin Application.MessageBox(PChar('û' + ExtractFilePath(Application.ExeName) + 'Report\뵥.rmf'), 'ʾ', 0); end; + {with Order_Main do + begin + Order_Main.Locate('SSel', True, []); + FNewMLID := Trim(Order_Main.FieldByName('NewMLID').AsString); + while Order_Main.Locate('SSel', true, []) do + begin + if Trim(Order_Main.FieldByName('NewMLID').AsString) <> FNewMLID then + begin + Application.MessageBox('ѡ!', 'ʾ', 0); + Exit; + end + else + begin + with Self.ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' insert into TbForBatch(DName,MainType,Value1) '); + sql.Add(' values( ' + quotedstr(Trim(DCode)) + ',' + quotedstr('Ԥ뵥') + ',' + quotedstr(Trim(Self.Order_Main.FieldByName('NewSubid').AsString)) + ')'); + + ExecSQL; + end; + end; + Edit; + Order_Main.FieldByName('SSel').Value := false; + end; + + end; } + end; procedure TfrmOrderHCList.MDNameBtnClick(Sender: TObject);