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