ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/services/ListUsersUnit.lfm
(Generate patch)

Comparing ibx/trunk/examples/services/ListUsersUnit.lfm (file contents):
Revision 208 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

# Line 9 | Line 9 | object ListUsersForm: TListUsersForm
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
# Line 58 | Line 58 | object ListUsersForm: TListUsersForm
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
# Line 69 | Line 69 | object ListUsersForm: TListUsersForm
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
# Line 80 | Line 80 | object ListUsersForm: TListUsersForm
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
# Line 91 | Line 91 | object ListUsersForm: TListUsersForm
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
# Line 102 | Line 102 | object ListUsersForm: TListUsersForm
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
# Line 149 | Line 149 | object ListUsersForm: TListUsersForm
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
# Line 258 | Line 199 | object ListUsersForm: TListUsersForm
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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines