From 30c0831f03774f6abe769da24de0c986ae9218e9 Mon Sep 17 00:00:00 2001 From: "LAPTOP-8NOV8MVQ\\cai" Date: Sun, 16 Nov 2025 11:45:01 +0800 Subject: [PATCH] 11.16 --- A02基础产品管理/ClothInfo.dproj.local | 54 +++--- F02染色计划单/U_DyeProcessDefin.dfm | 1 + F02染色计划单/U_DyeTechnicsList.dfm | 2 + F04染色刷卡/DyeProcess.dproj.local | 22 +-- F04染色刷卡/U_DyePCDetailsList.dfm | 16 +- F04染色刷卡/U_DyePCDetailsList.pas | 259 ++++++++++++++++++++++++-- 6 files changed, 293 insertions(+), 61 deletions(-) diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local index 628e085..5ed05e3 100644 --- a/A02基础产品管理/ClothInfo.dproj.local +++ b/A02基础产品管理/ClothInfo.dproj.local @@ -1,50 +1,50 @@  - 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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.146,=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.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.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.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm - 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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.936,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A02基础产品管理\U_ClothInfoInput.pas 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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.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.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.146,=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.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.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.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 diff --git a/F02染色计划单/U_DyeProcessDefin.dfm b/F02染色计划单/U_DyeProcessDefin.dfm index 6fa0686..06d019c 100644 --- a/F02染色计划单/U_DyeProcessDefin.dfm +++ b/F02染色计划单/U_DyeProcessDefin.dfm @@ -357,6 +357,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin Height = 396 Align = alBottom TabOrder = 1 + ExplicitLeft = 1 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/F02染色计划单/U_DyeTechnicsList.dfm b/F02染色计划单/U_DyeTechnicsList.dfm index 87a1c66..0ceb480 100644 --- a/F02染色计划单/U_DyeTechnicsList.dfm +++ b/F02染色计划单/U_DyeTechnicsList.dfm @@ -163,6 +163,8 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList Height = 494 Align = alLeft TabOrder = 2 + ExplicitLeft = -3 + ExplicitTop = 105 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False diff --git a/F04染色刷卡/DyeProcess.dproj.local b/F04染色刷卡/DyeProcess.dproj.local index 5e8d79c..0916fed 100644 --- a/F04染色刷卡/DyeProcess.dproj.local +++ b/F04染色刷卡/DyeProcess.dproj.local @@ -1,33 +1,33 @@  - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas 1899/12/30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm + 1899/12/30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899/12/30 00:00:00.000.620,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_MachTaskList.pas 1899/12/30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas= - 1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.pas - 1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas= + 1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 2025/09/13 17:08:13.000.517,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_BS_MachineSel.pas 2025/09/25 15:07:18.000.836,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeProcessDefin.pas 2025/11/11 15:05:18.000.149,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\Unit2.pas - 2025/11/11 15:06:44.000.606,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCDetailsList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\Unit2.dfm - 2025/11/11 15:06:44.000.606,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCDetailsList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\Unit2.pas + 2025/11/11 15:06:44.000.606,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\Unit2.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCDetailsList.dfm + 2025/11/11 15:06:44.000.606,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\Unit2.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCDetailsList.pas diff --git a/F04染色刷卡/U_DyePCDetailsList.dfm b/F04染色刷卡/U_DyePCDetailsList.dfm index 69de93f..2634e36 100644 --- a/F04染色刷卡/U_DyePCDetailsList.dfm +++ b/F04染色刷卡/U_DyePCDetailsList.dfm @@ -9,7 +9,7 @@ inherited frmDyePCDetailsList: TfrmDyePCDetailsList OldCreateOrder = True WindowState = wsMaximized OnKeyDown = FormKeyDown - ExplicitLeft = -329 + ExplicitLeft = -14 ExplicitWidth = 1196 ExplicitHeight = 623 PixelsPerInch = 96 @@ -37,7 +37,6 @@ inherited frmDyePCDetailsList: TfrmDyePCDetailsList ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitLeft = -1 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -114,7 +113,7 @@ inherited frmDyePCDetailsList: TfrmDyePCDetailsList Caption = 'CCQX1' Color = clSkyBlue TabOrder = 1 - ExplicitLeft = -1 + ExplicitLeft = 1 object Label3: TLabel Left = 260 Top = 10 @@ -292,7 +291,7 @@ inherited frmDyePCDetailsList: TfrmDyePCDetailsList Height = 480 Align = alLeft TabOrder = 0 - ExplicitTop = -4 + ExplicitTop = 6 object Tv1: TcxGridDBTableView OnKeyDown = Tv1KeyDown Navigator.Buttons.CustomButtons = <> @@ -491,21 +490,23 @@ inherited frmDyePCDetailsList: TfrmDyePCDetailsList TabOrder = 3 OnClick = cxButton2Click end - object cxButton3: TcxButton + object TbMoveUp: TcxButton Left = 599 Top = 80 Width = 75 Height = 25 Caption = #19978#31227 TabOrder = 4 + OnClick = TbMoveUpClick end - object cxButton4: TcxButton + object TbMoveDown: TcxButton Left = 599 Top = 111 Width = 75 Height = 25 Caption = #19979#31227 TabOrder = 5 + OnClick = TbMoveDownClick end end inherited ADOQueryBaseCmd: TADOQuery @@ -570,8 +571,7 @@ inherited frmDyePCDetailsList: TfrmDyePCDetailsList CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False - Left = 720 - Top = 56 + Left = 936 ReportData = {} end object cxStyleRepository1: TcxStyleRepository diff --git a/F04染色刷卡/U_DyePCDetailsList.pas b/F04染色刷卡/U_DyePCDetailsList.pas index 31e7d8b..7350f2d 100644 --- a/F04染色刷卡/U_DyePCDetailsList.pas +++ b/F04染色刷卡/U_DyePCDetailsList.pas @@ -84,8 +84,8 @@ type Label4: TLabel; cxButton1: TcxButton; cxButton2: TcxButton; - cxButton3: TcxButton; - cxButton4: TcxButton; + TbMoveUp: TcxButton; + TbMoveDown: TcxButton; Tv1GlideID: TcxGridDBColumn; Tv2GlideID: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); @@ -113,6 +113,8 @@ type procedure Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure cxButton2Click(Sender: TObject); procedure Tv1BegTimePropertiesValidate(Sender: TObject; var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); + procedure TbMoveUpClick(Sender: TObject); + procedure TbMoveDownClick(Sender: TObject); private FLeft, FTop: Integer; @@ -120,6 +122,7 @@ type procedure InitGrid2(); function SaveData(): boolean; function GetLastLine(const AText: string): string; + function SaveMove(const Flag: string): Boolean; { Private declarations } public fsyrName, canshu1: string; @@ -192,35 +195,53 @@ begin if CDS_1.FieldByName('PSType').AsString = 'ϴ' then begin mNewValue := mNewValue + '' + #13; - mNewValue := mNewValue + ':' + CDS_1.FieldByName('ccqx_speed').AsString + #13; - mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ccqx_temperature6').AsString + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; end else if CDS_1.FieldByName('PSType').AsString = 'ɶ' then begin mNewValue := mNewValue + '' + #13; - mNewValue := mNewValue + ':' + CDS_1.FieldByName('dx_speed').AsString + #13; - mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('dx_temperature6').AsString + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; end else if CDS_1.FieldByName('PSType').AsString = 'ˮ' then begin mNewValue := mNewValue + '' + #13; - mNewValue := mNewValue + ':' + CDS_1.FieldByName('fs_speed').AsString + #13; - mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('fs_temperature6').AsString + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; end else if CDS_1.FieldByName('PSType').AsString = 'ν' then begin mNewValue := mNewValue + '' + CDS_1.FieldByName('gj_number').AsString + #13; - mNewValue := mNewValue + ':' + CDS_1.FieldByName('gj_speed').AsString + #13; - mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('gj_temperature6').AsString + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; end else if CDS_1.FieldByName('PSType').AsString = '' then begin mNewValue := mNewValue + ' ' + CDS_1.FieldByName('fp_gjNumber').AsString + #13; - mNewValue := mNewValue + ':' + CDS_1.FieldByName('fp_speed').AsString + #13; - mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('fp_temperature6').AsString + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; + end + else if CDS_1.FieldByName('PSType').AsString = 'ë' then + begin + mNewValue := mNewValue + '' + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; + end + else if CDS_1.FieldByName('PSType').AsString = 'ϴ' then + begin + mNewValue := mNewValue + '' + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; + end + else if CDS_1.FieldByName('PSType').AsString = 'Ⱦϴ' then + begin + mNewValue := mNewValue + '' + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; end else begin @@ -308,6 +329,191 @@ begin end; end; +function TfrmDyePCDetailsList.SaveMove(const Flag: string): Boolean; +var + mLoopNum: Integer; + mMCName, mNewValue, mStartTime: string; + mEndTime, mBegTime: string; +begin + Result := False; // ĬϷʧ + ADOQueryCmd.Connection.BeginTrans; + try + if Flag = '' then + begin + CDS_1.Prior; + mStartTime := CDS_1.FieldByName('BegTime').AsString; + CDS_1.Next; + end + else if Flag = '' then + begin + mStartTime := CDS_1.FieldByName('BegTime').AsString; + CDS_1.Next; + end; + + mLoopNum := StrToInt(CDS_1.FieldByName('Time').AsString) div 10; + + if (MCNO.Text <> '') and (CDS_1.FieldByName('BegTime').AsString <> '') then + begin + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add(' update Dye_Plan_Glide set PC_FLAG = 1 , EndTime = DATEADD(MINUTE, ' + CDS_1.FieldByName('time').AsString + ', ' + QuotedStr(trim(mStartTime)) + ')'); + SQL.Add(' , begTime = ' + QuotedStr(Trim(mStartTime))); + SQL.Add(' , MCNO = ' + QuotedStr(Trim(MCNO.Text))); + SQL.Add(' , MCName = ' + QuotedStr(MCName.Text)); + SQL.Add(' where GlideID = ' + QuotedStr(Trim(CDS_1.FieldByName('GlideID').asString))); + ExecSQL; + end; + mMCName := MCName.Text; + + mNewValue := mNewValue + CDS_1.FieldByName('C_Name').AsString + #13; + mNewValue := mNewValue + 'Ʒŷ' + CDS_1.FieldByName('C_Width').AsString + #13; + mNewValue := mNewValue + ' ν:' + CDS_1.FieldByName('GlideName').AsString; + + if CDS_1.FieldByName('PSType').AsString = 'ϴ' then + begin + mNewValue := mNewValue + '' + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; + end + else if CDS_1.FieldByName('PSType').AsString = 'ɶ' then + begin + mNewValue := mNewValue + '' + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; + end + else if CDS_1.FieldByName('PSType').AsString = 'ˮ' then + begin + mNewValue := mNewValue + '' + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; + end + else if CDS_1.FieldByName('PSType').AsString = 'ν' then + begin + mNewValue := mNewValue + '' + CDS_1.FieldByName('gj_number').AsString + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; + end + else if CDS_1.FieldByName('PSType').AsString = '' then + begin + mNewValue := mNewValue + ' ' + CDS_1.FieldByName('fp_gjNumber').AsString + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; + end + else if CDS_1.FieldByName('PSType').AsString = 'ë' then + begin + mNewValue := mNewValue + '' + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; + end + else if CDS_1.FieldByName('PSType').AsString = 'ϴ' then + begin + mNewValue := mNewValue + '' + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; + end + else if CDS_1.FieldByName('PSType').AsString = 'Ⱦϴ' then + begin + mNewValue := mNewValue + '' + #13; + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_Speed').AsString + #13; + mNewValue := mNewValue + '¶6#:' + CDS_1.FieldByName('ALL_temperature6').AsString + #13; + end + else + begin + mNewValue := mNewValue + '' + #13; + end; + + // ʾ + mNewValue := mNewValue + ':' + CDS_1.FieldByName('All_zhuji').AsString + #13; + mNewValue := mNewValue + CDS_1.FieldByName('PCID').AsString + #13; + mNewValue := mNewValue + CDS_1.FieldByName('GlideID').AsString; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add('UPDATE PCAboutTime SET '); + SQL.Add(mMCName + ' = null WHERE '); + SQL.Add(mMCName + ' = ' + QuotedStr(Trim(mNewValue))); + ExecSQL; + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add('EXEC P_PC_UpdatePCAboutTime ' + '@MCName = :MCName, ' + '@NewValue = :NewValue, ' + '@StartTime = :StartTime, ' + '@LoopNum = :LoopNum'); + + Parameters.ParamByName('MCName').Value := mMCName; + Parameters.ParamByName('NewValue').Value := mNewValue; + Parameters.ParamByName('StartTime').Value := mStartTime; + Parameters.ParamByName('LoopNum').Value := mLoopNum; + + ExecSQL; + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + SQL.Add('select * from PCAboutTime '); + SQL.Add(' where time >= ' + quotedStr(Trim(mStartTime))); + Open; + end; + + ADOQueryCmd.First; + mNewValue := ADOQueryCmd.FieldByName(mMCName).AsString; + mBegTime := ADOQueryCmd.FieldByName('time').AsString; + mEndTime := ADOQueryCmd.FieldByName('time').AsString; + + while not ADOQueryCmd.Eof do + begin + if (ADOQueryCmd.FieldByName(mMCName).AsString = null) or (ADOQueryCmd.FieldByName(mMCName).AsString = '') then + begin + mEndTime := ADOQueryCmd.FieldByName('time').AsString; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('update Dye_Plan_Glide set BegTime = ' + QuotedStr(Trim(mBegTime))); + sql.Add(' , EndTime = ' + QuotedStr(Trim(mEndTime))); + SQL.Add(' where GlideID = ' + QuotedStr(Trim(GetLastLine(mNewValue)))); + ExecSQL; + end; + ADOQueryCmd.Connection.CommitTrans; + Result := True; // ɹ + Exit; + end; + + if mNewValue <> ADOQueryCmd.FieldByName(mMCName).AsString then + begin + mEndTime := ADOQueryCmd.FieldByName('time').AsString; + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('update Dye_Plan_Glide set BegTime = ' + QuotedStr(Trim(mBegTime))); + sql.Add(' , EndTime = ' + QuotedStr(Trim(mEndTime))); + SQL.Add(' where GlideID = ' + QuotedStr(Trim(GetLastLine(mNewValue)))); + ExecSQL; + end; + mBegTime := ADOQueryCmd.FieldByName('time').AsString; + mNewValue := ADOQueryCmd.FieldByName(mMCName).AsString; + end; + + ADOQueryCmd.Next; + end; + end; + ADOQueryCmd.Connection.CommitTrans; + Result := True; // ɹ + except + ADOQueryCmd.Connection.RollbackTrans; + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); + Result := False; // ʧ + end; +end; + function TfrmDyePCDetailsList.GetLastLine(const AText: string): string; var StringList: TStringList; @@ -364,8 +570,15 @@ begin FieldByName('ALL_temperature6').value := CDS_2.FieldByName('ALL_temperature6').AsString; FieldByName('time').value := CDS_2.FieldByName('time').AsString; FieldByName('GlideID').value := CDS_2.FieldByName('GlideID').AsString; + FieldByName('PSType').value := CDS_2.FieldByName('PSType').AsString; + FieldByName('C_Width').value := CDS_2.FieldByName('C_Width').AsString; + FieldByName('All_Speed').value := CDS_2.FieldByName('All_Speed').AsString; - FieldByName('PCQty').value := CDS_2.FieldByName('PCQty').AsString; + FieldByName('All_zhuji').value := CDS_2.FieldByName('All_zhuji').AsString; + FieldByName('gj_number').AsString := CDS_2.FieldByName('gj_number').AsString; + FieldByName('fp_gjNumber').AsString := CDS_2.FieldByName('fp_gjNumber').AsString; + + FieldByName('PCQty').AsString := CDS_2.FieldByName('PCQty').AsString; FieldByName('begTime').value := ADOQueryMain.FieldByName('MaxTime').AsString; @@ -711,13 +924,13 @@ begin ACanvas.Font.Color := clWindowText; // Ĭϴıɫ ACanvas.Font.Style := []; end - else if (PC_FLAG = 1) and (not VarIsNull(isComplete)) and (isComplete = 0) then // һ + else if (not VarIsNull(isComplete)) and (isComplete = 0) then // һ begin ACanvas.Brush.Color := $00E0E0E0; // dzɫ ACanvas.Font.Color := clGray; ACanvas.Font.Style := [fsBold]; // end - else if (PC_FLAG = 1) and (not VarIsNull(isComplete)) and (isComplete = 1) then // Ʒ + else if (not VarIsNull(isComplete)) and (isComplete = 1) then // Ʒ begin ACanvas.Brush.Color := $00E0FFE0; // dzɫ ACanvas.Font.Color := $00008000; @@ -820,6 +1033,22 @@ begin end; end; +procedure TfrmDyePCDetailsList.TbMoveDownClick(Sender: TObject); +begin + if SaveMove('') then + ShowMessage('Ƴɹ') + else + ShowMessage('ʧܣ'); +end; + +procedure TfrmDyePCDetailsList.TbMoveUpClick(Sender: TObject); +begin + if SaveMove('') then + ShowMessage('Ƴɹ') + else + ShowMessage('ʧܣ'); +end; + procedure TfrmDyePCDetailsList.pcidChange(Sender: TObject); begin TBFind.Click;