RTFormwork/项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketInPut.dfm
2024-07-29 13:06:23 +08:00

873 lines
23 KiB
Plaintext

inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 143
Top = 4
Caption = #35746#21333#24405#20837
ClientHeight = 650
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
Position = poMainFormCenter
WindowState = wsMaximized
ExplicitWidth = 1556
ExplicitHeight = 689
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object ToolButton3: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ToolBar2: TToolBar [1]
Left = 0
Top = 217
Width = 1540
Height = 34
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
object ToolButton4: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20135#21697#36873#25321
ImageIndex = 4
OnClick = ToolButton4Click
end
object ToolButton1: TToolButton
Left = 95
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
object ToolButton5: TToolButton
Left = 237
Top = 0
Caption = #19968#38190#26367#25442
ImageIndex = 17
OnClick = ToolButton3Click
end
end
object Panel2: TPanel [2]
Left = 0
Top = 251
Width = 1540
Height = 399
Align = alClient
Caption = 'Panel2'
TabOrder = 2
object Panel3: TPanel
Left = 1
Top = 1
Width = 900
Height = 397
Align = alLeft
Caption = 'Panel2'
TabOrder = 0
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 898
Height = 395
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
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
item
Kind = skSum
Column = VC_PRTPs
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsData.Deleting = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Footer = DataLink_TradeMarket.Default
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object Tv1Column3: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 50
end
object v1Column11: TcxGridDBColumn
Tag = 99
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column7: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1PRTColor: TcxGridDBColumn
Caption = #20013#25991#39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeMarket.handBlack
Width = 116
end
object Tv1Column9: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column11: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column5: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column10: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object VC_PRTPs: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'TMSPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'TMSQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradeMarket.Default
Width = 98
end
object Tv1Column8: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'TMSUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'M'
'Y'
'Kg'
#21305)
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column4: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column6: TcxGridDBColumn
Caption = #21253#32568#36153
DataBinding.FieldName = 'GangFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column13: TcxGridDBColumn
Caption = #36816#36153
DataBinding.FieldName = 'Transfee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column14: TcxGridDBColumn
Caption = #20854#23427#36153
DataBinding.FieldName = 'Otherfee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'OrdSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 105
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
object Panel4: TPanel
Left = 901
Top = 1
Width = 638
Height = 397
Align = alClient
Caption = 'Panel4'
TabOrder = 1
object Panel5: TPanel
Left = 1
Top = 1
Width = 636
Height = 41
Align = alTop
TabOrder = 0
object Label33: TLabel
Left = 20
Top = 8
Width = 44
Height = 21
Caption = #25968#37327
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label38: TLabel
Left = 304
Top = 8
Width = 44
Height = 21
Caption = #24207#21495
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object QtyMX: TEdit
Left = 70
Top = 9
Width = 89
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnKeyPress = QtyMXKeyPress
end
end
object GroupBox2: TGroupBox
Left = 1
Top = 42
Width = 636
Height = 354
Align = alClient
Caption = #21452#20987#21024#38500#26126#32454#20449#24687
TabOrder = 1
object cxGrid2: TcxGrid
Left = 2
Top = 14
Width = 632
Height = 338
Align = alClient
TabOrder = 0
object TvMX: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = TvMXCellDblClick
DataController.DataSource = DS_MX
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skCount
Position = spFooter
end
item
Kind = skSum
Position = spFooter
Column = cxGridDBColumn8
end
item
Kind = skCount
end
item
Kind = skSum
Column = cxGridDBColumn8
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = cxGridDBColumn8
end
item
Kind = skCount
Column = cxGridDBColumn8
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 33
object cxGridDBColumn8: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 66
end
end
object cxGridLevel2: TcxGridLevel
GridView = TvMX
end
end
end
end
end
object Panel1: TPanel [3]
Left = 626
Top = 213
Width = 537
Height = 25
BevelOuter = bvNone
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
object Label22: TLabel
Left = 112
Top = 4
Width = 45
Height = 14
Caption = #21305#25968#65306
end
object Label23: TLabel
Left = 212
Top = 4
Width = 45
Height = 14
Caption = #25968#37327#65306
end
object Label29: TLabel
Left = 12
Top = 4
Width = 45
Height = 14
Caption = #21333#20215#65306
end
object Label34: TLabel
Left = 335
Top = 4
Width = 45
Height = 14
Caption = #21305#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label35: TLabel
Left = 435
Top = 4
Width = 45
Height = 14
Caption = #25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
end
object ScrollBox1: TScrollBox [4]
Left = 0
Top = 38
Width = 1540
Height = 179
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 4
OnClick = ScrollBox1Click
object Label3: TLabel
Left = 404
Top = 7
Width = 52
Height = 15
Caption = #21046#21333#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label25: TLabel
Left = 215
Top = 7
Width = 52
Height = 15
Caption = #20132#36135#26085#26399
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 23
Top = 102
Width = 53
Height = 15
Caption = #22791' '#27880
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 37
Top = 6
Width = 39
Height = 15
Caption = #35746#21333#21495
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 217
Top = 35
Width = 50
Height = 15
Caption = #23458' '#25143
Font.Charset = ANSI_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 24
Top = 35
Width = 52
Height = 15
Caption = #32463#33829#21333#20301
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 202
Top = 64
Width = 65
Height = 12
Caption = #32852#31995#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
Left = 11
Top = 64
Width = 65
Height = 12
Caption = #35746#21333#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 404
Top = 35
Width = 52
Height = 12
Caption = #21457#36135#22320#22336
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TMMNo: TEdit
Tag = 2
Left = 78
Top = 6
Width = 100
Height = 18
TabOrder = 0
end
object TMMDate: TDateTimePicker
Tag = 2
Left = 458
Top = 4
Width = 100
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
TabOrder = 1
end
object DLYDate: TDateTimePicker
Tag = 2
Left = 273
Top = 4
Width = 100
Height = 20
BevelInner = bvNone
Date = 40916.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.670856296288548000
ShowCheckbox = True
TabOrder = 2
end
object OrdNote: TMemo
Tag = 2
Left = 82
Top = 107
Width = 476
Height = 58
Hint = 'OrdNote/'#22791#27880
ScrollBars = ssVertical
TabOrder = 3
OnDblClick = PackNoteDblClick
end
object CustName: TBtnEditC
Tag = 2
Left = 273
Top = 32
Width = 100
Height = 20
ReadOnly = True
TabOrder = 4
OnBtnUpClick = CustNameBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
end
object OurCoName: TBtnEditC
Tag = 2
Left = 78
Top = 32
Width = 100
Height = 20
ReadOnly = True
TabOrder = 5
OnBtnUpClick = OurCoNameBtnUpClick
OnBtnDnClick = OurCoNameBtnDnClick
end
object CONTACT: TBtnEditC
Tag = 2
Left = 273
Top = 59
Width = 285
Height = 20
TabOrder = 6
OnBtnUpClick = CONTACTBtnUpClick
end
object OrdType: TComboBox
Tag = 2
Left = 78
Top = 59
Width = 100
Height = 20
Style = csDropDownList
Ctl3D = False
Enabled = False
ItemIndex = 0
ParentCtl3D = False
TabOrder = 7
Text = #27491#24120#21333
Items.Strings = (
#27491#24120#21333)
end
object ShippingAddress: TBtnEditC
Tag = 2
Left = 458
Top = 32
Width = 100
Height = 20
TabOrder = 8
OnBtnUpClick = ShippingAddressBtnUpClick
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 265
Top = 504
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Left = 353
Top = 505
end
inherited ImageList_new32: TImageList
Left = 1480
Top = 32
end
object ADOTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 504
Top = 396
end
object ADOCmd: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 592
Top = 389
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 584
Top = 512
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 515
Top = 508
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>
Left = 436
Top = 509
end
object ADOQueryLabel: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 932
Top = 421
end
object ADO_I1: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 864
Top = 75
end
object DS_I1: TDataSource
DataSet = ADO_I1
Left = 884
Top = 71
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 840
Top = 162
end
object ADO_I2: TADOQuery
Connection = DataLink_TradeMarket.ADOLink
Parameters = <>
Left = 1048
Top = 75
end
object DS_I2: TDataSource
DataSet = ADO_I2
Left = 1124
Top = 71
end
object DS_MX: TDataSource
DataSet = CDS_MX
Left = 1056
Top = 444
end
object CDS_MX: TClientDataSet
Aggregates = <>
Params = <>
Left = 1008
Top = 412
end
end