Group_02/D10sxYilanbuyi
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-08-12 13:42:42 +08:00
parent c4f56cee73
commit d0820db5ea
25 changed files with 873 additions and 718 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
A02基础产品管理/ClothInfo.dproj.local
View File

@ -9,7 +9,7 @@
<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.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.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.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.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.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.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
@ -18,15 +18,15 @@
<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.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.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.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.187,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.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.493,=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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.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.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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
@ -39,14 +39,14 @@
<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.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.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.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.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/> <File Path="..\..\D10sxYilanbuyi"/>

86
A02基础产品管理/U_ClothInfoInput.dfm
View File

@ -70,6 +70,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
TabStop = False
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
ClientRectBottom = 708 ClientRectBottom = 708
@ -98,10 +99,9 @@ object frmClothInfoInput: TfrmClothInfoInput
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitLeft = 1
object C_GramWeight: TcxTextEdit object C_GramWeight: TcxTextEdit
Tag = 2 Tag = 2
Left = 435 Left = 553
Top = 138 Top = 138
ParentFont = False ParentFont = False
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
@ -114,12 +114,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 0 TabOrder = 9
Width = 140 Width = 240
end end
object F_Width: TcxTextEdit object F_Width: TcxTextEdit
Tag = 2 Tag = 2
Left = 435 Left = 553
Top = 97 Top = 97
ParentFont = False ParentFont = False
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
@ -132,8 +132,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 1 TabOrder = 8
Width = 140 Width = 240
end end
object cxLabel37: TcxLabel object cxLabel37: TcxLabel
Left = 16 Left = 16
@ -172,7 +172,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
object cxLabel41: TcxLabel object cxLabel41: TcxLabel
Left = 321 Left = 422
Top = 137 Top = 137
Caption = #25104#21697#20811#37325'(g/'#13217')' Caption = #25104#21697#20811#37325'(g/'#13217')'
ParentFont = False ParentFont = False
@ -184,7 +184,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
object cxLabel43: TcxLabel object cxLabel43: TcxLabel
Left = 321 Left = 422
Top = 97 Top = 97
Caption = #22383#24067#38376#24133'(cm)' Caption = #22383#24067#38376#24133'(cm)'
ParentFont = False ParentFont = False
@ -196,7 +196,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
object cxLabel45: TcxLabel object cxLabel45: TcxLabel
Left = 321 Left = 422
Top = 57 Top = 57
Caption = #25104#21697#38376#24133'(cm)' Caption = #25104#21697#38376#24133'(cm)'
ParentFont = False ParentFont = False
@ -208,7 +208,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
object cxLabel46: TcxLabel object cxLabel46: TcxLabel
Left = 321 Left = 422
Top = 178 Top = 178
Caption = #22383#24067#20811#37325'(g/'#13217')' Caption = #22383#24067#20811#37325'(g/'#13217')'
ParentFont = False ParentFont = False
@ -232,7 +232,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
object cxLabel48: TcxLabel object cxLabel48: TcxLabel
Left = 594 Left = 817
Top = 17 Top = 17
Caption = #21518#25972#29702#26631#20934 Caption = #21518#25972#29702#26631#20934
ParentFont = False ParentFont = False
@ -258,8 +258,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 11 TabOrder = 1
Width = 140 Width = 240
end end
object LatitudeSlope: TcxTextEdit object LatitudeSlope: TcxTextEdit
Tag = 2 Tag = 2
@ -276,12 +276,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 12 TabOrder = 2
Width = 140 Width = 240
end end
object FinishingStandards: TcxTextEdit object FinishingStandards: TcxTextEdit
Tag = 2 Tag = 2
Left = 691 Left = 914
Top = 15 Top = 15
ParentFont = False ParentFont = False
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
@ -294,12 +294,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 13 TabOrder = 11
Width = 140 Width = 240
end end
object C_COLOR: TcxTextEdit object C_COLOR: TcxTextEdit
Tag = 2 Tag = 2
Left = 435 Left = 553
Top = 15 Top = 15
ParentFont = False ParentFont = False
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
@ -312,12 +312,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 14 TabOrder = 6
Width = 140 Width = 240
end end
object C_Width: TcxTextEdit object C_Width: TcxTextEdit
Tag = 2 Tag = 2
Left = 435 Left = 553
Top = 56 Top = 56
ParentFont = False ParentFont = False
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
@ -330,12 +330,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 15 TabOrder = 7
Width = 140 Width = 240
end end
object F_GramWeight: TcxTextEdit object F_GramWeight: TcxTextEdit
Tag = 2 Tag = 2
Left = 435 Left = 553
Top = 179 Top = 179
ParentFont = False ParentFont = False
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
@ -348,8 +348,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 16 TabOrder = 10
Width = 140 Width = 240
end end
object C_FinishLatitudeDensity: TcxTextEdit object C_FinishLatitudeDensity: TcxTextEdit
Tag = 2 Tag = 2
@ -366,8 +366,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 17 TabOrder = 3
Width = 140 Width = 240
end end
object cxLabel114: TcxLabel object cxLabel114: TcxLabel
Left = 16 Left = 16
@ -396,8 +396,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 19 TabOrder = 4
Width = 140 Width = 240
end end
object cxLabel150: TcxLabel object cxLabel150: TcxLabel
Left = 16 Left = 16
@ -427,9 +427,9 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 21 TabOrder = 5
Text = #33258#21160#29983#25104 Text = #33258#21160#29983#25104
Width = 140 Width = 240
end end
object cxGrid4: TcxGrid object cxGrid4: TcxGrid
Left = 1 Left = 1
@ -437,7 +437,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 1074 Width = 1074
Height = 346 Height = 346
Align = alBottom Align = alBottom
TabOrder = 22 TabOrder = 24
object TV4: TcxGridDBTableView object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -484,7 +484,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 1074 Width = 1074
Height = 41 Height = 41
Align = alBottom Align = alBottom
TabOrder = 23 TabOrder = 25
object Panel9: TPanel object Panel9: TPanel
Left = 1 Left = 1
Top = 42 Top = 42
@ -649,11 +649,11 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 24 TabOrder = 0
Width = 140 Width = 240
end end
object cxLabel273: TcxLabel object cxLabel273: TcxLabel
Left = 321 Left = 422
Top = 16 Top = 16
Caption = #39068#33394 Caption = #39068#33394
ParentFont = False ParentFont = False
@ -665,7 +665,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True Style.IsFontAssigned = True
end end
object cxLabel42: TcxLabel object cxLabel42: TcxLabel
Left = 594 Left = 817
Top = 58 Top = 58
Caption = #28165#27927#21518#38376#24133 Caption = #28165#27927#21518#38376#24133
ParentFont = False ParentFont = False
@ -678,7 +678,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end end
object C_washWidth: TcxTextEdit object C_washWidth: TcxTextEdit
Tag = 2 Tag = 2
Left = 691 Left = 914
Top = 58 Top = 58
ParentFont = False ParentFont = False
Style.Font.Charset = GB2312_CHARSET Style.Font.Charset = GB2312_CHARSET
@ -691,8 +691,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 27 TabOrder = 12
Width = 140 Width = 240
end end
end end
end end

1
A02基础产品管理/U_ClothInfoInput.pas
View File

