D10myYicheng/客户供应商管理(Company.dll)/U_CustomerInput.dfm

771 lines
20 KiB
Plaintext
Raw Permalink Normal View History

2025-05-27 14:08:09 +08:00
object frmCustomerInput: TfrmCustomerInput
Left = 261
Top = 149
Caption = #23458#25143#36164#26009#24405#20837
ClientHeight = 661
ClientWidth = 1095
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Tag = 1
Left = 0
Top = 0
Width = 1095
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Company.ImageList_new32
Images = DataLink_Company.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton3: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 38
Width = 1095
Height = 300
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentCtl3D = False
ParentFont = False
TabOrder = 1
object Label2: TLabel
Left = 14
Top = 15
Width = 52
Height = 12
Caption = #23458#25143#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 257
Top = 15
Width = 52
Height = 12
Caption = #23458#25143#20840#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 255
Top = 42
Width = 54
Height = 12
Caption = #22478' '#24066
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label39: TLabel
Left = 14
Top = 81
Width = 52
Height = 12
Caption = #20844#21496#22320#22336
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 14
Top = 139
Width = 54
Height = 12
Caption = #22791' '#27880
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 496
Top = 42
Width = 53
Height = 12
Caption = #19994' '#21153' '#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 496
Top = 15
Width = 52
Height = 12
Caption = #23458#25143#31616#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 14
Top = 42
Width = 54
Height = 12
Caption = #22269' '#23478
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 14
Top = 201
Width = 52
Height = 12
Caption = #33337#26679#22320#22336
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 813
Top = 12
Width = 7
Height = 14
end
object Label8: TLabel
Left = 723
Top = 15
Width = 66
Height = 12
Caption = #23458#25143' '#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 723
Top = 42
Width = 65
Height = 12
Caption = #20813#22534#26399#26102#38388
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CoName: TEdit
Tag = 2
Left = 317
Top = 12
Width = 140
Height = 18
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object Note: TMemo
Tag = 2
Left = 76
Top = 137
Width = 641
Height = 50
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ScrollBars = ssVertical
TabOrder = 3
end
object CoHRName: TEdit
Tag = 2
Left = 557
Top = 12
Width = 140
Height = 18
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object CoCode: TEdit
Tag = 2
Left = 73
Top = 12
Width = 140
Height = 18
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object Coarea: TBtnEditC
Tag = 2
Left = 317
Top = 36
Width = 140
Height = 20
Hint = 'Coarea/'#22478#24066
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnBtnUpClick = CoareaBtnUpClick
OnBtnDnClick = CoareaBtnDnClick
end
object CoAddress: TMemo
Tag = 2
Left = 76
Top = 79
Width = 641
Height = 47
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ScrollBars = ssVertical
TabOrder = 5
end
object CType: TComboBox
Tag = 2
Left = 795
Top = 10
Width = 140
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
Items.Strings = (
#22806#38144
#20869#38144
#20013#38388#21830)
end
object ChuanYangD: TMemo
Tag = 2
Left = 77
Top = 199
Width = 641
Height = 47
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ScrollBars = ssVertical
TabOrder = 7
end
object MDQDate: TEdit
Tag = 2
Left = 795
Top = 36
Width = 140
Height = 18
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
end
object country: TBtnEditC
Tag = 2
Left = 73
Top = 36
Width = 140
Height = 20
Hint = 'country/'#22269#23478
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnBtnUpClick = CoareaBtnUpClick
OnBtnDnClick = CoareaBtnDnClick
end
object Salesman: TBtnEditC
Tag = 2
Left = 557
Top = 36
Width = 140
Height = 20
Hint = 'Salesman/'#19994#21153#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnBtnUpClick = CoareaBtnUpClick
OnBtnDnClick = CoareaBtnDnClick
end
end
object Panel1: TPanel
Left = 0
Top = 361
Width = 1095
Height = 300
Align = alBottom
Caption = 'Panel3'
TabOrder = 2
object Panel2: TPanel
Left = 1
Top = 1
Width = 543
Height = 298
Align = alClient
Caption = 'Panel3'
TabOrder = 0
object cxGrid1: TcxGrid
Left = 1
Top = 39
Width = 541
Height = 258
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 0
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
DataController.DataSource = DSLXR
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Footer = DataLink_Company.Default
Styles.Header = DataLink_Company.Default
object v3Column3: TcxGridDBColumn
Caption = #40664#35748
DataBinding.FieldName = 'IsDefault'
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts'
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 70
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #32844#20301
DataBinding.FieldName = 'position'
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 70
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #20256#30495
DataBinding.FieldName = 'Fax'
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 96
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #30005#35805
DataBinding.FieldName = 'Telephone'
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 95
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #25163#26426
DataBinding.FieldName = 'PhoneNumber'
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 104
end
object Tv1Column1: TcxGridDBColumn
Caption = #37038#31665
DataBinding.FieldName = 'Email'
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 122
end
object Tv1Column2: TcxGridDBColumn
Caption = #29983#26085
DataBinding.FieldName = 'birthday'
PropertiesClassName = 'TcxDateEditProperties'
HeaderAlignmentHorz = taCenter
Width = 108
end
object v3Column2: TcxGridDBColumn
Caption = #24494#20449
DataBinding.FieldName = 'WeChat'
HeaderAlignmentHorz = taCenter
Width = 169
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
object ToolBar2: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 541
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 127
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Company.ImageList_new32
Images = DataLink_Company.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 1
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #35774#20026#40664#35748#32852#31995#20154
ImageIndex = 15
OnClick = ToolButton1Click
end
object ToolButton4: TToolButton
Left = 131
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton4Click
end
object ToolButton5: TToolButton
Left = 202
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton5Click
end
end
end
object Panel4: TPanel
Left = 544
Top = 1
Width = 550
Height = 298
Align = alRight
Caption = 'Panel3'
TabOrder = 1
object cxGrid2: TcxGrid
Left = 1
Top = 39
Width = 294
Height = 258
Align = alLeft
BorderStyle = cxcbsNone
TabOrder = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
OnFocusedRecordChanged = TV2FocusedRecordChanged
DataController.DataSource = DS_YF
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_Company.SHuangSe
Styles.Header = DataLink_Company.Default
Styles.Inactive = DataLink_Company.SHuangSe
Styles.Selection = DataLink_Company.SHuangSe
object cxGridDBColumn6: TcxGridDBColumn
Caption = #40664#35748
DataBinding.FieldName = 'IsDefault'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_Company.Default
Width = 58
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #33136#23553
DataBinding.FieldName = 'YFTPName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = cxGridDBColumn7PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 114
end
object TV2Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'YFNote'
HeaderAlignmentHorz = taCenter
Width = 117
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV2
end
end
object ToolBar3: TToolBar
Left = 1
Top = 1
Width = 548
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Company.ImageList_new32
Images = DataLink_Company.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 1
object ToolButton7: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #35774#20026#40664#35748#33136#23553
ImageIndex = 15
OnClick = ToolButton7Click
end
object ToolButton2: TToolButton
Left = 119
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton2Click
end
object ToolButton6: TToolButton
Left = 190
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton6Click
end
end
object Picture4: TcxDBImage
Left = 295
Top = 39
Hint = 'FileName'
Align = alClient
AutoSize = True
DataBinding.DataField = 'FilesOther'
DataBinding.DataSource = DataSource1
Properties.GraphicClassName = 'TdxSmartImage'
Properties.ReadOnly = True
Properties.ShowFocusRect = False
Style.BorderStyle = ebsSingle
TabOrder = 2
OnDblClick = Picture4DblClick
Height = 258
Width = 254
end
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 251
Top = 488
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Company.ADOLink
Parameters = <>
Left = 70
Top = 480
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 165
Top = 489
end
object cxGridPopupMenu2: TcxGridPopupMenu
PopupMenus = <>
Left = 78
Top = 422
end
object CDS_LXR: TClientDataSet
Aggregates = <>
Params = <>
Left = 153
Top = 423
end
object DSLXR: TDataSource
DataSet = CDS_LXR
Left = 216
Top = 431
end
object DataSource1: TDataSource
DataSet = ADOQueryImage
Left = 1004
Top = 527
end
object ADOQueryImage: TADOQuery
Connection = DataLink_Company.ADOLink
Parameters = <>
Left = 928
Top = 531
end
object DS_YF: TDataSource
DataSet = CDS_YF
Left = 667
Top = 447
end
object CDS_YF: TClientDataSet
Aggregates = <>
Params = <>
Left = 604
Top = 448
end
object cxgrdpmn1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 384
Top = 444
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 768
Top = 460
end
object IdFTP1: TIdFTP
ConnectTimeout = 0
NATKeepAlive.UseKeepAlive = False
NATKeepAlive.IdleTimeMS = 0
NATKeepAlive.IntervalMS = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
ReadTimeout = 0
Left = 912
Top = 418
end
end