ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/services/ListUsersUnit.lfm
Revision: 45
Committed: Tue Dec 6 10:33:46 2016 UTC (7 years, 3 months ago) by tony
File size: 2497 byte(s)
Log Message:
Committing updates for Release R2-0-0

File Contents

# Content
1 object ListUsersForm: TListUsersForm
2 Left = 452
3 Height = 404
4 Top = 200
5 Width = 861
6 Caption = 'Display Users'
7 ClientHeight = 404
8 ClientWidth = 861
9 OnShow = FormShow
10 LCLVersion = '1.6.0.4'
11 object Label1: TLabel
12 Left = 8
13 Height = 15
14 Top = 14
15 Width = 100
16 Caption = 'Registered Users'
17 ParentColor = False
18 end
19 object StringGrid1: TStringGrid
20 Left = 8
21 Height = 336
22 Top = 32
23 Width = 824
24 Anchors = [akTop, akLeft, akRight, akBottom]
25 AutoFillColumns = True
26 ColCount = 6
27 Columns = <
28 item
29 Title.Alignment = taCenter
30 Title.Caption = 'User ID'
31 Width = 137
32 end
33 item
34 Title.Alignment = taCenter
35 Title.Caption = 'Group ID'
36 Width = 137
37 end
38 item
39 ReadOnly = True
40 Title.Alignment = taCenter
41 Title.Caption = 'User Name'
42 Width = 137
43 end
44 item
45 Title.Alignment = taCenter
46 Title.Caption = 'First Name'
47 Width = 137
48 end
49 item
50 Title.Alignment = taCenter
51 Title.Caption = 'Middle Name'
52 Width = 137
53 end
54 item
55 Title.Alignment = taCenter
56 Title.Caption = 'Last Name'
57 Width = 137
58 end>
59 DefaultColWidth = 120
60 FixedCols = 0
61 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goEditing, goSmoothScroll]
62 ScrollBars = ssAutoVertical
63 TabOrder = 0
64 OnEditingDone = StringGrid1EditingDone
65 ColWidths = (
66 137
67 137
68 137
69 137
70 137
71 137
72 )
73 Cells = (
74 1
75 0
76 0
77 'User ID'
78 )
79 end
80 object Button1: TButton
81 Left = 757
82 Height = 25
83 Top = 373
84 Width = 75
85 Anchors = [akRight, akBottom]
86 Caption = 'Delete'
87 OnClick = Button1Click
88 TabOrder = 1
89 end
90 object Button2: TButton
91 Left = 8
92 Height = 25
93 Top = 373
94 Width = 75
95 Anchors = [akLeft, akBottom]
96 Caption = 'Add'
97 OnClick = Button2Click
98 TabOrder = 2
99 end
100 object Button3: TButton
101 Left = 88
102 Height = 25
103 Top = 373
104 Width = 120
105 Anchors = [akLeft, akBottom]
106 Caption = 'Change Password'
107 OnClick = Button3Click
108 TabOrder = 3
109 end
110 object IBSecurityService1: TIBSecurityService
111 ServerName = 'localhost'
112 Protocol = TCP
113 TraceFlags = []
114 SecurityAction = ActionAddUser
115 UserID = 0
116 GroupID = 0
117 left = 768
118 top = 288
119 end
120 end