From 4f81bee7c8c68eb5311a358b89c67b50e7f6106f Mon Sep 17 00:00:00 2001 From: "LAPTOP-8NOV8MVQ\\cai" Date: Sat, 12 Jul 2025 15:10:02 +0800 Subject: [PATCH] 11 --- E04梭织坯布仓库/TatClothStk.dpr | 3 +- E04梭织坯布仓库/TatClothStk.dproj | 5 + E04梭织坯布仓库/TatClothStk.dproj.local | 77 +-- E04梭织坯布仓库/TatClothStk.identcache | Bin 3384 -> 3381 bytes E04梭织坯布仓库/U_TatClothStkList.dfm | 24 +- ...U_TatClothStkSelSel.dfm => U_TatClothStkSel.dfm} | 65 ++- E04梭织坯布仓库/U_TatClothStkSel.pas | 147 +++--- E04梭织坯布仓库/U_TatClothStkSelSel.pas | 495 ------------------ E04梭织坯布仓库/U_TatDRList.dfm | 5 +- E04梭织坯布仓库/U_TatDRtInPut.dfm | 133 ++++- E04梭织坯布仓库/U_TatDRtInPut.pas | 73 ++- T00贸易通用窗体/U_TradeSalesContractSel.dfm | 22 +- T00贸易通用窗体/U_TradeSalesContractSel.pas | 1 - 13 files changed, 360 insertions(+), 690 deletions(-) rename E04梭织坯布仓库/{U_TatClothStkSelSel.dfm => U_TatClothStkSel.dfm} (96%) delete mode 100644 E04梭织坯布仓库/U_TatClothStkSelSel.pas diff --git a/E04梭织坯布仓库/TatClothStk.dpr b/E04梭织坯布仓库/TatClothStk.dpr index 7cf835d..e04aeac 100644 --- a/E04梭织坯布仓库/TatClothStk.dpr +++ b/E04梭织坯布仓库/TatClothStk.dpr @@ -45,7 +45,8 @@ uses U_TatClothInList_ZDDY in 'U_TatClothInList_ZDDY.pas' {frmTatClothInList_ZDDY}, uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', U_TradeSalesContractSel in '..\T00óͨô\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel}, - U_TatClothStkList in 'U_TatClothStkList.pas' {frmTatClothStkList}; + U_TatClothStkList in 'U_TatClothStkList.pas' {frmTatClothStkList}, + U_TatClothStkSel in 'U_TatClothStkSel.pas' {frmTatClothStkSel}; {$R *.res} diff --git a/E04梭织坯布仓库/TatClothStk.dproj b/E04梭织坯布仓库/TatClothStk.dproj index aac1e93..bb81978 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj +++ b/E04梭织坯布仓库/TatClothStk.dproj @@ -188,6 +188,10 @@
frmTatClothStkList
dfm + +
frmTatClothStkSel
+ dfm + Cfg_2 Base @@ -913,6 +917,7 @@ + False 12 diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local index f7e5e51..41dd0d5 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj.local +++ b/E04梭织坯布仓库/TatClothStk.dproj.local @@ -1,90 +1,95 @@  - 1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas - 1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm 1899/12/30 00:00:00.000.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas= 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj + 1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas 1899/12/30 00:00:00.000.559,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList_ZDDY.pas 1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj 1899/12/30 00:00:00.000.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.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.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.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas - 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm 1899/12/30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas - 1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas 1899/12/30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas + 1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas + 1899/12/30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas + 1899/12/30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas + 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas 1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas 1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.pas 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm - 1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899/12/30 00:00:00.000.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.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.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas + 1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas + 1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas 1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas= 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas= 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas 1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas + 1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas + 1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.dfm + 1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= 1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas - 1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas 1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas + 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas - 1899/12/30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.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.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas 1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas - 1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.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.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas= + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.744,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessInput.pas 1899/12/30 00:00:00.000.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas - 1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas - 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm + 1899/12/30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj 1899/12/30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.dfm - 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.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas= - 1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj + 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm 1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas= - 2025/07/03 14:12:23.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 2025/07/03 14:12:23.000.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas + 2025/07/12 10:29:31.000.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas + 2025/07/12 10:34:14.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas= + 2025/07/12 10:51:18.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas + 2025/07/12 10:53:24.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas= + 2025/07/12 10:53:58.993,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas @@ -168,5 +173,7 @@ + + diff --git a/E04梭织坯布仓库/TatClothStk.identcache b/E04梭织坯布仓库/TatClothStk.identcache index 8e7c1470fc28d5f85b01388187a1f2eea55106fe..786a13f59584f22985b35b0a9416ec13668f7982 100644 GIT binary patch delta 80 zcmdlXwN+|^B=h8(Jo1y@bLmb#$R<2_0=MSm`;0=HLzv~5C%@q^o@~RyyIF+Ym2vWP gPOHhUp|Vprm>Gdeqc>}Fr7}*w$QiZyHMcJ#0B{f+YybcN delta 81 zcmdlgwL@xyB=h8RoSKvGGYW0q%q+*u7&>_(huq}1T)J$*sX0Kj`5@a=#?2Er>=-A% l Properties.Style = 5 OnChange = cxPageControl1Change ClientRectBottom = 570 - ClientRectRight = 1541 + ClientRectRight = 1540 ClientRectTop = 32 object cxTabSheet1: TcxTabSheet Caption = ' '#20135#21697#27719#24635#20449#24687' ' @@ -95,7 +95,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList object Pnl_F2: TPanel Left = 0 Top = 0 - Width = 1541 + Width = 1540 Height = 75 Align = alTop BevelInner = bvRaised @@ -274,7 +274,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList object cxGrid2: TcxGrid Left = 0 Top = 75 - Width = 1541 + Width = 1540 Height = 463 Align = alClient BorderStyle = cxcbsNone @@ -504,13 +504,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList object Panel6: TPanel Left = 0 Top = 102 - Width = 1541 + Width = 1540 Height = 33 Align = alTop BorderStyle = bsSingle TabOrder = 0 DesignSize = ( - 1537 + 1536 29) object Label31: TLabel Left = 35 @@ -607,7 +607,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList object Pnl_F1: TPanel Left = 0 Top = 0 - Width = 1541 + Width = 1540 Height = 102 Align = alTop BevelInner = bvRaised @@ -837,7 +837,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList object cxGrid1: TcxGrid Left = 0 Top = 135 - Width = 1541 + Width = 1540 Height = 403 Align = alClient BorderStyle = cxcbsNone diff --git a/E04梭织坯布仓库/U_TatClothStkSelSel.dfm b/E04梭织坯布仓库/U_TatClothStkSel.dfm similarity index 96% rename from E04梭织坯布仓库/U_TatClothStkSelSel.dfm rename to E04梭织坯布仓库/U_TatClothStkSel.dfm index 2c9a992..e4be63a 100644 --- a/E04梭织坯布仓库/U_TatClothStkSelSel.dfm +++ b/E04梭织坯布仓库/U_TatClothStkSel.dfm @@ -1,22 +1,20 @@ -inherited frmTatClothStkList: TfrmTatClothStkList +inherited frmTatClothStkSel: TfrmTatClothStkSel Left = 184 Top = 138 - Caption = #25104#21697#24211#23384#21015#34920 + Caption = #25104#21697#24211#23384#36873#25321 ClientHeight = 600 - ClientWidth = 1541 + ClientWidth = 1540 Font.Height = -16 - FormStyle = fsMDIChild Position = poScreenCenter - Visible = True - ExplicitWidth = 1557 + ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 TextHeight = 21 object ToolBar1: TToolBar [0] - Tag = 1 + Tag = 2 Left = 0 Top = 0 - Width = 1541 + Width = 1540 Height = 30 AutoSize = True ButtonHeight = 30 @@ -42,24 +40,34 @@ inherited frmTatClothStkList: TfrmTatClothStkList ImageIndex = 1 OnClick = TBRafreshClick end - object ToolButton2: TToolButton + object ToolButton1: TToolButton Left = 63 Top = 0 AutoSize = True + Caption = #36873#25321 + ImageIndex = 12 + OnClick = ToolButton1Click + end + object ToolButton2: TToolButton + Left = 126 + Top = 0 + AutoSize = True Caption = #30721#21333#25171#21360 ImageIndex = 21 + Visible = False OnClick = ToolButton2Click end object TBExport: TToolButton - Left = 150 + Left = 213 Top = 0 AutoSize = True Caption = #23548#20986 ImageIndex = 20 + Visible = False OnClick = TBExportClick end object ToolButton4: TToolButton - Left = 213 + Left = 276 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -67,7 +75,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList OnClick = ToolButton4Click end object TBClose: TToolButton - Left = 300 + Left = 363 Top = 0 AutoSize = True Caption = #20851#38381 @@ -78,16 +86,17 @@ inherited frmTatClothStkList: TfrmTatClothStkList object cxPageControl1: TcxPageControl [1] Left = 0 Top = 30 - Width = 1541 + Width = 1540 Height = 570 Align = alClient TabOrder = 3 - Properties.ActivePage = cxTabSheet2 + Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> Properties.Style = 5 OnChange = cxPageControl1Change + ExplicitTop = 36 ClientRectBottom = 570 - ClientRectRight = 1541 + ClientRectRight = 1540 ClientRectTop = 32 object cxTabSheet1: TcxTabSheet Caption = ' '#20135#21697#27719#24635#20449#24687' ' @@ -95,7 +104,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList object Pnl_F2: TPanel Left = 0 Top = 0 - Width = 1541 + Width = 1540 Height = 75 Align = alTop BevelInner = bvRaised @@ -103,6 +112,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList Color = clWhite ParentBackground = False TabOrder = 0 + ExplicitTop = -6 object Label4: TLabel Left = 244 Top = 10 @@ -274,16 +284,16 @@ inherited frmTatClothStkList: TfrmTatClothStkList object cxGrid2: TcxGrid Left = 0 Top = 75 - Width = 1541 + Width = 1540 Height = 463 Align = alClient BorderStyle = cxcbsNone PopupMenu = PM_2 TabOrder = 1 + ExplicitTop = 72 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> - OnCellDblClick = TV2CellDblClick OnCustomDrawCell = TV2CustomDrawCell DataController.DataSource = DS_2 DataController.Filter.AutoDataSetFilter = True @@ -347,6 +357,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.IndicatorWidth = 30 + object TV2SSel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end object cxGridDBColumn2: TcxGridDBColumn Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'IOTime' @@ -501,16 +518,17 @@ inherited frmTatClothStkList: TfrmTatClothStkList object cxTabSheet2: TcxTabSheet Caption = ' '#20135#21697#26126#32454#20449#24687' ' ImageIndex = 1 + TabVisible = False object Panel6: TPanel Left = 0 Top = 102 - Width = 1541 + Width = 1540 Height = 33 Align = alTop BorderStyle = bsSingle TabOrder = 0 DesignSize = ( - 1537 + 1536 29) object Label31: TLabel Left = 35 @@ -607,7 +625,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList object Pnl_F1: TPanel Left = 0 Top = 0 - Width = 1541 + Width = 1540 Height = 102 Align = alTop BevelInner = bvRaised @@ -615,6 +633,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitTop = -1 object Label3: TLabel Left = 236 Top = 9 @@ -837,12 +856,14 @@ inherited frmTatClothStkList: TfrmTatClothStkList object cxGrid1: TcxGrid Left = 0 Top = 135 - Width = 1541 + Width = 1540 Height = 403 Align = alClient BorderStyle = cxcbsNone PopupMenu = PM_1 TabOrder = 2 + ExplicitLeft = -128 + ExplicitTop = 108 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E04梭织坯布仓库/U_TatClothStkSel.pas b/E04梭织坯布仓库/U_TatClothStkSel.pas index f838924..f81a234 100644 --- a/E04梭织坯布仓库/U_TatClothStkSel.pas +++ b/E04梭织坯布仓库/U_TatClothStkSel.pas @@ -1,4 +1,4 @@ -unit U_TatClothStkList; +unit U_TatClothStkSel; interface @@ -33,7 +33,7 @@ uses dxSkinXmas2008Blue; type - TfrmTatClothStkList = class(TfrmBaseList) + TfrmTatClothStkSel = class(TfrmBaseList) ToolBar1: TToolBar; TBRafresh: TToolButton; TBExport: TToolButton; @@ -154,6 +154,8 @@ type BegDate: TcxDateEdit; EndDate: TcxDateEdit; TV2Column1: TcxGridDBColumn; + TV2SSel: TcxGridDBColumn; + ToolButton1: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -172,12 +174,13 @@ type procedure ToolButton4Click(Sender: TObject); procedure PM11Click(Sender: TObject); procedure N1Click(Sender: TObject); - procedure TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure MenuItem1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton1Click(Sender: TObject); + private CurrentPage, RecordsNumber: Integer; lstPacketId: TStringList; @@ -190,13 +193,16 @@ type { Public declarations } end; +var + frmTatClothStkSel: TfrmTatClothStkSel; + implementation uses U_DataLink, U_RTFun, U_LabelPrint; {$R *.dfm} -procedure TfrmTatClothStkList.InitPage(); +procedure TfrmTatClothStkSel.InitPage(); begin CurrentPage := 1; case cxPageControl1.ActivePageIndex of @@ -211,20 +217,20 @@ begin end; end; -procedure TfrmTatClothStkList.SetStatus(); +procedure TfrmTatClothStkSel.SetStatus(); begin // if canshu1 then end; -procedure TfrmTatClothStkList.FormClose(Sender: TObject; var Action: TCloseAction); +procedure TfrmTatClothStkSel.FormClose(Sender: TObject; var Action: TCloseAction); begin inherited; FreeAndNil(lstPacketId); Action := caFree; end; -procedure TfrmTatClothStkList.FormCreate(Sender: TObject); +procedure TfrmTatClothStkSel.FormCreate(Sender: TObject); begin inherited; lstPacketId := TStringList.Create; @@ -235,7 +241,7 @@ begin FWorkshop := trim(Self.fParameters3); end; -procedure TfrmTatClothStkList.InitGrid(WSql: string); +procedure TfrmTatClothStkSel.InitGrid(WSql: string); begin if Trim(WSql) <> '' then @@ -256,11 +262,10 @@ begin sql.Clear; sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color'); sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight'); - sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage'); + sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage,ConNo,ConMID,ConSID'); sql.Add(' from V_Tat_Cloth_Stk A where 1=1 '); - sql.Add(WSql); - sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color'); + sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color,ConNo,ConMID,ConSID'); // showmessage(sql.text); Open; end; @@ -271,66 +276,65 @@ begin end; 1: begin - if chk_F1.Checked then - begin - WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)); - WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1)); - end; - with ADOQueryMain do - begin - Filtered := False; - Close; - sql.Clear; - sql.Add(' select top ' + inttostr(RecordsNumber) + ' * '); - sql.Add(' from '); - sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)'); - sql.Add(',COUNT(1) OVER() AS TotalCount'); - sql.Add(', kl= DATEDIFF(dd,IOTime, GETDATE()),* from V_Tat_Cloth_Stk AA where 1=1 '); -// if trim(FWorkshop) <> '' then -// sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' '); - sql.Add('and 1=1 ' + WSql); - sql.Add(') temp_row'); - sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber))); - sql.Add(' order by rownumber'); -// showmessage(sql.text); - Open; - end; - SCreateCDS(ADOQueryMain, CDS_1); - SInitCDSData(ADOQueryMain, CDS_1); - LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber)); - TV1.DataController.Filter.Clear; +// if chk_F1.Checked then +// begin +// WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)); +// WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1)); +// end; +// with ADOQueryMain do +// begin +// Filtered := False; +// Close; +// sql.Clear; +// sql.Add(' select top ' + inttostr(RecordsNumber) + ' * '); +// sql.Add(' from '); +// sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)'); +// sql.Add(',COUNT(1) OVER() AS TotalCount'); +// sql.Add(', kl= DATEDIFF(dd,IOTime, GETDATE()),* from V_Tat_Cloth_Stk AA where 1=1 '); +//// if trim(FWorkshop) <> '' then +//// sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' '); +// sql.Add('and 1=1 ' + WSql); +// sql.Add(') temp_row'); +// sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber))); +// sql.Add(' order by rownumber'); +//// showmessage(sql.text); +// Open; end; +// SCreateCDS(ADOQueryMain, CDS_1); +// SInitCDSData(ADOQueryMain, CDS_1); +// LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber)); +// TV1.DataController.Filter.Clear; +// end; end; end; -procedure TfrmTatClothStkList.TBRafreshClick(Sender: TObject); +procedure TfrmTatClothStkSel.TBRafreshClick(Sender: TObject); begin InitPage(); end; -procedure TfrmTatClothStkList.CDS_1BeforeOpen(DataSet: TDataSet); +procedure TfrmTatClothStkSel.CDS_1BeforeOpen(DataSet: TDataSet); begin lstPacketId.Clear; end; -procedure TfrmTatClothStkList.cxPageControl1Change(Sender: TObject); +procedure TfrmTatClothStkSel.cxPageControl1Change(Sender: TObject); begin SetStatus(); end; -procedure TfrmTatClothStkList.TBCloseClick(Sender: TObject); +procedure TfrmTatClothStkSel.TBCloseClick(Sender: TObject); begin Close; end; -procedure TfrmTatClothStkList.FormShow(Sender: TObject); +procedure TfrmTatClothStkSel.FormShow(Sender: TObject); begin inherited; - ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ֿ֯'); - ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ֿ֯'); + ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒѡ'); CurrentPage := 1; RecordsNumber := 500; canshu1 := Trim(Self.fParameters1); @@ -338,14 +342,14 @@ begin InitPage(); end; -procedure TfrmTatClothStkList.TBExportClick(Sender: TObject); +procedure TfrmTatClothStkSel.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then exit; TcxGridToExcel(Self.Caption, cxGrid1); end; -procedure TfrmTatClothStkList.orderNoKeyPress(Sender: TObject; var Key: Char); +procedure TfrmTatClothStkSel.orderNoKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin @@ -353,88 +357,84 @@ begin end; end; -procedure TfrmTatClothStkList.PM11Click(Sender: TObject); +procedure TfrmTatClothStkSel.PM11Click(Sender: TObject); begin SelOKNo(CDS_1, false); end; -procedure TfrmTatClothStkList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +procedure TfrmTatClothStkSel.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then ACanvas.Brush.Color := $B3DEF5; end; -procedure TfrmTatClothStkList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +procedure TfrmTatClothStkSel.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); begin lstPacketId.Clear; //´ݼǰlstPacketId end; -procedure TfrmTatClothStkList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +procedure TfrmTatClothStkSel.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); begin if lstPacketId <> nil then AText := IntToStr(lstPacketId.Count); end; -procedure TfrmTatClothStkList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); -begin - BegDate.Date := BegDate2.Date; - EndDate.Date := EndDate2.Date; - chk_F2.Checked := chk_F1.Checked; - cxPageControl1.ActivePageIndex := 1; - SetStatus(); - InitGrid(SGetCDSFilters(Tv2, CDS_2)); -end; - -procedure TfrmTatClothStkList.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +procedure TfrmTatClothStkSel.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then ACanvas.Brush.Color := $B3DEF5; end; -procedure TfrmTatClothStkList.BTNPClick(Sender: TObject); +procedure TfrmTatClothStkSel.BTNPClick(Sender: TObject); begin if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then CurrentPage := CurrentPage + 1; InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); end; -procedure TfrmTatClothStkList.BTLPClick(Sender: TObject); +procedure TfrmTatClothStkSel.BTLPClick(Sender: TObject); begin if CurrentPage > 1 then CurrentPage := CurrentPage - 1; InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); end; -procedure TfrmTatClothStkList.TCBNORChange(Sender: TObject); +procedure TfrmTatClothStkSel.TCBNORChange(Sender: TObject); begin RecordsNumber := StrToInt(TCBNOR.Text); CurrentPage := 1; InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); end; -procedure TfrmTatClothStkList.JYTypeChange(Sender: TObject); +procedure TfrmTatClothStkSel.JYTypeChange(Sender: TObject); begin CurrentPage := 1; InitPage(); end; -procedure TfrmTatClothStkList.MenuItem1Click(Sender: TObject); +procedure TfrmTatClothStkSel.MenuItem1Click(Sender: TObject); begin Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); end; -procedure TfrmTatClothStkList.N1Click(Sender: TObject); +procedure TfrmTatClothStkSel.N1Click(Sender: TObject); begin SelOKNo(CDS_1, true); end; -procedure TfrmTatClothStkList.N2Click(Sender: TObject); +procedure TfrmTatClothStkSel.N2Click(Sender: TObject); begin Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); end; -procedure TfrmTatClothStkList.ToolButton2Click(Sender: TObject); +procedure TfrmTatClothStkSel.ToolButton1Click(Sender: TObject); +begin + inherited; + ModalResult := 1; +end; + +procedure TfrmTatClothStkSel.ToolButton2Click(Sender: TObject); var WSql: string; begin @@ -485,10 +485,9 @@ begin end; end; -procedure TfrmTatClothStkList.ToolButton4Click(Sender: TObject); +procedure TfrmTatClothStkSel.ToolButton4Click(Sender: TObject); begin - WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ֿ֯'); - WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ֿ֯'); + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ʒѡ'); end; end. diff --git a/E04梭织坯布仓库/U_TatClothStkSelSel.pas b/E04梭织坯布仓库/U_TatClothStkSelSel.pas deleted file mode 100644 index f838924..0000000 --- a/E04梭织坯布仓库/U_TatClothStkSelSel.pas +++ /dev/null @@ -1,495 +0,0 @@ -unit U_TatClothStkList; - -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, dxDateRanges, - dxBarBuiltInMenu, U_BaseList, cxPC, System.StrUtils, cxContainer, dxCore, - cxDateUtils, cxMaskEdit, dxScrollbarAnnotations, cxProgressBar, dxSkinsCore, - dxSkinsDefaultPainters, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, - dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, - dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, - dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, - dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, - dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, - dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, - dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, - dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, - dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, - dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, - dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, - dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, - dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, - dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, - dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, - dxSkinXmas2008Blue; - -type - TfrmTatClothStkList = class(TfrmBaseList) - ToolBar1: TToolBar; - TBRafresh: TToolButton; - TBExport: TToolButton; - TBClose: TToolButton; - ADOQueryCmd: TADOQuery; - ADOQueryMain: TADOQuery; - ADOQueryTemp: TADOQuery; - DS_1: TDataSource; - GPM_1: TcxGridPopupMenu; - CDS_1: TClientDataSet; - ToolButton2: TToolButton; - ToolButton4: TToolButton; - PM_1: TPopupMenu; - PM11: TMenuItem; - N1: TMenuItem; - cxPageControl1: TcxPageControl; - cxTabSheet1: TcxTabSheet; - cxTabSheet2: TcxTabSheet; - Panel6: TPanel; - Label31: TLabel; - LBCPAP: TLabel; - BTLP: TButton; - BTNP: TButton; - TCBNOR: TComboBox; - Pnl_F1: TPanel; - Label3: TLabel; - Label7: TLabel; - Label10: TLabel; - Label5: TLabel; - lbl1: TLabel; - Label20: TLabel; - Label23: TLabel; - begtime: TDateTimePicker; - endTime: TDateTimePicker; - OrderNo: TcxTextEdit; - conNO: TcxTextEdit; - STKID: TcxTextEdit; - C_Name: TcxTextEdit; - C_Color: TcxTextEdit; - BCIOID: TcxTextEdit; - C_Pattern: TcxTextEdit; - C_Code: TcxTextEdit; - Pnl_F2: TPanel; - Label4: TLabel; - Label6: TLabel; - Label9: TLabel; - Label13: TLabel; - DateTimePicker3: TDateTimePicker; - DateTimePicker4: TDateTimePicker; - Edit1: TcxTextEdit; - Edit2: TcxTextEdit; - Edit4: TcxTextEdit; - Edit5: TcxTextEdit; - Edit8: TcxTextEdit; - GPM_2: TcxGridPopupMenu; - CDS_2: TClientDataSet; - DS_2: TDataSource; - cxGrid2: TcxGrid; - TV2: TcxGridDBTableView; - cxGridDBColumn2: TcxGridDBColumn; - cxGridDBColumn3: TcxGridDBColumn; - cxGridDBColumn4: TcxGridDBColumn; - cxGridDBColumn5: TcxGridDBColumn; - cxGridDBColumn7: TcxGridDBColumn; - cxGridDBColumn8: TcxGridDBColumn; - cxGridDBColumn9: TcxGridDBColumn; - cxGridDBColumn10: TcxGridDBColumn; - cxGridDBColumn11: TcxGridDBColumn; - cxGridDBColumn12: TcxGridDBColumn; - cxGridDBColumn13: TcxGridDBColumn; - cxGridDBColumn14: TcxGridDBColumn; - cxGridDBColumn15: TcxGridDBColumn; - cxGridDBColumn16: TcxGridDBColumn; - cxGridDBColumn18: TcxGridDBColumn; - cxGridLevel1: TcxGridLevel; - TV2Column3: TcxGridDBColumn; - Label18: TLabel; - Label19: TLabel; - Edit9: TcxTextEdit; - Edit10: TcxTextEdit; - Label8: TLabel; - Label14: TLabel; - Edit3: TcxTextEdit; - Edit11: TcxTextEdit; - PM_2: TPopupMenu; - MenuItem1: TMenuItem; - N2: TMenuItem; - TV2Column2: TcxGridDBColumn; - cxGrid1: TcxGrid; - Tv1: TcxGridDBTableView; - v1Column22: TcxGridDBColumn; - v1Column21: TcxGridDBColumn; - v1Column32: TcxGridDBColumn; - v1Column1: TcxGridDBColumn; - Tv1Column4: TcxGridDBColumn; - v1Column13: TcxGridDBColumn; - v1Column4: TcxGridDBColumn; - v1Column23: TcxGridDBColumn; - v1Column8: TcxGridDBColumn; - v1Column27: TcxGridDBColumn; - v1Column28: TcxGridDBColumn; - v1Column10: TcxGridDBColumn; - Tv1Column11: TcxGridDBColumn; - Tv1Column10: TcxGridDBColumn; - v1Column12: TcxGridDBColumn; - v1Column42: TcxGridDBColumn; - v1Column6: TcxGridDBColumn; - v1Column3: TcxGridDBColumn; - v1Column5: TcxGridDBColumn; - Tv1Column6: TcxGridDBColumn; - cxGrid1Level1: TcxGridLevel; - Label1: TLabel; - BegDate2: TcxDateEdit; - EndDate2: TcxDateEdit; - chk_F2: TcxCheckBox; - Label2: TLabel; - chk_F1: TcxCheckBox; - BegDate: TcxDateEdit; - EndDate: TcxDateEdit; - TV2Column1: TcxGridDBColumn; - procedure FormClose(Sender: TObject; var Action: TCloseAction); - procedure FormCreate(Sender: TObject); - procedure TBRafreshClick(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 ToolButton4Click(Sender: TObject); - procedure PM11Click(Sender: TObject); - procedure N1Click(Sender: TObject); - procedure TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); - procedure MenuItem1Click(Sender: TObject); - procedure N2Click(Sender: TObject); - procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); - procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); - procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); - private - CurrentPage, RecordsNumber: Integer; - lstPacketId: TStringList; - procedure InitGrid(WSql: string); - procedure InitPage(); - procedure SetStatus(); - { Private declarations } - public - canshu1, FWorkshop: string; - { Public declarations } - end; - -implementation - -uses - U_DataLink, U_RTFun, U_LabelPrint; - -{$R *.dfm} -procedure TfrmTatClothStkList.InitPage(); -begin - CurrentPage := 1; - case cxPageControl1.ActivePageIndex of - 0: - begin - InitGrid(SGetHintFilters(Pnl_F2, 1, 2)); - end; - 1: - begin - InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); - end; - end; -end; - -procedure TfrmTatClothStkList.SetStatus(); -begin -// if canshu1 then - -end; - -procedure TfrmTatClothStkList.FormClose(Sender: TObject; var Action: TCloseAction); -begin - inherited; - FreeAndNil(lstPacketId); - Action := caFree; -end; - -procedure TfrmTatClothStkList.FormCreate(Sender: TObject); -begin - inherited; - lstPacketId := TStringList.Create; - EndDate.Date := SGetServerDateTime(ADOQueryTemp); - BegDate.Date := EndDate.Date - 20; - BegDate2.Date := BegDate.Date; - EndDate2.Date := EndDate.Date; - FWorkshop := trim(Self.fParameters3); -end; - -procedure TfrmTatClothStkList.InitGrid(WSql: string); -begin - - if Trim(WSql) <> '' then - WSql := ' and ' + WSql; - - case cxPageControl1.ActivePageIndex of - 0: - begin - if chk_F2.Checked then - begin - WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate2.Date)); - WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate2.Date + 1)); - end; - with ADOQueryMain do - begin - Filtered := False; - Close; - sql.Clear; - sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color'); - sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight'); - sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage'); - sql.Add(' from V_Tat_Cloth_Stk A where 1=1 '); - - sql.Add(WSql); - sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color'); -// showmessage(sql.text); - Open; - end; - SCreateCDS(ADOQueryMain, CDS_2); - SInitCDSData(ADOQueryMain, CDS_2); - TV2.DataController.Filter.Clear; - - end; - 1: - begin - if chk_F1.Checked then - begin - WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)); - WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1)); - end; - with ADOQueryMain do - begin - Filtered := False; - Close; - sql.Clear; - sql.Add(' select top ' + inttostr(RecordsNumber) + ' * '); - sql.Add(' from '); - sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)'); - sql.Add(',COUNT(1) OVER() AS TotalCount'); - sql.Add(', kl= DATEDIFF(dd,IOTime, GETDATE()),* from V_Tat_Cloth_Stk AA where 1=1 '); -// if trim(FWorkshop) <> '' then -// sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' '); - sql.Add('and 1=1 ' + WSql); - sql.Add(') temp_row'); - sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber))); - sql.Add(' order by rownumber'); -// showmessage(sql.text); - Open; - end; - SCreateCDS(ADOQueryMain, CDS_1); - SInitCDSData(ADOQueryMain, CDS_1); - LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber)); - TV1.DataController.Filter.Clear; - end; - end; - -end; - -procedure TfrmTatClothStkList.TBRafreshClick(Sender: TObject); -begin - InitPage(); -end; - -procedure TfrmTatClothStkList.CDS_1BeforeOpen(DataSet: TDataSet); -begin - lstPacketId.Clear; -end; - -procedure TfrmTatClothStkList.cxPageControl1Change(Sender: TObject); -begin - SetStatus(); -end; - -procedure TfrmTatClothStkList.TBCloseClick(Sender: TObject); -begin - - Close; -end; - -procedure TfrmTatClothStkList.FormShow(Sender: TObject); -begin - inherited; - - ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ֿ֯'); - ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ֿ֯'); - CurrentPage := 1; - RecordsNumber := 500; - canshu1 := Trim(Self.fParameters1); - SetStatus(); - InitPage(); -end; - -procedure TfrmTatClothStkList.TBExportClick(Sender: TObject); -begin - if ADOQueryMain.IsEmpty then - exit; - TcxGridToExcel(Self.Caption, cxGrid1); -end; - -procedure TfrmTatClothStkList.orderNoKeyPress(Sender: TObject; var Key: Char); -begin - if Key = #13 then - begin - InitPage(); - end; -end; - -procedure TfrmTatClothStkList.PM11Click(Sender: TObject); -begin - SelOKNo(CDS_1, false); -end; - -procedure TfrmTatClothStkList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -begin - if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then - ACanvas.Brush.Color := $B3DEF5; -end; - -procedure TfrmTatClothStkList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); -begin - lstPacketId.Clear; //´ݼǰlstPacketId -end; - -procedure TfrmTatClothStkList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); -begin - if lstPacketId <> nil then - AText := IntToStr(lstPacketId.Count); -end; - -procedure TfrmTatClothStkList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); -begin - BegDate.Date := BegDate2.Date; - EndDate.Date := EndDate2.Date; - chk_F2.Checked := chk_F1.Checked; - cxPageControl1.ActivePageIndex := 1; - SetStatus(); - InitGrid(SGetCDSFilters(Tv2, CDS_2)); -end; - -procedure TfrmTatClothStkList.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); -begin - if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then - ACanvas.Brush.Color := $B3DEF5; -end; - -procedure TfrmTatClothStkList.BTNPClick(Sender: TObject); -begin - if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then - CurrentPage := CurrentPage + 1; - InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); -end; - -procedure TfrmTatClothStkList.BTLPClick(Sender: TObject); -begin - if CurrentPage > 1 then - CurrentPage := CurrentPage - 1; - InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); -end; - -procedure TfrmTatClothStkList.TCBNORChange(Sender: TObject); -begin - RecordsNumber := StrToInt(TCBNOR.Text); - CurrentPage := 1; - InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); -end; - -procedure TfrmTatClothStkList.JYTypeChange(Sender: TObject); -begin - CurrentPage := 1; - InitPage(); -end; - -procedure TfrmTatClothStkList.MenuItem1Click(Sender: TObject); -begin - Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); - -end; - -procedure TfrmTatClothStkList.N1Click(Sender: TObject); -begin - SelOKNo(CDS_1, true); -end; - -procedure TfrmTatClothStkList.N2Click(Sender: TObject); -begin - Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); -end; - -procedure TfrmTatClothStkList.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; - ShowMessage(WSql); - CDS_1.Locate('SSel', True, []); - CDS_1.EnableControls; - try - frmLabelPrint := TfrmLabelPrint.Create(Application); - with frmLabelPrint do - begin - FLMType := 'TatClothStk'; - FFiltration1 := WSql; - if ShowModal = 1 then - begin - - end; - end; - finally - frmLabelPrint.Free; - end; -end; - -procedure TfrmTatClothStkList.ToolButton4Click(Sender: TObject); -begin - WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ֿ֯'); - WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ֿ֯'); -end; - -end. - diff --git a/E04梭织坯布仓库/U_TatDRList.dfm b/E04梭织坯布仓库/U_TatDRList.dfm index 48b609e..a7a8442 100644 --- a/E04梭织坯布仓库/U_TatDRList.dfm +++ b/E04梭织坯布仓库/U_TatDRList.dfm @@ -155,8 +155,7 @@ inherited frmTatDRList: TfrmTatDRList Height = 237 Align = alClient TabOrder = 3 - ExplicitTop = 117 - ExplicitHeight = 247 + ExplicitTop = 129 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -475,7 +474,6 @@ inherited frmTatDRList: TfrmTatDRList HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom Control = cxGrid2 - ExplicitWidth = 8 end object cxGrid2: TcxGrid [5] Left = 0 @@ -484,6 +482,7 @@ inherited frmTatDRList: TfrmTatDRList Height = 222 Align = alBottom TabOrder = 5 + ExplicitTop = 370 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E04梭织坯布仓库/U_TatDRtInPut.dfm b/E04梭织坯布仓库/U_TatDRtInPut.dfm index bbf1145..cf10038 100644 --- a/E04梭织坯布仓库/U_TatDRtInPut.dfm +++ b/E04梭织坯布仓库/U_TatDRtInPut.dfm @@ -3,7 +3,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut Top = 139 Caption = #21457#36135#30003#35831#24405#20837 ClientHeight = 644 - ClientWidth = 1252 + ClientWidth = 1312 Color = clWhite Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -19,7 +19,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut Tag = 1 Left = 0 Top = 0 - Width = 1252 + Width = 1312 Height = 38 AutoSize = True ButtonHeight = 38 @@ -68,7 +68,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut object ScrollBox1: TScrollBox Left = 0 Top = 38 - Width = 1252 + Width = 1312 Height = 75 Align = alTop BevelInner = bvNone @@ -131,11 +131,11 @@ object frmTatDRtInPut: TfrmTatDRtInPut ParentFont = False end object Label27: TLabel - Left = 703 + Left = 688 Top = 12 - Width = 52 + Width = 65 Height = 15 - Caption = #25968#37327#21333#20301 + Caption = #25968#37327#21333#20301#65306 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 @@ -143,6 +143,47 @@ object frmTatDRtInPut: TfrmTatDRtInPut Font.Style = [fsBold] ParentFont = False end + object Label3: TLabel + Left = 865 + Top = 13 + Width = 78 + Height = 12 + Caption = #20986#21040#21512#21516#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 1090 + Top = 5 + Width = 91 + Height = 12 + Caption = #20986#21040#21512#21516#23376#34920#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end + object Label5: TLabel + Left = 1090 + Top = 31 + Width = 91 + Height = 12 + Caption = #20986#21040#21512#21516#20027#34920#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end object OutType: TComboBox Tag = 1 Left = 306 @@ -158,8 +199,8 @@ object frmTatDRtInPut: TfrmTatDRtInPut object Note: TEdit Tag = 1 Left = 96 - Top = 39 - Width = 962 + Top = 40 + Width = 984 Height = 18 TabOrder = 2 end @@ -186,7 +227,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut end object QtyUnit: TComboBox Tag = 2 - Left = 758 + Left = 749 Top = 9 Width = 96 Height = 20 @@ -197,16 +238,44 @@ object frmTatDRtInPut: TfrmTatDRtInPut 'Y' 'Kg') end + object ToConNo: TBtnEditC + Tag = 1 + Left = 942 + Top = 9 + Width = 138 + Height = 20 + TabOrder = 5 + OnBtnUpClick = ToConNoBtnUpClick + OnBtnDnClick = ToConNoBtnDnClick + end + object ToConSId: TBtnEditC + Tag = 1 + Left = 1187 + Top = 5 + Width = 138 + Height = 20 + TabOrder = 6 + Visible = False + end + object ToConMId: TBtnEditC + Tag = 1 + Left = 1187 + Top = 29 + Width = 138 + Height = 20 + TabOrder = 7 + Visible = False + end end object ToolBar2: TToolBar Tag = 1 Left = 0 Top = 113 - Width = 1252 + Width = 1312 Height = 38 AutoSize = True ButtonHeight = 38 - ButtonWidth = 75 + ButtonWidth = 91 Caption = 'ToolBar1' Color = clBtnFace DisabledImages = DataLink_TatClothStk.ImageList_new32 @@ -223,16 +292,17 @@ object frmTatDRtInPut: TfrmTatDRtInPut ParentFont = False ShowCaptions = True TabOrder = 2 - object ToolButton3: TToolButton + ExplicitTop = 107 + object SelectStk: TToolButton Left = 0 Top = 0 AutoSize = True - Caption = #36873#21333 + Caption = #36873#25321#24211#23384 ImageIndex = 12 - OnClick = ToolButton3Click + OnClick = SelectStkClick end object ToolButton1: TToolButton - Left = 71 + Left = 95 Top = 0 AutoSize = True Caption = #22686#34892 @@ -241,7 +311,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut OnClick = ToolButton1Click end object ToolButton2: TToolButton - Left = 142 + Left = 166 Top = 0 AutoSize = True Caption = #21024#34892 @@ -252,10 +322,11 @@ object frmTatDRtInPut: TfrmTatDRtInPut object cxGrid1: TcxGrid Left = 0 Top = 151 - Width = 1252 + Width = 1312 Height = 493 Align = alClient TabOrder = 3 + ExplicitTop = 157 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -298,6 +369,13 @@ object frmTatDRtInPut: TfrmTatDRtInPut Options.Editing = False Width = 100 end + object Tv1Column3: TcxGridDBColumn + Caption = #32455#36896#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 112 + end object v1Column5: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' @@ -312,6 +390,27 @@ object frmTatDRtInPut: TfrmTatDRtInPut HeaderAlignmentHorz = taCenter Width = 106 end + object Tv1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column5: TcxGridDBColumn + Caption = #31561#32423 + DataBinding.FieldName = 'Y_Type' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column6: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object Tv1Column2: TcxGridDBColumn Caption = #30003#35831#21305#25968 DataBinding.FieldName = 'Piece' diff --git a/E04梭织坯布仓库/U_TatDRtInPut.pas b/E04梭织坯布仓库/U_TatDRtInPut.pas index ee48678..2b1829b 100644 --- a/E04梭织坯布仓库/U_TatDRtInPut.pas +++ b/E04梭织坯布仓库/U_TatDRtInPut.pas @@ -45,11 +45,21 @@ type Label2: TLabel; DlyDate: TDateTimePicker; Tv1Column2: TcxGridDBColumn; - ToolButton3: TToolButton; + SelectStk: TToolButton; ToolButton4: TToolButton; Label27: TLabel; QtyUnit: TComboBox; Tv1Column1: TcxGridDBColumn; + Label3: TLabel; + ToConNo: TBtnEditC; + Label4: TLabel; + ToConSId: TBtnEditC; + Label5: TLabel; + ToConMId: TBtnEditC; + Tv1Column3: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -58,8 +68,10 @@ type procedure ToCoNameBtnUpClick(Sender: TObject); procedure ToCoNameBtnDnClick(Sender: TObject); procedure JSQtyUnitChange(Sender: TObject); - procedure ToolButton3Click(Sender: TObject); + procedure SelectStkClick(Sender: TObject); procedure ToolButton4Click(Sender: TObject); + procedure ToConNoBtnDnClick(Sender: TObject); + procedure ToConNoBtnUpClick(Sender: TObject); private fuserName: string; procedure InitData(); @@ -79,7 +91,7 @@ implementation uses U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_TatPlanSel, - U_TradeSalesContractSel; + U_TradeSalesContractSel, U_TatClothStkSel; {$R *.dfm} @@ -116,6 +128,7 @@ begin end; SCreateCDS(ADOQuery1, Order_Sub); SInitCDSData(ADOQuery1, Order_Sub); + SCSHData(ADOQuery1, ScrollBox1, 2); with ADOQuery1 do begin @@ -139,6 +152,32 @@ begin end; end; +procedure TfrmTatDRtInPut.ToConNoBtnDnClick(Sender: TObject); +begin + ToConNo.Text := ''; +end; + +procedure TfrmTatDRtInPut.ToConNoBtnUpClick(Sender: TObject); +begin + try + frmTradeSalesContractSel := TfrmTradeSalesContractSel.Create(Application); + with frmTradeSalesContractSel do + begin + if ShowModal = 1 then + begin + with Self.Order_Sub do + begin + self.ToConNo.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString); + self.ToConMId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConMId').AsString); + self.ToConSId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConSId').AsString); + end; + end; + end; + finally + frmTradeSalesContractSel.Free; + end; +end; + procedure TfrmTatDRtInPut.FormShow(Sender: TObject); var fsj: string; @@ -369,34 +408,38 @@ begin Order_Sub.Delete; end; -procedure TfrmTatDRtInPut.ToolButton3Click(Sender: TObject); +procedure TfrmTatDRtInPut.SelectStkClick(Sender: TObject); var FConMainId, FMPRTCode: string; begin try - frmTradeSalesContractSel := TfrmTradeSalesContractSel.Create(Application); - with frmTradeSalesContractSel do + frmTatClothStkSel := TfrmTatClothStkSel.Create(Application); + with frmTatClothStkSel do begin if ShowModal = 1 then begin - while CDS_1.locate('SSel', true, []) do + while CDS_2.locate('SSel', true, []) do begin with Self.Order_Sub do begin Append; - FieldByName('ConNo').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').Value; - FieldByName('ConMID').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('ConMID').Value; - FieldByName('ConSID').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('ConSID').Value; - FieldByName('C_Code').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').Value; - FieldByName('C_Name').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_Name').Value; + FieldByName('ConNo').Value := frmTatClothStkSel.CDS_2.fieldbyname('ConNo').Value; + FieldByName('ConMID').Value := frmTatClothStkSel.CDS_2.fieldbyname('ConMID').Value; + FieldByName('ConSID').Value := frmTatClothStkSel.CDS_2.fieldbyname('ConSID').Value; + FieldByName('OrderNo').Value := frmTatClothStkSel.CDS_2.fieldbyname('OrderNo').Value; + FieldByName('C_Code').Value := frmTatClothStkSel.CDS_2.fieldbyname('C_Code').Value; + FieldByName('C_Name').Value := frmTatClothStkSel.CDS_2.fieldbyname('C_Name').Value; + FieldByName('C_Color').Value := frmTatClothStkSel.CDS_2.fieldbyname('C_Color').Value; + FieldByName('Y_Type').Value := frmTatClothStkSel.CDS_2.fieldbyname('Grade').Value; + FieldByName('BatchNo').Value := frmTatClothStkSel.CDS_2.fieldbyname('BatchNo').Value; end; - CDS_1.Edit; - CDS_1.fieldbyname('SSel').value := false; + CDS_2.Edit; + CDS_2.fieldbyname('SSel').value := false; end; end; end; finally - frmTradeSalesContractSel.Free; + frmTatClothStkSel.Free; end; end; diff --git a/T00贸易通用窗体/U_TradeSalesContractSel.dfm b/T00贸易通用窗体/U_TradeSalesContractSel.dfm index 6a39691..d407b42 100644 --- a/T00贸易通用窗体/U_TradeSalesContractSel.dfm +++ b/T00贸易通用窗体/U_TradeSalesContractSel.dfm @@ -3,14 +3,14 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel Top = 106 Caption = #21512#21516#36873#25321 ClientHeight = 558 - ClientWidth = 1564 + ClientWidth = 1540 Color = clWhite Font.Charset = GB2312_CHARSET Font.Height = -12 Font.Name = #23435#20307 Position = poScreenCenter OnClose = FormClose - ExplicitWidth = 1580 + ExplicitWidth = 1556 ExplicitHeight = 597 PixelsPerInch = 96 TextHeight = 12 @@ -18,7 +18,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel Tag = 1 Left = 0 Top = 0 - Width = 1564 + Width = 1540 Height = 38 AutoSize = True ButtonHeight = 38 @@ -64,7 +64,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel object Panel1: TPanel [1] Left = 0 Top = 38 - Width = 1564 + Width = 1540 Height = 44 Align = alTop BevelInner = bvRaised @@ -122,13 +122,14 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel object cxGrid1: TcxGrid [2] Left = 0 Top = 110 - Width = 1564 + Width = 1540 Height = 448 Align = alClient BorderStyle = cxcbsNone PopupMenu = PM_1 TabOrder = 2 object TV1: TcxGridDBTableView + OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 @@ -169,15 +170,6 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Header = Default - object TV1Column7: TcxGridDBColumn - Caption = #36873#25321 - DataBinding.FieldName = 'SSel' - DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxCheckBoxProperties' - Properties.ImmediatePost = True - HeaderAlignmentHorz = taCenter - Width = 41 - end object TV1Column13: TcxGridDBColumn Caption = #19979#21333#26085#26399 DataBinding.FieldName = 'ConDate' @@ -394,7 +386,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel object cxTabControl1: TcxTabControl [3] Left = 0 Top = 82 - Width = 1564 + Width = 1540 Height = 28 Align = alTop Font.Charset = GB2312_CHARSET diff --git a/T00贸易通用窗体/U_TradeSalesContractSel.pas b/T00贸易通用窗体/U_TradeSalesContractSel.pas index 70fc45d..cce92ab 100644 --- a/T00贸易通用窗体/U_TradeSalesContractSel.pas +++ b/T00贸易通用窗体/U_TradeSalesContractSel.pas @@ -85,7 +85,6 @@ type handBlack: TcxStyle; cxBlue: TcxStyle; SHuangSeCu: TcxStyle; - TV1Column7: TcxGridDBColumn; PM_1: TPopupMenu; N1: TMenuItem; N2: TMenuItem;