677 lines
17 KiB
Plaintext
677 lines
17 KiB
Plaintext
object frmTJHXMX: TfrmTJHXMX
|
|
Left = 200
|
|
Top = 124
|
|
Width = 967
|
|
Height = 645
|
|
Caption = #28907#37329#33457#22411#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
|
|
OnClose = FormClose
|
|
OnDestroy = FormDestroy
|
|
OnShow = FormShow
|
|
PixelsPerInch = 107
|
|
TextHeight = 13
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 951
|
|
Height = 605
|
|
Align = alClient
|
|
TabOrder = 0
|
|
object Panel1: TPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 561
|
|
Height = 603
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
Color = clSkyBlue
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
object Label3: TLabel
|
|
Left = 11
|
|
Top = 432
|
|
Width = 69
|
|
Height = 16
|
|
Caption = #33457' '#22411' '#21495
|
|
end
|
|
object YW: TLabel
|
|
Left = 11
|
|
Top = 398
|
|
Width = 69
|
|
Height = 16
|
|
Caption = #21152' '#24037' '#21378
|
|
end
|
|
object Label4: TLabel
|
|
Left = 11
|
|
Top = 467
|
|
Width = 61
|
|
Height = 16
|
|
Caption = #33394' '#22871
|
|
end
|
|
object Label5: TLabel
|
|
Left = 11
|
|
Top = 570
|
|
Width = 61
|
|
Height = 16
|
|
Caption = #21333' '#20215
|
|
end
|
|
object Label2: TLabel
|
|
Left = 11
|
|
Top = 605
|
|
Width = 61
|
|
Height = 16
|
|
Caption = #22791' '#27880
|
|
end
|
|
object Label7: TLabel
|
|
Left = 11
|
|
Top = 501
|
|
Width = 61
|
|
Height = 16
|
|
Caption = #24213' '#33394
|
|
end
|
|
object Label18: TLabel
|
|
Left = 11
|
|
Top = 535
|
|
Width = 68
|
|
Height = 16
|
|
Caption = #28504#36890#33394#21495
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object HXNO: TEdit
|
|
Tag = 2
|
|
Left = 93
|
|
Top = 428
|
|
Width = 144
|
|
Height = 24
|
|
TabOrder = 0
|
|
OnKeyPress = HXNOKeyPress
|
|
end
|
|
object SeTao: TEdit
|
|
Tag = 2
|
|
Left = 93
|
|
Top = 463
|
|
Width = 144
|
|
Height = 24
|
|
TabOrder = 1
|
|
OnKeyPress = SeTaoKeyPress
|
|
end
|
|
object TJPrice: TEdit
|
|
Tag = 2
|
|
Left = 93
|
|
Top = 566
|
|
Width = 144
|
|
Height = 24
|
|
TabOrder = 2
|
|
OnKeyPress = TJPriceKeyPress
|
|
end
|
|
object Button1: TButton
|
|
Left = 446
|
|
Top = 484
|
|
Width = 87
|
|
Height = 52
|
|
Caption = #26032#22686#20445#23384
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -18
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
OnClick = Button1Click
|
|
end
|
|
object Note: TEdit
|
|
Tag = 2
|
|
Left = 93
|
|
Top = 600
|
|
Width = 324
|
|
Height = 24
|
|
TabOrder = 4
|
|
OnKeyPress = NoteKeyPress
|
|
end
|
|
object cxGrid1: TcxGrid
|
|
Left = 0
|
|
Top = 270
|
|
Width = 561
|
|
Height = 108
|
|
Align = alTop
|
|
PopupMenu = PopupMenu1
|
|
TabOrder = 5
|
|
object TV1: TcxGridDBTableView
|
|
OnMouseDown = TV1MouseDown
|
|
NavigatorButtons.ConfirmDelete = False
|
|
DataController.DataSource = DataSource2
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsBehavior.FocusCellOnCycle = True
|
|
OptionsCustomize.ColumnFiltering = False
|
|
OptionsData.Editing = False
|
|
OptionsSelection.CellSelect = False
|
|
OptionsView.GroupByBox = False
|
|
Styles.Content = cxStyle2
|
|
Styles.Inactive = cxStyle3
|
|
Styles.IncSearch = cxStyle3
|
|
Styles.Selection = cxStyle3
|
|
Styles.Header = cxStyle2
|
|
object V1ZCType: TcxGridDBColumn
|
|
Caption = #20027#27425
|
|
DataBinding.FieldName = 'ZCType'
|
|
Visible = False
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Options.Sorting = False
|
|
SortIndex = 0
|
|
SortOrder = soDescending
|
|
Width = 32
|
|
end
|
|
object V1MXJGFactoryName: TcxGridDBColumn
|
|
Tag = 3
|
|
Caption = #21152#24037#21378
|
|
DataBinding.FieldName = 'GYS'
|
|
OnCustomDrawCell = V1MXTJNoteCustomDrawCell
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Sorting = False
|
|
Width = 110
|
|
end
|
|
object V1MXJGFactoryNameHX: TcxGridDBColumn
|
|
Tag = 3
|
|
Caption = #21152#24037#21378#33457#22411#21495
|
|
DataBinding.FieldName = 'HXNO'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
OnCustomDrawCell = V1MXTJNoteCustomDrawCell
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Sorting = False
|
|
Width = 107
|
|
end
|
|
object V1MXSeHao: TcxGridDBColumn
|
|
Tag = 3
|
|
Caption = #33394#22871
|
|
DataBinding.FieldName = 'SeHao'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
OnCustomDrawCell = V1MXTJNoteCustomDrawCell
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Sorting = False
|
|
Width = 58
|
|
end
|
|
object V1MXTJPrice: TcxGridDBColumn
|
|
Caption = #21333#20215
|
|
DataBinding.FieldName = 'TJPrice'
|
|
OnCustomDrawCell = V1MXTJNoteCustomDrawCell
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Options.Sorting = False
|
|
Width = 61
|
|
end
|
|
object V1MXTJNote: TcxGridDBColumn
|
|
Caption = #22791#27880
|
|
DataBinding.FieldName = 'Note'
|
|
OnCustomDrawCell = V1MXTJNoteCustomDrawCell
|
|
HeaderAlignmentHorz = taCenter
|
|
Options.Editing = False
|
|
Options.Sorting = False
|
|
Width = 187
|
|
end
|
|
object V1Column1: TcxGridDBColumn
|
|
DataBinding.FieldName = 'TIType'
|
|
Visible = False
|
|
Hidden = True
|
|
Options.Sorting = False
|
|
end
|
|
end
|
|
object cxGrid1Level1: TcxGridLevel
|
|
GridView = TV1
|
|
end
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 561
|
|
Height = 270
|
|
Align = alTop
|
|
BevelInner = bvLowered
|
|
Color = clSkyBlue
|
|
TabOrder = 6
|
|
object Label1: TLabel
|
|
Left = 12
|
|
Top = 124
|
|
Width = 34
|
|
Height = 16
|
|
Caption = #21697#21517
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label6: TLabel
|
|
Left = 12
|
|
Top = 179
|
|
Width = 34
|
|
Height = 16
|
|
Caption = #39068#33394
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label10: TLabel
|
|
Left = 12
|
|
Top = 237
|
|
Width = 34
|
|
Height = 16
|
|
Caption = #22791#27880
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label16: TLabel
|
|
Left = 12
|
|
Top = 90
|
|
Width = 119
|
|
Height = 16
|
|
Caption = #38754#26009#20449#24687#34917#20805#65306
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label17: TLabel
|
|
Left = 153
|
|
Top = 179
|
|
Width = 68
|
|
Height = 16
|
|
Caption = #28504#36890#33394#21495
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Button2: TButton
|
|
Left = 574
|
|
Top = 8
|
|
Width = 58
|
|
Height = 26
|
|
Caption = #26032#22686
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -18
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
Visible = False
|
|
OnClick = Button2Click
|
|
end
|
|
object ImageNameKH: TBtnEditA
|
|
Left = 52
|
|
Top = 119
|
|
Width = 319
|
|
Height = 25
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnExit = ImageNameKHExit
|
|
OnBtnClick = ImageNameKHBtnClick
|
|
end
|
|
object IMColor: TBtnEditA
|
|
Left = 52
|
|
Top = 174
|
|
Width = 89
|
|
Height = 25
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
OnExit = IMColorExit
|
|
OnBtnClick = IMColorBtnClick
|
|
end
|
|
object IMNote: TMemo
|
|
Left = 52
|
|
Top = 230
|
|
Width = 319
|
|
Height = 31
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
OnExit = IMNoteExit
|
|
end
|
|
object Panel4: TPanel
|
|
Left = 381
|
|
Top = 118
|
|
Width = 175
|
|
Height = 144
|
|
BevelInner = bvRaised
|
|
BevelOuter = bvLowered
|
|
TabOrder = 4
|
|
object Label13: TLabel
|
|
Left = 5
|
|
Top = 20
|
|
Width = 9
|
|
Height = 16
|
|
end
|
|
object Label14: TLabel
|
|
Left = 5
|
|
Top = 47
|
|
Width = 9
|
|
Height = 16
|
|
end
|
|
end
|
|
object IMPTID: TEdit
|
|
Left = 224
|
|
Top = 174
|
|
Width = 144
|
|
Height = 24
|
|
Color = clMenu
|
|
ReadOnly = True
|
|
TabOrder = 5
|
|
end
|
|
object Panel6: TPanel
|
|
Left = 2
|
|
Top = 2
|
|
Width = 557
|
|
Height = 38
|
|
Align = alTop
|
|
BevelInner = bvRaised
|
|
BevelOuter = bvLowered
|
|
Color = clSkyBlue
|
|
TabOrder = 6
|
|
object Label9: TLabel
|
|
Left = 168
|
|
Top = 8
|
|
Width = 46
|
|
Height = 22
|
|
Caption = #31867#22411
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -22
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label8: TLabel
|
|
Left = 298
|
|
Top = 8
|
|
Width = 46
|
|
Height = 22
|
|
Caption = #32534#21495
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -22
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object LXCode: TLabel
|
|
Left = 283
|
|
Top = 8
|
|
Width = 12
|
|
Height = 22
|
|
Caption = 'L'
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -22
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
end
|
|
object Panel7: TPanel
|
|
Left = 2
|
|
Top = 40
|
|
Width = 557
|
|
Height = 38
|
|
Align = alTop
|
|
BevelInner = bvRaised
|
|
BevelOuter = bvLowered
|
|
Color = clSkyBlue
|
|
TabOrder = 7
|
|
object Label15: TLabel
|
|
Left = 10
|
|
Top = 10
|
|
Width = 77
|
|
Height = 16
|
|
Caption = #21407#22270#35828#26126':'
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object ImageName: TEdit
|
|
Left = 89
|
|
Top = 7
|
|
Width = 462
|
|
Height = 22
|
|
Color = clMenu
|
|
Ctl3D = False
|
|
ParentCtl3D = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
object Panel5: TPanel
|
|
Left = 248
|
|
Top = 428
|
|
Width = 171
|
|
Height = 162
|
|
BevelInner = bvRaised
|
|
BevelOuter = bvLowered
|
|
TabOrder = 7
|
|
object Label11: TLabel
|
|
Left = 5
|
|
Top = 20
|
|
Width = 9
|
|
Height = 16
|
|
end
|
|
object Label12: TLabel
|
|
Left = 5
|
|
Top = 47
|
|
Width = 9
|
|
Height = 16
|
|
end
|
|
end
|
|
object Color: TBtnEditA
|
|
Tag = 2
|
|
Left = 93
|
|
Top = 496
|
|
Width = 144
|
|
Height = 25
|
|
TabOrder = 8
|
|
OnKeyPress = ColorKeyPress
|
|
OnBtnClick = ColorBtnClick
|
|
end
|
|
object GYS: TBtnEditA
|
|
Tag = 2
|
|
Left = 93
|
|
Top = 393
|
|
Width = 328
|
|
Height = 25
|
|
Hint = 'GYSNO'
|
|
TabOrder = 9
|
|
OnBtnClick = GYSBtnClick
|
|
end
|
|
object PTID: TEdit
|
|
Tag = 2
|
|
Left = 93
|
|
Top = 531
|
|
Width = 144
|
|
Height = 24
|
|
Color = clMenu
|
|
ReadOnly = True
|
|
TabOrder = 10
|
|
end
|
|
end
|
|
object cxImage1: TcxImage
|
|
Left = 562
|
|
Top = 1
|
|
Align = alRight
|
|
Properties.PopupMenuLayout.MenuItems = [pmiCut, pmiCopy, pmiPaste, pmiLoad, pmiSave]
|
|
Properties.ReadOnly = True
|
|
Properties.Stretch = True
|
|
Style.BorderStyle = ebsOffice11
|
|
StyleHot.TextStyle = []
|
|
TabOrder = 1
|
|
OnDblClick = cxImage1DblClick
|
|
Height = 603
|
|
Width = 388
|
|
end
|
|
end
|
|
object Panel16: TPanel
|
|
Left = 681
|
|
Top = 284
|
|
Width = 253
|
|
Height = 56
|
|
BevelInner = bvRaised
|
|
Caption = #27491#22312#19979#36733','#35831#31245#31561#12290#12290#12290
|
|
Color = clSkyBlue
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -18
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
Visible = False
|
|
end
|
|
object DataSource1: TDataSource
|
|
DataSet = Ord_TJHX
|
|
Left = 389
|
|
Top = 627
|
|
end
|
|
object ADOQueryTemp: TADOQuery
|
|
Connection = DataLink_YPGLBOM.ADOLink
|
|
LockType = ltReadOnly
|
|
Parameters = <>
|
|
Left = 710
|
|
Top = 132
|
|
end
|
|
object ADOQueryCmd: TADOQuery
|
|
Connection = DataLink_YPGLBOM.ADOLink
|
|
Parameters = <>
|
|
Left = 647
|
|
Top = 134
|
|
end
|
|
object cxStyleRepository1: TcxStyleRepository
|
|
Left = 640
|
|
Top = 8
|
|
object cxStyle1: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = clOlive
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
TextColor = clBlack
|
|
end
|
|
object cxStyle2: TcxStyle
|
|
AssignedValues = [svColor, svFont]
|
|
Color = clMenu
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -15
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
end
|
|
object cxStyle3: TcxStyle
|
|
AssignedValues = [svColor, svFont, svTextColor]
|
|
Color = clSkyBlue
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -15
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
TextColor = clNone
|
|
end
|
|
end
|
|
object SaveDialog1: TSaveDialog
|
|
Left = 607
|
|
Top = 56
|
|
end
|
|
object ODPat: TOpenDialog
|
|
Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
|
|
Left = 546
|
|
Top = 35
|
|
end
|
|
object IdFTP1: TIdFTP
|
|
MaxLineAction = maException
|
|
ReadTimeout = 0
|
|
ProxySettings.ProxyType = fpcmNone
|
|
ProxySettings.Port = 0
|
|
Left = 575
|
|
Top = 54
|
|
end
|
|
object DataSource2: TDataSource
|
|
DataSet = Ord_TJHX
|
|
Left = 665
|
|
Top = 9
|
|
end
|
|
object Ord_TJHX: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 554
|
|
Top = 1
|
|
end
|
|
object PopupMenu1: TPopupMenu
|
|
Left = 580
|
|
Top = 8
|
|
object N1: TMenuItem
|
|
Caption = #35774#20026#20027#20449#24687
|
|
OnClick = N1Click
|
|
end
|
|
object N3: TMenuItem
|
|
Caption = #26032#22686
|
|
OnClick = N3Click
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = #21024#38500
|
|
OnClick = N2Click
|
|
end
|
|
end
|
|
object cxGridPopupMenu1: TcxGridPopupMenu
|
|
Grid = cxGrid1
|
|
PopupMenus = <>
|
|
Left = 654
|
|
Top = 195
|
|
end
|
|
end
|