usermanager.dfm

MysqlFront的源码

object UserManagerForm: TUserManagerForm
  Left = 231
  Top = 131
  Width = 551
  Height = 417
  BorderWidth = 5
  Caption = 'User-Manager'
  Color = clBtnFace
  Constraints.MaxHeight = 800
  Constraints.MaxWidth = 551
  Constraints.MinHeight = 417
  Constraints.MinWidth = 551
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 533
    Height = 343
    ActivePage = TabSheetAddUser
    Align = alClient
    Images = ImageList1
    TabHeight = 22
    TabIndex = 0
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheetAddUser: TTabSheet
      Caption = 'Add User'
      object Label4: TLabel
        Left = 16
        Top = 40
        Width = 51
        Height = 13
        Caption = '&Username:'
        FocusControl = EditUser
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 16
        Top = 88
        Width = 49
        Height = 13
        Caption = '&Password:'
        FocusControl = EditPassword
      end
      object Label6: TLabel
        Left = 16
        Top = 64
        Width = 51
        Height = 13
        Caption = 'From &Host:'
        FocusControl = EditHost
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 256
        Top = 16
        Width = 94
        Height = 13
        Caption = 'Allow a&ccess to:'
        FocusControl = DBUserTree
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 16
        Top = 128
        Width = 60
        Height = 13
        Caption = 'Privileges:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label9: TLabel
        Left = 16
        Top = 16
        Width = 68
        Height = 13
        Caption = 'Credentials:'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Bevel1: TBevel
        Left = 16
        Top = 120
        Width = 209
        Height = 9
        Shape = bsTopLine
      end
      object Label1: TLabel
        Left = 274
        Top = 272
        Width = 56
        Height = 13
        Caption = '&Description:'
        Enabled = False
        FocusControl = EditDescription
      end
      object DBUserTree: TTreeView
        Left = 256
        Top = 40
        Width = 257
        Height = 193
        Indent = 19
        ReadOnly = True
        RowSelect = True
        ShowLines = False
        ShowRoot = False
        TabOrder = 3
      end
      object EditUser: TEdit
        Left = 96
        Top = 40
        Width = 129
        Height = 21
        TabOrder = 0
      end
      object EditPassword: TEdit
        Left = 96
        Top = 88
        Width = 129
        Height = 21
        PasswordChar = '*'
        TabOrder = 2
      end
      object EditHost: TEdit
        Left = 96
        Top = 64
        Width = 129
        Height = 21
        TabOrder = 1
        Text = '%'
      end
      object CheckListBoxPrivileges: TCheckListBox
        Left = 96
        Top = 152
        Width = 129
        Height = 113
        ItemHeight = 13
        Items.Strings = (
          'Select'
          'Insert'
          'Update'
          'Delete'
          'Index'
          'Alter'
          'Create'
          'Drop'
          'References'
          'Reload'
          'Shutdown'
          'Process'
          'File')
        TabOrder = 5
      end
      object CheckBoxAllPrivileges: TCheckBox
        Left = 96
        Top = 128
        Width = 105
        Height = 17
        Caption = '&All Privileges'
        TabOrder = 4
        OnClick = CheckBoxAllPrivilegesClick
      end
      object CheckBoxWithGrant: TCheckBox
        Left = 96
        Top = 272
        Width = 105
        Height = 17
        Caption = '&With Grant Option'
        TabOrder = 6
      end
      object CheckBoxCreateAccount: TCheckBox
        Left = 256
        Top = 248
        Width = 249
        Height = 17
        Caption = 'Create Connection-Account for &MySQL-Front'
        TabOrder = 7
        OnClick = CheckBoxCreateAccountClick
      end
      object EditDescription: TEdit
        Left = 336
        Top = 270
        Width = 177
        Height = 21
        Enabled = False
        TabOrder = 8
      end
    end
    object TabSheetEditUsers: TTabSheet
      Caption = 'Edit Users'
      ImageIndex = 1
      object Panel1: TPanel
        Left = 280
        Top = 0
        Width = 245
        Height = 311
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object Label13: TLabel
          Left = 14
          Top = 82
          Width = 38
          Height = 13
          Caption = 'Column:'
          Visible = False
        end
        object LabelColumn: TLabel
          Left = 84
          Top = 82
          Width = 61
          Height = 13
          Caption = 'LabelColumn'
          Visible = False
        end
        object LabelTable: TLabel
          Left = 84
          Top = 66
          Width = 53
          Height = 13
          Caption = 'LabelTable'
          Visible = False
        end
        object LabelDB: TLabel
          Left = 84
          Top = 50
          Width = 41
          Height = 13
          Caption = 'LabelDB'
          Visible = False
        end
        object Label12: TLabel
          Left = 14
          Top = 66
          Width = 30
          Height = 13
          Caption = 'Table:'
          Visible = False
        end
        object Label11: TLabel
          Left = 14
          Top = 50
          Width = 49
          Height = 13
          Caption = 'Database:'
          Visible = False
        end
        object LabelPrivileges: TLabel
          Left = 14
          Top = 8
          Width = 60
          Height = 13
          Caption = 'Privileges:'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Visible = False
          WordWrap = True
        end
        object LabelPleaseSelect: TLabel
          Left = 40
          Top = 96
          Width = 142
          Height = 39
          Caption = 
            'Please select a user or doubleclick on a user to access items be' +
            'low him.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          WordWrap = True
        end
        object LabelNoPrivs: TLabel
          Left = 24
          Top = 120
          Width = 195
          Height = 13
          Caption = 'No Privileges are set for the selected item'
          Visible = False
        end
        object LabelUser: TLabel
          Left = 14