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 142 by tony, Mon Jan 1 11:31:07 2018 UTC vs.
Revision 143 by tony, Fri Feb 23 12:11:21 2018 UTC

# Line 1 | Line 1
1   object ListUsersForm: TListUsersForm
2 <  Left = 413
2 >  Left = 893
3    Height = 404
4 <  Top = 252
4 >  Top = 270
5    Width = 861
6 <  Caption = 'Display Users'
6 >  Caption = 'User Management'
7    ClientHeight = 404
8    ClientWidth = 861
9 +  OnClose = FormClose
10    OnShow = FormShow
11    Position = poScreenCenter
12 <  LCLVersion = '1.8.0.5'
12 >  LCLVersion = '1.6.4.0'
13    object Label1: TLabel
14      Left = 8
15 <    Height = 14
15 >    Height = 13
16      Top = 14
17 <    Width = 100
17 >    Width = 82
18      Caption = 'Registered Users'
19      ParentColor = False
20    end
21 <  object StringGrid1: TStringGrid
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 = 824
52 >    Width = 848
53      Anchors = [akTop, akLeft, akRight, akBottom]
54 <    AutoFillColumns = True
27 <    ColCount = 6
54 >    Color = clWindow
55      Columns = <    
56        item
57 +        ReadOnly = True
58          Title.Alignment = taCenter
59 <        Title.Caption = 'User ID'
60 <        Width = 137
59 >        Title.Caption = 'User Name'
60 >        Width = 120
61 >        FieldName = 'UserName'
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 = 'Group ID'
71 <        Width = 137
70 >        Title.Caption = 'First Name'
71 >        Width = 100
72 >        FieldName = 'FirstName'
73 >        AutoSizeColumn = True
74 >        InitialSortColumn = False
75 >        DBLookupProperties.ItemHeight = 0
76 >        DBLookupProperties.ItemWidth = 0
77 >        DBLookupProperties.AutoCompleteText = [cbactEnabled, cbactEndOfLineComplete, cbactSearchAscending]
78        end    
79        item
40 –        ReadOnly = True
80          Title.Alignment = taCenter
81 <        Title.Caption = 'User Name'
82 <        Width = 137
81 >        Title.Caption = 'Middle Name'
82 >        Width = 100
83 >        FieldName = 'MiddleName'
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 = 'First Name'
93 <        Width = 137
92 >        Title.Caption = 'Last Name'
93 >        Width = 100
94 >        FieldName = 'LastName'
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 = 'Middle Name'
104 <        Width = 137
103 >        Title.Caption = 'Admin'
104 >        Width = 64
105 >        FieldName = '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 = 'Last Name'
115 <        Width = 137
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 <    DefaultColWidth = 120
135 <    FixedCols = 0
136 <    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goEditing, goSmoothScroll]
137 <    ScrollBars = ssAutoVertical
138 <    TabOrder = 0
139 <    OnEditingDone = StringGrid1EditingDone
140 <    ColWidths = (
141 <      137
68 <      137
69 <      137
70 <      137
71 <      137
72 <      137
73 <    )
74 <    Cells = (
75 <      1
76 <      0
77 <      0
78 <      'User ID'
79 <    )
80 <  end
81 <  object Button1: TButton
82 <    Left = 757
83 <    Height = 25
84 <    Top = 373
85 <    Width = 75
86 <    Anchors = [akRight, akBottom]
87 <    Caption = 'Delete'
88 <    OnClick = Button1Click
89 <    TabOrder = 1
90 <  end
91 <  object Button2: TButton
92 <    Left = 8
93 <    Height = 25
94 <    Top = 373
95 <    Width = 75
96 <    Anchors = [akLeft, akBottom]
97 <    Caption = 'Add'
98 <    OnClick = Button2Click
99 <    TabOrder = 2
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 Button3: TButton
144 <    Left = 88
143 >  object Button4: TButton
144 >    Left = 216
145      Height = 25
146      Top = 373
147 <    Width = 120
147 >    Width = 112
148 >    Action = SaveChanges
149      Anchors = [akLeft, akBottom]
150 <    Caption = 'Change Password'
108 <    OnClick = Button3Click
109 <    TabOrder = 3
150 >    TabOrder = 4
151    end
152    object IBSecurityService1: TIBSecurityService
153      ServerName = 'localhost'
# Line 115 | Line 156 | object ListUsersForm: TListUsersForm
156      SecurityAction = ActionAddUser
157      UserID = 0
158      GroupID = 0
159 <    left = 768
160 <    top = 288
159 >    AdminRole = False
160 >    left = 440
161 >    top = 256
162 >  end
163 >  object UserListSource: TDataSource
164 >    DataSet = UserList
165 >    left = 359
166 >    top = 189
167 >  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
216 >  object ActionList1: TActionList
217 >    left = 88
218 >    top = 184
219 >    object AddUser: TAction
220 >      Caption = 'New User'
221 >      OnExecute = AddUserExecute
222 >    end
223 >    object ChangePassword: TAction
224 >      Caption = 'Change Password'
225 >      OnExecute = ChangePasswordExecute
226 >      OnUpdate = ChangePasswordUpdate
227 >    end
228 >    object DeleteUser: TAction
229 >      Caption = 'Delete User'
230 >      OnExecute = DeleteUserExecute
231 >      OnUpdate = ChangePasswordUpdate
232 >    end
233 >    object SaveChanges: TAction
234 >      Caption = 'Save Changes'
235 >      OnExecute = SaveChangesExecute
236 >      OnUpdate = SaveChangesUpdate
237 >    end
238 >  end
239 >  object PopupMenu1: TPopupMenu
240 >    left = 181
241 >    top = 191
242 >    object MenuItem1: TMenuItem
243 >      Action = AddUser
244 >    end
245 >    object MenuItem2: TMenuItem
246 >      Caption = '-'
247 >    end
248 >    object MenuItem3: TMenuItem
249 >      Action = ChangePassword
250 >    end
251 >    object MenuItem4: TMenuItem
252 >      Action = DeleteUser
253 >    end
254 >    object MenuItem5: TMenuItem
255 >      Caption = '-'
256 >    end
257 >    object MenuItem6: TMenuItem
258 >      Action = SaveChanges
259 >    end
260    end
261   end

Diff Legend

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