3.31
This commit is contained in:
parent
4ae9f7d52b
commit
a33af2b46f
|
|
@ -1,52 +1,52 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899/12/30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>2025/11/24 13:58:34.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas</Transaction>
|
||||
<Transaction>2025/11/24 15:19:14.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas</Transaction>
|
||||
<Transaction>2025/12/19 14:11:54.000.060,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatInspSHHZ.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
||||
<Transaction>2025-11-24 13:58:34.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas</Transaction>
|
||||
<Transaction>2025-11-24 15:19:14.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas</Transaction>
|
||||
<Transaction>2025-12-19 14:11:54.000.060,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatInspSHHZ.pas</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="..\..\D10szXIANGYING"/>
|
||||
|
|
|
|||
|
|
@ -1,27 +1,27 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="logon.pas"/>
|
||||
<File Path="logon.dfm"/>
|
||||
<File Path="spmain.pas"/>
|
||||
<File Path="spmain.dfm"/>
|
||||
<File Path="DbPanel"/>
|
||||
<File Path="DbPanel\MovePanel.pas"/>
|
||||
<File Path="delphitwain"/>
|
||||
<File Path="delphitwain\DelphiTwain.pas"/>
|
||||
<File Path="delphitwain\DelphiTwainUtils.pas"/>
|
||||
<File Path="delphitwain\Twain.pas"/>
|
||||
<File Path="DbPanel"/>
|
||||
<File Path="DbPanel\MovePanel.pas"/>
|
||||
<File Path="AES.pas"/>
|
||||
<File Path="ElAES.pas"/>
|
||||
<File Path="U_upPassword.pas"/>
|
||||
<File Path="U_upPassword.dfm"/>
|
||||
<File Path="JDAESExtend.pas"/>
|
||||
<File Path="logon.pas"/>
|
||||
<File Path="logon.dfm"/>
|
||||
<File Path="spmain.pas"/>
|
||||
<File Path="spmain.dfm"/>
|
||||
<File Path="U_iniParam.pas"/>
|
||||
<File Path="U_Link.pas"/>
|
||||
<File Path="U_Link.dfm"/>
|
||||
<File Path="U_iniParam.pas"/>
|
||||
<File Path="JDAESExtend.pas"/>
|
||||
<File Path="U_upPassword.pas"/>
|
||||
<File Path="U_upPassword.dfm"/>
|
||||
</ProjectSortOrder>
|
||||
<Transactions>
|
||||
<Transaction>1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj</Transaction>
|
||||
</Transactions>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
|
|
@ -40,46 +40,97 @@ type
|
|||
PM_1: TPopupMenu;
|
||||
PM11: TMenuItem;
|
||||
N1: TMenuItem;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column22: TcxGridDBColumn;
|
||||
Tv1C_Name: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1PCID: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
Tv1dxmeter: TcxGridDBColumn;
|
||||
Tv1Carno: TcxGridDBColumn;
|
||||
Tv1qgSL: TcxGridDBColumn;
|
||||
Tv1qgMeter: TcxGridDBColumn;
|
||||
Tv1Column20: TcxGridDBColumn;
|
||||
Tv1Column21: TcxGridDBColumn;
|
||||
Tv1fbJS: TcxGridDBColumn;
|
||||
Tv1fbqty: TcxGridDBColumn;
|
||||
Tv1CIMachNo: TcxGridDBColumn;
|
||||
Tv1BCIOID: TcxGridDBColumn;
|
||||
Label1: TLabel;
|
||||
C_width: TEdit;
|
||||
Label3: TLabel;
|
||||
pcid: TEdit;
|
||||
Label4: TLabel;
|
||||
C_GramWeight: TEdit;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column23: TcxGridDBColumn;
|
||||
Tv1issp: TcxGridDBColumn;
|
||||
N2: TMenuItem;
|
||||
N3: TMenuItem;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
TabSheet2: TTabSheet;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column22: TcxGridDBColumn;
|
||||
Tv1C_Name: TcxGridDBColumn;
|
||||
Tv1DXMF: TcxGridDBColumn;
|
||||
Tv1dxmeter: TcxGridDBColumn;
|
||||
Tv1Carno: TcxGridDBColumn;
|
||||
Tv1PCID: TcxGridDBColumn;
|
||||
Tv1CIMachNo: TcxGridDBColumn;
|
||||
Tv1BCIOID: TcxGridDBColumn;
|
||||
Tv1qgSL: TcxGridDBColumn;
|
||||
Tv1qgMeter: TcxGridDBColumn;
|
||||
Tv1Column20: TcxGridDBColumn;
|
||||
Tv1Column21: TcxGridDBColumn;
|
||||
Tv1issp: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1fbJS: TcxGridDBColumn;
|
||||
Tv1fbqty: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column23: TcxGridDBColumn;
|
||||
Tv1SHMeter: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
cxGrid2: TcxGrid;
|
||||
Tv2: TcxGridDBTableView;
|
||||
cxGridDBColumn1: TcxGridDBColumn;
|
||||
cxGridDBColumn2: TcxGridDBColumn;
|
||||
cxGridDBColumn3: TcxGridDBColumn;
|
||||
cxGridDBColumn4: TcxGridDBColumn;
|
||||
cxGridDBColumn5: TcxGridDBColumn;
|
||||
cxGridDBColumn6: TcxGridDBColumn;
|
||||
cxGridDBColumn7: TcxGridDBColumn;
|
||||
cxGridDBColumn8: TcxGridDBColumn;
|
||||
cxGridDBColumn9: TcxGridDBColumn;
|
||||
cxGridDBColumn10: TcxGridDBColumn;
|
||||
cxGridDBColumn11: TcxGridDBColumn;
|
||||
cxGridDBColumn12: TcxGridDBColumn;
|
||||
Tv1Column22: TcxGridDBColumn;
|
||||
cxGridDBColumn13: TcxGridDBColumn;
|
||||
cxGridDBColumn14: TcxGridDBColumn;
|
||||
cxGridDBColumn15: TcxGridDBColumn;
|
||||
cxGridDBColumn16: TcxGridDBColumn;
|
||||
Tv1YDpf: TcxGridDBColumn;
|
||||
cxGridDBColumn17: TcxGridDBColumn;
|
||||
cxGridDBColumn18: TcxGridDBColumn;
|
||||
Tv1xjPF: TcxGridDBColumn;
|
||||
cxGridDBColumn19: TcxGridDBColumn;
|
||||
cxGridDBColumn20: TcxGridDBColumn;
|
||||
Tv1edpf: TcxGridDBColumn;
|
||||
cxGridDBColumn21: TcxGridDBColumn;
|
||||
cxGridDBColumn22: TcxGridDBColumn;
|
||||
Tv1cspf: TcxGridDBColumn;
|
||||
cxGridDBColumn23: TcxGridDBColumn;
|
||||
cxGridDBColumn24: TcxGridDBColumn;
|
||||
Tv1fqPF: TcxGridDBColumn;
|
||||
cxGridDBColumn25: TcxGridDBColumn;
|
||||
cxGridDBColumn26: TcxGridDBColumn;
|
||||
Tv1FBPF: TcxGridDBColumn;
|
||||
cxGridDBColumn27: TcxGridDBColumn;
|
||||
Tv1Column19: TcxGridDBColumn;
|
||||
cxGridDBColumn28: TcxGridDBColumn;
|
||||
cxGridDBColumn29: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
PM_2: TPopupMenu;
|
||||
GPM_2: TcxGridPopupMenu;
|
||||
CDS_2: TClientDataSet;
|
||||
DS_2: TDataSource;
|
||||
N4: TMenuItem;
|
||||
N5: TMenuItem;
|
||||
N6: TMenuItem;
|
||||
N7: TMenuItem;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -116,13 +167,19 @@ type
|
|||
procedure N2Click(Sender: TObject);
|
||||
procedure N3Click(Sender: TObject);
|
||||
procedure Tv1DblClick(Sender: TObject);
|
||||
procedure N4Click(Sender: TObject);
|
||||
procedure N5Click(Sender: TObject);
|
||||
procedure N6Click(Sender: TObject);
|
||||
procedure N7Click(Sender: TObject);
|
||||
|
||||
private
|
||||
CurrentPage, RecordsNumber: Integer;
|
||||
lstCust: TStringList;
|
||||
procedure InitGrid();
|
||||
procedure InitGrid2();
|
||||
procedure SetStatus();
|
||||
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
|
||||
procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
||||
|
||||
{ Private declarations }
|
||||
public
|
||||
canshu1: string;
|
||||
|
|
@ -415,6 +472,148 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.InitGrid2();
|
||||
var
|
||||
WSql, WSql1: string;
|
||||
begin
|
||||
|
||||
WSql := SGetFilters(Panel1, 1, 2);
|
||||
if Trim(WSql) <> '' then
|
||||
WSql := ' and ' + WSql;
|
||||
if IsJYTime.Checked then
|
||||
begin
|
||||
WSql1 := ' and A.FillTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
WSql1 := WSql1 + ' and A.FillTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||
end;
|
||||
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
|
||||
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from ( ');
|
||||
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter,issp=isnull(A.issp,'''') ');
|
||||
sql.Add(' ,maX(B.C_Width) AS DXMF,A.CIMachNo,A.BCIOID ');
|
||||
// sql.Add(' ,CAST(isNull(A.dxmeter,''1'') AS DECIMAL(18,2)) ');
|
||||
|
||||
// SQL.Add(' ,qgMeter=sum(meter+SHMeter)/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
|
||||
|
||||
sql.Add(' ,meterall=(select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )');
|
||||
sql.Add(' ,C_Widthall= ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
|
||||
//去掉损耗米数 20260206 cai
|
||||
SQL.Add(' ,qgMeter=(select sum(meter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
|
||||
SQL.Add(' ,SHMeter=(select sum(SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo ) ');
|
||||
// SQL.Add(' ,qgSL = ROUND((select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )*100 ');
|
||||
// sql.Add(' / ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1)/CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 2) ');
|
||||
|
||||
SQL.Add(' ,qgSL = ROUND((CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) - (select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )');
|
||||
SQL.Add(' /ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) )*100 ');
|
||||
sql.Add(' /CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 3) ');
|
||||
|
||||
SQL.Add(',SHpf=SUM(CASE WHEN ISNUMERIC(A.SHMETER) = 1 AND ISNUMERIC(A.C_WIDTH) = 1 ');
|
||||
SQL.Add(' THEN CAST(A.SHMETER AS DECIMAL(18,2))/100 * CAST(A.C_WIDTH AS DECIMAL(18,2)) ');
|
||||
SQL.Add(' 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(',YDpf=SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
|
||||
|
||||
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(',edpf=SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
|
||||
|
||||
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(',xjpf=SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
|
||||
|
||||
SQL.Add(',SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END )AS fbJS');
|
||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )AS fbqty');
|
||||
SQL.Add(',fbpf=SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
|
||||
|
||||
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(',fqpf=SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
|
||||
|
||||
// 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(',cspf=SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )*A.C_Width/100 ');
|
||||
|
||||
|
||||
// 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的))
|
||||
SQL.Add(',YDRate=CAST(');
|
||||
SQL.Add(' CASE ');
|
||||
SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
|
||||
SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJS（排除米数为0）
|
||||
SQL.Add(' THEN 0 ');
|
||||
SQL.Add(' ELSE ');
|
||||
SQL.Add(' CAST(SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // 分子：YDJS
|
||||
SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
|
||||
SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS
|
||||
SQL.Add(' END ');
|
||||
SQL.Add('AS DECIMAL(18,4)) ');
|
||||
|
||||
// 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的))
|
||||
SQL.Add(',FBRate=CAST(');
|
||||
SQL.Add(' CASE ');
|
||||
SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
|
||||
SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJS（排除米数为0）
|
||||
SQL.Add(' THEN 0 ');
|
||||
SQL.Add(' ELSE ');
|
||||
SQL.Add(' CAST(SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // 分子：YDJS
|
||||
SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
|
||||
SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS
|
||||
SQL.Add(' END ');
|
||||
SQL.Add('AS DECIMAL(18,4)) ');
|
||||
|
||||
SQL.Add('from Tat_Cloth_Inspect A ');
|
||||
SQL.Add(' left join BS_Cloth_IO B on A.BCIOID = B.BCIOID ');
|
||||
SQL.Add(' where (A.BEFOREC_WIDTH='''' OR A.BEFOREC_WIDTH is null) ');
|
||||
SQL.Add(' and (NOT EXISTS (select * from BS_Cloth_IO_mx X WHERE X.BCIOID = A.BCIOID and X.C_MXSHWidth is not NULL)) ');
|
||||
SQL.Add(' and A.GRADE<>''循环布'' ');
|
||||
|
||||
SQL.Add(WSql1);
|
||||
|
||||
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter');
|
||||
sql.Add(' ,A.CIMachNo,A.BCIOID,isnull(A.issp,'''')');
|
||||
|
||||
sql.add(' ) T where 1=1 ');
|
||||
SQL.Add(WSql);
|
||||
sql.Add(' Order By T.Carno,T.pcid,ISNULL(CAST(NULLIF(dxmeter, '''') AS DECIMAL), 0),BCIOID ');
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryMain, CDS_2);
|
||||
SInitCDSData(ADOQueryMain, CDS_2);
|
||||
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
TV1.DataController.Filter.Clear;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.IsJYTimeClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
|
@ -425,6 +624,7 @@ procedure TfrmTatClothInspHZList.TBRafreshClick(Sender: TObject);
|
|||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.CDS_1BeforeOpen(DataSet: TDataSet);
|
||||
|
|
@ -454,6 +654,7 @@ begin
|
|||
if Key = #13 then
|
||||
begin
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
@ -477,6 +678,7 @@ begin
|
|||
BegDate.DateTime := SGetServerDate(ADOQueryCmd);
|
||||
EndDate.DateTime := BegDate.DateTime;
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
|
||||
end;
|
||||
|
||||
|
|
@ -799,17 +1001,37 @@ end;
|
|||
|
||||
procedure TfrmTatClothInspHZList.N3Click(Sender: TObject);
|
||||
begin
|
||||
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
|
||||
CopyColumnSummaryToClipboard(Tv1,TV1.Controller.FocusedColumn);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
|
||||
procedure TfrmTatClothInspHZList.N4Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
SelOKNo(CDS_2, true);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.N5Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
SelOKNo(CDS_2, false);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.N6Click(Sender: TObject);
|
||||
begin
|
||||
Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.N7Click(Sender: TObject);
|
||||
begin
|
||||
CopyColumnSummaryToClipboard(Tv2,TV2.Controller.FocusedColumn);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
||||
var
|
||||
AView: TcxGridDBTableView;
|
||||
SummaryIndex: Integer;
|
||||
SummaryText: string;
|
||||
begin
|
||||
AView := Tv1;
|
||||
|
||||
// ²éÕÒÖ¸¶¨ÁеĻã×ÜÏî
|
||||
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
|
||||
if SummaryIndex <> -1 then
|
||||
|
|
|
|||
|
|
@ -6,7 +6,6 @@ inherited frmTatClothInspHZList2: TfrmTatClothInspHZList2
|
|||
ClientWidth = 1540
|
||||
Position = poScreenCenter
|
||||
WindowState = wsMaximized
|
||||
ExplicitLeft = -689
|
||||
ExplicitWidth = 1556
|
||||
ExplicitHeight = 639
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -254,6 +253,7 @@ inherited frmTatClothInspHZList2: TfrmTatClothInspHZList2
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 103
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -45,6 +45,15 @@ type
|
|||
PCId: TEdit;
|
||||
label11: TLabel;
|
||||
Panel2: TPanel;
|
||||
N2: TMenuItem;
|
||||
N3: TMenuItem;
|
||||
PM_2: TPopupMenu;
|
||||
GPM_2: TcxGridPopupMenu;
|
||||
CDS_2: TClientDataSet;
|
||||
DS_2: TDataSource;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
TabSheet2: TTabSheet;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column22: TcxGridDBColumn;
|
||||
|
|
@ -61,8 +70,6 @@ type
|
|||
Tv1SH_DS8: TcxGridDBColumn;
|
||||
Tv1SH_HB9: TcxGridDBColumn;
|
||||
Tv1SH_SCZ10: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
N2: TMenuItem;
|
||||
Tv1SH_BB11: TcxGridDBColumn;
|
||||
Tv1SH_ZW12: TcxGridDBColumn;
|
||||
Tv1SH_HY13: TcxGridDBColumn;
|
||||
|
|
@ -74,7 +81,40 @@ type
|
|||
Tv1SH_XY19: TcxGridDBColumn;
|
||||
Tv1SH_YD20: TcxGridDBColumn;
|
||||
Tv1SH_PD21: TcxGridDBColumn;
|
||||
N3: TMenuItem;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
N4: TMenuItem;
|
||||
N5: TMenuItem;
|
||||
N6: TMenuItem;
|
||||
N7: TMenuItem;
|
||||
cxGrid2: TcxGrid;
|
||||
TV2: TcxGridDBTableView;
|
||||
cxGridDBColumn1: TcxGridDBColumn;
|
||||
cxGridDBColumn2: TcxGridDBColumn;
|
||||
cxGridDBColumn3: TcxGridDBColumn;
|
||||
Tv1PCId: TcxGridDBColumn;
|
||||
cxGridDBColumn4: TcxGridDBColumn;
|
||||
cxGridDBColumn5: TcxGridDBColumn;
|
||||
cxGridDBColumn6: TcxGridDBColumn;
|
||||
cxGridDBColumn7: TcxGridDBColumn;
|
||||
cxGridDBColumn8: TcxGridDBColumn;
|
||||
cxGridDBColumn9: TcxGridDBColumn;
|
||||
cxGridDBColumn10: TcxGridDBColumn;
|
||||
cxGridDBColumn11: TcxGridDBColumn;
|
||||
cxGridDBColumn12: TcxGridDBColumn;
|
||||
cxGridDBColumn13: TcxGridDBColumn;
|
||||
cxGridDBColumn14: TcxGridDBColumn;
|
||||
cxGridDBColumn15: TcxGridDBColumn;
|
||||
cxGridDBColumn16: TcxGridDBColumn;
|
||||
cxGridDBColumn17: TcxGridDBColumn;
|
||||
cxGridDBColumn18: TcxGridDBColumn;
|
||||
cxGridDBColumn19: TcxGridDBColumn;
|
||||
cxGridDBColumn20: TcxGridDBColumn;
|
||||
cxGridDBColumn21: TcxGridDBColumn;
|
||||
cxGridDBColumn22: TcxGridDBColumn;
|
||||
cxGridDBColumn23: TcxGridDBColumn;
|
||||
cxGridDBColumn24: TcxGridDBColumn;
|
||||
cxGridDBColumn25: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -101,13 +141,18 @@ type
|
|||
procedure N2Click(Sender: TObject);
|
||||
procedure N3Click(Sender: TObject);
|
||||
procedure Tv1DblClick(Sender: TObject);
|
||||
procedure N4Click(Sender: TObject);
|
||||
procedure N5Click(Sender: TObject);
|
||||
procedure N6Click(Sender: TObject);
|
||||
procedure N7Click(Sender: TObject);
|
||||
|
||||
private
|
||||
CurrentPage, RecordsNumber: Integer;
|
||||
lstCust: TStringList;
|
||||
procedure InitGrid();
|
||||
procedure InitGrid2();
|
||||
procedure SetStatus();
|
||||
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
|
||||
procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
||||
|
||||
{ Private declarations }
|
||||
public
|
||||
|
|
@ -179,6 +224,47 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmTatInspSHHZ.InitGrid2();
|
||||
var
|
||||
WSql: string;
|
||||
WSql1: string;
|
||||
begin
|
||||
|
||||
WSql := SGetFilters(Panel1, 1, 2);
|
||||
if Trim(WSql) <> '' then
|
||||
WSql := ' and ' + WSql;
|
||||
if IsJYTime.Checked then
|
||||
begin
|
||||
WSql := WSql + ' and A.Filltime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
WSql := WSql + ' and A.Filltime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||
end;
|
||||
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
|
||||
sql.Add(' ExEC P_Tat_Cloth_SHHZ2 ');
|
||||
sql.Add(' @wsql = ' + quotedStr(WSql));
|
||||
sql.Add(' ,@wsql1 = ' + quotedStr(WSql1));
|
||||
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryMain, CDS_2);
|
||||
SInitCDSData(ADOQueryMain, CDS_2);
|
||||
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
TV1.DataController.Filter.Clear;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatInspSHHZ.IsJYTimeClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
|
@ -189,6 +275,7 @@ procedure TfrmTatInspSHHZ.TBRafreshClick(Sender: TObject);
|
|||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTatInspSHHZ.CDS_1BeforeOpen(DataSet: TDataSet);
|
||||
|
|
@ -218,6 +305,7 @@ begin
|
|||
if Key = #13 then
|
||||
begin
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
@ -238,6 +326,7 @@ begin
|
|||
|
||||
SetStatus();
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTatInspSHHZ.TBExportClick(Sender: TObject);
|
||||
|
|
@ -347,18 +436,39 @@ end;
|
|||
|
||||
procedure TfrmTatInspSHHZ.N3Click(Sender: TObject);
|
||||
begin
|
||||
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
|
||||
CopyColumnSummaryToClipboard(Tv1, TV1.Controller.FocusedColumn);
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatInspSHHZ.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
|
||||
procedure TfrmTatInspSHHZ.N4Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
SelOKNo(CDS_2, true);
|
||||
end;
|
||||
|
||||
procedure TfrmTatInspSHHZ.N5Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
SelOKNo(CDS_2, false);
|
||||
end;
|
||||
|
||||
procedure TfrmTatInspSHHZ.N6Click(Sender: TObject);
|
||||
begin
|
||||
Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatInspSHHZ.N7Click(Sender: TObject);
|
||||
begin
|
||||
CopyColumnSummaryToClipboard(Tv2, TV2.Controller.FocusedColumn);
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatInspSHHZ.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
||||
var
|
||||
AView: TcxGridDBTableView;
|
||||
SummaryIndex: Integer;
|
||||
SummaryText: string;
|
||||
begin
|
||||
AView := Tv1;
|
||||
|
||||
// ²éÕÒÖ¸¶¨ÁеĻã×ÜÏî
|
||||
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
|
||||
if SummaryIndex <> -1 then
|
||||
|
|
|
|||
|
|
@ -76,8 +76,6 @@ inherited frmTatInspSHHZ2: TfrmTatInspSHHZ2
|
|||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
ExplicitLeft = -1
|
||||
ExplicitTop = 33
|
||||
object Label2: TLabel
|
||||
Left = 70
|
||||
Top = 36
|
||||
|
|
@ -187,7 +185,7 @@ inherited frmTatInspSHHZ2: TfrmTatInspSHHZ2
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 0
|
||||
ExplicitLeft = 2
|
||||
ExplicitTop = 6
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -1,77 +1,77 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.740,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList3.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothEDCDLook.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.337,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.337,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.732,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCKHZList3.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothRKHZList2.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="..\..\D10szXIANGYING"/>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -223,7 +223,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
end
|
||||
object DRMID: TEdit
|
||||
Tag = 2
|
||||
Left = 243
|
||||
Left = 248
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
|
|
@ -243,7 +243,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
end
|
||||
object C_Width: TEdit
|
||||
Tag = 2
|
||||
Left = 391
|
||||
Left = 392
|
||||
Top = 6
|
||||
Width = 100
|
||||
Height = 20
|
||||
|
|
@ -267,7 +267,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
Top = 105
|
||||
Width = 1540
|
||||
Height = 516
|
||||
ActivePage = TabSheet1
|
||||
ActivePage = TabSheet4
|
||||
Align = alClient
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
|
|
@ -277,7 +277,6 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
ParentFont = False
|
||||
Style = tsFlatButtons
|
||||
TabOrder = 2
|
||||
ExplicitTop = 111
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = #26377#20986#24211#21333#20986#24211
|
||||
object cxGrid1: TcxGrid
|
||||
|
|
@ -559,7 +558,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
Options.Editing = False
|
||||
Width = 94
|
||||
end
|
||||
object Tv1ToCoName: TcxGridDBColumn
|
||||
object Tv1CoName: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'CoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
|
|
|
|||
|
|
@ -103,7 +103,7 @@ type
|
|||
cxGridDBColumn3: TcxGridDBColumn;
|
||||
Tv1IOTime: TcxGridDBColumn;
|
||||
Tv1DRMID: TcxGridDBColumn;
|
||||
Tv1ToCoName: TcxGridDBColumn;
|
||||
Tv1CoName: TcxGridDBColumn;
|
||||
cxGridDBColumn4: TcxGridDBColumn;
|
||||
Tv1C_Width: TcxGridDBColumn;
|
||||
cxGridDBColumn6: TcxGridDBColumn;
|
||||
|
|
@ -251,7 +251,7 @@ begin
|
|||
// ,B.ToCoID
|
||||
SQL.Add(' order by A.C_CODE ,A.C_GramWeight');
|
||||
|
||||
showmessage(sql.text);
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryMain, CDS_1);
|
||||
|
|
@ -370,12 +370,12 @@ var
|
|||
WSql: string;
|
||||
begin
|
||||
|
||||
WSql := SGetFilters(Panel1, 1, 2);
|
||||
if Trim(WSql) <> '' then
|
||||
WSql := ' and ' + WSql;
|
||||
// WSql := SGetFilters(Panel1, 1, 2);
|
||||
// if Trim(WSql) <> '' then
|
||||
// WSql := ' and ' + WSql;
|
||||
if IsJYTime.Checked then
|
||||
begin
|
||||
WSql := WSql + ' and A.IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
WSql := ' and A.IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
WSql := WSql + ' and A.IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||
end;
|
||||
|
||||
|
|
@ -405,6 +405,26 @@ begin
|
|||
// sql.Add(' and B.ToCoID = ' + QuotedStr(Trim(fToCoID)));
|
||||
// sql.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp)));
|
||||
sql.Add(WSql);
|
||||
if C_Name.text <> '' then
|
||||
begin
|
||||
SQL.Add(' and A.C_Name like ' + QuotedStr('%' + Trim(C_Name.text) + '%'));
|
||||
end;
|
||||
if C_Width.text <> '' then
|
||||
begin
|
||||
SQL.Add(' and A.C_Width like ' + QuotedStr('%' + Trim(C_Width.text) + '%'));
|
||||
end;
|
||||
if CoName.text <> '' then
|
||||
begin
|
||||
SQL.Add(' and D.CoName like ' + QuotedStr('%' + Trim(CoName.text) + '%'));
|
||||
end;
|
||||
if DRMID.text <> '' then
|
||||
begin
|
||||
SQL.Add(' and B.DRMID like ' + QuotedStr('%' + Trim(DRMID.text) + '%'));
|
||||
end;
|
||||
if C_GramWeight.text <> '' then
|
||||
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');
|
||||
// sql.Add(' HAVING(select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame)));
|
||||
|
|
|
|||
|
|
@ -278,6 +278,8 @@ inherited frmTatClothCRStkHZList: TfrmTatClothCRStkHZList
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = 6
|
||||
object cxGrid1DBBandedTableView1: TcxGridDBBandedTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
|
|||
|
|
@ -298,7 +298,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 0
|
||||
ExplicitHeight = 464
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnDblClick = Tv1DblClick
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
|
|
|
|||
|
|
@ -148,7 +148,8 @@ type
|
|||
procedure InitGrid();
|
||||
procedure InitGrid2();
|
||||
procedure SetStatus();
|
||||
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
|
||||
procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
||||
|
||||
{ Private declarations }
|
||||
public
|
||||
canshu1: string;
|
||||
|
|
@ -329,7 +330,7 @@ begin
|
|||
// sql.Add('group by C_NAME, IOType,C_GramWeight,pcid,isnull(A.issp,'''')');
|
||||
sql.Add('Order by C_NAME, C_width,pcid,C_GramWeight ');
|
||||
// sql.Add('Order by C_NAME, IOType,C_GramWeight ');
|
||||
showmessage(sql.text);
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryMain, CDS_2);
|
||||
|
|
@ -521,7 +522,7 @@ end;
|
|||
|
||||
procedure TfrmTatClothRKHZList.N3Click(Sender: TObject);
|
||||
begin
|
||||
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
|
||||
CopyColumnSummaryToClipboard(Tv1,TV1.Controller.FocusedColumn);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothRKHZList.N4Click(Sender: TObject);
|
||||
|
|
@ -543,17 +544,14 @@ end;
|
|||
|
||||
procedure TfrmTatClothRKHZList.N7Click(Sender: TObject);
|
||||
begin
|
||||
CopyColumnSummaryToClipboard(TV2.Controller.FocusedColumn);
|
||||
CopyColumnSummaryToClipboard(TV2, TV2.Controller.FocusedColumn);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothRKHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
|
||||
procedure TfrmTatClothRKHZList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
||||
var
|
||||
AView: TcxGridDBTableView;
|
||||
SummaryIndex: Integer;
|
||||
SummaryText: string;
|
||||
begin
|
||||
AView := Tv1;
|
||||
|
||||
// ²éÕÒÖ¸¶¨ÁеĻã×ÜÏî
|
||||
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
|
||||
if SummaryIndex <> -1 then
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load Diff
|
|
@ -43,6 +43,12 @@ type
|
|||
C_GramWeight: TEdit;
|
||||
label11: TLabel;
|
||||
Panel2: TPanel;
|
||||
N2: TMenuItem;
|
||||
N3: TMenuItem;
|
||||
ToolButton1: TToolButton;
|
||||
PageControl1: TPageControl;
|
||||
TabSheet1: TTabSheet;
|
||||
TabSheet2: TTabSheet;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column22: TcxGridDBColumn;
|
||||
|
|
@ -51,24 +57,55 @@ type
|
|||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1YdPF: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1edPF: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1xjPF: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1fqPF: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
N2: TMenuItem;
|
||||
Tv1pf: TcxGridDBColumn;
|
||||
Tv1YdPF: TcxGridDBColumn;
|
||||
Tv1edPF: TcxGridDBColumn;
|
||||
Tv1xjPF: TcxGridDBColumn;
|
||||
Tv1fqPF: TcxGridDBColumn;
|
||||
Tv1csPF: TcxGridDBColumn;
|
||||
N3: TMenuItem;
|
||||
ToolButton1: TToolButton;
|
||||
Tv1pf: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
cxGrid2: TcxGrid;
|
||||
Tv2: TcxGridDBTableView;
|
||||
cxGridDBColumn1: TcxGridDBColumn;
|
||||
cxGridDBColumn2: TcxGridDBColumn;
|
||||
cxGridDBColumn3: TcxGridDBColumn;
|
||||
cxGridDBColumn4: TcxGridDBColumn;
|
||||
cxGridDBColumn5: TcxGridDBColumn;
|
||||
cxGridDBColumn6: TcxGridDBColumn;
|
||||
cxGridDBColumn7: TcxGridDBColumn;
|
||||
cxGridDBColumn8: TcxGridDBColumn;
|
||||
cxGridDBColumn9: TcxGridDBColumn;
|
||||
cxGridDBColumn10: TcxGridDBColumn;
|
||||
cxGridDBColumn11: TcxGridDBColumn;
|
||||
cxGridDBColumn12: TcxGridDBColumn;
|
||||
cxGridDBColumn13: TcxGridDBColumn;
|
||||
cxGridDBColumn14: TcxGridDBColumn;
|
||||
cxGridDBColumn15: TcxGridDBColumn;
|
||||
cxGridDBColumn16: TcxGridDBColumn;
|
||||
cxGridDBColumn17: TcxGridDBColumn;
|
||||
cxGridDBColumn18: TcxGridDBColumn;
|
||||
cxGridDBColumn19: TcxGridDBColumn;
|
||||
cxGridDBColumn20: TcxGridDBColumn;
|
||||
cxGridDBColumn21: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
CDS_2: TClientDataSet;
|
||||
DS_2: TDataSource;
|
||||
PM_2: TPopupMenu;
|
||||
GPM_2: TcxGridPopupMenu;
|
||||
N4: TMenuItem;
|
||||
N5: TMenuItem;
|
||||
N6: TMenuItem;
|
||||
N7: TMenuItem;
|
||||
label12: TLabel;
|
||||
C_width: TEdit;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -96,12 +133,17 @@ type
|
|||
procedure N2Click(Sender: TObject);
|
||||
procedure Tv1DblClick(Sender: TObject);
|
||||
procedure N3Click(Sender: TObject);
|
||||
procedure N4Click(Sender: TObject);
|
||||
procedure N5Click(Sender: TObject);
|
||||
procedure N6Click(Sender: TObject);
|
||||
procedure N7Click(Sender: TObject);
|
||||
private
|
||||
CurrentPage, RecordsNumber: Integer;
|
||||
lstCust: TStringList;
|
||||
procedure InitGrid();
|
||||
procedure InitGrid2();
|
||||
procedure SetStatus();
|
||||
procedure CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
|
||||
procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
||||
|
||||
{ Private declarations }
|
||||
public
|
||||
|
|
@ -204,6 +246,75 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothStkHZList.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;
|
||||
TV2.DataController.Filter.Clear;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothStkHZList.IsJYTimeClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
|
@ -214,6 +325,7 @@ procedure TfrmTatClothStkHZList.TBRafreshClick(Sender: TObject);
|
|||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothStkHZList.CDS_1BeforeOpen(DataSet: TDataSet);
|
||||
|
|
@ -243,6 +355,7 @@ begin
|
|||
if Key = #13 then
|
||||
begin
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
@ -264,6 +377,7 @@ begin
|
|||
|
||||
SetStatus();
|
||||
InitGrid();
|
||||
InitGrid2();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothStkHZList.TBExportClick(Sender: TObject);
|
||||
|
|
@ -373,17 +487,38 @@ end;
|
|||
procedure TfrmTatClothStkHZList.N3Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
CopyColumnSummaryToClipboard(TV1.Controller.FocusedColumn);
|
||||
CopyColumnSummaryToClipboard(TV1,TV1.Controller.FocusedColumn);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothStkHZList.CopyColumnSummaryToClipboard(AColumn: TcxGridColumn);
|
||||
procedure TfrmTatClothStkHZList.N4Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
SelOKNo(CDS_2, true);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothStkHZList.N5Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
SelOKNo(CDS_2, false);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothStkHZList.N6Click(Sender: TObject);
|
||||
begin
|
||||
Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothStkHZList.N7Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
CopyColumnSummaryToClipboard(TV2,TV2.Controller.FocusedColumn);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothStkHZList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
||||
var
|
||||
AView: TcxGridDBTableView;
|
||||
SummaryIndex: Integer;
|
||||
SummaryText: string;
|
||||
begin
|
||||
AView := Tv1;
|
||||
|
||||
// ²éÕÒÖ¸¶¨ÁеĻã×ÜÏî
|
||||
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
|
||||
if SummaryIndex <> -1 then
|
||||
|
|
|
|||
Binary file not shown.
Loading…
Reference in New Issue
Block a user