usermanager.dfm
来自「delphi框架可以学习, 写的很好的」· DFM 代码 · 共 426 行
DFM
426 行
inherited frmUserManager: TfrmUserManager
Left = 32
Top = 29
Width = 998
Height = 617
Caption = #29992#25143#26435#38480#31649#29702
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 12
object Splitter1: TSplitter [0]
Left = 665
Top = 114
Width = 5
Height = 469
Cursor = crHSplit
end
inherited RzToolbar1: TRzToolbar
Width = 990
ToolbarControls = (
btnOpen
RzSpacer1
BtnNew
BtnSave
BtnUndo
BtnDelete
RzSpacer2
BtnCheck
BtnUnCheck
RzSpacer3
BtnSelReport
BtnPreview
BtnPrint
BtnDesigen
RzSpacer4
BtnOther
BtnHelp
BtnExit
RzSpacer5
Btn1
Btn2
Btn3
Btn4
Btn5
Btn6
Btn7)
inherited BtnPreview: TRzToolButton
Left = 370
end
inherited BtnPrint: TRzToolButton
Left = 410
end
inherited BtnHelp: TRzToolButton
Left = 560
end
inherited BtnExit: TRzToolButton
Left = 600
end
end
inherited RzPanel1: TRzPanel
Width = 990
Height = 65
inherited RzSeparator19: TRzSeparator
Height = 61
end
inherited RzLabel10: TRzLabel
Left = 8
Top = 14
end
inherited RzCheckBox14: TRzCheckBox
Left = 248
Top = 131
end
inherited RzCheckBox15: TRzCheckBox
Left = 248
Top = 155
end
inherited RzCheckBox16: TRzCheckBox
Left = 248
Top = 179
end
inherited RzCheckBox17: TRzCheckBox
Left = 248
Top = 203
end
inherited RzCheckBox18: TRzCheckBox
Left = 248
Top = 227
end
inherited RzCheckBox13: TRzCheckBox
Left = 244
Top = 14
Caption = #28155#21152#26085#26399
end
inherited RzCheckBox12: TRzCheckBox
Top = 315
end
inherited RzCheckBox11: TRzCheckBox
Top = 291
end
inherited RzCheckBox10: TRzCheckBox
Top = 267
end
inherited RzCheckBox9: TRzCheckBox
Top = 243
end
inherited RzCheckBox8: TRzCheckBox
Top = 219
end
inherited RzCheckBox1: TRzCheckBox
Left = 33
Top = 14
Caption = #29992' '#25143' '#21517
end
inherited RzEdit1: TRzEdit
Left = 106
Top = 12
end
inherited RzCheckBox2: TRzCheckBox
Left = 33
Top = 38
Caption = #25152#23646#37096#38376
end
inherited RzEdit2: TRzEdit
Left = 106
Top = 36
end
inherited RzCheckBox3: TRzCheckBox
Left = 244
Top = 38
Caption = #30495#23454#22995#21517
end
inherited RzEdit3: TRzEdit
Left = 318
Top = 36
end
inherited RzCheckBox4: TRzCheckBox
Left = 452
Top = 38
Caption = #38480#21046'MAC'
end
inherited RzEdit4: TRzEdit
Left = 519
Top = 36
Width = 113
end
inherited RzCheckBox5: TRzCheckBox
Top = 147
end
inherited RzEdit5: TRzEdit
Top = 145
end
inherited RzCheckBox6: TRzCheckBox
Top = 171
end
inherited RzEdit6: TRzEdit
Top = 169
end
inherited RzCheckBox7: TRzCheckBox
Top = 195
end
inherited RzPanel2: TRzPanel
Left = 318
Top = 11
Height = 22
AutoSize = True
inherited RzLabel1: TRzLabel
Left = 126
Top = 5
end
inherited RzDateTimeEdit1: TRzDateTimeEdit
Left = 0
Top = 1
end
inherited RzDateTimeEdit2: TRzDateTimeEdit
Left = 144
Top = 1
end
inherited RzMenuButton1: TRzMenuButton
Top = 0
end
end
inherited RzPanel3: TRzPanel
Left = 334
Top = 129
end
inherited RzPanel4: TRzPanel
Left = 334
Top = 153
end
inherited RzPanel5: TRzPanel
Left = 334
Top = 177
end
inherited RzPanel6: TRzPanel
Left = 334
Top = 201
end
inherited RzPanel7: TRzPanel
Left = 334
Top = 225
end
inherited RzEdit7: TRzEdit
Top = 193
end
inherited RzEdit8: TRzEdit
Top = 217
end
inherited RzEdit9: TRzEdit
Top = 241
end
inherited RzEdit10: TRzEdit
Top = 265
end
inherited RzEdit11: TRzEdit
Top = 289
end
inherited RzEdit12: TRzEdit
Top = 313
end
end
inherited plSelBase: TRzPanel
Left = 336
Top = 197
end
object RzPanel8: TRzPanel [4]
Left = 0
Top = 109
Width = 990
Height = 5
Align = alTop
BorderOuter = fsNone
TabOrder = 3
UseGradients = True
end
object RzPanel9: TRzPanel [5]
Left = 670
Top = 114
Width = 320
Height = 469
Align = alClient
BorderOuter = fsFlatRounded
TabOrder = 4
object ctreePower: TRzCheckTree
Left = 2
Top = 2
Width = 316
Height = 465
Images = imglToolsbar
OnStateChange = ctreePowerStateChange
Align = alClient
FrameSides = [sdLeft, sdRight]
FrameVisible = True
HotTrack = True
Indent = 19
RightClickSelect = True
SelectionPen.Color = clBtnShadow
StateImages = ctreePower.CheckImages
TabOrder = 0
end
end
object dbgridList: TDBGridEh [6]
Left = 0
Top = 114
Width = 665
Height = 469
IntervalColor = clMoneyGreen
Indicator = 11
Align = alLeft
AllowedOperations = [alopUpdateEh]
DataSource = dm.dsUserInfo
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
FooterColor = clWindow
FooterFont.Charset = GB2312_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -12
FooterFont.Name = #23435#20307
FooterFont.Style = []
FrozenCols = 2
OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghRowHighlight]
ParentFont = False
RowHeight = 20
TabOrder = 5
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -12
TitleFont.Name = #23435#20307
TitleFont.Style = [fsBold]
TitleHeight = 20
Columns = <
item
CharCase = ecNormal
StringMask = smNormal
EditButtons = <>
FieldName = 'UserCode'
Footers = <>
Title.Alignment = taCenter
Width = 80
end
item
CharCase = ecNormal
StringMask = smNormal
EditButtons = <>
FieldName = 'EmpName'
Footers = <>
Title.Alignment = taCenter
end
item
CharCase = ecNormal
StringMask = smNormal
EditButtons = <>
FieldName = 'MAC1'
Footers = <>
Title.Alignment = taCenter
Width = 106
end
item
CharCase = ecNormal
StringMask = smNormal
EditButtons = <>
FieldName = 'MAC2'
Footers = <>
Title.Alignment = taCenter
Width = 105
end
item
CharCase = ecNormal
StringMask = smNormal
EditButtons = <>
FieldName = 'MAC3'
Footers = <>
Title.Alignment = taCenter
Width = 109
end
item
CharCase = ecNormal
StringMask = smNormal
EditButtons = <>
FieldName = 'GroupName'
Footers = <>
Title.Alignment = taCenter
end
item
CharCase = ecNormal
StringMask = smNormal
EditButtons = <>
FieldName = 'Company'
Footers = <>
Title.Alignment = taCenter
Width = 157
end
item
CharCase = ecNormal
StringMask = smNormal
EditButtons = <>
FieldName = 'Office'
Footers = <>
Title.Alignment = taCenter
Width = 96
end
item
CharCase = ecNormal
StringMask = smNormal
EditButtons = <>
FieldName = 'PowerStyle'
Footers = <>
KeyList.Strings = (
'1'
'0')
PickList.Strings = (
#26080#26435#38480#21464#28784
#26080#26435#38480#38544#34255)
Title.Alignment = taCenter
Width = 92
end
item
CharCase = ecNormal
StringMask = smNormal
EditButtons = <>
FieldName = 'LockTime'
Footers = <>
Title.Alignment = taCenter
Width = 66
end
item
CharCase = ecNormal
StringMask = smNormal
EditButtons = <>
FieldName = 'ValidSTime'
Footers = <>
Title.Alignment = taCenter
Width = 88
end
item
CharCase = ecNormal
StringMask = smNormal
EditButtons = <>
FieldName = 'ValidETime'
Footers = <>
Title.Alignment = taCenter
Width = 81
end
item
CharCase = ecNormal
StringMask = smNormal
Checkboxes = True
EditButtons = <>
FieldName = 'Invalid'
Footers = <>
KeyList.Strings = (
'1'
'0')
Title.Alignment = taCenter
Width = 72
end>
end
inherited pmDateSet: TPopupMenu
Left = 728
Top = 56
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?