cformhumanlist.dfm
来自「Delphi深度探索,Delphi深度探索(第二版)」· DFM 代码 · 共 591 行 · 第 1/2 页
DFM
591 行
Font.Enabled = True
Font.Size = 10
Font.Style = []
Header = False
Height = '0'
VAlign = vaMiddle
Visible = True
Width = '0'
Wrap = False
BlobCharLimit = 0
CompareHighlight = hcNone
DataField = 'EngLevelCode'
RawText = False
Title.Alignment = taCenter
Title.BGColor = clNone
Title.DoSubmitValidation = True
Title.Font.BackColor = clNone
Title.Font.Color = clNone
Title.Font.Enabled = True
Title.Font.Size = 10
Title.Font.Style = []
Title.Header = False
Title.Height = '0'
Title.Text = #33521#35821#27700#24179
Title.VAlign = vaMiddle
Title.Visible = True
Title.Width = '0'
Title.Wrap = False
end
item
Alignment = taLeftJustify
BGColor = clNone
DoSubmitValidation = True
Font.BackColor = clNone
Font.Color = clNone
Font.Enabled = True
Font.Size = 10
Font.Style = []
Header = False
Height = '0'
VAlign = vaMiddle
Visible = True
Width = '0'
Wrap = False
BlobCharLimit = 0
CompareHighlight = hcNone
DataField = 'Phone'
RawText = False
Title.Alignment = taLeftJustify
Title.BGColor = clNone
Title.DoSubmitValidation = True
Title.Font.BackColor = clNone
Title.Font.Color = clNone
Title.Font.Enabled = True
Title.Font.Size = 10
Title.Font.Style = []
Title.Header = False
Title.Height = '0'
Title.Text = #30005#35805
Title.VAlign = vaMiddle
Title.Visible = True
Title.Width = '0'
Title.Wrap = False
end
item
Alignment = taLeftJustify
BGColor = clNone
DoSubmitValidation = True
Font.BackColor = clNone
Font.Color = clNone
Font.Enabled = True
Font.Size = 10
Font.Style = []
Header = False
Height = '0'
VAlign = vaMiddle
Visible = True
Width = '0'
Wrap = False
BlobCharLimit = 0
CompareHighlight = hcNone
DataField = 'Mobile'
RawText = False
Title.Alignment = taLeftJustify
Title.BGColor = clNone
Title.DoSubmitValidation = True
Title.Font.BackColor = clNone
Title.Font.Color = clNone
Title.Font.Enabled = True
Title.Font.Size = 10
Title.Font.Style = []
Title.Header = False
Title.Height = '0'
Title.Text = #25163#26426
Title.VAlign = vaMiddle
Title.Visible = True
Title.Width = '0'
Title.Wrap = False
end
item
Alignment = taLeftJustify
BGColor = clNone
DoSubmitValidation = True
Font.BackColor = clNone
Font.Color = clNone
Font.Enabled = True
Font.Size = 10
Font.Style = []
Header = False
Height = '0'
VAlign = vaMiddle
Visible = True
Width = '0'
Wrap = False
BlobCharLimit = 0
CompareHighlight = hcNone
DataField = 'Email'
RawText = False
Title.Alignment = taLeftJustify
Title.BGColor = clNone
Title.DoSubmitValidation = True
Title.Font.BackColor = clNone
Title.Font.Color = clNone
Title.Font.Enabled = True
Title.Font.Size = 10
Title.Font.Style = []
Title.Header = False
Title.Height = '0'
Title.Text = 'Email'
Title.VAlign = vaMiddle
Title.Visible = True
Title.Width = '0'
Title.Wrap = False
end>
DataSource = dmHR.dsHuman
FooterRowCount = 0
FromStart = False
HighlightColor = clHotLight
HighlightRows = False
Options = [dgIndicator, dgShowTitles]
RefreshMode = rmAutomatic
RowLimit = 3
RollOver = False
RowClick = False
RollOverColor = clDefault
RowHeaderColor = clMoneyGreen
RowAlternateColor = clGradientInactiveCaption
RowCurrentColor = clSkyBlue
end
object iwdnHumanList: TIWDBNavigator [3]
Left = 312
Top = 66
Width = 161
Height = 25
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
Confirmations.Delete = #26159#21542#35201#21024#38500#24403#21069#35760#24405#65311
Confirmations.Post = 'Are you sure you want to update this record?'
Confirmations.Cancel = 'Are you sure you want to cancel your changes to this record?'
DataSource = dmHR.dsHuman
ImageHeight = 21
ImageWidth = 21
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbRefresh]
Orientation = orHorizontal
OnEdit = iwdnHumanListEdit
OnInsert = iwdnHumanListInsert
end
object iwbLastPage: TIWButton [4]
Left = 560
Top = 64
Width = 75
Height = 25
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
ButtonType = btButton
Caption = '<'#19978#19968#39029
Color = clBtnFace
DoSubmitValidation = True
Font.BackColor = clNone
Font.Color = clNone
Font.Enabled = True
Font.Size = 10
Font.Style = []
ScriptEvents = <>
TabOrder = 0
OnClick = iwbLastPageClick
end
object iwbNextPage: TIWButton [5]
Left = 640
Top = 64
Width = 75
Height = 25
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
ButtonType = btButton
Caption = #19979#19968#39029'>'
Color = clBtnFace
DoSubmitValidation = True
Font.BackColor = clNone
Font.Color = clNone
Font.Enabled = True
Font.Size = 10
Font.Style = []
ScriptEvents = <>
TabOrder = 1
OnClick = iwbNextPageClick
end
object IWLabel1: TIWLabel [6]
Left = 208
Top = 96
Width = 110
Height = 20
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
Alignment = taLeftJustify
Color = clNone
Font.BackColor = clNone
Font.Color = clNone
Font.Enabled = True
Font.Size = 10
Font.Style = []
NoWrap = False
Caption = #20844#21496#33539#22260#65306
end
object iwcCorp: TIWComboBox [7]
Left = 304
Top = 96
Width = 161
Height = 21
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
Font.BackColor = clNone
Font.Color = clNone
Font.Enabled = True
Font.Size = 10
Font.Style = []
ItemsHaveValues = False
NoSelectionText = #20840#37096#20844#21496
Required = False
RequireSelection = True
ScriptEvents = <>
OnChange = iwcCorpChange
UseSize = False
DoSubmitValidation = True
Editable = True
TabOrder = 2
ItemIndex = 0
Items.Strings = (
'')
Sorted = False
end
object IWButton1: TIWButton [8]
Left = 480
Top = 64
Width = 75
Height = 25
Cursor = crAuto
IW50Hint = False
ParentShowHint = False
ShowHint = True
ZIndex = 0
ButtonType = btButton
Caption = #21024#38500
Color = clBtnFace
Confirmation = #26159#21542#21024#38500#24403#21069#35760#24405#65311
DoSubmitValidation = True
Font.BackColor = clNone
Font.Color = clNone
Font.Enabled = True
Font.Size = 10
Font.Style = []
ScriptEvents = <>
TabOrder = 3
OnClick = IWButton1Click
end
inherited FrameMenu1: TFrameMenu
Height = 389
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?