@ -849,6 +849,7 @@ begin
Close; Close;
SQL.Clear; SQL.Clear;
SQL.Add('select * from BS_Cloth_Dye_Technics where BCIID=''' + Trim(FBCIID) + ''''); SQL.Add('select * from BS_Cloth_Dye_Technics where BCIID=''' + Trim(FBCIID) + '''');
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_GY); SCreateCDS(ADOQueryTemp, CDS_GY);

80
F01染色坯布仓库/DyeGreyClothStk.dproj.local
View File

@ -1,46 +1,46 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.865,=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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm</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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.791,=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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.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.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm</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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/> <File Path="..\..\D10sxYilanbuyi"/>

BIN
F01染色坯布仓库/DyeGreyClothStk.identcache
View File

Binary file not shown.

3
F01染色坯布仓库/U_DyeGreyClothInList.dfm
View File

@ -30,6 +30,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = 1
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -115,6 +116,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label1: TLabel object Label1: TLabel
Left = 28 Left = 28
Top = 12 Top = 12
@ -326,6 +328,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 97
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

1
F02染色计划单/DyePlan.dproj
View File

@ -920,6 +920,7 @@
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/> <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/> <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
</Deployment> </Deployment>
<ModelSupport>False</ModelSupport>
</BorlandProject> </BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion> <ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions> </ProjectExtensions>

116
F02染色计划单/DyePlan.dproj.local
View File

@ -1,64 +1,64 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.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.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.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.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm</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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.037,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_Cust_Cloth_PSC.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.362,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.037,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_Cust_Cloth_PSC.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.362,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj</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.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.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.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.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.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.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.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm</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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.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.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.383,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_CraftSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm</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.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm</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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.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.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>2025-07-31 09:26:29.000.383,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_CraftSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/> <File Path="..\..\D10sxYilanbuyi"/>

BIN
F02染色计划单/DyePlan.identcache
View File

Binary file not shown.

1
F02染色计划单/U_CraftSel.dfm
View File

@ -21,7 +21,6 @@ inherited frmCraftSel: TfrmCraftSel
Height = 476 Height = 476
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 88
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

6
F02染色计划单/U_CraftSel.pas
View File

@ -67,7 +67,7 @@ type
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
public public
FCoType, FAuthority, FBCIID,fcode: string; FCoType, FAuthority, FBCIID, fcode, FC_Name: string;
{ Public declarations } { Public declarations }
end; end;
@ -123,7 +123,9 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.* from Bs_Cloth_Dye_Technics A where C_Code = ' + QuotedStr(Trim(fCode))); // sql.Add('select A.* from Bs_Cloth_Dye_Technics A where C_Code = ' + QuotedStr(Trim(fCode)));
SQL.Add('select * from BS_Cloth_Dye_Technics A where (SELECT C_Name FROM Bs_Cloth_Info E WHERE E.BCIID=A.BCIID)=''' + Trim(FC_Name) + '''');
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_1); SCreateCDS(ADOQueryMain, CDS_1);

2
F02染色计划单/U_DyePlanCardInput.pas
View File

@ -392,6 +392,7 @@ begin
begin begin
fmainID := Order_Main.fieldbyname('mainID').asstring; fmainID := Order_Main.fieldbyname('mainID').asstring;
fC_Code := Order_Main.fieldbyname('C_Code').asstring; fC_Code := Order_Main.fieldbyname('C_Code').asstring;
fC_name := Order_Main.fieldbyname('C_name').asstring;
InitOrder(); InitOrder();
InitGreyClothStk(); InitGreyClothStk();
InitCard(); InitCard();
@ -450,6 +451,7 @@ begin
with frmCraftSel do with frmCraftSel do
begin begin
fcode := Self.FC_Code; fcode := Self.FC_Code;
fC_name := Self.fC_name;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
with frmCraftSel.CDS_1 do with frmCraftSel.CDS_1 do

1
F02染色计划单/U_DyePlanCardList.dfm
View File

@ -386,6 +386,7 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitLeft = -8
ExplicitTop = 125 ExplicitTop = 125
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>

55
F02染色计划单/U_DyePlanForCardSel.dfm
View File

@ -93,8 +93,9 @@ object frmProductOrderListSel: TfrmProductOrderListSel
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
ExplicitTop = 44
object Label3: TLabel object Label3: TLabel
Left = 355 Left = 292
Top = 14 Top = 14
Width = 52 Width = 52
Height = 12 Height = 12
@ -126,14 +127,27 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Height = 12 Height = 12
Caption = '-' Caption = '-'
end end
object OrderNoM: TEdit object Label4: TLabel
Left = 524
Top = 14
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrderNo: TEdit
Tag = 2 Tag = 2
Left = 412 Left = 349
Top = 10 Top = 10
Width = 149 Width = 149
Height = 20 Height = 20
TabOrder = 0 TabOrder = 0
OnKeyPress = OrderNoMKeyPress OnKeyPress = OrderNoKeyPress
end end
object BegDate: TDateTimePicker object BegDate: TDateTimePicker
Left = 76 Left = 76
@ -155,6 +169,15 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Time = 0.464761099538009100 Time = 0.464761099538009100
TabOrder = 2 TabOrder = 2
end end
object C_Name: TEdit
Tag = 2
Left = 581
Top = 10
Width = 149
Height = 20
TabOrder = 3
OnKeyPress = OrderNoKeyPress
end
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
@ -174,7 +197,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = AnticipateQTY Column = Tv1AnticipateQTY
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -195,7 +218,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 44 Width = 44
end end
object OrderNo: TcxGridDBColumn object Tv1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -204,7 +227,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default Styles.Header = DataLink_DyePlan.Default
Width = 72 Width = 72
end end
object C_CodeName: TcxGridDBColumn object Tv1C_CodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -213,7 +236,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default Styles.Header = DataLink_DyePlan.Default
Width = 82 Width = 82
end end
object CustNoName: TcxGridDBColumn object Tv1CustNoName: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustName' DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -221,7 +244,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object C_Width: TcxGridDBColumn object Tv1C_Width: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -230,7 +253,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default Styles.Header = DataLink_DyePlan.Default
Width = 70 Width = 70
end end
object C_GramWeight: TcxGridDBColumn object Tv1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -238,7 +261,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Options.Focusing = False Options.Focusing = False
Width = 72 Width = 72
end end
object C_COLOR: TcxGridDBColumn object Tv1C_COLOR: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_COLOR' DataBinding.FieldName = 'C_COLOR'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -247,7 +270,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default Styles.Header = DataLink_DyePlan.Default
Width = 82 Width = 82
end end
object C_COLORNO: TcxGridDBColumn object Tv1C_COLORNO: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_COLORNO' DataBinding.FieldName = 'C_COLORNO'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -264,14 +287,14 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Options.Editing = False Options.Editing = False
Width = 52 Width = 52
end end
object C_Pattern: TcxGridDBColumn object Tv1C_Pattern: TcxGridDBColumn
Caption = #33457#22411#21495 Caption = #33457#22411#21495
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end end
object AnticipateQTY: TcxGridDBColumn object Tv1AnticipateQTY: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'AntcpQty' DataBinding.FieldName = 'AntcpQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -280,7 +303,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default Styles.Header = DataLink_DyePlan.Default
Width = 86 Width = 86
end end
object OrderUnit: TcxGridDBColumn object Tv1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301 Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'AntcpUnit' DataBinding.FieldName = 'AntcpUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -309,7 +332,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object DeliveryDate: TcxGridDBColumn object Tv1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399 Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate' DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True

106
F02染色计划单/U_DyePlanForCardSel.pas
View File

@ -27,24 +27,24 @@ type
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
DataSource1: TDataSource; DataSource1: TDataSource;
Label3: TLabel; Label3: TLabel;
OrderNoM: TEdit; OrderNo: TEdit;
OrderNo: TcxGridDBColumn; Tv1OrderNo: TcxGridDBColumn;
DeliveryDate: TcxGridDBColumn; Tv1DeliveryDate: TcxGridDBColumn;
C_COLOR: TcxGridDBColumn; Tv1C_COLOR: TcxGridDBColumn;
Order_Main: TClientDataSet; Order_Main: TClientDataSet;
C_CodeName: TcxGridDBColumn; Tv1C_CodeName: TcxGridDBColumn;
C_Width: TcxGridDBColumn; Tv1C_Width: TcxGridDBColumn;
AnticipateQTY: TcxGridDBColumn; Tv1AnticipateQTY: TcxGridDBColumn;
C_GramWeight: TcxGridDBColumn; Tv1C_GramWeight: TcxGridDBColumn;
ToolButton3: TToolButton; ToolButton3: TToolButton;
v1Column4: TcxGridDBColumn; v1Column4: TcxGridDBColumn;
C_COLORNO: TcxGridDBColumn; Tv1C_COLORNO: TcxGridDBColumn;
v1Column3: TcxGridDBColumn; v1Column3: TcxGridDBColumn;
OrderUnit: TcxGridDBColumn; Tv1OrderUnit: TcxGridDBColumn;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
N2: TMenuItem; N2: TMenuItem;
C_Pattern: TcxGridDBColumn; Tv1C_Pattern: TcxGridDBColumn;
TBRafresh: TToolButton; TBRafresh: TToolButton;
TBFind: TToolButton; TBFind: TToolButton;
BegDate: TDateTimePicker; BegDate: TDateTimePicker;
@ -52,19 +52,21 @@ type
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
CustNoName: TcxGridDBColumn; Tv1CustNoName: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn; Tv1Column16: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Label4: TLabel;
C_Name: TEdit;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure OrderNoMKeyPress(Sender: TObject; var Key: Char); // procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
procedure Tv1DblClick(Sender: TObject); procedure Tv1DblClick(Sender: TObject);
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
@ -72,6 +74,7 @@ type
procedure TBFindClick(Sender: TObject); procedure TBFindClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
private private
DQdate: TDateTime; DQdate: TDateTime;
procedure InitGrid(); procedure InitGrid();
@ -121,11 +124,19 @@ begin
sql.Add('select B.*,A.* '); sql.Add('select B.*,A.* ');
sql.add('from Dye_Plan_sub A'); sql.add('from Dye_Plan_sub A');
sql.Add('inner join Dye_Plan_Main B on B.mainID=A.mainID '); sql.Add('inner join Dye_Plan_Main B on B.mainID=A.mainID ');
sql.Add('where B.FillTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' '); sql.Add('where B.OrdDate>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add('and B.FillTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' '); sql.Add('and B.OrdDate<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
// sql.Add('and B.Workshop=' + quotedstr(fWorkshop)); // sql.Add('and B.Workshop=' + quotedstr(fWorkshop));
// sql.Add('and isnull(B.status,''0'')=''9'''); // sql.Add('and isnull(B.status,''0'')=''9''');
if OrderNo.Text <> '' then
begin
SQL.Add('AND B.OrderNo like ''' + '%' + Trim(OrderNo.Text) + '%' + '''');
end;
if C_Name.Text <> '' then
begin
SQL.Add('AND B.C_Name like ''' + '%' + Trim(C_Name.Text) + '%' + '''');
end;
if cxTabControl1.TabIndex = 0 then if cxTabControl1.TabIndex = 0 then
sql.Add('and not exists(select PCID from Dye_Plan_Card X where X.subID=A.subID)'); sql.Add('and not exists(select PCID from Dye_Plan_Card X where X.subID=A.subID)');
@ -145,13 +156,14 @@ end;
procedure TfrmProductOrderListSel.InitForm(); procedure TfrmProductOrderListSel.InitForm();
begin begin
ReadCxGrid('指示单列表选择', Tv1, '生产指示单管理'); ReadCxGrid('指示单列表选择', Tv1, '生产指示单管理');
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 15; BegDate.DateTime := SGetServerDate(ADOQueryTemp);
EndDate.DateTime := SGetServerDate(ADOQueryTemp); EndDate.DateTime := SGetServerDate(ADOQueryTemp);
InitGrid(); InitGrid();
end; end;
procedure TfrmProductOrderListSel.FormShow(Sender: TObject); procedure TfrmProductOrderListSel.FormShow(Sender: TObject);
begin begin
InitForm(); InitForm();
if FFInt = 1 then if FFInt = 1 then
begin begin
@ -173,34 +185,34 @@ begin
ModalResult := 1; ModalResult := 1;
end; end;
procedure TfrmProductOrderListSel.OrderNoMKeyPress(Sender: TObject; var Key: Char); //procedure TfrmProductOrderListSel.OrderNoKeyPress(Sender: TObject; var Key: Char);
begin //begin
if Key = #13 then // if Key = #13 then
begin // begin
if Length(Trim(OrderNoM.Text)) < 3 then // if Length(Trim(OrderNo.Text)) < 3 then
Exit; // Exit;
try // try
ADOQueryMain.DisableControls; // ADOQueryMain.DisableControls;
with ADOQueryMain do // with ADOQueryMain do
begin // begin
//
Close; // Close;
Filtered := False; // Filtered := False;
sql.Clear; // sql.Clear;
sql.Add('select B.*,A.*,A.OrderNo orderNoM '); // sql.Add('select B.*,A.*,A.OrderNo orderNoM ');
sql.add('from Dye_Plan_sub A'); // sql.add('from Dye_Plan_sub A');
sql.Add('inner join Dye_Plan_Main B on B.mainID=A.mainID '); // sql.Add('inner join Dye_Plan_Main B on B.mainID=A.mainID ');
// sql.Add('left join Dye_PlanCon_Main C on C.conNO=B.conNO '); // // sql.Add('left join Dye_PlanCon_Main C on C.conNO=B.conNO ');
SQL.Add('where B.OrderNo like ''' + '%' + Trim(OrderNoM.Text) + '%' + ''''); // SQL.Add('where B.OrderNo like ''' + '%' + Trim(OrderNo.Text) + '%' + '''');
Open; // Open;
end; // end;
SCreateCDS(ADOQueryMain, Order_Main); // SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main); // SInitCDSData(ADOQueryMain, Order_Main);
finally // finally
ADOQueryMain.EnableControls; // ADOQueryMain.EnableControls;
end; // end;
end; // end;
end; //end;
procedure TfrmProductOrderListSel.Tv1DblClick(Sender: TObject); procedure TfrmProductOrderListSel.Tv1DblClick(Sender: TObject);
begin begin
@ -217,6 +229,12 @@ begin
SelOKNo(Order_Main, false); SelOKNo(Order_Main, false);
end; end;
procedure TfrmProductOrderListSel.OrderNoKeyPress(Sender: TObject;
var Key: Char);
begin
InitGrid();
end;
procedure TfrmProductOrderListSel.TBRafreshClick(Sender: TObject); procedure TfrmProductOrderListSel.TBRafreshClick(Sender: TObject);
begin begin
initgrid(); initgrid();

2
F02染色计划单/U_DyePlanInPut.dfm
View File

@ -79,7 +79,6 @@ object frmDyePlanInPut: TfrmDyePlanInPut
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label1: TLabel object Label1: TLabel
Left = 31 Left = 31
Top = 69 Top = 69
@ -575,7 +574,6 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
ExplicitTop = 365
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

4
F02染色计划单/U_DyePlanInPut.pas
View File

@ -314,9 +314,9 @@ begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('UPDATE Dye_Plan_Main SET GC_STKID= '); sql.Add('UPDATE Dye_Plan_Main SET GC_STKID= ');
SQL.Add(' STUFF(( SELECT '','' +CAST(STKID AS VARCHAR) FROM Dye_Plan_Sub c where c.MAINID = a.MAINID FOR XML PATH('''')), 1, 1, '''')'); SQL.Add(' STUFF(( SELECT '','' +CAST(STKID AS VARCHAR) FROM Dye_Plan_Sub c where c.MAINID = Dye_Plan_Main.MAINID FOR XML PATH('''')), 1, 1, '''')');
sql.Add(' where MainId=''' + Trim(FMainId) + ''''); sql.Add(' where MainId=''' + Trim(FMainId) + '''');
ShowMessage(sql.Text);
EXECSQL; EXECSQL;
end; end;
/////////////// ±£´æ×Ó±í /////////////// /////////////// ±£´æ×Ó±í ///////////////

3
F02染色计划单/U_DyePlanList.dfm
View File

@ -366,6 +366,7 @@ inherited frmDyePlanList: TfrmDyePlanList
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 127
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -579,8 +580,6 @@ inherited frmDyePlanList: TfrmDyePlanList
Height = 8 Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom AlignSplitter = salBottom
ExplicitLeft = -280
ExplicitTop = 501
end end
object cxTabControl1: TcxTabControl [4] object cxTabControl1: TcxTabControl [4]
Left = 0 Left = 0

389
F02染色计划单/U_DyeProcessDefin.dfm
View File

@ -2,7 +2,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 459 Left = 459
Top = 231 Top = 231
Caption = #20135#21697#20449#24687#24405#20837 Caption = #20135#21697#20449#24687#24405#20837
ClientHeight = 815 ClientHeight = 827
ClientWidth = 1147 ClientWidth = 1147
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -59,12 +59,12 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 73 Top = 73
Width = 1147 Width = 1147
Height = 742 Height = 754
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
Properties.ActivePage = GJ Properties.ActivePage = FP
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
ClientRectBottom = 740 ClientRectBottom = 752
ClientRectLeft = 2 ClientRectLeft = 2
ClientRectRight = 1145 ClientRectRight = 1145
ClientRectTop = 22 ClientRectTop = 22
@ -75,7 +75,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1143 Width = 1143
Height = 718 Height = 730
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object cxLabel335: TcxLabel object cxLabel335: TcxLabel
@ -194,7 +194,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1143 Width = 1143
Height = 718 Height = 730
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object ccqx_note: TcxTextEdit object ccqx_note: TcxTextEdit
@ -390,7 +390,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1143 Width = 1143
Height = 718 Height = 730
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object cxLabel114: TcxLabel object cxLabel114: TcxLabel
@ -489,7 +489,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1143 Width = 1143
Height = 718 Height = 730
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object cxLabel340: TcxLabel object cxLabel340: TcxLabel
@ -770,7 +770,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1143 Width = 1143
Height = 718 Height = 730
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -1490,11 +1490,9 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1143 Width = 1143
Height = 718 Height = 730
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 3
ExplicitTop = 44
object TbFSReplace1: TcxButton object TbFSReplace1: TcxButton
Left = 104 Left = 104
Top = 298 Top = 298
@ -1532,8 +1530,8 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
OnClick = TBFScLEAR2Click OnClick = TBFScLEAR2Click
end end
object cxLabel191: TcxLabel object cxLabel191: TcxLabel
Left = 303 Left = 423
Top = 25 Top = 23
Caption = #28888#31570#21387#21147'(MPA)' Caption = #28888#31570#21387#21147'(MPA)'
end end
object cxLabel192: TcxLabel object cxLabel192: TcxLabel
@ -1561,14 +1559,9 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Top = 271 Top = 271
Caption = '9#' Caption = '9#'
end end
object cxLabel197: TcxLabel
Left = 37
Top = 25
Caption = #36710#23614#38376#24133'(cm)'
end
object cxLabel198: TcxLabel object cxLabel198: TcxLabel
Left = 37 Left = 37
Top = 77 Top = 76
Caption = #36710#36895'(M/Min)' Caption = #36710#36895'(M/Min)'
end end
object cxLabel199: TcxLabel object cxLabel199: TcxLabel
@ -1578,7 +1571,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end end
object cxLabel200: TcxLabel object cxLabel200: TcxLabel
Left = 11 Left = 11
Top = 484 Top = 493
Caption = #22791#27880 Caption = #22791#27880
end end
object cxLabel201: TcxLabel object cxLabel201: TcxLabel
@ -1587,7 +1580,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Caption = #19978#36229#21890#29575'(%)' Caption = #19978#36229#21890#29575'(%)'
end end
object cxLabel202: TcxLabel object cxLabel202: TcxLabel
Left = 303 Left = 423
Top = 103 Top = 103
Caption = #26426#23614#21367#24067#26041#27861 Caption = #26426#23614#21367#24067#26041#27861
end end
@ -1637,13 +1630,13 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Caption = '10#' Caption = '10#'
end end
object cxLabel212: TcxLabel object cxLabel212: TcxLabel
Left = 303 Left = 423
Top = 51 Top = 50
Caption = #21387#36710#21387#21147'(MPA)' Caption = #21387#36710#21387#21147'(MPA)'
end end
object cxLabel213: TcxLabel object cxLabel213: TcxLabel
Left = 303 Left = 423
Top = 77 Top = 76
Caption = #28888#31570#28201#24230'('#8451')' Caption = #28888#31570#28201#24230'('#8451')'
end end
object cxLabel214: TcxLabel object cxLabel214: TcxLabel
@ -1703,27 +1696,27 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end end
object cxLabel225: TcxLabel object cxLabel225: TcxLabel
Left = 281 Left = 281
Top = 441 Top = 450
Caption = '2#' Caption = '2#'
end end
object cxLabel226: TcxLabel object cxLabel226: TcxLabel
Left = 7 Left = 7
Top = 417 Top = 424
Caption = #25490#39118'r/min:' Caption = #25490#39118'r/min:'
end end
object cxLabel227: TcxLabel object cxLabel227: TcxLabel
Left = 38 Left = 38
Top = 438 Top = 447
Caption = '1#' Caption = '1#'
end end
object cxLabel228: TcxLabel object cxLabel228: TcxLabel
Left = 491 Left = 491
Top = 443 Top = 452
Caption = '3#' Caption = '3#'
end end
object cxLabel229: TcxLabel object cxLabel229: TcxLabel
Left = 693 Left = 693
Top = 441 Top = 450
Caption = '4#' Caption = '4#'
end end
object cxLabel230: TcxLabel object cxLabel230: TcxLabel
@ -1736,26 +1729,16 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Top = 271 Top = 271
Caption = '11#' Caption = '11#'
end end
object cxLabel232: TcxLabel
Left = 37
Top = 51
Caption = #25104#21697#38376#24133'(cm)'
end
object cxLabel333: TcxLabel
Left = 575
Top = 77
Caption = #20811#37325
end
object fs_CarPress: TcxTextEdit object fs_CarPress: TcxTextEdit
Tag = 2 Tag = 2
Left = 390 Left = 510
Top = 49 Top = 50
Style.LookAndFeel.SkinName = 'WXI' Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 47 TabOrder = 44
Width = 150 Width = 200
end end
object fs_DownSuperRate: TcxTextEdit object fs_DownSuperRate: TcxTextEdit
Tag = 2 Tag = 2
@ -1765,18 +1748,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 48 TabOrder = 45
Width = 150
end
object fs_gram: TcxTextEdit
Tag = 2
Left = 630
Top = 76
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 49
Width = 150 Width = 150
end end
object fs_hotWind1: TcxTextEdit object fs_hotWind1: TcxTextEdit
@ -1788,7 +1760,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 50 TabOrder = 46
Width = 150 Width = 150
end end
object fs_hotWind10: TcxTextEdit object fs_hotWind10: TcxTextEdit
@ -1800,7 +1772,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 51 TabOrder = 47
Width = 150 Width = 150
end end
object fs_hotWind11: TcxTextEdit object fs_hotWind11: TcxTextEdit
@ -1812,7 +1784,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 52 TabOrder = 48
Width = 150 Width = 150
end end
object fs_hotWind2: TcxTextEdit object fs_hotWind2: TcxTextEdit
@ -1824,7 +1796,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 53 TabOrder = 49
Width = 150 Width = 150
end end
object fs_hotWind3: TcxTextEdit object fs_hotWind3: TcxTextEdit
@ -1836,7 +1808,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 54 TabOrder = 50
Width = 150 Width = 150
end end
object fs_hotWind4: TcxTextEdit object fs_hotWind4: TcxTextEdit
@ -1848,7 +1820,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 55 TabOrder = 51
Width = 150 Width = 150
end end
object fs_hotWind5: TcxTextEdit object fs_hotWind5: TcxTextEdit
@ -1860,7 +1832,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 56 TabOrder = 52
Width = 150 Width = 150
end end
object fs_hotWind6: TcxTextEdit object fs_hotWind6: TcxTextEdit
@ -1872,7 +1844,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 57 TabOrder = 53
Width = 150 Width = 150
end end
object fs_hotWind7: TcxTextEdit object fs_hotWind7: TcxTextEdit
@ -1884,7 +1856,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 58 TabOrder = 54
Width = 150 Width = 150
end end
object fs_hotWind8: TcxTextEdit object fs_hotWind8: TcxTextEdit
@ -1896,7 +1868,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 59 TabOrder = 55
Width = 150 Width = 150
end end
object fs_hotWind9: TcxTextEdit object fs_hotWind9: TcxTextEdit
@ -1908,27 +1880,26 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 60 TabOrder = 56
Width = 150 Width = 150
end end
object fs_Precautions: TcxTextEdit object fs_Precautions: TcxTextEdit
Tag = 2 Tag = 2
Left = 62 Left = 62
Top = 470 Top = 479
Hint = #38450#27700#28201#25511
AutoSize = False AutoSize = False
Style.LookAndFeel.SkinName = 'WXI' Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 61 TabOrder = 57
Height = 50 Height = 50
Width = 650 Width = 650
end end
object fs_RollMethod: TcxComboBox object fs_RollMethod: TcxComboBox
Tag = 2 Tag = 2
Left = 390 Left = 510
Top = 100 Top = 103
Properties.Items.Strings = ( Properties.Items.Strings = (
'' ''
#21367#26729 #21367#26729
@ -1938,13 +1909,61 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 62 TabOrder = 58
Width = 150 Width = 200
end end
object fs_RosePower: TcxTextEdit object fs_RosePower: TcxTextEdit
Tag = 2 Tag = 2
Left = 119 Left = 119
Top = 100 Top = 103
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 59
Width = 200
end
object fs_rowWind1: TcxTextEdit
Tag = 2
Left = 104
Top = 447
Hint = #38450#27700#25490#39118
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 60
Width = 150
end
object fs_rowWind2: TcxTextEdit
Tag = 2
Left = 303
Top = 447
Hint = #38450#27700#25490#39118
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 61
Width = 150
end
object fs_rowWind3: TcxTextEdit
Tag = 2
Left = 512
Top = 447
Hint = #38450#27700#25490#39118
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 62
Width = 150
end
object fs_rowWind4: TcxTextEdit
Tag = 2
Left = 711
Top = 447
Hint = #38450#27700#25490#39118
Style.LookAndFeel.SkinName = 'WXI' Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
@ -1952,64 +1971,16 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
TabOrder = 63 TabOrder = 63
Width = 150 Width = 150
end end
object fs_rowWind1: TcxTextEdit object fs_speed: TcxTextEdit
Tag = 2 Tag = 2
Left = 104 Left = 119
Top = 438 Top = 76
Hint = #23450#22411#28888#31665#28201#24230
Style.LookAndFeel.SkinName = 'WXI' Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 64 TabOrder = 64
Width = 150 Width = 200
end
object fs_rowWind2: TcxTextEdit
Tag = 2
Left = 303
Top = 438
Hint = #23450#22411#28888#31665#28201#24230
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 65
Width = 150
end
object fs_rowWind3: TcxTextEdit
Tag = 2
Left = 512
Top = 438
Hint = #23450#22411#28888#31665#28201#24230
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 66
Width = 150
end
object fs_rowWind4: TcxTextEdit
Tag = 2
Left = 711
Top = 438
Hint = #23450#22411#28888#31665#28201#24230
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 67
Width = 150
end
object fs_speed: TcxTextEdit
Tag = 2
Left = 119
Top = 75
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 68
Width = 150
end end
object fs_temperature1: TcxTextEdit object fs_temperature1: TcxTextEdit
Tag = 2 Tag = 2
@ -2020,7 +1991,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 69 TabOrder = 65
Width = 150 Width = 150
end end
object fs_temperature10: TcxTextEdit object fs_temperature10: TcxTextEdit
@ -2032,7 +2003,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 70 TabOrder = 66
Width = 150 Width = 150
end end
object fs_temperature11: TcxTextEdit object fs_temperature11: TcxTextEdit
@ -2044,7 +2015,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 71 TabOrder = 67
Width = 150 Width = 150
end end
object fs_temperature2: TcxTextEdit object fs_temperature2: TcxTextEdit
@ -2056,7 +2027,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 72 TabOrder = 68
Width = 150 Width = 150
end end
object fs_temperature3: TcxTextEdit object fs_temperature3: TcxTextEdit
@ -2068,7 +2039,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 73 TabOrder = 69
Width = 150 Width = 150
end end
object fs_temperature4: TcxTextEdit object fs_temperature4: TcxTextEdit
@ -2080,7 +2051,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 74 TabOrder = 70
Width = 150 Width = 150
end end
object fs_temperature5: TcxTextEdit object fs_temperature5: TcxTextEdit
@ -2092,7 +2063,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 75 TabOrder = 71
Width = 150 Width = 150
end end
object fs_temperature6: TcxTextEdit object fs_temperature6: TcxTextEdit
@ -2104,7 +2075,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 76 TabOrder = 72
Width = 150 Width = 150
end end
object fs_temperature7: TcxTextEdit object fs_temperature7: TcxTextEdit
@ -2116,7 +2087,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 77 TabOrder = 73
Width = 150 Width = 150
end end
object fs_temperature8: TcxTextEdit object fs_temperature8: TcxTextEdit
@ -2128,7 +2099,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 78 TabOrder = 74
Width = 150 Width = 150
end end
object fs_temperature9: TcxTextEdit object fs_temperature9: TcxTextEdit
@ -2140,30 +2111,30 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 79 TabOrder = 75
Width = 150 Width = 150
end end
object fs_TubePress: TcxTextEdit object fs_TubePress: TcxTextEdit
Tag = 2 Tag = 2
Left = 390 Left = 510
Top = 24 Top = 23
Style.LookAndFeel.SkinName = 'WXI' Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 80 TabOrder = 76
Width = 150 Width = 200
end end
object fs_tubeTemper: TcxTextEdit object fs_tubeTemper: TcxTextEdit
Tag = 2 Tag = 2
Left = 390 Left = 510
Top = 75 Top = 76
Style.LookAndFeel.SkinName = 'WXI' Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 81 TabOrder = 77
Width = 150 Width = 200
end end
object fs_upperNeedle: TcxTextEdit object fs_upperNeedle: TcxTextEdit
Tag = 2 Tag = 2
@ -2173,7 +2144,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 82 TabOrder = 78
Width = 150 Width = 150
end end
object fs_UpSuperRate: TcxTextEdit object fs_UpSuperRate: TcxTextEdit
@ -2184,29 +2155,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 83 TabOrder = 79
Width = 150
end
object fs_WidthAmplitude: TcxTextEdit
Tag = 2
Left = 119
Top = 24
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 84
Width = 150
end
object fs_WidthFinish: TcxTextEdit
Tag = 2
Left = 119
Top = 50
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 85
Width = 150 Width = 150
end end
object cxLabel26: TcxLabel object cxLabel26: TcxLabel
@ -2215,14 +2164,14 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Caption = #21069#36229#21890':' Caption = #21069#36229#21890':'
end end
object cxLabel352: TcxLabel object cxLabel352: TcxLabel
Left = 575 Left = 37
Top = 25 Top = 23
Caption = #31867#22411 Caption = #31867#22411
end end
object FS_Style: TcxComboBox object FS_Style: TcxComboBox
Tag = 2 Tag = 2
Left = 630 Left = 119
Top = 25 Top = 23
Properties.Items.Strings = ( Properties.Items.Strings = (
'' ''
#28165#27700 #28165#27700
@ -2232,34 +2181,18 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 88 TabOrder = 82
Width = 150 Width = 200
end
object cxLabel353: TcxLabel
Left = 575
Top = 51
Caption = #20986#21475#38376#24133
end
object fs_WidthOutLet: TcxTextEdit
Tag = 2
Left = 630
Top = 51
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 90
Width = 150
end end
object cxLabel354: TcxLabel object cxLabel354: TcxLabel
Left = 575 Left = 37
Top = 102 Top = 50
Caption = #33073#30495#31354 Caption = #33073#30495#31354
end end
object fs_isVacuun: TcxComboBox object fs_isVacuun: TcxComboBox
Tag = 2 Tag = 2
Left = 630 Left = 119
Top = 99 Top = 50
Properties.Items.Strings = ( Properties.Items.Strings = (
'' ''
#26159 #26159
@ -2268,8 +2201,26 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI' StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 92 TabOrder = 84
Width = 150 Width = 200
end
object TbFSReplace3: TcxButton
Left = 104
Top = 414
Width = 75
Height = 25
Caption = #19968#38190#26367#25442
TabOrder = 85
OnClick = TbFSReplace3Click
end
object TbFSClear3: TcxButton
Left = 196
Top = 414
Width = 75
Height = 25
Caption = #19968#38190#28165#31354
TabOrder = 86
OnClick = TbFSClear3Click
end end
end end
end end
@ -2280,7 +2231,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1143 Width = 1143
Height = 718 Height = 730
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TbGJReplace2: TcxButton object TbGJReplace2: TcxButton
@ -3117,7 +3068,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1143 Width = 1143
Height = 718 Height = 730
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TbFPReplace2: TcxButton object TbFPReplace2: TcxButton
@ -3958,11 +3909,12 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ParentFont = False ParentFont = False
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 560 Top = 572
Width = 1143 Width = 1143
Height = 158 Height = 158
Align = alBottom Align = alBottom
TabOrder = 0 TabOrder = 0
ExplicitTop = 560
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -4034,7 +3986,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1143 Width = 1143
Height = 525 Height = 537
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object cxLabel100: TcxLabel object cxLabel100: TcxLabel
@ -4431,7 +4383,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end end
object ToolBar4: TToolBar object ToolBar4: TToolBar
Left = 0 Left = 0
Top = 525 Top = 537
Width = 1143 Width = 1143
Height = 35 Height = 35
Align = alBottom Align = alBottom
@ -4443,6 +4395,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
Transparent = True Transparent = True
ExplicitTop = 525
object TbAdd1: TToolButton object TbAdd1: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -4474,7 +4427,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1143 Width = 1143
Height = 718 Height = 730
Hint = 'tt' Hint = 'tt'
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -4654,11 +4607,12 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ParentFont = False ParentFont = False
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 600 Top = 612
Width = 1143 Width = 1143
Height = 118 Height = 118
Align = alBottom Align = alBottom
TabOrder = 0 TabOrder = 0
ExplicitTop = 600
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -4747,7 +4701,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1143 Width = 1143
Height = 562 Height = 574
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
object cxLabel107: TcxLabel object cxLabel107: TcxLabel
@ -5161,7 +5115,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end end
object ToolBar3: TToolBar object ToolBar3: TToolBar
Left = 0 Left = 0
Top = 562 Top = 574
Width = 1143 Width = 1143
Height = 38 Height = 38
Align = alBottom Align = alBottom
@ -5173,6 +5127,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
Transparent = True Transparent = True
ExplicitTop = 562
object TbAdd2: TToolButton object TbAdd2: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -5196,7 +5151,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ImageIndex = 5 ImageIndex = 5
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 0 Left = 0
Top = 560 Top = 572
Width = 1143 Width = 1143
Height = 158 Height = 158
Align = alBottom Align = alBottom
@ -5207,6 +5162,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitTop = 560
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -5295,7 +5251,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1143 Width = 1143
Height = 522 Height = 534
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -5646,7 +5602,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end end
object ToolBar5: TToolBar object ToolBar5: TToolBar
Left = 0 Left = 0
Top = 522 Top = 534
Width = 1143 Width = 1143
Height = 38 Height = 38
Align = alBottom Align = alBottom
@ -5658,6 +5614,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
Transparent = True Transparent = True
ExplicitTop = 522
object TbAdd3: TToolButton object TbAdd3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -5689,7 +5646,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1143 Width = 1143
Height = 718 Height = 730
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object cxLabel115: TcxLabel object cxLabel115: TcxLabel
@ -5985,12 +5942,12 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
object CDS_HZ: TClientDataSet object CDS_HZ: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 258 Left = 306
Top = 444 Top = 396
end end
object DS_HZ: TDataSource object DS_HZ: TDataSource
DataSet = CDS_HZ DataSet = CDS_HZ
Left = 330 Left = 386
Top = 444 Top = 388
end end
end end

255
F02染色计划单/U_DyeProcessDefin.pas
View File

@ -607,7 +607,6 @@ type
cxLabel194: TcxLabel; cxLabel194: TcxLabel;
cxLabel195: TcxLabel; cxLabel195: TcxLabel;
cxLabel196: TcxLabel; cxLabel196: TcxLabel;
cxLabel197: TcxLabel;
cxLabel198: TcxLabel; cxLabel198: TcxLabel;
cxLabel199: TcxLabel; cxLabel199: TcxLabel;
cxLabel200: TcxLabel; cxLabel200: TcxLabel;
@ -642,11 +641,8 @@ type
cxLabel229: TcxLabel; cxLabel229: TcxLabel;
cxLabel230: TcxLabel; cxLabel230: TcxLabel;
cxLabel231: TcxLabel; cxLabel231: TcxLabel;
cxLabel232: TcxLabel;
cxLabel333: TcxLabel;
fs_CarPress: TcxTextEdit; fs_CarPress: TcxTextEdit;
fs_DownSuperRate: TcxTextEdit; fs_DownSuperRate: TcxTextEdit;
fs_gram: TcxTextEdit;
fs_hotWind1: TcxTextEdit; fs_hotWind1: TcxTextEdit;
fs_hotWind10: TcxTextEdit; fs_hotWind10: TcxTextEdit;
fs_hotWind11: TcxTextEdit; fs_hotWind11: TcxTextEdit;
@ -681,8 +677,6 @@ type
fs_tubeTemper: TcxTextEdit; fs_tubeTemper: TcxTextEdit;
fs_upperNeedle: TcxTextEdit; fs_upperNeedle: TcxTextEdit;
fs_UpSuperRate: TcxTextEdit; fs_UpSuperRate: TcxTextEdit;
fs_WidthAmplitude: TcxTextEdit;
fs_WidthFinish: TcxTextEdit;
Panel_jgqx: TPanel; Panel_jgqx: TPanel;
cxLabel340: TcxLabel; cxLabel340: TcxLabel;
cxLabel341: TcxLabel; cxLabel341: TcxLabel;
@ -772,10 +766,10 @@ type
cxLabel26: TcxLabel; cxLabel26: TcxLabel;
cxLabel352: TcxLabel; cxLabel352: TcxLabel;
FS_Style: TcxComboBox; FS_Style: TcxComboBox;
cxLabel353: TcxLabel;
fs_WidthOutLet: TcxTextEdit;
cxLabel354: TcxLabel; cxLabel354: TcxLabel;
fs_isVacuun: TcxComboBox; fs_isVacuun: TcxComboBox;
TbFSReplace3: TcxButton;
TbFSClear3: TcxButton;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TbSaveClick(Sender: TObject); procedure TbSaveClick(Sender: TObject);
@ -804,8 +798,8 @@ type
procedure TbFSReplace2Click(Sender: TObject); procedure TbFSReplace2Click(Sender: TObject);
procedure TbFPReplaceClick(Sender: TObject); procedure TbFPReplaceClick(Sender: TObject);
procedure TbGJReplaceClick(Sender: TObject); procedure TbGJReplaceClick(Sender: TObject);
procedure cxButton1Click(Sender: TObject); procedure TbFSReplace3Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject); procedure TbFSClear3Click(Sender: TObject);
procedure TbDXClear2Click(Sender: TObject); procedure TbDXClear2Click(Sender: TObject);
procedure cxButton4Click(Sender: TObject); procedure cxButton4Click(Sender: TObject);
procedure TbGJClearClick(Sender: TObject); procedure TbGJClearClick(Sender: TObject);
@ -828,7 +822,7 @@ type
canshu1: string; canshu1: string;
Fint: Integer; Fint: Integer;
procedure InitGrid(); procedure InitGrid();
procedure ArrangeTabsByDataset; procedure ArrangeTabsByDataset();
function SaveData(): Boolean; function SaveData(): Boolean;
function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string; function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil);
@ -850,7 +844,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel, U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel,
U_DyeProcessList, U_ProductInfoSel; U_DyeProcessList, U_ProductInfoSel, U_DyeTechnicsinput;
// U_ProductInfoSel; // U_ProductInfoSel;
{$R *.dfm} {$R *.dfm}
@ -896,7 +890,7 @@ begin
// end; // end;
end; end;
procedure TfrmDyeProcessDefin.ArrangeTabsByDataset; procedure TfrmDyeProcessDefin.ArrangeTabsByDataset();
var var
I: Integer; I: Integer;
TabSheet: TcxTabSheet; TabSheet: TcxTabSheet;
@ -922,6 +916,7 @@ begin
begin begin
TabSheet.PageIndex := CurrentIndex; TabSheet.PageIndex := CurrentIndex;
TabSheet.TabVisible := True; TabSheet.TabVisible := True;
TabSheet.Visible := True;
Inc(CurrentIndex); Inc(CurrentIndex);
Break; Break;
end; end;
@ -929,7 +924,7 @@ begin
end; end;
// Ë¢ÐÂÒ³Ãæ¿Ø¼þ // Ë¢ÐÂÒ³Ãæ¿Ø¼þ
cxPageControl1.Invalidate; // cxPageControl1.Invalidate;
end; end;
procedure TfrmDyeProcessDefin.InitGrid(); procedure TfrmDyeProcessDefin.InitGrid();
@ -953,12 +948,11 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.* from Bs_Cloth_GY_sub A '); sql.Add('select A.* from Bs_Cloth_GY_sub A ');
sql.Add(' where gytype=''苟彊땍謹'' and A.PSID=''' + Trim(FPSID) + ''''); sql.Add(' where gytype=''发泡'' and A.PSID=''' + Trim(FPSID) + '''');
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_2); SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2); SInitCDSData(ADOQueryTemp, CDS_2);
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
@ -982,150 +976,62 @@ var
Maxid1, maxid2, maxid3, maxgx: string; Maxid1, maxid2, maxid3, maxgx: string;
begin begin
InitGrid(); InitGrid();
ArrangeTabsByDataset; ArrangeTabsByDataset();
if BtnInt = 0 then //劤藤 if (BtnInt = 0) and (frmDyeTechnicsinput.CDS_1.FieldByName('PSName').Value = '') then //新增
begin begin
FPSID := ''; FPSID := '';
end; end;
if (BtnInt = 1) or (BtnInt = 3) then //錦맣
with ADOQueryTemp do
begin begin
with ADOQueryTemp do Close;
begin SQL.Clear;
Close; SQL.Add('select * from Dye_Process where PSID=''' + Trim(FPSID) + '''');
SQL.Clear; Open;
SQL.Add('select * from Dye_Process where PSID=''' + Trim(FPSID) + ''''); end;
Open; SCSHData(ADOQueryTemp, Panel1, 2);
end;
SCSHData(ADOQueryTemp, Panel1, 2);
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
SQL.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(FPSID) + ''''); SQL.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(FPSID) + '''');
Open; Open;
end;
if FPSType = '낀났헌求' then
begin
SCSHData(ADOQueryTemp, Panel_ccqx, 2);
end
else if FPSType = '얩횡멂헌求' then
begin
SCSHData(ADOQueryTemp, Panel_rgqx, 2);
end
else if FPSType = '샙멂헌求' then
begin
SCSHData(ADOQueryTemp, Panel_jgqx, 2);
end
else if FPSType = '맴땍謹' then
begin
SCSHData(ADOQueryTemp, Panel_dx, 2);
end
else if FPSType = '苟彊땍謹' then
begin
SCSHData(ADOQueryTemp, Panel_fs, 2);
end
else if FPSType = '랙텟' then
begin
SCSHData(ADOQueryTemp, Panel_fp, 2);
end
else if FPSType = '민스' then
begin
SCSHData(ADOQueryTemp, Panel_gj, 2);
end
else if FPSType = '羅챘' then
begin
SCSHData(ADOQueryTemp, Panel_zm, 2);
end;
end; end;
if BtnInt = 2 then //릿齡 if FPSType = '长车清洗' then
begin begin
with ADOQueryTemp do SCSHData(ADOQueryTemp, Panel_ccqx, 2);
begin end
Close; else if FPSType = '卷染缸清洗' then
SQL.Clear; begin
SQL.Add('select * from Dye_Process where PSID=''' + Trim(FPSID) + ''''); SCSHData(ADOQueryTemp, Panel_rgqx, 2);
Open; end
end; else if FPSType = '机缸清洗' then
SCSHData(ADOQueryTemp, Panel1, 2); begin
SCSHData(ADOQueryTemp, Panel_jgqx, 2);
with ADOQueryTemp do end
begin else if FPSType = '干定型' then
Close; begin
SQL.Clear; SCSHData(ADOQueryTemp, Panel_dx, 2);
SQL.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(FPSID) + ''''); end
Open; else if FPSType = '下水定型' then
end; begin
SCSHData(ADOQueryTemp, Panel_fs, 2);
if FPSType = '낀났헌求' then end
begin else if FPSType = '发泡' then
SCSHData(ADOQueryTemp, Panel_ccqx, 2); begin
end SCSHData(ADOQueryTemp, Panel_fp, 2);
else if FPSType = '얩횡멂헌求' then end
begin else if FPSType = '刮胶' then
SCSHData(ADOQueryTemp, Panel_rgqx, 2); begin
end SCSHData(ADOQueryTemp, Panel_gj, 2);
else if FPSType = '샙멂헌求' then end
begin else if FPSType = '轧毛' then
SCSHData(ADOQueryTemp, Panel_jgqx, 2); begin
end SCSHData(ADOQueryTemp, Panel_zm, 2);
else if FPSType = '맴땍謹' then
begin
SCSHData(ADOQueryTemp, Panel_dx, 2);
end
else if FPSType = '렝彊' then
begin
SCSHData(ADOQueryTemp, Panel_fs, 2);
// with CDS_1 do
// begin
// First;
// while not Eof do
// begin
// Edit;
// CDS_1.fieldbyname('BCPID').AsString := '';
// Post;
// Next;
// end;
// end;
end
else if FPSType = '랙텟' then
begin
SCSHData(ADOQueryTemp, Panel_fp, 2);
// with CDS_2 do
// begin
// First;
// while not Eof do
// begin
// Edit;
// CDS_2.fieldbyname('BCPID').AsString := '';
// Post;
// Next;
// end;
// end;
end
else if FPSType = '민스' then
begin
SCSHData(ADOQueryTemp, Panel_gj, 2);
// with CDS_3 do
// begin
// First;
// while not Eof do
// begin
// Edit;
// CDS_3.fieldbyname('BCPID').AsString := '';
// Post;
// Next;
// end;
// end;
end
else if FPSType = '羅챘' then
begin
SCSHData(ADOQueryTemp, Panel_zm, 2);
end;
end; end;
if BtnInt = 3 then //²é¿´ if BtnInt = 3 then //²é¿´
begin begin
TbSave.Visible := False; TbSave.Visible := False;
@ -1175,18 +1081,39 @@ begin
Result := False; Result := False;
Exit; Exit;
end; end;
with ADOQueryCmd do
if (BtnInt = 1) and (Trim(PSName.Text) = frmDyeTechnicsinput.CDS_1.FieldByName('PSName').Value) then
begin ///修改+名称修改重复
end
else if (BtnInt = 2) and (Trim(PSName.Text) = frmDyeTechnicsinput.CDS_1.FieldByName('PSName').Value) then
begin ///复制+名称修改重复
end
else if (BtnInt = 0) and (Trim(PSName.Text) = frmDyeTechnicsinput.CDS_1.FieldByName('PSName').Value) then
begin ///新增+名称修改重复
end
else
begin begin
Close; with ADOQueryCmd do
SQL.Clear; begin
sql.Add('select * from Dye_Process where PSName=''' + trim(PSName.Text) + ''''); Close;
Open; SQL.Clear;
sql.Add('select * from Dye_Process where PSName=''' + trim(PSName.Text) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 0 then
begin
application.MessageBox(PChar('工序名称''' + trim(PSName.text) + '''已存在'), '提示');
Result := false;
Exit;
end;
end; end;
if ADOQueryCmd.RecordCount > 1 then
if BtnInt = 2 then///复制
begin begin
application.MessageBox(PChar('묏埼츰냔' + trim(PSName.text) + '綠닸瞳'), '瓊刻'); FPSID := '';
Result := false;
Exit;
end; end;
Result := True; Result := True;
end; end;
@ -1794,14 +1721,14 @@ begin
end; end;
end; end;
procedure TfrmDyeProcessDefin.cxButton1Click(Sender: TObject); procedure TfrmDyeProcessDefin.TbFSReplace3Click(Sender: TObject);
begin begin
ClearAllTextEditsByHint(panel4, '렝彊뷸芎侊똑'); FillAllTextEditsWithValue(panel_fs, '防水排风', FindLastEditedTextEdit(panel_fs, '防水排风'));
end; end;
procedure TfrmDyeProcessDefin.cxButton2Click(Sender: TObject); procedure TfrmDyeProcessDefin.TbFSClear3Click(Sender: TObject);
begin begin
ClearAllTextEditsByHint(panel2, '헌求彊侊'); ClearAllTextEditsByHint(panel_fs, '防水排风');
end; end;
procedure TfrmDyeProcessDefin.TbCCQXReplaceClick(Sender: TObject); procedure TfrmDyeProcessDefin.TbCCQXReplaceClick(Sender: TObject);

13
F02染色计划单/U_DyeProcessList.dfm
View File

@ -1,9 +1,9 @@
inherited frmDyeProcessList: TfrmDyeProcessList inherited frmDyeProcessList: TfrmDyeProcessList
Caption = #24037#24207#31649#29702 Caption = #24037#24207#31649#29702
ClientHeight = 569 ClientHeight = 569
ClientWidth = 1126 ClientWidth = 1134
WindowState = wsMaximized WindowState = wsMaximized
ExplicitWidth = 1142 ExplicitWidth = 1150
ExplicitHeight = 608 ExplicitHeight = 608
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
@ -11,7 +11,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1126 Width = 1134
Height = 76 Height = 76
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -24,6 +24,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1126
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -157,13 +158,14 @@ inherited frmDyeProcessList: TfrmDyeProcessList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 76 Top = 76
Width = 1126 Width = 1134
Height = 38 Height = 38
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
ExplicitWidth = 1126
object Label5: TLabel object Label5: TLabel
Left = 326 Left = 326
Top = 12 Top = 12
@ -218,10 +220,11 @@ inherited frmDyeProcessList: TfrmDyeProcessList
object cxGrid2: TcxGrid [2] object cxGrid2: TcxGrid [2]
Left = 0 Left = 0
Top = 114 Top = 114
Width = 1126 Width = 1134
Height = 455 Height = 455
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 110
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False

40
F02染色计划单/U_DyeTechnicsList.dfm
View File

@ -4,6 +4,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Caption = #24037#33402#30331#35760 Caption = #24037#33402#30331#35760
ClientHeight = 593 ClientHeight = 593
ClientWidth = 1455 ClientWidth = 1455
ExplicitLeft = -604
ExplicitWidth = 1471 ExplicitWidth = 1471
ExplicitHeight = 632 ExplicitHeight = 632
PixelsPerInch = 96 PixelsPerInch = 96
@ -57,16 +58,24 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
ImageIndex = 3 ImageIndex = 3
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBDel: TToolButton object ToolButton5: TToolButton
Left = 284 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22797#21046
ImageIndex = 13
OnClick = ToolButton5Click
end
object TBDel: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
ImageIndex = 5 ImageIndex = 5
OnClick = TBDelClick OnClick = TBDelClick
end end
object Tchk: TToolButton object Tchk: TToolButton
Left = 355 Left = 426
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38145#23450 Caption = #38145#23450
@ -74,7 +83,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
OnClick = TchkClick OnClick = TchkClick
end end
object TNochk: TToolButton object TNochk: TToolButton
Left = 426 Left = 497
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#38145#23450 Caption = #25764#38144#38145#23450
@ -82,7 +91,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
OnClick = TNochkClick OnClick = TNochkClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 521 Left = 592
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -90,7 +99,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 616 Left = 687
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -108,7 +117,6 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
ExplicitTop = 44
object Label1: TLabel object Label1: TLabel
Left = 186 Left = 186
Top = 13 Top = 13
@ -145,11 +153,10 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
object cxGrid2: TcxGrid [2] object cxGrid2: TcxGrid [2]
Left = 0 Left = 0
Top = 99 Top = 99
Width = 760 Width = 1217
Height = 494 Height = 494
Align = alLeft Align = alLeft
TabOrder = 2 TabOrder = 2
ExplicitLeft = -6
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -190,7 +197,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
FooterAlignmentHorz = taCenter FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 60 Width = 51
end end
object v2GYNO: TcxGridDBColumn object v2GYNO: TcxGridDBColumn
Caption = #24037#33402#32534#21495 Caption = #24037#33402#32534#21495
@ -198,7 +205,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 67 Width = 196
end end
object v2GYName: TcxGridDBColumn object v2GYName: TcxGridDBColumn
Caption = #24037#33402#21517#31216 Caption = #24037#33402#21517#31216
@ -206,7 +213,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 69 Width = 304
end end
object v2GYGX: TcxGridDBColumn object v2GYGX: TcxGridDBColumn
Caption = #24037#24207 Caption = #24037#24207
@ -244,14 +251,14 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid1: TcxGrid [4] object cxGrid1: TcxGrid [4]
Left = 760 Left = 1217
Top = 99 Top = 99
Width = 695 Width = 238
Height = 494 Height = 494
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
ExplicitLeft = 768 ExplicitLeft = 1160
ExplicitWidth = 687 ExplicitWidth = 295
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -302,12 +309,13 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
end end
end end
object cxSplitter1: TcxSplitter [5] object cxSplitter1: TcxSplitter [5]
Left = 760 Left = 1217
Top = 99 Top = 99
Width = 0 Width = 0
Height = 494 Height = 494
AlignSplitter = salRight AlignSplitter = salRight
Control = cxGrid2 Control = cxGrid2
ExplicitLeft = 1065
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_DyePlan.ADOLink Connection = DataLink_DyePlan.ADOLink

20
F02染色计划单/U_DyeTechnicsList.pas
View File

@ -57,6 +57,7 @@ type
ToolButton3: TToolButton; ToolButton3: TToolButton;
ToolButton1: TToolButton; ToolButton1: TToolButton;
ToolButton4: TToolButton; ToolButton4: TToolButton;
ToolButton5: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -73,6 +74,7 @@ type
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private private
{ Private declarations } { Private declarations }
@ -294,6 +296,24 @@ begin
end; end;
end; end;
procedure TfrmDyeTechnicsList.ToolButton5Click(Sender: TObject);
begin
try
frmDyeTechnicsinput := TfrmDyeTechnicsinput.Create(Application);
with frmDyeTechnicsinput do
begin
PState := '¸´ÖÆ';
FDTMID := Trim(self.CDS_2.fieldbyname('DTMID').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmDyeTechnicsinput.Free;
end;
end;
procedure TfrmDyeTechnicsList.DTMNoChange(Sender: TObject); procedure TfrmDyeTechnicsList.DTMNoChange(Sender: TObject);
begin begin
ToolButton2.Click; ToolButton2.Click;

177
F02染色计划单/U_DyeTechnicsinput.dfm
View File

@ -18,7 +18,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object Panel2: TPanel [1] object Panel2: TPanel [1]
Left = 0 Left = 0
Top = 0 Top = 0
Width = 481 Width = 753
Height = 593 Height = 593
Align = alLeft Align = alLeft
Caption = 'Panel2' Caption = 'Panel2'
@ -26,9 +26,9 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 39 Top = 39
Width = 479 Width = 296
Height = 553 Height = 553
Align = alClient Align = alLeft
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick OnDblClick = Tv2DblClick
@ -36,6 +36,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv2FocusedRecordChanged
DataController.DataSource = DS_2 DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -57,20 +58,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
OptionsData.DeletingConfirmation = False OptionsData.DeletingConfirmation = False
OptionsSelection.CellSelect = False OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object v2PSName: TcxGridDBColumn object Tv2PSType: TcxGridDBColumn
Caption = #24037#24207#21517#31216
DataBinding.FieldName = 'PSName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Width = 98
end
object v2PSNote: TcxGridDBColumn
Caption = #24037#24207#31867#21035 Caption = #24037#24207#31867#21035
DataBinding.FieldName = 'PSType' DataBinding.FieldName = 'PSType'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -81,15 +69,15 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Kind = bkEllipsis Kind = bkEllipsis
end> end>
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 128 Width = 143
end end
object v2Column1: TcxGridDBColumn object Tv2PSNote: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 101 Width = 112
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
@ -99,63 +87,91 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object Panel1: TPanel object Panel1: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 479 Width = 751
Height = 38 Height = 38
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
ExplicitWidth = 431
object Label5: TLabel object Label5: TLabel
Left = 191 Left = 23
Top = 12 Top = 15
Width = 48
Height = 13
Caption = #36710#38388#21517#31216
end
object Label1: TLabel
Left = 31
Top = 12
Width = 48 Width = 48
Height = 13 Height = 13
Caption = #24037#24207#21517#31216 Caption = #24037#24207#21517#31216
end end
object SYRName: TEdit
Tag = 2
Left = 241
Top = 8
Width = 89
Height = 21
TabOrder = 0
OnChange = PSNameChange
end
object PSName: TEdit object PSName: TEdit
Tag = 2 Tag = 2
Left = 85 Left = 73
Top = 11 Top = 11
Width = 89 Width = 89
Height = 21 Height = 21
TabOrder = 1 TabOrder = 0
OnChange = PSNameChange OnKeyPress = PSNameKeyPress
end
end
object cxGrid3: TcxGrid
Left = 297
Top = 39
Width = 455
Height = 553
Align = alClient
TabOrder = 2
ExplicitLeft = 293
ExplicitTop = 36
object Tv3: TcxGridDBTableView
OnDblClick = Tv3DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object Tv3PSID: TcxGridDBColumn
Caption = #24037#24207'ID'
DataBinding.FieldName = 'PSID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 150
end
object Tv3Column2: TcxGridDBColumn
Caption = #24037#24207#21517#31216
DataBinding.FieldName = 'PSName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 150
end
end
object cxGrid3Level1: TcxGridLevel
GridView = Tv3
end end
end end
end end
object Panel3: TPanel [2] object Panel3: TPanel [2]
Left = 481 Left = 753
Top = 0 Top = 0
Width = 966 Width = 694
Height = 593 Height = 593
Align = alClient Align = alClient
Caption = 'Panel3' Caption = 'Panel3'
TabOrder = 2 TabOrder = 2
ExplicitLeft = 433
ExplicitWidth = 1014
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 77 Top = 77
Width = 964 Width = 692
Height = 515 Height = 515
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 5
ExplicitTop = 83
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -184,14 +200,29 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 97 Width = 73
end end
object cxGridDBColumn1: TcxGridDBColumn object cxGridDBColumn1: TcxGridDBColumn
Caption = #24037#24207#31867#22411
DataBinding.FieldName = 'PSType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 113
end
object TV1PSName: TcxGridDBColumn
Caption = #24037#24207#21517#31216 Caption = #24037#24207#21517#31216
DataBinding.FieldName = 'PSName' DataBinding.FieldName = 'PSName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 141 Options.Editing = False
Width = 116
end end
end end
object cxGridLevel2: TcxGridLevel object cxGridLevel2: TcxGridLevel
@ -202,7 +233,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Tag = 1 Tag = 1
Left = 1 Left = 1
Top = 1 Top = 1
Width = 964 Width = 692
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -223,16 +254,24 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
ImageIndex = 1 ImageIndex = 1
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object btnSave: TToolButton object TbDelete: TToolButton
Left = 71 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500
ImageIndex = 6
OnClick = TbDeleteClick
end
object btnSave: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384 Caption = #20445#23384
ImageIndex = 16 ImageIndex = 16
OnClick = btnSaveClick OnClick = btnSaveClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 142 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -240,7 +279,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 237 Left = 308
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -251,23 +290,24 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object Panel4: TPanel object Panel4: TPanel
Left = 1 Left = 1
Top = 39 Top = 39
Width = 964 Width = 692
Height = 38 Height = 38
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 2 TabOrder = 2
ExplicitWidth = 1012
object Label2: TLabel object Label2: TLabel
Left = 186 Left = 186
Top = 13 Top = 9
Width = 48 Width = 48
Height = 13 Height = 13
Caption = #24037#33402#21517#31216 Caption = #24037#33402#21517#31216
end end
object Label3: TLabel object Label3: TLabel
Left = 30 Left = 30
Top = 19 Top = 9
Width = 48 Width = 48
Height = 13 Height = 13
Caption = #24037#33402#32534#21495 Caption = #24037#33402#32534#21495
@ -283,7 +323,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object DTMNo: TEdit object DTMNo: TEdit
Tag = 2 Tag = 2
Left = 84 Left = 84
Top = 9 Top = 6
Width = 89 Width = 89
Height = 21 Height = 21
TabOrder = 1 TabOrder = 1
@ -304,13 +344,13 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Connection = DataLink_DyePlan.ADOLink Connection = DataLink_DyePlan.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 397 Left = 381
Top = 145 Top = 145
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_DyePlan.ADOLink Connection = DataLink_DyePlan.ADOLink
Parameters = <> Parameters = <>
Left = 317 Left = 301
Top = 145 Top = 145
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
@ -322,19 +362,19 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
end end
object GPM_2: TcxGridPopupMenu object GPM_2: TcxGridPopupMenu
PopupMenus = <> PopupMenus = <>
Left = 343 Left = 215
Top = 281 Top = 385
end end
object DS_2: TDataSource object DS_2: TDataSource
DataSet = CDS_2 DataSet = CDS_2
Left = 543 Left = 303
Top = 192 Top = 224
end end
object CDS_2: TClientDataSet object CDS_2: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 288 Left = 144
Top = 345 Top = 361
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
@ -368,4 +408,15 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
OnClick = N2Click OnClick = N2Click
end end
end end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 424
Top = 304
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 480
Top = 304
end
end end

214
F02染色计划单/U_DyeTechnicsinput.pas
View File

@ -35,9 +35,8 @@ type
Panel2: TPanel; Panel2: TPanel;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView; Tv2: TcxGridDBTableView;
v2PSName: TcxGridDBColumn; Tv2PSType: TcxGridDBColumn;
v2PSNote: TcxGridDBColumn; Tv2PSNote: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
Panel1: TPanel; Panel1: TPanel;
Panel3: TPanel; Panel3: TPanel;
@ -50,8 +49,6 @@ type
TBRafresh: TToolButton; TBRafresh: TToolButton;
TBClose: TToolButton; TBClose: TToolButton;
Label5: TLabel; Label5: TLabel;
Label1: TLabel;
SYRName: TEdit;
PSName: TEdit; PSName: TEdit;
ToolButton2: TToolButton; ToolButton2: TToolButton;
btnSave: TToolButton; btnSave: TToolButton;
@ -60,6 +57,15 @@ type
Label3: TLabel; Label3: TLabel;
DTMName: TEdit; DTMName: TEdit;
DTMNo: TEdit; DTMNo: TEdit;
TV1PSName: TcxGridDBColumn;
Tv3: TcxGridDBTableView;
cxGrid3Level1: TcxGridLevel;
cxGrid3: TcxGrid;
TbDelete: TToolButton;
Tv3PSID: TcxGridDBColumn;
Tv3Column2: TcxGridDBColumn;
CDS_3: TClientDataSet;
DS_3: TDataSource;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -71,10 +77,14 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure PSNameChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject);
procedure Tv2DblClick(Sender: TObject); procedure Tv2DblClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject); procedure btnSaveClick(Sender: TObject);
procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TbDeleteClick(Sender: TObject);
procedure Tv3DblClick(Sender: TObject);
procedure PSNameKeyPress(Sender: TObject; var Key: Char);
private private
{ Private declarations } { Private declarations }
@ -82,6 +92,8 @@ type
procedure InitGlide(); procedure InitGlide();
procedure SetXH(); procedure SetXH();
function SaveData(): boolean; function SaveData(): boolean;
procedure CheckData();
procedure InitGridSub();
public public
FDTMID, PState: string; FDTMID, PState: string;
{ Public declarations } { Public declarations }
@ -94,7 +106,7 @@ var
implementation implementation
uses uses
U_DataLink, U_RTFun, U_ZDYHelp, U_DyeProcessSel; U_DataLink, U_RTFun, U_ZDYHelp, U_DyeProcessSel, U_DyeProcessDefin;
{$R *.dfm} {$R *.dfm}
@ -161,6 +173,23 @@ begin
end; end;
SCreateCDS(ADOQueryTemp, CDS_1); SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1); SInitCDSData(ADOQueryTemp, CDS_1);
CheckData();
end;
procedure TfrmDyeTechnicsinput.CheckData();
begin
if PState = '复制' then
begin
CDS_1.First;
while not CDS_1.Eof do
begin
CDS_1.Edit;
CDS_1.FieldByName('PSName').Value := '';
CDS_1.Post;
CDS_1.Next;
end;
FDTMID := '';
end;
end; end;
@ -248,25 +277,6 @@ begin
Post; Post;
end; end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Technics_Main where DTMNo=''' + Trim(DTMNo.Text) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 1 then
raise Exception.Create('工艺编号重复!');
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Technics_Main where DTMName=''' + Trim(DTMName.Text) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 1 then
raise Exception.Create('工艺名称重复!');
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
result := true; result := true;
@ -283,13 +293,13 @@ begin
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered := False; // Filtered := False;
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' select *,PSXH=0 from Dye_Process '); sql.Add(' select *,PSXH=0 from Dye_Technics ');
Open; Open;
end; end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); // SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_2); SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2); SInitCDSData(ADOQueryMain, CDS_2);
finally finally
@ -297,6 +307,29 @@ begin
end; end;
end; end;
procedure TfrmDyeTechnicsinput.InitGridSub();
begin
if CDS_2.IsEmpty then
Exit;
try
ADOQueryTemp.DisableControls;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from Dye_Process where PSType = ' + QuotedStr(Trim(CDS_2.FieldByName('PSType').ASSTRING)));
Open;
end;
SDofilter(ADOQueryTemp, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryTemp, CDS_3);
SInitCDSData(ADOQueryTemp, CDS_3);
finally
ADOQueryTemp.EnableControls;
end;
end;
procedure TfrmDyeTechnicsinput.FormDestroy(Sender: TObject); procedure TfrmDyeTechnicsinput.FormDestroy(Sender: TObject);
begin begin
inherited; inherited;
@ -322,6 +355,7 @@ begin
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '工艺管理'); ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '工艺管理');
InitGrid(); InitGrid();
InitGlide(); InitGlide();
InitGridSub();
end; end;
procedure TfrmDyeTechnicsinput.TBRafreshClick(Sender: TObject); procedure TfrmDyeTechnicsinput.TBRafreshClick(Sender: TObject);
@ -329,6 +363,27 @@ begin
InitGrid(); InitGrid();
end; end;
procedure TfrmDyeTechnicsinput.TbDeleteClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if Trim(CDS_1.fieldbyname('PSId').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Dye_Process where PSId=''' + Trim(CDS_1.fieldbyname('PSId').AsString) + '''');
ExecSQL;
end;
end;
CDS_1.Delete;
SetXH();
end;
procedure TfrmDyeTechnicsinput.ToolButton2Click(Sender: TObject); procedure TfrmDyeTechnicsinput.ToolButton2Click(Sender: TObject);
begin begin
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '工艺管理'); ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '工艺管理');
@ -336,6 +391,52 @@ begin
end; end;
procedure TfrmDyeTechnicsinput.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
with frmDyeProcessDefin do
begin
FPSType := self.CDS_1.FieldByName('PSType').Value;
if (PState = '新增') and (Self.CDS_1.FieldByName('PSID').Value = '') then
begin
FPSID := '';
BtnInt := 0;////新增
end
else if PState = '修改' then
begin
FPSID := Self.CDS_1.FieldByName('PSID').Value;
BtnInt := 1;///修改
end
else if (PState = '复制') then
begin
FPSID := Self.CDS_1.FieldByName('PSID').Value;
BtnInt := 2;///复制
end
else
begin
FPSID := Self.CDS_1.FieldByName('PSID').Value;
BtnInt := 0;//新增回改
end;
if ShowModal = 1 then
begin
TBRafresh.Click;
with self.CDS_1 do
begin
Edit;
FieldByName('PSID').Value := frmDyeProcessDefin.FPSID;
FieldByName('PSName').Value := frmDyeProcessDefin.PSName.Text;
Post;
end;
end;
end;
finally
frmDyeProcessDefin.Free;
end;
end;
procedure TfrmDyeTechnicsinput.cxTabControl1Change(Sender: TObject); procedure TfrmDyeTechnicsinput.cxTabControl1Change(Sender: TObject);
begin begin
InitGrid(); InitGrid();
@ -392,6 +493,34 @@ begin
application.MessageBox('工艺名称不能为空', '提示'); application.MessageBox('工艺名称不能为空', '提示');
Exit; Exit;
end; end;
if CDS_1.Locate('PSName', '', []) or CDS_1.Locate('PSName', null, []) then
begin
Application.MessageBox('请完善工序名称！', '提示信息', MB_OK);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Technics_Main where DTMNo=''' + Trim(DTMNo.Text) + '''');
sql.Add(' and DTMID <> ''' + Trim(FDTMID) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 0 then
raise Exception.Create('工艺编号重复!');
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Technics_Main where DTMName=''' + Trim(DTMName.Text) + '''');
sql.Add(' and DTMID <> ''' + Trim(FDTMID) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 0 then
raise Exception.Create('工艺名称重复!');
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);
@ -443,8 +572,8 @@ begin
begin begin
Append; Append;
FieldByName('PSNO').Value := CDS_1.RecordCount + 1; FieldByName('PSNO').Value := CDS_1.RecordCount + 1;
FieldByName('PSName').Value := CDS_2.fieldbyname('PSName').AsString; FieldByName('PSType').Value := CDS_2.fieldbyname('PSType').AsString;
FieldByName('PSId').Value := CDS_2.fieldbyname('PSId').AsString; FieldByName('PSId').Value := '';
post; post;
end; end;
@ -452,7 +581,20 @@ end;
procedure TfrmDyeTechnicsinput.Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure TfrmDyeTechnicsinput.Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin begin
InitGlide(); InitGridSub();
end;
procedure TfrmDyeTechnicsinput.Tv3DblClick(Sender: TObject);
begin
with CDS_1 do
begin
Append;
FieldByName('PSNO').Value := CDS_1.RecordCount + 1;
FieldByName('PSType').Value := CDS_2.fieldbyname('PSType').AsString;
FieldByName('PSId').Value := CDS_3.fieldbyname('PSID').AsString;
post;
end;
end; end;
procedure TfrmDyeTechnicsinput.FormCreate(Sender: TObject); procedure TfrmDyeTechnicsinput.FormCreate(Sender: TObject);
@ -473,13 +615,13 @@ begin
SetXH(); SetXH();
end; end;
procedure TfrmDyeTechnicsinput.PSNameChange(Sender: TObject); procedure TfrmDyeTechnicsinput.PSNameKeyPress(Sender: TObject; var Key: Char);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); SDofilter(ADOQueryTemp, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_2); SCreateCDS(ADOQueryTemp, CDS_3);
SInitCDSData(ADOQueryMain, CDS_2); SInitCDSData(ADOQueryTemp, CDS_3);
end; end;
end; end;