D7myzhenyong/报关管理(BaoGuan.dll)/U_BaoGuanInPut.dfm
DESKTOP-E401PHE\Administrator 237de1c308 0
2025-08-26 15:25:51 +08:00

1090 lines
27 KiB
Plaintext

object frmBaoGuanInPut: TfrmBaoGuanInPut
Left = 186
Top = 55
Width = 1326
Height = 708
Align = alClient
Caption = #25253#20851#36164#26009#24405#20837
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1318
Height = 33
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_DDMD.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 15
OnClick = TBSaveClick
end
object ToolButton4: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #23457#26680
ImageIndex = 22
Visible = False
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 370
Width = 1318
Height = 307
Align = alClient
TabOrder = 3
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource3
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1Column3
end
item
Kind = skSum
Column = Tv1Column7
end
item
Kind = skSum
Column = v1Column23
end
item
Kind = skSum
Column = Tv1Column8
end
item
Kind = skSum
Column = v1Column10
end
item
Kind = skSum
Column = Tv1Column2
end
item
Kind = skSum
Column = v1Column11
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
Styles.Inactive = DataLink_DDMD.SHuangSe
Styles.IncSearch = DataLink_DDMD.SHuangSe
Styles.Selection = DataLink_DDMD.SHuangSe
Styles.Header = DataLink_DDMD.Default
object v1Column21: TcxGridDBColumn
Tag = 2
Caption = #24207#21495
DataBinding.FieldName = 'XHInt'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 39
end
object v1Column13: TcxGridDBColumn
Tag = 2
Caption = #25351#31034#21333#21495
DataBinding.FieldName = 'orderno'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.ImmediatePost = True
Properties.Items.Strings = (
#26797#32455
#38024#32455
#32463#32534
#21050#32483
#38024#32455#32463#32534)
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 71
end
object v1Column5: TcxGridDBColumn
Tag = 2
Caption = #20013#25991#21697#21517
DataBinding.FieldName = 'C3BGName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = v1Column5PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 108
end
object v1Column20: TcxGridDBColumn
Tag = 2
Caption = #33521#25991#21697#21517
DataBinding.FieldName = 'C3BGNameEng'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 108
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #25104#20221
DataBinding.FieldName = 'YSChenFen'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column14PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 109
end
object v1YSKeZhong: TcxGridDBColumn
Tag = 2
Caption = #20811#37325
DataBinding.FieldName = 'YSKeZhong'
HeaderAlignmentHorz = taCenter
Width = 73
end
object v1Column15: TcxGridDBColumn
Tag = 2
Caption = #38376#24133
DataBinding.FieldName = 'YSFuKuan'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = v1Column15PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 65
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #20986#36135#25968#37327
DataBinding.FieldName = 'C4BGQty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 77
end
object VCC6BGPrice: TcxGridDBColumn
Tag = 2
Caption = #25253#20851#21333#20215
DataBinding.FieldName = 'C6BGPrice'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 70
end
object VCKHPrice: TcxGridDBColumn
Tag = 2
Caption = #23458#25143#21333#20215
DataBinding.FieldName = 'KHPrice'
HeaderAlignmentHorz = taCenter
Width = 71
end
object Tv1Column7: TcxGridDBColumn
Tag = 2
Caption = #37329#39069
DataBinding.FieldName = 'C7BGMoney'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 61
end
object v1Column1: TcxGridDBColumn
Tag = 2
Caption = #21333#20301
DataBinding.FieldName = 'C5BGUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.ImmediatePost = True
Properties.Items.Strings = (
'M'
'Y'
'KG'
#20010
#21253
#26465)
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 43
end
object v1Column23: TcxGridDBColumn
Tag = 2
Caption = #26679#21697#36153
DataBinding.FieldName = 'HDFee'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column10: TcxGridDBColumn
Tag = 2
Caption = 'HS'#32534#30721
DataBinding.FieldName = 'hscode'
HeaderAlignmentHorz = taCenter
Width = 69
end
object Tv1Column8: TcxGridDBColumn
Tag = 2
Caption = #20214#25968
DataBinding.FieldName = 'JS'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 71
end
object Tv1Column9: TcxGridDBColumn
Tag = 2
Caption = #20214#25968#21333#20301
DataBinding.FieldName = 'JSUNIT'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column9PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 69
end
object Tv1Column11: TcxGridDBColumn
Tag = 2
Caption = #21830#26816
DataBinding.FieldName = 'SJ'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
#26159
#21542)
HeaderAlignmentHorz = taCenter
Width = 69
end
object Tv1Column12: TcxGridDBColumn
Tag = 2
Caption = #32455#36896#26041#27861
DataBinding.FieldName = 'ZZFF'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column12PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 68
end
object Tv1Column13: TcxGridDBColumn
Tag = 2
Caption = #24037#33402#31867#22411
DataBinding.FieldName = 'GYLX'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column13PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 69
end
object Tv1Column14: TcxGridDBColumn
Tag = 2
Caption = #32441#36335
DataBinding.FieldName = 'WL'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column14PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 68
end
object Tv1Column15: TcxGridDBColumn
Tag = 2
Caption = #20323#37329#24773#20917
DataBinding.FieldName = 'YJQK'
HeaderAlignmentHorz = taCenter
Width = 67
end
object v1Column16: TcxGridDBColumn
Tag = 2
Caption = #24320#31080#20215
DataBinding.FieldName = 'KPPRICE'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 74
end
object Tv1Column1: TcxGridDBColumn
Tag = 2
Caption = #25253#20851#21697#21517
DataBinding.FieldName = 'BGCODENAME'
HeaderAlignmentHorz = taCenter
Width = 69
end
object v1Column10: TcxGridDBColumn
Tag = 2
Caption = #27611#37325'(KG)'
DataBinding.FieldName = 'E3MaoZ'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 60
end
object v1Column11: TcxGridDBColumn
Tag = 2
Caption = #20928#37325'(KG)'
DataBinding.FieldName = 'E4JingZ'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 65
end
object Tv1Column2: TcxGridDBColumn
Tag = 2
Caption = #20307#31215
DataBinding.FieldName = 'BGTJ'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column7PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column17: TcxGridDBColumn
Tag = 2
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'ZDDATE'
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Width = 102
end
object Tv1Column3: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'MXNOTE'
HeaderAlignmentHorz = taCenter
Width = 72
end
object Tv1Column5: TcxGridDBColumn
Tag = 2
Caption = #24037#21378#20195#30721
DataBinding.FieldName = 'GCDM'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column5PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 75
end
object Tv1Column6: TcxGridDBColumn
Tag = 2
Caption = #24037#21378
DataBinding.FieldName = 'GCNAME'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column6PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 74
end
object v1Column24: TcxGridDBColumn
Tag = 2
Caption = #22320#22336
DataBinding.FieldName = 'GCADDRESS'
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel1: TPanel
Left = 0
Top = 33
Width = 1318
Height = 304
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Label13: TLabel
Left = 17
Top = 15
Width = 72
Height = 12
Caption = #22806#38144#21457#31080#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 191
Top = 13
Width = 60
Height = 12
Caption = #23458#25143#21333#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 356
Top = 11
Width = 48
Height = 12
Caption = #20844' '#21496#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 755
Top = 74
Width = 48
Height = 12
Caption = #22825' '#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 556
Top = 104
Width = 60
Height = 12
Caption = #35746' '#33329' '#21333#65306
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 344
Top = 43
Width = 60
Height = 12
Caption = #19994' '#21153' '#21592#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 191
Top = 76
Width = 60
Height = 12
Caption = #30446' '#30340' '#28207#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 743
Top = 44
Width = 60
Height = 12
Caption = #25910#27719#26041#24335#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 29
Top = 77
Width = 60
Height = 12
Caption = #35013' '#36816' '#28207#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 29
Top = 105
Width = 60
Height = 12
Caption = #20215#26684#26465#27454#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label18: TLabel
Left = 344
Top = 104
Width = 60
Height = 12
Caption = #36816' '#36153#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 191
Top = 103
Width = 60
Height = 12
Caption = #20445' '#36153#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 29
Top = 44
Width = 60
Height = 12
Caption = #23458#25143#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label28: TLabel
Left = 555
Top = 73
Width = 60
Height = 12
Caption = #36816#36755#26041#24335#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label30: TLabel
Left = 556
Top = 13
Width = 60
Height = 12
Caption = #20986#36135#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label31: TLabel
Left = 556
Top = 44
Width = 60
Height = 12
Caption = #32467#31639#24065#31181#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 67
Top = 135
Width = 13
Height = 24
Caption = #21787#13#10#22836
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 580
Top = 136
Width = 13
Height = 60
Caption = #36135#13#10#29289#13#10#25551#13#10#36848#13#10
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 67
Top = 209
Width = 13
Height = 24
Caption = #22791#13#10#27880
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 767
Top = 11
Width = 36
Height = 12
Caption = #33337#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 743
Top = 104
Width = 60
Height = 12
Caption = #30446' '#30340' '#22269#65306
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 344
Top = 75
Width = 60
Height = 12
Caption = #19994#21153#32452#21035#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object A4FPNO: TEdit
Tag = 2
Left = 84
Top = 11
Width = 90
Height = 20
CharCase = ecUpperCase
TabOrder = 0
end
object A6PONO: TEdit
Tag = 2
Left = 252
Top = 9
Width = 90
Height = 20
CharCase = ecUpperCase
TabOrder = 1
end
object BGTAITOU: TBtnEditA
Tag = 2
Left = 401
Top = 8
Width = 116
Height = 20
Hint = 'BGTT/'#20844#21496
TabOrder = 9
Text = #32461#20852#24066#25391#27704#32442#32455#21697#26377#38480#20844#21496
OnBtnClick = B6ChuYunGangBtnClick
end
object days: TEdit
Tag = 2
Left = 801
Top = 70
Width = 89
Height = 20
TabOrder = 10
end
object DCNO: TBtnEditA
Tag = 2
Left = 614
Top = 100
Width = 119
Height = 20
Hint = 'B5HuoGui/'#36135#26588
TabOrder = 2
OnBtnClick = DCNOBtnClick
end
object B6ChuYunGang: TBtnEditA
Tag = 1
Left = 84
Top = 72
Width = 91
Height = 20
Hint = 'LCFromPlace/'#35013#36816#28207
ReadOnly = True
TabOrder = 3
OnBtnClick = B6ChuYunGangBtnClick
end
object B7DaoHuoGang: TBtnEditA
Tag = 1
Left = 252
Top = 72
Width = 90
Height = 20
Hint = 'LCTOPlace/'#30446#30340#28207
TabOrder = 4
OnBtnClick = B6ChuYunGangBtnClick
end
object SHFS: TBtnEditA
Tag = 1
Left = 801
Top = 41
Width = 90
Height = 20
Hint = 'SHFS/'#25910#27719#26041#24335
TabOrder = 5
OnBtnClick = SHFSBtnClick
end
object OrdConPrcNote: TBtnEditA
Tag = 2
Left = 84
Top = 101
Width = 90
Height = 20
Hint = 'OrdConPrcNote/'#20215#26684#26465#27454
TabOrder = 6
Text = 'C&F'
OnBtnClick = B6ChuYunGangBtnClick
end
object F2YunFee: TEdit
Tag = 1
Left = 401
Top = 101
Width = 112
Height = 20
TabOrder = 7
Text = '0'
end
object F3BaoFee: TEdit
Tag = 1
Left = 252
Top = 101
Width = 91
Height = 20
TabOrder = 8
Text = '0'
end
object KHName: TBtnEditA
Tag = 1
Left = 84
Top = 40
Width = 256
Height = 20
Hint = 'KHName/'#23458#25143#21517#31216
TabOrder = 11
OnBtnClick = KHNameBtnClick
end
object ZMXingZhi: TBtnEditA
Tag = 2
Left = 612
Top = 72
Width = 116
Height = 20
Hint = 'YSFS/'#36816#36755#26041#24335
TabOrder = 12
Text = 'BY SEA'
OnBtnClick = B6ChuYunGangBtnClick
end
object HTDate: TDateTimePicker
Tag = 2
Left = 614
Top = 9
Width = 116
Height = 20
Date = 42296.498237581020000000
Time = 42296.498237581020000000
TabOrder = 13
end
object JSBZ: TComboBox
Tag = 2
Left = 614
Top = 40
Width = 116
Height = 20
ItemHeight = 12
TabOrder = 14
Text = #32654#20803
Items.Strings = (
#20154#27665#24065
#32654#20803)
end
object ZhuMaiTou: TMemo
Tag = 2
Left = 88
Top = 134
Width = 397
Height = 64
Hint = 'WZhiLiangNote/'#36136#37327#35201#27714
ScrollBars = ssVertical
TabOrder = 15
end
object SellNOTE: TMemo
Tag = 2
Left = 614
Top = 132
Width = 397
Height = 64
Hint = 'WZhiLiangNote/'#36136#37327#35201#27714
ScrollBars = ssVertical
TabOrder = 16
end
object NOTE: TMemo
Tag = 2
Left = 88
Top = 206
Width = 397
Height = 64
Hint = 'WZhiLiangNote/'#36136#37327#35201#27714
ScrollBars = ssVertical
TabOrder = 17
end
object YWY: TComboBox
Tag = 2
Left = 400
Top = 40
Width = 115
Height = 20
ItemHeight = 12
TabOrder = 18
OnChange = YWYChange
OnDropDown = YWYDropDown
Items.Strings = (
#37049#24535#27426
#29579#20426#26480
#26446#33655#20848
#29579#29618
#37329#32418#29141
#23648#29577#21326
#29579#21531#39134
#28504#28023#29141
#40644#28113#23159
#34081#21015#23068)
end
object khcode: TEdit
Tag = 2
Left = 1156
Top = 5
Width = 90
Height = 20
CharCase = ecUpperCase
TabOrder = 19
Visible = False
end
object chuandate: TDateTimePicker
Tag = 2
Left = 801
Top = 7
Width = 87
Height = 20
Date = 42296.498237581020000000
Time = 42296.498237581020000000
TabOrder = 20
end
object TOCOUNTRY: TBtnEditA
Tag = 1
Left = 801
Top = 100
Width = 90
Height = 20
Hint = 'TOCOUNTRY/'#30446#30340#22269
TabOrder = 21
OnBtnClick = B6ChuYunGangBtnClick
end
object YWZB: TComboBox
Tag = 2
Left = 401
Top = 72
Width = 115
Height = 20
ItemHeight = 12
TabOrder = 22
OnDropDown = YWZBDropDown
end
end
object ToolBar2: TToolBar
Left = 0
Top = 337
Width = 1318
Height = 33
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_DDMD.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton2: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 12
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #19968#38190#26367#25442
ImageIndex = 19
OnClick = ToolButton1Click
end
object ToolButton3: TToolButton
Left = 150
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 13
OnClick = ToolButton3Click
end
end
object DataSource3: TDataSource
DataSet = CDS_Sub
Left = 501
Top = 431
end
object CDS_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 464
Top = 440
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DDMD.ADOLink
Parameters = <>
Left = 1080
Top = 272
end
object ADOQueryMain: TADOQuery
Connection = DataLink_DDMD.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1112
Top = 272
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_DDMD.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1144
Top = 272
end
object cxGridPopupMenu2: TcxGridPopupMenu
PopupMenus = <>
Left = 424
Top = 429
end
end