object ListUsersForm: TListUsersForm
  Left = 893
  Height = 404
  Top = 270
  Width = 861
  Caption = 'User Management'
  ClientHeight = 404
  ClientWidth = 861
  OnClose = FormClose
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.0.6'
  object Label1: TLabel
    Left = 8
    Height = 15
    Top = 14
    Width = 86
    Caption = 'Registered Users'
    ParentColor = False
  end
  object Button1: TButton
    Left = 752
    Height = 25
    Top = 373
    Width = 80
    Action = DeleteUser
    Anchors = [akRight, akBottom]
    TabOrder = 0
  end
  object Button2: TButton
    Left = 8
    Height = 25
    Top = 373
    Width = 75
    Action = AddUser
    Anchors = [akLeft, akBottom]
    TabOrder = 1
  end
  object Button3: TButton
    Left = 88
    Height = 25
    Top = 373
    Width = 120
    Action = ChangePassword
    Anchors = [akLeft, akBottom]
    TabOrder = 2
  end
  object IBDynamicGrid1: TIBDynamicGrid
    Left = 8
    Height = 336
    Top = 32
    Width = 848
    Anchors = [akTop, akLeft, akRight, akBottom]
    Color = clWindow
    Columns = <    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'User Name'
        Width = 120
        FieldName = 'SEC$USER_NAME'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'First Name'
        Width = 100
        FieldName = 'SEC$FIRST_NAME'
        AutoSizeColumn = True
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Middle Name'
        Width = 100
        FieldName = 'SEC$MIDDLE_NAME'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Last Name'
        Width = 100
        FieldName = 'SEC$LAST_NAME'
        AutoSizeColumn = True
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Admin'
        Width = 64
        FieldName = 'SEC$ADMIN'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'User ID'
        Width = 60
        FieldName = 'UserID'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Group  ID'
        Width = 70
        FieldName = 'GroupID'
        AutoSizeColumn = False
        InitialSortColumn = False
        DBLookupProperties.ItemHeight = 0
        DBLookupProperties.ItemWidth = 0
        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
      end>
    DataSource = UserListSource
    PopupMenu = PopupMenu1
    Scrollbars = ssAutoVertical
    TabOrder = 3
    ExpandEditorPanelBelowRow = False
    Descending = False
    EditorBorderStyle = bsSingle
    DefaultPositionAtEnd = False
  end
  object Button4: TButton
    Left = 216
    Height = 25
    Top = 373
    Width = 112
    Action = SaveChanges
    Anchors = [akLeft, akBottom]
    TabOrder = 4
  end
  object UserListSource: TDataSource
    DataSet = UserList
    left = 359
    top = 189
  end
  object ActionList1: TActionList
    left = 88
    top = 184
    object AddUser: TAction
      Caption = 'New User'
      OnExecute = AddUserExecute
    end
    object ChangePassword: TAction
      Caption = 'Change Password'
      OnExecute = ChangePasswordExecute
      OnUpdate = ChangePasswordUpdate
    end
    object DeleteUser: TAction
      Caption = 'Delete User'
      OnExecute = DeleteUserExecute
      OnUpdate = ChangePasswordUpdate
    end
    object SaveChanges: TAction
      Caption = 'Save Changes'
      OnExecute = SaveChangesExecute
      OnUpdate = SaveChangesUpdate
    end
  end
  object PopupMenu1: TPopupMenu
    left = 181
    top = 191
    object MenuItem1: TMenuItem
      Action = AddUser
    end
    object MenuItem2: TMenuItem
      Caption = '-'
    end
    object MenuItem3: TMenuItem
      Action = ChangePassword
    end
    object MenuItem4: TMenuItem
      Action = DeleteUser
    end
    object MenuItem5: TMenuItem
      Caption = '-'
    end
    object MenuItem6: TMenuItem
      Action = SaveChanges
    end
  end
  object IBXSecurityService1: TIBXSecurityService
    ServicesConnection = MainForm.IBXServicesConnection1
    TraceFlags = []
    UserID = 0
    GroupID = 0
    AdminRole = False
    left = 457
    top = 124
  end
  object UserList: TIBXServicesUserList
    FieldDefs = <    
      item
        Name = 'UserID'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'GroupID'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'SEC$USER_NAME'
        DataType = ftString
        Precision = -1
        Size = 31
      end    
      item
        Name = 'SEC$FIRST_NAME'
        DataType = ftString
        Precision = -1
        Size = 32
      end    
      item
        Name = 'SEC$MIDDLE_NAME'
        DataType = ftString
        Precision = -1
        Size = 32
      end    
      item
        Name = 'SEC$LAST_NAME'
        DataType = ftString
        Precision = -1
        Size = 32
      end    
      item
        Name = 'SEC$PASSWORD'
        DataType = ftString
        Precision = -1
        Size = 32
      end    
      item
        Name = 'SEC$ADMIN'
        DataType = ftBoolean
        Precision = -1
      end>
    Source = IBXSecurityService1
    left = 480
    top = 197
  end
end