D7gmYushang/发货申请(ShipmentRequest.dll)/U_OrderInPut_TC.dfm

886 lines
21 KiB
Plaintext
Raw Permalink Normal View History

2025-09-24 13:13:14 +08:00
object frmOrderInPut_TC: TfrmOrderInPut_TC
Left = 298
Top = 65
Width = 994
Height = 683
Caption = #36864#36135#30003#35831#24405#20837
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 978
Height = 37
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clBtnFace
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 5
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object cxTabControl1: TcxTabControl
Left = 0
Top = 37
Width = 978
Height = 18
Align = alTop
TabOrder = 1
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#36864#20179#20449#24687)
ClientRectRight = 0
ClientRectTop = 0
end
object Panel1: TPanel
Left = 0
Top = 55
Width = 978
Height = 222
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Label1: TLabel
Left = 31
Top = 15
Width = 65
Height = 12
Caption = #36864#36135#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label39: TLabel
Left = 291
Top = 15
Width = 65
Height = 12
Caption = #36864#20179#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 290
Top = 41
Width = 66
Height = 12
Caption = #21512' '#21516' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 31
Top = 96
Width = 65
Height = 12
Caption = #36864#36135#23458#25143#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 31
Top = 120
Width = 65
Height = 12
Caption = #36864#20179#21407#22240#65306
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 30
Top = 42
Width = 66
Height = 12
Caption = #35746' '#21333' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 551
Top = 15
Width = 66
Height = 12
Caption = #30003' '#35831' '#20154#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 291
Top = 93
Width = 65
Height = 12
Caption = #22238#20179#22320#22336#65306
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 291
Top = 67
Width = 65
Height = 12
Caption = #23458#25143#31616#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 31
Top = 68
Width = 65
Height = 12
Caption = #35746#21333#25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 819
Top = 89
Width = 65
Height = 12
Caption = #22383#24067#25439#22833#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label8: TLabel
Left = 987
Top = 51
Width = 65
Height = 12
Caption = #22383#24067#21333#20215#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label9: TLabel
Left = 1155
Top = 51
Width = 65
Height = 12
Caption = #22383#24067#37329#39069#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label11: TLabel
Left = 819
Top = 117
Width = 65
Height = 12
Caption = #26579#33394#25439#22833#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label12: TLabel
Left = 987
Top = 79
Width = 65
Height = 12
Caption = #26579#33394#21333#20215#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label15: TLabel
Left = 1155
Top = 79
Width = 65
Height = 12
Caption = #26579#33394#37329#39069#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label16: TLabel
Left = 819
Top = 145
Width = 65
Height = 12
Caption = #36816#36153#25439#22833#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label17: TLabel
Left = 987
Top = 107
Width = 65
Height = 12
Caption = #20854#20182#25439#22833#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label18: TLabel
Left = 851
Top = 195
Width = 65
Height = 12
Caption = #24037#21378#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label22: TLabel
Left = 552
Top = 95
Width = 65
Height = 12
Caption = #25552#36135#22320#22336#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label23: TLabel
Left = 526
Top = 38
Width = 91
Height = 12
Caption = #38144#21806#21457#36135#30003#35831#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 775
Top = 15
Width = 66
Height = 12
Caption = #19994' '#21153' '#21592#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 776
Top = 38
Width = 65
Height = 12
Caption = #19994#21153#32452#21035#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TCNO: TEdit
Tag = 2
Left = 97
Top = 11
Width = 150
Height = 20
Enabled = False
TabOrder = 0
Text = #33258#21160#29983#25104
end
object TCDate: TDateTimePicker
Tag = 2
Left = 357
Top = 11
Width = 149
Height = 20
BevelInner = bvNone
Date = 40916.670856296290000000
Format = 'yyyy-MM-dd'
Time = 40916.670856296290000000
TabOrder = 1
end
object CustomerNoName: TBtnEditC
Tag = 2
Left = 97
Top = 92
Width = 150
Height = 20
Hint = 'CustomerNo'
ReadOnly = True
TabOrder = 6
OnBtnUpClick = CustomerNoNameBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object Note: TMemo
Tag = 2
Left = 101
Top = 118
Width = 681
Height = 92
Hint = 'TCNote/'#36864#20179#21407#22240
ScrollBars = ssVertical
TabOrder = 11
OnDblClick = OtherNoteDblClick
end
object conNO: TEdit
Tag = 2
Left = 357
Top = 38
Width = 149
Height = 20
TabOrder = 4
end
object orderNo: TBtnEditA
Tag = 2
Left = 97
Top = 38
Width = 149
Height = 20
ReadOnly = True
TabOrder = 3
OnBtnClick = orderNoBtnClick
end
object OrdPerson1: TBtnEditC
Tag = 2
Left = 617
Top = 12
Width = 150
Height = 20
Hint = 'OrdPerson2/'#19994#21153#21592
TabOrder = 2
OnBtnUpClick = OrdPerson1BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object CustomerNoshortName: TEdit
Tag = 2
Left = 357
Top = 65
Width = 149
Height = 20
TabOrder = 7
end
object HCAdress: TBtnEditC
Tag = 2
Left = 357
Top = 92
Width = 150
Height = 20
Hint = 'HCAdress/'#22238#20179#22320#22336
TabOrder = 8
Text = #23431#23578#25104#21697#20179#24211
OnBtnUpClick = OrdPerson1BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object OrderQty: TEdit
Tag = 2
Left = 98
Top = 64
Width = 116
Height = 20
Enabled = False
TabOrder = 5
end
object PBQty: TEdit
Tag = 2
Left = 885
Top = 85
Width = 88
Height = 20
TabOrder = 12
Visible = False
OnChange = PBQtyChange
OnKeyPress = PBQtyKeyPress
end
object PBPrice: TEdit
Tag = 2
Left = 1049
Top = 47
Width = 88
Height = 20
TabOrder = 13
Visible = False
OnChange = PBQtyChange
OnKeyPress = PBQtyKeyPress
end
object PBMoney: TEdit
Tag = 2
Left = 1217
Top = 47
Width = 88
Height = 20
TabOrder = 14
Visible = False
OnKeyPress = PBQtyKeyPress
end
object RSQty: TEdit
Tag = 2
Left = 885
Top = 113
Width = 88
Height = 20
TabOrder = 15
Visible = False
OnChange = RSQtyChange
OnKeyPress = PBQtyKeyPress
end
object RSPrice: TEdit
Tag = 2
Left = 1049
Top = 75
Width = 88
Height = 20
TabOrder = 16
Visible = False
OnChange = RSQtyChange
OnKeyPress = PBQtyKeyPress
end
object RSMoney: TEdit
Tag = 2
Left = 1217
Top = 75
Width = 88
Height = 20
TabOrder = 17
Visible = False
OnKeyPress = PBQtyKeyPress
end
object YFMoney: TEdit
Tag = 2
Left = 885
Top = 141
Width = 88
Height = 20
TabOrder = 18
Visible = False
OnKeyPress = PBQtyKeyPress
end
object OtherMoney: TEdit
Tag = 2
Left = 1049
Top = 103
Width = 88
Height = 20
TabOrder = 19
Visible = False
OnKeyPress = PBQtyKeyPress
end
object THKHName: TBtnEditC
Tag = 2
Left = 917
Top = 190
Width = 412
Height = 20
TabOrder = 10
Visible = False
OnBtnUpClick = THKHNameBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object THAdress: TBtnEditC
Tag = 2
Left = 617
Top = 94
Width = 150
Height = 20
Hint = 'THAdress/'#25552#36135#22320#22336
TabOrder = 9
OnBtnUpClick = OrdPerson1BtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object FROMFHSQ: TBtnEditA
Tag = 2
Left = 617
Top = 34
Width = 149
Height = 20
ReadOnly = True
TabOrder = 20
OnBtnClick = FROMFHSQBtnClick
end
object FROMSSID: TEdit
Tag = 2
Left = 617
Top = 60
Width = 149
Height = 20
TabOrder = 21
Visible = False
end
object YWY: TBtnEditC
Tag = 2
Left = 836
Top = 11
Width = 79
Height = 20
Hint = 'OrdPerson2/'#19994#21153#21592
TabOrder = 22
OnBtnUpClick = YWYBtnUpClick
OnBtnDnClick = YWYBtnDnClick
end
object YWZB: TBtnEditC
Tag = 2
Left = 836
Top = 34
Width = 79
Height = 20
Hint = 'OrdPerson2/'#19994#21153#21592
TabOrder = 23
OnBtnUpClick = YWZBBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
end
object ToolBar2: TToolBar
Left = 0
Top = 277
Width = 978
Height = 28
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 3
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 57
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 113
OnClick = ToolButton2Click
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 305
Width = 978
Height = 339
Align = alClient
TabOrder = 4
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = v1PRTOrderQty
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = DataLink_ShipmentRequest.Default
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
Styles.Header = DataLink_ShipmentRequest.Default
object cxGridDBColumn1: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'PRTCODE'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1PRTColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 83
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'PRTMF'
HeaderAlignmentHorz = taCenter
Width = 68
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'PRTKZ'
HeaderAlignmentHorz = taCenter
Width = 68
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'PRTPs'
HeaderAlignmentHorz = taCenter
Width = 68
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'PRTOrderQty'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 115
end
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrderUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'Kg'
'M'
'Y')
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 131
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SubNote'
HeaderAlignmentHorz = taCenter
Width = 147
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV1
end
end
object ADOTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 628
Top = 377
end
object ADOCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 776
Top = 365
end
object DataSource1: TDataSource
DataSet = Order_Sub
Left = 744
Top = 320
end
object Order_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 792
Top = 332
end
object ADOQuery1: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 664
Top = 377
end
object PopupMenu1: TPopupMenu
Left = 688
Top = 324
object N3: TMenuItem
Caption = #21024#34892
end
end
object CDS_CG: TClientDataSet
Aggregates = <>
Params = <>
Left = 700
Top = 377
end
object DataSource2: TDataSource
DataSet = ORDER_MX
Left = 708
Top = 433
end
object PopupMenu2: TPopupMenu
Left = 824
Top = 364
object N9: TMenuItem
Caption = #22686#21152
end
object N8: TMenuItem
Caption = '-'
end
object N4: TMenuItem
Caption = #22686#34892
end
object N5: TMenuItem
Caption = #21024#34892
end
object N6: TMenuItem
Caption = '-'
end
object N7: TMenuItem
Caption = #29983#25104#37319#36141#21333
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 608
Top = 337
end
object ORDER_MX: TClientDataSet
Aggregates = <>
Params = <>
Left = 804
Top = 396
end
end