examples/services/ListUsersUnit.lfm

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
Revision:	209
Committed:	Wed Mar 14 12:48:51 2018 UTC (6 years, 1 month ago) by tony
File size:	6778 byte(s)
Log Message:	Fixes Merged
#	Content
1	object ListUsersForm: TListUsersForm
2	Left = 893
3	Height = 404
4	Top = 270
5	Width = 861
6	Caption = 'User Management'
7	ClientHeight = 404
8	ClientWidth = 861
9	OnClose = FormClose
10	OnShow = FormShow
11	Position = poScreenCenter
12	LCLVersion = '1.8.0.6'
13	object Label1: TLabel
14	Left = 8
15	Height = 15
16	Top = 14
17	Width = 86
18	Caption = 'Registered Users'
19	ParentColor = False
20	end
21	object Button1: TButton
22	Left = 752
23	Height = 25
24	Top = 373
25	Width = 80
26	Action = DeleteUser
27	Anchors = [akRight, akBottom]
28	TabOrder = 0
29	end
30	object Button2: TButton
31	Left = 8
32	Height = 25
33	Top = 373
34	Width = 75
35	Action = AddUser
36	Anchors = [akLeft, akBottom]
37	TabOrder = 1
38	end
39	object Button3: TButton
40	Left = 88
41	Height = 25
42	Top = 373
43	Width = 120
44	Action = ChangePassword
45	Anchors = [akLeft, akBottom]
46	TabOrder = 2
47	end
48	object IBDynamicGrid1: TIBDynamicGrid
49	Left = 8
50	Height = 336
51	Top = 32
52	Width = 848
53	Anchors = [akTop, akLeft, akRight, akBottom]
54	Color = clWindow
55	Columns = <
56	item
57	ReadOnly = True
58	Title.Alignment = taCenter
59	Title.Caption = 'User Name'
60	Width = 120
61	FieldName = 'SEC$USER_NAME'
62	AutoSizeColumn = False
63	InitialSortColumn = False
64	DBLookupProperties.ItemHeight = 0
65	DBLookupProperties.ItemWidth = 0
66	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
67	end
68	item
69	Title.Alignment = taCenter
70	Title.Caption = 'First Name'
71	Width = 100
72	FieldName = 'SEC$FIRST_NAME'
73	AutoSizeColumn = True
74	InitialSortColumn = False
75	DBLookupProperties.ItemHeight = 0
76	DBLookupProperties.ItemWidth = 0
77	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
78	end
79	item
80	Title.Alignment = taCenter
81	Title.Caption = 'Middle Name'
82	Width = 100
83	FieldName = 'SEC$MIDDLE_NAME'
84	AutoSizeColumn = False
85	InitialSortColumn = False
86	DBLookupProperties.ItemHeight = 0
87	DBLookupProperties.ItemWidth = 0
88	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
89	end
90	item
91	Title.Alignment = taCenter
92	Title.Caption = 'Last Name'
93	Width = 100
94	FieldName = 'SEC$LAST_NAME'
95	AutoSizeColumn = True
96	InitialSortColumn = False
97	DBLookupProperties.ItemHeight = 0
98	DBLookupProperties.ItemWidth = 0
99	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
100	end
101	item
102	Title.Alignment = taCenter
103	Title.Caption = 'Admin'
104	Width = 64
105	FieldName = 'SEC$ADMIN'
106	AutoSizeColumn = False
107	InitialSortColumn = False
108	DBLookupProperties.ItemHeight = 0
109	DBLookupProperties.ItemWidth = 0
110	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
111	end
112	item
113	Title.Alignment = taCenter
114	Title.Caption = 'User ID'
115	Width = 60
116	FieldName = 'UserID'
117	AutoSizeColumn = False
118	InitialSortColumn = False
119	DBLookupProperties.ItemHeight = 0
120	DBLookupProperties.ItemWidth = 0
121	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
122	end
123	item
124	Title.Alignment = taCenter
125	Title.Caption = 'Group ID'
126	Width = 70
127	FieldName = 'GroupID'
128	AutoSizeColumn = False
129	InitialSortColumn = False
130	DBLookupProperties.ItemHeight = 0
131	DBLookupProperties.ItemWidth = 0
132	DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
133	end>
134	DataSource = UserListSource
135	PopupMenu = PopupMenu1
136	Scrollbars = ssAutoVertical
137	TabOrder = 3
138	ExpandEditorPanelBelowRow = False
139	Descending = False
140	EditorBorderStyle = bsSingle
141	DefaultPositionAtEnd = False
142	end
143	object Button4: TButton
144	Left = 216
145	Height = 25
146	Top = 373
147	Width = 112
148	Action = SaveChanges
149	Anchors = [akLeft, akBottom]
150	TabOrder = 4
151	end
152	object UserListSource: TDataSource
153	DataSet = UserList
154	left = 359
155	top = 189
156	end
157	object ActionList1: TActionList
158	left = 88
159	top = 184
160	object AddUser: TAction
161	Caption = 'New User'
162	OnExecute = AddUserExecute
163	end
164	object ChangePassword: TAction
165	Caption = 'Change Password'
166	OnExecute = ChangePasswordExecute
167	OnUpdate = ChangePasswordUpdate
168	end
169	object DeleteUser: TAction
170	Caption = 'Delete User'
171	OnExecute = DeleteUserExecute
172	OnUpdate = ChangePasswordUpdate
173	end
174	object SaveChanges: TAction
175	Caption = 'Save Changes'
176	OnExecute = SaveChangesExecute
177	OnUpdate = SaveChangesUpdate
178	end
179	end
180	object PopupMenu1: TPopupMenu
181	left = 181
182	top = 191
183	object MenuItem1: TMenuItem
184	Action = AddUser
185	end
186	object MenuItem2: TMenuItem
187	Caption = '-'
188	end
189	object MenuItem3: TMenuItem
190	Action = ChangePassword
191	end
192	object MenuItem4: TMenuItem
193	Action = DeleteUser
194	end
195	object MenuItem5: TMenuItem
196	Caption = '-'
197	end
198	object MenuItem6: TMenuItem
199	Action = SaveChanges
200	end
201	end
202	object IBXSecurityService1: TIBXSecurityService
203	ServicesConnection = MainForm.IBXServicesConnection1
204	TraceFlags = []
205	UserID = 0
206	GroupID = 0
207	AdminRole = False
208	left = 457
209	top = 124
210	end
211	object UserList: TIBXServicesUserList
212	FieldDefs = <
213	item
214	Name = 'UserID'
215	DataType = ftInteger
216	Precision = -1
217	end
218	item
219	Name = 'GroupID'
220	DataType = ftInteger
221	Precision = -1
222	end
223	item
224	Name = 'SEC$USER_NAME'
225	DataType = ftString
226	Precision = -1
227	Size = 31
228	end
229	item
230	Name = 'SEC$FIRST_NAME'
231	DataType = ftString
232	Precision = -1
233	Size = 32
234	end
235	item
236	Name = 'SEC$MIDDLE_NAME'
237	DataType = ftString
238	Precision = -1
239	Size = 32
240	end
241	item
242	Name = 'SEC$LAST_NAME'
243	DataType = ftString
244	Precision = -1
245	Size = 32
246	end
247	item
248	Name = 'SEC$PASSWORD'
249	DataType = ftString
250	Precision = -1
251	Size = 32
252	end
253	item
254	Name = 'SEC$ADMIN'
255	DataType = ftBoolean
256	Precision = -1
257	end>
258	Source = IBXSecurityService1
259	left = 480
260	top = 197
261	end
262	end