1
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
9ed02a60eb
commit
707ca8bb33
|
|
@ -283,7 +283,6 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 623
|
Left = 623
|
||||||
Top = 7
|
Top = 7
|
||||||
ParentColor = True
|
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
OnKeyPress = C_CodeKeyPress
|
OnKeyPress = C_CodeKeyPress
|
||||||
Width = 150
|
Width = 150
|
||||||
|
|
@ -292,7 +291,6 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 864
|
Left = 864
|
||||||
Top = 7
|
Top = 7
|
||||||
ParentColor = True
|
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
OnKeyPress = C_CodeKeyPress
|
OnKeyPress = C_CodeKeyPress
|
||||||
Width = 150
|
Width = 150
|
||||||
|
|
@ -301,7 +299,6 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 864
|
Left = 864
|
||||||
Top = 77
|
Top = 77
|
||||||
ParentColor = True
|
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
OnKeyPress = C_CodeKeyPress
|
OnKeyPress = C_CodeKeyPress
|
||||||
Width = 150
|
Width = 150
|
||||||
|
|
@ -310,7 +307,6 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 623
|
Left = 623
|
||||||
Top = 77
|
Top = 77
|
||||||
ParentColor = True
|
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
OnKeyPress = C_CodeKeyPress
|
OnKeyPress = C_CodeKeyPress
|
||||||
Width = 150
|
Width = 150
|
||||||
|
|
@ -319,7 +315,6 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 80
|
Left = 80
|
||||||
Top = 7
|
Top = 7
|
||||||
ParentColor = True
|
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
OnKeyPress = C_CodeKeyPress
|
OnKeyPress = C_CodeKeyPress
|
||||||
Width = 150
|
Width = 150
|
||||||
|
|
@ -328,7 +323,6 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 80
|
Left = 80
|
||||||
Top = 42
|
Top = 42
|
||||||
ParentColor = True
|
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
OnKeyPress = C_CodeKeyPress
|
OnKeyPress = C_CodeKeyPress
|
||||||
Width = 150
|
Width = 150
|
||||||
|
|
@ -337,7 +331,6 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 864
|
Left = 864
|
||||||
Top = 42
|
Top = 42
|
||||||
ParentColor = True
|
|
||||||
TabOrder = 6
|
TabOrder = 6
|
||||||
OnKeyPress = C_CodeKeyPress
|
OnKeyPress = C_CodeKeyPress
|
||||||
Width = 150
|
Width = 150
|
||||||
|
|
@ -346,7 +339,6 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 623
|
Left = 623
|
||||||
Top = 42
|
Top = 42
|
||||||
ParentColor = True
|
|
||||||
TabOrder = 7
|
TabOrder = 7
|
||||||
OnKeyPress = C_CodeKeyPress
|
OnKeyPress = C_CodeKeyPress
|
||||||
Width = 150
|
Width = 150
|
||||||
|
|
@ -355,7 +347,6 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 353
|
Left = 353
|
||||||
Top = 7
|
Top = 7
|
||||||
ParentColor = True
|
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
OnKeyPress = C_CodeKeyPress
|
OnKeyPress = C_CodeKeyPress
|
||||||
Width = 150
|
Width = 150
|
||||||
|
|
@ -364,7 +355,6 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 353
|
Left = 353
|
||||||
Top = 42
|
Top = 42
|
||||||
ParentColor = True
|
|
||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
OnKeyPress = C_CodeKeyPress
|
OnKeyPress = C_CodeKeyPress
|
||||||
Width = 150
|
Width = 150
|
||||||
|
|
@ -373,7 +363,6 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 353
|
Left = 353
|
||||||
Top = 77
|
Top = 77
|
||||||
ParentColor = True
|
|
||||||
TabOrder = 10
|
TabOrder = 10
|
||||||
OnKeyPress = C_CodeKeyPress
|
OnKeyPress = C_CodeKeyPress
|
||||||
Width = 150
|
Width = 150
|
||||||
|
|
@ -382,7 +371,6 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 80
|
Left = 80
|
||||||
Top = 77
|
Top = 77
|
||||||
ParentColor = True
|
|
||||||
TabOrder = 11
|
TabOrder = 11
|
||||||
OnKeyPress = C_CodeKeyPress
|
OnKeyPress = C_CodeKeyPress
|
||||||
Width = 150
|
Width = 150
|
||||||
|
|
@ -582,8 +570,6 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Height = 201
|
Height = 201
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ExplicitLeft = 7
|
|
||||||
ExplicitTop = 5
|
|
||||||
object Tv2: TcxGridDBTableView
|
object Tv2: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
ScrollbarAnnotations.CustomAnnotations = <>
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
|
@ -652,6 +638,8 @@ inherited frmClothInfo: TfrmClothInfo
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PM_1
|
PopupMenu = PM_1
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
|
ExplicitLeft = 6
|
||||||
|
ExplicitTop = 41
|
||||||
object Tv1: TcxGridDBTableView
|
object Tv1: TcxGridDBTableView
|
||||||
OnMouseDown = Tv1MouseDown
|
OnMouseDown = Tv1MouseDown
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
Top = 231
|
Top = 231
|
||||||
Anchors = []
|
Anchors = []
|
||||||
Caption = #20135#21697#20449#24687#24405#20837
|
Caption = #20135#21697#20449#24687#24405#20837
|
||||||
ClientHeight = 529
|
ClientHeight = 653
|
||||||
ClientWidth = 1284
|
ClientWidth = 1284
|
||||||
Color = clBtnFace
|
Color = clBtnFace
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
|
|
@ -70,16 +70,18 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 30
|
Top = 30
|
||||||
Width = 775
|
Width = 775
|
||||||
Height = 499
|
Height = 623
|
||||||
Align = alLeft
|
Align = alLeft
|
||||||
BevelInner = bvNone
|
BevelInner = bvNone
|
||||||
BevelOuter = bvNone
|
BevelOuter = bvNone
|
||||||
Ctl3D = False
|
Ctl3D = False
|
||||||
ParentCtl3D = False
|
ParentCtl3D = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
|
ExplicitLeft = -5
|
||||||
|
ExplicitTop = 29
|
||||||
object Label1: TLabel
|
object Label1: TLabel
|
||||||
Left = 33
|
Left = 37
|
||||||
Top = 19
|
Top = 18
|
||||||
Width = 64
|
Width = 64
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #20135#21697#32534#21495
|
Caption = #20135#21697#32534#21495
|
||||||
|
|
@ -87,8 +89,8 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label5: TLabel
|
object Label5: TLabel
|
||||||
Left = 33
|
Left = 421
|
||||||
Top = 57
|
Top = 18
|
||||||
Width = 64
|
Width = 64
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #20013#25991#21697#21517
|
Caption = #20013#25991#21697#21517
|
||||||
|
|
@ -96,8 +98,8 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label15: TLabel
|
object Label15: TLabel
|
||||||
Left = 33
|
Left = 37
|
||||||
Top = 96
|
Top = 94
|
||||||
Width = 64
|
Width = 64
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #26377#25928#38376#24133
|
Caption = #26377#25928#38376#24133
|
||||||
|
|
@ -105,8 +107,8 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label22: TLabel
|
object Label22: TLabel
|
||||||
Left = 429
|
Left = 421
|
||||||
Top = 96
|
Top = 94
|
||||||
Width = 64
|
Width = 64
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #25104#21697#20811#37325
|
Caption = #25104#21697#20811#37325
|
||||||
|
|
@ -114,8 +116,8 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label4: TLabel
|
object Label4: TLabel
|
||||||
Left = 33
|
Left = 37
|
||||||
Top = 134
|
Top = 56
|
||||||
Width = 64
|
Width = 64
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #33457#22411#32534#21495
|
Caption = #33457#22411#32534#21495
|
||||||
|
|
@ -137,8 +139,8 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
Visible = False
|
Visible = False
|
||||||
end
|
end
|
||||||
object Label7: TLabel
|
object Label7: TLabel
|
||||||
Left = 429
|
Left = 37
|
||||||
Top = 134
|
Top = 132
|
||||||
Width = 64
|
Width = 64
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #20013#25991#25104#20998
|
Caption = #20013#25991#25104#20998
|
||||||
|
|
@ -146,8 +148,8 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label6: TLabel
|
object Label6: TLabel
|
||||||
Left = 33
|
Left = 37
|
||||||
Top = 176
|
Top = 169
|
||||||
Width = 32
|
Width = 32
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #35268#26684
|
Caption = #35268#26684
|
||||||
|
|
@ -155,8 +157,8 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label9: TLabel
|
object Label9: TLabel
|
||||||
Left = 33
|
Left = 37
|
||||||
Top = 432
|
Top = 400
|
||||||
Width = 32
|
Width = 32
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #22791#27880
|
Caption = #22791#27880
|
||||||
|
|
@ -164,8 +166,8 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label11: TLabel
|
object Label11: TLabel
|
||||||
Left = 33
|
Left = 37
|
||||||
Top = 216
|
Top = 238
|
||||||
Width = 32
|
Width = 32
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #24067#31181
|
Caption = #24067#31181
|
||||||
|
|
@ -173,8 +175,8 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label10: TLabel
|
object Label10: TLabel
|
||||||
Left = 429
|
Left = 421
|
||||||
Top = 176
|
Top = 132
|
||||||
Width = 64
|
Width = 64
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #33521#25991#25104#20998
|
Caption = #33521#25991#25104#20998
|
||||||
|
|
@ -182,53 +184,26 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label12: TLabel
|
object Label12: TLabel
|
||||||
Left = 33
|
Left = 37
|
||||||
Top = 292
|
Top = 276
|
||||||
Width = 64
|
Width = 64
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #32433#32447#24418#24577
|
Caption = #32433#32447#24418#24577
|
||||||
Color = clWhite
|
Color = clWhite
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label13: TLabel
|
|
||||||
Left = 33
|
|
||||||
Top = 253
|
|
||||||
Width = 80
|
|
||||||
Height = 21
|
|
||||||
Caption = #21518#25972#29702#33521#25991
|
|
||||||
Color = clWhite
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object Label14: TLabel
|
|
||||||
Left = 429
|
|
||||||
Top = 253
|
|
||||||
Width = 80
|
|
||||||
Height = 21
|
|
||||||
Caption = #21518#25972#29702#20013#25991
|
|
||||||
Color = clWhite
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object Label16: TLabel
|
object Label16: TLabel
|
||||||
Left = 429
|
Left = 421
|
||||||
Top = 216
|
Top = 238
|
||||||
Width = 48
|
Width = 48
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #21152#24037#21035
|
Caption = #21152#24037#21035
|
||||||
Color = clWhite
|
Color = clWhite
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label17: TLabel
|
|
||||||
Left = 429
|
|
||||||
Top = 292
|
|
||||||
Width = 32
|
|
||||||
Height = 21
|
|
||||||
Caption = #32568#21495
|
|
||||||
Color = clWhite
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object Label18: TLabel
|
object Label18: TLabel
|
||||||
Left = 33
|
Left = 37
|
||||||
Top = 332
|
Top = 314
|
||||||
Width = 80
|
Width = 80
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #20379#24212#21830#20195#21495
|
Caption = #20379#24212#21830#20195#21495
|
||||||
|
|
@ -236,26 +211,17 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label19: TLabel
|
object Label19: TLabel
|
||||||
Left = 429
|
Left = 421
|
||||||
Top = 332
|
Top = 314
|
||||||
Width = 48
|
Width = 48
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #20379#24212#21830
|
Caption = #20379#24212#21830
|
||||||
Color = clWhite
|
Color = clWhite
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label20: TLabel
|
|
||||||
Left = 429
|
|
||||||
Top = 18
|
|
||||||
Width = 32
|
|
||||||
Height = 21
|
|
||||||
Caption = #39118#26684
|
|
||||||
Color = clWhite
|
|
||||||
ParentColor = False
|
|
||||||
end
|
|
||||||
object Label21: TLabel
|
object Label21: TLabel
|
||||||
Left = 429
|
Left = 421
|
||||||
Top = 57
|
Top = 56
|
||||||
Width = 64
|
Width = 64
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #33521#25991#21697#21517
|
Caption = #33521#25991#21697#21517
|
||||||
|
|
@ -263,18 +229,63 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
object Label23: TLabel
|
object Label23: TLabel
|
||||||
Left = 33
|
Left = 421
|
||||||
Top = 373
|
Top = 276
|
||||||
Width = 64
|
Width = 64
|
||||||
Height = 21
|
Height = 21
|
||||||
Caption = #26579#33394#26041#24335
|
Caption = #26579#33394#26041#24335
|
||||||
Color = clWhite
|
Color = clWhite
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
end
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 37
|
||||||
|
Top = 351
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #26631#20934#25253#20215
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 37
|
||||||
|
Top = 205
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #37197#36135#31995#25968
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label13: TLabel
|
||||||
|
Left = 421
|
||||||
|
Top = 205
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #37197#39069#38480#21046
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label14: TLabel
|
||||||
|
Left = 727
|
||||||
|
Top = 205
|
||||||
|
Width = 14
|
||||||
|
Height = 21
|
||||||
|
Caption = '%'
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label20: TLabel
|
||||||
|
Left = 421
|
||||||
|
Top = 169
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #24211#20301
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
object C_Code: TcxTextEdit
|
object C_Code: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 119
|
Left = 119
|
||||||
Top = 13
|
Top = 14
|
||||||
Enabled = False
|
Enabled = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
OnKeyPress = CYColorKeyPress
|
OnKeyPress = CYColorKeyPress
|
||||||
|
|
@ -282,8 +293,8 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
end
|
end
|
||||||
object C_Name: TcxTextEdit
|
object C_Name: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 119
|
Left = 507
|
||||||
Top = 51
|
Top = 14
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
OnKeyPress = CYColorKeyPress
|
OnKeyPress = CYColorKeyPress
|
||||||
Width = 234
|
Width = 234
|
||||||
|
|
@ -299,7 +310,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
end
|
end
|
||||||
object C_GramWeight: TcxButtonEdit
|
object C_GramWeight: TcxButtonEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 511
|
Left = 507
|
||||||
Top = 90
|
Top = 90
|
||||||
Hint = 'C_GramWeight/'#20811#37325
|
Hint = 'C_GramWeight/'#20811#37325
|
||||||
Properties.Buttons = <
|
Properties.Buttons = <
|
||||||
|
|
@ -308,7 +319,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
Kind = bkEllipsis
|
Kind = bkEllipsis
|
||||||
end>
|
end>
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
|
Properties.OnButtonClick = C_WidthPropertiesButtonClick
|
||||||
Style.ButtonStyle = btsDefault
|
Style.ButtonStyle = btsDefault
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
OnDblClick = C_GramWeightDblClick
|
OnDblClick = C_GramWeightDblClick
|
||||||
|
|
@ -316,8 +327,8 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
end
|
end
|
||||||
object C_Composition: TcxButtonEdit
|
object C_Composition: TcxButtonEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 511
|
Left = 119
|
||||||
Top = 130
|
Top = 128
|
||||||
Hint = 'C_Composition/'#25104#20998
|
Hint = 'C_Composition/'#25104#20998
|
||||||
Properties.Buttons = <
|
Properties.Buttons = <
|
||||||
item
|
item
|
||||||
|
|
@ -325,7 +336,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
Kind = bkEllipsis
|
Kind = bkEllipsis
|
||||||
end>
|
end>
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
|
Properties.OnButtonClick = C_WidthPropertiesButtonClick
|
||||||
Style.ButtonStyle = btsDefault
|
Style.ButtonStyle = btsDefault
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
OnDblClick = C_GramWeightDblClick
|
OnDblClick = C_GramWeightDblClick
|
||||||
|
|
@ -334,7 +345,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
object C_Spec: TcxButtonEdit
|
object C_Spec: TcxButtonEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 119
|
Left = 119
|
||||||
Top = 170
|
Top = 165
|
||||||
Hint = 'C_Spec/'#35268#26684
|
Hint = 'C_Spec/'#35268#26684
|
||||||
Properties.Buttons = <
|
Properties.Buttons = <
|
||||||
item
|
item
|
||||||
|
|
@ -342,7 +353,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
Kind = bkEllipsis
|
Kind = bkEllipsis
|
||||||
end>
|
end>
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
|
Properties.OnButtonClick = C_WidthPropertiesButtonClick
|
||||||
Style.ButtonStyle = btsDefault
|
Style.ButtonStyle = btsDefault
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
OnDblClick = C_GramWeightDblClick
|
OnDblClick = C_GramWeightDblClick
|
||||||
|
|
@ -377,7 +388,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
Kind = bkEllipsis
|
Kind = bkEllipsis
|
||||||
end>
|
end>
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
|
Properties.OnButtonClick = C_WidthPropertiesButtonClick
|
||||||
Style.ButtonStyle = btsDefault
|
Style.ButtonStyle = btsDefault
|
||||||
TabOrder = 7
|
TabOrder = 7
|
||||||
OnDblClick = C_GramWeightDblClick
|
OnDblClick = C_GramWeightDblClick
|
||||||
|
|
@ -386,7 +397,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
object C_Pattern: TcxButtonEdit
|
object C_Pattern: TcxButtonEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 119
|
Left = 119
|
||||||
Top = 130
|
Top = 52
|
||||||
Hint = 'C_Pattern/'#33457#22411
|
Hint = 'C_Pattern/'#33457#22411
|
||||||
Properties.Buttons = <
|
Properties.Buttons = <
|
||||||
item
|
item
|
||||||
|
|
@ -394,7 +405,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
Kind = bkEllipsis
|
Kind = bkEllipsis
|
||||||
end>
|
end>
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
|
Properties.OnButtonClick = C_WidthPropertiesButtonClick
|
||||||
Style.ButtonStyle = btsDefault
|
Style.ButtonStyle = btsDefault
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
OnDblClick = C_GramWeightDblClick
|
OnDblClick = C_GramWeightDblClick
|
||||||
|
|
@ -403,7 +414,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
object CINote: TcxMemo
|
object CINote: TcxMemo
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 119
|
Left = 119
|
||||||
Top = 414
|
Top = 381
|
||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
Height = 57
|
Height = 57
|
||||||
Width = 626
|
Width = 626
|
||||||
|
|
@ -411,15 +422,15 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
object GC_Name: TcxTextEdit
|
object GC_Name: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 119
|
Left = 119
|
||||||
Top = 210
|
Top = 234
|
||||||
TabOrder = 10
|
TabOrder = 10
|
||||||
OnKeyPress = CYColorKeyPress
|
OnKeyPress = CYColorKeyPress
|
||||||
Width = 234
|
Width = 234
|
||||||
end
|
end
|
||||||
object C_EComposition: TcxButtonEdit
|
object C_EComposition: TcxButtonEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 511
|
Left = 507
|
||||||
Top = 172
|
Top = 128
|
||||||
Hint = 'C_EComposition/'#25104#20998
|
Hint = 'C_EComposition/'#25104#20998
|
||||||
Properties.Buttons = <
|
Properties.Buttons = <
|
||||||
item
|
item
|
||||||
|
|
@ -427,7 +438,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
Kind = bkEllipsis
|
Kind = bkEllipsis
|
||||||
end>
|
end>
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
|
Properties.OnButtonClick = C_WidthPropertiesButtonClick
|
||||||
Style.ButtonStyle = btsDefault
|
Style.ButtonStyle = btsDefault
|
||||||
TabOrder = 11
|
TabOrder = 11
|
||||||
OnDblClick = C_GramWeightDblClick
|
OnDblClick = C_GramWeightDblClick
|
||||||
|
|
@ -436,108 +447,88 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
object C_YarnSpec: TcxTextEdit
|
object C_YarnSpec: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 119
|
Left = 119
|
||||||
Top = 286
|
Top = 272
|
||||||
TabOrder = 12
|
TabOrder = 12
|
||||||
OnKeyPress = CYColorKeyPress
|
OnKeyPress = CYColorKeyPress
|
||||||
Width = 234
|
Width = 234
|
||||||
end
|
end
|
||||||
object CraftEName: TcxButtonEdit
|
|
||||||
Tag = 2
|
|
||||||
Left = 119
|
|
||||||
Top = 247
|
|
||||||
Hint = 'CraftEName/'#35268#26684
|
|
||||||
Properties.Buttons = <
|
|
||||||
item
|
|
||||||
Default = True
|
|
||||||
Kind = bkEllipsis
|
|
||||||
end>
|
|
||||||
Properties.ReadOnly = False
|
|
||||||
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
|
|
||||||
Style.ButtonStyle = btsDefault
|
|
||||||
TabOrder = 13
|
|
||||||
OnDblClick = C_GramWeightDblClick
|
|
||||||
Width = 234
|
|
||||||
end
|
|
||||||
object CraftName: TcxButtonEdit
|
|
||||||
Tag = 2
|
|
||||||
Left = 511
|
|
||||||
Top = 247
|
|
||||||
Hint = 'CraftName/'#25104#20998
|
|
||||||
Properties.Buttons = <
|
|
||||||
item
|
|
||||||
Default = True
|
|
||||||
Kind = bkEllipsis
|
|
||||||
end>
|
|
||||||
Properties.ReadOnly = False
|
|
||||||
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
|
|
||||||
Style.ButtonStyle = btsDefault
|
|
||||||
TabOrder = 14
|
|
||||||
OnDblClick = C_GramWeightDblClick
|
|
||||||
Width = 234
|
|
||||||
end
|
|
||||||
object CraftCode: TcxTextEdit
|
object CraftCode: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 511
|
Left = 507
|
||||||
Top = 207
|
Top = 234
|
||||||
TabOrder = 15
|
TabOrder = 13
|
||||||
OnKeyPress = CYColorKeyPress
|
|
||||||
Width = 234
|
|
||||||
end
|
|
||||||
object FtyPCId: TcxTextEdit
|
|
||||||
Tag = 2
|
|
||||||
Left = 511
|
|
||||||
Top = 286
|
|
||||||
TabOrder = 16
|
|
||||||
OnKeyPress = CYColorKeyPress
|
OnKeyPress = CYColorKeyPress
|
||||||
Width = 234
|
Width = 234
|
||||||
end
|
end
|
||||||
object FtyNo: TcxTextEdit
|
object FtyNo: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 119
|
Left = 119
|
||||||
Top = 326
|
Top = 310
|
||||||
TabOrder = 17
|
TabOrder = 14
|
||||||
OnKeyPress = CYColorKeyPress
|
OnKeyPress = CYColorKeyPress
|
||||||
Width = 234
|
Width = 234
|
||||||
end
|
end
|
||||||
object FtyName: TcxTextEdit
|
object FtyName: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 511
|
Left = 507
|
||||||
Top = 326
|
Top = 310
|
||||||
TabOrder = 18
|
TabOrder = 15
|
||||||
OnKeyPress = CYColorKeyPress
|
OnKeyPress = CYColorKeyPress
|
||||||
Width = 234
|
Width = 234
|
||||||
end
|
end
|
||||||
object C_Texture: TcxButtonEdit
|
object C_EName: TcxTextEdit
|
||||||
Tag = 2
|
Tag = 2
|
||||||
Left = 511
|
Left = 507
|
||||||
Top = 12
|
Top = 52
|
||||||
Hint = 'C_Texture/'#32441#29702
|
TabOrder = 16
|
||||||
|
OnKeyPress = CYColorKeyPress
|
||||||
|
Width = 234
|
||||||
|
end
|
||||||
|
object DyeingMethod: TcxTextEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 507
|
||||||
|
Top = 272
|
||||||
|
TabOrder = 17
|
||||||
|
OnKeyPress = CYColorKeyPress
|
||||||
|
Width = 234
|
||||||
|
end
|
||||||
|
object CostPrice: TcxCurrencyEdit
|
||||||
|
Left = 119
|
||||||
|
Top = 347
|
||||||
|
Properties.AssignedValues.DisplayFormat = True
|
||||||
|
TabOrder = 18
|
||||||
|
Width = 234
|
||||||
|
end
|
||||||
|
object distributionCoefficient: TcxCurrencyEdit
|
||||||
|
Left = 119
|
||||||
|
Top = 201
|
||||||
|
Properties.AssignedValues.DisplayFormat = True
|
||||||
|
TabOrder = 19
|
||||||
|
Width = 234
|
||||||
|
end
|
||||||
|
object quota: TcxCurrencyEdit
|
||||||
|
Left = 507
|
||||||
|
Top = 201
|
||||||
|
EditValue = 10.000000000000000000
|
||||||
|
Properties.AssignedValues.DisplayFormat = True
|
||||||
|
TabOrder = 20
|
||||||
|
Width = 210
|
||||||
|
end
|
||||||
|
object StkPosition: TcxButtonEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 507
|
||||||
|
Top = 165
|
||||||
|
Hint = 'StkPosition/'#24211#20301
|
||||||
Properties.Buttons = <
|
Properties.Buttons = <
|
||||||
item
|
item
|
||||||
Default = True
|
Default = True
|
||||||
Kind = bkEllipsis
|
Kind = bkEllipsis
|
||||||
end>
|
end>
|
||||||
Properties.ReadOnly = False
|
Properties.ReadOnly = False
|
||||||
Properties.OnButtonClick = ParentCoNamePropertiesButtonClick
|
Properties.OnButtonClick = C_WidthPropertiesButtonClick
|
||||||
Style.ButtonStyle = btsDefault
|
Style.ButtonStyle = btsDefault
|
||||||
TabOrder = 19
|
|
||||||
OnDblClick = C_GramWeightDblClick
|
|
||||||
Width = 234
|
|
||||||
end
|
|
||||||
object C_EName: TcxTextEdit
|
|
||||||
Tag = 2
|
|
||||||
Left = 511
|
|
||||||
Top = 51
|
|
||||||
TabOrder = 20
|
|
||||||
OnKeyPress = CYColorKeyPress
|
|
||||||
Width = 234
|
|
||||||
end
|
|
||||||
object DyeingMethod: TcxTextEdit
|
|
||||||
Tag = 2
|
|
||||||
Left = 119
|
|
||||||
Top = 367
|
|
||||||
TabOrder = 21
|
TabOrder = 21
|
||||||
OnKeyPress = CYColorKeyPress
|
OnDblClick = C_GramWeightDblClick
|
||||||
Width = 234
|
Width = 234
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|
@ -545,7 +536,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
Left = 775
|
Left = 775
|
||||||
Top = 30
|
Top = 30
|
||||||
Width = 509
|
Width = 509
|
||||||
Height = 499
|
Height = 623
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
object ToolBar2: TToolBar
|
object ToolBar2: TToolBar
|
||||||
|
|
@ -585,10 +576,11 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
Left = 1
|
Left = 1
|
||||||
Top = 31
|
Top = 31
|
||||||
Width = 507
|
Width = 507
|
||||||
Height = 467
|
Height = 591
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ExplicitLeft = 3
|
ExplicitLeft = 6
|
||||||
|
ExplicitTop = 37
|
||||||
object TV1: TcxGridDBTableView
|
object TV1: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
ScrollbarAnnotations.CustomAnnotations = <>
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
|
@ -608,35 +600,51 @@ object frmClothInfoInput: TfrmClothInfoInput
|
||||||
OptionsBehavior.GoToNextCellOnEnter = True
|
OptionsBehavior.GoToNextCellOnEnter = True
|
||||||
OptionsBehavior.FocusCellOnCycle = True
|
OptionsBehavior.FocusCellOnCycle = True
|
||||||
OptionsCustomize.ColumnFiltering = False
|
OptionsCustomize.ColumnFiltering = False
|
||||||
OptionsView.Footer = True
|
|
||||||
OptionsView.GroupByBox = False
|
OptionsView.GroupByBox = False
|
||||||
object TV1Column1: TcxGridDBColumn
|
object TV1Column1: TcxGridDBColumn
|
||||||
Caption = #39068#33394
|
Caption = #39068#33394
|
||||||
DataBinding.FieldName = 'C_Color'
|
DataBinding.FieldName = 'C_Color'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 150
|
Width = 55
|
||||||
end
|
end
|
||||||
object TV1Column2: TcxGridDBColumn
|
object TV1Column2: TcxGridDBColumn
|
||||||
Caption = #33394#21495
|
Caption = #33394#21495
|
||||||
DataBinding.FieldName = 'C_ColorNo'
|
DataBinding.FieldName = 'C_ColorNo'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 150
|
Width = 26
|
||||||
end
|
end
|
||||||
object TV1Column3: TcxGridDBColumn
|
object TV1Column3: TcxGridDBColumn
|
||||||
Caption = #33457#22411
|
Caption = #33457#22411
|
||||||
DataBinding.FieldName = 'C_Pattern'
|
DataBinding.FieldName = 'C_Pattern'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 150
|
Width = 39
|
||||||
end
|
end
|
||||||
object TV1Column4: TcxGridDBColumn
|
object TV1Column4: TcxGridDBColumn
|
||||||
Caption = #27454#21495
|
Caption = #27454#21495
|
||||||
DataBinding.FieldName = 'C_StyleNo'
|
DataBinding.FieldName = 'C_StyleNo'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 150
|
Width = 43
|
||||||
|
end
|
||||||
|
object TV1Column5: TcxGridDBColumn
|
||||||
|
Caption = #28014#21160#20215
|
||||||
|
DataBinding.FieldName = 'floatPrice'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.OnEditValueChanged = TV1Column5PropertiesEditValueChanged
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 68
|
||||||
|
end
|
||||||
|
object TV1Column6: TcxGridDBColumn
|
||||||
|
Caption = #21442#32771#23450#20215
|
||||||
|
DataBinding.FieldName = 'referencePrice'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 94
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object cxGridLevel2: TcxGridLevel
|
object cxGridLevel2: TcxGridLevel
|
||||||
|
|
|
||||||
|
|
@ -47,20 +47,12 @@ type
|
||||||
C_EComposition: TcxButtonEdit;
|
C_EComposition: TcxButtonEdit;
|
||||||
Label12: TLabel;
|
Label12: TLabel;
|
||||||
C_YarnSpec: TcxTextEdit;
|
C_YarnSpec: TcxTextEdit;
|
||||||
Label13: TLabel;
|
|
||||||
CraftEName: TcxButtonEdit;
|
|
||||||
Label14: TLabel;
|
|
||||||
CraftName: TcxButtonEdit;
|
|
||||||
Label16: TLabel;
|
Label16: TLabel;
|
||||||
CraftCode: TcxTextEdit;
|
CraftCode: TcxTextEdit;
|
||||||
Label17: TLabel;
|
|
||||||
FtyPCId: TcxTextEdit;
|
|
||||||
Label18: TLabel;
|
Label18: TLabel;
|
||||||
Label19: TLabel;
|
Label19: TLabel;
|
||||||
FtyNo: TcxTextEdit;
|
FtyNo: TcxTextEdit;
|
||||||
FtyName: TcxTextEdit;
|
FtyName: TcxTextEdit;
|
||||||
Label20: TLabel;
|
|
||||||
C_Texture: TcxButtonEdit;
|
|
||||||
Label21: TLabel;
|
Label21: TLabel;
|
||||||
Label23: TLabel;
|
Label23: TLabel;
|
||||||
DyeingMethod: TcxTextEdit;
|
DyeingMethod: TcxTextEdit;
|
||||||
|
|
@ -79,6 +71,17 @@ type
|
||||||
CDS_1: TClientDataSet;
|
CDS_1: TClientDataSet;
|
||||||
GPM_1: TcxGridPopupMenu;
|
GPM_1: TcxGridPopupMenu;
|
||||||
ToolButton2: TToolButton;
|
ToolButton2: TToolButton;
|
||||||
|
CostPrice: TcxCurrencyEdit;
|
||||||
|
Label2: TLabel;
|
||||||
|
distributionCoefficient: TcxCurrencyEdit;
|
||||||
|
Label8: TLabel;
|
||||||
|
quota: TcxCurrencyEdit;
|
||||||
|
Label13: TLabel;
|
||||||
|
Label14: TLabel;
|
||||||
|
Label20: TLabel;
|
||||||
|
StkPosition: TcxButtonEdit;
|
||||||
|
TV1Column5: TcxGridDBColumn;
|
||||||
|
TV1Column6: TcxGridDBColumn;
|
||||||
procedure FormShow(Sender: TObject);
|
procedure FormShow(Sender: TObject);
|
||||||
procedure TBCloseClick(Sender: TObject);
|
procedure TBCloseClick(Sender: TObject);
|
||||||
procedure ToolButton1Click(Sender: TObject);
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
|
|
@ -86,15 +89,17 @@ type
|
||||||
procedure CYJGGYBtnDnClick(Sender: TObject);
|
procedure CYJGGYBtnDnClick(Sender: TObject);
|
||||||
procedure ToolButton6Click(Sender: TObject);
|
procedure ToolButton6Click(Sender: TObject);
|
||||||
procedure C_GramWeightDblClick(Sender: TObject);
|
procedure C_GramWeightDblClick(Sender: TObject);
|
||||||
procedure ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
|
||||||
procedure C_FromNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
procedure C_FromNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
procedure ToolButton2Click(Sender: TObject);
|
procedure ToolButton2Click(Sender: TObject);
|
||||||
procedure ToolButton3Click(Sender: TObject);
|
procedure ToolButton3Click(Sender: TObject);
|
||||||
procedure ToolButton4Click(Sender: TObject);
|
procedure ToolButton4Click(Sender: TObject);
|
||||||
|
procedure TV1Column5PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure C_WidthPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
private
|
private
|
||||||
canshu1: string;
|
canshu1: string;
|
||||||
Fint: Integer;
|
Fint: Integer;
|
||||||
procedure InitGrid();
|
procedure InitGrid();
|
||||||
|
procedure InitGrid1();
|
||||||
function SaveData(): Boolean;
|
function SaveData(): Boolean;
|
||||||
{ Private declarations }
|
{ Private declarations }
|
||||||
public
|
public
|
||||||
|
|
@ -113,6 +118,19 @@ uses
|
||||||
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel;
|
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
procedure TfrmClothInfoInput.InitGrid1();
|
||||||
|
begin
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select A.* from BS_Cloth_Info_Sub A ');
|
||||||
|
sql.Add(' where A.BCIID=''' + Trim(FBCIID) + '''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryTemp, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryTemp, CDS_1);
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrmClothInfoInput.InitGrid();
|
procedure TfrmClothInfoInput.InitGrid();
|
||||||
begin
|
begin
|
||||||
|
|
@ -150,16 +168,7 @@ begin
|
||||||
end;
|
end;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
with ADOQueryTemp do
|
|
||||||
begin
|
|
||||||
Close;
|
|
||||||
sql.Clear;
|
|
||||||
sql.Add('select A.* from BS_Cloth_Info_Sub A ');
|
|
||||||
sql.Add(' where A.BCIID=''' + Trim(FBCIID) + '''');
|
|
||||||
Open;
|
|
||||||
end;
|
|
||||||
SCreateCDS(ADOQueryTemp, CDS_1);
|
|
||||||
SInitCDSData(ADOQueryTemp, CDS_1);
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmClothInfoInput.C_FromNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
procedure TfrmClothInfoInput.C_FromNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
|
@ -186,7 +195,7 @@ begin
|
||||||
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
|
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmClothInfoInput.ParentCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
procedure TfrmClothInfoInput.C_WidthPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
var
|
var
|
||||||
fsj: string;
|
fsj: string;
|
||||||
FWZ: Integer;
|
FWZ: Integer;
|
||||||
|
|
@ -197,23 +206,11 @@ begin
|
||||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||||
with frmZDYHelp do
|
with frmZDYHelp do
|
||||||
begin
|
begin
|
||||||
MainType := 'ClothInfo';
|
|
||||||
flag := Copy(fsj, 1, FWZ - 1);
|
flag := Copy(fsj, 1, FWZ - 1);
|
||||||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||||||
if ShowModal = 1 then
|
if ShowModal = 1 then
|
||||||
begin
|
begin
|
||||||
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||||
|
|
||||||
with ADOQueryTemp do
|
|
||||||
begin
|
|
||||||
Close;
|
|
||||||
sql.Clear;
|
|
||||||
sql.Add(' exec P_BS_Cloth_Info_Get_No ');
|
|
||||||
sql.Add(' @CTID=' + Quotedstr(FCTID));
|
|
||||||
sql.Add(' ,@Str=' + Quotedstr(C_Texture.Text));
|
|
||||||
Open;
|
|
||||||
end;
|
|
||||||
GC_Name.Text := trim(ADOQueryTemp.FieldByName('GC_Name').asstring);
|
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
finally
|
finally
|
||||||
|
|
@ -225,6 +222,7 @@ procedure TfrmClothInfoInput.FormShow(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
readCxGrid(self.Caption + 'TV1', Tv1, '样品管理');
|
readCxGrid(self.Caption + 'TV1', Tv1, '样品管理');
|
||||||
InitGrid();
|
InitGrid();
|
||||||
|
InitGrid1();
|
||||||
if TypeInt = 1 then
|
if TypeInt = 1 then
|
||||||
begin
|
begin
|
||||||
FBCIID := '';
|
FBCIID := '';
|
||||||
|
|
@ -387,34 +385,47 @@ begin
|
||||||
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'BS_Cloth_Info_Sub', 0);
|
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'BS_Cloth_Info_Sub', 0);
|
||||||
Post;
|
Post;
|
||||||
end;
|
end;
|
||||||
CDS_1.Edit;
|
|
||||||
CDS_1.FieldByName('BCIID').Value := Trim(MaxBCIID);
|
|
||||||
CDS_1.FieldByName('BCISID').Value := Trim(maxId2);
|
|
||||||
|
|
||||||
Next;
|
Next;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select count(BCISID) as AA from BS_Cloth_Info_Sub where BCIID=''' + Trim(MaxBCIID) + '''');
|
||||||
|
sql.Add(' group by C_Color,C_ColorNo having count(BCISID)>1');
|
||||||
|
Open;
|
||||||
|
if FieldByName('AA').AsInteger > 1 then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
Result := False;
|
||||||
|
Application.MessageBox('颜色色号重复！', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
////////////////////////// 保存子表 //////////////////////////
|
////////////////////////// 保存子表 //////////////////////////
|
||||||
///
|
///
|
||||||
///
|
///
|
||||||
ADOQueryCmd.Connection.CommitTrans;
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
|
||||||
with ADOQueryCmd do
|
// with ADOQueryCmd do
|
||||||
begin
|
// begin
|
||||||
Close;
|
// Close;
|
||||||
SQL.Clear;
|
// SQL.Clear;
|
||||||
sql.Add(' exec P_BS_CloInfo_UpAllTab @BCIID=' + QuotedStr(trim(MaxBCIID)));
|
// sql.Add(' exec P_BS_CloInfo_UpAllTab @BCIID=' + QuotedStr(trim(MaxBCIID)));
|
||||||
Sql.Add(',@UpId=' + quotedstr(Trim(DCode)));
|
// Sql.Add(',@UpId=' + quotedstr(Trim(DCode)));
|
||||||
Sql.Add(',@Uper=' + quotedstr(Trim(DName)));
|
// Sql.Add(',@Uper=' + quotedstr(Trim(DName)));
|
||||||
ExecSQL;
|
// ExecSQL;
|
||||||
end;
|
// end;
|
||||||
|
|
||||||
FBCIID := MaxBCIID;
|
FBCIID := MaxBCIID;
|
||||||
Result := True;
|
Result := True;
|
||||||
except
|
except
|
||||||
Result := False;
|
Result := False;
|
||||||
ADOQueryCmd.Connection.RollbackTrans;
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
InitGrid1();
|
||||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
@ -428,21 +439,15 @@ procedure TfrmClothInfoInput.ToolButton1Click(Sender: TObject);
|
||||||
var
|
var
|
||||||
MC_Code: string;
|
MC_Code: string;
|
||||||
begin
|
begin
|
||||||
if C_Texture.Text = '' then
|
ToolBar1.SetFocus;
|
||||||
begin
|
|
||||||
Application.MessageBox('·ç¸ñ²»ÄÜΪ¿Õ£¡', 'Ìáʾ', 0);
|
|
||||||
Exit;
|
|
||||||
end;
|
|
||||||
if trim(C_Code.Text) = '' then
|
if trim(C_Code.Text) = '' then
|
||||||
begin
|
begin
|
||||||
|
|
||||||
if GetLSNo(ADOQueryCmd, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then
|
if GetLSNo(ADOQueryCmd, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then
|
||||||
begin
|
begin
|
||||||
Application.MessageBox('取最成品编号失败!', '提示', 0);
|
Application.MessageBox('取最成品编号失败!', '提示', 0);
|
||||||
Exit;
|
Exit;
|
||||||
end;
|
end;
|
||||||
C_Code.Text := MC_Code;
|
C_Code.Text := MC_Code;
|
||||||
|
|
||||||
end;
|
end;
|
||||||
if SaveData() then
|
if SaveData() then
|
||||||
begin
|
begin
|
||||||
|
|
@ -530,5 +535,34 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothInfoInput.TV1Column5PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
mvalue, FFieldName: string;
|
||||||
|
MCostPrice, MfloatPrice: Double; //个数，单价，金额
|
||||||
|
begin
|
||||||
|
mvalue := TcxTextEdit(Sender).EditingText;
|
||||||
|
if Trim(mvalue) = '' then
|
||||||
|
begin
|
||||||
|
mvalue := '0';
|
||||||
|
end;
|
||||||
|
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||||||
|
MCostPrice := StrToFloatDef(CostPrice.Text, 0);
|
||||||
|
with CDS_1 do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName(FFieldName).Value := Trim(mvalue);
|
||||||
|
Post;
|
||||||
|
MfloatPrice := Fieldbyname('floatPrice').AsFloat;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with CDS_1 do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('referencePrice').Value := MfloatPrice + MCostPrice;
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
tv1.Controller.EditingController.ShowEdit();
|
||||||
|
end;
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|
||||||
|
|
|
||||||
587
T02贸易汇总仓库/U_TradeClothTotalInInput1.dfm
Normal file
587
T02贸易汇总仓库/U_TradeClothTotalInInput1.dfm
Normal file
|
|
@ -0,0 +1,587 @@
|
||||||
|
inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
|
||||||
|
Left = 67
|
||||||
|
Top = 126
|
||||||
|
Caption = #26126#32454#20837#24211#30331#35760
|
||||||
|
ClientHeight = 525
|
||||||
|
ClientWidth = 879
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Height = -16
|
||||||
|
Position = poScreenCenter
|
||||||
|
OnClose = FormClose
|
||||||
|
ExplicitWidth = 895
|
||||||
|
ExplicitHeight = 564
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 21
|
||||||
|
object ToolBar1: TToolBar [0]
|
||||||
|
Tag = 1
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 879
|
||||||
|
Height = 30
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 59
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clSkyBlue
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_TradeTotalClothStk.cxImageList_bar
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
ExplicitWidth = 1540
|
||||||
|
object TBSave: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384
|
||||||
|
ImageIndex = 16
|
||||||
|
OnClick = TBSaveClick
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 63
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 30
|
||||||
|
Width = 505
|
||||||
|
Height = 495
|
||||||
|
Align = alLeft
|
||||||
|
TabOrder = 1
|
||||||
|
ExplicitLeft = 8
|
||||||
|
object Label12: TLabel
|
||||||
|
Left = 271
|
||||||
|
Top = 20
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #20837#24211#31867#22411
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 25
|
||||||
|
Top = 20
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #20837#24211#26102#38388
|
||||||
|
end
|
||||||
|
object Label14: TLabel
|
||||||
|
Left = 25
|
||||||
|
Top = 55
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #26469#33258#21333#20301
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 25
|
||||||
|
Top = 95
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #20135#21697#32534#21495
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 271
|
||||||
|
Top = 95
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #20013#25991#21697#21517
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label15: TLabel
|
||||||
|
Left = 271
|
||||||
|
Top = 130
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #26377#25928#38376#24133
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label22: TLabel
|
||||||
|
Left = 25
|
||||||
|
Top = 130
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #25104#21697#20811#37325
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 25
|
||||||
|
Top = 235
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #33457#22411#32534#21495
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 25
|
||||||
|
Top = 165
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #20013#25991#25104#20998
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 25
|
||||||
|
Top = 270
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #35268#26684
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 25
|
||||||
|
Top = 200
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #39068#33394
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 271
|
||||||
|
Top = 165
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #33521#25991#25104#20998
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label16: TLabel
|
||||||
|
Left = 25
|
||||||
|
Top = 307
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #26579#21378#32568#21495
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label21: TLabel
|
||||||
|
Left = 271
|
||||||
|
Top = 235
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #33521#25991#21697#21517
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label27: TLabel
|
||||||
|
Left = 271
|
||||||
|
Top = 270
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #25968#37327#21333#20301
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 271
|
||||||
|
Top = 55
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #23384#25918#21333#20301
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 271
|
||||||
|
Top = 200
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #33394#21495
|
||||||
|
Color = clWhite
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Label17: TLabel
|
||||||
|
Left = 271
|
||||||
|
Top = 305
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #31867#22411
|
||||||
|
end
|
||||||
|
object Label18: TLabel
|
||||||
|
Left = 27
|
||||||
|
Top = 342
|
||||||
|
Width = 64
|
||||||
|
Height = 21
|
||||||
|
Caption = #20986#24211#21333#21495
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object IOType: TcxComboBox
|
||||||
|
Left = 339
|
||||||
|
Top = 16
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
#37319#36141#20837#24211
|
||||||
|
#21152#24037#20837#24211
|
||||||
|
#29983#20135#36864#22238
|
||||||
|
#30424#30408#20837#24211
|
||||||
|
#38144#21806#36864#22238)
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object IOTime: TcxDateEdit
|
||||||
|
Left = 95
|
||||||
|
Top = 16
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.ShowTime = False
|
||||||
|
TabOrder = 1
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object FromCoName: TcxButtonEdit
|
||||||
|
Left = 95
|
||||||
|
Top = 51
|
||||||
|
ParentColor = True
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.OnButtonClick = FromCoNamePropertiesButtonClick
|
||||||
|
Style.ButtonStyle = btsDefault
|
||||||
|
TabOrder = 2
|
||||||
|
OnDblClick = FromCoNameDblClick
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object C_Name: TcxTextEdit
|
||||||
|
Left = 339
|
||||||
|
Top = 91
|
||||||
|
TabOrder = 3
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object C_Color: TcxTextEdit
|
||||||
|
Left = 95
|
||||||
|
Top = 196
|
||||||
|
TabOrder = 4
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object FtyPCId: TcxTextEdit
|
||||||
|
Left = 95
|
||||||
|
Top = 303
|
||||||
|
TabOrder = 5
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object C_EName: TcxTextEdit
|
||||||
|
Left = 339
|
||||||
|
Top = 231
|
||||||
|
TabOrder = 6
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object C_Code: TcxButtonEdit
|
||||||
|
Left = 95
|
||||||
|
Top = 91
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = False
|
||||||
|
Properties.OnButtonClick = C_CodePropertiesButtonClick
|
||||||
|
Style.ButtonStyle = btsDefault
|
||||||
|
TabOrder = 7
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object QtyUnit: TcxComboBox
|
||||||
|
Left = 339
|
||||||
|
Top = 266
|
||||||
|
Properties.DropDownListStyle = lsFixedList
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
'M'
|
||||||
|
'Y'
|
||||||
|
'Kg')
|
||||||
|
TabOrder = 8
|
||||||
|
Text = 'M'
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object StkCoName: TcxButtonEdit
|
||||||
|
Left = 339
|
||||||
|
Top = 51
|
||||||
|
ParentColor = True
|
||||||
|
Properties.Buttons = <
|
||||||
|
item
|
||||||
|
Default = True
|
||||||
|
Kind = bkEllipsis
|
||||||
|
end>
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
Properties.OnButtonClick = StkCoNamePropertiesButtonClick
|
||||||
|
Style.ButtonStyle = btsDefault
|
||||||
|
TabOrder = 9
|
||||||
|
OnDblClick = FromCoNameDblClick
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object C_EComposition: TcxTextEdit
|
||||||
|
Left = 339
|
||||||
|
Top = 161
|
||||||
|
TabOrder = 10
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object C_GramWeight: TcxTextEdit
|
||||||
|
Left = 95
|
||||||
|
Top = 126
|
||||||
|
TabOrder = 11
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object C_Composition: TcxTextEdit
|
||||||
|
Left = 95
|
||||||
|
Top = 161
|
||||||
|
TabOrder = 12
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object C_Width: TcxTextEdit
|
||||||
|
Left = 339
|
||||||
|
Top = 126
|
||||||
|
TabOrder = 13
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object C_Spec: TcxTextEdit
|
||||||
|
Left = 95
|
||||||
|
Top = 266
|
||||||
|
TabOrder = 14
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object C_Pattern: TcxTextEdit
|
||||||
|
Left = 95
|
||||||
|
Top = 231
|
||||||
|
TabOrder = 15
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object C_Colorno: TcxTextEdit
|
||||||
|
Left = 339
|
||||||
|
Top = 196
|
||||||
|
TabOrder = 16
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object C_Degree: TcxComboBox
|
||||||
|
Left = 339
|
||||||
|
Top = 301
|
||||||
|
Properties.DropDownListStyle = lsFixedList
|
||||||
|
Properties.Items.Strings = (
|
||||||
|
#22383#24067
|
||||||
|
#21322#25104#21697
|
||||||
|
#25104#21697)
|
||||||
|
TabOrder = 17
|
||||||
|
Text = #25104#21697
|
||||||
|
Width = 150
|
||||||
|
end
|
||||||
|
object BCIONO: TcxTextEdit
|
||||||
|
Left = 95
|
||||||
|
Top = 338
|
||||||
|
Properties.ReadOnly = True
|
||||||
|
TabOrder = 18
|
||||||
|
Visible = False
|
||||||
|
Width = 189
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object pnl1: TPanel [2]
|
||||||
|
Left = 505
|
||||||
|
Top = 30
|
||||||
|
Width = 374
|
||||||
|
Height = 495
|
||||||
|
Align = alClient
|
||||||
|
Caption = 'pnl1'
|
||||||
|
TabOrder = 2
|
||||||
|
ExplicitLeft = 1040
|
||||||
|
ExplicitTop = 512
|
||||||
|
ExplicitWidth = 313
|
||||||
|
ExplicitHeight = 137
|
||||||
|
object cxGrid1: TcxGrid
|
||||||
|
Tag = 2
|
||||||
|
Left = 1
|
||||||
|
Top = 72
|
||||||
|
Width = 372
|
||||||
|
Height = 422
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
ExplicitLeft = 6
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
DataController.DataSource = DataSource3
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column1
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsBehavior.GoToNextCellOnEnter = True
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object Tv1Column1: TcxGridDBColumn
|
||||||
|
Caption = #25968#37327
|
||||||
|
DataBinding.FieldName = 'Qty'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 169
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1Level1: TcxGridLevel
|
||||||
|
GridView = Tv1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object tlb1: TToolBar
|
||||||
|
Tag = 1
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 372
|
||||||
|
Height = 30
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 83
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clSkyBlue
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_TradeTotalClothStk.cxImageList_bar
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 1
|
||||||
|
ExplicitWidth = 311
|
||||||
|
ExplicitHeight = 60
|
||||||
|
object btn1: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #26032#22686
|
||||||
|
ImageIndex = 2
|
||||||
|
OnClick = TBAddClick
|
||||||
|
end
|
||||||
|
object btn3: TToolButton
|
||||||
|
Left = 63
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21024#38500
|
||||||
|
ImageIndex = 6
|
||||||
|
OnClick = TBDelClick
|
||||||
|
end
|
||||||
|
object btn4: TToolButton
|
||||||
|
Left = 126
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384#26684#24335
|
||||||
|
ImageIndex = 16
|
||||||
|
OnClick = ToolButton1Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object pnl2: TPanel
|
||||||
|
Left = 1
|
||||||
|
Top = 31
|
||||||
|
Width = 372
|
||||||
|
Height = 41
|
||||||
|
Align = alTop
|
||||||
|
TabOrder = 2
|
||||||
|
ExplicitLeft = 72
|
||||||
|
ExplicitTop = 160
|
||||||
|
ExplicitWidth = 185
|
||||||
|
object Label9: TLabel
|
||||||
|
Left = 33
|
||||||
|
Top = 10
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #21305#25968
|
||||||
|
end
|
||||||
|
object Label13: TLabel
|
||||||
|
Left = 193
|
||||||
|
Top = 10
|
||||||
|
Width = 32
|
||||||
|
Height = 21
|
||||||
|
Caption = #25968#37327
|
||||||
|
end
|
||||||
|
object inPiece: TcxCurrencyEdit
|
||||||
|
Left = 71
|
||||||
|
Top = 6
|
||||||
|
Properties.AssignedValues.DisplayFormat = True
|
||||||
|
TabOrder = 0
|
||||||
|
Width = 98
|
||||||
|
end
|
||||||
|
object inQty: TcxCurrencyEdit
|
||||||
|
Left = 231
|
||||||
|
Top = 6
|
||||||
|
Properties.AssignedValues.DisplayFormat = True
|
||||||
|
TabOrder = 1
|
||||||
|
OnKeyPress = inQtyKeyPress
|
||||||
|
Width = 98
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||||
|
Left = 241
|
||||||
|
Top = 280
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseTemp: TADOQuery
|
||||||
|
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||||
|
Left = 201
|
||||||
|
Top = 297
|
||||||
|
end
|
||||||
|
inherited ImageList_new32: TImageList
|
||||||
|
Left = 80
|
||||||
|
Top = 208
|
||||||
|
end
|
||||||
|
inherited cxImageList_bar: TcxImageList
|
||||||
|
FormatVersion = 1
|
||||||
|
end
|
||||||
|
object DataSource3: TDataSource
|
||||||
|
DataSet = CDS_Sub
|
||||||
|
Left = 749
|
||||||
|
Top = 250
|
||||||
|
end
|
||||||
|
object CDS_Sub: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 645
|
||||||
|
Top = 224
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 224
|
||||||
|
Top = 208
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 368
|
||||||
|
Top = 192
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_TradeTotalClothStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 317
|
||||||
|
Top = 303
|
||||||
|
end
|
||||||
|
object GPM_1: TcxGridPopupMenu
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 472
|
||||||
|
Top = 294
|
||||||
|
end
|
||||||
|
object CDS_LM: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 608
|
||||||
|
Top = 328
|
||||||
|
end
|
||||||
|
object OpenDialog1: TOpenDialog
|
||||||
|
Left = 522
|
||||||
|
Top = 338
|
||||||
|
end
|
||||||
|
end
|
||||||
725
T02贸易汇总仓库/U_TradeClothTotalInInput1.pas
Normal file
725
T02贸易汇总仓库/U_TradeClothTotalInInput1.pas
Normal file
|
|
@ -0,0 +1,725 @@
|
||||||
|
unit U_TradeClothTotalInInput1;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||||
|
cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin,
|
||||||
|
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||||||
|
cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu,
|
||||||
|
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, StdCtrls, ExtCtrls,
|
||||||
|
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
|
||||||
|
dxBarBuiltInMenu, U_BaseInput, System.ImageList, Vcl.ImgList, ComObj,
|
||||||
|
dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, cxMaskEdit,
|
||||||
|
cxImageList, cxCurrencyEdit;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmTradeClothTotalInInput1 = class(TfrmBaseInput)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBSave: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
DataSource3: TDataSource;
|
||||||
|
CDS_Sub: TClientDataSet;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
GPM_1: TcxGridPopupMenu;
|
||||||
|
CDS_LM: TClientDataSet;
|
||||||
|
OpenDialog1: TOpenDialog;
|
||||||
|
Panel1: TPanel;
|
||||||
|
Label12: TLabel;
|
||||||
|
Label1: TLabel;
|
||||||
|
IOType: TcxComboBox;
|
||||||
|
IOTime: TcxDateEdit;
|
||||||
|
Label14: TLabel;
|
||||||
|
FromCoName: TcxButtonEdit;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label15: TLabel;
|
||||||
|
Label22: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label11: TLabel;
|
||||||
|
Label10: TLabel;
|
||||||
|
Label16: TLabel;
|
||||||
|
Label21: TLabel;
|
||||||
|
C_Name: TcxTextEdit;
|
||||||
|
C_Color: TcxTextEdit;
|
||||||
|
FtyPCId: TcxTextEdit;
|
||||||
|
C_EName: TcxTextEdit;
|
||||||
|
C_Code: TcxButtonEdit;
|
||||||
|
Label27: TLabel;
|
||||||
|
QtyUnit: TcxComboBox;
|
||||||
|
Label3: TLabel;
|
||||||
|
StkCoName: TcxButtonEdit;
|
||||||
|
C_EComposition: TcxTextEdit;
|
||||||
|
C_GramWeight: TcxTextEdit;
|
||||||
|
C_Composition: TcxTextEdit;
|
||||||
|
C_Width: TcxTextEdit;
|
||||||
|
C_Spec: TcxTextEdit;
|
||||||
|
C_Pattern: TcxTextEdit;
|
||||||
|
Label8: TLabel;
|
||||||
|
C_Colorno: TcxTextEdit;
|
||||||
|
pnl1: TPanel;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
Tv1: TcxGridDBTableView;
|
||||||
|
Tv1Column1: TcxGridDBColumn;
|
||||||
|
cxGrid1Level1: TcxGridLevel;
|
||||||
|
tlb1: TToolBar;
|
||||||
|
btn1: TToolButton;
|
||||||
|
btn3: TToolButton;
|
||||||
|
btn4: TToolButton;
|
||||||
|
pnl2: TPanel;
|
||||||
|
inPiece: TcxCurrencyEdit;
|
||||||
|
Label9: TLabel;
|
||||||
|
inQty: TcxCurrencyEdit;
|
||||||
|
Label13: TLabel;
|
||||||
|
Label17: TLabel;
|
||||||
|
C_Degree: TcxComboBox;
|
||||||
|
Label18: TLabel;
|
||||||
|
BCIONO: TcxTextEdit;
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure TBAddClick(Sender: TObject);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure TBDelClick(Sender: TObject);
|
||||||
|
procedure TBSaveClick(Sender: TObject);
|
||||||
|
procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
|
procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure Tv1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure FromCoNameDblClick(Sender: TObject);
|
||||||
|
procedure FromCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
procedure inQtyKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure StkCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
private
|
||||||
|
{ Private declarations }
|
||||||
|
function SaveCKData(): Boolean;
|
||||||
|
public
|
||||||
|
{ Public declarations }
|
||||||
|
FBCId, canshu3, FSTKName, FKHName: string;
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_TradePlanSel, U_ClothInfoSel;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
|
||||||
|
frmClothInfoSel := TfrmClothInfoSel.Create(self);
|
||||||
|
with frmClothInfoSel do
|
||||||
|
begin
|
||||||
|
|
||||||
|
if showmodal = 1 then
|
||||||
|
begin
|
||||||
|
self.C_Code.text := frmClothInfoSel.CDS_1.fieldbyname('C_Code').asstring;
|
||||||
|
self.C_Name.text := frmClothInfoSel.CDS_1.fieldbyname('C_Name').asstring;
|
||||||
|
self.C_EName.text := frmClothInfoSel.CDS_1.fieldbyname('C_EName').asstring;
|
||||||
|
self.C_Spec.text := frmClothInfoSel.CDS_1.fieldbyname('C_Spec').asstring;
|
||||||
|
self.C_Composition.text := frmClothInfoSel.CDS_1.fieldbyname('C_Composition').asstring;
|
||||||
|
self.C_EComposition.text := frmClothInfoSel.CDS_1.fieldbyname('C_EComposition').asstring;
|
||||||
|
self.C_Width.text := frmClothInfoSel.CDS_1.fieldbyname('C_Width').asstring;
|
||||||
|
self.C_GramWeight.text := frmClothInfoSel.CDS_1.fieldbyname('C_GramWeight').asstring;
|
||||||
|
|
||||||
|
self.C_Color.text := frmClothInfoSel.CDS_3.fieldbyname('C_Color').asstring;
|
||||||
|
self.C_Colorno.text := frmClothInfoSel.CDS_3.fieldbyname('C_Colorno').asstring;
|
||||||
|
QtyUnit.text := 'M';
|
||||||
|
end;
|
||||||
|
free;
|
||||||
|
end;
|
||||||
|
tv1.Controller.EditingController.ShowEdit();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.TBAddClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CDS_Sub.IsEmpty = False then
|
||||||
|
begin
|
||||||
|
CopyAddRowCDS(CDS_Sub);
|
||||||
|
with CDS_Sub do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('BCIOID').Value := null;
|
||||||
|
FieldByName('StkCoNo').Value := '本厂仓库';
|
||||||
|
FieldByName('StkCoName').Value := '本厂仓库';
|
||||||
|
post;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
with CDS_Sub do
|
||||||
|
begin
|
||||||
|
Append;
|
||||||
|
FieldByName('IOTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now));
|
||||||
|
FieldByName('StkCoNo').Value := '本厂仓库';
|
||||||
|
FieldByName('StkCoName').Value := '本厂仓库';
|
||||||
|
FieldByName('QtyUnit').Value := 'M';
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TfrmTradeClothTotalInInput1.SaveCKData(): Boolean;
|
||||||
|
var
|
||||||
|
Maxno, MBCIOID: string;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
CDS_Sub.DisableControls;
|
||||||
|
with CDS_Sub do
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
while not eof do
|
||||||
|
begin
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(CDS_Sub.fieldbyname('BCIOID').AsString) + '''');
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
MBCIOID := Trim(ADOQueryTemp.fieldbyname('BCIOID').AsString);
|
||||||
|
if Trim(MBCIOID) = '' then
|
||||||
|
begin
|
||||||
|
if not GetLSNo(ADOQueryCmd, Maxno, 'MR', 'BS_Cloth_IO', 4, 1) then
|
||||||
|
raise Exception.Create('取染色坯布入库编号失败！');
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Maxno := Trim(MBCIOID);
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select * from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + '''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
if Trim(MBCIOID) = '' then
|
||||||
|
begin
|
||||||
|
Append;
|
||||||
|
FieldByName('Fillid').Value := Trim(Dcode);
|
||||||
|
FieldByName('Filler').Value := Trim(DName);
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('Editid').Value := Trim(Dcode);
|
||||||
|
FieldByName('Editer').Value := Trim(DName);
|
||||||
|
FieldByName('EditTime').Value := SGetServerDate(ADOQueryTemp);
|
||||||
|
end;
|
||||||
|
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Cloth_IO', 0);
|
||||||
|
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_IO', Panel1, 0);
|
||||||
|
FieldByName('FromCoNo').Value := Trim(FromCoName.Properties.LookupItems.Text);
|
||||||
|
FieldByName('CustNo').Value := CDS_Sub.fieldbyname('CustNo').Value;
|
||||||
|
FieldByName('FromCoNo').Value := CDS_Sub.fieldbyname('FromCoNo').Value;
|
||||||
|
FieldByName('StkCoNo').Value := Trim(StkCoName.Properties.LookupItems.Text);
|
||||||
|
|
||||||
|
FieldByName('FromMainId').Value := CDS_Sub.fieldbyname('FromMainId').Value;
|
||||||
|
FieldByName('FromSubId').Value := CDS_Sub.fieldbyname('FromSubId').Value;
|
||||||
|
|
||||||
|
FieldByName('BCIOID').Value := Trim(Maxno);
|
||||||
|
FieldByName('STKID').Value := Trim(Maxno);
|
||||||
|
FieldByName('STKName').Value := FSTKName;
|
||||||
|
FieldByName('IOFlag').Value := '入库';
|
||||||
|
FieldByName('IOQtyFlag').Value := 1;
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('Update BS_Cloth_IO Set StkPiece=(select Sum(isnull(Piece,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID )');
|
||||||
|
sql.Add(',StkQty=(select Sum(isnull(Qty,0)*IOQtyFlag) from BS_Cloth_IO A where A.STKID=BS_Cloth_IO.BCIOID )');
|
||||||
|
sql.Add(' where BCIOID=''' + Trim(Maxno) + '''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select stkQty,StkPiece from BS_Cloth_IO where BCIOID=''' + Trim(Maxno) + '''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.FieldByName('stkQty').Value < 0 then
|
||||||
|
raise Exception.Create('入库数量小于出库数量不能保存!');
|
||||||
|
if ADOQueryTemp.FieldByName('StkPiece').Value < 0 then
|
||||||
|
raise Exception.Create('入库匹数小于出库匹数不能保存!');
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
|
||||||
|
sql.Add('values(''贸易布坯入库'' ');
|
||||||
|
sql.Add(',' + quotedstr(Maxno));
|
||||||
|
sql.Add(',''保存'' ');
|
||||||
|
sql.Add(',' + quotedstr(DName));
|
||||||
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||||
|
sql.Add(',' + quotedstr(Maxno));
|
||||||
|
sql.Add(') ');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
Edit;
|
||||||
|
FieldByName('BCIOID').Value := Trim(Maxno);
|
||||||
|
Post;
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
CDS_Sub.EnableControls;
|
||||||
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
|
||||||
|
Result := True;
|
||||||
|
except
|
||||||
|
Result := False;
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.StkCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmCompanySel := TfrmCompanySel.Create(Application);
|
||||||
|
with frmCompanySel do
|
||||||
|
begin
|
||||||
|
|
||||||
|
FCoType := '供应商';
|
||||||
|
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
self.StkCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
|
||||||
|
self.StkCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmCompanySel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ReadCxGrid(FSTKName + '入库登记', Tv1, '贸易汇总仓库');
|
||||||
|
|
||||||
|
IOTime.Date := SGetServerDate(ADOQueryTemp);
|
||||||
|
// IOType.text :='采购入库';
|
||||||
|
|
||||||
|
with CDS_LM do
|
||||||
|
begin
|
||||||
|
FieldDefs.Clear;
|
||||||
|
FieldDefs.Add('LXH', ftInteger, 0);
|
||||||
|
FieldDefs.Add('lCode', ftString, 40);
|
||||||
|
FieldDefs.Add('LName', ftString, 40);
|
||||||
|
close;
|
||||||
|
CreateDataSet;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add(' select A.* ');
|
||||||
|
sql.Add(' from BS_Cloth_IO A');
|
||||||
|
sql.Add(' where BCIOID=''' + Trim(FBCId) + '''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCSHData(ADOQueryTemp, Panel1, 0);
|
||||||
|
FromCoName.Properties.LookupItems.Text := Trim(ADOQueryTemp.FieldByName('FromCoNo').AsString);
|
||||||
|
StkCoName.Properties.LookupItems.Text := Trim(ADOQueryTemp.FieldByName('StkCoNo').AsString);
|
||||||
|
SCreateCDS(ADOQueryTemp, CDS_Sub);
|
||||||
|
SInitCDSData(ADOQueryTemp, CDS_Sub);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.FromCoNameDblClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TcxButtonEdit(Sender).Text := '';
|
||||||
|
TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.FromCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmCompanySel := TfrmCompanySel.Create(Application);
|
||||||
|
with frmCompanySel do
|
||||||
|
begin
|
||||||
|
if IoType.text = '销售退回' then
|
||||||
|
begin
|
||||||
|
FCoType := '客户';
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
FCoType := '供应商';
|
||||||
|
end;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
self.FromCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
|
||||||
|
self.FromCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmCompanySel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.inQtyKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
begin
|
||||||
|
with CDS_Sub do
|
||||||
|
begin
|
||||||
|
DisableControls;
|
||||||
|
for i := 1 to StrToIntDef(inPiece.Text, 1) do
|
||||||
|
begin
|
||||||
|
Append;
|
||||||
|
FieldByName('Qty').Value := StrTofloatDef(inQty.Text, 0);
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
EnableControls;
|
||||||
|
end;
|
||||||
|
inPiece.Text := '1';
|
||||||
|
inQty.Text := '';
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.TBDelClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CDS_Sub.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
if Trim(CDS_Sub.fieldbyname('BCIOID').AsString) <> '' then
|
||||||
|
begin
|
||||||
|
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||||
|
Exit;
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('exec P_Fin_Flow_Judge ');
|
||||||
|
Sql.Add(' @FFIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
|
||||||
|
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
|
||||||
|
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
|
||||||
|
begin
|
||||||
|
Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
try
|
||||||
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
Sql.Clear;
|
||||||
|
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
|
||||||
|
sql.Add('values(''贸易样布入库'' ');
|
||||||
|
sql.Add(',' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
|
||||||
|
sql.Add(',''删除'' ');
|
||||||
|
sql.Add(',' + quotedstr(DName));
|
||||||
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||||
|
sql.Add(',' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
|
||||||
|
sql.Add(') ');
|
||||||
|
|
||||||
|
Sql.Add('exec P_BS_Cloth_In_Del ');
|
||||||
|
Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Sub.fieldbyname('BCIOID').AsString)));
|
||||||
|
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
|
||||||
|
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||||
|
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||||
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
CDS_Sub.Delete;
|
||||||
|
except
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
CDS_Sub.Delete;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.TBSaveClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
Maxno: string;
|
||||||
|
begin
|
||||||
|
if CDS_Sub.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
if not GetLSNo(ADOQueryCmd, Maxno, 'BRO', 'BS_Cloth_IO', 4, 1) then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('取出库单号失败!', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
BCIONO.Text := Maxno;
|
||||||
|
|
||||||
|
if trim(IOType.text) = '' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('入库类型不能为空!', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if CDS_Sub.Locate('Qty', null, []) = True then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('数量不能为空!', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if SaveCKData() then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('保存成功!', '提示', 0);
|
||||||
|
//ModalResult:=1;
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.ToolButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WriteCxGrid(FSTKName + '入库登记', Tv1, '贸易汇总仓库');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.Tv1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmCompanySel := TfrmCompanySel.Create(Application);
|
||||||
|
with frmCompanySel do
|
||||||
|
begin
|
||||||
|
FCoType := '客户';
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
with Self.CDS_Sub do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('CustNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
|
||||||
|
FieldByName('CustName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmCompanySel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmCompanySel := TfrmCompanySel.Create(Application);
|
||||||
|
with frmCompanySel do
|
||||||
|
begin
|
||||||
|
FCoType := '供应商';
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
with Self.CDS_Sub do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('StkCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
|
||||||
|
FieldByName('StkCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmCompanySel.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmTradePlanSel := TfrmTradePlanSel.Create(Application);
|
||||||
|
with frmTradePlanSel do
|
||||||
|
begin
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
with Self.CDS_Sub do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('FromCoNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('FtyNo').AsString);
|
||||||
|
FieldByName('FromCoName').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('FtyName').AsString);
|
||||||
|
FieldByName('FromOrdNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
|
||||||
|
FieldByName('FromMainId').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('MainId').AsString);
|
||||||
|
FieldByName('FromSubId').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('SubId').AsString);
|
||||||
|
FieldByName('C_Code').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Code').AsString);
|
||||||
|
FieldByName('C_Name').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Name').AsString);
|
||||||
|
FieldByName('C_Spec').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Spec').AsString);
|
||||||
|
FieldByName('C_Composition').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Composition').AsString);
|
||||||
|
FieldByName('C_Width').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Width').AsString);
|
||||||
|
FieldByName('C_GramWeight').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString);
|
||||||
|
FieldByName('C_Color').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Color').AsString);
|
||||||
|
FieldByName('C_ColorNo').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_ColorNo').AsString);
|
||||||
|
FieldByName('C_Pattern').Value := Trim(frmTradePlanSel.CDS_1.fieldbyname('C_Pattern').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmTradePlanSel.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
|
||||||
|
with frmClothInfoSel do
|
||||||
|
begin
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
with Self.CDS_Sub do
|
||||||
|
begin
|
||||||
|
edit;
|
||||||
|
FieldByName('C_Code').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString);
|
||||||
|
FieldByName('C_Name').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString);
|
||||||
|
FieldByName('C_Spec').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Spec').AsString);
|
||||||
|
FieldByName('C_Composition').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString);
|
||||||
|
FieldByName('C_Width').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString);
|
||||||
|
FieldByName('C_GramWeight').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString);
|
||||||
|
|
||||||
|
Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString);
|
||||||
|
Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString);
|
||||||
|
Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString);
|
||||||
|
Fieldbyname('GC_Name').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('GC_Name').AsString);
|
||||||
|
Fieldbyname('CraftCode').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('CraftCode').AsString);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmClothInfoSel.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
|
||||||
|
try
|
||||||
|
frmCompanySel := TfrmCompanySel.Create(Application);
|
||||||
|
with frmCompanySel do
|
||||||
|
begin
|
||||||
|
FCoType := '供应商';
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
with Self.CDS_Sub do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('FromCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
|
||||||
|
FieldByName('FromCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||||
|
|
||||||
|
FieldByName('SalesER').Value := Trim(CDS_1.fieldbyname('SalesER').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmCompanySel.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||||
|
with frmZDYHelp do
|
||||||
|
begin
|
||||||
|
flag := 'JWLYCLName';
|
||||||
|
flagname := '品名';
|
||||||
|
MainType := FSTKName;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
with Self.CDS_Sub do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('C_Name').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmZDYHelp.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||||
|
with frmZDYHelp do
|
||||||
|
begin
|
||||||
|
flag := 'StkPosition';
|
||||||
|
flagname := '库位';
|
||||||
|
MainType := FSTKName;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
with Self.CDS_Sub do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('StkPosition').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmZDYHelp.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInInput1.v1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||||
|
with frmZDYHelp do
|
||||||
|
begin
|
||||||
|
flag := 'C_Spec';
|
||||||
|
flagname := '规格';
|
||||||
|
MainType := FSTKName;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
with Self.CDS_Sub do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('C_Spec').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmZDYHelp.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
|
|
@ -20,7 +20,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
Height = 30
|
Height = 30
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ButtonHeight = 30
|
ButtonHeight = 30
|
||||||
ButtonWidth = 99
|
ButtonWidth = 83
|
||||||
Caption = 'ToolBar1'
|
Caption = 'ToolBar1'
|
||||||
Color = clSkyBlue
|
Color = clSkyBlue
|
||||||
Images = DataLink_TradeTotalClothStk.cxImageList_bar
|
Images = DataLink_TradeTotalClothStk.cxImageList_bar
|
||||||
|
|
@ -37,7 +37,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
OnClick = TBRafreshClick
|
OnClick = TBRafreshClick
|
||||||
end
|
end
|
||||||
object TBFind: TToolButton
|
object TBFind: TToolButton
|
||||||
Left = 71
|
Left = 63
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #36807#28388
|
Caption = #36807#28388
|
||||||
|
|
@ -46,15 +46,23 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
OnClick = TBFindClick
|
OnClick = TBFindClick
|
||||||
end
|
end
|
||||||
object TBAdd: TToolButton
|
object TBAdd: TToolButton
|
||||||
Left = 142
|
Left = 126
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #20837#24211
|
Caption = #20837#24211
|
||||||
ImageIndex = 9
|
ImageIndex = 9
|
||||||
OnClick = TBAddClick
|
OnClick = TBAddClick
|
||||||
end
|
end
|
||||||
|
object btn1: TToolButton
|
||||||
|
Left = 189
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #26126#32454#20837#24211
|
||||||
|
ImageIndex = 9
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
object TBEdit: TToolButton
|
object TBEdit: TToolButton
|
||||||
Left = 213
|
Left = 276
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #20462#25913
|
Caption = #20462#25913
|
||||||
|
|
@ -62,7 +70,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
OnClick = TBEditClick
|
OnClick = TBEditClick
|
||||||
end
|
end
|
||||||
object TBDel: TToolButton
|
object TBDel: TToolButton
|
||||||
Left = 284
|
Left = 339
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #21024#38500
|
Caption = #21024#38500
|
||||||
|
|
@ -70,7 +78,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
OnClick = TBDelClick
|
OnClick = TBDelClick
|
||||||
end
|
end
|
||||||
object ToolButton2: TToolButton
|
object ToolButton2: TToolButton
|
||||||
Left = 355
|
Left = 402
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #25171#21360
|
Caption = #25171#21360
|
||||||
|
|
@ -78,7 +86,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
OnClick = ToolButton2Click
|
OnClick = ToolButton2Click
|
||||||
end
|
end
|
||||||
object ToolButton3: TToolButton
|
object ToolButton3: TToolButton
|
||||||
Left = 426
|
Left = 465
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #38468#20214
|
Caption = #38468#20214
|
||||||
|
|
@ -86,7 +94,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
OnClick = ToolButton3Click
|
OnClick = ToolButton3Click
|
||||||
end
|
end
|
||||||
object TBExport: TToolButton
|
object TBExport: TToolButton
|
||||||
Left = 497
|
Left = 528
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #23548#20986
|
Caption = #23548#20986
|
||||||
|
|
@ -94,7 +102,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
OnClick = TBExportClick
|
OnClick = TBExportClick
|
||||||
end
|
end
|
||||||
object ToolButton1: TToolButton
|
object ToolButton1: TToolButton
|
||||||
Left = 568
|
Left = 591
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #20445#23384#26684#24335
|
Caption = #20445#23384#26684#24335
|
||||||
|
|
@ -102,7 +110,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
OnClick = ToolButton1Click
|
OnClick = ToolButton1Click
|
||||||
end
|
end
|
||||||
object TBClose: TToolButton
|
object TBClose: TToolButton
|
||||||
Left = 671
|
Left = 678
|
||||||
Top = 0
|
Top = 0
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #20851#38381
|
Caption = #20851#38381
|
||||||
|
|
@ -401,47 +409,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||||
Properties.ImmediatePost = True
|
Properties.ImmediatePost = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
|
||||||
object Tv1Column29: TcxGridDBColumn
|
|
||||||
Caption = #35843#20986#35745#21010#21333#21495
|
|
||||||
DataBinding.FieldName = 'SupOrdNo'
|
|
||||||
DataBinding.IsNullValueType = True
|
|
||||||
HeaderAlignmentHorz = taCenter
|
|
||||||
Options.Editing = False
|
|
||||||
Width = 124
|
|
||||||
end
|
|
||||||
object Tv1Column30: TcxGridDBColumn
|
|
||||||
Caption = #35843#20986#21512#21516#21495
|
|
||||||
DataBinding.FieldName = 'SupConNo'
|
|
||||||
DataBinding.IsNullValueType = True
|
|
||||||
HeaderAlignmentHorz = taCenter
|
|
||||||
Options.Editing = False
|
|
||||||
Width = 129
|
|
||||||
end
|
|
||||||
object Tv1Column13: TcxGridDBColumn
|
|
||||||
Caption = #35745#21010#21333#21495
|
|
||||||
DataBinding.FieldName = 'FromOrdNo'
|
|
||||||
DataBinding.IsNullValueType = True
|
|
||||||
HeaderAlignmentHorz = taCenter
|
|
||||||
Options.Editing = False
|
|
||||||
Width = 83
|
|
||||||
end
|
|
||||||
object Tv1Column19: TcxGridDBColumn
|
|
||||||
Caption = #21512#21516#21495
|
|
||||||
DataBinding.FieldName = 'FromConNo'
|
|
||||||
DataBinding.IsNullValueType = True
|
|
||||||
HeaderAlignmentHorz = taCenter
|
|
||||||
Options.Editing = False
|
|
||||||
Width = 92
|
|
||||||
end
|
|
||||||
object v1Column6: TcxGridDBColumn
|
|
||||||
Caption = #20837#24211#26465#30721
|
|
||||||
DataBinding.FieldName = 'BCIOID'
|
|
||||||
DataBinding.IsNullValueType = True
|
|
||||||
HeaderAlignmentHorz = taCenter
|
|
||||||
Options.Editing = False
|
|
||||||
Width = 110
|
|
||||||
end
|
end
|
||||||
object Tv1Column37: TcxGridDBColumn
|
object Tv1Column37: TcxGridDBColumn
|
||||||
Caption = #20837#24211#21333#21495
|
Caption = #20837#24211#21333#21495
|
||||||
|
|
@ -449,7 +417,47 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 114
|
Width = 55
|
||||||
|
end
|
||||||
|
object Tv1Column29: TcxGridDBColumn
|
||||||
|
Caption = #35843#20986#35745#21010#21333#21495
|
||||||
|
DataBinding.FieldName = 'SupOrdNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object Tv1Column30: TcxGridDBColumn
|
||||||
|
Caption = #35843#20986#21512#21516#21495
|
||||||
|
DataBinding.FieldName = 'SupConNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object Tv1Column13: TcxGridDBColumn
|
||||||
|
Caption = #35745#21010#21333#21495
|
||||||
|
DataBinding.FieldName = 'FromOrdNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object Tv1Column19: TcxGridDBColumn
|
||||||
|
Caption = #21512#21516#21495
|
||||||
|
DataBinding.FieldName = 'FromConNo'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 55
|
||||||
|
end
|
||||||
|
object v1Column6: TcxGridDBColumn
|
||||||
|
Caption = #20837#24211#26465#30721
|
||||||
|
DataBinding.FieldName = 'BCIOID'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1Column2: TcxGridDBColumn
|
object v1Column2: TcxGridDBColumn
|
||||||
Tag = 2
|
Tag = 2
|
||||||
|
|
@ -461,7 +469,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
Properties.ShowTime = False
|
Properties.ShowTime = False
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 74
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1Column4: TcxGridDBColumn
|
object v1Column4: TcxGridDBColumn
|
||||||
Tag = 2
|
Tag = 2
|
||||||
|
|
@ -476,7 +484,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
#26399#21021#20837#24211)
|
#26399#21021#20837#24211)
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 80
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1Column14: TcxGridDBColumn
|
object v1Column14: TcxGridDBColumn
|
||||||
Tag = 2
|
Tag = 2
|
||||||
|
|
@ -493,7 +501,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
Properties.ReadOnly = True
|
Properties.ReadOnly = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 71
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column11: TcxGridDBColumn
|
object Tv1Column11: TcxGridDBColumn
|
||||||
Caption = #37319#36141#21333#21495
|
Caption = #37319#36141#21333#21495
|
||||||
|
|
@ -501,7 +509,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 56
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column20: TcxGridDBColumn
|
object Tv1Column20: TcxGridDBColumn
|
||||||
Caption = #33521#25991#21697#21517
|
Caption = #33521#25991#21697#21517
|
||||||
|
|
@ -509,7 +517,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object v2Column1: TcxGridDBColumn
|
object v2Column1: TcxGridDBColumn
|
||||||
Tag = 2
|
Tag = 2
|
||||||
|
|
@ -524,7 +532,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
end>
|
end>
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1Column8: TcxGridDBColumn
|
object v1Column8: TcxGridDBColumn
|
||||||
Tag = 2
|
Tag = 2
|
||||||
|
|
@ -534,7 +542,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
HeaderGlyphAlignmentHorz = taCenter
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column4: TcxGridDBColumn
|
object Tv1Column4: TcxGridDBColumn
|
||||||
Caption = #32568#21495
|
Caption = #32568#21495
|
||||||
|
|
@ -542,7 +550,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1Column13: TcxGridDBColumn
|
object v1Column13: TcxGridDBColumn
|
||||||
Caption = #38376#24133
|
Caption = #38376#24133
|
||||||
|
|
@ -550,7 +558,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1Column11: TcxGridDBColumn
|
object v1Column11: TcxGridDBColumn
|
||||||
Caption = #20811#37325
|
Caption = #20811#37325
|
||||||
|
|
@ -558,7 +566,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column6: TcxGridDBColumn
|
object Tv1Column6: TcxGridDBColumn
|
||||||
Caption = #32534#21495
|
Caption = #32534#21495
|
||||||
|
|
@ -566,7 +574,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1Column15: TcxGridDBColumn
|
object v1Column15: TcxGridDBColumn
|
||||||
Caption = #21305#25968
|
Caption = #21305#25968
|
||||||
|
|
@ -574,7 +582,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object v2Column6: TcxGridDBColumn
|
object v2Column6: TcxGridDBColumn
|
||||||
Tag = 2
|
Tag = 2
|
||||||
|
|
@ -584,7 +592,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
PropertiesClassName = 'TcxTextEditProperties'
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1Column3: TcxGridDBColumn
|
object v1Column3: TcxGridDBColumn
|
||||||
Tag = 2
|
Tag = 2
|
||||||
|
|
@ -599,7 +607,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
'Y')
|
'Y')
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1Column5: TcxGridDBColumn
|
object v1Column5: TcxGridDBColumn
|
||||||
Tag = 2
|
Tag = 2
|
||||||
|
|
@ -615,7 +623,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
Properties.ReadOnly = True
|
Properties.ReadOnly = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column14: TcxGridDBColumn
|
object Tv1Column14: TcxGridDBColumn
|
||||||
Caption = #25209#21495
|
Caption = #25209#21495
|
||||||
|
|
@ -623,7 +631,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1Column19: TcxGridDBColumn
|
object v1Column19: TcxGridDBColumn
|
||||||
Caption = #36710#38388
|
Caption = #36710#38388
|
||||||
|
|
@ -631,7 +639,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1Column12: TcxGridDBColumn
|
object v1Column12: TcxGridDBColumn
|
||||||
Tag = 2
|
Tag = 2
|
||||||
|
|
@ -640,7 +648,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object v1Column20: TcxGridDBColumn
|
object v1Column20: TcxGridDBColumn
|
||||||
Caption = #19994#21153#21592
|
Caption = #19994#21153#21592
|
||||||
|
|
@ -648,7 +656,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 75
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column3: TcxGridDBColumn
|
object Tv1Column3: TcxGridDBColumn
|
||||||
Caption = #33394#21035
|
Caption = #33394#21035
|
||||||
|
|
@ -656,7 +664,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 71
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column5: TcxGridDBColumn
|
object Tv1Column5: TcxGridDBColumn
|
||||||
Caption = #30721#23610
|
Caption = #30721#23610
|
||||||
|
|
@ -664,7 +672,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column32: TcxGridDBColumn
|
object Tv1Column32: TcxGridDBColumn
|
||||||
Caption = #25220#30721
|
Caption = #25220#30721
|
||||||
|
|
@ -672,7 +680,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 70
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column1: TcxGridDBColumn
|
object Tv1Column1: TcxGridDBColumn
|
||||||
Caption = #39068#33394
|
Caption = #39068#33394
|
||||||
|
|
@ -680,7 +688,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column21: TcxGridDBColumn
|
object Tv1Column21: TcxGridDBColumn
|
||||||
Caption = #33521#25991#39068#33394
|
Caption = #33521#25991#39068#33394
|
||||||
|
|
@ -688,7 +696,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column2: TcxGridDBColumn
|
object Tv1Column2: TcxGridDBColumn
|
||||||
Caption = #33394#21495
|
Caption = #33394#21495
|
||||||
|
|
@ -696,7 +704,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column10: TcxGridDBColumn
|
object Tv1Column10: TcxGridDBColumn
|
||||||
Caption = #27454#21495
|
Caption = #27454#21495
|
||||||
|
|
@ -704,7 +712,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column8: TcxGridDBColumn
|
object Tv1Column8: TcxGridDBColumn
|
||||||
Caption = #33457#22411
|
Caption = #33457#22411
|
||||||
|
|
@ -712,7 +720,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column36: TcxGridDBColumn
|
object Tv1Column36: TcxGridDBColumn
|
||||||
Caption = #24211#20301
|
Caption = #24211#20301
|
||||||
|
|
@ -720,7 +728,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column9: TcxGridDBColumn
|
object Tv1Column9: TcxGridDBColumn
|
||||||
Caption = #25104#20998
|
Caption = #25104#20998
|
||||||
|
|
@ -728,7 +736,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column12: TcxGridDBColumn
|
object Tv1Column12: TcxGridDBColumn
|
||||||
Caption = #38468#20214
|
Caption = #38468#20214
|
||||||
|
|
@ -737,7 +745,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column15: TcxGridDBColumn
|
object Tv1Column15: TcxGridDBColumn
|
||||||
Caption = #30331#35760#20154
|
Caption = #30331#35760#20154
|
||||||
|
|
@ -745,7 +753,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column16: TcxGridDBColumn
|
object Tv1Column16: TcxGridDBColumn
|
||||||
Caption = #30331#35760#26102#38388
|
Caption = #30331#35760#26102#38388
|
||||||
|
|
@ -753,7 +761,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column17: TcxGridDBColumn
|
object Tv1Column17: TcxGridDBColumn
|
||||||
Caption = #20462#25913#20154
|
Caption = #20462#25913#20154
|
||||||
|
|
@ -761,7 +769,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column18: TcxGridDBColumn
|
object Tv1Column18: TcxGridDBColumn
|
||||||
Caption = #20462#25913#26102#38388
|
Caption = #20462#25913#26102#38388
|
||||||
|
|
@ -769,7 +777,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column22: TcxGridDBColumn
|
object Tv1Column22: TcxGridDBColumn
|
||||||
Caption = #31867#22411
|
Caption = #31867#22411
|
||||||
|
|
@ -777,7 +785,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column27: TcxGridDBColumn
|
object Tv1Column27: TcxGridDBColumn
|
||||||
Caption = #22383#24067#20379#24212#21830
|
Caption = #22383#24067#20379#24212#21830
|
||||||
|
|
@ -785,7 +793,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column25: TcxGridDBColumn
|
object Tv1Column25: TcxGridDBColumn
|
||||||
Caption = #24067#31181
|
Caption = #24067#31181
|
||||||
|
|
@ -793,7 +801,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column24: TcxGridDBColumn
|
object Tv1Column24: TcxGridDBColumn
|
||||||
Caption = #21518#25972#29702#33521#25991
|
Caption = #21518#25972#29702#33521#25991
|
||||||
|
|
@ -801,7 +809,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column34: TcxGridDBColumn
|
object Tv1Column34: TcxGridDBColumn
|
||||||
Caption = #32467#26696#31867#22411
|
Caption = #32467#26696#31867#22411
|
||||||
|
|
@ -809,7 +817,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column26: TcxGridDBColumn
|
object Tv1Column26: TcxGridDBColumn
|
||||||
Caption = #21518#25972#29702#20013#25991
|
Caption = #21518#25972#29702#20013#25991
|
||||||
|
|
@ -817,7 +825,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column23: TcxGridDBColumn
|
object Tv1Column23: TcxGridDBColumn
|
||||||
Caption = #21152#24037#21035
|
Caption = #21152#24037#21035
|
||||||
|
|
@ -825,7 +833,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column33: TcxGridDBColumn
|
object Tv1Column33: TcxGridDBColumn
|
||||||
Caption = #21367#21495
|
Caption = #21367#21495
|
||||||
|
|
@ -833,7 +841,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
object Tv1Column35: TcxGridDBColumn
|
object Tv1Column35: TcxGridDBColumn
|
||||||
Caption = #38477#32423#21407#22240
|
Caption = #38477#32423#21407#22240
|
||||||
|
|
@ -841,18 +849,24 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 44
|
Width = 55
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1Level1: TcxGridLevel
|
object cxGrid1Level1: TcxGridLevel
|
||||||
GridView = Tv1
|
GridView = Tv1
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
inherited loadProcess: TPanel
|
||||||
|
Left = 801
|
||||||
|
Top = 360
|
||||||
|
ExplicitLeft = 801
|
||||||
|
ExplicitTop = 360
|
||||||
|
end
|
||||||
inherited cxProgressBar2: TcxProgressBar
|
inherited cxProgressBar2: TcxProgressBar
|
||||||
Left = 649
|
Left = 793
|
||||||
Top = 344
|
Top = 296
|
||||||
ExplicitLeft = 649
|
ExplicitLeft = 793
|
||||||
ExplicitTop = 344
|
ExplicitTop = 296
|
||||||
ExplicitHeight = 29
|
ExplicitHeight = 29
|
||||||
end
|
end
|
||||||
inherited ADOQueryBaseCmd: TADOQuery
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
|
|
||||||
|
|
@ -116,6 +116,7 @@ type
|
||||||
StkCoName: TcxTextEdit;
|
StkCoName: TcxTextEdit;
|
||||||
Label11: TLabel;
|
Label11: TLabel;
|
||||||
BCIOID: TcxTextEdit;
|
BCIOID: TcxTextEdit;
|
||||||
|
btn1: TToolButton;
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure TBRafreshClick(Sender: TObject);
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
|
@ -144,6 +145,7 @@ type
|
||||||
procedure cxButton3Click(Sender: TObject);
|
procedure cxButton3Click(Sender: TObject);
|
||||||
procedure BCIONoKeyPress(Sender: TObject; var Key: Char);
|
procedure BCIONoKeyPress(Sender: TObject; var Key: Char);
|
||||||
procedure IOTypePropertiesChange(Sender: TObject);
|
procedure IOTypePropertiesChange(Sender: TObject);
|
||||||
|
procedure btn1Click(Sender: TObject);
|
||||||
private
|
private
|
||||||
canshu1, canshu2, canshu3: string;
|
canshu1, canshu2, canshu3: string;
|
||||||
procedure InitGrid();
|
procedure InitGrid();
|
||||||
|
|
@ -158,7 +160,7 @@ implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
U_DataLink, U_RTFun, U_LabelPrint, U_AttachmentUpload,
|
U_DataLink, U_RTFun, U_LabelPrint, U_AttachmentUpload,
|
||||||
U_TradeClothTotalInInput;
|
U_TradeClothTotalInInput1, U_TradeClothTotalInInput;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
procedure TfrmTradeClothTotalInList.setStatus();
|
procedure TfrmTradeClothTotalInList.setStatus();
|
||||||
|
|
@ -287,6 +289,25 @@ begin
|
||||||
InitGrid();
|
InitGrid();
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrmTradeClothTotalInList.btn1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmTradeClothTotalInInput1 := TfrmTradeClothTotalInInput1.Create(Application);
|
||||||
|
with frmTradeClothTotalInInput1 do
|
||||||
|
begin
|
||||||
|
FBCId := '';
|
||||||
|
frmTradeClothTotalInInput1.canshu3 := Trim(Self.canshu3);
|
||||||
|
FSTKName := Self.FSTKName;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
Self.InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmTradeClothTotalInInput1.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TfrmTradeClothTotalInList.BCIOIDPropertiesChange(Sender: TObject);
|
procedure TfrmTradeClothTotalInList.BCIOIDPropertiesChange(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
|
if Length(Trim(TcxTextEdit(Sender).Text)) < 4 then
|
||||||
|
|
@ -403,7 +424,7 @@ begin
|
||||||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||||||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||||||
ADOQueryCmd.Connection.CommitTrans;
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
CDS_1.Delete;
|
InitGrid();
|
||||||
except
|
except
|
||||||
ADOQueryCmd.Connection.RollbackTrans;
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
|
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user