11.16
This commit is contained in:
parent
db6a693a71
commit
30c0831f03
|
|
@ -1,50 +1,50 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.936,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
</Transactions>
|
||||
|
|
|
|||
|
|
@ -357,6 +357,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
|
|||
Height = 396
|
||||
Align = alBottom
|
||||
TabOrder = 1
|
||||
ExplicitLeft = 1
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -1,33 +1,33 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.620,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_MachTaskList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.788,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeOutputList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>2025/09/13 17:08:13.000.517,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_BS_MachineSel.pas</Transaction>
|
||||
<Transaction>2025/09/25 15:07:18.000.836,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyeProcessDefin.pas</Transaction>
|
||||
<Transaction>2025/11/11 15:05:18.000.149,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\Unit2.pas</Transaction>
|
||||
<Transaction>2025/11/11 15:06:44.000.606,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCDetailsList.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\Unit2.dfm</Transaction>
|
||||
<Transaction>2025/11/11 15:06:44.000.606,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCDetailsList.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\Unit2.pas</Transaction>
|
||||
<Transaction>2025/11/11 15:06:44.000.606,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\Unit2.dfm=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCDetailsList.dfm</Transaction>
|
||||
<Transaction>2025/11/11 15:06:44.000.606,D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\Unit2.pas=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F04染色刷卡\U_DyePCDetailsList.pas</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="..\..\D10sxYilanbuyi"/>
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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; // 浅灰色背景
|
||||
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; // 浅绿色背景
|
||||
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;
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user