D10SZKaiXiYa/B02基础纱线仓库/U_YarnInList2.dfm
DESKTOP-E401PHE\Administrator 53e8f4820d 11
2025-03-01 10:55:52 +08:00

978 lines
26 KiB
Plaintext

inherited frmYarnInList2: TfrmYarnInList2
Left = 165
Top = 111
Caption = #32433#32447#36710#38388#20837#24211
ClientHeight = 640
ClientWidth = 1789
Font.Height = -16
ExplicitWidth = 1805
ExplicitHeight = 679
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1789
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 131
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_YarnStk.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 3
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
Visible = False
OnClick = TBFindClick
end
object TBAdd: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #20837#24211
ImageIndex = 9
OnClick = TBAddClick
end
object ToolButton4: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #26579#33394#25340#32433#21152#25467#22238#20179
ImageIndex = 9
Visible = False
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 324
Top = 0
AutoSize = True
Caption = #36864#36135#22238#20179
ImageIndex = 9
Visible = False
OnClick = ToolButton5Click
end
object TBEdit: TToolButton
Left = 411
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = TBEditClick
end
object ToolButton3: TToolButton
Left = 474
Top = 0
AutoSize = True
Caption = #23454#27979'D'#25968
ImageIndex = 3
Visible = False
OnClick = ToolButton3Click
end
object ToolButton8: TToolButton
Left = 555
Top = 0
AutoSize = True
Caption = #26597#30475#26126#32454
ImageIndex = 8
OnClick = ToolButton8Click
end
object ToolButton2: TToolButton
Left = 642
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = ToolButton2Click
end
object TBDel: TToolButton
Left = 705
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDelClick
end
object TBExport: TToolButton
Left = 768
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object ToolButton1: TToolButton
Left = 831
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 918
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1789
Height = 118
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 4
ExplicitWidth = 304
object Label3: TLabel
Left = 844
Top = 51
Width = 40
Height = 21
AutoSize = False
Caption = #35268#26684
end
object Label4: TLabel
Left = 274
Top = 51
Width = 70
Height = 21
AutoSize = False
Caption = #26469#33258#21333#20301
end
object Label8: TLabel
Left = 842
Top = 89
Width = 85
Height = 21
AutoSize = False
Caption = #32463#32433'/'#32428#32433
end
object Label12: TLabel
Left = 24
Top = 89
Width = 70
Height = 21
AutoSize = False
Caption = #20837#24211#31867#22411
end
object Label10: TLabel
Left = 1106
Top = 51
Width = 70
Height = 21
AutoSize = False
Caption = #26412#21378#25209#21495
end
object Label6: TLabel
Left = 24
Top = 51
Width = 70
Height = 21
AutoSize = False
Caption = #20837#24211#21333#21495
end
object Label5: TLabel
Left = 274
Top = 89
Width = 68
Height = 21
AutoSize = False
Caption = #23384#25918#21333#20301
end
object Label1: TLabel
Left = 1106
Top = 89
Width = 87
Height = 21
AutoSize = False
Caption = #20379#24212#21830#25209#21495
end
object Label2: TLabel
Left = 1418
Top = 51
Width = 70
Height = 21
AutoSize = False
Caption = #21152#24037#25209#21495
end
object Label7: TLabel
Left = 544
Top = 51
Width = 70
Height = 21
AutoSize = False
Caption = #32534#21495
end
object Label9: TLabel
Left = 544
Top = 91
Width = 68
Height = 21
AutoSize = False
Caption = #21697#21517
end
object Y_Name: TcxTextEdit
Tag = 2
Left = 931
Top = 45
ParentFont = False
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 0
Width = 150
end
object FromCoName: TcxTextEdit
Tag = 2
Left = 348
Top = 45
ParentFont = False
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 1
Width = 150
end
object BCPH: TcxTextEdit
Tag = 2
Left = 1210
Top = 45
ParentFont = False
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 2
Width = 150
end
object BYIOID: TcxTextEdit
Tag = 2
Left = 98
Top = 45
ParentFont = False
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 3
Width = 150
end
object StkCoName: TcxTextEdit
Tag = 2
Left = 348
Top = 83
ParentFont = False
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 4
Width = 150
end
inline Frame11: TfrmFrameDateSel
Left = 2
Top = 2
Width = 1785
Height = 37
Align = alTop
Color = clWhite
ParentBackground = False
ParentColor = False
TabOrder = 5
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 300
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
ExplicitWidth = 16
ExplicitHeight = 21
end
end
object IOType: TcxComboBox
Left = 96
Top = 83
ParentFont = False
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
''
#37319#36141#20837#24211
#26579#33394#20837#24211
#24182#32433#20837#24211
#21152#25467#20837#24211
#20179#24211#36864#22238
#26399#21021#20837#24211
#30424#30408#20837#24211)
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 6
Width = 150
end
object GYSPH: TcxTextEdit
Tag = 2
Left = 1210
Top = 83
ParentFont = False
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 7
Width = 150
end
object JGPH: TcxTextEdit
Tag = 2
Left = 1522
Top = 45
ParentFont = False
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 8
Width = 150
end
object Y_Spec: TcxComboBox
Tag = 2
Left = 933
Top = 84
ParentFont = False
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
''
#32463#32433
#32428#32433
#32463#32433'/'#32428#32433)
Properties.OnChange = BYIOIDPropertiesChange
Style.Font.Charset = ANSI_CHARSET
Style.Font.Color = clWindowText
Style.Font.Height = -14
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = []
Style.IsFontAssigned = True
TabOrder = 9
Width = 150
end
object Y_Code: TcxTextEdit
Tag = 2
Left = 618
Top = 45
ParentFont = False
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 10
Width = 150
end
object Yarn_Name: TcxTextEdit
Tag = 2
Left = 618
Top = 83
ParentFont = False
Properties.OnChange = BYIOIDPropertiesChange
TabOrder = 11
Width = 150
end
end
object Panel2: TPanel [2]
Left = 0
Top = 148
Width = 1789
Height = 492
Align = alClient
Caption = 'Panel2'
TabOrder = 2
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1399
Height = 490
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 0
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
Column = v2Column6
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
Column = v1Column6
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object Tv1Column9: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSEL'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 46
end
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BYIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object v1Column2: TcxGridDBColumn
Tag = 2
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'ioTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 93
end
object v1Column4: TcxGridDBColumn
Tag = 2
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
#27491#24120#20837#24211
#29983#20135#36864#22238
#26399#21021#20837#24211)
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object Tv1Column15: TcxGridDBColumn
Caption = #37319#36141#31867#22411
DataBinding.FieldName = 'PurType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column7: TcxGridDBColumn
Caption = #37319#36141#21512#21516#21495
DataBinding.FieldName = 'FromPurNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object v1Column14: TcxGridDBColumn
Tag = 2
Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 116
end
object Tv1Column4: TcxGridDBColumn
Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 91
end
object Tv1Column12: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'Y_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object Tv1Column2: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'Yarn_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForRowLayout = bTrue
Width = 80
end
object v2Column1: TcxGridDBColumn
Tag = 2
Caption = #35268#26684
DataBinding.FieldName = 'Y_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object v1Column8: TcxGridDBColumn
Tag = 2
Caption = #32463#32433'/'#32428#32433
DataBinding.FieldName = 'Y_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 103
end
object Tv1Column3: TcxGridDBColumn
Caption = 'D'#25968
DataBinding.FieldName = 'Denier'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForRowLayout = bTrue
Width = 80
end
object Tv1Column6: TcxGridDBColumn
Caption = #25903#25968
DataBinding.FieldName = 'Z_Number'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForRowLayout = bTrue
Width = 81
end
object Tv1Column10: TcxGridDBColumn
Caption = 'F'#25968
DataBinding.FieldName = 'F_Number'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForRowLayout = bTrue
Width = 80
end
object Tv1Column8: TcxGridDBColumn
Caption = #32433#32447#31561#32423
DataBinding.FieldName = 'Y_Type'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v1Column10: TcxGridDBColumn
Caption = #26412#21378#25209#21495
DataBinding.FieldName = 'BCPH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 89
end
object v1Column20: TcxGridDBColumn
Caption = #20379#24212#21830#25209#21495
DataBinding.FieldName = 'GYSPH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 97
end
object Tv1Column1: TcxGridDBColumn
Caption = #21152#24037#25209#21495
DataBinding.FieldName = 'JGPH'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1Column5: TcxGridDBColumn
Caption = #31665#25968'/'#21253#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 111
end
object Tv1Column11: TcxGridDBColumn
Caption = #27599#26495#31665#25968'/'#21253#25968
DataBinding.FieldName = 'BBBS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 154
end
object Tv1Column13: TcxGridDBColumn
Caption = #26495#25968
DataBinding.FieldName = 'BS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1Column14: TcxGridDBColumn
Caption = #21333#31665#37325#37327
DataBinding.FieldName = 'PackWet'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v2Column6: TcxGridDBColumn
Tag = 2
Caption = #24635#37325#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 85
end
object v1Column3: TcxGridDBColumn
Tag = 2
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'Kg'
'M')
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column12: TcxGridDBColumn
Tag = 2
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object Tv1Column16: TcxGridDBColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'ISTax'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column17: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Column18: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel4: TPanel
Left = 1400
Top = 1
Width = 388
Height = 490
Align = alRight
Caption = 'Panel2'
TabOrder = 1
object cxGrid2: TcxGrid
Left = 1
Top = 31
Width = 386
Height = 458
Align = alClient
PopupMenu = PopupMenu2
TabOrder = 0
object TvMX: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_MX
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skCount
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skCount
end
item
Kind = skSum
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skCount
Column = vMXColumn1
end
item
Kind = skSum
Column = TvMXColumn2
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 33
object vMXColumn2: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSEL'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 61
end
object vMXColumn1: TcxGridDBColumn
Caption = #26495#21495
DataBinding.FieldName = 'BanNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = cxGridDBColumn8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 58
end
object TvMXColumn1: TcxGridDBColumn
Caption = #26495#26465#30721
DataBinding.FieldName = 'BanID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object TvMXColumn2: TcxGridDBColumn
Caption = #21253#25968
DataBinding.FieldName = 'GS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
end
object cxGridLevel2: TcxGridLevel
GridView = TvMX
end
end
object ToolBar2: TToolBar
Left = 1
Top = 1
Width = 386
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 95
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_YarnStk.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
object ToolButton6: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #25171#21360#26495#26631#31614
ImageIndex = 21
OnClick = ToolButton6Click
end
object ToolButton7: TToolButton
Left = 99
Top = 0
AutoSize = True
Caption = #25171#21360#21253#26631#31614
ImageIndex = 21
OnClick = ToolButton7Click
end
object ToolButton10: TToolButton
Left = 198
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
Visible = False
OnClick = ToolButton10Click
end
object ToolButton11: TToolButton
Left = 261
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 6
Visible = False
OnClick = ToolButton11Click
end
object BanNO: TEdit
Tag = 2
Left = 324
Top = 0
Width = 41
Height = 30
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 0
Visible = False
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_YarnStk.ADOLink
Left = 97
Top = 256
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_YarnStk.ADOLink
Left = 209
Top = 233
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_YarnStk.ADOLink
Parameters = <>
Left = 760
Top = 264
end
object ADOQueryMain: TADOQuery
Connection = DataLink_YarnStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 672
Top = 264
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_YarnStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 848
Top = 264
end
object DS_1: TDataSource
DataSet = CDS_Main
Left = 792
Top = 400
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>
Left = 736
Top = 400
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 672
Top = 400
end
object PopupMenu1: TPopupMenu
Left = 152
Top = 312
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
object CDS_MX: TClientDataSet
Aggregates = <>
Params = <>
Left = 1336
Top = 440
end
object DS_MX: TDataSource
DataSet = CDS_MX
Left = 1392
Top = 440
end
object PopupMenu2: TPopupMenu
Left = 488
Top = 352
object MenuItem1: TMenuItem
Caption = #20840#36873
OnClick = MenuItem1Click
end
object MenuItem2: TMenuItem
Caption = #20840#24323
OnClick = MenuItem2Click
end
end
end