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, 9 months ago) by tony
File size:	6744 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	143	LCLVersion = '1.6.4.0'
13	tony	45	object Label1: TLabel
14			Left = 8
15	tony	143	Height = 13
16	tony	45	Top = 14
17	tony	143	Width = 82
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			FieldName = 'UserName'
62			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			FieldName = 'FirstName'
73			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			FieldName = 'MiddleName'
84			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			FieldName = 'LastName'
95			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			FieldName = 'Admin'
106			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			object IBSecurityService1: TIBSecurityService
153			ServerName = 'localhost'
154			Protocol = TCP
155			TraceFlags = []
156			SecurityAction = ActionAddUser
157			UserID = 0
158			GroupID = 0
159	tony	143	AdminRole = False
160			left = 440
161			top = 256
162	tony	45	end
163	tony	143	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	tony	45	end