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
#	User	Rev	Content
1	tony	45	object ListUsersForm: TListUsersForm
2	tony	143	Left = 893
3	tony	45	Height = 404
4	tony	143	Top = 270
5	tony	45	Width = 861
6	tony	143	Caption = 'User Management'
7	tony	45	ClientHeight = 404
8			ClientWidth = 861
9	tony	143	OnClose = FormClose
10	tony	45	OnShow = FormShow
11	tony	80	Position = poScreenCenter
12	tony	209	LCLVersion = '1.8.0.6'
13	tony	45	object Label1: TLabel
14			Left = 8
15	tony	209	Height = 15
16	tony	45	Top = 14
17	tony	209	Width = 86
18	tony	45	Caption = 'Registered Users'
19			ParentColor = False
20			end
21	tony	143	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	tony	45	Left = 8
32	tony	143	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	tony	45	Height = 336
51			Top = 32
52	tony	143	Width = 848
53	tony	45	Anchors = [akTop, akLeft, akRight, akBottom]
54	tony	143	Color = clWindow
55	tony	45	Columns = <
56			item
57	tony	143	ReadOnly = True
58	tony	45	Title.Alignment = taCenter
59	tony	143	Title.Caption = 'User Name'
60			Width = 120
61	tony	209	FieldName = 'SEC$USER_NAME'
62	tony	143	AutoSizeColumn = False
63			InitialSortColumn = False
64			DBLookupProperties.ItemHeight = 0
65			DBLookupProperties.ItemWidth = 0
66			DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
67	tony	45	end
68			item
69			Title.Alignment = taCenter
70	tony	143	Title.Caption = 'First Name'
71			Width = 100
72	tony	209	FieldName = 'SEC$FIRST_NAME'
73	tony	143	AutoSizeColumn = True
74			InitialSortColumn = False
75			DBLookupProperties.ItemHeight = 0
76			DBLookupProperties.ItemWidth = 0
77			DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
78	tony	45	end
79			item
80			Title.Alignment = taCenter
81	tony	143	Title.Caption = 'Middle Name'
82			Width = 100
83	tony	209	FieldName = 'SEC$MIDDLE_NAME'
84	tony	143	AutoSizeColumn = False
85			InitialSortColumn = False
86			DBLookupProperties.ItemHeight = 0
87			DBLookupProperties.ItemWidth = 0
88			DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
89	tony	45	end
90			item
91			Title.Alignment = taCenter
92	tony	143	Title.Caption = 'Last Name'
93			Width = 100
94	tony	209	FieldName = 'SEC$LAST_NAME'
95	tony	143	AutoSizeColumn = True
96			InitialSortColumn = False
97			DBLookupProperties.ItemHeight = 0
98			DBLookupProperties.ItemWidth = 0
99			DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
100	tony	45	end
101			item
102			Title.Alignment = taCenter
103	tony	143	Title.Caption = 'Admin'
104			Width = 64
105	tony	209	FieldName = 'SEC$ADMIN'
106	tony	143	AutoSizeColumn = False
107			InitialSortColumn = False
108			DBLookupProperties.ItemHeight = 0
109			DBLookupProperties.ItemWidth = 0
110			DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
111	tony	45	end
112			item
113			Title.Alignment = taCenter
114	tony	143	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	tony	45	end>
134	tony	143	DataSource = UserListSource
135			PopupMenu = PopupMenu1
136			Scrollbars = ssAutoVertical
137			TabOrder = 3
138			ExpandEditorPanelBelowRow = False
139			Descending = False
140			EditorBorderStyle = bsSingle
141			DefaultPositionAtEnd = False
142	tony	45	end
143	tony	143	object Button4: TButton
144			Left = 216
145	tony	45	Height = 25
146			Top = 373
147	tony	143	Width = 112
148			Action = SaveChanges
149	tony	45	Anchors = [akLeft, akBottom]
150	tony	143	TabOrder = 4
151	tony	45	end
152	tony	143	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	tony	209	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	tony	45	end