diff --git a/E01梭织生产计划/ProjectGroup1.groupproj.local b/E01梭织生产计划/ProjectGroup1.groupproj.local index 4e29179..a3b8f0e 100644 --- a/E01梭织生产计划/ProjectGroup1.groupproj.local +++ b/E01梭织生产计划/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index 26ff3bc..536d179 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,53 +1,81 @@  - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas - 1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas - 1899/12/30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas - 1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas + 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas + 1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas + 1899-12-30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas + 1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas + 1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm + 1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -69,7 +97,7 @@ - + diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache index 6dca46c..116c728 100644 Binary files a/E01梭织生产计划/TatPlan.identcache and b/E01梭织生产计划/TatPlan.identcache differ diff --git a/E01梭织生产计划/testDll.identcache b/E01梭织生产计划/testDll.identcache index 18dde52..ceadc48 100644 Binary files a/E01梭织生产计划/testDll.identcache and b/E01梭织生产计划/testDll.identcache differ diff --git a/E03梭织坯布检验/ProjectGroup1.groupproj.local b/E03梭织坯布检验/ProjectGroup1.groupproj.local index 64a322b..04cf60b 100644 --- a/E03梭织坯布检验/ProjectGroup1.groupproj.local +++ b/E03梭织坯布检验/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/E03梭织坯布检验/TatInsp.dproj b/E03梭织坯布检验/TatInsp.dproj index 907c76d..10e0a7a 100644 --- a/E03梭织坯布检验/TatInsp.dproj +++ b/E03梭织坯布检验/TatInsp.dproj @@ -80,7 +80,7 @@ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\testDll.exe + D:\D10W\项目代码\D10szXIANGYING\E03梭织坯布检验\testDll.exe diff --git a/E03梭织坯布检验/TatInsp.dproj.local b/E03梭织坯布检验/TatInsp.dproj.local index f6a7cc0..8414e6b 100644 --- a/E03梭织坯布检验/TatInsp.dproj.local +++ b/E03梭织坯布检验/TatInsp.dproj.local @@ -1,52 +1,52 @@  + 1899-12-30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899-12-30 00:00:00.000.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas - 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm - 1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= 1899-12-30 00:00:00.000.060,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatInspSHHZ.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm + 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas + 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas 1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas - 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas 1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj - 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas - 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas + 1899-12-30 00:00:00.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm + 1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj + 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj + 1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas @@ -65,7 +65,7 @@ - + diff --git a/E03梭织坯布检验/TatInsp.identcache b/E03梭织坯布检验/TatInsp.identcache index 6e55e2b..4b12b21 100644 Binary files a/E03梭织坯布检验/TatInsp.identcache and b/E03梭织坯布检验/TatInsp.identcache differ diff --git a/E03梭织坯布检验/TatInspLogin.dproj.local b/E03梭织坯布检验/TatInspLogin.dproj.local index c95aff1..d6c741c 100644 --- a/E03梭织坯布检验/TatInspLogin.dproj.local +++ b/E03梭织坯布检验/TatInspLogin.dproj.local @@ -49,7 +49,7 @@ - 1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj - 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj + 1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj + 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj diff --git a/E03梭织坯布检验/TatInspLogin.identcache b/E03梭织坯布检验/TatInspLogin.identcache index f9c4d47..0d6c92a 100644 Binary files a/E03梭织坯布检验/TatInspLogin.identcache and b/E03梭织坯布检验/TatInspLogin.identcache differ diff --git a/E03梭织坯布检验/U_TatMachCutHZList.dfm b/E03梭织坯布检验/U_TatMachCutHZList.dfm index f2b557c..260fc57 100644 --- a/E03梭织坯布检验/U_TatMachCutHZList.dfm +++ b/E03梭织坯布检验/U_TatMachCutHZList.dfm @@ -7,6 +7,7 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList FormStyle = fsMDIChild Position = poScreenCenter Visible = True + ExplicitLeft = -359 ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 @@ -502,6 +503,20 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList Options.Editing = False Width = 80 end + object Tv1Column2: TcxGridDBColumn + Caption = #20004#23544#32440#31649#29992#37327 + DataBinding.FieldName = 'EZG' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 92 + end + object Tv1Column3: TcxGridDBColumn + Caption = #19977#23544#32440#31649#29992#37327 + DataBinding.FieldName = 'SZG' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 94 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 diff --git a/E03梭织坯布检验/U_TatMachCutHZList.pas b/E03梭织坯布检验/U_TatMachCutHZList.pas index 163a461..5371829 100644 --- a/E03梭织坯布检验/U_TatMachCutHZList.pas +++ b/E03梭织坯布检验/U_TatMachCutHZList.pas @@ -66,6 +66,8 @@ type N2: TMenuItem; N3: TMenuItem; Tv1SHGJ: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); diff --git a/E03梭织坯布检验/testDll.identcache b/E03梭织坯布检验/testDll.identcache index 293c0c8..44c0196 100644 Binary files a/E03梭织坯布检验/testDll.identcache and b/E03梭织坯布检验/testDll.identcache differ diff --git a/E04梭织坯布仓库/ProjectGroup1.groupproj.local b/E04梭织坯布仓库/ProjectGroup1.groupproj.local index 84f1617..26cd64e 100644 --- a/E04梭织坯布仓库/ProjectGroup1.groupproj.local +++ b/E04梭织坯布仓库/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/E04梭织坯布仓库/TatClothStk.dproj b/E04梭织坯布仓库/TatClothStk.dproj index 26823ac..ac421da 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj +++ b/E04梭织坯布仓库/TatClothStk.dproj @@ -80,7 +80,7 @@ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\testDll.exe + D:\D10W\项目代码\D10szXIANGYING\E04梭织坯布仓库\testDll.exe diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local index 229f651..a8197eb 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj.local +++ b/E04梭织坯布仓库/TatClothStk.dproj.local @@ -1,9 +1,9 @@  + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas @@ -94,7 +94,7 @@ - + diff --git a/E04梭织坯布仓库/TatClothStk.identcache b/E04梭织坯布仓库/TatClothStk.identcache index 59738af..150ba46 100644 Binary files a/E04梭织坯布仓库/TatClothStk.identcache and b/E04梭织坯布仓库/TatClothStk.identcache differ diff --git a/E04梭织坯布仓库/U_CPXSList.dfm b/E04梭织坯布仓库/U_CPXSList.dfm new file mode 100644 index 0000000..cadf22d --- /dev/null +++ b/E04梭织坯布仓库/U_CPXSList.dfm @@ -0,0 +1,493 @@ +inherited frmCPXSList: TfrmCPXSList + Left = 184 + Top = 138 + Caption = #20135#21697#38144#21806#21015#34920 + ClientHeight = 600 + ClientWidth = 1540 + FormStyle = fsMDIChild + Position = poScreenCenter + Visible = True + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatClothStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 190 + Top = 10 + Width = 52 + Height = 12 + Hint = '0' + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 88 + Top = 6 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = IsJYTimeClick + end + object C_Name: TEdit + Tag = 2 + Left = 248 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 5 + OnKeyPress = C_NameKeyPress + end + end + object Panel2: TPanel [2] + Left = 0 + Top = 105 + Width = 1540 + Height = 495 + Align = alClient + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1538 + Height = 493 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_1 + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column1 + end + item + Kind = skSum + Column = Tv1Column2 + end + item + Kind = skSum + Column = Tv1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_TatClothStk.SHuangSe + Styles.Footer = DataLink_TatClothStk.Default + Styles.Header = DataLink_TatClothStk.Default + Styles.Inactive = DataLink_TatClothStk.SHuangSe + Styles.Selection = DataLink_TatClothStk.SHuangSe + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 76 + end + object Tv1Column2: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'meter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object Tv1Column4: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'ckmoney' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 553 + Top = 200 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 708 + Top = 156 + end + object GPM_1: TcxGridPopupMenu + PopupMenus = <> + Left = 608 + Top = 136 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 552 + Top = 140 + end + object PM_1: TPopupMenu + Left = 368 + Top = 248 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 461 + Top = 322 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 557 + Top = 330 + end + object PM_2: TPopupMenu + Left = 469 + Top = 386 + object N4: TMenuItem + Caption = #20840#36873 + OnClick = N4Click + end + object N5: TMenuItem + Caption = #20840#24323 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #22797#21046 + end + object N7: TMenuItem + Caption = #22797#21046#27880#33050 + end + end + object GPM_2: TcxGridPopupMenu + PopupMenus = <> + Left = 565 + Top = 386 + end +end diff --git a/E04梭织坯布仓库/U_CPXSList.pas b/E04梭织坯布仓库/U_CPXSList.pas new file mode 100644 index 0000000..c98d0af --- /dev/null +++ b/E04梭织坯布仓库/U_CPXSList.pas @@ -0,0 +1,507 @@ +unit U_CPXSList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, + System.StrUtils, dxScrollbarAnnotations; + +type + TfrmCPXSList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + Label5: TLabel; + C_Name: TEdit; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + Panel2: TPanel; + N2: TMenuItem; + N3: TMenuItem; + CDS_2: TClientDataSet; + DS_2: TDataSource; + PM_2: TPopupMenu; + GPM_2: TcxGridPopupMenu; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + N7: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + + procedure N2Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure N5Click(Sender: TObject); + + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure InitGrid2(); + procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); + + { Private declarations } + public + canshu1: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint, U_TatClothStkHZList2; + +{$R *.dfm} + +procedure TfrmCPXSList.SetStatus(); +begin + +end; + +procedure TfrmCPXSList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmCPXSList.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmCPXSList.InitGrid(); +var + WSql: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add('select C_Name,C_GramWeight,c_width,sum(meter)meter,count(*)ps,sum(ckmoney)ckmoney '); + + SQL.Add('from V_Tat_Cloth_IO A where 1=1 ' + WSql); + SQL.Add(' and Grade <> ''ϲ'' '); + SQL.Add(' and Grade <> ''ѭ'' '); + SQL.Add(' and iotype = ''۳'' '); + + sql.Add(' group by C_Name,C_GramWeight,c_width ORDER BY count(*) DESC'); + + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + +procedure TfrmCPXSList.InitGrid2(); +var + WSql: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight '); + SQL.Add(',pf=SUM(CASE WHEN (GRADE=''ŵƷ'' or GRADE=''Ʒ'' or GRADE=''С'' or GRADE='''' or GRADE='''') THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter ELSE 0 END )AS Ydqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END )AS edJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter ELSE 0 END )AS edqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END )AS xjJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter ELSE 0 END )AS xjqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN 1 ELSE 0 END )AS fbJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN A.meter ELSE 0 END )AS fbqty'); +// SQL.Add(',SUM(CASE WHEN GRADE=''ϲ'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS fqJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS fqqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN 1 ELSE 0 END )AS xhJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN A.meter ELSE 0 END )AS xhqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS csJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS csqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF'); + sql.Add(', issp=isnull(A.issp,'''') '); + + SQL.Add('from V_Tat_Cloth_stk A where 1=1 '); + SQL.Add(' and Grade <> ''ϲ'' '); + SQL.Add(' and Grade <> ''ѭ'' '); + + SQL.Add(WSql); + sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') '); + SQL.Add(' order by A.C_NAME, CAST(A.C_Width AS DECIMAL(10,2)),A.C_GramWeight'); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + + finally + ADOQueryMain.EnableControls; + + end; + +end; + +procedure TfrmCPXSList.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmCPXSList.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); + +end; + +procedure TfrmCPXSList.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmCPXSList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmCPXSList.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmCPXSList.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + InitGrid2(); + end; +end; + +procedure TfrmCPXSList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmCPXSList.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(trim(self.Caption) + 'Tv11', Tv1, '۱'); + + CurrentPage := 1; + RecordsNumber := 500; + canshu1 := Trim(Self.fParameters1); + + SetStatus(); + InitGrid(); + +end; + +procedure TfrmCPXSList.TBExportClick(Sender: TObject); +begin + + if CDS_1.IsEmpty then + Exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); + +end; + +procedure TfrmCPXSList.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmCPXSList.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmCPXSList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmCPXSList.Tv1DblClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmTatClothStkHZList2 := TfrmTatClothStkHZList2.Create(Application); + with frmTatClothStkHZList2 do + begin + fEndDateTime := self.EndDate.DateTime; + fBegDateTime := Self.BegDate.DateTime; + + fC_Name := Self.CDS_1.FieldByName('C_Name').AsString; + fC_GramWeight := Self.CDS_1.FieldByName('C_GramWeight').AsString; + fissp := Self.CDS_1.FieldByName('issp').AsString; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatClothStkHZList2.Free; + end; +end; + +procedure TfrmCPXSList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmCPXSList.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmCPXSList.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmCPXSList.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmCPXSList.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmCPXSList.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmCPXSList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmCPXSList.N3Click(Sender: TObject); +begin + + CopyColumnSummaryToClipboard(TV1, TV1.Controller.FocusedColumn); +end; + +procedure TfrmCPXSList.N4Click(Sender: TObject); +begin + + SelOKNo(CDS_2, true); +end; + +procedure TfrmCPXSList.N5Click(Sender: TObject); +begin + + SelOKNo(CDS_2, false); +end; + +procedure TfrmCPXSList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); +var + SummaryIndex: Integer; + SummaryText: string; +begin + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmCPXSList.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmCPXSList.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv11', Tv1, '۱'); + +end; + +end. + diff --git a/E04梭织坯布仓库/U_GetDllForm.pas b/E04梭织坯布仓库/U_GetDllForm.pas index 551b6e0..c4a45a3 100644 --- a/E04梭织坯布仓库/U_GetDllForm.pas +++ b/E04梭织坯布仓库/U_GetDllForm.pas @@ -18,7 +18,7 @@ uses U_DataLink, U_iniParam, U_TatClothInEdit, U_TatClothInList, U_TatDRList, U_TatClothDROutEdit, U_TatClothOutEdit, U_TatClothOutList, U_TatClothStkList, U_TatClothStkHZList, U_TatClothCKHZList, U_TatClothRKHZList, - U_TatClothStkListPH, U_TatClothCRStkHZList; + U_TatClothStkListPH, U_TatClothCRStkHZList, U_KHXSList, U_CPXSList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -272,6 +272,29 @@ begin end; end; + 611: //ͻ۱ + begin + with TfrmKHXSList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + 612: //Ʒ۱ + begin + with TfrmCPXSList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + 10000: begin for i := 0 to application.MainForm.MDIChildCount - 1 do diff --git a/E04梭织坯布仓库/U_KHXSList.dfm b/E04梭织坯布仓库/U_KHXSList.dfm new file mode 100644 index 0000000..7f7e4f0 --- /dev/null +++ b/E04梭织坯布仓库/U_KHXSList.dfm @@ -0,0 +1,479 @@ +inherited frmKHXSList: TfrmKHXSList + Left = 184 + Top = 138 + Caption = #23458#25143#38144#21806#21015#34920 + ClientHeight = 600 + ClientWidth = 1540 + FormStyle = fsMDIChild + Position = poScreenCenter + Visible = True + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatClothStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 190 + Top = 10 + Width = 26 + Height = 12 + Hint = '0' + Caption = #23458#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 88 + Top = 6 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = IsJYTimeClick + end + object ToCoName2: TEdit + Tag = 2 + Left = 237 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 5 + OnKeyPress = ToCoName2KeyPress + end + end + object Panel2: TPanel [2] + Left = 0 + Top = 105 + Width = 1540 + Height = 495 + Align = alClient + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1538 + Height = 493 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_1 + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column4 + end + item + Kind = skSum + Column = Tv1Column2 + end + item + Kind = skSum + Column = Tv1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_TatClothStk.SHuangSe + Styles.Footer = DataLink_TatClothStk.Default + Styles.Header = DataLink_TatClothStk.Default + Styles.Inactive = DataLink_TatClothStk.SHuangSe + Styles.Selection = DataLink_TatClothStk.SHuangSe + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'ToCoName2' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 76 + end + object Tv1Column2: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'meter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object Tv1Column4: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'ckmoney' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 553 + Top = 200 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 708 + Top = 156 + end + object GPM_1: TcxGridPopupMenu + PopupMenus = <> + Left = 608 + Top = 136 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 552 + Top = 140 + end + object PM_1: TPopupMenu + Left = 368 + Top = 248 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 461 + Top = 322 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 557 + Top = 330 + end + object PM_2: TPopupMenu + Left = 469 + Top = 386 + object N4: TMenuItem + Caption = #20840#36873 + OnClick = N4Click + end + object N5: TMenuItem + Caption = #20840#24323 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #22797#21046 + end + object N7: TMenuItem + Caption = #22797#21046#27880#33050 + end + end + object GPM_2: TcxGridPopupMenu + PopupMenus = <> + Left = 565 + Top = 386 + end +end diff --git a/E04梭织坯布仓库/U_KHXSList.pas b/E04梭织坯布仓库/U_KHXSList.pas new file mode 100644 index 0000000..9af35ab --- /dev/null +++ b/E04梭织坯布仓库/U_KHXSList.pas @@ -0,0 +1,505 @@ +unit U_KHXSList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, + System.StrUtils, dxScrollbarAnnotations; + +type + TfrmKHXSList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + Label5: TLabel; + ToCoName2: TEdit; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + Panel2: TPanel; + N2: TMenuItem; + N3: TMenuItem; + CDS_2: TClientDataSet; + DS_2: TDataSource; + PM_2: TPopupMenu; + GPM_2: TcxGridPopupMenu; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + N7: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure ToCoName2KeyPress(Sender: TObject; var Key: Char); + + procedure N2Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure N5Click(Sender: TObject); + + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure InitGrid2(); + procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); + + { Private declarations } + public + canshu1: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint, U_TatClothStkHZList2; + +{$R *.dfm} + +procedure TfrmKHXSList.SetStatus(); +begin + +end; + +procedure TfrmKHXSList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmKHXSList.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmKHXSList.InitGrid(); +var + WSql: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add('select ToCoName2,sum(meter)meter,count(*)ps,sum(ckmoney)ckmoney '); + + SQL.Add('from V_Tat_Cloth_IO A where 1=1 ' + WSql); + SQL.Add(' and Grade <> ''ϲ'' '); + SQL.Add(' and Grade <> ''ѭ'' '); + SQL.Add(' and iotype = ''۳'' '); + + sql.Add(' group by ToCoName2 ORDER BY count(*) DESC'); + + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + +procedure TfrmKHXSList.InitGrid2(); +var + WSql: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight '); + SQL.Add(',pf=SUM(CASE WHEN (GRADE=''ŵƷ'' or GRADE=''Ʒ'' or GRADE=''С'' or GRADE='''' or GRADE='''') THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter ELSE 0 END )AS Ydqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END )AS edJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter ELSE 0 END )AS edqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END )AS xjJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter ELSE 0 END )AS xjqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN 1 ELSE 0 END )AS fbJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN A.meter ELSE 0 END )AS fbqty'); +// SQL.Add(',SUM(CASE WHEN GRADE=''ϲ'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS fqJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS fqqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN 1 ELSE 0 END )AS xhJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN A.meter ELSE 0 END )AS xhqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS csJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS csqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF'); + sql.Add(', issp=isnull(A.issp,'''') '); + + SQL.Add('from V_Tat_Cloth_stk A where 1=1 '); + SQL.Add(' and Grade <> ''ϲ'' '); + SQL.Add(' and Grade <> ''ѭ'' '); + + SQL.Add(WSql); + sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') '); + SQL.Add(' order by A.C_NAME, CAST(A.C_Width AS DECIMAL(10,2)),A.C_GramWeight'); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + + finally + ADOQueryMain.EnableControls; + + end; + +end; + +procedure TfrmKHXSList.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmKHXSList.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); + +end; + +procedure TfrmKHXSList.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmKHXSList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmKHXSList.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmKHXSList.ToCoName2KeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + InitGrid2(); + end; +end; + +procedure TfrmKHXSList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmKHXSList.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(trim(self.Caption) + 'Tv11', Tv1, '۱'); + + CurrentPage := 1; + RecordsNumber := 500; + canshu1 := Trim(Self.fParameters1); + + SetStatus(); + InitGrid(); + +end; + +procedure TfrmKHXSList.TBExportClick(Sender: TObject); +begin + + if CDS_1.IsEmpty then + Exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); + +end; + +procedure TfrmKHXSList.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmKHXSList.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmKHXSList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmKHXSList.Tv1DblClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmTatClothStkHZList2 := TfrmTatClothStkHZList2.Create(Application); + with frmTatClothStkHZList2 do + begin + fEndDateTime := self.EndDate.DateTime; + fBegDateTime := Self.BegDate.DateTime; + + fC_Name := Self.CDS_1.FieldByName('C_Name').AsString; + fC_GramWeight := Self.CDS_1.FieldByName('C_GramWeight').AsString; + fissp := Self.CDS_1.FieldByName('issp').AsString; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatClothStkHZList2.Free; + end; +end; + +procedure TfrmKHXSList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmKHXSList.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmKHXSList.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmKHXSList.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmKHXSList.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmKHXSList.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmKHXSList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmKHXSList.N3Click(Sender: TObject); +begin + + CopyColumnSummaryToClipboard(TV1, TV1.Controller.FocusedColumn); +end; + +procedure TfrmKHXSList.N4Click(Sender: TObject); +begin + + SelOKNo(CDS_2, true); +end; + +procedure TfrmKHXSList.N5Click(Sender: TObject); +begin + + SelOKNo(CDS_2, false); +end; + +procedure TfrmKHXSList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); +var + SummaryIndex: Integer; + SummaryText: string; +begin + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmKHXSList.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmKHXSList.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv11', Tv1, '۱'); + +end; + +end. + diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.dfm b/E04梭织坯布仓库/U_TatClothCKHZList.dfm index 3940058..b1b6545 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothCKHZList.dfm @@ -267,7 +267,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Top = 105 Width = 1540 Height = 516 - ActivePage = TabSheet4 + ActivePage = TabSheet1 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -428,6 +428,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Options.Editing = False Width = 80 end + object Tv1Column1: TcxGridDBColumn + Caption = #36192#36865 + DataBinding.FieldName = 'ISZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -452,6 +459,8 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList ParentFont = False PopupMenu = PM_4 TabOrder = 0 + ExplicitLeft = 40 + ExplicitTop = 3 object Tv4: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -699,6 +708,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList HeaderAlignmentHorz = taCenter Width = 80 end + object Tv4Column1: TcxGridDBColumn + Caption = #36192#36865 + DataBinding.FieldName = 'ISZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 67 + end end object cxGridLevel3: TcxGridLevel GridView = Tv4 @@ -850,6 +866,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Options.Editing = False Width = 80 end + object Tv2Column1: TcxGridDBColumn + Caption = #36192#36865 + DataBinding.FieldName = 'ISZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end end object cxGridLevel1: TcxGridLevel GridView = Tv2 @@ -992,6 +1015,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Options.Editing = False Width = 80 end + object Tv3Column1: TcxGridDBColumn + Caption = #36192#36865 + DataBinding.FieldName = 'ISZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 69 + end end object cxGridLevel2: TcxGridLevel GridView = Tv3 diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.pas b/E04梭织坯布仓库/U_TatClothCKHZList.pas index b46fc90..7cab83a 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.pas +++ b/E04梭织坯布仓库/U_TatClothCKHZList.pas @@ -131,6 +131,10 @@ type Tv4isIncludeTax: TcxGridDBColumn; Tv4Grade: TcxGridDBColumn; Tv4FHDH: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv4Column1: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -239,7 +243,7 @@ begin Close; sql.Clear; - sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight,DRMID = '''' '); + sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight,DRMID = '''',ISZS '); // sql.Add(',B.ToCoID '); // sql.Add(',COName = '''' '); sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); @@ -254,9 +258,9 @@ begin begin sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')'); end; - SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,isnull(A.issp,'''')'); + SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,isnull(A.issp,''''),ISZS'); // ,B.ToCoID - SQL.Add(' order by A.C_CODE ,A.C_GramWeight'); + SQL.Add(' order by A.C_CODE ,A.C_GramWeight,ISZS'); // showmessage(sql.text); Open; @@ -293,7 +297,7 @@ begin Filtered := False; Close; sql.Clear; - sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight '); + sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight,ISZS '); // sql.Add(',ioType=max(A.ioType) '); sql.Add(',COName = '''' '); sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); @@ -308,7 +312,7 @@ begin sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')'); end; - SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,ISNULL(A.issp, '''')'); + SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,ISNULL(A.issp, ''''),ISZS'); SQL.Add(' order By A.C_CODE ,A.C_GramWeight'); // SQL.Add(' order by B.DRMID'); // showmessage(sql.text); @@ -350,7 +354,7 @@ begin sql.Add('SELECT '); sql.Add(' B.ToCoID,DRMID = '''' '); sql.Add(',COName = (select COName from BS_Company X where X.CoID = B.ToCoID)'); - sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); + sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight),ISZS '); // sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) '); // SQL.Add(',issp=isnull(A.issp,'''') '); sql.Add(' FROM V_Tat_Cloth_IO A '); @@ -362,7 +366,7 @@ begin begin sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')'); end; - SQL.Add(' group by B.ToCoID'); + SQL.Add(' group by B.ToCoID,ISZS'); // showmessage(sql.text); Open; @@ -400,7 +404,7 @@ begin Close; sql.Clear; - sql.Add('SELECT A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID,A.Grade,A.FHDH '); + sql.Add('SELECT ISZS,A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID,A.Grade,A.FHDH '); sql.Add(',CAST(ioTime AS DATE) as ioTime, C.PFPrice, (CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) * C.PFPrice) as amount'); // sql.Add(', (SELECT COName FROM BS_Company X WHERE X.CoID = B.ToCoID) as COName'); sql.Add(', D.COName,D.Saleser,D.dept,B.CompanyName,C.note,C.isIncludeTax '); @@ -443,7 +447,7 @@ begin SQL.Add(' and A.C_GramWeight like ' + QuotedStr('%' + Trim(C_GramWeight.text) + '%')); end; - SQL.Add(' group by A.C_CODE,A.C_width,A.C_GramWeight,A.IONO,A.C_Name,isnull(A.issp,''''),B.ToCoID, D.COName,CAST(ioTime AS DATE),C.PFPrice,D.Saleser,D.dept,B.CompanyName,C.note,C.isIncludeTax,A.Grade,A.FHDH'); + SQL.Add(' group by ISZS,A.C_CODE,A.C_width,A.C_GramWeight,A.IONO,A.C_Name,isnull(A.issp,''''),B.ToCoID, D.COName,CAST(ioTime AS DATE),C.PFPrice,D.Saleser,D.dept,B.CompanyName,C.note,C.isIncludeTax,A.Grade,A.FHDH'); // sql.Add(' HAVING(select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame))); SQL.Add(' order by A.IONO,A.C_CODE,CAST(A.C_width AS INT),A.C_GramWeight,CAST(ioTime AS DATE),A.Grade,A.FHDH'); @@ -565,7 +569,7 @@ begin end else if PageControl1.ActivePage.Caption = 'гⵥϸ' then begin - if CDS_4.IsEmpty then + if CDS_4.IsEmpty then Exit; with CDS_4 do begin @@ -578,7 +582,7 @@ begin end else if PageControl1.ActivePage.Caption = '޳ⵥ' then begin - if CDS_2.IsEmpty then + if CDS_2.IsEmpty then Exit; with CDS_2 do begin @@ -591,7 +595,7 @@ begin end else if PageControl1.ActivePage.Caption = 'гⵥ(ͻ)' then begin - if CDS_3.IsEmpty then + if CDS_3.IsEmpty then Exit; with CDS_3 do begin diff --git a/E04梭织坯布仓库/U_TatClothOutList.dfm b/E04梭织坯布仓库/U_TatClothOutList.dfm index 173013a..cd22d97 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.dfm +++ b/E04梭织坯布仓库/U_TatClothOutList.dfm @@ -71,7 +71,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList AutoSize = True Caption = #21246#36873#25171#21360 ImageIndex = 21 - Visible = False OnClick = ToolButton2Click end object TBExport: TToolButton diff --git a/E04梭织坯布仓库/U_TatClothOutList.pas b/E04梭织坯布仓库/U_TatClothOutList.pas index 80abd9e..3091c08 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.pas +++ b/E04梭织坯布仓库/U_TatClothOutList.pas @@ -643,11 +643,11 @@ begin begin if WSql <> '' then begin - WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + WSql := WSql + ',' + (Trim(CDS_1.fieldbyname('CIID').AsString)); end else begin - WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + WSql := (Trim(CDS_1.fieldbyname('CIID').AsString)); end; end; Next; diff --git a/E04梭织坯布仓库/U_TatClothStkHZList.dfm b/E04梭织坯布仓库/U_TatClothStkHZList.dfm index 0a4d22b..a69c49e 100644 --- a/E04梭织坯布仓库/U_TatClothStkHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothStkHZList.dfm @@ -566,6 +566,20 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Options.Editing = False Width = 80 end + object Tv1Column2: TcxGridDBColumn + Caption = #32440#31649 + DataBinding.FieldName = 'tube' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column5: TcxGridDBColumn + Caption = #21253#35013#34955 + DataBinding.FieldName = 'Packaging' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -901,6 +915,20 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList HeaderAlignmentHorz = taCenter Width = 71 end + object Tv2Column1: TcxGridDBColumn + Caption = #32440#31649 + DataBinding.FieldName = 'tube' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv2Column2: TcxGridDBColumn + Caption = #21253#35013#34955 + DataBinding.FieldName = 'Packaging' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end end object cxGridLevel1: TcxGridLevel GridView = Tv2 diff --git a/E04梭织坯布仓库/U_TatClothStkHZList.pas b/E04梭织坯布仓库/U_TatClothStkHZList.pas index e984526..d62d2ed 100644 --- a/E04梭织坯布仓库/U_TatClothStkHZList.pas +++ b/E04梭织坯布仓库/U_TatClothStkHZList.pas @@ -106,6 +106,10 @@ type N7: TMenuItem; label12: TLabel; C_width: TEdit; + Tv1Column2: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + Tv2Column2: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -201,7 +205,7 @@ begin Close; sql.Clear; - sql.Add('select A.C_NAME ,A.C_GramWeight'); + sql.Add('select A.C_NAME ,A.C_GramWeight,tube,Packaging'); // SQL.Add(',pf=SUM(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))'); SQL.Add(',pf=SUM(CASE WHEN GRADE=''ŵƷ'' or GRADE=''Ʒ'' or GRADE=''С'' or GRADE='''' or GRADE='''' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )'); SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); @@ -230,7 +234,7 @@ begin SQL.Add(' and Grade <> ''ϲ'' '); SQL.Add(' and Grade <> ''ѭ'' '); - sql.Add(' group by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') '); + sql.Add(' group by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') ,tube,Packaging'); SQL.Add(' order by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') '); // showmessage(sql.text); @@ -269,7 +273,7 @@ begin Close; sql.Clear; - sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight '); + sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,tube,Packaging '); SQL.Add(',pf=SUM(CASE WHEN (GRADE=''ŵƷ'' or GRADE=''Ʒ'' or GRADE=''С'' or GRADE='''' or GRADE='''') THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )'); SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter ELSE 0 END )AS Ydqty'); @@ -297,9 +301,8 @@ begin SQL.Add(' and Grade <> ''ϲ'' '); SQL.Add(' and Grade <> ''ѭ'' '); - SQL.Add(WSql); - sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') '); + sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,''''),tube,Packaging '); SQL.Add(' order by A.C_NAME, CAST(A.C_Width AS DECIMAL(10,2)),A.C_GramWeight'); // showmessage(sql.text); @@ -397,7 +400,7 @@ begin end else if PageControl1.ActivePage.Caption = ' ϸ ' then begin - if CDS_2.IsEmpty then + if CDS_2.IsEmpty then Exit; with CDS_2 do begin @@ -502,7 +505,7 @@ end; procedure TfrmTatClothStkHZList.N3Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV1,TV1.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(TV1, TV1.Controller.FocusedColumn); end; procedure TfrmTatClothStkHZList.N4Click(Sender: TObject); @@ -526,7 +529,7 @@ end; procedure TfrmTatClothStkHZList.N7Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV2,TV2.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(TV2, TV2.Controller.FocusedColumn); end; procedure TfrmTatClothStkHZList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); diff --git a/E04梭织坯布仓库/U_TatClothStkList.dfm b/E04梭织坯布仓库/U_TatClothStkList.dfm index 97edd94..95c24cc 100644 --- a/E04梭织坯布仓库/U_TatClothStkList.dfm +++ b/E04梭织坯布仓库/U_TatClothStkList.dfm @@ -7,7 +7,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitTop = -14 + ExplicitLeft = -350 ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 @@ -535,7 +535,8 @@ inherited frmTatClothStkList: TfrmTatClothStkList '500' '1000' '5000' - '10000') + '10000' + '20000') end end object cxGrid1: TcxGrid [3] @@ -553,7 +554,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList ParentFont = False PopupMenu = PM_1 TabOrder = 3 - ExplicitTop = 133 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -863,6 +863,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList end object Tv1Column1: TcxGridDBColumn Caption = #32440#31649 + DataBinding.FieldName = 'tube' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 70 diff --git a/E04梭织坯布仓库/U_TatClothStkListPH.pas b/E04梭织坯布仓库/U_TatClothStkListPH.pas index 9694177..48e3a62 100644 --- a/E04梭织坯布仓库/U_TatClothStkListPH.pas +++ b/E04梭织坯布仓库/U_TatClothStkListPH.pas @@ -504,7 +504,7 @@ end; procedure TfrmTatClothStkListPH.ToolButton3Click(Sender: TObject); var MIOIDS, MStkIds, MOutNos: string; - mFHDH: string; + mFHDH, sQZ: string; begin if CDS_1.IsEmpty then Exit; @@ -543,24 +543,41 @@ begin try ADOQueryCmd.Connection.BeginTrans; - with ADOQueryCmd do + + begin + with ADOQueryCmd do begin Close; sql.Clear; - SQL.Add(' select FHDH from tat_cloth_io_FHDH where CompanyName = '+ quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString))); + //SQLͬʱѯFHDHQZǰ׺ + SQL.Add(' exec Update_Tat_Cloth_IO_MaxFHDH @CompanyName = ' + quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString))); Open; end; - mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString; - mFHDH := FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]); - with ADOQueryCmd do + with ADOQueryCmd do + begin + Close; + sql.Clear; + //SQLͬʱѯFHDHQZǰ׺ + SQL.Add(' select FHDH=FHDH+1,QZ from tat_cloth_io_FHDH where CompanyName = ' + quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString))); + Open; + end; + + mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString; + sQZ := ADOQueryCmd.FieldByName('QZ').AsString; //ݿQZֶǰ׺ + + //ǰ׺ + ݺλ + 6λˮ + mFHDH := sQZ + FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]); + + with ADOQueryCmd do begin Close; Sql.Clear; - sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' '); - SQL.Add(' where CompanyName = '+ quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString))); + sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' '); + SQL.Add(' where CompanyName = ' + quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString))); EXECSQL; end; + end; with ADOQueryCmd do begin diff --git a/E04梭织坯布仓库/U_TatDRList.dfm b/E04梭织坯布仓库/U_TatDRList.dfm index 0ee5051..4362c0e 100644 --- a/E04梭织坯布仓库/U_TatDRList.dfm +++ b/E04梭织坯布仓库/U_TatDRList.dfm @@ -35,7 +35,6 @@ inherited frmTatDRList: TfrmTatDRList ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitWidth = 1465 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -273,7 +272,6 @@ inherited frmTatDRList: TfrmTatDRList Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitWidth = 1465 object Label4: TLabel Left = 520 Top = 15 @@ -497,7 +495,6 @@ inherited frmTatDRList: TfrmTatDRList #24050#21462#28040 #20840#37096) OnChange = cxTabControl1Change - ExplicitWidth = 1465 ClientRectRight = 0 ClientRectTop = 0 end @@ -508,7 +505,6 @@ inherited frmTatDRList: TfrmTatDRList Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom - ExplicitWidth = 1465 end object PageControl1: TPageControl [4] Left = 0 @@ -519,7 +515,6 @@ inherited frmTatDRList: TfrmTatDRList Align = alClient TabOrder = 4 OnChange = PageControl1Change - ExplicitWidth = 1465 object TabSheet1: TTabSheet Caption = ' '#27719#24635 object cxGrid1: TcxGrid @@ -530,7 +525,6 @@ inherited frmTatDRList: TfrmTatDRList Align = alClient PopupMenu = PM_1 TabOrder = 0 - ExplicitTop = -6 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -795,9 +789,6 @@ inherited frmTatDRList: TfrmTatDRList Align = alBottom PopupMenu = PM_2 TabOrder = 1 - ExplicitLeft = 112 - ExplicitTop = 343 - ExplicitWidth = 1457 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -1026,7 +1017,7 @@ inherited frmTatDRList: TfrmTatDRList OnBtnUpClick = CompanyNameBtnUpClick end object Button1: TButton - Left = 56 + Left = 57 Top = 64 Width = 75 Height = 25 @@ -1056,7 +1047,6 @@ inherited frmTatDRList: TfrmTatDRList Align = alClient PopupMenu = pm_3 TabOrder = 0 - ExplicitWidth = 1457 object TV3: TcxGridDBTableView OnDblClick = TV3DblClick Navigator.Buttons.CustomButtons = <> diff --git a/E04梭织坯布仓库/U_TatDRList.pas b/E04梭织坯布仓库/U_TatDRList.pas index 2bc30f7..18df8b2 100644 --- a/E04梭织坯布仓库/U_TatDRList.pas +++ b/E04梭织坯布仓库/U_TatDRList.pas @@ -750,6 +750,16 @@ begin Close; sql.Clear; sql.Add('delete Tat_Cloth_DR_Main where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''''); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('发货申请删除'))); + sql.Add(',' + quotedstr(trim('DRMID：' + trim(Order_Main.fieldbyname('DRMID').AsString)))); + sql.Add(',' + quotedstr(trim('成功'))); + sql.Add(')'); + ExecSQL; ExecSQL; end; end; @@ -1575,29 +1585,47 @@ end; procedure TfrmTatDRList.ToolButton7Click(Sender: TObject); var mFHDH: string; + sQZ: string; begin try ADOQueryCmd.Connection.BeginTrans; with Order_Main do begin - with ADOQueryCmd do begin - Close; - sql.Clear; - SQL.Add(' select FHDH from tat_cloth_io_FHDH where CompanyName = '+ quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString))); - Open; - end; - mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString; - mFHDH := FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]); - with ADOQueryCmd do - begin - Close; - Sql.Clear; - sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' '); - SQL.Add(' where CompanyName = '+ quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString))); - EXECSQL; + with ADOQueryCmd do + begin + Close; + sql.Clear; + //SQL同时查询FHDH和QZ前缀 + SQL.Add(' exec Update_Tat_Cloth_IO_MaxFHDH @CompanyName = ' + quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString))); + Open; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + //SQL同时查询FHDH和QZ前缀 + SQL.Add(' select FHDH=FHDH+1,QZ from tat_cloth_io_FHDH where CompanyName = ' + quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString))); + Open; + end; + + mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString; + sQZ := ADOQueryCmd.FieldByName('QZ').AsString; //从数据库QZ字段拿前缀 + + //前缀 + 年份后两位 + 6位流水号 + mFHDH := sQZ + FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]); + + with ADOQueryCmd do + begin + Close; + Sql.Clear; + sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' '); + SQL.Add(' where CompanyName = ' + quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString))); + EXECSQL; + end; end; with ADOQueryCmd do diff --git a/E04梭织坯布仓库/testDll.identcache b/E04梭织坯布仓库/testDll.identcache index 5c45bee..b0cc76d 100644 Binary files a/E04梭织坯布仓库/testDll.identcache and b/E04梭织坯布仓库/testDll.identcache differ diff --git a/F01染色坯布仓库/DyeGreyClothStk.dproj.local b/F01染色坯布仓库/DyeGreyClothStk.dproj.local index e70e879..cc7f51e 100644 --- a/F01染色坯布仓库/DyeGreyClothStk.dproj.local +++ b/F01染色坯布仓库/DyeGreyClothStk.dproj.local @@ -1,46 +1,46 @@  - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas + 1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas + 1899-12-30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj 1899-12-30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas 1899-12-30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm - 1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899-12-30 00:00:00.000.270,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm + 1899-12-30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas @@ -88,7 +88,7 @@ - + diff --git a/F01染色坯布仓库/DyeGreyClothStk.identcache b/F01染色坯布仓库/DyeGreyClothStk.identcache index fe08070..165251c 100644 Binary files a/F01染色坯布仓库/DyeGreyClothStk.identcache and b/F01染色坯布仓库/DyeGreyClothStk.identcache differ diff --git a/F01染色坯布仓库/ProjectGroup1.groupproj.local b/F01染色坯布仓库/ProjectGroup1.groupproj.local index cc084a4..2b24a82 100644 --- a/F01染色坯布仓库/ProjectGroup1.groupproj.local +++ b/F01染色坯布仓库/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/F01染色坯布仓库/testDll.identcache b/F01染色坯布仓库/testDll.identcache index 42d1990..e1cf0ea 100644 Binary files a/F01染色坯布仓库/testDll.identcache and b/F01染色坯布仓库/testDll.identcache differ