574 lines
16 KiB
Plaintext
574 lines
16 KiB
Plaintext
object frmKDInPut: TfrmKDInPut
|
|
Left = 189
|
|
Top = 133
|
|
Width = 1381
|
|
Height = 695
|
|
Caption = #23492#20214#20449#24687#24405#20837
|
|
Color = clBtnFace
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = #23435#20307
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnShow = FormShow
|
|
PixelsPerInch = 107
|
|
TextHeight = 13
|
|
object ToolBar1: TToolBar
|
|
Left = 0
|
|
Top = 0
|
|
Width = 1365
|
|
Height = 29
|
|
ButtonHeight = 30
|
|
ButtonWidth = 59
|
|
Caption = 'ToolBar1'
|
|
EdgeInner = esNone
|
|
EdgeOuter = esNone
|
|
Flat = True
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = #23435#20307
|
|
Font.Style = []
|
|
Images = DataLink_WTOA.ThreeImgList
|
|
List = True
|
|
ParentFont = False
|
|
ShowCaptions = True
|
|
TabOrder = 0
|
|
object TBSave: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #20445#23384
|
|
ImageIndex = 5
|
|
OnClick = TBSaveClick
|
|
end
|
|
object ToolButton3: TToolButton
|
|
Left = 63
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #22686#34892
|
|
ImageIndex = 12
|
|
OnClick = ToolButton3Click
|
|
end
|
|
object ToolButton4: TToolButton
|
|
Left = 126
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #21024#34892
|
|
ImageIndex = 13
|
|
OnClick = ToolButton4Click
|
|
end
|
|
object TBClose: TToolButton
|
|
Left = 189
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #20851#38381
|
|
ImageIndex = 21
|
|
OnClick = TBCloseClick
|
|
end
|
|
end
|
|
object cxGrid1: TcxGrid
|
|
Left = 0
|
|
Top = 29
|
|
Width = 1365
|
|
Height = 330
|
|
Align = alClient
|
|
TabOrder = 1
|
|
object Tv1: TcxGridDBTableView
|
|
NavigatorButtons.ConfirmDelete = False
|
|
OnCellClick = Tv1CellClick
|
|
DataController.DataSource = DataSource1
|
|
DataController.Summary.DefaultGroupSummaryItems = <
|
|
item
|
|
Kind = skSum
|
|
Position = spFooter
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Position = spFooter
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Position = spFooter
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Position = spFooter
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Position = spFooter
|
|
end>
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Column = v1Column3
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Column = v1Column2
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Column = v1HKMoney
|
|
end>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsBehavior.GoToNextCellOnEnter = True
|
|
OptionsCustomize.ColumnFiltering = False
|
|
OptionsView.Footer = True
|
|
OptionsView.GroupByBox = False
|
|
OptionsView.GroupFooters = gfAlwaysVisible
|
|
Styles.Header = DataLink_WTOA.Default
|
|
object v1Column10: TcxGridDBColumn
|
|
Caption = #23492#20214#26085#26399
|
|
DataBinding.FieldName = 'KDDate'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.Alignment.Horz = taCenter
|
|
Properties.Alignment.Vert = taVCenter
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 76
|
|
end
|
|
object v1ConNo: TcxGridDBColumn
|
|
Caption = #21512#21516#21495
|
|
DataBinding.FieldName = 'ConNo'
|
|
PropertiesClassName = 'TcxButtonEditProperties'
|
|
Properties.Buttons = <
|
|
item
|
|
Default = True
|
|
Kind = bkEllipsis
|
|
end>
|
|
Properties.OnButtonClick = v1ConNoPropertiesButtonClick
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 70
|
|
end
|
|
object v1Column5: TcxGridDBColumn
|
|
Caption = #24555#36882#21333#21495
|
|
DataBinding.FieldName = 'KDNo'
|
|
HeaderAlignmentHorz = taCenter
|
|
HeaderGlyphAlignmentHorz = taRightJustify
|
|
Width = 99
|
|
end
|
|
object v1Column1: TcxGridDBColumn
|
|
Caption = #24555#36882#20844#21496
|
|
DataBinding.FieldName = 'KDComName'
|
|
PropertiesClassName = 'TcxButtonEditProperties'
|
|
Properties.Buttons = <
|
|
item
|
|
Default = True
|
|
Kind = bkEllipsis
|
|
end>
|
|
Properties.ReadOnly = True
|
|
Properties.OnButtonClick = v1Column1PropertiesButtonClick
|
|
HeaderAlignmentHorz = taCenter
|
|
HeaderGlyphAlignmentHorz = taCenter
|
|
Width = 79
|
|
end
|
|
object v1Column11: TcxGridDBColumn
|
|
Caption = #23492#20214#20154
|
|
DataBinding.FieldName = 'JYPerson'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.CharCase = ecUpperCase
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 78
|
|
end
|
|
object v1Column12: TcxGridDBColumn
|
|
Caption = #19994#21153#21161#29702
|
|
DataBinding.FieldName = 'YWZhuLi'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.CharCase = ecUpperCase
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 82
|
|
end
|
|
object v1KHName: TcxGridDBColumn
|
|
Caption = #25910#20214#20154
|
|
DataBinding.FieldName = 'KHName'
|
|
PropertiesClassName = 'TcxButtonEditProperties'
|
|
Properties.Buttons = <
|
|
item
|
|
Default = True
|
|
Kind = bkEllipsis
|
|
end>
|
|
Properties.OnButtonClick = v1Column18PropertiesButtonClick
|
|
Properties.OnEditValueChanged = v1KHNamePropertiesEditValueChanged
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 94
|
|
end
|
|
object v1Column6: TcxGridDBColumn
|
|
Caption = #25910#20214#22320#22336
|
|
DataBinding.FieldName = 'ToPlace'
|
|
PropertiesClassName = 'TcxButtonEditProperties'
|
|
Properties.Buttons = <
|
|
item
|
|
Default = True
|
|
Kind = bkEllipsis
|
|
end>
|
|
Properties.OnButtonClick = v1Column6PropertiesButtonClick
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 75
|
|
end
|
|
object v1FKName: TcxGridDBColumn
|
|
Caption = #20184#27454#20154
|
|
DataBinding.FieldName = 'FKName'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 76
|
|
end
|
|
object v1Column13: TcxGridDBColumn
|
|
Caption = #25910#20214#20154#32852#31995#26041#24335
|
|
DataBinding.FieldName = 'KHLXFS'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 97
|
|
end
|
|
object v1Column9: TcxGridDBColumn
|
|
Caption = #25910#20214#22320#21306
|
|
DataBinding.FieldName = 'Country'
|
|
PropertiesClassName = 'TcxButtonEditProperties'
|
|
Properties.Buttons = <
|
|
item
|
|
Default = True
|
|
Kind = bkEllipsis
|
|
end>
|
|
Properties.ReadOnly = True
|
|
Properties.OnButtonClick = v1Column9PropertiesButtonClick
|
|
HeaderAlignmentHorz = taCenter
|
|
HeaderGlyphAlignmentHorz = taCenter
|
|
Width = 80
|
|
end
|
|
object v1Column8: TcxGridDBColumn
|
|
Caption = #23492#20214#36135#29289#35814#24773
|
|
DataBinding.FieldName = 'KDInfo'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 87
|
|
end
|
|
object v1Column14: TcxGridDBColumn
|
|
Caption = #25968#37327
|
|
DataBinding.FieldName = 'Qty'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 58
|
|
end
|
|
object v1Column2: TcxGridDBColumn
|
|
Caption = #24555#36882#36153#29992
|
|
DataBinding.FieldName = 'KDMoneyS'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 72
|
|
end
|
|
object v1FeeShouQuType: TcxGridDBColumn
|
|
Caption = #36153#29992#25910#21462#26041#24335
|
|
DataBinding.FieldName = 'FeeShouQuType'
|
|
PropertiesClassName = 'TcxComboBoxProperties'
|
|
Properties.DropDownListStyle = lsFixedList
|
|
Properties.Items.Strings = (
|
|
#20844#36153
|
|
#33258#36153
|
|
#29616#37329)
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 94
|
|
end
|
|
object v1Column20: TcxGridDBColumn
|
|
Caption = #23492#20214#31867#22411
|
|
DataBinding.FieldName = 'KDType'
|
|
PropertiesClassName = 'TcxComboBoxProperties'
|
|
Properties.DropDownListStyle = lsFixedList
|
|
Properties.Items.Strings = (
|
|
#21253#35065
|
|
#24555#36882#34955
|
|
#25991#20214)
|
|
Visible = False
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 72
|
|
end
|
|
object v1Column4: TcxGridDBColumn
|
|
Caption = #20184#27454#26041#24335
|
|
DataBinding.FieldName = 'FKType'
|
|
PropertiesClassName = 'TcxComboBoxProperties'
|
|
Properties.DropDownListStyle = lsFixedList
|
|
Properties.Items.Strings = (
|
|
#23492#20184
|
|
#21040#20184
|
|
#20195#20184)
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 72
|
|
end
|
|
object v1Column3: TcxGridDBColumn
|
|
Caption = #37325#37327'(KG)'
|
|
DataBinding.FieldName = 'KgQty'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.Alignment.Horz = taCenter
|
|
Properties.Alignment.Vert = taVCenter
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 78
|
|
end
|
|
object v1IFDS: TcxGridDBColumn
|
|
Caption = #26159#21542#20195#25910#36135#27454
|
|
DataBinding.FieldName = 'IFDS'
|
|
PropertiesClassName = 'TcxComboBoxProperties'
|
|
Properties.DropDownListStyle = lsFixedList
|
|
Properties.Items.Strings = (
|
|
#26159
|
|
'')
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 84
|
|
end
|
|
object v1HKMoney: TcxGridDBColumn
|
|
Caption = #36135#27454#37329#39069
|
|
DataBinding.FieldName = 'HKMoney'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 69
|
|
end
|
|
object v1Note: TcxGridDBColumn
|
|
Caption = #22791#27880
|
|
DataBinding.FieldName = 'Note'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 147
|
|
end
|
|
end
|
|
object cxGrid1Level1: TcxGridLevel
|
|
GridView = Tv1
|
|
end
|
|
end
|
|
object ToolBar2: TToolBar
|
|
Left = 0
|
|
Top = 359
|
|
Width = 1365
|
|
Height = 29
|
|
Align = alBottom
|
|
ButtonHeight = 30
|
|
ButtonWidth = 83
|
|
Caption = 'ToolBar1'
|
|
EdgeInner = esNone
|
|
EdgeOuter = esNone
|
|
Flat = True
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = #23435#20307
|
|
Font.Style = []
|
|
Images = DataLink_WTOA.ThreeImgList
|
|
List = True
|
|
ParentFont = False
|
|
ShowCaptions = True
|
|
TabOrder = 2
|
|
object ToolButton1: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #20445#23384
|
|
ImageIndex = 15
|
|
OnClick = ToolButton1Click
|
|
end
|
|
object TYPADD: TToolButton
|
|
Left = 63
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #26679#21697#22686#34892
|
|
ImageIndex = 12
|
|
OnClick = TYPADDClick
|
|
end
|
|
object ToolButton2: TToolButton
|
|
Left = 150
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #33457#22411#22686#34892
|
|
ImageIndex = 12
|
|
OnClick = ToolButton2Click
|
|
end
|
|
object ToADD: TToolButton
|
|
Left = 237
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #25163#21160#22686#34892
|
|
ImageIndex = 12
|
|
OnClick = ToADDClick
|
|
end
|
|
object ToolButton5: TToolButton
|
|
Left = 324
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #21024#34892
|
|
ImageIndex = 13
|
|
OnClick = ToolButton5Click
|
|
end
|
|
end
|
|
object cxGrid2: TcxGrid
|
|
Left = 0
|
|
Top = 388
|
|
Width = 1365
|
|
Height = 267
|
|
Align = alBottom
|
|
TabOrder = 3
|
|
object Tv2: TcxGridDBTableView
|
|
NavigatorButtons.ConfirmDelete = False
|
|
DataController.DataSource = DataSource2
|
|
DataController.Summary.DefaultGroupSummaryItems = <
|
|
item
|
|
Kind = skSum
|
|
Position = spFooter
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Position = spFooter
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Position = spFooter
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Position = spFooter
|
|
end>
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end
|
|
item
|
|
Kind = skSum
|
|
end>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsCustomize.ColumnFiltering = False
|
|
OptionsView.Footer = True
|
|
OptionsView.GroupByBox = False
|
|
OptionsView.GroupFooters = gfAlwaysVisible
|
|
Styles.Inactive = DataLink_WTOA.SkyBlue
|
|
Styles.IncSearch = DataLink_WTOA.SkyBlue
|
|
Styles.Selection = DataLink_WTOA.SkyBlue
|
|
Styles.Header = DataLink_WTOA.Default
|
|
object cxGridDBColumn3: TcxGridDBColumn
|
|
Caption = #20135#21697#32534#21495
|
|
DataBinding.FieldName = 'CYNO'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged
|
|
HeaderAlignmentHorz = taCenter
|
|
HeaderGlyphAlignmentHorz = taCenter
|
|
Width = 115
|
|
end
|
|
object v2Column2: TcxGridDBColumn
|
|
Caption = #20135#21697#21517#31216
|
|
DataBinding.FieldName = 'CYName'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 92
|
|
end
|
|
object cxGridDBColumn4: TcxGridDBColumn
|
|
Caption = #25104#20998
|
|
DataBinding.FieldName = 'CYCF'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.Alignment.Horz = taCenter
|
|
Properties.Alignment.Vert = taVCenter
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 104
|
|
end
|
|
object cxGridDBColumn5: TcxGridDBColumn
|
|
Caption = #38376#24133
|
|
DataBinding.FieldName = 'CYMF'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 99
|
|
end
|
|
object cxGridDBColumn6: TcxGridDBColumn
|
|
Caption = #20811#37325
|
|
DataBinding.FieldName = 'CYKZ'
|
|
HeaderAlignmentHorz = taCenter
|
|
HeaderGlyphAlignmentHorz = taCenter
|
|
Width = 99
|
|
end
|
|
object cxGridDBColumn9: TcxGridDBColumn
|
|
Caption = #25968#37327
|
|
DataBinding.FieldName = 'Qty'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 72
|
|
end
|
|
object cxGridDBColumn10: TcxGridDBColumn
|
|
Caption = #25968#37327#21333#20301
|
|
DataBinding.FieldName = 'QtyUnit'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.Alignment.Horz = taCenter
|
|
Properties.Alignment.Vert = taVCenter
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 69
|
|
end
|
|
object cxGridDBColumn17: TcxGridDBColumn
|
|
Caption = #22791#27880
|
|
DataBinding.FieldName = 'Note'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 104
|
|
end
|
|
end
|
|
object cxGridLevel1: TcxGridLevel
|
|
GridView = Tv2
|
|
end
|
|
end
|
|
object ADOTemp: TADOQuery
|
|
Connection = DataLink_WTOA.ADOLink
|
|
LockType = ltReadOnly
|
|
Parameters = <>
|
|
Left = 344
|
|
Top = 77
|
|
end
|
|
object ADOCmd: TADOQuery
|
|
Connection = DataLink_WTOA.ADOLink
|
|
Parameters = <>
|
|
Left = 373
|
|
Top = 75
|
|
end
|
|
object DataSource1: TDataSource
|
|
DataSet = Order_Sub
|
|
Left = 471
|
|
Top = 80
|
|
end
|
|
object Order_Sub: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 398
|
|
Top = 76
|
|
end
|
|
object cxGridPopupMenu1: TcxGridPopupMenu
|
|
Grid = cxGrid1
|
|
PopupMenus = <>
|
|
Left = 434
|
|
Top = 78
|
|
end
|
|
object DataSource2: TDataSource
|
|
DataSet = ClientDataSet2
|
|
Left = 630
|
|
Top = 422
|
|
end
|
|
object cxGridPopupMenu2: TcxGridPopupMenu
|
|
Grid = cxGrid2
|
|
PopupMenus = <>
|
|
Left = 665
|
|
Top = 424
|
|
end
|
|
object ClientDataSet2: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 701
|
|
Top = 425
|
|
end
|
|
end
|