RTFormwork/项目代码/RTBasicsV1/A01基础公司管理/U_CustInput.dfm
DESKTOP-E401PHE\Administrator 321ddb24ca 1
2024-07-16 21:55:07 +08:00

456 lines
11 KiB
Plaintext

inherited frmCustInput: TfrmCustInput
Left = 261
Top = 149
Caption = #23458#25143#36164#26009#24405#20837
ClientHeight = 643
ClientWidth = 1143
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
OldCreateOrder = True
Position = poScreenCenter
OnClose = FormClose
ExplicitWidth = 1159
ExplicitHeight = 682
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1143
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Company.ImageList_new32
Images = DataLink_Company.cxImageList_bar
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 ToolButton1: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox [1]
Left = 0
Top = 30
Width = 1143
Height = 255
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitLeft = 1
ExplicitTop = 26
object Label2: TLabel
Left = 17
Top = 12
Width = 32
Height = 21
Caption = #32534#21495
end
object Label6: TLabel
Left = 17
Top = 47
Width = 32
Height = 21
Caption = #20840#31216
end
object Label7: TLabel
Left = 17
Top = 150
Width = 32
Height = 21
Caption = #22791#27880
end
object Label1: TLabel
Left = 304
Top = 12
Width = 32
Height = 21
Caption = #31616#31216
end
object Label4: TLabel
Left = 17
Top = 117
Width = 32
Height = 21
Caption = #22320#22336
end
object Label8: TLabel
Left = 17
Top = 81
Width = 32
Height = 21
Caption = #22269#23478
end
object Label10: TLabel
Left = 597
Top = 47
Width = 32
Height = 21
Caption = #31561#32423
end
object Label3: TLabel
Left = 597
Top = 12
Width = 32
Height = 21
Caption = #31867#22411
end
object Label5: TLabel
Left = 274
Top = 81
Width = 64
Height = 21
Caption = #19978#32423#21333#20301
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object CoName: TcxTextEdit
Tag = 2
Left = 55
Top = 43
ParentFont = False
TabOrder = 1
Width = 487
end
object CoAbbrName: TcxTextEdit
Tag = 2
Left = 342
Top = 8
ParentFont = False
TabOrder = 2
Width = 200
end
object CoCode: TcxTextEdit
Tag = 2
Left = 55
Top = 8
ParentFont = False
TabOrder = 0
Width = 200
end
object CoBusinessType: TcxButtonEdit
Tag = 2
Left = 637
Top = 8
Hint = 'CoBusinessType/'#23458#25143#31867#22411
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = BuyNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 3
OnDblClick = CoBusinessTypeDblClick
Width = 200
end
object cocountry: TcxButtonEdit
Tag = 2
Left = 55
Top = 77
Hint = 'CoCountry/'#22269#23478
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = BuyNamePropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 4
OnDblClick = CoBusinessTypeDblClick
Width = 200
end
object CoLevel: TcxComboBox
Tag = 2
Left = 635
Top = 43
ParentFont = False
Properties.Items.Strings = (
'A'
'B'
'C')
TabOrder = 5
Width = 200
end
object ParentCoName: TcxButtonEdit
Tag = 2
Left = 344
Top = 77
Hint = 'CoBusinessType/'#23458#25143#31867#22411
ParentFont = False
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
Style.ButtonStyle = btsDefault
TabOrder = 6
OnDblClick = CoBusinessTypeDblClick
Width = 200
end
object CoAddress: TcxTextEdit
Tag = 2
Left = 55
Top = 113
ParentFont = False
TabOrder = 7
Width = 780
end
object CoNote: TcxMemo
Tag = 2
Left = 55
Top = 150
ParentFont = False
TabOrder = 8
Height = 77
Width = 780
end
end
object Panel1: TPanel [2]
Left = 0
Top = 285
Width = 1143
Height = 358
Align = alClient
Caption = 'Panel1'
TabOrder = 2
object Panel3: TPanel
Left = 1
Top = 1
Width = 1141
Height = 356
Align = alClient
Caption = 'Panel1'
TabOrder = 0
object ToolBar3: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 1139
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_Company.ImageList_new32
Images = DataLink_Company.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton2: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #35774#20026#40664#35748
ImageIndex = 15
OnClick = ToolButton2Click
end
object ToolButton6: TToolButton
Left = 103
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton6Click
end
object ToolButton7: TToolButton
Left = 174
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton7Click
end
end
object cxGrid2: TcxGrid
Left = 1
Top = 31
Width = 1139
Height = 324
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 1
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
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.GroupByBox = False
object cxGridDBColumn2: TcxGridDBColumn
Caption = #40664#35748
DataBinding.FieldName = 'IsDefault'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #32852#31995#20154
DataBinding.FieldName = 'Contacts'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 77
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #32844#20301
DataBinding.FieldName = 'position'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 86
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #25163#26426#21495
DataBinding.FieldName = 'PhoneNumber'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.CharCase = ecUpperCase
HeaderAlignmentHorz = taCenter
Width = 109
end
object cxGridDBColumn8: TcxGridDBColumn
DataBinding.FieldName = 'EMAIL'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object TV2Column2: TcxGridDBColumn
Caption = #24494#20449#21495
DataBinding.FieldName = 'WeChat'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV2
end
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink
Left = 1007
Top = 82
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Company.ADOLink
Left = 931
Top = 49
end
inherited ImageList_new32: TImageList
Left = 551
Top = 433
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 971
Top = 192
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Company.ADOLink
Parameters = <>
Left = 1015
Top = 227
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Company.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 944
Top = 128
end
object cxGridPopupMenu2: TcxGridPopupMenu
PopupMenus = <>
Left = 294
Top = 502
end
object CDS_LXR: TClientDataSet
Aggregates = <>
Params = <>
Left = 377
Top = 503
end
object DSLXR: TDataSource
DataSet = CDS_LXR
Left = 464
Top = 511
end
end