diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local
index 8e9703a..912a20f 100644
--- a/A02基础产品管理/ClothInfo.dproj.local
+++ b/A02基础产品管理/ClothInfo.dproj.local
@@ -9,7 +9,7 @@
1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
+ 1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas
1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
1899/12/30 00:00:00.000.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas
1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
@@ -18,15 +18,15 @@
1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=
1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas
1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=
- 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas
+ 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas
+ 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm
@@ -39,14 +39,14 @@
1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm
- 1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas
1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas
+ 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas
1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj
1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
diff --git a/A02基础产品管理/U_ClothInfoInput.dfm b/A02基础产品管理/U_ClothInfoInput.dfm
index 87dea4b..1d7a09f 100644
--- a/A02基础产品管理/U_ClothInfoInput.dfm
+++ b/A02基础产品管理/U_ClothInfoInput.dfm
@@ -70,6 +70,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Font.Style = []
ParentFont = False
TabOrder = 0
+ TabStop = False
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
ClientRectBottom = 708
@@ -98,10 +99,9 @@ object frmClothInfoInput: TfrmClothInfoInput
Font.Style = []
ParentFont = False
TabOrder = 0
- ExplicitLeft = 1
object C_GramWeight: TcxTextEdit
Tag = 2
- Left = 435
+ Left = 553
Top = 138
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@@ -114,12 +114,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 0
- Width = 140
+ TabOrder = 9
+ Width = 240
end
object F_Width: TcxTextEdit
Tag = 2
- Left = 435
+ Left = 553
Top = 97
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@@ -132,8 +132,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 1
- Width = 140
+ TabOrder = 8
+ Width = 240
end
object cxLabel37: TcxLabel
Left = 16
@@ -172,7 +172,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True
end
object cxLabel41: TcxLabel
- Left = 321
+ Left = 422
Top = 137
Caption = #25104#21697#20811#37325'(g/'#13217')'
ParentFont = False
@@ -184,7 +184,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True
end
object cxLabel43: TcxLabel
- Left = 321
+ Left = 422
Top = 97
Caption = #22383#24067#38376#24133'(cm)'
ParentFont = False
@@ -196,7 +196,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True
end
object cxLabel45: TcxLabel
- Left = 321
+ Left = 422
Top = 57
Caption = #25104#21697#38376#24133'(cm)'
ParentFont = False
@@ -208,7 +208,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True
end
object cxLabel46: TcxLabel
- Left = 321
+ Left = 422
Top = 178
Caption = #22383#24067#20811#37325'(g/'#13217')'
ParentFont = False
@@ -232,7 +232,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True
end
object cxLabel48: TcxLabel
- Left = 594
+ Left = 817
Top = 17
Caption = #21518#25972#29702#26631#20934
ParentFont = False
@@ -258,8 +258,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 11
- Width = 140
+ TabOrder = 1
+ Width = 240
end
object LatitudeSlope: TcxTextEdit
Tag = 2
@@ -276,12 +276,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 12
- Width = 140
+ TabOrder = 2
+ Width = 240
end
object FinishingStandards: TcxTextEdit
Tag = 2
- Left = 691
+ Left = 914
Top = 15
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@@ -294,12 +294,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 13
- Width = 140
+ TabOrder = 11
+ Width = 240
end
object C_COLOR: TcxTextEdit
Tag = 2
- Left = 435
+ Left = 553
Top = 15
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@@ -312,12 +312,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 14
- Width = 140
+ TabOrder = 6
+ Width = 240
end
object C_Width: TcxTextEdit
Tag = 2
- Left = 435
+ Left = 553
Top = 56
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@@ -330,12 +330,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 15
- Width = 140
+ TabOrder = 7
+ Width = 240
end
object F_GramWeight: TcxTextEdit
Tag = 2
- Left = 435
+ Left = 553
Top = 179
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@@ -348,8 +348,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 16
- Width = 140
+ TabOrder = 10
+ Width = 240
end
object C_FinishLatitudeDensity: TcxTextEdit
Tag = 2
@@ -366,8 +366,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 17
- Width = 140
+ TabOrder = 3
+ Width = 240
end
object cxLabel114: TcxLabel
Left = 16
@@ -396,8 +396,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 19
- Width = 140
+ TabOrder = 4
+ Width = 240
end
object cxLabel150: TcxLabel
Left = 16
@@ -427,9 +427,9 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 21
+ TabOrder = 5
Text = #33258#21160#29983#25104
- Width = 140
+ Width = 240
end
object cxGrid4: TcxGrid
Left = 1
@@ -437,7 +437,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 1074
Height = 346
Align = alBottom
- TabOrder = 22
+ TabOrder = 24
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -484,7 +484,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 1074
Height = 41
Align = alBottom
- TabOrder = 23
+ TabOrder = 25
object Panel9: TPanel
Left = 1
Top = 42
@@ -649,11 +649,11 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 24
- Width = 140
+ TabOrder = 0
+ Width = 240
end
object cxLabel273: TcxLabel
- Left = 321
+ Left = 422
Top = 16
Caption = #39068#33394
ParentFont = False
@@ -665,7 +665,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True
end
object cxLabel42: TcxLabel
- Left = 594
+ Left = 817
Top = 58
Caption = #28165#27927#21518#38376#24133
ParentFont = False
@@ -678,7 +678,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end
object C_washWidth: TcxTextEdit
Tag = 2
- Left = 691
+ Left = 914
Top = 58
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@@ -691,8 +691,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 27
- Width = 140
+ TabOrder = 12
+ Width = 240
end
end
end
diff --git a/A02基础产品管理/U_ClothInfoInput.pas b/A02基础产品管理/U_ClothInfoInput.pas
index bd2b726..7d0ad36 100644
--- a/A02基础产品管理/U_ClothInfoInput.pas
+++ b/A02基础产品管理/U_ClothInfoInput.pas
@@ -849,6 +849,7 @@ begin
Close;
SQL.Clear;
SQL.Add('select * from BS_Cloth_Dye_Technics where BCIID=''' + Trim(FBCIID) + '''');
+
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_GY);
diff --git a/F01染色坯布仓库/DyeGreyClothStk.dproj.local b/F01染色坯布仓库/DyeGreyClothStk.dproj.local
index ec324ef..93483d8 100644
--- a/F01染色坯布仓库/DyeGreyClothStk.dproj.local
+++ b/F01染色坯布仓库/DyeGreyClothStk.dproj.local
@@ -1,46 +1,46 @@
- 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
- 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas
- 1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas
- 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899-12-30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas
- 1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas
- 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899-12-30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj
- 1899-12-30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas
- 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899-12-30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas
- 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
- 1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm
- 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm
- 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas
- 1899-12-30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas
- 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899-12-30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899-12-30 00:00:00.000.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
+ 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas
+ 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
+ 1899/12/30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas
+ 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899/12/30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas
+ 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas
+ 1899/12/30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas
+ 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm
+ 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899/12/30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj
+ 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas
+ 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899/12/30 00:00:00.000.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 1899/12/30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas
+ 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm
+ 1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm
+ 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899/12/30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
diff --git a/F01染色坯布仓库/DyeGreyClothStk.identcache b/F01染色坯布仓库/DyeGreyClothStk.identcache
index d61a0a1..b430f54 100644
Binary files a/F01染色坯布仓库/DyeGreyClothStk.identcache and b/F01染色坯布仓库/DyeGreyClothStk.identcache differ
diff --git a/F01染色坯布仓库/U_DyeGreyClothInList.dfm b/F01染色坯布仓库/U_DyeGreyClothInList.dfm
index 1cbc422..061bf22 100644
--- a/F01染色坯布仓库/U_DyeGreyClothInList.dfm
+++ b/F01染色坯布仓库/U_DyeGreyClothInList.dfm
@@ -30,6 +30,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
ParentFont = False
ShowCaptions = True
TabOrder = 0
+ ExplicitTop = 1
object TBRafresh: TToolButton
Left = 0
Top = 0
@@ -115,6 +116,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Color = clWhite
ParentBackground = False
TabOrder = 1
+ ExplicitTop = 32
object Label1: TLabel
Left = 28
Top = 12
@@ -326,6 +328,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
+ ExplicitTop = 97
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
diff --git a/F02染色计划单/DyePlan.dproj b/F02染色计划单/DyePlan.dproj
index 956a180..43c7215 100644
--- a/F02染色计划单/DyePlan.dproj
+++ b/F02染色计划单/DyePlan.dproj
@@ -920,6 +920,7 @@
+ False
12
diff --git a/F02染色计划单/DyePlan.dproj.local b/F02染色计划单/DyePlan.dproj.local
index f95e67f..45eb20a 100644
--- a/F02染色计划单/DyePlan.dproj.local
+++ b/F02染色计划单/DyePlan.dproj.local
@@ -1,64 +1,64 @@
- 1899-12-30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas
- 1899-12-30 00:00:00.000.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas
- 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
- 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
- 1899-12-30 00:00:00.000.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas
- 1899-12-30 00:00:00.000.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas
- 1899-12-30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas=
- 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas
- 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
- 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.pas
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
- 1899-12-30 00:00:00.000.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas
- 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
- 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
- 1899-12-30 00:00:00.000.037,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_Cust_Cloth_PSC.pas
- 1899-12-30 00:00:00.000.362,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas
- 1899-12-30 00:00:00.000.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.pas
- 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
- 1899-12-30 00:00:00.000.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
- 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm
- 1899-12-30 00:00:00.000.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm
- 1899-12-30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas
- 1899-12-30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm
- 1899-12-30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas
- 1899-12-30 00:00:00.000.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas
- 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
- 1899-12-30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
- 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
- 1899-12-30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj
- 1899-12-30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas
- 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
- 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
- 1899-12-30 00:00:00.000.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
- 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
- 1899-12-30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm
- 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
- 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
- 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
- 1899-12-30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas
- 1899-12-30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas
- 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas
- 1899-12-30 00:00:00.000.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.pas
- 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
- 1899-12-30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=
- 1899-12-30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm
- 1899-12-30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm
- 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
- 1899-12-30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas
- 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
- 1899-12-30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas
- 1899-12-30 00:00:00.000.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas
- 2025-07-31 09:26:29.000.383,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_CraftSel.pas
+ 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas
+ 1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas
+ 1899/12/30 00:00:00.000.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas
+ 1899/12/30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas
+ 1899/12/30 00:00:00.000.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas
+ 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas=
+ 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas
+ 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm
+ 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas
+ 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas
+ 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas
+ 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas
+ 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=
+ 1899/12/30 00:00:00.000.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas
+ 1899/12/30 00:00:00.000.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.pas
+ 1899/12/30 00:00:00.000.037,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_Cust_Cloth_PSC.pas
+ 1899/12/30 00:00:00.000.362,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas
+ 1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm
+ 1899/12/30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj
+ 1899/12/30 00:00:00.000.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas
+ 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm
+ 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas
+ 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas
+ 1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas
+ 1899/12/30 00:00:00.000.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.pas
+ 1899/12/30 00:00:00.000.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas
+ 1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas
+ 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=
+ 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas
+ 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas
+ 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas
+ 1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm
+ 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas
+ 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas
+ 1899/12/30 00:00:00.000.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas
+ 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=
+ 1899/12/30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas
+ 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm
+ 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas
+ 1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm
+ 1899/12/30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=
+ 1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas
+ 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas
+ 1899/12/30 00:00:00.000.383,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_CraftSel.pas
+ 1899/12/30 00:00:00.000.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.pas
+ 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas
+ 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm
+ 1899/12/30 00:00:00.000.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas
+ 1899/12/30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas
+ 1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas
+ 1899/12/30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas
+ 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas
+ 1899/12/30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas
diff --git a/F02染色计划单/DyePlan.identcache b/F02染色计划单/DyePlan.identcache
index bd75939..850df03 100644
Binary files a/F02染色计划单/DyePlan.identcache and b/F02染色计划单/DyePlan.identcache differ
diff --git a/F02染色计划单/U_CraftSel.dfm b/F02染色计划单/U_CraftSel.dfm
index 9af8181..8e011e7 100644
--- a/F02染色计划单/U_CraftSel.dfm
+++ b/F02染色计划单/U_CraftSel.dfm
@@ -21,7 +21,6 @@ inherited frmCraftSel: TfrmCraftSel
Height = 476
Align = alClient
TabOrder = 0
- ExplicitTop = 88
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
diff --git a/F02染色计划单/U_CraftSel.pas b/F02染色计划单/U_CraftSel.pas
index a87a634..56a679b 100644
--- a/F02染色计划单/U_CraftSel.pas
+++ b/F02染色计划单/U_CraftSel.pas
@@ -67,7 +67,7 @@ type
procedure InitGrid();
{ Private declarations }
public
- FCoType, FAuthority, FBCIID,fcode: string;
+ FCoType, FAuthority, FBCIID, fcode, FC_Name: string;
{ Public declarations }
end;
@@ -123,7 +123,9 @@ begin
begin
Close;
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;
end;
SCreateCDS(ADOQueryMain, CDS_1);
diff --git a/F02染色计划单/U_DyePlanCardInput.pas b/F02染色计划单/U_DyePlanCardInput.pas
index f54de8b..c3ddfd5 100644
--- a/F02染色计划单/U_DyePlanCardInput.pas
+++ b/F02染色计划单/U_DyePlanCardInput.pas
@@ -392,6 +392,7 @@ begin
begin
fmainID := Order_Main.fieldbyname('mainID').asstring;
fC_Code := Order_Main.fieldbyname('C_Code').asstring;
+ fC_name := Order_Main.fieldbyname('C_name').asstring;
InitOrder();
InitGreyClothStk();
InitCard();
@@ -450,6 +451,7 @@ begin
with frmCraftSel do
begin
fcode := Self.FC_Code;
+ fC_name := Self.fC_name;
if ShowModal = 1 then
begin
with frmCraftSel.CDS_1 do
diff --git a/F02染色计划单/U_DyePlanCardList.dfm b/F02染色计划单/U_DyePlanCardList.dfm
index 063a182..26c9053 100644
--- a/F02染色计划单/U_DyePlanCardList.dfm
+++ b/F02染色计划单/U_DyePlanCardList.dfm
@@ -386,6 +386,7 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
Align = alClient
PopupMenu = PM_1
TabOrder = 2
+ ExplicitLeft = -8
ExplicitTop = 125
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
diff --git a/F02染色计划单/U_DyePlanForCardSel.dfm b/F02染色计划单/U_DyePlanForCardSel.dfm
index 8d52c59..d5b323b 100644
--- a/F02染色计划单/U_DyePlanForCardSel.dfm
+++ b/F02染色计划单/U_DyePlanForCardSel.dfm
@@ -93,8 +93,9 @@ object frmProductOrderListSel: TfrmProductOrderListSel
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
+ ExplicitTop = 44
object Label3: TLabel
- Left = 355
+ Left = 292
Top = 14
Width = 52
Height = 12
@@ -126,14 +127,27 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Height = 12
Caption = '-'
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
- Left = 412
+ Left = 349
Top = 10
Width = 149
Height = 20
TabOrder = 0
- OnKeyPress = OrderNoMKeyPress
+ OnKeyPress = OrderNoKeyPress
end
object BegDate: TDateTimePicker
Left = 76
@@ -155,6 +169,15 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Time = 0.464761099538009100
TabOrder = 2
end
+ object C_Name: TEdit
+ Tag = 2
+ Left = 581
+ Top = 10
+ Width = 149
+ Height = 20
+ TabOrder = 3
+ OnKeyPress = OrderNoKeyPress
+ end
end
object cxGrid1: TcxGrid
Left = 0
@@ -174,7 +197,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
- Column = AnticipateQTY
+ Column = Tv1AnticipateQTY
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@@ -195,7 +218,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
HeaderAlignmentHorz = taCenter
Width = 44
end
- object OrderNo: TcxGridDBColumn
+ object Tv1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
@@ -204,7 +227,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default
Width = 72
end
- object C_CodeName: TcxGridDBColumn
+ object Tv1C_CodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
@@ -213,7 +236,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default
Width = 82
end
- object CustNoName: TcxGridDBColumn
+ object Tv1CustNoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
@@ -221,7 +244,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Options.Editing = False
Width = 66
end
- object C_Width: TcxGridDBColumn
+ object Tv1C_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
@@ -230,7 +253,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default
Width = 70
end
- object C_GramWeight: TcxGridDBColumn
+ object Tv1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
@@ -238,7 +261,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Options.Focusing = False
Width = 72
end
- object C_COLOR: TcxGridDBColumn
+ object Tv1C_COLOR: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_COLOR'
DataBinding.IsNullValueType = True
@@ -247,7 +270,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default
Width = 82
end
- object C_COLORNO: TcxGridDBColumn
+ object Tv1C_COLORNO: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_COLORNO'
DataBinding.IsNullValueType = True
@@ -264,14 +287,14 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Options.Editing = False
Width = 52
end
- object C_Pattern: TcxGridDBColumn
+ object Tv1C_Pattern: TcxGridDBColumn
Caption = #33457#22411#21495
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
- object AnticipateQTY: TcxGridDBColumn
+ object Tv1AnticipateQTY: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'AntcpQty'
DataBinding.IsNullValueType = True
@@ -280,7 +303,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default
Width = 86
end
- object OrderUnit: TcxGridDBColumn
+ object Tv1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'AntcpUnit'
DataBinding.IsNullValueType = True
@@ -309,7 +332,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
HeaderAlignmentHorz = taCenter
Width = 66
end
- object DeliveryDate: TcxGridDBColumn
+ object Tv1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
diff --git a/F02染色计划单/U_DyePlanForCardSel.pas b/F02染色计划单/U_DyePlanForCardSel.pas
index 9f932b9..905df9b 100644
--- a/F02染色计划单/U_DyePlanForCardSel.pas
+++ b/F02染色计划单/U_DyePlanForCardSel.pas
@@ -27,24 +27,24 @@ type
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
- OrderNoM: TEdit;
- OrderNo: TcxGridDBColumn;
- DeliveryDate: TcxGridDBColumn;
- C_COLOR: TcxGridDBColumn;
+ OrderNo: TEdit;
+ Tv1OrderNo: TcxGridDBColumn;
+ Tv1DeliveryDate: TcxGridDBColumn;
+ Tv1C_COLOR: TcxGridDBColumn;
Order_Main: TClientDataSet;
- C_CodeName: TcxGridDBColumn;
- C_Width: TcxGridDBColumn;
- AnticipateQTY: TcxGridDBColumn;
- C_GramWeight: TcxGridDBColumn;
+ Tv1C_CodeName: TcxGridDBColumn;
+ Tv1C_Width: TcxGridDBColumn;
+ Tv1AnticipateQTY: TcxGridDBColumn;
+ Tv1C_GramWeight: TcxGridDBColumn;
ToolButton3: TToolButton;
v1Column4: TcxGridDBColumn;
- C_COLORNO: TcxGridDBColumn;
+ Tv1C_COLORNO: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
- OrderUnit: TcxGridDBColumn;
+ Tv1OrderUnit: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
- C_Pattern: TcxGridDBColumn;
+ Tv1C_Pattern: TcxGridDBColumn;
TBRafresh: TToolButton;
TBFind: TToolButton;
BegDate: TDateTimePicker;
@@ -52,19 +52,21 @@ type
Label1: TLabel;
Label2: TLabel;
cxTabControl1: TcxTabControl;
- CustNoName: TcxGridDBColumn;
+ Tv1CustNoName: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
ToolButton1: TToolButton;
+ Label4: TLabel;
+ C_Name: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(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 N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
@@ -72,6 +74,7 @@ type
procedure TBFindClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
+ procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
private
DQdate: TDateTime;
procedure InitGrid();
@@ -121,11 +124,19 @@ begin
sql.Add('select B.*,A.* ');
sql.add('from Dye_Plan_sub A');
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('and B.FillTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
+ sql.Add('where B.OrdDate>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
+ sql.Add('and B.OrdDate<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
// sql.Add('and B.Workshop=' + quotedstr(fWorkshop));
// 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
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();
begin
ReadCxGrid('ָʾбѡ', Tv1, 'ָʾ');
- BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 15;
+ BegDate.DateTime := SGetServerDate(ADOQueryTemp);
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
InitGrid();
end;
procedure TfrmProductOrderListSel.FormShow(Sender: TObject);
begin
+
InitForm();
if FFInt = 1 then
begin
@@ -173,34 +185,34 @@ begin
ModalResult := 1;
end;
-procedure TfrmProductOrderListSel.OrderNoMKeyPress(Sender: TObject; var Key: Char);
-begin
- if Key = #13 then
- begin
- if Length(Trim(OrderNoM.Text)) < 3 then
- Exit;
- try
- ADOQueryMain.DisableControls;
- with ADOQueryMain do
- begin
-
- Close;
- Filtered := False;
- sql.Clear;
- sql.Add('select B.*,A.*,A.OrderNo orderNoM ');
- sql.add('from Dye_Plan_sub A');
- 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('where B.OrderNo like ''' + '%' + Trim(OrderNoM.Text) + '%' + '''');
- Open;
- end;
- SCreateCDS(ADOQueryMain, Order_Main);
- SInitCDSData(ADOQueryMain, Order_Main);
- finally
- ADOQueryMain.EnableControls;
- end;
- end;
-end;
+//procedure TfrmProductOrderListSel.OrderNoKeyPress(Sender: TObject; var Key: Char);
+//begin
+// if Key = #13 then
+// begin
+// if Length(Trim(OrderNo.Text)) < 3 then
+// Exit;
+// try
+// ADOQueryMain.DisableControls;
+// with ADOQueryMain do
+// begin
+//
+// Close;
+// Filtered := False;
+// sql.Clear;
+// sql.Add('select B.*,A.*,A.OrderNo orderNoM ');
+// sql.add('from Dye_Plan_sub A');
+// 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('where B.OrderNo like ''' + '%' + Trim(OrderNo.Text) + '%' + '''');
+// Open;
+// end;
+// SCreateCDS(ADOQueryMain, Order_Main);
+// SInitCDSData(ADOQueryMain, Order_Main);
+// finally
+// ADOQueryMain.EnableControls;
+// end;
+// end;
+//end;
procedure TfrmProductOrderListSel.Tv1DblClick(Sender: TObject);
begin
@@ -217,6 +229,12 @@ begin
SelOKNo(Order_Main, false);
end;
+procedure TfrmProductOrderListSel.OrderNoKeyPress(Sender: TObject;
+ var Key: Char);
+begin
+ InitGrid();
+end;
+
procedure TfrmProductOrderListSel.TBRafreshClick(Sender: TObject);
begin
initgrid();
diff --git a/F02染色计划单/U_DyePlanInPut.dfm b/F02染色计划单/U_DyePlanInPut.dfm
index 659d459..dc6db3a 100644
--- a/F02染色计划单/U_DyePlanInPut.dfm
+++ b/F02染色计划单/U_DyePlanInPut.dfm
@@ -79,7 +79,6 @@ object frmDyePlanInPut: TfrmDyePlanInPut
ParentColor = False
ParentCtl3D = False
TabOrder = 1
- ExplicitTop = 32
object Label1: TLabel
Left = 31
Top = 69
@@ -575,7 +574,6 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Font.Style = []
ParentFont = False
TabOrder = 4
- ExplicitTop = 365
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
diff --git a/F02染色计划单/U_DyePlanInPut.pas b/F02染色计划单/U_DyePlanInPut.pas
index 70389b4..3829c00 100644
--- a/F02染色计划单/U_DyePlanInPut.pas
+++ b/F02染色计划单/U_DyePlanInPut.pas
@@ -314,9 +314,9 @@ begin
Close;
SQL.Clear;
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) + '''');
-
+ ShowMessage(sql.Text);
EXECSQL;
end;
/////////////// ӱ ///////////////
diff --git a/F02染色计划单/U_DyePlanList.dfm b/F02染色计划单/U_DyePlanList.dfm
index 06f4932..48da89d 100644
--- a/F02染色计划单/U_DyePlanList.dfm
+++ b/F02染色计划单/U_DyePlanList.dfm
@@ -366,6 +366,7 @@ inherited frmDyePlanList: TfrmDyePlanList
Align = alClient
PopupMenu = PM_1
TabOrder = 2
+ ExplicitTop = 127
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -579,8 +580,6 @@ inherited frmDyePlanList: TfrmDyePlanList
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
- ExplicitLeft = -280
- ExplicitTop = 501
end
object cxTabControl1: TcxTabControl [4]
Left = 0
diff --git a/F02染色计划单/U_DyeProcessDefin.dfm b/F02染色计划单/U_DyeProcessDefin.dfm
index 09a11e8..49554e3 100644
--- a/F02染色计划单/U_DyeProcessDefin.dfm
+++ b/F02染色计划单/U_DyeProcessDefin.dfm
@@ -2,7 +2,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 459
Top = 231
Caption = #20135#21697#20449#24687#24405#20837
- ClientHeight = 815
+ ClientHeight = 827
ClientWidth = 1147
Color = clWhite
Font.Charset = GB2312_CHARSET
@@ -59,12 +59,12 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 73
Width = 1147
- Height = 742
+ Height = 754
Align = alClient
TabOrder = 0
- Properties.ActivePage = GJ
+ Properties.ActivePage = FP
Properties.CustomButtons.Buttons = <>
- ClientRectBottom = 740
+ ClientRectBottom = 752
ClientRectLeft = 2
ClientRectRight = 1145
ClientRectTop = 22
@@ -75,7 +75,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
- Height = 718
+ Height = 730
Align = alClient
TabOrder = 0
object cxLabel335: TcxLabel
@@ -194,7 +194,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
- Height = 718
+ Height = 730
Align = alClient
TabOrder = 0
object ccqx_note: TcxTextEdit
@@ -390,7 +390,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
- Height = 718
+ Height = 730
Align = alClient
TabOrder = 0
object cxLabel114: TcxLabel
@@ -489,7 +489,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
- Height = 718
+ Height = 730
Align = alClient
TabOrder = 0
object cxLabel340: TcxLabel
@@ -770,7 +770,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
- Height = 718
+ Height = 730
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@@ -1490,11 +1490,9 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
- Height = 718
+ Height = 730
Align = alClient
TabOrder = 0
- ExplicitLeft = 3
- ExplicitTop = 44
object TbFSReplace1: TcxButton
Left = 104
Top = 298
@@ -1532,8 +1530,8 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
OnClick = TBFScLEAR2Click
end
object cxLabel191: TcxLabel
- Left = 303
- Top = 25
+ Left = 423
+ Top = 23
Caption = #28888#31570#21387#21147'(MPA)'
end
object cxLabel192: TcxLabel
@@ -1561,14 +1559,9 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Top = 271
Caption = '9#'
end
- object cxLabel197: TcxLabel
- Left = 37
- Top = 25
- Caption = #36710#23614#38376#24133'(cm)'
- end
object cxLabel198: TcxLabel
Left = 37
- Top = 77
+ Top = 76
Caption = #36710#36895'(M/Min)'
end
object cxLabel199: TcxLabel
@@ -1578,7 +1571,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end
object cxLabel200: TcxLabel
Left = 11
- Top = 484
+ Top = 493
Caption = #22791#27880
end
object cxLabel201: TcxLabel
@@ -1587,7 +1580,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Caption = #19978#36229#21890#29575'(%)'
end
object cxLabel202: TcxLabel
- Left = 303
+ Left = 423
Top = 103
Caption = #26426#23614#21367#24067#26041#27861
end
@@ -1637,13 +1630,13 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Caption = '10#'
end
object cxLabel212: TcxLabel
- Left = 303
- Top = 51
+ Left = 423
+ Top = 50
Caption = #21387#36710#21387#21147'(MPA)'
end
object cxLabel213: TcxLabel
- Left = 303
- Top = 77
+ Left = 423
+ Top = 76
Caption = #28888#31570#28201#24230'('#8451')'
end
object cxLabel214: TcxLabel
@@ -1703,27 +1696,27 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end
object cxLabel225: TcxLabel
Left = 281
- Top = 441
+ Top = 450
Caption = '2#'
end
object cxLabel226: TcxLabel
Left = 7
- Top = 417
+ Top = 424
Caption = #25490#39118'r/min:'
end
object cxLabel227: TcxLabel
Left = 38
- Top = 438
+ Top = 447
Caption = '1#'
end
object cxLabel228: TcxLabel
Left = 491
- Top = 443
+ Top = 452
Caption = '3#'
end
object cxLabel229: TcxLabel
Left = 693
- Top = 441
+ Top = 450
Caption = '4#'
end
object cxLabel230: TcxLabel
@@ -1736,26 +1729,16 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Top = 271
Caption = '11#'
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
Tag = 2
- Left = 390
- Top = 49
+ Left = 510
+ Top = 50
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 47
- Width = 150
+ TabOrder = 44
+ Width = 200
end
object fs_DownSuperRate: TcxTextEdit
Tag = 2
@@ -1765,18 +1748,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 48
- 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
+ TabOrder = 45
Width = 150
end
object fs_hotWind1: TcxTextEdit
@@ -1788,7 +1760,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 50
+ TabOrder = 46
Width = 150
end
object fs_hotWind10: TcxTextEdit
@@ -1800,7 +1772,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 51
+ TabOrder = 47
Width = 150
end
object fs_hotWind11: TcxTextEdit
@@ -1812,7 +1784,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 52
+ TabOrder = 48
Width = 150
end
object fs_hotWind2: TcxTextEdit
@@ -1824,7 +1796,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 53
+ TabOrder = 49
Width = 150
end
object fs_hotWind3: TcxTextEdit
@@ -1836,7 +1808,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 54
+ TabOrder = 50
Width = 150
end
object fs_hotWind4: TcxTextEdit
@@ -1848,7 +1820,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 55
+ TabOrder = 51
Width = 150
end
object fs_hotWind5: TcxTextEdit
@@ -1860,7 +1832,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 56
+ TabOrder = 52
Width = 150
end
object fs_hotWind6: TcxTextEdit
@@ -1872,7 +1844,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 57
+ TabOrder = 53
Width = 150
end
object fs_hotWind7: TcxTextEdit
@@ -1884,7 +1856,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 58
+ TabOrder = 54
Width = 150
end
object fs_hotWind8: TcxTextEdit
@@ -1896,7 +1868,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 59
+ TabOrder = 55
Width = 150
end
object fs_hotWind9: TcxTextEdit
@@ -1908,27 +1880,26 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 60
+ TabOrder = 56
Width = 150
end
object fs_Precautions: TcxTextEdit
Tag = 2
Left = 62
- Top = 470
- Hint = #38450#27700#28201#25511
+ Top = 479
AutoSize = False
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 61
+ TabOrder = 57
Height = 50
Width = 650
end
object fs_RollMethod: TcxComboBox
Tag = 2
- Left = 390
- Top = 100
+ Left = 510
+ Top = 103
Properties.Items.Strings = (
''
#21367#26729
@@ -1938,13 +1909,61 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 62
- Width = 150
+ TabOrder = 58
+ Width = 200
end
object fs_RosePower: TcxTextEdit
Tag = 2
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'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
@@ -1952,64 +1971,16 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
TabOrder = 63
Width = 150
end
- object fs_rowWind1: TcxTextEdit
+ object fs_speed: TcxTextEdit
Tag = 2
- Left = 104
- Top = 438
- Hint = #23450#22411#28888#31665#28201#24230
+ Left = 119
+ Top = 76
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 64
- Width = 150
- 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
+ Width = 200
end
object fs_temperature1: TcxTextEdit
Tag = 2
@@ -2020,7 +1991,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 69
+ TabOrder = 65
Width = 150
end
object fs_temperature10: TcxTextEdit
@@ -2032,7 +2003,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 70
+ TabOrder = 66
Width = 150
end
object fs_temperature11: TcxTextEdit
@@ -2044,7 +2015,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 71
+ TabOrder = 67
Width = 150
end
object fs_temperature2: TcxTextEdit
@@ -2056,7 +2027,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 72
+ TabOrder = 68
Width = 150
end
object fs_temperature3: TcxTextEdit
@@ -2068,7 +2039,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 73
+ TabOrder = 69
Width = 150
end
object fs_temperature4: TcxTextEdit
@@ -2080,7 +2051,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 74
+ TabOrder = 70
Width = 150
end
object fs_temperature5: TcxTextEdit
@@ -2092,7 +2063,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 75
+ TabOrder = 71
Width = 150
end
object fs_temperature6: TcxTextEdit
@@ -2104,7 +2075,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 76
+ TabOrder = 72
Width = 150
end
object fs_temperature7: TcxTextEdit
@@ -2116,7 +2087,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 77
+ TabOrder = 73
Width = 150
end
object fs_temperature8: TcxTextEdit
@@ -2128,7 +2099,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 78
+ TabOrder = 74
Width = 150
end
object fs_temperature9: TcxTextEdit
@@ -2140,30 +2111,30 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 79
+ TabOrder = 75
Width = 150
end
object fs_TubePress: TcxTextEdit
Tag = 2
- Left = 390
- Top = 24
+ Left = 510
+ Top = 23
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 80
- Width = 150
+ TabOrder = 76
+ Width = 200
end
object fs_tubeTemper: TcxTextEdit
Tag = 2
- Left = 390
- Top = 75
+ Left = 510
+ Top = 76
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 81
- Width = 150
+ TabOrder = 77
+ Width = 200
end
object fs_upperNeedle: TcxTextEdit
Tag = 2
@@ -2173,7 +2144,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 82
+ TabOrder = 78
Width = 150
end
object fs_UpSuperRate: TcxTextEdit
@@ -2184,29 +2155,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 83
- 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
+ TabOrder = 79
Width = 150
end
object cxLabel26: TcxLabel
@@ -2215,14 +2164,14 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Caption = #21069#36229#21890':'
end
object cxLabel352: TcxLabel
- Left = 575
- Top = 25
+ Left = 37
+ Top = 23
Caption = #31867#22411
end
object FS_Style: TcxComboBox
Tag = 2
- Left = 630
- Top = 25
+ Left = 119
+ Top = 23
Properties.Items.Strings = (
''
#28165#27700
@@ -2232,34 +2181,18 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 88
- Width = 150
- 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
+ TabOrder = 82
+ Width = 200
end
object cxLabel354: TcxLabel
- Left = 575
- Top = 102
+ Left = 37
+ Top = 50
Caption = #33073#30495#31354
end
object fs_isVacuun: TcxComboBox
Tag = 2
- Left = 630
- Top = 99
+ Left = 119
+ Top = 50
Properties.Items.Strings = (
''
#26159
@@ -2268,8 +2201,26 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
- TabOrder = 92
- Width = 150
+ TabOrder = 84
+ 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
@@ -2280,7 +2231,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
- Height = 718
+ Height = 730
Align = alClient
TabOrder = 0
object TbGJReplace2: TcxButton
@@ -3117,7 +3068,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
- Height = 718
+ Height = 730
Align = alClient
TabOrder = 0
object TbFPReplace2: TcxButton
@@ -3958,11 +3909,12 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ParentFont = False
object cxGrid2: TcxGrid
Left = 0
- Top = 560
+ Top = 572
Width = 1143
Height = 158
Align = alBottom
TabOrder = 0
+ ExplicitTop = 560
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -4034,7 +3986,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
- Height = 525
+ Height = 537
Align = alClient
TabOrder = 1
object cxLabel100: TcxLabel
@@ -4431,7 +4383,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end
object ToolBar4: TToolBar
Left = 0
- Top = 525
+ Top = 537
Width = 1143
Height = 35
Align = alBottom
@@ -4443,6 +4395,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ShowCaptions = True
TabOrder = 2
Transparent = True
+ ExplicitTop = 525
object TbAdd1: TToolButton
Left = 0
Top = 0
@@ -4474,7 +4427,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
- Height = 718
+ Height = 730
Hint = 'tt'
Align = alClient
TabOrder = 0
@@ -4654,11 +4607,12 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ParentFont = False
object cxGrid1: TcxGrid
Left = 0
- Top = 600
+ Top = 612
Width = 1143
Height = 118
Align = alBottom
TabOrder = 0
+ ExplicitTop = 600
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -4747,7 +4701,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
- Height = 562
+ Height = 574
Align = alClient
TabOrder = 1
object cxLabel107: TcxLabel
@@ -5161,7 +5115,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end
object ToolBar3: TToolBar
Left = 0
- Top = 562
+ Top = 574
Width = 1143
Height = 38
Align = alBottom
@@ -5173,6 +5127,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ShowCaptions = True
TabOrder = 2
Transparent = True
+ ExplicitTop = 562
object TbAdd2: TToolButton
Left = 0
Top = 0
@@ -5196,7 +5151,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ImageIndex = 5
object cxGrid3: TcxGrid
Left = 0
- Top = 560
+ Top = 572
Width = 1143
Height = 158
Align = alBottom
@@ -5207,6 +5162,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Font.Style = []
ParentFont = False
TabOrder = 0
+ ExplicitTop = 560
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@@ -5295,7 +5251,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
- Height = 522
+ Height = 534
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@@ -5646,7 +5602,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end
object ToolBar5: TToolBar
Left = 0
- Top = 522
+ Top = 534
Width = 1143
Height = 38
Align = alBottom
@@ -5658,6 +5614,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ShowCaptions = True
TabOrder = 2
Transparent = True
+ ExplicitTop = 522
object TbAdd3: TToolButton
Left = 0
Top = 0
@@ -5689,7 +5646,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
- Height = 718
+ Height = 730
Align = alClient
TabOrder = 0
object cxLabel115: TcxLabel
@@ -5985,12 +5942,12 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
- Left = 258
- Top = 444
+ Left = 306
+ Top = 396
end
object DS_HZ: TDataSource
DataSet = CDS_HZ
- Left = 330
- Top = 444
+ Left = 386
+ Top = 388
end
end
diff --git a/F02染色计划单/U_DyeProcessDefin.pas b/F02染色计划单/U_DyeProcessDefin.pas
index 77d4db3..001d78c 100644
--- a/F02染色计划单/U_DyeProcessDefin.pas
+++ b/F02染色计划单/U_DyeProcessDefin.pas
@@ -607,7 +607,6 @@ type
cxLabel194: TcxLabel;
cxLabel195: TcxLabel;
cxLabel196: TcxLabel;
- cxLabel197: TcxLabel;
cxLabel198: TcxLabel;
cxLabel199: TcxLabel;
cxLabel200: TcxLabel;
@@ -642,11 +641,8 @@ type
cxLabel229: TcxLabel;
cxLabel230: TcxLabel;
cxLabel231: TcxLabel;
- cxLabel232: TcxLabel;
- cxLabel333: TcxLabel;
fs_CarPress: TcxTextEdit;
fs_DownSuperRate: TcxTextEdit;
- fs_gram: TcxTextEdit;
fs_hotWind1: TcxTextEdit;
fs_hotWind10: TcxTextEdit;
fs_hotWind11: TcxTextEdit;
@@ -681,8 +677,6 @@ type
fs_tubeTemper: TcxTextEdit;
fs_upperNeedle: TcxTextEdit;
fs_UpSuperRate: TcxTextEdit;
- fs_WidthAmplitude: TcxTextEdit;
- fs_WidthFinish: TcxTextEdit;
Panel_jgqx: TPanel;
cxLabel340: TcxLabel;
cxLabel341: TcxLabel;
@@ -772,10 +766,10 @@ type
cxLabel26: TcxLabel;
cxLabel352: TcxLabel;
FS_Style: TcxComboBox;
- cxLabel353: TcxLabel;
- fs_WidthOutLet: TcxTextEdit;
cxLabel354: TcxLabel;
fs_isVacuun: TcxComboBox;
+ TbFSReplace3: TcxButton;
+ TbFSClear3: TcxButton;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TbSaveClick(Sender: TObject);
@@ -804,8 +798,8 @@ type
procedure TbFSReplace2Click(Sender: TObject);
procedure TbFPReplaceClick(Sender: TObject);
procedure TbGJReplaceClick(Sender: TObject);
- procedure cxButton1Click(Sender: TObject);
- procedure cxButton2Click(Sender: TObject);
+ procedure TbFSReplace3Click(Sender: TObject);
+ procedure TbFSClear3Click(Sender: TObject);
procedure TbDXClear2Click(Sender: TObject);
procedure cxButton4Click(Sender: TObject);
procedure TbGJClearClick(Sender: TObject);
@@ -828,7 +822,7 @@ type
canshu1: string;
Fint: Integer;
procedure InitGrid();
- procedure ArrangeTabsByDataset;
+ procedure ArrangeTabsByDataset();
function SaveData(): Boolean;
function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil);
@@ -850,7 +844,7 @@ implementation
uses
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel,
- U_DyeProcessList, U_ProductInfoSel;
+ U_DyeProcessList, U_ProductInfoSel, U_DyeTechnicsinput;
// U_ProductInfoSel;
{$R *.dfm}
@@ -896,7 +890,7 @@ begin
// end;
end;
-procedure TfrmDyeProcessDefin.ArrangeTabsByDataset;
+procedure TfrmDyeProcessDefin.ArrangeTabsByDataset();
var
I: Integer;
TabSheet: TcxTabSheet;
@@ -922,6 +916,7 @@ begin
begin
TabSheet.PageIndex := CurrentIndex;
TabSheet.TabVisible := True;
+ TabSheet.Visible := True;
Inc(CurrentIndex);
Break;
end;
@@ -929,7 +924,7 @@ begin
end;
// ˢҳؼ
- cxPageControl1.Invalidate;
+// cxPageControl1.Invalidate;
end;
procedure TfrmDyeProcessDefin.InitGrid();
@@ -953,12 +948,11 @@ begin
Close;
sql.Clear;
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;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
-
with ADOQueryTemp do
begin
Close;
@@ -982,150 +976,62 @@ var
Maxid1, maxid2, maxid3, maxgx: string;
begin
InitGrid();
- ArrangeTabsByDataset;
- if BtnInt = 0 then //
+ ArrangeTabsByDataset();
+ if (BtnInt = 0) and (frmDyeTechnicsinput.CDS_1.FieldByName('PSName').Value = '') then //
begin
FPSID := '';
end;
- if (BtnInt = 1) or (BtnInt = 3) then //
+
+ with ADOQueryTemp do
begin
- with ADOQueryTemp do
- begin
- Close;
- SQL.Clear;
- SQL.Add('select * from Dye_Process where PSID=''' + Trim(FPSID) + '''');
- Open;
- end;
- SCSHData(ADOQueryTemp, Panel1, 2);
+ Close;
+ SQL.Clear;
+ SQL.Add('select * from Dye_Process where PSID=''' + Trim(FPSID) + '''');
+ Open;
+ end;
+ SCSHData(ADOQueryTemp, Panel1, 2);
- with ADOQueryTemp do
- begin
- Close;
- SQL.Clear;
- SQL.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(FPSID) + '''');
- 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;
+ with ADOQueryTemp do
+ begin
+ Close;
+ SQL.Clear;
+ SQL.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(FPSID) + '''');
+ Open;
end;
- if BtnInt = 2 then //
+ if FPSType = 'ϴ' then
begin
- with ADOQueryTemp do
- begin
- Close;
- SQL.Clear;
- SQL.Add('select * from Dye_Process where PSID=''' + Trim(FPSID) + '''');
- Open;
- end;
- SCSHData(ADOQueryTemp, Panel1, 2);
-
- with ADOQueryTemp do
- begin
- Close;
- SQL.Clear;
- SQL.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(FPSID) + '''');
- 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);
-// 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;
-
+ 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;
+
if BtnInt = 3 then //鿴
begin
TbSave.Visible := False;
@@ -1175,18 +1081,39 @@ begin
Result := False;
Exit;
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
- Close;
- SQL.Clear;
- sql.Add('select * from Dye_Process where PSName=''' + trim(PSName.Text) + '''');
- Open;
+ with ADOQueryCmd do
+ begin
+ Close;
+ 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;
- if ADOQueryCmd.RecordCount > 1 then
+
+ if BtnInt = 2 then///
begin
- application.MessageBox(PChar('' + trim(PSName.text) + 'Ѵ'), 'ʾ');
- Result := false;
- Exit;
+ FPSID := '';
end;
Result := True;
end;
@@ -1794,14 +1721,14 @@ begin
end;
end;
-procedure TfrmDyeProcessDefin.cxButton1Click(Sender: TObject);
+procedure TfrmDyeProcessDefin.TbFSReplace3Click(Sender: TObject);
begin
- ClearAllTextEditsByHint(panel4, 'ˮ¶');
+ FillAllTextEditsWithValue(panel_fs, 'ˮŷ', FindLastEditedTextEdit(panel_fs, 'ˮŷ'));
end;
-procedure TfrmDyeProcessDefin.cxButton2Click(Sender: TObject);
+procedure TfrmDyeProcessDefin.TbFSClear3Click(Sender: TObject);
begin
- ClearAllTextEditsByHint(panel2, 'ϴˮ');
+ ClearAllTextEditsByHint(panel_fs, 'ˮŷ');
end;
procedure TfrmDyeProcessDefin.TbCCQXReplaceClick(Sender: TObject);
diff --git a/F02染色计划单/U_DyeProcessList.dfm b/F02染色计划单/U_DyeProcessList.dfm
index 29d391b..6ed5e62 100644
--- a/F02染色计划单/U_DyeProcessList.dfm
+++ b/F02染色计划单/U_DyeProcessList.dfm
@@ -1,9 +1,9 @@
inherited frmDyeProcessList: TfrmDyeProcessList
Caption = #24037#24207#31649#29702
ClientHeight = 569
- ClientWidth = 1126
+ ClientWidth = 1134
WindowState = wsMaximized
- ExplicitWidth = 1142
+ ExplicitWidth = 1150
ExplicitHeight = 608
PixelsPerInch = 96
TextHeight = 12
@@ -11,7 +11,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
Tag = 1
Left = 0
Top = 0
- Width = 1126
+ Width = 1134
Height = 76
AutoSize = True
ButtonHeight = 38
@@ -24,6 +24,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
ParentColor = False
ShowCaptions = True
TabOrder = 0
+ ExplicitWidth = 1126
object TBRafresh: TToolButton
Left = 0
Top = 0
@@ -157,13 +158,14 @@ inherited frmDyeProcessList: TfrmDyeProcessList
object Panel1: TPanel [1]
Left = 0
Top = 76
- Width = 1126
+ Width = 1134
Height = 38
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
+ ExplicitWidth = 1126
object Label5: TLabel
Left = 326
Top = 12
@@ -218,10 +220,11 @@ inherited frmDyeProcessList: TfrmDyeProcessList
object cxGrid2: TcxGrid [2]
Left = 0
Top = 114
- Width = 1126
+ Width = 1134
Height = 455
Align = alClient
TabOrder = 2
+ ExplicitTop = 110
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
diff --git a/F02染色计划单/U_DyeTechnicsList.dfm b/F02染色计划单/U_DyeTechnicsList.dfm
index 1d835a7..952ddea 100644
--- a/F02染色计划单/U_DyeTechnicsList.dfm
+++ b/F02染色计划单/U_DyeTechnicsList.dfm
@@ -4,6 +4,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Caption = #24037#33402#30331#35760
ClientHeight = 593
ClientWidth = 1455
+ ExplicitLeft = -604
ExplicitWidth = 1471
ExplicitHeight = 632
PixelsPerInch = 96
@@ -57,16 +58,24 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
ImageIndex = 3
OnClick = ToolButton4Click
end
- object TBDel: TToolButton
+ object ToolButton5: TToolButton
Left = 284
Top = 0
AutoSize = True
+ Caption = #22797#21046
+ ImageIndex = 13
+ OnClick = ToolButton5Click
+ end
+ object TBDel: TToolButton
+ Left = 355
+ Top = 0
+ AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDelClick
end
object Tchk: TToolButton
- Left = 355
+ Left = 426
Top = 0
AutoSize = True
Caption = #38145#23450
@@ -74,7 +83,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
OnClick = TchkClick
end
object TNochk: TToolButton
- Left = 426
+ Left = 497
Top = 0
AutoSize = True
Caption = #25764#38144#38145#23450
@@ -82,7 +91,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
OnClick = TNochkClick
end
object ToolButton3: TToolButton
- Left = 521
+ Left = 592
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@@ -90,7 +99,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
OnClick = ToolButton3Click
end
object TBClose: TToolButton
- Left = 616
+ Left = 687
Top = 0
AutoSize = True
Caption = #20851#38381
@@ -108,7 +117,6 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
- ExplicitTop = 44
object Label1: TLabel
Left = 186
Top = 13
@@ -145,11 +153,10 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
object cxGrid2: TcxGrid [2]
Left = 0
Top = 99
- Width = 760
+ Width = 1217
Height = 494
Align = alLeft
TabOrder = 2
- ExplicitLeft = -6
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@@ -190,7 +197,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
- Width = 60
+ Width = 51
end
object v2GYNO: TcxGridDBColumn
Caption = #24037#33402#32534#21495
@@ -198,7 +205,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
- Width = 67
+ Width = 196
end
object v2GYName: TcxGridDBColumn
Caption = #24037#33402#21517#31216
@@ -206,7 +213,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
- Width = 69
+ Width = 304
end
object v2GYGX: TcxGridDBColumn
Caption = #24037#24207
@@ -244,14 +251,14 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
ClientRectTop = 19
end
object cxGrid1: TcxGrid [4]
- Left = 760
+ Left = 1217
Top = 99
- Width = 695
+ Width = 238
Height = 494
Align = alClient
TabOrder = 4
- ExplicitLeft = 768
- ExplicitWidth = 687
+ ExplicitLeft = 1160
+ ExplicitWidth = 295
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@@ -302,12 +309,13 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
end
end
object cxSplitter1: TcxSplitter [5]
- Left = 760
+ Left = 1217
Top = 99
Width = 0
Height = 494
AlignSplitter = salRight
Control = cxGrid2
+ ExplicitLeft = 1065
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_DyePlan.ADOLink
diff --git a/F02染色计划单/U_DyeTechnicsList.pas b/F02染色计划单/U_DyeTechnicsList.pas
index 302393a..a418ae4 100644
--- a/F02染色计划单/U_DyeTechnicsList.pas
+++ b/F02染色计划单/U_DyeTechnicsList.pas
@@ -57,6 +57,7 @@ type
ToolButton3: TToolButton;
ToolButton1: TToolButton;
ToolButton4: TToolButton;
+ ToolButton5: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@@ -73,6 +74,7 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
+ procedure ToolButton5Click(Sender: TObject);
private
{ Private declarations }
@@ -294,6 +296,24 @@ begin
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);
begin
ToolButton2.Click;
diff --git a/F02染色计划单/U_DyeTechnicsinput.dfm b/F02染色计划单/U_DyeTechnicsinput.dfm
index 7fd493d..44c4ba9 100644
--- a/F02染色计划单/U_DyeTechnicsinput.dfm
+++ b/F02染色计划单/U_DyeTechnicsinput.dfm
@@ -18,7 +18,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object Panel2: TPanel [1]
Left = 0
Top = 0
- Width = 481
+ Width = 753
Height = 593
Align = alLeft
Caption = 'Panel2'
@@ -26,9 +26,9 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object cxGrid2: TcxGrid
Left = 1
Top = 39
- Width = 479
+ Width = 296
Height = 553
- Align = alClient
+ Align = alLeft
TabOrder = 0
object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
@@ -36,6 +36,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
+ OnFocusedRecordChanged = Tv2FocusedRecordChanged
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -57,20 +58,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
OptionsData.DeletingConfirmation = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
- object v2PSName: 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
+ object Tv2PSType: TcxGridDBColumn
Caption = #24037#24207#31867#21035
DataBinding.FieldName = 'PSType'
DataBinding.IsNullValueType = True
@@ -81,15 +69,15 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
- Width = 128
+ Width = 143
end
- object v2Column1: TcxGridDBColumn
+ object Tv2PSNote: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
- Width = 101
+ Width = 112
end
end
object cxGridLevel1: TcxGridLevel
@@ -99,63 +87,91 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object Panel1: TPanel
Left = 1
Top = 1
- Width = 479
+ Width = 751
Height = 38
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
+ ExplicitWidth = 431
object Label5: TLabel
- Left = 191
- Top = 12
- Width = 48
- Height = 13
- Caption = #36710#38388#21517#31216
- end
- object Label1: TLabel
- Left = 31
- Top = 12
+ Left = 23
+ Top = 15
Width = 48
Height = 13
Caption = #24037#24207#21517#31216
end
- object SYRName: TEdit
- Tag = 2
- Left = 241
- Top = 8
- Width = 89
- Height = 21
- TabOrder = 0
- OnChange = PSNameChange
- end
object PSName: TEdit
Tag = 2
- Left = 85
+ Left = 73
Top = 11
Width = 89
Height = 21
- TabOrder = 1
- OnChange = PSNameChange
+ TabOrder = 0
+ 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
object Panel3: TPanel [2]
- Left = 481
+ Left = 753
Top = 0
- Width = 966
+ Width = 694
Height = 593
Align = alClient
Caption = 'Panel3'
TabOrder = 2
+ ExplicitLeft = 433
+ ExplicitWidth = 1014
object cxGrid1: TcxGrid
Left = 1
Top = 77
- Width = 964
+ Width = 692
Height = 515
Align = alClient
PopupMenu = PM_1
TabOrder = 0
+ ExplicitLeft = 5
+ ExplicitTop = 83
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@@ -184,14 +200,29 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
- Width = 97
+ Width = 73
end
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
DataBinding.FieldName = 'PSName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
- Width = 141
+ Options.Editing = False
+ Width = 116
end
end
object cxGridLevel2: TcxGridLevel
@@ -202,7 +233,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Tag = 1
Left = 1
Top = 1
- Width = 964
+ Width = 692
Height = 38
AutoSize = True
ButtonHeight = 38
@@ -223,16 +254,24 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
ImageIndex = 1
OnClick = TBRafreshClick
end
- object btnSave: TToolButton
+ object TbDelete: TToolButton
Left = 71
Top = 0
AutoSize = True
+ Caption = #21024#38500
+ ImageIndex = 6
+ OnClick = TbDeleteClick
+ end
+ object btnSave: TToolButton
+ Left = 142
+ Top = 0
+ AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = btnSaveClick
end
object ToolButton2: TToolButton
- Left = 142
+ Left = 213
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@@ -240,7 +279,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
OnClick = ToolButton2Click
end
object TBClose: TToolButton
- Left = 237
+ Left = 308
Top = 0
AutoSize = True
Caption = #20851#38381
@@ -251,23 +290,24 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object Panel4: TPanel
Left = 1
Top = 39
- Width = 964
+ Width = 692
Height = 38
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
+ ExplicitWidth = 1012
object Label2: TLabel
Left = 186
- Top = 13
+ Top = 9
Width = 48
Height = 13
Caption = #24037#33402#21517#31216
end
object Label3: TLabel
Left = 30
- Top = 19
+ Top = 9
Width = 48
Height = 13
Caption = #24037#33402#32534#21495
@@ -283,7 +323,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object DTMNo: TEdit
Tag = 2
Left = 84
- Top = 9
+ Top = 6
Width = 89
Height = 21
TabOrder = 1
@@ -304,13 +344,13 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Connection = DataLink_DyePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
- Left = 397
+ Left = 381
Top = 145
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DyePlan.ADOLink
Parameters = <>
- Left = 317
+ Left = 301
Top = 145
end
object ADOQueryMain: TADOQuery
@@ -322,19 +362,19 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
end
object GPM_2: TcxGridPopupMenu
PopupMenus = <>
- Left = 343
- Top = 281
+ Left = 215
+ Top = 385
end
object DS_2: TDataSource
DataSet = CDS_2
- Left = 543
- Top = 192
+ Left = 303
+ Top = 224
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
- Left = 288
- Top = 345
+ Left = 144
+ Top = 361
end
object DS_1: TDataSource
DataSet = CDS_1
@@ -368,4 +408,15 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
OnClick = N2Click
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
diff --git a/F02染色计划单/U_DyeTechnicsinput.pas b/F02染色计划单/U_DyeTechnicsinput.pas
index a32faa6..f42422d 100644
--- a/F02染色计划单/U_DyeTechnicsinput.pas
+++ b/F02染色计划单/U_DyeTechnicsinput.pas
@@ -35,9 +35,8 @@ type
Panel2: TPanel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
- v2PSName: TcxGridDBColumn;
- v2PSNote: TcxGridDBColumn;
- v2Column1: TcxGridDBColumn;
+ Tv2PSType: TcxGridDBColumn;
+ Tv2PSNote: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Panel1: TPanel;
Panel3: TPanel;
@@ -50,8 +49,6 @@ type
TBRafresh: TToolButton;
TBClose: TToolButton;
Label5: TLabel;
- Label1: TLabel;
- SYRName: TEdit;
PSName: TEdit;
ToolButton2: TToolButton;
btnSave: TToolButton;
@@ -60,6 +57,15 @@ type
Label3: TLabel;
DTMName: 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 FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@@ -71,10 +77,14 @@ type
procedure FormCreate(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
- procedure PSNameChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Tv2DblClick(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 declarations }
@@ -82,6 +92,8 @@ type
procedure InitGlide();
procedure SetXH();
function SaveData(): boolean;
+ procedure CheckData();
+ procedure InitGridSub();
public
FDTMID, PState: string;
{ Public declarations }
@@ -94,7 +106,7 @@ var
implementation
uses
- U_DataLink, U_RTFun, U_ZDYHelp, U_DyeProcessSel;
+ U_DataLink, U_RTFun, U_ZDYHelp, U_DyeProcessSel, U_DyeProcessDefin;
{$R *.dfm}
@@ -161,6 +173,23 @@ begin
end;
SCreateCDS(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;
@@ -248,25 +277,6 @@ begin
Post;
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;
result := true;
@@ -283,13 +293,13 @@ begin
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
- Filtered := False;
+// Filtered := False;
Close;
SQL.Clear;
- sql.Add(' select *,PSXH=0 from Dye_Process ');
+ sql.Add(' select *,PSXH=0 from Dye_Technics ');
Open;
end;
- SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+// SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
finally
@@ -297,6 +307,29 @@ begin
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);
begin
inherited;
@@ -322,6 +355,7 @@ begin
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'չ');
InitGrid();
InitGlide();
+ InitGridSub();
end;
procedure TfrmDyeTechnicsinput.TBRafreshClick(Sender: TObject);
@@ -329,6 +363,27 @@ begin
InitGrid();
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);
begin
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'չ');
@@ -336,6 +391,52 @@ begin
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);
begin
InitGrid();
@@ -392,6 +493,34 @@ begin
application.MessageBox('ƲΪ', 'ʾ');
Exit;
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
begin
Application.MessageBox('ɹ', 'ʾ', 0);
@@ -443,8 +572,8 @@ begin
begin
Append;
FieldByName('PSNO').Value := CDS_1.RecordCount + 1;
- FieldByName('PSName').Value := CDS_2.fieldbyname('PSName').AsString;
- FieldByName('PSId').Value := CDS_2.fieldbyname('PSId').AsString;
+ FieldByName('PSType').Value := CDS_2.fieldbyname('PSType').AsString;
+ FieldByName('PSId').Value := '';
post;
end;
@@ -452,7 +581,20 @@ end;
procedure TfrmDyeTechnicsinput.Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
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;
procedure TfrmDyeTechnicsinput.FormCreate(Sender: TObject);
@@ -473,13 +615,13 @@ begin
SetXH();
end;
-procedure TfrmDyeTechnicsinput.PSNameChange(Sender: TObject);
+procedure TfrmDyeTechnicsinput.PSNameKeyPress(Sender: TObject; var Key: Char);
begin
if ADOQueryMain.Active then
begin
- SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
- SCreateCDS(ADOQueryMain, CDS_2);
- SInitCDSData(ADOQueryMain, CDS_2);
+ SDofilter(ADOQueryTemp, SGetFilters(Panel1, 1, 2));
+ SCreateCDS(ADOQueryTemp, CDS_3);
+ SInitCDSData(ADOQueryTemp, CDS_3);
end;
end;