9 |
|
OnClose = FormClose |
10 |
|
OnShow = FormShow |
11 |
|
Position = poScreenCenter |
12 |
< |
LCLVersion = '1.6.4.0' |
12 |
> |
LCLVersion = '1.8.0.6' |
13 |
|
object Label1: TLabel |
14 |
|
Left = 8 |
15 |
< |
Height = 13 |
15 |
> |
Height = 15 |
16 |
|
Top = 14 |
17 |
< |
Width = 82 |
17 |
> |
Width = 86 |
18 |
|
Caption = 'Registered Users' |
19 |
|
ParentColor = False |
20 |
|
end |
58 |
|
Title.Alignment = taCenter |
59 |
|
Title.Caption = 'User Name' |
60 |
|
Width = 120 |
61 |
< |
FieldName = 'UserName' |
61 |
> |
FieldName = 'SEC$USER_NAME' |
62 |
|
AutoSizeColumn = False |
63 |
|
InitialSortColumn = False |
64 |
|
DBLookupProperties.ItemHeight = 0 |
69 |
|
Title.Alignment = taCenter |
70 |
|
Title.Caption = 'First Name' |
71 |
|
Width = 100 |
72 |
< |
FieldName = 'FirstName' |
72 |
> |
FieldName = 'SEC$FIRST_NAME' |
73 |
|
AutoSizeColumn = True |
74 |
|
InitialSortColumn = False |
75 |
|
DBLookupProperties.ItemHeight = 0 |
80 |
|
Title.Alignment = taCenter |
81 |
|
Title.Caption = 'Middle Name' |
82 |
|
Width = 100 |
83 |
< |
FieldName = 'MiddleName' |
83 |
> |
FieldName = 'SEC$MIDDLE_NAME' |
84 |
|
AutoSizeColumn = False |
85 |
|
InitialSortColumn = False |
86 |
|
DBLookupProperties.ItemHeight = 0 |
91 |
|
Title.Alignment = taCenter |
92 |
|
Title.Caption = 'Last Name' |
93 |
|
Width = 100 |
94 |
< |
FieldName = 'LastName' |
94 |
> |
FieldName = 'SEC$LAST_NAME' |
95 |
|
AutoSizeColumn = True |
96 |
|
InitialSortColumn = False |
97 |
|
DBLookupProperties.ItemHeight = 0 |
102 |
|
Title.Alignment = taCenter |
103 |
|
Title.Caption = 'Admin' |
104 |
|
Width = 64 |
105 |
< |
FieldName = 'Admin' |
105 |
> |
FieldName = 'SEC$ADMIN' |
106 |
|
AutoSizeColumn = False |
107 |
|
InitialSortColumn = False |
108 |
|
DBLookupProperties.ItemHeight = 0 |
149 |
|
Anchors = [akLeft, akBottom] |
150 |
|
TabOrder = 4 |
151 |
|
end |
152 |
– |
object IBSecurityService1: TIBSecurityService |
153 |
– |
ServerName = 'localhost' |
154 |
– |
Protocol = TCP |
155 |
– |
TraceFlags = [] |
156 |
– |
SecurityAction = ActionAddUser |
157 |
– |
UserID = 0 |
158 |
– |
GroupID = 0 |
159 |
– |
AdminRole = False |
160 |
– |
left = 440 |
161 |
– |
top = 256 |
162 |
– |
end |
152 |
|
object UserListSource: TDataSource |
153 |
|
DataSet = UserList |
154 |
|
left = 359 |
155 |
|
top = 189 |
156 |
|
end |
168 |
– |
object UserList: TMemDataset |
169 |
– |
FieldDefs = < |
170 |
– |
item |
171 |
– |
Name = 'UserID' |
172 |
– |
DataType = ftInteger |
173 |
– |
end |
174 |
– |
item |
175 |
– |
Name = 'GroupID' |
176 |
– |
DataType = ftInteger |
177 |
– |
end |
178 |
– |
item |
179 |
– |
Name = 'UserName' |
180 |
– |
DataType = ftString |
181 |
– |
Size = 32 |
182 |
– |
end |
183 |
– |
item |
184 |
– |
Name = 'FirstName' |
185 |
– |
DataType = ftString |
186 |
– |
Size = 32 |
187 |
– |
end |
188 |
– |
item |
189 |
– |
Name = 'MiddleName' |
190 |
– |
DataType = ftString |
191 |
– |
Size = 32 |
192 |
– |
end |
193 |
– |
item |
194 |
– |
Name = 'LastName' |
195 |
– |
DataType = ftString |
196 |
– |
Size = 32 |
197 |
– |
end |
198 |
– |
item |
199 |
– |
Name = 'Password' |
200 |
– |
DataType = ftString |
201 |
– |
Size = 32 |
202 |
– |
end |
203 |
– |
item |
204 |
– |
Name = 'Admin' |
205 |
– |
DataType = ftBoolean |
206 |
– |
end> |
207 |
– |
AfterOpen = UserListAfterOpen |
208 |
– |
BeforeClose = UserListBeforeClose |
209 |
– |
AfterInsert = UserListAfterInsert |
210 |
– |
BeforePost = UserListBeforePost |
211 |
– |
AfterPost = UserListAfterPost |
212 |
– |
BeforeDelete = UserListBeforeDelete |
213 |
– |
left = 436 |
214 |
– |
top = 189 |
215 |
– |
end |
157 |
|
object ActionList1: TActionList |
158 |
|
left = 88 |
159 |
|
top = 184 |
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 |