D7myChuangpin/管理系统/U_OrderInPut.dfm
“ddf” ece69a5ac1 1
2024-07-23 20:18:14 +08:00

720 lines
17 KiB
Plaintext

object frmOrderInPut: TfrmOrderInPut
Left = 197
Top = 80
Width = 1394
Height = 738
Caption = #22823#36135#21333#24405#20837
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
WindowState = wsMaximized
OnCloseQuery = FormCloseQuery
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 907
Top = 375
Width = 353
Height = 25
BevelOuter = bvNone
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
Visible = False
object Label22: TLabel
Left = 112
Top = 4
Width = 42
Height = 13
Caption = #21305#25968#65306
end
object Label23: TLabel
Left = 212
Top = 4
Width = 42
Height = 13
Caption = #25968#37327#65306
end
object Label29: TLabel
Left = 12
Top = 4
Width = 42
Height = 13
Caption = #21333#20215#65306
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1378
Height = 29
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_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 14
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 29
Width = 1378
Height = 307
Align = alTop
Color = clBtnFace
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 2
object Label1: TLabel
Tag = 2
Left = 34
Top = 21
Width = 65
Height = 12
Caption = #30003#35831#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clHotLight
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Tag = 2
Left = 546
Top = 51
Width = 65
Height = 12
Caption = #30003#35831#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Tag = 2
Left = 546
Top = 78
Width = 65
Height = 12
Caption = #20132#36135#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Tag = 2
Left = 274
Top = 51
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 Label14: TLabel
Tag = 2
Left = 273
Top = 22
Width = 67
Height = 12
Caption = #23458' '#25143#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Tag = 2
Left = 546
Top = 23
Width = 65
Height = 12
Caption = #35746#21333#26469#28304#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label34: TLabel
Tag = 2
Left = 34
Top = 49
Width = 65
Height = 12
Caption = #22791#26696#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label35: TLabel
Tag = 2
Left = 34
Top = 76
Width = 65
Height = 12
Caption = #25152#22312#37096#38376#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label36: TLabel
Tag = 2
Left = 275
Top = 77
Width = 65
Height = 12
Caption = #29289#27969#26041#24335#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label37: TLabel
Tag = 2
Left = 34
Top = 105
Width = 65
Height = 12
Caption = #25910#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 Label38: TLabel
Tag = 2
Left = 274
Top = 104
Width = 66
Height = 12
Caption = #25910' '#36135' '#20154#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label40: TLabel
Tag = 2
Left = 32
Top = 130
Width = 67
Height = 12
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Tag = 2
Left = 546
Top = 104
Width = 65
Height = 12
Caption = #32852#31995#30005#35805#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 = 546
Top = 130
Width = 52
Height = 12
Caption = #35746#21333#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrderNo: TEdit
Tag = 2
Left = 97
Top = 18
Width = 138
Height = 18
Enabled = False
TabOrder = 0
end
object OrdDate: TDateTimePicker
Tag = 2
Left = 609
Top = 47
Width = 138
Height = 20
BevelInner = bvNone
Date = 40916.670856296290000000
Format = 'yyyy-MM-dd'
Time = 40916.670856296290000000
TabOrder = 5
OnChange = OrdDateChange
end
object DlyDate: TDateTimePicker
Tag = 2
Left = 609
Top = 74
Width = 138
Height = 20
BevelInner = bvNone
Date = 40916.670856296290000000
Format = 'yyyy-MM-dd'
Time = 40916.670856296290000000
ShowCheckbox = True
TabOrder = 8
end
object CustomerNoName: TBtnEditC
Tag = 2
Left = 337
Top = 18
Width = 136
Height = 20
Hint = 'CustomerNo'
TabOrder = 1
OnChange = CustomerNoNameChange
OnBtnUpClick = CustomerNoNameBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object OrdPerson1: TBtnEditA
Tag = 2
Left = 336
Top = 46
Width = 137
Height = 20
TabOrder = 4
OnBtnClick = OrdPerson1BtnClick
end
object FromConNo: TBtnEditC
Tag = 2
Left = 608
Top = 20
Width = 138
Height = 20
Hint = 'FromConNo/'#35746#21333#26469#28304
TabOrder = 2
OnBtnUpClick = FromConNoBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object BAnOrder: TEdit
Tag = 2
Left = 97
Top = 46
Width = 138
Height = 18
TabOrder = 3
OnKeyPress = ConNoKeyPress
end
object FromBuM: TBtnEditC
Tag = 2
Left = 97
Top = 72
Width = 138
Height = 20
Hint = 'FromBuM/'#25152#22312#37096#38376
TabOrder = 6
OnBtnUpClick = FromBuMBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object WlFshi: TBtnEditC
Tag = 2
Left = 336
Top = 73
Width = 138
Height = 20
Hint = 'WlFshi/'#29289#27969#26041#24335
TabOrder = 7
OnBtnUpClick = WlFshiBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object ShuoAddress: TBtnEditC
Tag = 2
Left = 97
Top = 101
Width = 138
Height = 20
Hint = 'ShuoAddress/'#25910#36135#22320#22336
TabOrder = 11
OnBtnUpClick = ShuoAddressBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object SHPerson: TBtnEditC
Tag = 2
Left = 337
Top = 100
Width = 138
Height = 20
Hint = 'SHPerson/'#25910#36135#20154
TabOrder = 9
OnBtnUpClick = SHPersonBtnUpClick
OnBtnDnClick = CustomerNoNameBtnDnClick
end
object Note: TMemo
Tag = 2
Left = 97
Top = 128
Width = 395
Height = 96
ScrollBars = ssVertical
TabOrder = 12
end
object tybTel: TEdit
Tag = 2
Left = 609
Top = 100
Width = 138
Height = 18
TabOrder = 10
end
object OrderType: TComboBox
Tag = 2
Left = 609
Top = 128
Width = 138
Height = 20
ItemHeight = 12
ItemIndex = 0
TabOrder = 13
Text = #27491#24120#21333
Items.Strings = (
#27491#24120#21333
#36864#20179#21333)
end
end
object ToolBar2: TToolBar
Left = 0
Top = 336
Width = 1378
Height = 28
ButtonHeight = 30
ButtonWidth = 83
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_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 3
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 103
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 107
OnClick = ToolButton2Click
end
object ToolButton3: TToolButton
Left = 126
Top = 0
Caption = #19968#38190#26367#25442
ImageIndex = 104
OnClick = ToolButton3Click
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 364
Width = 1378
Height = 335
Align = alClient
TabOrder = 4
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellClick = Tv1CellClick
DataController.DataSource = DataSource1
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
Format = '0'#34892
Kind = skCount
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsCustomize.ColumnSorting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_TradeManage.SHuangSe
Styles.IncSearch = DataLink_TradeManage.SHuangSe
Styles.Selection = DataLink_TradeManage.SHuangSe
Styles.Header = DataLink_TradeManage.handBlack
object v1XHNo: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'PRTCode'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 85
end
object v1Column5: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'PRTCodeName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'PRTOrderQty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 72
end
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrderUnit'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1OrderUnitPropertiesButtonClick
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeManage.Default
Width = 66
end
object v1Column2: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'PRTPrice'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1PRTOrderQtyPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 82
end
object v1Column3: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'PRTMoney'
HeaderAlignmentHorz = taCenter
Width = 86
end
object v1Column19: TcxGridDBColumn
Caption = #38754#26009
DataBinding.FieldName = 'PRTML'
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column20: TcxGridDBColumn
Caption = #25104#21697#23610#23544
DataBinding.FieldName = 'PRTCC'
HeaderAlignmentHorz = taCenter
Width = 75
end
object v1Sorddefnote1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Sorddefnote1'
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column1: TcxGridDBColumn
Caption = #35268#26684#21697#29983#20135#24037#33402
DataBinding.FieldName = 'SCGYi'
HeaderAlignmentHorz = taCenter
Width = 194
end
object v1Column4: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'PrtCurrency'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'RMB'
'USD')
HeaderAlignmentHorz = taCenter
Width = 65
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Picture4: TcxDBImage
Left = 795
Top = 28
Hint = 'FileName'
DataBinding.DataField = 'FilesOther'
DataBinding.DataSource = DS_Pic
Properties.GraphicClassName = 'TJPEGImage'
Properties.ReadOnly = True
Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle
TabOrder = 1
Height = 309
Width = 392
end
object ADOTemp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1000
Top = 1
end
object ADOCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 880
Top = 1
end
object DataSource1: TDataSource
DataSet = Order_Sub
Left = 560
Top = 476
end
object Order_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 504
Top = 476
end
object ADOQuery1: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 928
Top = 1
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 1060
Top = 1
end
object ADO_KH: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 764
end
object DS_KH: TDataSource
DataSet = ADO_KH
Left = 812
end
object ADOQueryImage: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 614
Top = 478
end
object DS_Pic: TDataSource
DataSet = ADOQueryImage
Left = 668
Top = 476
end
end