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 + -
显示快捷键?