From 3a5cea8769d5d6892f3a9250aabe9a8b53ea0df8 Mon Sep 17 00:00:00 2001 From: "LAPTOP-8NOV8MVQ\\cai" Date: Tue, 9 Dec 2025 17:30:02 +0800 Subject: [PATCH] 12.9 --- A00通用窗体/U_CompanySel.dfm | 8 + A00通用窗体/U_CompanySel.pas | 1 + A01基础公司管理/Company.dproj.local | 76 +- A02基础产品管理/ClothInfo.dproj.local | 120 ++-- A02基础产品管理/ClothInfo.identcache | Bin 2078 -> 2078 bytes A02基础产品管理/ClothInfo.res | Bin 1484 -> 1484 bytes A02基础产品管理/U_ClothInfo.pas | 16 + A02基础产品管理/U_ClothInfoInput.dfm | 1 + A02基础产品管理/testDll.identcache | Bin 178 -> 178 bytes A02基础产品管理/testDll.res | Bin 3308 -> 3308 bytes E01梭织生产计划/TatPlan.dproj.local | 120 ++-- E01梭织生产计划/TatPlan.identcache | Bin 2584 -> 2584 bytes E01梭织生产计划/TatPlan.res | Bin 1472 -> 1472 bytes E01梭织生产计划/testDll.identcache | Bin 178 -> 178 bytes E01梭织生产计划/testDll.res | Bin 3308 -> 3308 bytes E03梭织坯布检验/ProjectGroup1.groupproj.local | 2 +- E03梭织坯布检验/TatInsp.dpr | 4 +- E03梭织坯布检验/TatInsp.dproj | 60 +- E03梭织坯布检验/TatInsp.dproj.local | 122 ++-- E03梭织坯布检验/TatInsp.identcache | Bin 1798 -> 2007 bytes E03梭织坯布检验/TatInsp.res | Bin 1472 -> 1472 bytes E03梭织坯布检验/TatInsp.skincfg | 5 + E03梭织坯布检验/TatInspLogin.dproj.local | 32 +- E03梭织坯布检验/TatInspLogin.identcache | Bin 1173 -> 1186 bytes E03梭织坯布检验/TatInspLogin.res | Bin 34708 -> 34708 bytes E03梭织坯布检验/U_GetDllForm.pas | 26 +- E03梭织坯布检验/U_SCPersonColor.pas | 43 +- E03梭织坯布检验/U_TatClothInspHZList.dfm | 670 ++++++++++++++++++ E03梭织坯布检验/U_TatClothInspHZList.pas | 615 ++++++++++++++++ E03梭织坯布检验/U_TatClothInspList.dfm | 36 +- E03梭织坯布检验/U_TatClothInspList.pas | 39 +- E03梭织坯布检验/U_TatMachCutHZList.dfm | 513 ++++++++++++++ E03梭织坯布检验/U_TatMachCutHZList.pas | 390 ++++++++++ E03梭织坯布检验/U_TatMachInsp.dfm | 49 +- E03梭织坯布检验/U_TatMachInsp.pas | 154 +++- E03梭织坯布检验/testDll.identcache | Bin 176 -> 178 bytes E03梭织坯布检验/testDll.res | Bin 3308 -> 3308 bytes E04梭织坯布仓库/TatClothStk.dproj.local | 86 +-- E04梭织坯布仓库/U_GetDllForm.pas | 3 +- E04梭织坯布仓库/U_TatClothCKHZList.dfm | 61 +- E04梭织坯布仓库/U_TatClothCKHZList.pas | 40 +- E04梭织坯布仓库/U_TatClothInList.dfm | 53 +- E04梭织坯布仓库/U_TatClothInList.pas | 13 +- E04梭织坯布仓库/U_TatClothOutList.dfm | 33 + E04梭织坯布仓库/U_TatClothOutList.pas | 7 +- E04梭织坯布仓库/U_TatClothRKHZList.dfm | 183 ++++- E04梭织坯布仓库/U_TatClothRKHZList.pas | 28 +- E04梭织坯布仓库/U_TatClothStkHZList.dfm | 90 +-- E04梭织坯布仓库/U_TatClothStkHZList.pas | 15 +- E04梭织坯布仓库/U_TatClothStkList.dfm | 33 +- E04梭织坯布仓库/U_TatClothStkList.pas | 4 + E04梭织坯布仓库/U_TatDRList.dfm | 83 ++- E04梭织坯布仓库/U_TatDRList.pas | 224 +++++- E04梭织坯布仓库/U_TatDRtInPut.dfm | 34 +- E04梭织坯布仓库/U_TatDRtInPut.pas | 111 ++- F01染色坯布仓库/U_DyeGreyClothInEdit.dfm | 14 +- F01染色坯布仓库/U_DyeGreyClothInEdit.pas | 7 + F01染色坯布仓库/U_DyeGreyClothInList.dfm | 11 +- F01染色坯布仓库/U_DyeGreyClothInList.pas | 1 + 59 files changed, 3594 insertions(+), 642 deletions(-) create mode 100644 E03梭织坯布检验/TatInsp.skincfg create mode 100644 E03梭织坯布检验/U_TatClothInspHZList.dfm create mode 100644 E03梭织坯布检验/U_TatClothInspHZList.pas create mode 100644 E03梭织坯布检验/U_TatMachCutHZList.dfm create mode 100644 E03梭织坯布检验/U_TatMachCutHZList.pas diff --git a/A00通用窗体/U_CompanySel.dfm b/A00通用窗体/U_CompanySel.dfm index 89bb29d..1cb13bd 100644 --- a/A00通用窗体/U_CompanySel.dfm +++ b/A00通用窗体/U_CompanySel.dfm @@ -10,6 +10,7 @@ inherited frmCompanySel: TfrmCompanySel Font.Name = #23435#20307 Position = poScreenCenter OnClose = FormClose + ExplicitLeft = -42 ExplicitWidth = 909 ExplicitHeight = 597 PixelsPerInch = 96 @@ -59,6 +60,13 @@ inherited frmCompanySel: TfrmCompanySel HeaderAlignmentHorz = taCenter Width = 159 end + object TV1Column4: TcxGridDBColumn + Caption = #23458#25143#22320#22336 + DataBinding.FieldName = 'CoAddress' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 547 + end end object cxGrid1Level1: TcxGridLevel GridView = TV1 diff --git a/A00通用窗体/U_CompanySel.pas b/A00通用窗体/U_CompanySel.pas index 328b630..b046570 100644 --- a/A00通用窗体/U_CompanySel.pas +++ b/A00通用窗体/U_CompanySel.pas @@ -51,6 +51,7 @@ type handBlack: TcxStyle; cxBlue: TcxStyle; SHuangSeCu: TcxStyle; + TV1Column4: TcxGridDBColumn; procedure FormCreate(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); diff --git a/A01基础公司管理/Company.dproj.local b/A01基础公司管理/Company.dproj.local index 3c8f1ec..37510d8 100644 --- a/A01基础公司管理/Company.dproj.local +++ b/A01基础公司管理/Company.dproj.local @@ -1,60 +1,32 @@  - 1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas= - 1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas - 1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas - 1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas - 1899-12-30 00:00:00.000.693,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm=D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm - 1899-12-30 00:00:00.000.311,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm - 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm - 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas - 1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas= - 1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm - 1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm - 1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas - 1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas - 1899-12-30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas=D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.pas - 1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas + 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm + 1899/12/30 00:00:00.000.693,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas= + 1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm + 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm + 1899/12/30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.pas=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas + 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm + 1899/12/30 00:00:00.000.311,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas + 1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas + 1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas + 1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas= + 1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas + 1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas + 1899/12/30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm + 1899/12/30 00:00:00.000.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas + 1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local index ba134a9..8126fd5 100644 --- a/A02基础产品管理/ClothInfo.dproj.local +++ b/A02基础产品管理/ClothInfo.dproj.local @@ -1,82 +1,54 @@  - 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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.583,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas= - 1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas - 1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.814,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas - 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas + 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas + 1899/12/30 00:00:00.000.583,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm + 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.187,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.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas + 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas + 1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm + 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.814,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + diff --git a/A02基础产品管理/ClothInfo.identcache b/A02基础产品管理/ClothInfo.identcache index e28d2d36385db2bf6b7df4a857df9fa1e108f703..4d702626dced11371a3c9b20aca2061281ef4df5 100644 GIT binary patch delta 48 zcmV-00MGxP5S|dQv;mV10$!8<1uK)^0Tz=42pY3%0%8G^ga<#f2Lycsk+4CN^#K@@ G%>z1`tPrFC delta 48 zcmV-00MGxP5S|dQv;mQ@L6gh}7?ZRCUbAfiVgZxn2RgG31bqXO&jUY``35VK-vJhr GQvw>$1`*Z( diff --git a/A02基础产品管理/ClothInfo.res b/A02基础产品管理/ClothInfo.res index 45c09201242a1926cbabd5fb44d6767e16ac767a..d3db8fa3aac590ee3d173e9b039f007b595e00c5 100644 GIT binary patch delta 12 TcmX@ZeTI9(304+H1_lNI9i9U* delta 12 TcmX@ZeTI9(309WIDGUq%AzB1Q diff --git a/A02基础产品管理/U_ClothInfo.pas b/A02基础产品管理/U_ClothInfo.pas index 95f4fb5..261a68a 100644 --- a/A02基础产品管理/U_ClothInfo.pas +++ b/A02基础产品管理/U_ClothInfo.pas @@ -344,6 +344,22 @@ procedure TfrmClothInfo.TBDelClick(Sender: TObject); begin if CDS_1.IsEmpty then Exit; + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add(' select * from Tat_Cloth_Inspect A where A.C_Code = '); + sql.Add( quotedStr(CDS_1.fieldbyname('C_Code').AsString) ); + Open; + end; + if not ADOQueryCmd.IsEmpty then + begin + Application.MessageBox('м¼,ɾ','ʾϢ',MB_OK); + exit; + end; + + + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then Exit; diff --git a/A02基础产品管理/U_ClothInfoInput.dfm b/A02基础产品管理/U_ClothInfoInput.dfm index d04a0a1..999719b 100644 --- a/A02基础产品管理/U_ClothInfoInput.dfm +++ b/A02基础产品管理/U_ClothInfoInput.dfm @@ -32,6 +32,7 @@ object frmClothInfoInput: TfrmClothInfoInput ParentColor = False ShowCaptions = True TabOrder = 0 + ExplicitTop = 1 object ToolButton1: TToolButton Tag = 1 Left = 0 diff --git a/A02基础产品管理/testDll.identcache b/A02基础产品管理/testDll.identcache index 92856996700d62aee0a6472628e933095c601583..8b7250c65526423cc6c624669f663a93a3a44fe3 100644 GIT binary patch delta 12 TcmdnQxQUUGX<}sLM3x8u7#std delta 12 TcmdnQxQUUGX<~TvM3yiB7#IVX diff --git a/A02基础产品管理/testDll.res b/A02基础产品管理/testDll.res index 2465ca0e30696a8467f3b1371b2f343eab2cd121..e116c482ff64a90aae29d14ae002699b9b83f166 100644 GIT binary patch delta 12 TcmaDO`9^ZX3mz6m1_lNIB7g(5 delta 12 TcmaDO`9^ZX3m%rnDGUq%COibl diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index 304f9a0..71f0fcb 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,82 +1,54 @@  - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= - 1899-12-30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas - 1899-12-30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas - 1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas - 1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas - 1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas - 1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm - 1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas + 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas + 1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas + 1899/12/30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= + 1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas + 1899/12/30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas + 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache index 9557cb6297eb14ed0843836ab564310e2761a2b7..6dca46c5f9fce09d9e85902ea7820566d7336565 100644 GIT binary patch delta 112 zcmV-$0FVEe6qpo{T9f+-DUsh2ll=)BlMDe>lO6_`lez(qlWzw>k((Qnwgy3yum=W{ zivv%S%LgEn0R|nD=>l7m+5^~=q5&9_`v_K(aRgbDDFwKb$^>7NNdjTBwgzqjk>4$o S+5;n#bO{ubsscZghzUB5t}3|z delta 104 zcmV-u0GI!m6qpo{T9YgST#;HklT8U5k+4;hO$1q!odJ)NYzASIp9w#c9|$RvuLl^D zoC6w@%?3e}$pTfAXbB^e*#otcJp~w(4F+G6RRy?{9s@m-1p%0|%?54)lg|V#lV}My KlimqBky=)XPb8!O diff --git a/E01梭织生产计划/TatPlan.res b/E01梭织生产计划/TatPlan.res index 69bb185ac3520b172d1552713c75a5536ac0971b..d41958efec09a7b914b5b0aabc1af4e88b0ae785 100644 GIT binary patch delta 12 TcmX@WeSmwz9#$4c1_lNI96|#P delta 12 TcmX@WeSmwz9#)pdDGUq%AN~X( diff --git a/E01梭织生产计划/testDll.identcache b/E01梭织生产计划/testDll.identcache index a333403c059c998eeef17eecef891da13ce18ee9..18dde52915f1f904d5a0c3dfef843c35db9a6d17 100644 GIT binary patch delta 12 TcmdnQxQUUGX<}sLM3x8u7#std delta 12 TcmdnQxQUUGX<~TvM3yiB7#IVX diff --git a/E01梭织生产计划/testDll.res b/E01梭织生产计划/testDll.res index 2465ca0e30696a8467f3b1371b2f343eab2cd121..e116c482ff64a90aae29d14ae002699b9b83f166 100644 GIT binary patch delta 12 TcmaDO`9^ZX3mz6m1_lNIB7g(5 delta 12 TcmaDO`9^ZX3m%rnDGUq%COibl diff --git a/E03梭织坯布检验/ProjectGroup1.groupproj.local b/E03梭织坯布检验/ProjectGroup1.groupproj.local index 41bb903..64a322b 100644 --- a/E03梭织坯布检验/ProjectGroup1.groupproj.local +++ b/E03梭织坯布检验/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/E03梭织坯布检验/TatInsp.dpr b/E03梭织坯布检验/TatInsp.dpr index 60dbdda..46f05f7 100644 --- a/E03梭织坯布检验/TatInsp.dpr +++ b/E03梭织坯布检验/TatInsp.dpr @@ -29,7 +29,9 @@ uses U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint}, U_TatClothInfoSel in '..\A00ͨô\U_TatClothInfoSel.pas' {frmTatClothInfoSel}, uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', - U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}; + U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, + U_TatMachCutHZList in 'U_TatMachCutHZList.pas' {frmTatMachCutHZList}, + U_TatClothInspHZList in 'U_TatClothInspHZList.pas' {frmTatClothInspHZList}; {$R *.res} diff --git a/E03梭织坯布检验/TatInsp.dproj b/E03梭织坯布检验/TatInsp.dproj index ebee5f9..19d72b6 100644 --- a/E03梭织坯布检验/TatInsp.dproj +++ b/E03梭织坯布检验/TatInsp.dproj @@ -4,7 +4,7 @@ TatInsp.dpr True Debug - 38017 + 1 Library VCL 19.2 @@ -13,16 +13,6 @@ true - - true - Base - true - - - true - Base - true - true Base @@ -43,24 +33,6 @@ Base true - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - true Cfg_2 @@ -84,13 +56,6 @@ 2052 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - - $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png - android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar - - - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png - System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug @@ -113,18 +78,9 @@ false true - - Debug - - - Debug - - - Debug - CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10Repo\项目代码\D10szXIANGYIN\E03梭织坯布检验\testDll.exe + D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\testDll.exe @@ -199,6 +155,14 @@ dfm TDataModule + +
frmTatMachCutHZList
+ dfm + + +
frmTatClothInspHZList
+ dfm + Cfg_2 Base @@ -221,10 +185,6 @@ - True - True - True - True True False diff --git a/E03梭织坯布检验/TatInsp.dproj.local b/E03梭织坯布检验/TatInsp.dproj.local index 58c554f..cd98722 100644 --- a/E03梭织坯布检验/TatInsp.dproj.local +++ b/E03梭织坯布检验/TatInsp.dproj.local @@ -1,80 +1,54 @@  - 1899-12-30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas - 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas - 1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm - 1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm - 1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj + 1899/12/30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm + 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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas + 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas + 1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas + 1899/12/30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas + 1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm + 1899/12/30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj + 1899/12/30 00:00:00.000.630,=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.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.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 2025/11/24 13:58:34.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas + 2025/11/24 15:19:14.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + @@ -120,5 +94,9 @@ + + + + diff --git a/E03梭织坯布检验/TatInsp.identcache b/E03梭织坯布检验/TatInsp.identcache index 161b51c7462eb579526e2898914bebfd2a9ad2c7..3fced4de5210ac89acc7732d77e96c9552e1041b 100644 GIT binary patch delta 265 zcmZqUyUx!l#lXN2GKocv(S33OljYC{+3Y9pVpRu=NKVdXm6%+^C_niGljKAe zpy0$t;mL`N(vw%S*aF2ZfV9G7MrK*C9MA~y$&;DI8Q~_%@cJeuXE>LZctrVR7MD!s zV>X_=j8$avJ4TrKlh~vtuVRK8Y{>%W=uVbnHixJKS^11jfiVo`PE|IjaW`0kC$6)e tyoL>A+Cx?&BzI3{k$|}ABD3Damv)T)FwHWP4Vfeuy};awjUp56r2&5}O>O`H delta 200 zcmcc4-^Rx(!N9=aIr$*7+T<1N`i$;imMx3!gWB?fS(nips?`vvUSaZ6M%l^ntj=&z$;tAJ5 - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -49,7 +21,7 @@ - 1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj - 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj + 1899/12/30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj + 1899/12/30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj diff --git a/E03梭织坯布检验/TatInspLogin.identcache b/E03梭织坯布检验/TatInspLogin.identcache index 543bec3329a533ec80fd91a33d3700ae730d3c0e..83e3965dc1a020703ca4660401f45ebfefd9609b 100644 GIT binary patch delta 197 zcmbQrxrmdIcj7uNM)%1Jn8YVKIYAhc4>F4~dQ9HPs0NjoEyfs!;7-nC5ucpGBs!5r z9V~Ci7>p$Oj!}^@5{aJ&ROJWfOHTag2(^SCXo)LaLVWUEMqwm{;*&*KWRM&oIoX?0 O1jV8}7M{s@%%T7@tvDJ0 delta 174 zcmZ3)IhB)6@rYw`sqXE3e9BF5-4*^yZd%&TV>W(P7nx-kBcOWp1oR3Liy4pr E0QhStj{pDw diff --git a/E03梭织坯布检验/TatInspLogin.res b/E03梭织坯布检验/TatInspLogin.res index 49b437fa933056143fc22ea2d01501c36384998b..9c039867ce54935db6cef32255f558183bf66fa4 100644 GIT binary patch delta 14 VcmbQz&orf + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column6 + end + item + Kind = skSum + Column = Tv1Column1 + end + item + Kind = skSum + Column = Tv1Column7 + end + item + Kind = skSum + Column = Tv1Column8 + end + item + Kind = skSum + Column = Tv1Column9 + end + item + Kind = skSum + Column = Tv1Column10 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column13 + end + item + Kind = skSum + Column = Tv1Column14 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column17 + end + item + Kind = skSum + Column = Tv1Column18 + end + item + Kind = skSum + Column = Tv1Column19 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object Tv1C_Name: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.CellMerging = True + Width = 66 + OnCompareRowValuesForCellMerging = Tv1C_NameCompareRowValuesForCellMerging + end + object Tv1DXMF: TcxGridDBColumn + Caption = #23450#22411#38376#24133 + DataBinding.FieldName = 'DXMF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 72 + OnCompareRowValuesForCellMerging = Tv1DXMFCompareRowValuesForCellMerging + end + object Tv1dxmeter: TcxGridDBColumn + Caption = #23450#22411#31859#25968 + DataBinding.FieldName = 'dxmeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1dxmeterCompareRowValuesForCellMerging + end + object Tv1Carno: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'Carno' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1CarnoCompareRowValuesForCellMerging + end + object Tv1PCID: TcxGridDBColumn + Caption = #27969#36716#21345#21495 + DataBinding.FieldName = 'pcid' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 68 + OnCompareRowValuesForCellMerging = Tv1PCIDCompareRowValuesForCellMerging + end + object Tv1CIMachNo: TcxGridDBColumn + Caption = #20998#20999#26426#21488 + DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1CIMachNoCompareRowValuesForCellMerging + end + object Tv1BCIOID: TcxGridDBColumn + Caption = #20998#20999#21333#21495 + DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 80 + OnCompareRowValuesForCellMerging = Tv1BCIOIDCompareRowValuesForCellMerging + end + object Tv1qgSL: TcxGridDBColumn + Caption = #20999#21106#32553#29575 + DataBinding.FieldName = 'qgSL' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DecimalPlaces = 2 + Properties.DisplayFormat = '0.00%' + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1qgSLCompareRowValuesForCellMerging + end + object Tv1qgMeter: TcxGridDBColumn + Caption = #20999#21106#31859#25968 + DataBinding.FieldName = 'qgMeter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.CellMerging = True + Width = 90 + OnCompareRowValuesForCellMerging = Tv1qgMeterCompareRowValuesForCellMerging + end + object Tv1Column20: TcxGridDBColumn + Caption = #20248#31561#29575 + DataBinding.FieldName = 'YDRate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.0%' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1Column21: TcxGridDBColumn + Caption = #24223#24067#29575 + DataBinding.FieldName = 'FBRate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.0%' + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1Column22: TcxGridDBColumn + Caption = #20999#21106#38376#24133 + DataBinding.FieldName = 'C_width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1Column4: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end + object Tv1Column6: TcxGridDBColumn + Caption = #20248#31561#21367#25968 + DataBinding.FieldName = 'YDJs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20248#31561#31859#25968 + DataBinding.FieldName = 'Ydqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column9: TcxGridDBColumn + Caption = #23567#21367#21367#25968 + DataBinding.FieldName = 'xjJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column10: TcxGridDBColumn + Caption = #23567#21367#31859#25968 + DataBinding.FieldName = 'xjqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20108#31561#21367#25968 + DataBinding.FieldName = 'edJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column8: TcxGridDBColumn + Caption = #20108#31561#31859#25968 + DataBinding.FieldName = 'edqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column17: TcxGridDBColumn + Caption = #27979#35797#21367#25968 + DataBinding.FieldName = 'csJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column18: TcxGridDBColumn + Caption = #27979#35797#31859#25968 + DataBinding.FieldName = 'csqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column13: TcxGridDBColumn + Caption = #20998#20999#21367#25968 + DataBinding.FieldName = 'fqJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column14: TcxGridDBColumn + Caption = #20998#20999#31859#25968 + DataBinding.FieldName = 'fqqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1fbJS: TcxGridDBColumn + Caption = #24223#24067#21367#25968 + DataBinding.FieldName = 'fbJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1fbqty: TcxGridDBColumn + Caption = #24223#24067#31859#25968 + DataBinding.FieldName = 'fbqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column19: TcxGridDBColumn + Caption = #25439#32791#24179#26041 + DataBinding.FieldName = 'SHpf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object Tv1Column15: TcxGridDBColumn + DataBinding.FieldName = 'meterall' + DataBinding.IsNullValueType = True + Visible = False + end + object Tv1Column23: TcxGridDBColumn + DataBinding.FieldName = 'C_Widthall' + DataBinding.IsNullValueType = True + Visible = False + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatInsp.ADOLink + Left = 553 + Top = 200 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatInsp.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatInsp.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatInsp.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatInsp.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 828 + Top = 284 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 728 + Top = 288 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 776 + Top = 284 + end + object PM_1: TPopupMenu + Left = 560 + Top = 384 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + end +end diff --git a/E03梭织坯布检验/U_TatClothInspHZList.pas b/E03梭织坯布检验/U_TatClothInspHZList.pas new file mode 100644 index 0000000..fea3e4d --- /dev/null +++ b/E03梭织坯布检验/U_TatClothInspHZList.pas @@ -0,0 +1,615 @@ +unit U_TatClothInspHZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, + System.StrUtils, dxScrollbarAnnotations, cxCurrencyEdit; + +type + TfrmTatClothInspHZList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + Label5: TLabel; + C_Name: TEdit; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1C_Name: TcxGridDBColumn; + Tv1DXMF: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1PCID: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + Tv1Column19: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Tv1dxmeter: TcxGridDBColumn; + Tv1Carno: TcxGridDBColumn; + Tv1qgSL: TcxGridDBColumn; + Tv1qgMeter: TcxGridDBColumn; + Tv1Column20: TcxGridDBColumn; + Tv1Column21: TcxGridDBColumn; + Tv1Column22: TcxGridDBColumn; + Tv1fbJS: TcxGridDBColumn; + Tv1fbqty: TcxGridDBColumn; + Tv1CIMachNo: TcxGridDBColumn; + Tv1BCIOID: TcxGridDBColumn; + Label1: TLabel; + C_width: TEdit; + Label3: TLabel; + pcid: TEdit; + Label4: TLabel; + C_GramWeight: TEdit; + Tv1Column15: TcxGridDBColumn; + Tv1Column23: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + procedure Tv1PCIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1C_NameCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1DXMFCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1dxmeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1CarnoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1CIMachNoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1BCIOIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1qgSLCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + procedure Tv1qgMeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure SetStatus(); + { Private declarations } + public + canshu1: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmTatClothInspHZList.SetStatus(); +begin + +end; + +procedure TfrmTatClothInspHZList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmTatClothInspHZList.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmTatClothInspHZList.InitGrid(); +var + WSql, WSql1: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql1 := ' and A.FillTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql1 := WSql1 + ' and A.FillTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + sql.Add('select * from ( '); + sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter '); + sql.Add(' ,maX(B.C_Width) AS DXMF,A.CIMachNo,A.BCIOID '); +// sql.Add(' ,CAST(isNull(A.dxmeter,''1'') AS DECIMAL(18,2)) '); + +// SQL.Add(' ,qgMeter=sum(meter+SHMeter)/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) '); + + sql.Add(' ,meterall=(select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo )'); + sql.Add(' ,C_Widthall= ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) '); + + SQL.Add(' ,qgMeter=(select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo )/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) '); + +// SQL.Add(' ,qgSL = ROUND((select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo )*100 '); +// sql.Add(' / ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1)/CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 2) '); + + SQL.Add(' ,qgSL = ROUND((CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) - (select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.GRADE<>''ѭ'' and X.CIMachNo=A.CIMachNo )'); + SQL.Add(' /ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) )*100 '); + sql.Add(' /CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 3) '); + + SQL.Add(',SHpf=SUM(CASE WHEN ISNUMERIC(A.SHMETER) = 1 AND ISNUMERIC(A.C_WIDTH) = 1 '); + SQL.Add(' THEN CAST(A.SHMETER AS DECIMAL(18,2))/100 * CAST(A.C_WIDTH AS DECIMAL(18,2)) '); + SQL.Add(' ELSE 0 END)'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter ELSE 0 END )AS Ydqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END )AS edJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter ELSE 0 END )AS edqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END )AS xjJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter ELSE 0 END )AS xjqty'); + SQL.Add(',SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END )AS fbJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN A.meter ELSE 0 END )AS fbqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS fqJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS fqqty'); +// SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN 1 ELSE 0 END )AS xhJS'); +// SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN A.meter ELSE 0 END )AS xhqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS csJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS csqty'); + + + // ŵֶ - ŵȾ/(ŵȾ+С+Ⱦ+Ծ+о+ϲ(ųΪ0)) + SQL.Add(',YDRate=CAST('); + SQL.Add(' CASE '); + SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END) + '); // YDJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END) + '); // xjJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END) + '); // edJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // csJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // fqJS + SQL.Add(' SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJSųΪ0 + SQL.Add(' THEN 0 '); + SQL.Add(' ELSE '); + SQL.Add(' CAST(SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // ӣYDJS + SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END) + '); // YDJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END) + '); // xjJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END) + '); // edJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // csJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // fqJS + SQL.Add(' SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS + SQL.Add(' END '); + SQL.Add('AS DECIMAL(18,4)) '); + + // ŵֶ - ŵȾ/(ŵȾ+С+Ⱦ+Ծ+о+ϲ(ųΪ0)) + SQL.Add(',FBRate=CAST('); + SQL.Add(' CASE '); + SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END) + '); // YDJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END) + '); // xjJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END) + '); // edJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // csJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // fqJS + SQL.Add(' SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJSųΪ0 + SQL.Add(' THEN 0 '); + SQL.Add(' ELSE '); + SQL.Add(' CAST(SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // ӣYDJS + SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END) + '); // YDJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END) + '); // xjJS + SQL.Add(' SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END) + '); // edJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // csJS + SQL.Add(' SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END) + '); // fqJS + SQL.Add(' SUM(CASE WHEN (A.GRADE=''ϲ'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS + SQL.Add(' END '); + SQL.Add('AS DECIMAL(18,4)) '); + + SQL.Add('from Tat_Cloth_Inspect A '); + SQL.Add(' left join BS_Cloth_IO B on A.BCIOID = B.BCIOID '); + SQL.Add(' where (A.BEFOREC_WIDTH='''' OR A.BEFOREC_WIDTH is null) '); + SQL.Add(' and (NOT EXISTS (select * from BS_Cloth_IO_mx X WHERE X.BCIOID = A.BCIOID and X.C_MXSHWidth is not NULL)) '); + SQL.Add(' and A.GRADE<>''ѭ'' '); + SQL.Add(' and A.Carno<>'''' and A.Carno is not NULL '); + + SQL.Add(WSql1); + + sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter'); + sql.Add(' ,A.CIMachNo,A.BCIOID'); + + sql.add(' ) T where 1=1 '); + SQL.Add(WSql); + sql.Add(' Order By T.Carno,T.pcid,BCIOID'); +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + +procedure TfrmTatClothInspHZList.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmTatClothInspHZList.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothInspHZList.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmTatClothInspHZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatClothInspHZList.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatClothInspHZList.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTatClothInspHZList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatClothInspHZList.FormShow(Sender: TObject); +begin + inherited; + +// ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ϣ'); + CurrentPage := 1; + RecordsNumber := 500; + canshu1 := Trim(Self.fParameters1); + + SetStatus(); + + BegDate.DateTime := SGetServerDate(ADOQueryCmd); + EndDate.DateTime := BegDate.DateTime; + InitGrid(); + +end; + +procedure TfrmTatClothInspHZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel(Self.Caption, cxGrid1); +end; + +procedure TfrmTatClothInspHZList.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTatClothInspHZList.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmTatClothInspHZList.Tv1PCIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[Tv1PCID.Index] = ARow2.Values[Tv1PCID.Index]) and (ARow1.Values[Tv1PCID.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList.Tv1qgMeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; + + if (ARow1.Values[Tv1qgMeter.Index] = ARow2.Values[Tv1qgMeter.Index]) and (ARow1.Values[Tv1qgMeter.Index] <> NULL) and (ARow2.Values[Tv1qgMeter.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList.Tv1qgSLCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; + + if (ARow1.Values[Tv1qgSL.Index] = ARow2.Values[Tv1qgSL.Index]) and (ARow1.Values[Tv1qgSL.Index] <> NULL) and (ARow2.Values[Tv1qgSL.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList.Tv1DXMFCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; +// if (ARow1.Values[Tv1C_Name.Index] <> ARow2.Values[Tv1C_Name.Index]) or (ARow1.Values[Tv1C_Name.Index] = NULL) or (ARow2.Values[Tv1C_Name.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; + + if (ARow1.Values[Tv1DXMF.Index] = ARow2.Values[Tv1DXMF.Index]) and (ARow1.Values[Tv1DXMF.Index] <> NULL) and (ARow2.Values[Tv1DXMF.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList.Tv1BCIOIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; + + if (ARow1.Values[Tv1BCIOID.Index] = ARow2.Values[Tv1BCIOID.Index]) and (ARow1.Values[Tv1BCIOID.Index] <> NULL) and (ARow2.Values[Tv1BCIOID.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; +end; + +procedure TfrmTatClothInspHZList.Tv1CarnoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; +// if (ARow1.Values[Tv1C_Name.Index] <> ARow2.Values[Tv1C_Name.Index]) or (ARow1.Values[Tv1C_Name.Index] = NULL) or (ARow2.Values[Tv1C_Name.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; + + if (ARow1.Values[Tv1Carno.Index] = ARow2.Values[Tv1Carno.Index]) and (ARow1.Values[Tv1Carno.Index] <> NULL) and (ARow2.Values[Tv1Carno.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList.Tv1CIMachNoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; + + if (ARow1.Values[Tv1CIMachNo.Index] = ARow2.Values[Tv1CIMachNo.Index]) and (ARow1.Values[Tv1CIMachNo.Index] <> NULL) and (ARow2.Values[Tv1CIMachNo.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList.Tv1C_NameCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; + + if (ARow1.Values[Tv1C_Name.Index] = ARow2.Values[Tv1C_Name.Index]) and (ARow1.Values[Tv1C_Name.Index] <> NULL) and (ARow2.Values[Tv1C_Name.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmTatClothInspHZList.Tv1dxmeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean); +begin + if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then + begin + AAreEqual := False; + exit; + end; +// if (ARow1.Values[Tv1C_Name.Index] <> ARow2.Values[Tv1C_Name.Index]) or (ARow1.Values[Tv1C_Name.Index] = NULL) or (ARow2.Values[Tv1C_Name.Index] = NULL) then +// begin +// AAreEqual := False; +// exit; +// end; + + if (ARow1.Values[Tv1dxmeter.Index] = ARow2.Values[Tv1dxmeter.Index]) and (ARow1.Values[Tv1dxmeter.Index] <> NULL) and (ARow2.Values[Tv1dxmeter.Index] <> NULL) then + AAreEqual := True + else + AAreEqual := False; + +end; + +procedure TfrmTatClothInspHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmTatClothInspHZList.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTatClothInspHZList.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTatClothInspHZList.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothInspHZList.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatClothInspHZList.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmTatClothInspHZList.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatClothInspHZList.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'Ϣ'); +end; + +end. + diff --git a/E03梭织坯布检验/U_TatClothInspList.dfm b/E03梭织坯布检验/U_TatClothInspList.dfm index 81e0f0f..b8c3fd6 100644 --- a/E03梭织坯布检验/U_TatClothInspList.dfm +++ b/E03梭织坯布检验/U_TatClothInspList.dfm @@ -185,7 +185,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList object ComboBox2: TComboBox Tag = 2 Left = 510 - Top = 1 + Top = 0 Width = 69 Height = 35 Hint = '1' @@ -420,6 +420,20 @@ inherited frmTatClothInspList: TfrmTatClothInspList Font.Style = [fsBold] ParentFont = False end + object Label16: TLabel + Left = 1145 + Top = 14 + Width = 26 + Height = 12 + Hint = '0' + Caption = #37096#38376 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object BegDate: TDateTimePicker Left = 96 Top = 10 @@ -596,6 +610,15 @@ inherited frmTatClothInspList: TfrmTatClothInspList TabOrder = 14 OnKeyPress = conNOKeyPress end + object dept: TEdit + Left = 1177 + Top = 10 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 15 + OnKeyPress = conNOKeyPress + end end object cxTabControl1: TcxTabControl [3] Left = 0 @@ -617,7 +640,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList ' '#27491#24335#25968#25454' ' ' '#21024#38500#25968#25454' ') OnChange = cxTabControl1Change - ExplicitTop = 136 ClientRectBottom = 445 ClientRectLeft = 2 ClientRectRight = 1465 @@ -637,8 +659,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList ParentFont = False PopupMenu = PM_1 TabOrder = 0 - ExplicitLeft = 4 - ExplicitTop = 31 object Tv1: TcxGridDBTableView OnMouseUp = Tv1MouseUp Navigator.Buttons.CustomButtons = <> @@ -1025,6 +1045,13 @@ inherited frmTatClothInspList: TfrmTatClothInspList HeaderAlignmentHorz = taCenter Width = 68 end + object Tv1C_MXSHWidth: TcxGridDBColumn + Caption = #25439#32791#38376#24133 + DataBinding.FieldName = 'C_MXSHWidth' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -1278,6 +1305,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList Top = 225 end object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 PopupMenus = <> Left = 860 Top = 470 diff --git a/E03梭织坯布检验/U_TatClothInspList.pas b/E03梭织坯布检验/U_TatClothInspList.pas index 0940dc2..0bcb054 100644 --- a/E03梭织坯布检验/U_TatClothInspList.pas +++ b/E03梭织坯布检验/U_TatClothInspList.pas @@ -138,6 +138,9 @@ type ComboBox1: TComboBox; Button7: TButton; MovePanel2: TMovePanel; + Label16: TLabel; + dept: TEdit; + Tv1C_MXSHWidth: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -272,34 +275,34 @@ end; procedure TfrmTatClothInspList.InitGrid(); var - WSql: string; + WSql1, WSql2: string; begin MovePanel2.Left := (self.Width - MovePanel2.Width) div 2; MovePanel2.Visible := True; MovePanel2.Refresh; - WSql := SGetFilters(Panel1, 1, 2); - if trim(WSql) <> '' then + WSql1 := SGetFilters(Panel1, 1, 2); + if WSql1 <> '' then begin - WSql := ' and ' + trim(WSql); + WSql1 := ' and ' + Trim(WSql1); + end; + + WSql2 := ''; + if dept.Text <> '' then + begin + WSql2 := WSql2 + ' and dept like ' + QuotedStr('%' + trim(dept.Text) + '%'); end; if trim(FWorkshop) <> '' then - WSql := WSql + ' and A.Workshop=''' + trim(FWorkshop) + ''''; + WSql1 := WSql1 + ' and Workshop=''' + trim(FWorkshop) + ''''; if IsJYTime.Checked then begin - WSql := WSql + ' and A.Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); - WSql := WSql + ' and A.Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); - end - else - begin - if trim(WSql) <> '' then - WSql := ' and 1=1' + trim(WSql) - else - WSql := WSql + ' and 1=2 '; + WSql1 := WSql1 + ' and A.Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql1 := WSql1 + ' and A.Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); end; - if trim(WSql) = 'and 1=2' then - Application.MessageBox('ѡڻ', 'ʾ', 0); + + if trim(WSql1) = '' then + Application.MessageBox('ѡ', 'ʾ', 0); try ADOQueryMain.DisableControls; @@ -320,7 +323,9 @@ begin sql.Add('@pageIndex=' + inttostr(CurrentPage)); sql.Add(',@pageSize=' + inttostr(RecordsNumber)); - sql.Add(',@criteria= ' + quotedstr(WSql)); + sql.Add(',@criteria= ' + quotedstr(WSql1)); + sql.Add(',@criteria2= ' + quotedstr(WSql2)); +// ShowMessage(SQL.Text); Open; end; SCreateCDS(ADOQueryMain, Order_Main); diff --git a/E03梭织坯布检验/U_TatMachCutHZList.dfm b/E03梭织坯布检验/U_TatMachCutHZList.dfm new file mode 100644 index 0000000..95d9d13 --- /dev/null +++ b/E03梭织坯布检验/U_TatMachCutHZList.dfm @@ -0,0 +1,513 @@ +inherited frmTatMachCutHZList: TfrmTatMachCutHZList + Left = 184 + Top = 138 + Caption = #26426#21488#20999#21106#27719#24635 + ClientHeight = 600 + ClientWidth = 1540 + FormStyle = fsMDIChild + Position = poScreenCenter + Visible = True + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 83 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatInsp.cxImageList_bar + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 63 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 126 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 190 + Top = 10 + Width = 39 + Height = 12 + Hint = '0' + Caption = #20135#21697#21517 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 88 + Top = 6 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Checked = True + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + State = cbChecked + TabOrder = 0 + OnClick = IsJYTimeClick + end + object C_Name: TEdit + Tag = 2 + Left = 237 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 5 + OnKeyPress = C_NameKeyPress + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 97 + Width = 1540 + Height = 503 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_1 + TabOrder = 2 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column6 + end + item + Kind = skSum + Column = Tv1Column1 + end + item + Kind = skSum + Column = Tv1Column7 + end + item + Kind = skSum + Column = Tv1Column8 + end + item + Kind = skSum + Column = Tv1Column9 + end + item + Kind = skSum + Column = Tv1Column10 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column13 + end + item + Kind = skSum + Column = Tv1Column14 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column17 + end + item + Kind = skSum + Column = Tv1Column18 + end + item + Kind = skSum + Column = Tv1Column19 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object Tv1Carno: TcxGridDBColumn + Caption = #26426#21488#21495 + DataBinding.FieldName = 'Carno' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column6: TcxGridDBColumn + Caption = #20248#31561#21367#25968 + DataBinding.FieldName = 'YDJs' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object Tv1Column1: TcxGridDBColumn + Caption = #20248#31561#31859#25968 + DataBinding.FieldName = 'Ydqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column9: TcxGridDBColumn + Caption = #23567#21367#21367#25968 + DataBinding.FieldName = 'xjJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column10: TcxGridDBColumn + Caption = #23567#21367#25968#37327 + DataBinding.FieldName = 'xjqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column7: TcxGridDBColumn + Caption = #20108#31561#21367#25968 + DataBinding.FieldName = 'edJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column8: TcxGridDBColumn + Caption = #20108#31561#31859#25968 + DataBinding.FieldName = 'edqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column17: TcxGridDBColumn + Caption = #27979#35797#21367#25968 + DataBinding.FieldName = 'csJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column18: TcxGridDBColumn + Caption = #27979#35797#31859#25968 + DataBinding.FieldName = 'csqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column13: TcxGridDBColumn + Caption = #20998#20999#21367#25968 + DataBinding.FieldName = 'fqJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column14: TcxGridDBColumn + Caption = #20998#20999#31859#25968 + DataBinding.FieldName = 'fqqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1fbJS: TcxGridDBColumn + Caption = #24223#24067#21367#25968 + DataBinding.FieldName = 'fbJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1fbqty: TcxGridDBColumn + Caption = #24223#24067#31859#25968 + DataBinding.FieldName = 'fbqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1Column19: TcxGridDBColumn + Caption = #25439#32791#24179#26041 + DataBinding.FieldName = 'SHpf' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object Tv1qgMeter: TcxGridDBColumn + Caption = #20999#21106#31859#25968 + DataBinding.FieldName = 'qgMeterNoGQ' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '0.00' + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1qgMeterGQ: TcxGridDBColumn + Caption = #25913#20999#31859#25968 + DataBinding.FieldName = 'qgMeterGQ' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1qgMeterAll: TcxGridDBColumn + Caption = #20135#37327#31859#25968 + DataBinding.FieldName = 'qgMeterAll' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1ZJJS: TcxGridDBColumn + Caption = #24635#35745#21367#25968 + DataBinding.FieldName = 'ZJJS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1ZJqty: TcxGridDBColumn + Caption = #24635#35745#31859#25968 + DataBinding.FieldName = 'ZJqty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatInsp.ADOLink + Left = 553 + Top = 200 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatInsp.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatInsp.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatInsp.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatInsp.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 828 + Top = 284 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 728 + Top = 288 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 776 + Top = 284 + end + object PM_1: TPopupMenu + Left = 560 + Top = 384 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + end +end diff --git a/E03梭织坯布检验/U_TatMachCutHZList.pas b/E03梭织坯布检验/U_TatMachCutHZList.pas new file mode 100644 index 0000000..2f5681e --- /dev/null +++ b/E03梭织坯布检验/U_TatMachCutHZList.pas @@ -0,0 +1,390 @@ +unit U_TatMachCutHZList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, + System.StrUtils, dxScrollbarAnnotations, cxCurrencyEdit; + +type + TfrmTatMachCutHZList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + Label5: TLabel; + C_Name: TEdit; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv1Column7: TcxGridDBColumn; + Tv1Column8: TcxGridDBColumn; + Tv1Column9: TcxGridDBColumn; + Tv1Column10: TcxGridDBColumn; + Tv1Column13: TcxGridDBColumn; + Tv1Column14: TcxGridDBColumn; + Tv1Column17: TcxGridDBColumn; + Tv1Column18: TcxGridDBColumn; + Tv1Column19: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Tv1fbJS: TcxGridDBColumn; + Tv1fbqty: TcxGridDBColumn; + Tv1ZJJS: TcxGridDBColumn; + Tv1ZJqty: TcxGridDBColumn; + Tv1Carno: TcxGridDBColumn; + Tv1qgMeter: TcxGridDBColumn; + Tv1qgMeterGQ: TcxGridDBColumn; + Tv1qgMeterAll: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure SetStatus(); + { Private declarations } + public + canshu1: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint; + +{$R *.dfm} + +procedure TfrmTatMachCutHZList.SetStatus(); +begin + +end; + +procedure TfrmTatMachCutHZList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmTatMachCutHZList.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmTatMachCutHZList.InitGrid(); +var + WSql,wsql1: string; + // Ӳѯɸѡʱ +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql := WSql + ' and A.FillTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and A.FillTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + WSql1 := ' and X.FillTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql1 := WSql1 + ' and X.FillTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + +// sql.Add('select max(C_NAME) as C_NAME, max(C_width) as C_width,max(C_GramWeight) as C_GramWeight,max(pcid) as pcid,A.Carno '); +// +// SQL.Add(' ,qgMeter=sum(meter+SHMeter)/ ISNULL(NULLIF(ISNULL((SELECT SUM(C_WidthNum) AS Total_C_WidthNum FROM ( '); +// SQL.Add(' SELECT distinct X.BCIOID,C_WidthNum FROM Bs_Cloth_IO X left join Tat_Cloth_Inspect Y on X.BCIOID = Y.BCIOID WHERE Y.Carno = A.Carno and X.C_WidthNum is not null ' + wsql1 + ' ) T), 0), 0), 1)'); +// +// +// SQL.Add(' ,qgC_WidthAll= ISNULL(NULLIF(ISNULL((SELECT SUM(C_WidthNum) AS Total_C_WidthNum FROM ( '); +// SQL.Add(' SELECT distinct X.BCIOID,C_WidthNum FROM Bs_Cloth_IO X left join Tat_Cloth_Inspect Y on X.BCIOID = Y.BCIOID WHERE Y.Carno = A.Carno and X.C_WidthNum is not null ' + wsql1 + ' ) T), 0), 0), 1)'); +// +// SQL.Add(',SHpf=SUM(CASE WHEN ISNUMERIC(SHMETER) = 1 AND ISNUMERIC(C_WIDTH) = 1 '); +// SQL.Add(' THEN CAST(SHMETER AS DECIMAL(18,2))/100 * CAST(C_WIDTH AS DECIMAL(18,2)) '); +// SQL.Add(' ELSE 0 END)'); +// SQL.Add(',SUM(CASE WHEN GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); +// SQL.Add(',SUM(CASE WHEN GRADE=''ŵƷ'' THEN meter ELSE 0 END )AS Ydqty'); +// SQL.Add(',SUM(CASE WHEN GRADE=''Ʒ'' THEN 1 ELSE 0 END )AS edJS'); +// SQL.Add(',SUM(CASE WHEN GRADE=''Ʒ'' THEN meter ELSE 0 END )AS edqty'); +// SQL.Add(',SUM(CASE WHEN GRADE=''С'' THEN 1 ELSE 0 END )AS xjJS'); +// SQL.Add(',SUM(CASE WHEN GRADE=''С'' THEN meter ELSE 0 END )AS xjqty'); +// SQL.Add(',SUM(CASE WHEN GRADE=''ϲ'' THEN 1 ELSE 0 END )AS fbJS'); +// SQL.Add(',SUM(CASE WHEN GRADE=''ϲ'' THEN meter ELSE 0 END )AS fbqty'); +// SQL.Add(',SUM(CASE WHEN GRADE='''' THEN 1 ELSE 0 END )AS fqJS'); +// SQL.Add(',SUM(CASE WHEN GRADE='''' THEN meter ELSE 0 END )AS fqqty'); +// SQL.Add(',SUM(CASE WHEN GRADE=''ѭ'' THEN 1 ELSE 0 END )AS xhJS'); +// SQL.Add(',SUM(CASE WHEN GRADE=''ѭ'' THEN meter ELSE 0 END )AS xhqty'); +// SQL.Add(',SUM(CASE WHEN GRADE='''' THEN 1 ELSE 0 END )AS csJS'); +// SQL.Add(',SUM(CASE WHEN GRADE='''' THEN meter ELSE 0 END )AS csqty'); +//// sql.add(',count(*) as ZJJS,sum(Meter) as ZJqty'); +//// ZJJSѭ +// SQL.Add(', SUM(CASE WHEN GRADE IN (''ŵƷ'',''Ʒ'',''С'',''ϲ'','''','''') THEN 1 ELSE 0 END) as ZJJS'); +//// ZJqtyѭ +// SQL.Add(', SUM(CASE WHEN GRADE IN (''ŵƷ'',''Ʒ'',''С'',''ϲ'','''','''') THEN Meter ELSE 0 END) as ZJqty'); +// SQL.Add('from Tat_Cloth_Inspect A '); +// SQL.Add('where Carno <>'''' and Carno is not NULL '); +// SQL.Add(WSql); +// sql.Add(' group by Carno'); + sql.Add(' ExEC P_Select_TatMachCutHZ '); + sql.Add(' @wsql = ' + quotedStr(wsql)); + sql.Add(' ,@wsql1 = ' + quotedStr(wsql1)); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + +procedure TfrmTatMachCutHZList.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmTatMachCutHZList.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatMachCutHZList.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmTatMachCutHZList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmTatMachCutHZList.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmTatMachCutHZList.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + end; +end; + +procedure TfrmTatMachCutHZList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTatMachCutHZList.FormShow(Sender: TObject); +begin + inherited; + +// ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '̨и'); + CurrentPage := 1; + RecordsNumber := 500; + canshu1 := Trim(Self.fParameters1); + BegDate.DateTime := SGetServerDate(ADOQueryCmd); + EndDate.DateTime := BegDate.DateTime; + + SetStatus(); + InitGrid(); + +end; + +procedure TfrmTatMachCutHZList.TBExportClick(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + exit; + TcxGridToExcel(Self.Caption, cxGrid1); +end; + +procedure TfrmTatMachCutHZList.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmTatMachCutHZList.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmTatMachCutHZList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmTatMachCutHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmTatMachCutHZList.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmTatMachCutHZList.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmTatMachCutHZList.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatMachCutHZList.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmTatMachCutHZList.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmTatMachCutHZList.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmTatMachCutHZList.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '̨и'); +end; + +end. + diff --git a/E03梭织坯布检验/U_TatMachInsp.dfm b/E03梭织坯布检验/U_TatMachInsp.dfm index 3b29a1a..5ddeff6 100644 --- a/E03梭织坯布检验/U_TatMachInsp.dfm +++ b/E03梭织坯布检验/U_TatMachInsp.dfm @@ -2,20 +2,20 @@ Left = 234 Top = 20 Caption = #25104#21697#26816#39564 - ClientHeight = 772 + ClientHeight = 784 ClientWidth = 1540 FormStyle = fsMDIChild Position = poScreenCenter Visible = True ExplicitWidth = 1556 - ExplicitHeight = 811 + ExplicitHeight = 823 PixelsPerInch = 96 TextHeight = 12 object Panel9: TPanel [0] Left = 0 Top = 0 Width = 587 - Height = 772 + Height = 784 Align = alLeft Color = clWhite ParentBackground = False @@ -24,7 +24,7 @@ Left = 1 Top = 279 Width = 585 - Height = 492 + Height = 504 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -281,7 +281,7 @@ TabOrder = 0 object Label12: TLabel Left = 11 - Top = 6 + Top = 8 Width = 62 Height = 34 Caption = #36873#25321 @@ -295,7 +295,7 @@ end object SEL1: TEdit Left = 79 - Top = 3 + Top = 0 Width = 70 Height = 41 Hint = '1' @@ -618,15 +618,15 @@ end end object PNL1_2: TPanel - Left = 239 - Top = 276 - Width = 341 + Left = 4 + Top = 309 + Width = 574 Height = 27 TabOrder = 3 Visible = False object Label37: TLabel Left = 11 - Top = 6 + Top = 0 Width = 62 Height = 34 Caption = #32534#21495 @@ -1269,8 +1269,8 @@ TabOrder = 2 Visible = False object Label43: TLabel - Left = 3 - Top = 6 + Left = 11 + Top = 12 Width = 62 Height = 34 Caption = #32534#21495 @@ -3375,8 +3375,8 @@ #20998#20999) end object grade: TcxButtonEdit - Left = 252 - Top = 348 + Left = 262 + Top = 338 Properties.Buttons = < item Default = True @@ -3752,8 +3752,8 @@ OnClick = CIFBegClick end object edtScan: TEdit - Left = 85 - Top = 12 + Left = 83 + Top = 9 Width = 185 Height = 27 Font.Charset = GB2312_CHARSET @@ -4023,7 +4023,7 @@ OnClick = tubeClick end object Packaging: TEdit - Left = 272 + Left = 267 Top = 186 Width = 65 Height = 27 @@ -4037,7 +4037,7 @@ OnClick = PackagingClick end object Seal: TEdit - Left = 392 + Left = 387 Top = 186 Width = 90 Height = 27 @@ -4098,7 +4098,7 @@ Left = 787 Top = 0 Width = 332 - Height = 772 + Height = 784 Align = alLeft TabOrder = 0 Visible = False @@ -4773,7 +4773,7 @@ Left = 1119 Top = 0 Width = 421 - Height = 772 + Height = 784 Align = alClient Caption = 'Panel4' TabOrder = 1 @@ -4781,7 +4781,7 @@ Left = 1 Top = 129 Width = 419 - Height = 411 + Height = 423 Align = alClient TabOrder = 0 object Tv3: TcxGridDBTableView @@ -4921,7 +4921,7 @@ end object cxPageControl1: TcxPageControl Left = 1 - Top = 540 + Top = 552 Width = 419 Height = 231 Align = alBottom @@ -5329,7 +5329,7 @@ Left = 587 Top = 0 Width = 200 - Height = 772 + Height = 784 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -5337,7 +5337,6 @@ ParentBackground = False TabOrder = 3 Visible = False - ExplicitLeft = 588 object Label35: TLabel Left = 27 Top = 55 @@ -6018,7 +6017,7 @@ end object SpeedButton19: TSpeedButton Left = 284 - Top = -1 + Top = 0 Width = 171 Height = 70 Caption = #36873#25321#38376#24133 diff --git a/E03梭织坯布检验/U_TatMachInsp.pas b/E03梭织坯布检验/U_TatMachInsp.pas index 190939c..e6c5abd 100644 --- a/E03梭织坯布检验/U_TatMachInsp.pas +++ b/E03梭织坯布检验/U_TatMachInsp.pas @@ -554,6 +554,7 @@ type FLoom, FBatchNO, FLenUnit, FC_Code, FC_Name, FC_Spec, FC_Width, FC_GramWeight: string; FC_Color, FC_ColorNo, FC_StyleNo, FC_Pattern, FC_CustPattern, FC_ColorDepth: string; FFtyPCId, FGangNo, FBCIOID, fmxid: string; + FMFFlag: string; FPieceNo, FXJCount: Integer; IsCommopen: boolean; FNAME, FCODE, FMF, FMETER, FKG, fsunhao, FSHREASON, FYMETER, FYWIDTH, fyciid: string; @@ -1152,10 +1153,47 @@ begin end; procedure TfrmTatMachInsp.SEL1Click(Sender: TObject); +var + mMFID: string; + mIDNum: Integer; begin initclearsel(); TcxTextEdit(Sender).Text := ''; + + mIDNum := StrToInt(TEdit(Sender).Hint); +// mIDNum := StrToIntDef(TEdit(Sender).Hint, 0); + mMFID := TEdit(FindComponent('CODE' + Trim(IntToStr(mIDNum)))).Text; + if FMFFlag = '' then + begin + with ADOQueryMain do + begin + close; + sql.Clear; + sql.Add('select DISTINCT max(B.tube) as tube,max(B.Packaging) as Packaging,max(B.Seal) as Seal from BS_CLOTH_MF A '); + SQL.Add(' FULL JOIN BS_CLOTH_IO_MX B on A.C_CODE = B.C_MXCODE '); + SQL.Add(' WHERE A.MFID =' + QuotedStr(Trim(mMFID))); + SQL.Add(' Group By A.C_CODE,A.C_MXMF '); + +// SQL.Add(' select * from BS_CLOTH_MF where MFID = ' + QuotedStr(Trim(mMFID))); + Open; + end; + end + else if FMFFlag = '' then + begin + with ADOQueryMain do + begin + close; + sql.Clear; + SQL.Add(' select * from BS_CLOTH_IO_MX where MXID = ' + QuotedStr(Trim(mMFID))); + Open; + end; + end; + + tube.Text := ADOQueryMain.FieldByName('tube').AsString; // ֽ + Packaging.Text := ADOQueryMain.FieldByName('Packaging').AsString; //װ + Seal.Text := ADOQueryMain.FieldByName('Seal').AsString; // + end; procedure TfrmTatMachInsp.SetINIFile(); @@ -1561,7 +1599,7 @@ begin Application.MessageBox('δⲻܲ!', 'ʾ', 0); Exit; end; - + ////////״̬Ϊܲ try ADOCMD.Connection.BeginTrans; @@ -1629,6 +1667,7 @@ begin FOperationStatus := ''; fyciid := Trim(MCIID); FBCIOID := Trim(ADOTmp.fieldbyname('BCIOID').AsString); +// FBCIOID := ''; FC_Code := Trim(ADOTmp.fieldbyname('C_Code').AsString); FC_Name := Trim(ADOTmp.fieldbyname('C_Name').AsString); FC_Spec := Trim(ADOTmp.fieldbyname('C_Spec').AsString); @@ -1696,6 +1735,7 @@ begin InitJYGrid(); InitCDGrid(FCIID); edtScan.Text := ''; + end; end; @@ -2848,16 +2888,22 @@ begin MCIID := Trim(maxno); // FCIID := Trim(maxno); - if fcode <> '' then +// if fcode <> '' then + if FMFFlag = '' then begin with ADOCmd do begin Close; SQL.Clear; - sql.Add('update Tat_Cloth_Inspect set tube=a.tube,Packaging=a.Packaging,Seal=a.Seal,ISSP=A.ISSP from Bs_Cloth_IO_mx a'); +// sql.Add('update Tat_Cloth_Inspect set tube=a.tube,Packaging=a.Packaging,Seal=a.Seal,ISSP=A.ISSP from Bs_Cloth_IO_mx a'); +// sql.Add(' where Tat_Cloth_Inspect.mxid=a.mxid and Tat_Cloth_Inspect.ciid =''' + Trim(maxno) + ''''); + sql.Add('update Tat_Cloth_Inspect set tube= ' + QuotedStr(tube.Text)); + sql.Add(',Packaging= ' + QuotedStr(Packaging.Text)); + sql.Add(',Seal= ' + QuotedStr(Seal.Text)); + sql.Add(' ,ISSP=A.ISSP from Bs_Cloth_IO_mx a'); sql.Add(' where Tat_Cloth_Inspect.mxid=a.mxid and Tat_Cloth_Inspect.ciid =''' + Trim(maxno) + ''''); +// ShowMessage(sql.Text); execsql; - end; if grade.Text = 'ѭ' then @@ -3077,6 +3123,7 @@ var fPrintFile: string; mvalue: Double; i, J, FXJINT: Integer; + tempValue: Double; ///֤Ϊ begin CodeName.SetFocus; @@ -3095,6 +3142,11 @@ begin Application.MessageBox('붨', 'ʾϢ', MB_OK); Exit; end; + if not TryStrToFloat(DXMETER.Text, tempValue) then + begin + Application.MessageBox('֣', 'ʾϢ', MB_OK); + Exit; + end; J := 0; BTPrint.Enabled := FALSE; @@ -3466,7 +3518,9 @@ end; procedure TfrmTatMachInsp.SpeedButton19Click(Sender: TObject); var FXJINT, I, J: Integer; + mIDNum: Integer; FFMF, FFMXID: string; + mMFID: string; begin J := 0; @@ -3546,41 +3600,89 @@ begin Exit; end; - if FBCIOID <> '' then - begin - try - frmSCPersonColor := TfrmSCPersonColor.Create(self); - with frmSCPersonColor do + try + frmSCPersonColor := TfrmSCPersonColor.Create(self); + with frmSCPersonColor do + begin + FBCIOID := SELF.FBCIOID; + FC_Code := Self.FC_Code; + FMFFlag := Self.FMFFlag; + if ShowModal = 1 then begin - FBCIOID := SELF.FBCIOID; - if ShowModal = 1 then - begin - FFMF := Trim(FName); - FFMXID := Trim(FHINT); + FFMF := Trim(FName); + FFMXID := Trim(FHINT); // TEdit(FindComponent('MF' + Trim(IntToStr(FXJINT)))).Text := Trim(FName); // TEdit(FindComponent('CODE' + Trim(IntToStr(FXJINT)))).Text := Trim(FHINT); // TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := Trim(FName); - end; end; - finally - frmSCPersonColor.close; end; + finally + frmSCPersonColor.close; end; + if FFMF = '' then EXIT; TEdit(FindComponent('CODE' + Trim(IntToStr(FXJINT)))).Text := Trim(FFMXID); - with ADOTmp do +// if FBCIOID = '' then + if FMFFlag = '' then begin - Close; - sql.Clear; - sql.Add('SELECT A.* FROM Bs_Cloth_IO_MX A where A.MXID=''' + Trim(FFMXID) + ''''); - Open; + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('SELECT A.* FROM Bs_Cloth_MF A where A.MFID=''' + Trim(FFMXID) + ''''); + Open; + end; + TEdit(FindComponent('MF' + Trim(IntToStr(FXJINT)))).Text := ADOTmp.FieldByName('C_MXMF').AsString; + end + else + begin + with ADOTmp do + begin + Close; + sql.Clear; + sql.Add('SELECT A.* FROM Bs_Cloth_IO_MX A where A.MXID=''' + Trim(FFMXID) + ''''); + Open; + end; + TEdit(FindComponent('MF' + Trim(IntToStr(FXJINT)))).Text := ADOTmp.FieldByName('C_MXWIDTH').AsString; end; - TEdit(FindComponent('MF' + Trim(IntToStr(FXJINT)))).Text := ADOTmp.FieldByName('C_MXWIDTH').AsString; + mIDNum := FXJINT; +// mIDNum := StrToIntDef(TEdit(Sender).Hint, 0); + mMFID := TEdit(FindComponent('CODE' + Trim(IntToStr(mIDNum)))).Text; + if FMFFlag = '' then + begin + with ADOQueryMain do + begin + close; + sql.Clear; + sql.Add('select DISTINCT max(B.tube) as tube,max(B.Packaging) as Packaging,max(B.Seal) as Seal from BS_CLOTH_MF A '); + SQL.Add(' FULL JOIN BS_CLOTH_IO_MX B on A.C_CODE = B.C_MXCODE '); + SQL.Add(' WHERE A.MFID =' + QuotedStr(Trim(mMFID))); + SQL.Add(' Group By A.C_CODE,A.C_MXMF '); + +// SQL.Add(' select * from BS_CLOTH_MF where MFID = ' + QuotedStr(Trim(mMFID))); + Open; + end; + end + else if FMFFlag = '' then + begin + with ADOQueryMain do + begin + close; + sql.Clear; + SQL.Add(' select * from BS_CLOTH_IO_MX where MXID = ' + QuotedStr(Trim(mMFID))); + Open; + end; + end; + + tube.Text := ADOQueryMain.FieldByName('tube').AsString; // ֽ + Packaging.Text := ADOQueryMain.FieldByName('Packaging').AsString; //װ + Seal.Text := ADOQueryMain.FieldByName('Seal').AsString; // + end; @@ -3794,10 +3896,14 @@ begin close; sql.Clear; sql.Add('select * from Tat_Cloth_Inspect where CIID=''' + Trim(edtScan.Text) + ''' '); +// ShowMessage(sql.Text); open; end; if ADOTmp.IsEmpty = FALSE then begin + batchno.Text := ADOTmp.FieldByName('batchno').AsString; + PCID.Text := ADOTmp.FieldByName('PCID').AsString; + DXMETER.Text := ADOTmp.FieldByName('DXMETER').AsString; if Application.MessageBox('Ƿг⣿', 'ʾ', 32 + 4) <> IDYES then begin edtScan.Text := ''; @@ -3805,6 +3911,7 @@ begin end else begin + FMFFlag := '';//ΪѡŷʱжϣΪѡƷŷ InitJTM(edtScan.Text); end; @@ -3812,6 +3919,7 @@ begin else begin ClearGlobal(); + FMFFlag := '';//ΪѡŷʱжϣΪѡƷŷ FOperationStatus := 'Ʊ'; InitLCK(edtScan.Text); InitJYGrid(); diff --git a/E03梭织坯布检验/testDll.identcache b/E03梭织坯布检验/testDll.identcache index 3320f1431dc558fcc5bb6929bca19d39d0c85efb..da925558296c296a5ba4c1654be7326a3845205d 100644 GIT binary patch delta 31 hcmdnMxQUUKiGhK^dt#Itqx-}L14d6MOMIe}H~@Fg2nGNE delta 24 dcmdnQxPg(CiGhK^V`8k@#1=h9FA%L`002r}23G(8 diff --git a/E03梭织坯布检验/testDll.res b/E03梭织坯布检验/testDll.res index 2465ca0e30696a8467f3b1371b2f343eab2cd121..e116c482ff64a90aae29d14ae002699b9b83f166 100644 GIT binary patch delta 12 TcmaDO`9^ZX3mz6m1_lNIB7g(5 delta 12 TcmaDO`9^ZX3m%rnDGUq%COibl diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local index 0d69f47..fe04787 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj.local +++ b/E04梭织坯布仓库/TatClothStk.dproj.local @@ -1,71 +1,71 @@  - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899/12/30 00:00:00.000.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas + 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas + 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas= + 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm + 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj 1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm - 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm - 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm - 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas - 1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas - 1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas= - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm - 1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm + 1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm + 1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm 1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.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.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas + 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas + 1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm 1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas 1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas= + 1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas= 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899/12/30 00:00:00.000.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj + 1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas= - 1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas + 1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm + 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas 1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas - 1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm - 1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas + 1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.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.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm - 1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas= - 1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas - 1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm - 1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= - 1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas - 1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas - 1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas + 1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas + 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas + 1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas= + 1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas= + 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas diff --git a/E04梭织坯布仓库/U_GetDllForm.pas b/E04梭织坯布仓库/U_GetDllForm.pas index 7e50b91..ef2ca5e 100644 --- a/E04梭织坯布仓库/U_GetDllForm.pas +++ b/E04梭织坯布仓库/U_GetDllForm.pas @@ -78,7 +78,8 @@ begin dtbase := 'xiangyingszdata'; user := 'xiangyingsa'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; - Parameters1 := 'ѯ'; +// Parameters1 := 'ѯ'; + Parameters1 := ''; Parameters2 := ''; end else diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.dfm b/E04梭织坯布仓库/U_TatClothCKHZList.dfm index f215625..36dde76 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothCKHZList.dfm @@ -181,9 +181,9 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList ParentFont = False PopupMenu = PM_1 TabOrder = 2 - ExplicitTop = 143 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -251,6 +251,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList object v1Column22: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -258,27 +259,79 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Options.Sorting = False Width = 66 end + object Tv1IOTime: TcxGridDBColumn + Caption = #20986#24211#26102#38388 + DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 100 + end + object Tv1DRMID: TcxGridDBColumn + Caption = #21457#36135#30003#35831 + DataBinding.FieldName = 'IONo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 92 + end + object Tv1ToCoName: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object Tv1Column3: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 end + object Tv1C_Width: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end + object Tv1C_GramWeight: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 90 + end object v1Column23: TcxGridDBColumn Caption = #21367#25968 DataBinding.FieldName = 'js' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 end object v1Column10: TcxGridDBColumn Caption = #31859#25968 - DataBinding.FieldName = 'stkMeter' + DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 end + object Tv1NetWeight: TcxGridDBColumn + Caption = #20844#26020 + DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end + object Tv1PF: TcxGridDBColumn + Caption = #24179#26041 + DataBinding.FieldName = 'PF' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -301,8 +354,8 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Properties.Style = 9 Properties.TabIndex = 0 Properties.Tabs.Strings = ( - #26377#26465#30721#20986#24211#27719#24635 - #26080#26465#30721#20986#24211#27719#24635) + #26377#20986#24211#21333#20986#24211 + #26080#20986#24211#21333#20986#24211) OnChange = cxTabControl1Change ClientRectBottom = 32 ClientRectRight = 1540 diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.pas b/E04梭织坯布仓库/U_TatClothCKHZList.pas index 69b821b..a97296c 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.pas +++ b/E04梭织坯布仓库/U_TatClothCKHZList.pas @@ -13,7 +13,7 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, - System.StrUtils; + System.StrUtils, dxScrollbarAnnotations; type TfrmTatClothCKHZList = class(TfrmBaseList) @@ -48,6 +48,13 @@ type PM11: TMenuItem; N1: TMenuItem; cxTabControl1: TcxTabControl; + Tv1DRMID: TcxGridDBColumn; + Tv1ToCoName: TcxGridDBColumn; + Tv1C_Width: TcxGridDBColumn; + Tv1C_GramWeight: TcxGridDBColumn; + Tv1NetWeight: TcxGridDBColumn; + Tv1PF: TcxGridDBColumn; + Tv1IOTime: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -120,8 +127,8 @@ begin WSql := ' and ' + WSql; if IsJYTime.Checked then begin - WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); - WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + WSql := WSql + ' and A.IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and A.IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); end; try @@ -133,16 +140,20 @@ begin Close; sql.Clear; - sql.Add('select C_NAME,COUNT(*)JS,SUM(Meter)stkMeter,SUM(Yardage)StkYardage FROM V_Tat_Cloth_IO A where A.IOFlag = '''' ' + WSql); - if cxTabControl1.TabIndex = 0 then - begin - SQL.Add('AND CHARINDEX(''T'',STKID )>0'); - end - else - begin - SQL.Add('AND CHARINDEX(''S'',STKID )>0'); - end; - sql.Add('group by C_NAME'); + sql.Add('SELECT A.C_CODE,A.C_Name,A.C_Width,A.C_GramWeight,A.IONo '); + sql.Add(',ToCoName=max(B.ToCoName),ioTime=min(ioTime) '); + sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); + sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) '); + sql.Add(' FROM V_Tat_Cloth_IO A '); + sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); + sql.Add(' where A.IOFlag = '''' and A.IONo<>'''' and A.IONo is not null '); + sql.Add(WSql); + SQL.Add(' group by A.C_CODE ,A.C_Width,A.C_GramWeight,A.IONo,A.C_Name'); + SQL.Add(' order by A.IONo'); + + + + // showmessage(sql.text); Open; @@ -219,7 +230,8 @@ begin CurrentPage := 1; RecordsNumber := 500; canshu1 := Trim(Self.fParameters1); - + EndDate.DateTime := SGetServerDate(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; SetStatus(); InitGrid(); end; diff --git a/E04梭织坯布仓库/U_TatClothInList.dfm b/E04梭织坯布仓库/U_TatClothInList.dfm index 8f2e5a1..af4e605 100644 --- a/E04梭织坯布仓库/U_TatClothInList.dfm +++ b/E04梭织坯布仓库/U_TatClothInList.dfm @@ -7,7 +7,6 @@ inherited frmTatClothInList: TfrmTatClothInList FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitLeft = -359 ExplicitWidth = 1556 ExplicitHeight = 650 PixelsPerInch = 96 @@ -236,6 +235,34 @@ inherited frmTatClothInList: TfrmTatClothInList Font.Style = [fsBold] ParentFont = False end + object Label4: TLabel + Left = 847 + Top = 36 + Width = 26 + Height = 12 + Hint = '0' + Caption = #37096#38376 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label8: TLabel + Left = 1012 + Top = 9 + Width = 52 + Height = 12 + Hint = '0' + Caption = #20837#24211#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object BegDate: TDateTimePicker Left = 88 Top = 6 @@ -382,6 +409,30 @@ inherited frmTatClothInList: TfrmTatClothInList TabOrder = 13 OnKeyPress = carnoKeyPress end + object dept: TEdit + Tag = 2 + Left = 892 + Top = 32 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 14 + OnKeyPress = carnoKeyPress + end + object IOType: TComboBox + Tag = 1 + Left = 1070 + Top = 6 + Width = 100 + Height = 20 + TabOrder = 15 + OnChange = IOTypeChange + Items.Strings = ( + '' + #26816#39564#20837#24211 + #38144#21806#20986#24211 + #26399#21021#20837#24211) + end end object Panel6: TPanel [2] Left = 0 diff --git a/E04梭织坯布仓库/U_TatClothInList.pas b/E04梭织坯布仓库/U_TatClothInList.pas index 52b030d..5ecf600 100644 --- a/E04梭织坯布仓库/U_TatClothInList.pas +++ b/E04梭织坯布仓库/U_TatClothInList.pas @@ -105,6 +105,10 @@ type Tv1Column13: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn; Tv1Column16: TcxGridDBColumn; + Label4: TLabel; + dept: TEdit; + IOType: TComboBox; + Label8: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -130,6 +134,7 @@ type procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure carnoKeyPress(Sender: TObject; var Key: Char); + procedure IOTypeChange(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; @@ -197,7 +202,7 @@ begin sql.Add(' from '); sql.Add('(select rownumber=cast((row_number() over(order by A.IOTime desc)) as int)'); sql.Add(',COUNT(1) OVER() AS TotalCount'); - sql.Add(',* from V_Tat_Cloth_IO A where A.IOFlag = '''' ' + WSql); + sql.Add(',* from V_Tat_Cloth_IO A where (A.IOFlag = '''' ) ' + WSql); sql.Add(') temp_row'); sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber))); sql.Add(' order by rownumber'); @@ -214,6 +219,11 @@ begin end; +procedure TfrmTatClothInList.IOTypeChange(Sender: TObject); +begin + InitGrid(); +end; + procedure TfrmTatClothInList.TBRafreshClick(Sender: TObject); begin CurrentPage := 1; @@ -258,6 +268,7 @@ begin RecordsNumber := 500; SetStatus(); + InitGrid(); end; procedure TfrmTatClothInList.TBExportClick(Sender: TObject); diff --git a/E04梭织坯布仓库/U_TatClothOutList.dfm b/E04梭织坯布仓库/U_TatClothOutList.dfm index bf0b1a1..3b52468 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.dfm +++ b/E04梭织坯布仓库/U_TatClothOutList.dfm @@ -235,6 +235,20 @@ inherited frmTatClothOutList: TfrmTatClothOutList Font.Style = [fsBold] ParentFont = False end + object Label6: TLabel + Left = 831 + Top = 36 + Width = 26 + Height = 12 + Hint = '0' + Caption = #37096#38376 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object BegDate: TDateTimePicker Left = 88 Top = 6 @@ -309,6 +323,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '0' TabOrder = 6 + OnKeyPress = orderNoKeyPress end object STKID: TEdit Tag = 2 @@ -318,6 +333,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '1' TabOrder = 7 + OnKeyPress = orderNoKeyPress end object C_Name: TEdit Tag = 2 @@ -327,6 +343,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '0' TabOrder = 8 + OnKeyPress = orderNoKeyPress end object C_Color: TEdit Tag = 2 @@ -336,6 +353,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '0' TabOrder = 9 + OnKeyPress = orderNoKeyPress end object C_Pattern: TEdit Tag = 2 @@ -345,6 +363,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '0' TabOrder = 10 + OnKeyPress = orderNoKeyPress end object C_Code: TEdit Tag = 2 @@ -354,6 +373,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '0' TabOrder = 11 + OnKeyPress = orderNoKeyPress end object jyg: TEdit Tag = 2 @@ -363,6 +383,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '0' TabOrder = 12 + OnKeyPress = orderNoKeyPress end object carno: TEdit Tag = 1 @@ -372,9 +393,21 @@ inherited frmTatClothOutList: TfrmTatClothOutList Height = 20 Hint = '0' TabOrder = 13 + OnKeyPress = orderNoKeyPress + end + object dept: TEdit + Tag = 2 + Left = 871 + Top = 32 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 14 + OnKeyPress = orderNoKeyPress end end object Panel6: TPanel [2] + Tag = 2 Left = 0 Top = 105 Width = 1540 diff --git a/E04梭织坯布仓库/U_TatClothOutList.pas b/E04梭织坯布仓库/U_TatClothOutList.pas index 9a75cc7..ffb599d 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.pas +++ b/E04梭织坯布仓库/U_TatClothOutList.pas @@ -102,6 +102,8 @@ type Label4: TLabel; carno: TEdit; Tv1Column1: TcxGridDBColumn; + Label6: TLabel; + dept: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -193,7 +195,8 @@ begin sql.Add(' from '); sql.Add('(select rownumber=cast((row_number() over(order by A.IOTime desc)) as int)'); sql.Add(',COUNT(1) OVER() AS TotalCount'); - sql.Add(',* from V_Tat_Cloth_IO A where A.IOFlag = '''' ' + WSql); + sql.Add(',ToCoName = ( select ToCoName from Tat_Cloth_DR_Main X where X.DRMID = A.IONo )'); + sql.Add(',A.* from V_Tat_Cloth_IO A where A.IOFlag = '''' ' + WSql); sql.Add(') temp_row'); sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber))); sql.Add(' order by rownumber'); @@ -255,6 +258,8 @@ begin FWorkshop := self.fParameters3; SetStatus(); + + InitGrid(); end; procedure TfrmTatClothOutList.TBExportClick(Sender: TObject); diff --git a/E04梭织坯布仓库/U_TatClothRKHZList.dfm b/E04梭织坯布仓库/U_TatClothRKHZList.dfm index 32bfb3c..4d1643e 100644 --- a/E04梭织坯布仓库/U_TatClothRKHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothRKHZList.dfm @@ -77,7 +77,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitTop = 44 object Label2: TLabel Left = 70 Top = 36 @@ -99,6 +98,62 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList Font.Style = [fsBold] ParentFont = False end + object Label1: TLabel + Left = 358 + Top = 10 + Width = 26 + Height = 12 + Hint = '0' + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 190 + Top = 36 + Width = 26 + Height = 12 + Hint = '0' + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 534 + Top = 10 + Width = 52 + Height = 12 + Hint = '0' + Caption = #20837#24211#31867#22411 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label6: TLabel + Left = 358 + Top = 36 + Width = 52 + Height = 12 + Hint = '0' + Caption = #27969#36716#21345#21495 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object BegDate: TDateTimePicker Left = 88 Top = 6 @@ -145,12 +200,14 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList Width = 73 Height = 17 Caption = #26597#35810#26085#26399 + Checked = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False + State = cbChecked TabOrder = 0 OnClick = IsJYTimeClick end @@ -164,6 +221,50 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList TabOrder = 5 OnKeyPress = C_NameKeyPress end + object C_Width: TEdit + Tag = 2 + Left = 415 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 6 + OnKeyPress = C_NameKeyPress + end + object C_GramWeight: TEdit + Tag = 2 + Left = 237 + Top = 32 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 7 + OnKeyPress = C_NameKeyPress + end + object IOType: TComboBox + Tag = 2 + Left = 591 + Top = 6 + Width = 100 + Height = 20 + TabOrder = 8 + OnChange = IOTypeChange + Items.Strings = ( + #26816#39564#20837#24211 + #26399#21021#20837#24211 + #27979#35797#20837#24211 + #36864#36135#20837#24211) + end + object PCID: TEdit + Tag = 2 + Left = 415 + Top = 32 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 9 + OnKeyPress = C_NameKeyPress + end end object cxGrid1: TcxGrid [2] Left = 0 @@ -180,7 +281,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList ParentFont = False PopupMenu = PM_1 TabOrder = 2 - ExplicitTop = 111 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -235,6 +335,50 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList end item Kind = skSum + end + item + Kind = skSum + Column = Tv1Column6 + end + item + Kind = skSum + Column = Tv1Column1 + end + item + Kind = skSum + Column = Tv1Column7 + end + item + Kind = skSum + Column = Tv1Column8 + end + item + Kind = skSum + Column = Tv1Column9 + end + item + Kind = skSum + Column = Tv1Column10 + end + item + Kind = skSum + Column = Tv1Column13 + end + item + Kind = skSum + Column = Tv1Column14 + end + item + Kind = skSum + Column = Tv1Column17 + end + item + Kind = skSum + Column = Tv1Column18 + end + item + Kind = skSum + Column = Tv1Column19 end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False @@ -265,6 +409,13 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList Options.Editing = False Width = 66 end + object Tv1IOType: TcxGridDBColumn + Caption = #20837#24211#31867#22411 + DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end object Tv1Column2: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_width' @@ -328,20 +479,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList HeaderAlignmentHorz = taCenter Width = 80 end - object Tv1Column11: TcxGridDBColumn - Caption = #24223#24067#21367#25968 - DataBinding.FieldName = 'fbJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column12: TcxGridDBColumn - Caption = #24223#24067#25968#37327 - DataBinding.FieldName = 'fbqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end object Tv1Column13: TcxGridDBColumn Caption = #20998#20999#21367#25968 DataBinding.FieldName = 'fqJS' @@ -356,20 +493,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList HeaderAlignmentHorz = taCenter Width = 80 end - object Tv1Column15: TcxGridDBColumn - Caption = #24490#29615#24067#21367#25968 - DataBinding.FieldName = 'xhJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 76 - end - object Tv1Column16: TcxGridDBColumn - Caption = #24490#29615#24067#25968#37327 - DataBinding.FieldName = 'xhqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 79 - end object Tv1Column17: TcxGridDBColumn Caption = #27979#35797#21367#25968 DataBinding.FieldName = 'csJS' diff --git a/E04梭织坯布仓库/U_TatClothRKHZList.pas b/E04梭织坯布仓库/U_TatClothRKHZList.pas index 2bb096d..3d5c389 100644 --- a/E04梭织坯布仓库/U_TatClothRKHZList.pas +++ b/E04梭织坯布仓库/U_TatClothRKHZList.pas @@ -54,15 +54,20 @@ type Tv1Column8: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; - Tv1Column11: TcxGridDBColumn; - Tv1Column12: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn; - Tv1Column15: TcxGridDBColumn; - Tv1Column16: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn; Tv1Column19: TcxGridDBColumn; + Label1: TLabel; + C_Width: TEdit; + Label3: TLabel; + C_GramWeight: TEdit; + Tv1IOType: TcxGridDBColumn; + IOType: TComboBox; + Label4: TLabel; + Label6: TLabel; + PCID: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -86,6 +91,7 @@ type procedure N1Click(Sender: TObject); procedure IsJYTimeClick(Sender: TObject); procedure C_NameKeyPress(Sender: TObject; var Key: Char); + procedure IOTypeChange(Sender: TObject); private CurrentPage, RecordsNumber: Integer; lstCust: TStringList; @@ -147,7 +153,7 @@ begin Close; sql.Clear; - sql.Add('select C_NAME, C_width,C_GramWeight,pcid '); + sql.Add('select C_NAME, C_width,C_GramWeight,pcid,max(IOType) as IOType '); SQL.Add(',pf=SUM(meter/100*CAST(C_WIDTH AS DECIMAL(18,2)))'); SQL.Add(',SUM(CASE WHEN GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); SQL.Add(',SUM(CASE WHEN GRADE=''ŵƷ'' THEN meter ELSE 0 END )AS Ydqty'); @@ -164,7 +170,7 @@ begin SQL.Add(',SUM(CASE WHEN GRADE='''' THEN 1 ELSE 0 END )AS csJS'); SQL.Add(',SUM(CASE WHEN GRADE='''' THEN meter ELSE 0 END )AS csqty'); - SQL.Add('from V_Tat_Cloth_IO A where A.IOFlag = '''' ' + WSql); + SQL.Add('from V_Tat_Cloth_IO A where (A.IOFlag = '''' ) ' + WSql); sql.Add('group by C_NAME, C_width,C_GramWeight,pcid'); @@ -181,6 +187,12 @@ begin end; +procedure TfrmTatClothRKHZList.IOTypeChange(Sender: TObject); +begin + + InitGrid(); +end; + procedure TfrmTatClothRKHZList.IsJYTimeClick(Sender: TObject); begin inherited; @@ -238,8 +250,12 @@ begin RecordsNumber := 500; canshu1 := Trim(Self.fParameters1); + EndDate.DateTime := SGetServerDate(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime; SetStatus(); + InitGrid(); + end; procedure TfrmTatClothRKHZList.TBExportClick(Sender: TObject); diff --git a/E04梭织坯布仓库/U_TatClothStkHZList.dfm b/E04梭织坯布仓库/U_TatClothStkHZList.dfm index d7f08db..7b6c477 100644 --- a/E04梭织坯布仓库/U_TatClothStkHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothStkHZList.dfm @@ -7,7 +7,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitLeft = -359 ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 @@ -99,6 +98,34 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Font.Style = [fsBold] ParentFont = False end + object label11: TLabel + Left = 358 + Top = 10 + Width = 26 + Height = 12 + Hint = '0' + Caption = #20811#37325 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object label12: TLabel + Left = 190 + Top = 35 + Width = 26 + Height = 12 + Hint = '0' + Caption = #38376#24133 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object BegDate: TDateTimePicker Left = 88 Top = 6 @@ -164,6 +191,26 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList TabOrder = 5 OnKeyPress = C_NameKeyPress end + object C_GramWeight: TEdit + Tag = 2 + Left = 390 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 6 + OnKeyPress = C_NameKeyPress + end + object C_width: TEdit + Tag = 2 + Left = 237 + Top = 32 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 7 + OnKeyPress = C_NameKeyPress + end end object cxGrid1: TcxGrid [2] Left = 0 @@ -180,6 +227,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList ParentFont = False PopupMenu = PM_1 TabOrder = 2 + ExplicitTop = 111 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -261,11 +309,9 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList end item Kind = skSum - Column = Tv1Column11 end item Kind = skSum - Column = Tv1Column12 end item Kind = skSum @@ -277,11 +323,9 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList end item Kind = skSum - Column = Tv1Column15 end item Kind = skSum - Column = Tv1Column16 end item Kind = skSum @@ -338,13 +382,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList HeaderAlignmentHorz = taCenter Width = 66 end - object Tv1Column5: TcxGridDBColumn - Caption = #27969#36716#21345#21495 - DataBinding.FieldName = 'pcid' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 68 - end object Tv1Column6: TcxGridDBColumn Caption = #20248#31561#21367#25968 DataBinding.FieldName = 'YDJs' @@ -387,20 +424,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList HeaderAlignmentHorz = taCenter Width = 80 end - object Tv1Column11: TcxGridDBColumn - Caption = #24223#24067#21367#25968 - DataBinding.FieldName = 'fbJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column12: TcxGridDBColumn - Caption = #24223#24067#25968#37327 - DataBinding.FieldName = 'fbqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end object Tv1Column13: TcxGridDBColumn Caption = #20998#20999#21367#25968 DataBinding.FieldName = 'fqJS' @@ -415,20 +438,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList HeaderAlignmentHorz = taCenter Width = 80 end - object Tv1Column15: TcxGridDBColumn - Caption = #24490#29615#24067#21367#25968 - DataBinding.FieldName = 'xhJS' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 76 - end - object Tv1Column16: TcxGridDBColumn - Caption = #24490#29615#24067#25968#37327 - DataBinding.FieldName = 'xhqty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 79 - end object Tv1Column17: TcxGridDBColumn Caption = #27979#35797#21367#25968 DataBinding.FieldName = 'csJS' @@ -493,6 +502,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Top = 284 end object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 PopupMenus = <> Left = 728 Top = 288 diff --git a/E04梭织坯布仓库/U_TatClothStkHZList.pas b/E04梭织坯布仓库/U_TatClothStkHZList.pas index 660851c..88517c3 100644 --- a/E04梭织坯布仓库/U_TatClothStkHZList.pas +++ b/E04梭织坯布仓库/U_TatClothStkHZList.pas @@ -46,23 +46,22 @@ type Tv1Column3: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; - Tv1Column5: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn; - Tv1Column11: TcxGridDBColumn; - Tv1Column12: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn; - Tv1Column15: TcxGridDBColumn; - Tv1Column16: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn; Tv1Column19: TcxGridDBColumn; cxGrid1Level1: TcxGridLevel; + C_GramWeight: TEdit; + label12: TLabel; + C_width: TEdit; + label11: TLabel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -147,7 +146,7 @@ begin Close; sql.Clear; - sql.Add('select C_NAME, C_width,C_GramWeight,pcid '); + sql.Add('select C_NAME, C_width,C_GramWeight '); SQL.Add(',pf=SUM(meter/100*CAST(C_WIDTH AS DECIMAL(18,2)))'); SQL.Add(',SUM(CASE WHEN GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); SQL.Add(',SUM(CASE WHEN GRADE=''ŵƷ'' THEN meter ELSE 0 END )AS Ydqty'); @@ -166,7 +165,7 @@ begin SQL.Add('from V_Tat_Cloth_stk A where 1=1 ' + WSql); - sql.Add(' group by C_NAME, C_width,C_GramWeight,pcid'); + sql.Add(' group by C_NAME, C_width,C_GramWeight'); // showmessage(sql.text); Open; @@ -239,7 +238,7 @@ begin canshu1 := Trim(Self.fParameters1); SetStatus(); - + InitGrid(); end; procedure TfrmTatClothStkHZList.TBExportClick(Sender: TObject); diff --git a/E04梭织坯布仓库/U_TatClothStkList.dfm b/E04梭织坯布仓库/U_TatClothStkList.dfm index 6f9de11..bb43f3e 100644 --- a/E04梭织坯布仓库/U_TatClothStkList.dfm +++ b/E04梭织坯布仓库/U_TatClothStkList.dfm @@ -204,6 +204,20 @@ inherited frmTatClothStkList: TfrmTatClothStkList Font.Style = [fsBold] ParentFont = False end + object Label1: TLabel + Left = 829 + Top = 10 + Width = 26 + Height = 12 + Hint = '0' + Caption = #37096#38376 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end object BegDate: TDateTimePicker Left = 88 Top = 6 @@ -276,6 +290,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList Height = 20 Hint = '0' TabOrder = 6 + OnKeyPress = orderNoKeyPress end object STKID: TEdit Tag = 2 @@ -285,6 +300,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList Height = 20 Hint = '1' TabOrder = 7 + OnKeyPress = orderNoKeyPress end object C_Name: TEdit Tag = 2 @@ -294,6 +310,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList Height = 20 Hint = '0' TabOrder = 8 + OnKeyPress = orderNoKeyPress end object C_Color: TEdit Tag = 2 @@ -303,6 +320,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList Height = 20 Hint = '0' TabOrder = 9 + OnKeyPress = orderNoKeyPress end object jyg: TEdit Tag = 2 @@ -312,6 +330,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList Height = 20 Hint = '0' TabOrder = 10 + OnKeyPress = orderNoKeyPress end object C_Pattern: TEdit Tag = 2 @@ -321,6 +340,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList Height = 20 Hint = '0' TabOrder = 11 + OnKeyPress = orderNoKeyPress end object C_Code: TEdit Tag = 2 @@ -330,6 +350,17 @@ inherited frmTatClothStkList: TfrmTatClothStkList Height = 20 Hint = '0' TabOrder = 12 + OnKeyPress = orderNoKeyPress + end + object dept: TEdit + Tag = 2 + Left = 857 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 13 + OnKeyPress = orderNoKeyPress end end object Panel6: TPanel [2] @@ -341,7 +372,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList AutoSize = True BorderStyle = bsSingle TabOrder = 2 - ExplicitTop = 111 DesignSize = ( 1536 23) @@ -450,7 +480,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList ParentFont = False PopupMenu = PM_1 TabOrder = 3 - ExplicitTop = 133 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E04梭织坯布仓库/U_TatClothStkList.pas b/E04梭织坯布仓库/U_TatClothStkList.pas index 2217d55..73a5b75 100644 --- a/E04梭织坯布仓库/U_TatClothStkList.pas +++ b/E04梭织坯布仓库/U_TatClothStkList.pas @@ -93,6 +93,8 @@ type Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; Tv1FlawList: TcxGridDBColumn; + Label1: TLabel; + dept: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -245,6 +247,8 @@ begin SetStatus(); v1Column4.Visible := false; v1Column4.Hidden := true; + + InitGrid(); end; procedure TfrmTatClothStkList.TBExportClick(Sender: TObject); diff --git a/E04梭织坯布仓库/U_TatDRList.dfm b/E04梭织坯布仓库/U_TatDRList.dfm index 35507cf..f8565be 100644 --- a/E04梭织坯布仓库/U_TatDRList.dfm +++ b/E04梭织坯布仓库/U_TatDRList.dfm @@ -199,17 +199,19 @@ inherited frmTatDRList: TfrmTatDRList end object cxGrid1: TcxGrid [1] Left = 0 - Top = 140 + Top = 142 Width = 1453 - Height = 224 + Height = 222 Align = alClient + PopupMenu = PM_1 TabOrder = 3 - ExplicitTop = 142 + ExplicitTop = 144 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> OnFocusedRecordChanged = Tv1FocusedRecordChanged DataController.DataSource = DataSource1 + DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item @@ -271,6 +273,7 @@ inherited frmTatDRList: TfrmTatDRList Properties.ImmediatePost = True Properties.MultiLine = True Properties.NullStyle = nssUnchecked + Properties.OnChange = v1Column4PropertiesChange HeaderAlignmentHorz = taCenter Width = 49 end @@ -309,6 +312,13 @@ inherited frmTatDRList: TfrmTatDRList Options.Editing = False Width = 124 end + object Tv1Telephone: TcxGridDBColumn + Caption = #32852#31995#30005#35805 + DataBinding.FieldName = 'Telephone' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 91 + end object v1Column1: TcxGridDBColumn Caption = #30003#35831#20154 DataBinding.FieldName = 'Filler' @@ -350,6 +360,13 @@ inherited frmTatDRList: TfrmTatDRList HeaderAlignmentHorz = taCenter Width = 154 end + object Tv1CoAddress: TcxGridDBColumn + Caption = #25910#36135#22320#22336 + DataBinding.FieldName = 'CoAddress' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 384 + end object Tv1Column2: TcxGridDBColumn Caption = #23436#25104#22791#27880 DataBinding.FieldName = 'wcnote' @@ -385,6 +402,13 @@ inherited frmTatDRList: TfrmTatDRList HeaderAlignmentHorz = taCenter Width = 70 end + object Tv1Column7: TcxGridDBColumn + DataBinding.FieldName = 'sselJS' + DataBinding.IsNullValueType = True + Visible = False + HeaderAlignmentHorz = taCenter + Width = 80 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -394,7 +418,7 @@ inherited frmTatDRList: TfrmTatDRList Left = 0 Top = 76 Width = 1453 - Height = 43 + Height = 45 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered @@ -486,6 +510,31 @@ inherited frmTatDRList: TfrmTatDRList Font.Style = [] ParentFont = False end + object Label5: TLabel + Left = 870 + Top = 15 + Width = 54 + Height = 12 + Caption = #36873#25321#21367#25968':' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end + object SSelJS: TLabel + Left = 927 + Top = 6 + Width = 12 + Height = 24 + Font.Charset = GB2312_CHARSET + Font.Color = clRed + Font.Height = -24 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + end object BegDate: TDateTimePicker Left = 76 Top = 11 @@ -573,7 +622,7 @@ inherited frmTatDRList: TfrmTatDRList end object cxTabControl1: TcxTabControl [3] Left = 0 - Top = 119 + Top = 121 Width = 1453 Height = 21 Align = alTop @@ -688,7 +737,7 @@ inherited frmTatDRList: TfrmTatDRList Width = 81 end object cv1Column3: TcxGridDBColumn - Caption = #30003#35831#31859#25968 + Caption = #27599#21367#31859#25968 DataBinding.FieldName = 'Qty' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' @@ -771,8 +820,8 @@ inherited frmTatDRList: TfrmTatDRList object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> - Left = 1000 - Top = 184 + Left = 592 + Top = 208 end object ADOQueryCmd: TADOQuery Connection = DataLink_TatClothStk.ADOLink @@ -838,4 +887,22 @@ inherited frmTatDRList: TfrmTatDRList Left = 687 Top = 238 end + object PM_1: TPopupMenu + Left = 392 + Top = 232 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + end + object cxGridPopupMenu2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 513 + Top = 208 + end end diff --git a/E04梭织坯布仓库/U_TatDRList.pas b/E04梭织坯布仓库/U_TatDRList.pas index feff833..0b4bbfd 100644 --- a/E04梭织坯布仓库/U_TatDRList.pas +++ b/E04梭织坯布仓库/U_TatDRList.pas @@ -102,6 +102,15 @@ type TV2Volume: TcxGridDBColumn; TV2Applicant: TcxGridDBColumn; TV2ApplicationReaon: TcxGridDBColumn; + Tv1CoAddress: TcxGridDBColumn; + Label5: TLabel; + SSelJS: TLabel; + Tv1Column7: TcxGridDBColumn; + PM_1: TPopupMenu; + N1: TMenuItem; + PM11: TMenuItem; + Tv1Telephone: TcxGridDBColumn; + cxGridPopupMenu2: TcxGridPopupMenu; //RMllPDFExport1: TRMllPDFExport; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); @@ -133,6 +142,9 @@ type procedure ToolButton5Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject); procedure TbGoodsEditClick(Sender: TObject); + procedure v1Column4PropertiesChange(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure PM11Click(Sender: TObject); private procedure InitGrid(); procedure InitSubGrid(); @@ -166,6 +178,8 @@ begin ToolButton3.Enabled := False; ToolButton5.Enabled := False; TbGoodsEdit.Enabled := False; + + TBDel.Enabled := False; if CANSHU1 = 'ѯ' then begin ToolButton1.Enabled := True; @@ -178,7 +192,7 @@ begin TBAdd.Enabled := True; TBEdit.Enabled := True; - TBDel.Enabled := True; +// TBDel.Enabled := True; case cxTabControl1.TabIndex of 1: begin @@ -196,11 +210,14 @@ begin ToolButton3.Enabled := true; // TbGoodsEdit.Enabled := True; tchk.Enabled := true; + + TBDel.Enabled := True; end; 1: begin Tnochk.Enabled := true; btnWC.Enabled := true; + TBDel.Enabled := True; end; 2: begin @@ -219,6 +236,8 @@ begin begin btnWC.Enabled := true; + +// TBDel.Enabled := True; end; end; end; @@ -246,17 +265,21 @@ procedure TfrmTatDRList.InitGrid(); begin try ADOQueryMain.DisableControls; + + sselJS.Caption := '0'; with ADOQueryMain do begin Filtered := False; Close; sql.Clear; - Sql.Add(' select A.* '); - sql.Add(' from Tat_Cloth_DR_Main A where 1=1'); + Sql.Add(' select A.*,B.CoAddress '); + Sql.Add(', sselJS=(select isnull(sum(Piece), 0) from Tat_Cloth_DR_Sub X where X.DRMID=A.DRMID ) '); + Sql.Add(', Telephone=(select Telephone from Bs_Company_contact X where X.CoID=A.ToCoID ) '); + sql.Add(' from Tat_Cloth_DR_Main A left join BS_Company B on A.ToCoID = B.COID where 1=1'); if CheckBox1.Checked then begin - sql.Add(' and Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); - sql.Add(' and Filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + sql.Add(' and A.Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); + sql.Add(' and A.Filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); end; case cxTabControl1.TabIndex of 0: @@ -285,7 +308,7 @@ begin begin sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + ''''); end; - sql.Add(' order by Filltime desc '); + sql.Add(' order by A.Filltime desc '); // ShowMessage(sql.Text); Open; end; @@ -293,7 +316,6 @@ begin SCreateCDS(ADOQueryMain, Order_Main); SInitCDSData(ADOQueryMain, Order_Main); - finally ADOQueryMain.EnableControls; TV1.DataController.Filter.Clear; @@ -347,11 +369,11 @@ begin // Application.MessageBox('ܲ˵!', 'ʾ', 0); // Exit; // end; - if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then - begin - Application.MessageBox('ܲ˵!', 'ʾ', 0); - Exit; - end; + if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then + begin + Application.MessageBox('ܲ˵!', 'ʾ', 0); + Exit; + end; // end; // with ADOQueryTemp do // begin @@ -371,7 +393,8 @@ begin with frmTatDRtInPut do begin PState := 1; - + Tv1Volume.Options.Editing := False; + Tv1ApplicationReaon.Options.Editing := False; FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString); if ShowModal = 1 then begin @@ -387,15 +410,15 @@ procedure TfrmTatDRList.TBDelClick(Sender: TObject); begin if Order_Main.IsEmpty then Exit; - if cxTabControl1.TabIndex <> 0 then + if (cxTabControl1.TabIndex <> 0) and (cxTabControl1.TabIndex <> 1) then Exit; // if canshu1 <> '' then // begin - if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then - begin - Application.MessageBox('ܲ˵!', 'ʾ', 0); - Exit; - end; +// if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then +// begin +// Application.MessageBox('ܲ˵!', 'ʾ', 0); +// Exit; +// end; // end; with ADOQueryTemp do @@ -461,17 +484,19 @@ end; function TfrmTatDRList.DelData(): Boolean; begin + try with Order_Main do begin DisableControls; + ADOQueryCmd.Connection.BeginTrans; First; while not eof do begin if fieldbyname('SSel').AsBoolean then begin Result := false; - ADOQueryCmd.Connection.BeginTrans; + with ADOQueryCmd do begin Close; @@ -649,7 +674,7 @@ begin EnableControls; end; - Order_Main.Delete; + InitGrid(); InitSubGrid(); application.MessageBox('ȡɹ', 'ʾϢ'); except @@ -710,7 +735,7 @@ begin EnableControls; end; - Order_Main.Delete; + InitGrid(); InitSubGrid(); application.MessageBox('ȡɹ', 'ʾϢ'); except @@ -751,13 +776,15 @@ begin execsql; end; end; + next; end; + First; EnableControls; end; - Order_Main.Delete; + InitGrid(); InitSubGrid(); application.MessageBox('˳ɹ', 'ʾϢ'); except @@ -774,12 +801,35 @@ begin sql.Clear; sql.Add('select A.* '); sql.Add('from Tat_Cloth_DR_Sub A where A.DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''''); +// ShowMessage(SQL.Text); Open; end; SCreateCDS(ADOQueryTemp, ClientDataSet2); SInitCDSData(ADOQueryTemp, ClientDataSet2); end; +procedure TfrmTatDRList.N1Click(Sender: TObject); +var + msumJS: Currency; +begin + SelOKNo(Order_Main, true); + msumJS := 0; + Order_Main.First; + while not Order_Main.Eof do + begin + msumJS := msumJS + Order_Main.FieldByName('sselJS').AsCurrency; + Order_Main.Next; + end; + + SSelJS.Caption := CurrToStr(msumJS); +end; + +procedure TfrmTatDRList.PM11Click(Sender: TObject); +begin + SelOKNo(Order_Main, false); + SSelJS.Caption := '0'; +end; + procedure TfrmTatDRList.TnochkClick(Sender: TObject); begin if Order_Main.IsEmpty then @@ -809,7 +859,7 @@ begin First; EnableControls; end; - Order_Main.Delete; + InitGrid(); application.MessageBox('ɹ', 'ʾϢ'); except application.MessageBox('ʧܣ', 'ʾϢ', 0); @@ -1048,6 +1098,132 @@ begin InitSubGrid(); end; +procedure TfrmTatDRList.v1Column4PropertiesChange(Sender: TObject); +var + mDRMIDList: string; + TotalPiece: Variant; + mDRMID: string; //λ +begin +// mDRMIDList := ''; + // 浱ǰ¼ BCIID +// if not Order_Main.IsEmpty then +// mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString) +// else +// mDRMID := ''; +// +// try +// // ȷݼ״̬ +// Order_Main.DisableControls; +// try +// Order_Main.First; +// while not Order_Main.Eof do +// begin +// if Order_Main.FieldByName('ssel').AsBoolean then +// begin +// if mDRMIDList = '' then +// mDRMIDList := QuotedStr(Trim(Order_Main.FieldByName('DRMID').AsString)) +// else +// mDRMIDList := mDRMIDList + ',' + QuotedStr(Trim(Order_Main.FieldByName('DRMID').AsString)); +// end; +// Order_Main.Next; +// end; +// finally +// Order_Main.EnableControls; +// end; +// +// // ûѡκμ¼ +// if mDRMIDList = '' then +// begin +// +// if mDRMID <> '' then +// Order_Main.Locate('DRMID', mDRMID, []); +// sselJS.Caption := '0'; +// Exit; +// end; +// +// // ִвѯ +// with ADOQueryCmd do +// begin +// Close; +// SQL.Clear; +// SQL.Add('select isnull(sum(Piece), 0) as sselJS from Tat_Cloth_DR_Sub'); +// SQL.Add('where DRMID in (' + mDRMIDList + ')'); +// +// // ʱʾSQL +//// ShowMessage('SQL: ' + SQL.Text); +// +// Open; +// +// // ȫķʽ +// if not IsEmpty then +// begin +// TotalPiece := FieldByName('sselJS').Value; +// // NULLֵͿֵ +// if VarIsNull(TotalPiece) or VarIsEmpty(TotalPiece) then +// sselJS.Caption := '0' +// else +// sselJS.Caption := VarToStr(TotalPiece); +// end +// else +// begin +// sselJS.Caption := '0'; +// end; +// end; +// +// +// // Զλԭ¼ +// if mDRMID <> '' then +// Order_Main.Locate('DRMID', mDRMID, []); +//// sselJS.Text := '0'; +//// sselJS.Text := ADOQueryCmd.FieldByName('sselJS').Value +// except +// on E: Exception do +// begin +// // ¼Ϣ +// sselJS.Caption := '0'; +// ShowMessage('ѯʧ: ' + E.Message + #13#10 + 'SQL: ' + ADOQueryCmd.SQL.Text); +// end; +// end; + + + try + + mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString); + // ȷݼ״̬ + Order_Main.DisableControls; +// with ADOQueryCmd do +// begin +// Close; +// SQL.Clear; +// SQL.Add('select isnull(sum(Piece), 0) as sselJS from Tat_Cloth_DR_Sub '); +// SQL.Add(' where DRMID = ' + QuotedStr(Trim(mDRMID))); +// Open; +// end; + + // ûѡκμ¼ + + if Order_Main.IsEmpty then + exit; + with Order_Main do + begin + if fieldbyname('Ssel').AsBoolean = true then + sselJS.Caption := currtostr(strtoCurr(sselJS.Caption) + Order_Main.FieldByName('sselJS').AsCurrency) + else + sselJS.Caption := currtostr(strtoCurr(sselJS.Caption) - Order_Main.FieldByName('sselJS').AsCurrency); + end; + + Order_Main.EnableControls; + + except + on E: Exception do + begin + // ¼Ϣ + sselJS.Caption := '0'; + ShowMessage('ѯʧ: ' + E.Message + #13#10 + 'SQL: ' + ADOQueryCmd.SQL.Text); + end; + end; +end; + procedure TfrmTatDRList.v1Column7PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; diff --git a/E04梭织坯布仓库/U_TatDRtInPut.dfm b/E04梭织坯布仓库/U_TatDRtInPut.dfm index 933985f..423a8e5 100644 --- a/E04梭织坯布仓库/U_TatDRtInPut.dfm +++ b/E04梭织坯布仓库/U_TatDRtInPut.dfm @@ -78,7 +78,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut Left = 0 Top = 38 Width = 1252 - Height = 98 + Height = 99 Align = alTop BevelInner = bvNone BevelOuter = bvNone @@ -204,6 +204,20 @@ object frmTatDRtInPut: TfrmTatDRtInPut Font.Style = [fsBold] ParentFont = False end + object Label7: TLabel + Left = 693 + Top = 38 + Width = 53 + Height = 12 + Caption = #23458#25143'ID'#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + Visible = False + end object OutType: TComboBox Tag = 1 Left = 306 @@ -230,6 +244,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut Top = 9 Width = 138 Height = 20 + ReadOnly = True TabOrder = 1 OnBtnUpClick = ToCoNameBtnUpClick OnBtnDnClick = ToCoNameBtnDnClick @@ -294,11 +309,20 @@ object frmTatDRtInPut: TfrmTatDRtInPut Height = 18 TabOrder = 8 end + object ToCoID: TEdit + Tag = 1 + Left = 758 + Top = 35 + Width = 96 + Height = 18 + TabOrder = 9 + Visible = False + end end object ToolBar2: TToolBar Tag = 1 Left = 0 - Top = 136 + Top = 137 Width = 1252 Height = 38 AutoSize = True @@ -364,9 +388,9 @@ object frmTatDRtInPut: TfrmTatDRtInPut end object cxGrid1: TcxGrid Left = 0 - Top = 174 + Top = 175 Width = 1252 - Height = 470 + Height = 469 Align = alClient TabOrder = 3 object Tv1: TcxGridDBTableView @@ -451,7 +475,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut Width = 81 end object Tv1Qty: TcxGridDBColumn - Caption = #30003#35831#31859#25968 + Caption = #27599#21367#31859#25968 DataBinding.FieldName = 'Qty' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' diff --git a/E04梭织坯布仓库/U_TatDRtInPut.pas b/E04梭织坯布仓库/U_TatDRtInPut.pas index 406c044..da69643 100644 --- a/E04梭织坯布仓库/U_TatDRtInPut.pas +++ b/E04梭织坯布仓库/U_TatDRtInPut.pas @@ -67,6 +67,8 @@ type Tv1Applicant: TcxGridDBColumn; Tv1ApplicationReaon: TcxGridDBColumn; TbPHSave: TToolButton; + Label7: TLabel; + ToCoID: TEdit; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -83,11 +85,13 @@ type procedure ToolButton6Click(Sender: TObject); procedure TbPHSaveClick(Sender: TObject); procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); + private fuserName: string; procedure InitData(); function SaveData(): Boolean; function SavePHData(): Boolean; + procedure C_NumHB(); { Private declarations } public PState, CopyInt: Integer; @@ -286,6 +290,82 @@ begin end; end; +procedure TfrmTatDRtInPut.C_NumHB(); +var + LocateValues: variant; + TempTable: TClientDataSet; +begin + // ʱ洢ϲ + TempTable := TClientDataSet.Create(nil); + try + // ԭṹ + TempTable.CloneCursor(Order_Sub, False); + TempTable.Close; + TempTable.FieldDefs.Assign(Order_Sub.FieldDefs); + TempTable.CreateDataSet; + + Order_Sub.First; + + while not Order_Sub.Eof do + begin + // ֻ DRSID Ϊյļ¼ +// if Order_Sub.FieldByName('DRSID').IsNull or (trim(Order_Sub.FieldByName('DRSID').AsString) = '') then +// begin + LocateValues := VarArrayOf([trim(Order_Sub.FieldByName('C_Name').AsString), trim(Order_Sub.FieldByName('C_width').AsString), trim(Order_Sub.FieldByName('C_GramWeight').AsString)]); + + // ʱвǷѴͬļ¼ + if TempTable.Locate('C_Name;C_width;C_GramWeight', LocateValues, []) then + begin + // ۼ Piece ֵ + TempTable.Edit; + TempTable.FieldByName('Piece').AsFloat := TempTable.FieldByName('Piece').AsFloat + Order_Sub.FieldByName('Piece').AsFloat; + TempTable.FieldByName('Qty').AsFloat := TempTable.FieldByName('Qty').AsFloat + Order_Sub.FieldByName('Qty').AsFloat; + TempTable.Post; + if (not Order_Sub.FieldByName('DRSID').IsNull) and (trim(Order_Sub.FieldByName('DRSID').AsString) <> '') then + begin + with ADOCmd do + begin + Close; + sql.Clear; + sql.Add('delete Tat_Cloth_DR_Sub where DRSID=''' + Trim(Order_Sub.fieldbyname('DRSID').AsString) + ''''); + ExecSQL; + end; + end; + + end + else + begin + // ¼¼ + TempTable.Append; + TempTable.CopyFields(Order_Sub); // ֵֶ + TempTable.Post; + end; +// end; + + Order_Sub.Next; + end; + + // ʱ滻ԭݼ + Order_Sub.DisableControls; + try + Order_Sub.EmptyDataSet; + TempTable.First; + while not TempTable.Eof do + begin + Order_Sub.Append; + Order_Sub.CopyFields(TempTable); + Order_Sub.Post; + TempTable.Next; + end; + finally + Order_Sub.EnableControls; + end; + + finally + TempTable.Free; + end; +end; + function TfrmTatDRtInPut.SaveData(): Boolean; var MaxMid, MaxSid: string; @@ -397,6 +477,7 @@ procedure TfrmTatDRtInPut.TBSaveClick(Sender: TObject); var Freal: Double; begin +//ShowMessage(Order_Sub.FieldByName('Piece').AsString); ToolBar1.SetFocus; if Trim(OutType.Text) = '' then @@ -409,11 +490,14 @@ begin Application.MessageBox('ͻΪգ', 'ʾ', 0); Exit; end; + if (Order_Sub.Locate('Piece', null, [])) and (Order_Sub.Locate('Qty', null, [])) = True then begin Application.MessageBox('ϸƥȫΪգ', 'ʾ', 0); Exit; end; +// ShowMessage(Order_Sub.FieldByName('Piece').AsString); + C_NumHB(); if SaveData() then begin Application.MessageBox('ɹ', 'ʾ', 0); @@ -558,30 +642,18 @@ begin begin while cds_sub.locate('SSel', true, []) do begin - LocateValues := VarArrayOf([trim(frmTatClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString), trim(frmTatClothInfoSel.cds_sub.Fieldbyname('C_MXMF').AsString), trim(frmTatClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString)]); - - if self.Order_Sub.locate('C_name;C_width;C_GramWeight', LocateValues, []) then + with Self.Order_Sub do begin - // ֶζƥ䣬ִб༭ - Ѿλͬ¼һ - - end - else - begin - // ֶβȫƥ䣬¼¼ - with Self.Order_Sub do - begin - Append; - FieldByName('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').Value; - FieldByName('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').Value; + Append; + FieldByName('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').Value; + FieldByName('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').Value; // FieldByName('C_Spec').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Spec').Value; - FieldByName('C_Width').Value := frmTatClothInfoSel.cds_sub.fieldbyname('C_MXMF').Value; - FieldByName('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').Value; - FieldByName('C_Color').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Color').Value; + FieldByName('C_Width').Value := frmTatClothInfoSel.cds_sub.fieldbyname('C_MXMF').Value; + FieldByName('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').Value; + FieldByName('C_Color').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Color').Value; // FieldByName('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ColorNo').Value; // FieldByName('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').Value; - end; end; - cds_sub.Edit; cds_sub.fieldbyname('SSel').value := false; end; @@ -744,6 +816,7 @@ begin begin self.ToCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); self.ToCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); + self.ToCoID.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoID').AsString); end; end; diff --git a/F01染色坯布仓库/U_DyeGreyClothInEdit.dfm b/F01染色坯布仓库/U_DyeGreyClothInEdit.dfm index 84036fa..8b9fd14 100644 --- a/F01染色坯布仓库/U_DyeGreyClothInEdit.dfm +++ b/F01染色坯布仓库/U_DyeGreyClothInEdit.dfm @@ -10,6 +10,7 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit Font.Name = #23435#20307 Position = poScreenCenter OnClose = FormClose + ExplicitLeft = -489 ExplicitWidth = 1356 ExplicitHeight = 620 PixelsPerInch = 96 @@ -22,6 +23,8 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit Height = 268 Align = alClient TabOrder = 0 + ExplicitLeft = 1 + ExplicitTop = 33 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -238,6 +241,13 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit HeaderAlignmentHorz = taCenter Width = 66 end + object Tv1C_WidthNum: TcxGridDBColumn + Caption = #38376#24133#20010#25968 + DataBinding.FieldName = 'C_WidthNum' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end end object cxGrid2Level1: TcxGridLevel GridView = Tv1 @@ -344,6 +354,8 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit ParentFont = False ShowCaptions = True TabOrder = 0 + ExplicitLeft = 0 + ExplicitTop = -5 object ToolButton4: TToolButton Left = 0 Top = 0 @@ -369,8 +381,6 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit Height = 235 Align = alClient TabOrder = 1 - ExplicitLeft = 2 - ExplicitTop = 45 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/F01染色坯布仓库/U_DyeGreyClothInEdit.pas b/F01染色坯布仓库/U_DyeGreyClothInEdit.pas index c450f5d..93abb0d 100644 --- a/F01染色坯布仓库/U_DyeGreyClothInEdit.pas +++ b/F01染色坯布仓库/U_DyeGreyClothInEdit.pas @@ -81,6 +81,7 @@ type TV2Column7: TcxGridDBColumn; TV2C_MXSHWidth: TcxGridDBColumn; TV2C_MXSHReason: TcxGridDBColumn; + Tv1C_WidthNum: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -443,6 +444,12 @@ begin Application.MessageBox('λΪ!', 'ʾ', 0); Exit; end; + + if CDS_Sub.Locate('C_WidthNum', null, []) = True then + begin + Application.MessageBox('ŷΪ!', 'ʾ', 0); + Exit; + end; {if CDS_Sub.Locate('CRType;LCKNO', VarArrayOf(['ز', Null]), [loPartialKey]) then begin Application.MessageBox('زֵ̿ŲΪ!','ʾ',0); diff --git a/F01染色坯布仓库/U_DyeGreyClothInList.dfm b/F01染色坯布仓库/U_DyeGreyClothInList.dfm index 950a547..0cb61e6 100644 --- a/F01染色坯布仓库/U_DyeGreyClothInList.dfm +++ b/F01染色坯布仓库/U_DyeGreyClothInList.dfm @@ -607,6 +607,13 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList HeaderAlignmentHorz = taCenter Width = 67 end + object Tv1C_WidthNum: TcxGridDBColumn + Caption = #38376#24133#20010#25968 + DataBinding.FieldName = 'C_WidthNum' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 80 + end end object cxGrid2Level1: TcxGridLevel GridView = Tv1 @@ -745,8 +752,8 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList end end object Panel2: TPanel [4] - Left = 284 - Top = 109 + Left = 246 + Top = 110 Width = 336 Height = 240 TabOrder = 4 diff --git a/F01染色坯布仓库/U_DyeGreyClothInList.pas b/F01染色坯布仓库/U_DyeGreyClothInList.pas index 37dc318..c3ab46f 100644 --- a/F01染色坯布仓库/U_DyeGreyClothInList.pas +++ b/F01染色坯布仓库/U_DyeGreyClothInList.pas @@ -122,6 +122,7 @@ type TV2Column8: TcxGridDBColumn; TV2C_MXSHWidth: TcxGridDBColumn; TV2C_MXSHReason: TcxGridDBColumn; + Tv1C_WidthNum: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject);