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.6.4.0'
  object Label1: TLabel
    Left = 8
    Height = 13
    Top = 14
    Width = 82
    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 = 'UserName'
        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 = 'FirstName'
        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 = 'MiddleName'
        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 = 'LastName'
        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 = '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 IBSecurityService1: TIBSecurityService
    ServerName = 'localhost'
    Protocol = TCP
    TraceFlags = []
    SecurityAction = ActionAddUser
    UserID = 0
    GroupID = 0
    AdminRole = False
    left = 440
    top = 256
  end
  object UserListSource: TDataSource
    DataSet = UserList
    left = 359
    top = 189
  end
  object UserList: TMemDataset
    FieldDefs = <    
      item
        Name = 'UserID'
        DataType = ftInteger
      end    
      item
        Name = 'GroupID'
        DataType = ftInteger
      end    
      item
        Name = 'UserName'
        DataType = ftString
        Size = 32
      end    
      item
        Name = 'FirstName'
        DataType = ftString
        Size = 32
      end    
      item
        Name = 'MiddleName'
        DataType = ftString
        Size = 32
      end    
      item
        Name = 'LastName'
        DataType = ftString
        Size = 32
      end    
      item
        Name = 'Password'
        DataType = ftString
        Size = 32
      end    
      item
        Name = 'Admin'
        DataType = ftBoolean
      end>
    AfterOpen = UserListAfterOpen
    BeforeClose = UserListBeforeClose
    AfterInsert = UserListAfterInsert
    BeforePost = UserListBeforePost
    AfterPost = UserListAfterPost
    BeforeDelete = UserListBeforeDelete
    left = 436
    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
end
Revision:	143
Committed:	Fri Feb 23 12:11:21 2018 UTC (6 years, 1 month ago) by tony
File size:	6744 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.6.4.0'
13	object Label1: TLabel
14	Left = 8
15	Height = 13
16	Top = 14
17	Width = 82
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 = '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 = '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
80	Title.Alignment = taCenter
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 = '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 = '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 = '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 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
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