diff --git a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dpr b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dpr index f600464..eaa7677 100644 --- a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dpr +++ b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dpr @@ -50,7 +50,8 @@ uses U_FormInitThread in '..\..\..\public10\design\U_FormInitThread.pas', Unit2 in 'Unit2.pas' {Form2}, U_ControlData in '..\..\..\public10\ThreeFun\Fun\U_ControlData.pas', - uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; + uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', + U_TradeClothInspHZList in 'U_TradeClothInspHZList.pas' {frmTradeClothInspHZList}; {$R *.res} diff --git a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj index cef78f3..be51b6c 100644 --- a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj +++ b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj @@ -235,6 +235,10 @@ + +
frmTradeClothInspHZList
+ dfm + Cfg_2 Base diff --git a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj.local b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj.local index 67c1385..6021b80 100644 --- a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj.local +++ b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.dproj.local @@ -1,102 +1,103 @@  - 1899/12/30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas - 1899/12/30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.pas - 1899/12/30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899/12/30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.769,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj - 1899/12/30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj - 1899/12/30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.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.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas - 1899/12/30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas= - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas - 1899/12/30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas - 1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899/12/30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas - 1899/12/30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas - 1899/12/30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899/12/30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899/12/30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899/12/30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899/12/30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas - 1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= - 1899/12/30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas= - 1899/12/30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas - 1899/12/30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899/12/30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899/12/30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm - 1899/12/30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj - 1899/12/30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm - 1899/12/30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm - 1899/12/30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas - 1899/12/30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm - 1899/12/30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm - 1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas - 1899/12/30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas - 1899/12/30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm - 1899/12/30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm - 1899/12/30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm - 1899/12/30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm - 1899/12/30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas - 1899/12/30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.634,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.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.673,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas - 1899/12/30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas - 1899/12/30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm - 1899/12/30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm - 1899/12/30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas - 1899/12/30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas + 1899-12-30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm + 1899-12-30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.769,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj + 1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas= + 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm + 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas + 1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas + 1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= + 1899-12-30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas + 1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas + 1899-12-30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas + 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj + 1899-12-30 00:00:00.000.817,D:\Dp10RepoV1\项目代码\djdPack\G00贸易通用窗体\U_TradePlanSel.pas= + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj + 1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas + 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm + 1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10DJyishuo\项目代码\djdPack\G03贸易布匹检验\U_TradeClothInspHZList.pas + 1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas + 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas + 1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas + 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas + 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas + 1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm + 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas + 1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj + 1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.201,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm + 1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm + 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm + 1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas + 1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm + 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm + 1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas + 1899-12-30 00:00:00.000.634,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas= + 1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm + 1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas + 1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas + 1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas + 1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas + 1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas @@ -118,7 +119,7 @@ - + @@ -182,5 +183,7 @@ + + diff --git a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.identcache b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.identcache index 4659ee7..463e083 100644 Binary files a/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.identcache and b/项目代码/djdPack/G03贸易布匹检验/DjdMachineInsp.identcache differ diff --git a/项目代码/djdPack/G03贸易布匹检验/U_GetDllForm.pas b/项目代码/djdPack/G03贸易布匹检验/U_GetDllForm.pas index 07a90c5..3435d22 100644 --- a/项目代码/djdPack/G03贸易布匹检验/U_GetDllForm.pas +++ b/项目代码/djdPack/G03贸易布匹检验/U_GetDllForm.pas @@ -17,7 +17,7 @@ implementation uses U_DataLink, U_globalVar, U_iniParam, U_TradeMachInsp, U_ProductJYHZList, U_DeviceJkTest, U_TradeClothInspList, U_MachRollMain, U_TradePack, - U_DjdDjClList, U_FormLayOutDesign; + U_DjdDjClList, U_FormLayOutDesign,U_TradeClothInspHZList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -159,7 +159,7 @@ begin mnewHandle := Handle; end; end; - 211: //Ϣ + 211: //Ϣ¼ϸ begin with TfrmTradeClothInspList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID) do // begin @@ -170,6 +170,18 @@ begin mnewHandle := Handle; end; end; + + 221: //¼ܲ鿴 + begin + with TfrmTradeClothInspHZList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; 212: //Ϣ begin with TfrmProductJYHZList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID) do // diff --git a/项目代码/djdPack/G03贸易布匹检验/U_TradeClothInspHZList.dfm b/项目代码/djdPack/G03贸易布匹检验/U_TradeClothInspHZList.dfm new file mode 100644 index 0000000..77c7401 --- /dev/null +++ b/项目代码/djdPack/G03贸易布匹检验/U_TradeClothInspHZList.dfm @@ -0,0 +1,1360 @@ +inherited frmTradeClothInspHZList: TfrmTradeClothInspHZList + Left = 160 + Top = 87 + Caption = #26816#39564#27719#24635#25253#21578 + ClientHeight = 609 + ClientWidth = 1296 + Color = clBtnFace + Font.Height = -16 + Position = poDefault + ExplicitWidth = 1312 + ExplicitHeight = 648 + PixelsPerInch = 96 + TextHeight = 21 + object Panel6: TPanel [0] + Left = 0 + Top = 146 + Width = 1296 + Height = 40 + Align = alTop + AutoSize = True + BevelInner = bvLowered + TabOrder = 3 + Visible = False + ExplicitTop = 184 + DesignSize = ( + 1296 + 40) + object Label31: TLabel + Left = 14 + Top = 10 + Width = 96 + Height = 21 + Alignment = taCenter + Anchors = [akLeft] + Caption = #27599#39029#35760#24405#26465#25968 + Layout = tlCenter + end + object LBCPAP: TLabel + Left = 409 + Top = 12 + Width = 100 + Height = 20 + Alignment = taCenter + Anchors = [akLeft] + AutoSize = False + Caption = #24403#21069#39029'/'#24635#39029#25968 + Layout = tlCenter + end + object BTLP: TButton + Left = 325 + Top = 10 + Width = 78 + Height = 27 + Anchors = [akLeft] + Caption = #19978#19968#39029 + TabOrder = 0 + OnClick = BTLPClick + end + object BTNP: TButton + Left = 525 + Top = 10 + Width = 78 + Height = 28 + Anchors = [akLeft] + Caption = #19979#19968#39029 + TabOrder = 1 + OnClick = BTNPClick + end + object TCBNOR: TcxComboBox + Tag = 2 + Left = 116 + Top = 2 + Properties.DropDownListStyle = lsEditFixedList + Properties.Items.Strings = ( + '500' + '1000' + '5000' + '10000') + Properties.OnChange = TCBNORChange + TabOrder = 2 + Text = '500' + Width = 94 + end + object cxCheckBox1: TcxCheckBox + Left = 658 + Top = 9 + Caption = #36873#25321#25968#25454#27719#24635#26174#31034 + ParentColor = False + ParentFont = False + Style.Font.Charset = GB2312_CHARSET + Style.Font.Color = clRed + Style.Font.Height = -16 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.TextStyle = [] + Style.TransparentBorder = False + Style.IsFontAssigned = True + TabOrder = 3 + OnClick = cxCheckBox1Click + end + end + object cxGrid1: TcxGrid [1] + Left = -32 + Top = 192 + Width = 1296 + Height = 390 + BorderStyle = cxcbsNone + PopupMenu = PM_1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + OnMouseUp = Tv1MouseUp + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnCellDblClick = Tv1CellDblClick + OnCustomDrawCell = Tv1CustomDrawCell + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1Column8 + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + Column = v1Column10 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column27 + end + item + Kind = skSum + Column = v1Column28 + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column10 + end + item + Kind = skSum + Column = Tv1AddwetPresent + end + item + Kind = skSum + Column = Tv1AddLenPresent + end + item + Kind = skSum + Column = Tv1Column13 + end + item + Kind = skSum + Column = Tv1Column14 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell + object v1ssel: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + Properties.OnEditValueChanged = v1sselPropertiesEditValueChanged + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 45 + end + object v1Column32: TcxGridDBColumn + Caption = #21512#21516#21495 + DataBinding.FieldName = 'Conno' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1custName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'custName' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Width = 73 + end + object v1Column1: TcxGridDBColumn + Caption = #35746#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column4: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object v1Column13: TcxGridDBColumn + Caption = #21697#21517#20013#25991 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 88 + end + object v1Column4: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + FixedKind = fkLeftDynamic + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column8: TcxGridDBColumn + Caption = #27611#37325 + DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column27: TcxGridDBColumn + Caption = #30382#37325 + DataBinding.FieldName = 'Tare' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column28: TcxGridDBColumn + Caption = #20928#37325 + DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column10: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column10: TcxGridDBColumn + Caption = #30721#25968 + DataBinding.FieldName = 'Yardage' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column42: TcxGridDBColumn + Caption = #24635#35760#24405#25968 + DataBinding.FieldName = 'TotalCount' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 85 + end + object v1Column3: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object v1Column5: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column6: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'BatchNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 59 + end + object Tv1Column11: TcxGridDBColumn + Caption = #21152#37325 + DataBinding.FieldName = 'addwet' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 57 + end + object Tv1AddwetPresent: TcxGridDBColumn + Caption = #36192#36865#37325#37327 + DataBinding.FieldName = 'AddwetPresent' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1AddLenPresent: TcxGridDBColumn + Caption = #36192#36865#38271#24230 + DataBinding.FieldName = 'AddLenPresent' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1lenUnit: TcxGridDBColumn + Caption = #38271#24230#21333#20301 + DataBinding.FieldName = 'lenUnit' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1Column13: TcxGridDBColumn + Caption = #20928#30917 + DataBinding.FieldName = 'Netpound' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + object Tv1Column14: TcxGridDBColumn + Caption = #27611#30917 + DataBinding.FieldName = 'Grosspound' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 60 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + object ToolBar1: TToolBar [2] + Tag = 1 + Left = 0 + Top = 0 + Width = 1296 + Height = 76 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 121 + Caption = 'ToolBar1' + Color = clWhite + DoubleBuffered = False + Images = DataLink_TradeInsp.cxImageList_bar + List = True + ParentColor = False + ParentDoubleBuffered = False + ShowCaptions = True + TabOrder = 6 + Transparent = True + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object btnJBQ: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #25171#21360#21367#26631#31614 + DropdownMenu = PopupMenu3 + ImageIndex = 21 + Style = tbsDropDown + Visible = False + OnClick = btnJBQClick + end + object ToolButton3: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #25171#21360#21253#26631#31614 + ImageIndex = 21 + Visible = False + OnClick = ToolButton3Click + end + object btnEdit: TToolButton + Left = 332 + Top = 0 + AutoSize = True + Caption = #32534#36753 + ImageIndex = 3 + Visible = False + OnClick = btnEditClick + end + object ToolButton2: TToolButton + Left = 403 + Top = 0 + AutoSize = True + Caption = #25209#37327#20462#25913 + DropdownMenu = PopupMenu2 + ImageIndex = 3 + Style = tbsDropDown + Visible = False + end + object TBZF: TToolButton + Left = 529 + Top = 0 + AutoSize = True + Caption = #21024#38500 + ImageIndex = 5 + Visible = False + OnClick = TBZFClick + end + object Tunout: TToolButton + Left = 600 + Top = 0 + AutoSize = True + Caption = #25764#38144#20986#24211 + ImageIndex = 11 + Wrap = True + Visible = False + OnClick = TunoutClick + end + object ToolButton4: TToolButton + Left = 0 + Top = 38 + AutoSize = True + Caption = #25171#21253 + ImageIndex = 34 + Visible = False + OnClick = ToolButton4Click + end + object btnJYBG: TToolButton + Left = 71 + Top = 38 + AutoSize = True + Caption = #26816#39564#25253#21578 + ImageIndex = 21 + Visible = False + OnClick = btnJYBGClick + end + object Tprintmd: TToolButton + Left = 174 + Top = 38 + AutoSize = True + Caption = #25171#21360#30721#21333 + ImageIndex = 21 + OnClick = TprintmdClick + end + object TBExport: TToolButton + Left = 277 + Top = 38 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton5: TToolButton + Left = 348 + Top = 38 + AutoSize = True + Caption = #26085#24535 + ImageIndex = 9 + OnClick = ToolButton5Click + end + object ToolButton1: TToolButton + Left = 419 + Top = 38 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton1Click + end + object Tout: TToolButton + Left = 522 + Top = 38 + AutoSize = True + Caption = #20986#24211 + DropdownMenu = PopupMenu1 + ImageIndex = 49 + Style = tbsDropDown + Visible = False + OnClick = ToutClick + end + object TBClose: TToolButton + Left = 616 + Top = 38 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object MovePanel2: TMovePanel [3] + Left = 241 + Top = 280 + Width = 265 + Height = 49 + BevelInner = bvLowered + Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 + Color = clSkyBlue + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -14 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + Visible = False + end + object dxLayoutControl_query: TdxLayoutControl [4] + Left = 0 + Top = 76 + Width = 1296 + Height = 70 + Align = alTop + TabOrder = 4 + AutoSize = True + LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1 + object OrderNo: TcxTextEdit + Tag = 2 + Left = 296 + Top = 6 + Hint = '0' + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 2 + OnKeyPress = OrderNoKeyPress + Width = 103 + end + object conNO: TcxTextEdit + Tag = 2 + Left = 464 + Top = 6 + Hint = '0' + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 3 + OnKeyPress = conNOKeyPress + Width = 100 + end + object CIID: TcxTextEdit + Tag = 2 + Left = 731 + Top = 36 + Hint = '1' + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 13 + OnKeyPress = KHConNOKeyPress + Width = 80 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 478 + Top = 36 + Hint = '0' + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 11 + OnKeyPress = conNOKeyPress + Width = 82 + end + object C_Color: TcxTextEdit + Tag = 2 + Left = 613 + Top = 6 + Hint = '0' + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 4 + OnKeyPress = conNOKeyPress + Width = 56 + end + object BCIOID: TcxTextEdit + Tag = 2 + Left = 880 + Top = 6 + Hint = '0' + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 6 + OnKeyPress = KHConNOKeyPress + Width = 79 + end + object CIMachNo: TcxTextEdit + Tag = 1 + Left = 892 + Top = 36 + Hint = '1' + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 14 + OnKeyPress = KHConNOKeyPress + Width = 61 + end + object C_Pattern: TcxTextEdit + Tag = 2 + Left = 609 + Top = 36 + Hint = '0' + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 12 + OnKeyPress = KHConNOKeyPress + Width = 57 + end + object C_Code: TcxTextEdit + Tag = 2 + Left = 307 + Top = 36 + Hint = '0' + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 10 + OnKeyPress = KHConNOKeyPress + Width = 90 + end + object C_EColor: TcxTextEdit + Tag = 2 + Left = 750 + Top = 6 + Hint = '0' + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 5 + OnKeyPress = KHConNOKeyPress + Width = 65 + end + object BatchNO: TcxTextEdit + Tag = 2 + Left = 1135 + Top = 6 + Hint = '0' + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 8 + OnKeyPress = KHConNOKeyPress + Width = 88 + end + object grade: TcxComboBox + Tag = 1 + Left = 1002 + Top = 36 + Properties.DropDownListStyle = lsEditFixedList + Properties.Items.Strings = ( + #27491#21697 + #27425#21697) + Properties.OnChange = CIIOFlagChange + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 15 + Width = 80 + end + object CIIOFlag: TcxComboBox + Tag = 1 + Left = 1008 + Top = 6 + AutoSize = False + Properties.DropDownListStyle = lsEditFixedList + Properties.Items.Strings = ( + #26410#20837#24211 + #24050#20837#24211 + #24050#20986#24211 + '') + Properties.OnChange = CIIOFlagPropertiesChange + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 7 + Height = 30 + Width = 78 + end + object BegDate: TcxDateEdit + Left = 124 + Top = 6 + Properties.ImmediatePost = True + Properties.SaveTime = False + Properties.ShowTime = False + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 1 + Width = 107 + end + object EndDate: TcxDateEdit + Left = 111 + Top = 36 + Properties.ImmediatePost = True + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 9 + Width = 115 + end + object IsJYTime: TcxCheckBox + Left = 16 + Top = 6 + ParentFont = False + Properties.ImmediatePost = True + State = cbsChecked + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 0 + Transparent = True + end + object custName: TcxTextEdit + Tag = 2 + Left = 1131 + Top = 36 + Hint = '0' + AutoSize = False + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 16 + OnKeyPress = KHConNOKeyPress + Height = 29 + Width = 88 + end + object dxLayoutControl_queryGroup_Root: TdxLayoutGroup + AlignHorz = ahLeft + AlignVert = avTop + Hidden = True + Padding.Top = -10 + Padding.AssignedValues = [lpavTop] + ShowBorder = False + UseIndent = False + Index = -1 + end + object dxLayoutGroup1: TdxLayoutGroup + Parent = dxLayoutControl_queryGroup_Root + CaptionOptions.Text = #32452'1' + Hidden = True + ItemIndex = 2 + LayoutDirection = ldHorizontal + ShowBorder = False + Index = 0 + end + object dxLayoutGroup2: TdxLayoutGroup + Parent = dxLayoutControl_queryGroup_Root + CaptionOptions.Text = #32452'2' + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + Hidden = True + ItemIndex = 8 + LayoutDirection = ldHorizontal + Padding.AssignedValues = [lpavTop] + ShowBorder = False + Index = 1 + end + object dxLayoutItem1: TdxLayoutItem + Parent = dxLayoutGroup1 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Width = 179 + AllowRemove = False + CaptionOptions.Text = #26816#39564#26085#26399 + Control = BegDate + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 107 + ControlOptions.ShowBorder = False + Index = 1 + end + object dxLayoutItem2: TdxLayoutItem + Parent = dxLayoutGroup1 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Width = 159 + CaptionOptions.Text = #35746#21333#21495 + Control = OrderNo + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 103 + ControlOptions.ShowBorder = False + Index = 2 + end + object dxLayoutItem3: TdxLayoutItem + Parent = dxLayoutGroup2 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Width = 139 + AllowRemove = False + CaptionOptions.Text = #33267 + Control = EndDate + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 115 + ControlOptions.ShowBorder = False + Index = 1 + end + object dxLayoutItem4: TdxLayoutItem + Parent = dxLayoutGroup2 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Width = 162 + CaptionOptions.Text = #20135#21697#32534#21495 + Control = C_Code + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 90 + ControlOptions.ShowBorder = False + Index = 2 + end + object dxLayoutItem5: TdxLayoutItem + Parent = dxLayoutGroup2 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Width = 154 + CaptionOptions.Text = #21697#21517#20013#25991 + Control = C_Name + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 82 + ControlOptions.ShowBorder = False + Index = 3 + end + object dxLayoutItem6: TdxLayoutItem + Parent = dxLayoutGroup1 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + CaptionOptions.Text = #21512#21516#21495 + Control = conNO + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 100 + ControlOptions.ShowBorder = False + Index = 3 + end + object dxLayoutItem7: TdxLayoutItem + Parent = dxLayoutGroup1 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Width = 96 + CaptionOptions.Text = #39068#33394 + Control = C_Color + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 56 + ControlOptions.ShowBorder = False + Index = 4 + end + object dxLayoutItem8: TdxLayoutItem + Parent = dxLayoutGroup2 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Width = 97 + CaptionOptions.Text = #33457#22411 + Control = C_Pattern + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 57 + ControlOptions.ShowBorder = False + Index = 4 + end + object dxLayoutItem9: TdxLayoutItem + Tag = 2 + Parent = dxLayoutGroup1 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Width = 135 + CaptionOptions.Text = #32568#26465#30721 + Control = BCIOID + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 79 + ControlOptions.ShowBorder = False + Index = 6 + end + object dxLayoutItem10: TdxLayoutItem + Tag = 2 + Parent = dxLayoutGroup2 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Width = 136 + CaptionOptions.Text = #21367#26465#30721 + Control = CIID + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 80 + ControlOptions.ShowBorder = False + Index = 5 + end + object dxLayoutItem11: TdxLayoutItem + Parent = dxLayoutGroup1 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Width = 137 + CaptionOptions.Text = #39068#33394#33521#25991 + Control = C_EColor + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 65 + ControlOptions.ShowBorder = False + Index = 5 + end + object dxLayoutItem12: TdxLayoutItem + Tag = 1 + Parent = dxLayoutGroup2 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Width = 133 + CaptionOptions.Text = #26816#39564#26426#21488 + Control = CIMachNo + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 61 + ControlOptions.ShowBorder = False + Index = 6 + end + object dxLayoutItem13: TdxLayoutItem + Tag = 1 + Parent = dxLayoutGroup1 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Height = 30 + SizeOptions.Width = 118 + CaptionOptions.Text = #29366#24577 + Control = CIIOFlag + ControlOptions.OriginalHeight = 30 + ControlOptions.OriginalWidth = 78 + ControlOptions.ShowBorder = False + Index = 7 + end + object dxLayoutItem14: TdxLayoutItem + Parent = dxLayoutGroup2 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Width = 120 + CaptionOptions.Text = #31561#32423 + Control = grade + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 80 + ControlOptions.ShowBorder = False + Index = 7 + end + object dxLayoutItem15: TdxLayoutItem + Tag = 2 + Parent = dxLayoutGroup1 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + CaptionOptions.Text = #32568#21495 + Control = BatchNO + ControlOptions.OriginalHeight = 27 + ControlOptions.OriginalWidth = 88 + ControlOptions.ShowBorder = False + Index = 8 + end + object dxLayoutItem16: TdxLayoutItem + Parent = dxLayoutGroup1 + AlignVert = avClient + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Width = 27 + AllowRemove = False + CaptionOptions.Text = #36873#25321#26816#39564#26085#26399 + CaptionOptions.Visible = False + Control = IsJYTime + ControlOptions.OriginalHeight = 30 + ControlOptions.OriginalWidth = 13 + ControlOptions.ShowBorder = False + Index = 0 + end + object dxLayoutEmptySpaceItem1: TdxLayoutEmptySpaceItem + Parent = dxLayoutGroup2 + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + SizeOptions.Height = 10 + SizeOptions.Width = 62 + CaptionOptions.Text = #20998#21106#26465 + Index = 0 + end + object dxLayoutItem17: TdxLayoutItem + Tag = 2 + Parent = dxLayoutGroup2 + AlignVert = avClient + SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert] + SizeOptions.SizableHorz = True + SizeOptions.SizableVert = True + CaptionOptions.Text = #23458#25143 + Control = custName + ControlOptions.OriginalHeight = 29 + ControlOptions.OriginalWidth = 88 + ControlOptions.ShowBorder = False + Index = 8 + end + end + object cxGroupBox1: TcxGroupBox [5] + Tag = 999 + Left = 555 + Top = 224 + Caption = #20986#24211#26465#30721 + TabOrder = 5 + Visible = False + OnDblClick = cxGroupBox1DblClick + Height = 105 + Width = 185 + object edit_CKMJID: TcxTextEdit + Tag = 2 + Left = 22 + Top = 37 + Hint = '0' + Style.HotTrack = False + Style.TransparentBorder = False + TabOrder = 0 + OnKeyPress = edit_CKMJIDKeyPress + Width = 147 + end + object MovePanel1: TMovePanel + Left = 64 + Top = -13 + Width = 192 + Height = 30 + BevelOuter = bvNone + TabOrder = 1 + object Label1: TLabel + Left = 85 + Top = 8 + Width = 32 + Height = 21 + Caption = #20851#38381 + OnClick = Label1Click + end + object dxPDFViewer1: TdxPDFViewer + Left = 160 + Top = 16 + Width = 200 + Height = 150 + OptionsNavigationPane.Attachments.Glyph.SourceDPI = 96 + OptionsNavigationPane.Attachments.Glyph.Data = { + 3C3F786D6C2076657273696F6E3D22312E302220656E636F64696E673D227574 + 662D38223F3E0D0A3C212D2D2047656E657261746F723A2041646F626520496C + 6C7573747261746F722032302E312E302C20535647204578706F727420506C75 + 672D496E202E205356472056657273696F6E3A20362E3030204275696C642030 + 2920202D2D3E0D0A3C21444F435459504520737667205055424C494320222D2F + 2F5733432F2F4454442053564720312E312F2F454E222022687474703A2F2F77 + 77772E77332E6F72672F47726170686963732F5356472F312E312F4454442F73 + 766731312E647464223E0D0A3C7376672076657273696F6E3D22312E31222069 + 643D224C617965725F312220786D6C6E733D22687474703A2F2F7777772E7733 + 2E6F72672F323030302F7376672220786D6C6E733A786C696E6B3D2268747470 + 3A2F2F7777772E77332E6F72672F313939392F786C696E6B2220783D22307078 + 2220793D22307078220D0A092076696577426F783D2230203020333220333222 + 207374796C653D22656E61626C652D6261636B67726F756E643A6E6577203020 + 302033322033323B2220786D6C3A73706163653D227072657365727665223E0D + 0A3C7374796C6520747970653D22746578742F637373223E0D0A092E426C6163 + 6B7B66696C6C3A233732373237323B7D0D0A3C2F7374796C653E0D0A3C706174 + 682069643D224174746163686D656E742220636C6173733D22426C61636B2220 + 643D224D31372C3263332E392C302C372C332E312C372C37763133682D325639 + 63302D322E382D322E322D352D352D35732D352C322E322D352C357631366330 + 2C312E372C312E332C332C332C3373332D312E332C332D335631310D0A096330 + 2D302E362D302E342D312D312D31732D312C302E342D312C31763131682D3256 + 313163302D312E372C312E332D332C332D3373332C312E332C332C3376313463 + 302C322E382D322E322C352D352C35732D352D322E322D352D3556394331302C + 352E312C31332E312C322C31372C327A222F3E0D0A3C2F7376673E0D0A} + OptionsNavigationPane.Bookmarks.Glyph.SourceDPI = 96 + OptionsNavigationPane.Bookmarks.Glyph.Data = { + 3C3F786D6C2076657273696F6E3D22312E302220656E636F64696E673D227574 + 662D38223F3E0D0A3C212D2D2047656E657261746F723A2041646F626520496C + 6C7573747261746F722032302E312E302C20535647204578706F727420506C75 + 672D496E202E205356472056657273696F6E3A20362E3030204275696C642030 + 2920202D2D3E0D0A3C21444F435459504520737667205055424C494320222D2F + 2F5733432F2F4454442053564720312E312F2F454E222022687474703A2F2F77 + 77772E77332E6F72672F47726170686963732F5356472F312E312F4454442F73 + 766731312E647464223E0D0A3C7376672076657273696F6E3D22312E31222069 + 643D224C617965725F312220786D6C6E733D22687474703A2F2F7777772E7733 + 2E6F72672F323030302F7376672220786D6C6E733A786C696E6B3D2268747470 + 3A2F2F7777772E77332E6F72672F313939392F786C696E6B2220783D22307078 + 2220793D22307078220D0A092076696577426F783D2230203020333220333222 + 207374796C653D22656E61626C652D6261636B67726F756E643A6E6577203020 + 302033322033323B2220786D6C3A73706163653D227072657365727665223E0D + 0A3C7374796C6520747970653D22746578742F637373223E0D0A092E426C6163 + 6B7B66696C6C3A233732373237323B7D0D0A3C2F7374796C653E0D0A3C706F6C + 79676F6E2069643D22426F6F6B6D61726B732220636C6173733D22426C61636B + 2220706F696E74733D2232342C33302031362C323220382C333020382C342032 + 342C3420222F3E0D0A3C2F7376673E0D0A} + OptionsNavigationPane.Thumbnails.Glyph.SourceDPI = 96 + OptionsNavigationPane.Thumbnails.Glyph.Data = { + 3C3F786D6C2076657273696F6E3D22312E302220656E636F64696E673D227574 + 662D38223F3E0D0A3C212D2D2047656E657261746F723A2041646F626520496C + 6C7573747261746F722032302E312E302C20535647204578706F727420506C75 + 672D496E202E205356472056657273696F6E3A20362E3030204275696C642030 + 2920202D2D3E0D0A3C21444F435459504520737667205055424C494320222D2F + 2F5733432F2F4454442053564720312E312F2F454E222022687474703A2F2F77 + 77772E77332E6F72672F47726170686963732F5356472F312E312F4454442F73 + 766731312E647464223E0D0A3C7376672076657273696F6E3D22312E31222069 + 643D224C617965725F312220786D6C6E733D22687474703A2F2F7777772E7733 + 2E6F72672F323030302F7376672220786D6C6E733A786C696E6B3D2268747470 + 3A2F2F7777772E77332E6F72672F313939392F786C696E6B2220783D22307078 + 2220793D22307078220D0A092076696577426F783D2230203020333220333222 + 207374796C653D22656E61626C652D6261636B67726F756E643A6E6577203020 + 302033322033323B2220786D6C3A73706163653D227072657365727665223E0D + 0A3C7374796C6520747970653D22746578742F637373223E0D0A092E426C6163 + 6B7B66696C6C3A233732373237323B7D0D0A3C2F7374796C653E0D0A3C706174 + 682069643D225468756D626E61696C732220636C6173733D22426C61636B2220 + 643D224D32382C38682D34563448313276364836763138683136762D36683656 + 387A204D32302C32364838563132683476313068385632367A204D32362C3230 + 682D34682D32682D36762D38762D3256366838763468345632307A220D0A092F + 3E0D0A3C2F7376673E0D0A} + end + end + end + inherited loadProcess: TPanel + Left = 332 + Top = 233 + ExplicitLeft = 332 + ExplicitTop = 233 + end + inherited cxProgressBar2: TcxProgressBar + TabOrder = 7 + ExplicitHeight = 29 + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + Left = 201 + Top = 224 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + Left = 81 + Top = 225 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 532 + Top = 320 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + Parameters = <> + Left = 40 + Top = 296 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 120 + Top = 296 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 216 + Top = 296 + end + object DS_1: TDataSource + DataSet = Order_Main + Left = 680 + Top = 324 + end + object Order_Main: TClientDataSet + Aggregates = <> + Params = <> + Left = 608 + Top = 320 + end + object RM1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDB_1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 708 + Top = 392 + ReportData = {} + end + object RMDB_1: TRMDBDataSet + Visible = True + DataSet = ADOQueryPrint + Left = 644 + Top = 392 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradeInsp.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 568 + Top = 384 + end + object PM_1: TPopupMenu + Left = 748 + Top = 324 + object N2: TMenuItem + Caption = #20840#36873 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #20840#24323 + OnClick = N3Click + end + object N4: TMenuItem + Caption = #22797#21046 + OnClick = N4Click + end + end + object PopupMenu1: TPopupMenu + Left = 848 + Top = 240 + object N1: TMenuItem + Caption = #25195#25551#20986#24211 + OnClick = N1Click + end + end + object PopupMenu2: TPopupMenu + Left = 272 + Top = 160 + object N5: TMenuItem + Caption = #20462#25913#32568#21495 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #20462#25913#30382#37325 + OnClick = N6Click + end + object N7: TMenuItem + Caption = #20462#25913#38271#24230#21333#20301 + OnClick = N7Click + end + object N9: TMenuItem + Caption = #20462#25913#37325#37327 + Visible = False + end + object N8: TMenuItem + Caption = #35843#25972#31859#25968 + OnClick = N8Click + end + object N10: TMenuItem + Caption = #35843#25972#37325#37327 + OnClick = N10Click + end + end + object RMRichObject1: TRMRichObject + Left = 848 + Top = 128 + end + object RMBarCodeObject1: TRMBarCodeObject + Left = 928 + Top = 296 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 936 + Top = 240 + end + object RMCSVExport1: TRMCSVExport + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + Delimiter = ';' + Left = 824 + Top = 336 + end + object RMllPDFExport1: TRMllPDFExport + ShowDialog = False + ShowAfterExport = True + ShowBackPicture = True + Left = 824 + Top = 408 + end + object RMXLSExport2: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 1 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 888 + Top = 424 + end + object PopupMenu3: TPopupMenu + Left = 200 + Top = 432 + object MenuItem1: TMenuItem + Caption = #39044#35272#25171#21360 + OnClick = MenuItem1Click + end + end +end diff --git a/项目代码/djdPack/G03贸易布匹检验/U_TradeClothInspHZList.pas b/项目代码/djdPack/G03贸易布匹检验/U_TradeClothInspHZList.pas new file mode 100644 index 0000000..943cacd --- /dev/null +++ b/项目代码/djdPack/G03贸易布匹检验/U_TradeClothInspHZList.pas @@ -0,0 +1,1779 @@ +unit U_TradeClothInspHZList; + +interface + +uses + Windows, MMSystem, Messages, SysUtils, Variants, Classes, Graphics, Controls, + Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, + cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, + cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls, + cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System, + RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, + cxContainer, cxCurrencyEdit, BtnEdit, RM_e_main, RM_e_htm, RM_e_Graphic, + RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels, + cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, + dxDateTimeWheelPicker, dxSkinWXI, dxScrollbarAnnotations, cxMaskEdit, + cxDropDownEdit, dxCore, cxDateUtils, dxLayoutcxEditAdapters, dxLayoutContainer, + dxLayoutControl, System.Diagnostics, cxGroupBox, RM_BarCode, RM_RichEdit, + RM_E_llPDF, dxX509Certificate, dxPDFCore, dxPDFBase, dxPDFText, + dxPDFRecognizedObject, dxPDFForm, dxPDFFormData, dxPDFDocument, dxPrintUtils, + dxCustomPreview, dxPDFDocumentViewer, dxPDFViewer, cxProgressBar, + dxSkinsDefaultPainters; + +type + TfrmTradeClothInspHZList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + GPM_1: TcxGridPopupMenu; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + OrderNo: TcxTextEdit; + TBExport: TToolButton; + Order_Main: TClientDataSet; + conNO: TcxTextEdit; + C_Name: TcxTextEdit; + btnEdit: TToolButton; + TBZF: TToolButton; + btnJBQ: TToolButton; + RM1: TRMGridReport; + RMDB_1: TRMDBDataSet; + ADOQueryPrint: TADOQuery; + MovePanel2: TMovePanel; + C_Color: TcxTextEdit; + BCIOID: TcxTextEdit; + btnJYBG: TToolButton; + CIMachNo: TcxTextEdit; + C_Pattern: TcxTextEdit; + C_Code: TcxTextEdit; + C_EColor: TcxTextEdit; + ToolButton1: TToolButton; + PM_1: TPopupMenu; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1ssel: TcxGridDBColumn; + v1Column32: TcxGridDBColumn; + v1Column1: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + v1Column13: TcxGridDBColumn; + v1Column4: TcxGridDBColumn; + v1Column8: TcxGridDBColumn; + v1Column27: TcxGridDBColumn; + v1Column28: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column42: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Panel6: TPanel; + Label31: TLabel; + LBCPAP: TLabel; + BTLP: TButton; + BTNP: TButton; + Tv1Column10: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + N2: TMenuItem; + N3: TMenuItem; + N4: TMenuItem; + ToolButton2: TToolButton; + BatchNO: TcxTextEdit; + Tv1Column11: TcxGridDBColumn; + ToolButton3: TToolButton; + grade: TcxComboBox; + CIIOFlag: TcxComboBox; + TCBNOR: TcxComboBox; + Tv1AddwetPresent: TcxGridDBColumn; + Tv1AddLenPresent: TcxGridDBColumn; + ToolButton4: TToolButton; + ToolButton5: TToolButton; + Tout: TToolButton; + Tunout: TToolButton; + BegDate: TcxDateEdit; + EndDate: TcxDateEdit; + dxLayoutControl_queryGroup_Root: TdxLayoutGroup; + dxLayoutControl_query: TdxLayoutControl; + dxLayoutGroup1: TdxLayoutGroup; + dxLayoutGroup2: TdxLayoutGroup; + dxLayoutItem1: TdxLayoutItem; + dxLayoutItem2: TdxLayoutItem; + dxLayoutItem3: TdxLayoutItem; + dxLayoutItem4: TdxLayoutItem; + dxLayoutItem5: TdxLayoutItem; + dxLayoutItem6: TdxLayoutItem; + dxLayoutItem7: TdxLayoutItem; + dxLayoutItem8: TdxLayoutItem; + dxLayoutItem9: TdxLayoutItem; + dxLayoutItem10: TdxLayoutItem; + dxLayoutItem11: TdxLayoutItem; + dxLayoutItem12: TdxLayoutItem; + dxLayoutItem13: TdxLayoutItem; + dxLayoutItem14: TdxLayoutItem; + dxLayoutItem15: TdxLayoutItem; + dxLayoutItem16: TdxLayoutItem; + IsJYTime: TcxCheckBox; + dxLayoutEmptySpaceItem1: TdxLayoutEmptySpaceItem; + PopupMenu1: TPopupMenu; + N1: TMenuItem; + cxGroupBox1: TcxGroupBox; + edit_CKMJID: TcxTextEdit; + MovePanel1: TMovePanel; + Tprintmd: TToolButton; + Tv1custName: TcxGridDBColumn; + custName: TcxTextEdit; + dxLayoutItem17: TdxLayoutItem; + PopupMenu2: TPopupMenu; + N5: TMenuItem; + N6: TMenuItem; + N7: TMenuItem; + N8: TMenuItem; + N9: TMenuItem; + Tv1lenUnit: TcxGridDBColumn; + RMRichObject1: TRMRichObject; + RMBarCodeObject1: TRMBarCodeObject; + RMXLSExport1: TRMXLSExport; + RMCSVExport1: TRMCSVExport; + N10: TMenuItem; + RMllPDFExport1: TRMllPDFExport; + dxPDFViewer1: TdxPDFViewer; + RMXLSExport2: TRMXLSExport; + Label1: TLabel; + PopupMenu3: TPopupMenu; + MenuItem1: TMenuItem; + cxCheckBox1: TcxCheckBox; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); + procedure btnEditClick(Sender: TObject); + procedure TBZFClick(Sender: TObject); + procedure btnJBQClick(Sender: TObject); + procedure OrderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTLPClick(Sender: TObject); + procedure BTNPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + procedure conNOKeyPress(Sender: TObject; var Key: Char); + procedure CIIOFlagChange(Sender: TObject); + procedure GradeChange(Sender: TObject); + procedure KHConNOKeyPress(Sender: TObject; var Key: Char); + procedure RKOrdIDKeyPress(Sender: TObject; var Key: Char); + procedure btnJYBGClick(Sender: TObject); + procedure Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); + procedure cxPageControl1Change(Sender: TObject); + procedure chkZFClick(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure N2Click(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure ToolButton4Click(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure ToutClick(Sender: TObject); + procedure TunoutClick(Sender: TObject); + procedure CIIOFlagPropertiesChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure edit_CKMJIDKeyPress(Sender: TObject; var Key: Char); + procedure cxGroupBox1DblClick(Sender: TObject); + procedure TprintmdClick(Sender: TObject); + procedure N5Click(Sender: TObject); + procedure N8Click(Sender: TObject); + procedure N6Click(Sender: TObject); + procedure N7Click(Sender: TObject); + procedure N10Click(Sender: TObject); + procedure ToolButton6Click(Sender: TObject); + procedure Label1Click(Sender: TObject); + procedure MenuItem1Click(Sender: TObject); + procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); + procedure v1sselPropertiesEditValueChanged(Sender: TObject); + procedure cxCheckBox1Click(Sender: TObject); + private + fstopwatch: TStopwatch; + DQdate: TDateTime; + FLeft, FTop: Integer; + CurrentPage, RecordsNumber: Integer; + procedure InitGrid(); + function Savedata(): Boolean; + procedure SetStatus(); + procedure PrintCKMDG(MRKOrdID: string); + procedure threadLoadform(); + function autoOut(mccids: string): boolean; + procedure selDisp(); + { Private declarations } + public + FFInt: Integer; + canshu1: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_TradePack, U_RTFun, U_globalVar, U_TradeInspEdit, U_ZDYHelp, + U_LabelPrint, U_SysLogList, U_ControlData, U_FormLayOutDesign, U_MdPrint, + U_BatchMdyData, U_iniparam; + +{$R *.dfm} + +procedure TfrmTradeClothInspHZList.SetStatus(); +begin +// btnEdit.Enabled := False; +// TBZF.Enabled := False; +// btnHY.Enabled := False; +// btnJBQ.Enabled := False; +// btnJYBG.Enabled := False; +// +// btnEdit.Enabled := True; +// TBZF.Enabled := True; +// btnJBQ.Enabled := True; +// btnJYBG.Enabled := True; + +end; + +procedure TfrmTradeClothInspHZList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTradeClothInspHZList.FormCreate(Sender: TObject); +begin + // fstopwatch := TStopwatch.StartNew; + + inherited; + cxgrid1.Align := alClient; + DQdate := SGetServerDate(ADOQueryTemp); +end; + +procedure TfrmTradeClothInspHZList.TBCloseClick(Sender: TObject); +begin + inherited; + Close; +end; + +procedure TfrmTradeClothInspHZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid1); +end; + +procedure TfrmTradeClothInspHZList.PrintCKMDG(MRKOrdID: string); +begin + +end; + +procedure TfrmTradeClothInspHZList.InitGrid(); +var + WSql: string; +begin + MovePanel2.Left := (self.Width - MovePanel2.Width) div 2; + MovePanel2.Visible := True; + MovePanel2.Refresh; + WSql := SLGetFilters(dxLayoutControl_query, 1, 2); + if trim(WSql) <> '' then + begin + WSql := ' and ' + trim(WSql); + end; + + if IsJYTime.Checked then + begin + WSql := WSql + ' and A.Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)); + WSql := WSql + ' and A.Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1)); + end + else + begin + if trim(WSql) <> '' then + WSql := ' and 1=1' + trim(WSql) + else + WSql := WSql + ' and 1=2 '; + end; + if trim(WSql) = 'and 1=2' then + Application.MessageBox('ѡڻ', 'ʾ', 0); + + try + tv1.BeginUpdate(); + Order_Main.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('exec P_Trade_Insp_Get_HZPage '); + sql.Add(' @criteria= ' + quotedstr(WSql)); + Open; + end; + SCreateCDS(ADOQueryMain, Order_Main); + SInitCDSData(ADOQueryMain, Order_Main); + LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber)); + + MovePanel2.Visible := false; + finally + Order_Main.EnableControls; + MovePanel2.Visible := false; + TV1.DataController.Filter.Clear; + tv1.EndUpdate; + end; +end; + +procedure TfrmTradeClothInspHZList.TBRafreshClick(Sender: TObject); +begin + OrderNo.SetFocus; + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTradeClothInspHZList.FormShow(Sender: TObject); +begin + inherited; + edit_CKMJID.Properties.MaxLength := gScanBarcodeMaxLen; + canshu1 := self.fParameters1; + CurrentPage := 1; + RecordsNumber := 500; + InitDevCombobox(ADOQueryTemp, grade, 'CPGRADE', false); + + EndDate.Date := SGetServerDate(ADOQueryTemp); + BegDate.Date := EndDate.Date; +// + //ReadCxGrid(Trim(self.Caption) + 'Tv1', Tv1, gDllFileCaption); + // InitGrid(); + // SetStatus(); + threadLoadform(); + application.ProcessMessages; + //fstopwatch.Stop; + // showMessage(IntToStr(fstopwatch.ElapsedMilliseconds) + ' ms'); +end; + +procedure TfrmTradeClothInspHZList.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); +begin + FLeft := X; + FTop := Y; +end; + +procedure TfrmTradeClothInspHZList.v1sselPropertiesEditValueChanged(Sender: TObject); +begin + inherited; + selDisp(); +end; + +procedure TfrmTradeClothInspHZList.btnEditClick(Sender: TObject); +begin + if Order_Main.IsEmpty then + exit; + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select * from Trade_Cloth_IO where IOFlag='''' and stkid=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); + Open; + end; + if ADOQueryTemp.IsEmpty = False then + begin + Order_Main.EnableControls; + Application.MessageBox('Ѳݲܱ༭!', 'ʾ', 0); + Exit; + end; + try + frmTradeInspEdit := TfrmTradeInspEdit.Create(Application); + with frmTradeInspEdit do + begin + CIID.Text := Trim(Self.Order_Main.fieldbyname('CIID').AsString); + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmTradeInspEdit.Free; + + end; +end; + +procedure TfrmTradeClothInspHZList.TBZFClick(Sender: TObject); +var + MCIIDS: string; +begin + if Order_Main.Locate('ssel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪϺݲָܻ', 'ʾ', 32 + 4) <> IDYES then + Exit; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + + MCIIDS := MCIIDS + Trim(Order_Main.fieldbyname('CIID').AsString) + ','; + Order_Main.Delete; + end + else + Next; + end; + end; + Order_Main.EnableControls; + try + ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('insert into Trade_Need_Up(UOperation,UType,UDataId) values(''ɾ'','''',' + quotedstr(MCIIDS) + ') '); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + Sql.Clear; + Sql.Add('exec P_Trade_Insp_Del '); + Sql.Add('@CIIDS=' + quotedstr(Trim(MCIIDS))); + Sql.Add(',@DCode=' + Quotedstr(DCode)); + Sql.Add(',@DName=' + Quotedstr(DName)); + Open; + end; + if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then + begin + raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString))); + end; + ADOQueryCmd.Connection.CommitTrans; + CurrentPage := 1; + InitGrid(); + application.MessageBox('ɾɹ', 'ʾϢ'); + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + end; + +end; + +procedure TfrmTradeClothInspHZList.btnJBQClick(Sender: TObject); +var + fPrintFile, FLabVolume, MStrIn: string; + mCopys: Integer; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + MStrIn := '2'; + if not InputQuery('ӡ', '', MStrIn) then + begin + Exit; + end; + mCopys := strToIntdef(trim(MStrIn), 2); + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Trade_Cloth_Inspect Set PrtCount=PrtCount+1,PrtDate=getdate(),Prter=''' + Trim(DName) + ''''); + sql.Add(' where CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); + ExecSQL; + end; + + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add(' EXEC P_Trade_Print_djd_Lab '); + SQL.Add(' @CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); + Open; + end; + if ADOQueryPrint.IsEmpty then + begin + application.MessageBox('ǩδҵ', 'ʾϢ', MB_ICONERROR); + exit; + end; + + if Trim(ADOQueryPrint.fieldbyname('SLabVolume').AsString) <> '' then + FLabVolume := Trim(ADOQueryPrint.fieldbyname('SLabVolume').AsString) + else + FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString); + //Ĭϱǩ + if FLabVolume = '' then + FLabVolume := trim(gDefaultLableFile); + ExportFtErpFile(FLabVolume + '.rmf', ADOQueryTemp); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf'; + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + // if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> 'Ʒǩ' then + // Rm1.DefaultCopies := 2 + // else + Rm1.DefaultCopies := mCopys; + // RM1.PrepareReport ; + + RM1.PrintReport; + // RM1.ExportTo(RMllPDFExport1,'C:\test.pdf'); + end + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + end; + end; + Next; + end; + end; + Order_Main.EnableControls; +end; + +function TfrmTradeClothInspHZList.Savedata(): Boolean; +var + maxno, LLID: string; + HXPS: Integer; + HXQty, HXMQty: Double; +begin + HXPS := 0; + HXQty := 0; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select Top 1 * from Contract_Cloth_LL where OrdSubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + ''''); + sql.Add(' and FirstName=''' + Trim(Order_Main.fieldbyname('AOrddefstr4').AsString) + ''''); + Open; + end; + LLID := Trim(ADOQueryTemp.fieldbyname('LLID').AsString); + if Trim(LLID) = '' then + begin + Result := False; + Application.MessageBox('ûӦļӹ!', 'ʾ', 0); + Exit; + end; + try + ADOQueryCmd.Connection.BeginTrans; + if GetLSNo(ADOQueryCmd, maxno, 'HX', 'Contract_Cloth_BefChkHX', 2, 1) = False then + begin + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧ!', 'ʾ', 0); + Exit; + end; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + HXPS := HXPS + 1; + HXQty := HXQty + Order_Main.FieldByName('MJLen').Value; + end; + Next; + end; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(''); + Open; + end; + except + end; +end; + +procedure TfrmTradeClothInspHZList.OrderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTradeClothInspHZList.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTradeClothInspHZList.BTNPClick(Sender: TObject); +begin + if CurrentPage < Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTradeClothInspHZList.TCBNORChange(Sender: TObject); +begin + RecordsNumber := StrToInt(TCBNOR.Text); + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTradeClothInspHZList.ToolButton1Click(Sender: TObject); +begin + WriteCxGrid(Trim(self.Caption) + 'Tv1', Tv1, gDllFileCaption); + if gIsCanDesign then + begin + saveLayOut(application, dxLayoutControl_query, ADOQueryBaseCmd, PWideChar(fDllFileName + '|' + Self.Name + '|' + dxLayoutControl_query.Name + '.ini')); + end; +end; + +procedure TfrmTradeClothInspHZList.ToolButton3Click(Sender: TObject); +var + FPrintFile, MPacketId, MLabPackage: string; +begin + + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + Order_Main.DisableControls; + with Order_Main do + begin + filter := 'SSel=1 '; + filtered := true; + end; + with Order_Main do + begin + while not Order_Main.eof do + begin + MPacketId := Trim(Order_Main.fieldbyname('PacketId').AsString); + if MPacketId = '' then + begin + Order_Main.Next; + Continue; + end; + if trim(MPacketId) <> '' then + begin + with ADOQueryPrint do + begin + Close; + SQL.Clear; + SQL.Add('exec P_Trade_Insp_Prt_djd_PackLab ' + quotedstr(MPacketId)); + Open; + end; + // + if Trim(ADOQueryPrint.fieldbyname('SLabPackage').AsString) <> '' then + MLabPackage := trim(ADOQueryPrint.FieldByName('SLabPackage').AsString) + else + MLabPackage := trim(ADOQueryPrint.FieldByName('LabPackage').AsString); + + if MLabPackage = '' then + MLabPackage := trim(gDefaultPackLableFile); + + ExportFtErpFile(Trim(MLabPackage) + '.rmf', ADOQueryTemp); + + FPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(MLabPackage) + '.rmf'; + if not FileExists(FPrintFile) then + begin + Application.MessageBox(PChar('û' + FPrintFile), 'ʾ', 0); + Exit; + end; + if FileExists(FPrintFile) then + begin + RM1.LoadFromFile(FPrintFile); + Rm1.DefaultCopies := 1; + RM1.PrintReport; + end + else + begin + Application.MessageBox(PChar('û' + FPrintFile), 'ʾ', 0); + end; + while Order_Main.Locate('SSel;PacketId', VarArrayOf([True, MPacketId]), []) do + begin + with Order_Main do + begin + Edit; + Order_Main.FieldByName('SSel').Value := False; + Post; + end; + end; + end; + Order_Main.Next; + end; + end; + Order_Main.filtered := false; + Order_Main.EnableControls; + +end; + +procedure TfrmTradeClothInspHZList.ToolButton4Click(Sender: TObject); +begin + inherited; + with TfrmTradePack.Create(Application.MainForm, 'ƥ') do // + begin + show; + end; +end; + +procedure TfrmTradeClothInspHZList.ToolButton5Click(Sender: TObject); +begin + inherited; + frmSysLogList := TfrmSysLogList.create(self); + with frmSysLogList do + begin + fModel := self.caption; + FMainId := ''; // Trim(Self.Order_Main.FieldByName('mainId').AsString); + showmodal; + free; + end; +end; + +procedure TfrmTradeClothInspHZList.ToolButton6Click(Sender: TObject); +begin +// with ADOQueryTemp do +// begin +// close; +// sql.Clear; +// sql.Add('SELECT * FROM [dbo].[Bs_Report_Cloud_File]'); +// sql.Add('where BLCLID=''D22E6757-43C2-45B9-AE14-921BD2293E50'''); +// open; +// end; +// if ADOQueryTemp.RecordCount>0 then +// begin +// rm1.LoadPreparedReportFromBlobField(TBlobField(ADOQueryTemp.fieldByName('GenerateFiles'))); +// rm1.ShowPreparedReport; +// // rm1.PrintPreparedReport('',1,true,rmppAll) ; +// end; +end; + +procedure TfrmTradeClothInspHZList.ToutClick(Sender: TObject); +begin + if Order_Main.Locate('ssel', True, []) = False then + begin + Application.MessageBox('ѡ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪ', 'ʾ', 32 + 4) <> IDYES then + Exit; + + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update Trade_Cloth_Inspect set CIIOFlag=''ѳ'',IOTime=getdate() where CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); + ExecSQL; + end; + Order_Main.Edit; + FieldByName('CIIOFlag').Value := 'ѳ'; + FieldByName('SSel').Value := false; + Order_Main.Post; + end + else + Next; + end; + end; + Order_Main.EnableControls; +end; + +procedure TfrmTradeClothInspHZList.TprintmdClick(Sender: TObject); +var + WSql: string; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ', 'ʾ', 0); + Exit; + end; + WSql := ''; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.fieldbyname('SSel').AsBoolean then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' select * from V_Trade_Cloth_Inspect A where 1 = 1 '); + sql.add(' and A.OrderNo=' + quotedStr(Trim(Order_Main.FieldByName('OrderNo').AsString))); + sql.add(' and A.C_Color=' + quotedStr(Trim(Order_Main.FieldByName('C_Color').AsString))); + sql.add(' and A.BatchNO=' + quotedStr(Trim(Order_Main.FieldByName('BatchNO').AsString))); +// sql.add(' and A.OrderNo='+quotedStr(Trim(Order_Main.FieldByName('OrderNo').AsString)) ); +// showMessage(sql.text); + open; + end; + ADOQueryCmd.First; + while not ADOQueryCmd.eof do + begin + if WSql <> '' then + begin + WSql := WSql + ',' + Trim(ADOQueryCmd.fieldbyname('CIID').AsString); + end + else + begin + WSql := Trim(ADOQueryCmd.fieldbyname('CIID').AsString); + end; + ADOQueryCmd.Next; + end; + + end; + Next; + end; + end; + Order_Main.Locate('SSel', True, []); + Order_Main.EnableControls; + try + frmMdPrint := TfrmMdPrint.Create(Application); + with frmMdPrint do + begin + FLMType := 'ϸ뵥'; + FFiltration1 := WSql; + FFiltration2 := WSql; + if ShowModal = 1 then + begin + if gPrintMdAutoOut then + autoOut(WSql); +// Self.InitGrid(); + end; + end; + finally + frmMdPrint.Free; + end; + +end; + +procedure TfrmTradeClothInspHZList.TunoutClick(Sender: TObject); +begin + if Order_Main.Locate('ssel', True, []) = False then + begin + Application.MessageBox('ѡ!', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪ', 'ʾ', 32 + 4) <> IDYES then + Exit; + try + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + //begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update Trade_Cloth_Inspect set CIIOFlag='''',IOTime=null where CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); + ExecSQL; + end; + + Edit; + FieldByName('CIIOFlag').Value := ''; + FieldByName('SSel').Value := false; + Post; + + Next; + end + else + Next; + end; + end; + finally + Order_Main.EnableControls; + TBRafresh.Click; + end; + +end; + +procedure TfrmTradeClothInspHZList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); +begin + Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTradeClothInspHZList.chkZFClick(Sender: TObject); +begin + inherited; + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTradeClothInspHZList.conNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTradeClothInspHZList.cxCheckBox1Click(Sender: TObject); +begin + if not cxCheckBox1.Checked then + cxCheckBox1.Caption := 'ѡݻʾ' + else + selDisp(); +end; + +procedure TfrmTradeClothInspHZList.cxGroupBox1DblClick(Sender: TObject); +begin + inherited; + cxGroupBox1.Visible := false; +end; + +procedure TfrmTradeClothInspHZList.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTradeClothInspHZList.edit_CKMJIDKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + if trim(Edit_CKMJID.Text) = '' then + exit; + + try + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('select * from Trade_Cloth_Inspect where ciid=' + quotedstr(Trim(Edit_CKMJID.text))); + open; + //set IIOFlag=''ѳ'' + if recordCount <= 0 then + begin + if (fileexists(ExtractFilePath(Application.ExeName) + '.wav') = true) then + PlaySound('.wav', 0, SND_FILENAME or SND_ASYNC) + else + showMessage('!'); + exit; + end; + if trim(fieldByName('CIIOFlag').AsString) = 'ѳ' then + begin + if (fileexists(ExtractFilePath(Application.ExeName) + 'ظɨ.wav') = true) then + PlaySound('ظɨ.wav', 0, SND_FILENAME or SND_ASYNC) + else + showMessage('ǰѳ!'); + exit; + end; + // + edit; + fieldByName('IOTime').Value := SGetServerDate(ADOQueryTemp); + fieldByName('CIIOFlag').Value := 'ѳ'; + post; + end; + with Order_Main do + begin + Edit; + FieldByName('CIIOFlag').Value := 'ѳ'; + Post; + end; + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select A.*,cdqty=(select sum(CIFNumber) from Trade_Cloth_Inspect_Flaw x where x.CIID =A.CIID ) '); + sql.Add(',CIFPoints=(select sum(CIFPoints * CIFNumber) from Trade_Cloth_Inspect_Flaw x where x.CIID =A.CIID ) '); + sql.add('from V_Trade_Cloth_Inspect A where A.CIIOFlag=''ѳ''and A.OrderNo=' + quotedstr(Trim(OrderNo.text))); + Open; + end; + SCreateCDS(ADOQueryMain, Order_Main); + SInitCDSData(ADOQueryMain, Order_Main); + + if (fileexists(ExtractFilePath(Application.ExeName) + 'ȷ.wav') = true) then + PlaySound('ȷ.wav', 0, SND_FILENAME or SND_ASYNC); + except + if (fileexists(ExtractFilePath(Application.ExeName) + 'ɨ.wav') = true) then + PlaySound('ɨ.wav', 0, SND_FILENAME or SND_ASYNC); + end; + Edit_CKMJID.Text := ''; + end; +end; + +procedure TfrmTradeClothInspHZList.CIIOFlagChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTradeClothInspHZList.CIIOFlagPropertiesChange(Sender: TObject); +begin + inherited; + + CurrentPage := 1; + InitGrid(); + +end; + +procedure TfrmTradeClothInspHZList.GradeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTradeClothInspHZList.KHConNOKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTradeClothInspHZList.Label1Click(Sender: TObject); +begin + cxGroupBox1.Visible := false; + +end; + +procedure TfrmTradeClothInspHZList.MenuItem1Click(Sender: TObject); +var + fPrintFile, FLabVolume, MStrIn: string; + mCopys: Integer; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + MStrIn := '2'; + if not InputQuery('ӡ', '', MStrIn) then + begin + Exit; + end; + mCopys := strToIntdef(trim(MStrIn), 2); + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Trade_Cloth_Inspect Set PrtCount=PrtCount+1,PrtDate=getdate(),Prter=''' + Trim(DName) + ''''); + sql.Add(' where CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); + ExecSQL; + end; + + with ADOQueryPrint do + begin + Close; + SQL.Clear; + sql.Add(' EXEC P_Trade_Print_djd_Lab '); + SQL.Add(' @CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + ''''); + Open; + end; + if ADOQueryPrint.IsEmpty then + begin + application.MessageBox('ǩδҵ', 'ʾϢ', MB_ICONERROR); + exit; + end; + + if Trim(ADOQueryPrint.fieldbyname('SLabVolume').AsString) <> '' then + FLabVolume := Trim(ADOQueryPrint.fieldbyname('SLabVolume').AsString) + else + FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString); + //Ĭϱǩ + if FLabVolume = '' then + FLabVolume := trim(gDefaultLableFile); + ExportFtErpFile(FLabVolume + '.rmf', ADOQueryTemp); + fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf'; + + if FileExists(fPrintFile) then + begin + RM1.LoadFromFile(fPrintFile); + // if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> 'Ʒǩ' then + // Rm1.DefaultCopies := 2 + // else + Rm1.DefaultCopies := mCopys; + // RM1.PrepareReport ; + + RM1.ShowReport; + // RM1.ExportTo(RMllPDFExport1,'C:\test.pdf'); + end + else + begin + Application.MessageBox(PChar('û' + fPrintFile), 'ʾ', 0); + end; + end; + Next; + end; + end; + Order_Main.EnableControls; + +end; + +procedure TfrmTradeClothInspHZList.N10Click(Sender: TObject); +var + isOk: boolean; + mtzfs: string; + mtzsl, mvalue: double; + decimalY: integer; + mfield: string; +begin + if Order_Main.IsEmpty then + Exit; + + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ѡݼ¼', 'ʾ', 0); + Exit; + end; + isOk := false; + frmBatchMdyData := TfrmBatchMdyData.create(self); + with frmBatchMdyData do + begin + fTabCaption := ''; + if ShowModal = 1 then + begin + mtzfs := Trim(tzfs1.Text); + if Trim(tzfield.Text) = 'ë' then + begin + mfield := 'grossWeight'; + end + else if Trim(tzfield.Text) = '' then + begin + mfield := 'netWeight'; + end + else if Trim(tzfield.Text) = 'Ƥ' then + begin + mfield := 'tare'; + end + else + begin + free; + exit; + end; + mtzsl := strTofloatdef(Trim(tzsl1.Text), 0); + isOk := true; + end; + free; + end; + if not isOk then + exit; + + try + Order_Main.DisableControls; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + if mtzfs = '' then + begin + mvalue := Order_Main.fieldbyname(mfield).AsFloat + mtzsl; + end; + if mtzfs = '' then + begin + mvalue := Order_Main.fieldbyname(mfield).AsFloat - mtzsl; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Trade_Cloth_Inspect Set ' + mfield + '=' + floatTostr(mvalue)); + sql.Add('where cIId=''' + Trim(Order_Main.fieldbyname('cIId').AsString) + ''''); + ExecSQL; + end; + + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݲɹ', 'ʾϢ'); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݲʧܣ', 'ʾϢ', 0); + end; + +end; + +procedure TfrmTradeClothInspHZList.N1Click(Sender: TObject); +begin + inherited; + cxGroupBox1.Visible := not cxGroupBox1.Visible; + if cxGroupBox1.Visible then + begin + cxGroupBox1.Left := (self.Width - cxGroupBox1.Width) div 2; + edit_CKMJID.SetFocus; + end; +end; + +procedure TfrmTradeClothInspHZList.N2Click(Sender: TObject); +begin + // SelOKNoFiler(Tv1, True); //ȫѡ + try + Order_Main.DisableControls; + Order_Main.First; + while not Order_Main.eof do + begin + Order_Main.Edit; + Order_Main.FieldByName('ssel').Value := true; + Order_Main.Post; + + Order_Main.Next; + end; + finally + Order_Main.EnableControls; + selDisp(); + end; +end; + +procedure TfrmTradeClothInspHZList.N3Click(Sender: TObject); +begin + //SelOKNoFiler(Tv1, False); //ȫ + try + Order_Main.DisableControls; + Order_Main.First; + while not Order_Main.eof do + begin + Order_Main.Edit; + Order_Main.FieldByName('ssel').Value := false; + Order_Main.Post; + + Order_Main.Next; + end; + finally + Order_Main.EnableControls; + + selDisp(); + end; +end; + +procedure TfrmTradeClothInspHZList.N4Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); +end; + +procedure TfrmTradeClothInspHZList.N5Click(Sender: TObject); +var + MStrsql, MStrIn: string; +begin + + if Order_Main.IsEmpty then + Exit; + + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ѡݼ¼', 'ʾ', 0); + Exit; + end; + if Application.MessageBox('ȷҪ޸', 'ʾ', 32 + 4) <> IDYES then + Exit; + MovePanel2.Visible := True; + MovePanel2.Refresh; + try + Order_Main.DisableControls; + with Order_Main do + begin + MStrsql := ''; + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean then + begin + if MStrsql = '' then + MStrsql := Quotedstr(trim(Order_Main.FieldByName('CIID').AsString)) + else + MStrsql := MStrsql + ',' + Quotedstr(trim(Order_Main.FieldByName('CIID').AsString)); + end; + Next; + end; + end; + Order_Main.EnableControls; + MovePanel2.Visible := False; + except + MovePanel2.Visible := False; + Order_Main.EnableControls; + end; + + if InputQuery('׺', '', MStrIn) then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Trade_Cloth_Inspect Set BatchNO=' + QuotedStr(MStrIn)); + sql.Add(' where CIID in (' + MStrsql + ')'); + + sql.Add('Update Trade_Cloth_Stock Set BatchNO=' + QuotedStr(MStrIn)); + sql.Add(' where CIID in (' + MStrsql + ')'); + ExecSQL; + end; + + end; + InitGrid(); + +end; + +procedure TfrmTradeClothInspHZList.N6Click(Sender: TObject); +var + MStrIn: string; + mvalue: double; +begin + if Order_Main.IsEmpty then + Exit; + + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ѡݼ¼', 'ʾ', 0); + Exit; + end; + + if not InputQuery('Ƥ(ëػƤ)', '', MStrIn) then + begin + Exit; + end; + mvalue := strTofloatdef(trim(MStrIn), 0); + try + Order_Main.DisableControls; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Trade_Cloth_Inspect Set tare=' + floatTostr(mvalue)); + sql.Add('where cIId=''' + Trim(Order_Main.fieldbyname('cIId').AsString) + ''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Trade_Cloth_Inspect Set GrossWeight=netWeight+tare'); + sql.Add('where cIId=''' + Trim(Order_Main.fieldbyname('cIId').AsString) + ''''); + ExecSQL; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݲɹ', 'ʾϢ'); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݲʧܣ', 'ʾϢ', 0); + end; + +end; + +procedure TfrmTradeClothInspHZList.N7Click(Sender: TObject); +var + isOk: boolean; + mlenUnit: string; +begin + if Order_Main.IsEmpty then + Exit; + + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ѡݼ¼', 'ʾ', 0); + Exit; + end; + isOk := false; + frmBatchMdyData := TfrmBatchMdyData.create(self); + with frmBatchMdyData do + begin + fTabCaption := '޸ijȵλ'; + if ShowModal = 1 then + begin + mlenUnit := Trim(lenunit.Text); + isOk := true; + end; + free; + end; + if not isOk then + exit; + + try + Order_Main.DisableControls; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Trade_Cloth_Inspect Set lenUnit=' + quotedstr(mlenUnit)); + sql.Add('where cIId=''' + Trim(Order_Main.fieldbyname('cIId').AsString) + ''''); + ExecSQL; + end; + + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݲɹ', 'ʾϢ'); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݲʧܣ', 'ʾϢ', 0); + end; + +end; + +procedure TfrmTradeClothInspHZList.N8Click(Sender: TObject); +var + isOk: boolean; + mtzfs: string; + mtzsl, mvalue: double; + decimalY: integer; +begin + if Order_Main.IsEmpty then + Exit; + + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ѡݼ¼', 'ʾ', 0); + Exit; + end; + isOk := false; + frmBatchMdyData := TfrmBatchMdyData.create(self); + with frmBatchMdyData do + begin + fTabCaption := ''; + if ShowModal = 1 then + begin + mtzfs := Trim(tzfs.Text); + mtzsl := strTofloatdef(Trim(tzsl.Text), 0); + isOk := true; + end; + free; + end; + if not isOk then + exit; + +// with ADOQueryTemp do +// begin +// Close; +// SQL.Clear; +// sql.Add(' select * from Trade_Cloth_Inspect_Rule where RuleID=' +quotedstr(Trim(Order_Main.fieldbyname('mainId').AsString))); +// Open; +// if not IsEmpty then +// begin +// if fieldByname('decimalY').AsInteger>0 then +// decimalY:=fieldByname('decimalY').AsInteger +// else +// decimalY:=1; +// end; +// +// end; + try + Order_Main.DisableControls; + ADOQueryCmd.Connection.BeginTrans; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.FieldByName('SSel').AsBoolean = True then + begin + if mtzfs = '' then + begin + mvalue := Order_Main.fieldbyname('Meter').AsFloat + mtzsl; + end; + if mtzfs = '' then + begin + mvalue := Order_Main.fieldbyname('Meter').AsFloat - mtzsl; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Trade_Cloth_Inspect Set Meter=' + floatTostr(mvalue)); + sql.Add('where cIId=''' + Trim(Order_Main.fieldbyname('cIId').AsString) + ''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('Update Trade_Cloth_Inspect Set yardage=round(meter/0.9144,ISNULL((select top 1 decimalY from Trade_Cloth_Inspect_Rule X where RuleID=Trade_Cloth_Inspect.MainId),1))'); + sql.Add('where cIId=''' + Trim(Order_Main.fieldbyname('cIId').AsString) + ''''); + ExecSQL; + end; + end; + Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Order_Main.EnableControls; + application.MessageBox('ݲɹ', 'ʾϢ'); + TBRafresh.Click; + except + ADOQueryCmd.Connection.RollbackTrans; + Order_Main.EnableControls; + application.MessageBox('ݲʧܣ', 'ʾϢ', 0); + end; +end; + +procedure TfrmTradeClothInspHZList.RKOrdIDKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTradeClothInspHZList.btnJYBGClick(Sender: TObject); +var + WSql: string; +begin + if Order_Main.IsEmpty then + Exit; + if Order_Main.Locate('SSel', True, []) = False then + begin + Application.MessageBox('ûѡ', 'ʾ', 0); + Exit; + end; + WSql := ''; + Order_Main.DisableControls; + with Order_Main do + begin + First; + while not Eof do + begin + if Order_Main.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + Trim(Order_Main.fieldbyname('CIID').AsString); + end + else + begin + WSql := Trim(Order_Main.fieldbyname('CIID').AsString); + end; + end; + Next; + end; + end; + Order_Main.Locate('SSel', True, []); + Order_Main.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeInsp'; + FFiltration1 := WSql; + FFiltration2 := WSql; + if ShowModal = 1 then + begin +// Self.InitGrid(); + end; + end; + finally + frmLabelPrint.Free; + end; + +end; + +procedure TfrmTradeClothInspHZList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); +begin + if pos('ѳ', trim(AViewInfo.Text)) > 0 then + begin + ACanvas.Canvas.Brush.Color := RGB(237, 164, 146); + // ACanvas.Canvas.Font.Color := clred; + end + else if pos('Ʒ', trim(AViewInfo.Text)) > 0 then + begin + ACanvas.Canvas.Brush.Color := RGB(0, 191, 96); + end; + // else if pos(' ', trim(AViewInfo.Text)) > 0 then + // begin + // ACanvas.Canvas.Brush.Color := $000C000; + // if (glideType.Text<>'') and (trim(GlideName.Text)=trim(AViewInfo.Text)) then + // begin + // ACanvas.Canvas.Font.Color := clRed; + // end; + // end + +end; + +procedure TfrmTradeClothInspHZList.Tv1CustomDrawIndicatorCell(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxCustomGridIndicatorItemViewInfo; var ADone: Boolean); +var + FValue: string; + FBounds: TRect; +begin + FBounds := AViewInfo.Bounds; + if (AViewInfo is TcxGridIndicatorRowItemViewInfo) then + begin + ACanvas.FillRect(FBounds); + ACanvas.DrawComplexFrame(FBounds, clBlack, clBlack, [bBottom, bLeft, bRight], 1); + FValue := IntToStr(TcxGridIndicatorRowItemViewInfo(AViewInfo).GridRecord.Index + 1); + InflateRect(FBounds, -3, -2); //Platform specific. May not work on Linux. + ACanvas.Font.Color := clBlack; + ACanvas.Brush.Style := bsClear; + ACanvas.DrawText(FValue, FBounds, cxAlignCenter or cxAlignTop); + ADone := True; + end; +end; + +///////////////////////////////////////////////// +function TfrmTradeClothInspHZList.autoOut(mCcids: string): boolean; +begin + try + result := false; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('update Trade_Cloth_Inspect set CIIOFlag=''ѳ'',IOTime=getdate()'); + sql.Add(' where EXISTS(select X.RTValue from [dbo].[F_Tool_SplitString](''' + mCcids + ''','','') X where X.RTValue=CIID) '); + execsql; + end; + result := true; + except + application.MessageBox('ִԶʱ!', 'Ϣ', 0) + end; +end; + +//////////////////////////////////////////////// +procedure TfrmTradeClothInspHZList.threadLoadform(); +var + thread: TThread; +begin + + thread := TThread.CreateAnonymousThread( + procedure + begin + TThread.Synchronize(nil, + procedure + begin + ReadCxGrid(Trim(self.Caption) + 'Tv1', Tv1, gDllFileCaption); + InitGrid(); + end) + end); + + thread.FreeOnTerminate := True; + thread.Start; + +end; + +///////////////////////////////////////////////////// +procedure TfrmTradeClothInspHZList.selDisp(); +var + msumRoll: integer; + msumMeter, msumWeight, msumNetWeight, mSumYard: double; + mrecNo: integer; +begin + if not cxCheckBox1.Checked then + exit; + + mrecNo := Order_Main.RecNo; + try + tv1.BeginUpdate(); + Order_Main.DisableControls; + + msumRoll := 0; + msumMeter := 0; + mSumYard := 0; + msumWeight := 0; + msumNetWeight := 0; + with Order_Main do + begin + Order_Main.first; + while not eof do + begin + if Order_Main.FieldByName('ssel').AsBoolean then + begin + msumRoll := msumRoll + 1; + msumMeter := msumMeter + fieldByName('Meter').AsFloat; + mSumYard := mSumYard + fieldByName('Yardage').AsFloat; + msumWeight := msumWeight + fieldByName('GrossWeight').AsFloat; + msumNetWeight := msumNetWeight + fieldByName('NetWeight').AsFloat; + end; + next; + end; + cxCheckBox1.Caption := 'ѡ ' + inttoStr(msumRoll) + ' '; + if msumNetWeight > 0 then + begin + cxCheckBox1.Caption := cxCheckBox1.Caption + ':' + floattoStr(msumNetWeight) + 'kg '; + end; + if msumWeight > 0 then + begin + cxCheckBox1.Caption := cxCheckBox1.Caption + 'ë:' + floattoStr(msumWeight) + 'kg '; + end; + if msumMeter > 0 then + begin + cxCheckBox1.Caption := cxCheckBox1.Caption + ':' + floattoStr(msumMeter) + ' '; + cxCheckBox1.Caption := cxCheckBox1.Caption + ':' + floattoStr(mSumYard) + ' '; + end; + end; + finally + Order_Main.RecNo := mrecNo; + Order_Main.EnableControls; + tv1.EndUpdate; + end; + +end; + +end. + diff --git a/项目代码/djdPack/G03贸易布匹检验/U_TradeClothInspList.dfm b/项目代码/djdPack/G03贸易布匹检验/U_TradeClothInspList.dfm index 463a3f1..e8eb065 100644 --- a/项目代码/djdPack/G03贸易布匹检验/U_TradeClothInspList.dfm +++ b/项目代码/djdPack/G03贸易布匹检验/U_TradeClothInspList.dfm @@ -496,14 +496,14 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 66 + Width = 86 end object Tv1Column6: TcxGridDBColumn Caption = #32568#21495 DataBinding.FieldName = 'BatchNO' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 59 + Width = 80 end object Tv1Column11: TcxGridDBColumn Caption = #21152#37325 @@ -511,48 +511,59 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 57 + Width = 80 end object Tv1AddwetPresent: TcxGridDBColumn Caption = #36192#36865#37325#37327 DataBinding.FieldName = 'AddwetPresent' DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter Options.Editing = False + Width = 80 end object Tv1AddLenPresent: TcxGridDBColumn Caption = #36192#36865#38271#24230 DataBinding.FieldName = 'AddLenPresent' DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 end object Tv1lenUnit: TcxGridDBColumn Caption = #38271#24230#21333#20301 DataBinding.FieldName = 'lenUnit' DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter Options.Editing = False + Width = 80 end object Tv1unitPieces: TcxGridDBColumn Caption = #25340#21305 DataBinding.FieldName = 'unitPieces' DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter Options.Editing = False + Width = 71 end object Tv1operators: TcxGridDBColumn Caption = #26426#21488#20154#21592 DataBinding.FieldName = 'operators' DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 end object Tv1Column9: TcxGridDBColumn Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'IOTime' DataBinding.IsNullValueType = True - Width = 60 + HeaderAlignmentHorz = taCenter + Width = 80 end object Tv1Column13: TcxGridDBColumn Caption = #20928#30917 DataBinding.FieldName = 'Netpound' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 60 + Width = 68 end object Tv1Column14: TcxGridDBColumn Caption = #27611#30917 diff --git a/项目代码/djdPack/G03贸易布匹检验/testDll.res b/项目代码/djdPack/G03贸易布匹检验/testDll.res index e116c48..2465ca0 100644 Binary files a/项目代码/djdPack/G03贸易布匹检验/testDll.res and b/项目代码/djdPack/G03贸易布匹检验/testDll.res differ