permissionmanage.lfm

object fmPermissionManage: TfmPermissionManage
  Left = 474
  Height = 368
  Top = 204
  Width = 518
  Caption = 'Permission Management'
  ClientHeight = 368
  ClientWidth = 518
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poScreenCenter
  LCLVersion = '1.2.2.0'
  object PageControl1: TPageControl
    Left = 0
    Height = 368
    Top = 0
    Width = 496
    ActivePage = tsTables
    Anchors = [akTop, akLeft, akRight, akBottom]
    TabIndex = 0
    TabOrder = 0
    object tsTables: TTabSheet
      Caption = 'Tables'
      ClientHeight = 342
      ClientWidth = 488
      object Label1: TLabel
        Left = 14
        Height = 13
        Top = 11
        Width = 47
        Caption = 'User/Role'
        ParentColor = False
      end
      object Label2: TLabel
        Left = 14
        Height = 13
        Top = 95
        Width = 26
        Caption = 'Table'
        ParentColor = False
      end
      object cbTables: TComboBox
        Left = 18
        Height = 21
        Top = 124
        Width = 236
        ItemHeight = 13
        OnChange = cbTablesChange
        Style = csDropDownList
        TabOrder = 0
      end
      object Label3: TLabel
        Left = 310
        Height = 13
        Top = 10
        Width = 55
        Caption = 'Permissions'
        ParentColor = False
      end
      object cxSelect: TCheckBox
        Left = 317
        Height = 17
        Top = 86
        Width = 49
        Caption = 'Select'
        TabOrder = 1
      end
      object cxInsert: TCheckBox
        Left = 318
        Height = 17
        Top = 138
        Width = 49
        Caption = 'Insert'
        TabOrder = 2
      end
      object cxUpdate: TCheckBox
        Left = 317
        Height = 17
        Top = 183
        Width = 55
        Caption = 'Update'
        TabOrder = 3
      end
      object cxDelete: TCheckBox
        Left = 317
        Height = 17
        Top = 236
        Width = 51
        Caption = 'Delete'
        TabOrder = 4
      end
      object cxReferences: TCheckBox
        Left = 318
        Height = 17
        Top = 287
        Width = 75
        Caption = 'References'
        TabOrder = 5
      end
      object bbApplyTable: TBitBtn
        Left = 6
        Height = 35
        Top = 304
        Width = 75
        Anchors = [akLeft, akBottom]
        Caption = 'Apply'
        Kind = bkOK
        OnClick = bbApplyTableClick
        TabOrder = 6
      end
      object cbUsers: TComboBox
        Left = 18
        Height = 21
        Top = 34
        Width = 236
        ItemHeight = 13
        OnChange = cbTablesChange
        TabOrder = 7
      end
      object cxSelectGrant: TCheckBox
        Left = 345
        Height = 17
        Top = 103
        Width = 72
        Caption = 'With Grant'
        TabOrder = 8
      end
      object cxInsertGrant: TCheckBox
        Left = 345
        Height = 17
        Top = 156
        Width = 72
        Caption = 'With Grant'
        TabOrder = 9
      end
      object cxUpdateGrant: TCheckBox
        Left = 345
        Height = 17
        Top = 203
        Width = 72
        Caption = 'With Grant'
        TabOrder = 10
      end
      object cxDeleteGrant: TCheckBox
        Left = 342
        Height = 17
        Top = 254
        Width = 72
        Caption = 'With Grant'
        TabOrder = 11
      end
      object cxReferencesGrant: TCheckBox
        Left = 345
        Height = 17
        Top = 309
        Width = 72
        Caption = 'With Grant'
        TabOrder = 12
      end
      object cxAll: TCheckBox
        Left = 318
        Height = 24
        Top = 34
        Width = 66
        AutoSize = False
        Caption = 'All'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 13
      end
      object cxAllGrant: TCheckBox
        Left = 345
        Height = 24
        Top = 55
        Width = 110
        AutoSize = False
        Caption = 'With Grant'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 14
      end
    end
    object tsViews: TTabSheet
      Caption = 'Views'
      ClientHeight = 337
      ClientWidth = 492
      object Label8: TLabel
        Left = 14
        Height = 18
        Top = 11
        Width = 67
        Caption = 'User/Role'
        ParentColor = False
      end
      object cbViewsUsers: TComboBox
        Left = 18
        Height = 21
        Top = 34
        Width = 220
        ItemHeight = 13
        OnChange = cbViewsUsersChange
        TabOrder = 0
      end
      object Label9: TLabel
        Left = 14
        Height = 18
        Top = 95
        Width = 34
        Caption = 'View'
        ParentColor = False
      end
      object cbViews: TComboBox
        Left = 18
        Height = 21
        Top = 124
        Width = 220
        ItemHeight = 13
        OnChange = cbViewsChange
        Style = csDropDownList
        TabOrder = 1
      end
      object bbApplyView: TBitBtn
        Left = 6
        Height = 33
        Top = 299
        Width = 75
        Anchors = [akLeft, akBottom]
        Caption = 'Apply'
        Kind = bkOK
        OnClick = bbApplyViewClick
        TabOrder = 2
      end
      object Label10: TLabel
        Left = 310
        Height = 18
        Top = 10
        Width = 83
        Caption = 'Permissions'
        ParentColor = False
      end
      object cxViewAll: TCheckBox
        Left = 318
        Height = 24
        Top = 34
        Width = 47
        Caption = 'All'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
      end
      object cxViewAllGrant: TCheckBox
        Left = 345
        Height = 24
        Top = 49
        Width = 104
        Caption = 'With Grant'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
      end
      object cxViewSelect: TCheckBox
        Left = 317
        Height = 24
        Top = 86
        Width = 67
        Caption = 'Select'
        TabOrder = 5
      end
      object cxViewSelectGrant: TCheckBox
        Left = 345
        Height = 24
        Top = 102
        Width = 99
        Caption = 'With Grant'
        TabOrder = 6
      end
      object cxViewInsert: TCheckBox
        Left = 318
        Height = 24
        Top = 138
        Width = 65
        Caption = 'Insert'
        TabOrder = 7
      end
      object cxViewInsertGrant: TCheckBox
        Left = 345
        Height = 24
        Top = 154
        Width = 99
        Caption = 'With Grant'
        TabOrder = 8
      end
      object cxViewUpdate: TCheckBox
        Left = 317
        Height = 24
        Top = 183
        Width = 76
        Caption = 'Update'
        TabOrder = 9
      end
      object cxViewUpdateGrant: TCheckBox
        Left = 345
        Height = 24
        Top = 202
        Width = 99
        Caption = 'With Grant'
        TabOrder = 10
      end
      object cxViewDelete: TCheckBox
        Left = 317
        Height = 24
        Top = 236
        Width = 70
        Caption = 'Delete'
        TabOrder = 11
      end
      object cxViewDeleteGrant: TCheckBox
        Left = 342
        Height = 24
        Top = 253
        Width = 99
        Caption = 'With Grant'
        TabOrder = 12
      end
      object cxViewReferences: TCheckBox
        Left = 318
        Height = 24
        Top = 287
        Width = 101
        Caption = 'References'
        TabOrder = 13
      end
      object cxViewReferencesGrant: TCheckBox
        Left = 345
        Height = 24
        Top = 307
        Width = 99
        Caption = 'With Grant'
        TabOrder = 14
      end
    end
    object tsProcedures: TTabSheet
      Caption = 'Procedures'
      ClientHeight = 337
      ClientWidth = 492
      object Label4: TLabel
        Left = 12
        Height = 18
        Top = 10
        Width = 67
        Caption = 'User/Role'
        ParentColor = False
      end
      object cbProcUsers: TComboBox
        Left = 18
        Height = 21
        Top = 34
        Width = 196
        ItemHeight = 13
        OnChange = cbProcUsersChange
        TabOrder = 0
      end
      object Label5: TLabel
        Left = 230
        Height = 18
        Top = 11
        Width = 83
        Caption = 'Permissions'
        ParentColor = False
      end
      object clbProcedures: TCheckListBox
        Left = 246
        Height = 257
        Top = 39
        Width = 211
        Anchors = [akTop, akLeft, akBottom]
        ItemHeight = 0
        OnClick = clbProceduresClick
        OnKeyUp = clbProceduresKeyUp
        TabOrder = 1
      end
      object bbApplyProc: TBitBtn
        Left = 6
        Height = 33
        Top = 296
        Width = 75
        Anchors = [akLeft, akBottom]
        Caption = 'Apply'
        Kind = bkOK
        OnClick = bbApplyProcClick
        TabOrder = 2
      end
      object cxProcGrant: TCheckBox
        Left = 246
        Height = 24
        Top = 299
        Width = 99
        Anchors = [akLeft, akBottom]
        Caption = 'With Grant'
        OnChange = cxProcGrantChange
        TabOrder = 3
      end
    end
    object tsRoles: TTabSheet
      Caption = 'Roles'
      ClientHeight = 337
      ClientWidth = 492
      object Label6: TLabel
        Left = 12
        Height = 18
        Top = 10
        Width = 32
        Caption = 'User'
        ParentColor = False
      end
      object cbRolesUser: TComboBox
        Left = 18
        Height = 21
        Top = 34
        Width = 188
        ItemHeight = 13
        OnChange = cbRolesUserChange
        TabOrder = 0
      end
      object Label7: TLabel
        Left = 230
        Height = 18
        Top = 11
        Width = 83
        Caption = 'Permissions'
        ParentColor = False
      end
      object bbApplyRoles: TBitBtn
        Left = 12
        Height = 35
        Top = 298
        Width = 75
        Anchors = [akLeft, akBottom]
        Caption = 'Apply'
        Kind = bkOK
        OnClick = bbApplyRolesClick
        TabOrder = 1
      end
      object clbRoles: TCheckListBox
        Left = 246
        Height = 257
        Top = 39
        Width = 211
        Anchors = [akTop, akLeft, akBottom]
        ItemHeight = 0
        OnClick = clbRolesClick
        OnKeyUp = clbRolesKeyUp
        TabOrder = 2
      end
      object BitBtn1: TBitBtn
        Left = 102
        Height = 35
        Top = 298
        Width = 75
        Anchors = [akLeft, akBottom]
        Caption = 'Refresh'
        OnClick = BitBtn1Click
        TabOrder = 3
      end
      object cxRoleGrant: TCheckBox
        Left = 246
        Height = 24
        Top = 304
        Width = 105
        Anchors = [akLeft, akBottom]
        Caption = 'With Admin'
        OnChange = cxRoleGrantChange
        TabOrder = 4
      end
    end
  end
  object bbClose: TBitBtn
    Left = 488
    Height = 24
    Top = -1
    Width = 27
    Anchors = [akTop, akRight]
    Caption = ' X  '
    Color = 16249563
    Font.Style = [fsBold]
    OnClick = bbCloseClick
    ParentFont = False
    TabOrder = 1
  end
end