1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
|
object ReportConnectionEditorForm: TReportConnectionEditorForm
Left = 386
Height = 465
Top = 256
Width = 362
Caption = 'SQL Connection'
ClientHeight = 465
ClientWidth = 362
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poMainFormCenter
LCLVersion = '1.9.0.0'
object EHostName: TEdit
Left = 89
Height = 27
Top = 47
Width = 179
Anchors = [akTop, akLeft, akRight]
TabOrder = 1
end
object EDatabaseName: TEdit
Left = 89
Height = 27
Top = 80
Width = 267
Anchors = [akTop, akLeft, akRight]
TabOrder = 2
end
object LEUserName: TLabel
Left = 8
Height = 24
Top = 118
Width = 72
Alignment = taRightJustify
AutoSize = False
Caption = 'User'
FocusControl = EUserName
Layout = tlCenter
ParentColor = False
end
object LCBType: TLabel
Left = 8
Height = 31
Top = 8
Width = 72
Alignment = taRightJustify
AutoSize = False
Caption = 'Type'
Layout = tlCenter
ParentColor = False
end
object LEHostName: TLabel
Left = 8
Height = 27
Top = 47
Width = 72
Alignment = taRightJustify
AutoSize = False
Caption = 'Hostname'
FocusControl = EHostName
Layout = tlCenter
ParentColor = False
end
object CBType: TComboBox
Left = 89
Height = 31
Top = 8
Width = 179
Anchors = [akTop, akLeft, akRight]
ItemHeight = 0
Style = csDropDownList
TabOrder = 0
end
object LEDatabaseName: TLabel
Left = 8
Height = 27
Top = 80
Width = 72
Alignment = taRightJustify
AutoSize = False
Caption = 'Database'
FocusControl = EDatabaseName
Layout = tlCenter
ParentColor = False
end
object EUserName: TEdit
Left = 89
Height = 27
Top = 115
Width = 179
Anchors = [akTop, akLeft, akRight]
TabOrder = 3
end
object EPassword: TEdit
Left = 89
Height = 27
Top = 152
Width = 179
Anchors = [akTop, akLeft, akRight]
EchoMode = emPassword
PasswordChar = '*'
TabOrder = 4
end
object LEPassword: TLabel
Left = 8
Height = 27
Top = 152
Width = 72
Alignment = taRightJustify
AutoSize = False
Caption = 'Password'
FocusControl = EPassword
Layout = tlCenter
ParentColor = False
end
object ERole: TEdit
Left = 89
Height = 27
Top = 191
Width = 179
Anchors = [akTop, akLeft, akRight]
TabOrder = 5
end
object BPConnection: TButtonPanel
Left = 6
Height = 42
Top = 417
Width = 350
OKButton.Name = 'OKButton'
OKButton.DefaultCaption = True
HelpButton.Name = 'HelpButton'
HelpButton.DefaultCaption = True
CloseButton.Name = 'CloseButton'
CloseButton.DefaultCaption = True
CancelButton.Name = 'CancelButton'
CancelButton.DefaultCaption = True
TabOrder = 7
ShowButtons = [pbOK, pbCancel]
end
object MParams: TMemo
Left = 8
Height = 118
Top = 288
Width = 342
Anchors = [akTop, akLeft, akRight, akBottom]
TabOrder = 6
end
object LERole: TLabel
Left = 8
Height = 27
Top = 191
Width = 72
Alignment = taRightJustify
AutoSize = False
Caption = 'Role'
FocusControl = ERole
Layout = tlCenter
ParentColor = False
end
object LMParams: TLabel
Left = 8
Height = 17
Top = 264
Width = 125
Caption = 'Additonal Parameters:'
FocusControl = MParams
ParentColor = False
end
object ECharset: TEdit
Left = 89
Height = 27
Top = 227
Width = 80
TabOrder = 8
end
object Label2: TLabel
Left = 32
Height = 17
Top = 232
Width = 50
Caption = 'Char. set'
FocusControl = ECharset
ParentColor = False
end
object SBTest: TSpeedButton
Left = 205
Height = 25
Top = 256
Width = 145
Anchors = [akTop, akRight]
Caption = 'Test connection'
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000527BC6FF00000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000317BEFFF527BC6FF296BC6FF0000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000397BE7FF007BFFFF0073F7FF527BC6FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000000009CFFFF008CFFFF008CFFFF527BC6FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000B5FFFF008CFFFF0094FFFF527BC6FF527B
C6FF000000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000B5FFFF08C6FFFF009CFFFF009C
FFFF527BC6FF0000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000B5FFFF08BDFFFF00AD
FFFF009CFFFF527BC6FF00000000000000000000000000000000000000000000
00000000000000000000527BC6FF527BC6FF527BC6FF00C6FFFF08FFFFFF31F7
FFFF10BDFFFF00ADFFFF527BC6FF527BC6FF0000000000000000000000000000
0000000000000000000029ADFFFF00C6FFFF00EFFFFF00F7FFFF00F7FFFF00FF
FFFF4AEFFFFF18CEFFFF00A5FFFF527BC6FF0000000000000000000000000000
0000000000000000000039A5FFFF00C6FFFF00EFFFFF00F7FFFF00EFFFFF00DE
FFFF00FFFFFF00FFFFFF39EFFFFF08C6FFFF527BC6FF00000000000000000000
000000000000000000000000000008C6FFFF39E7FFFF4AEFFFFF42F7FFFF18FF
FFFF00FFFFFF00FFFFFF08FFFFFF21FFFFFF527BC6FF00000000000000000000
0000000000000000000000000000000000000000000031D6FFFF08F7FFFF00FF
FFFF00F7FFFF00D6FFFF00B5FFFF527BC6FF0000000000000000000000000000
00000000000000000000000000000000000000000000000000000000000031D6
FFFF00F7FFFF00EFFFFF00ADFFFF00A5FFFF527BC6FF00000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
00000000000031D6FFFF42DEFFFF10D6FFFF5AA5FFFF527BC6FF000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000031D6FFFF52A5FFFF527BC6FF
}
OnClick = SBTestClick
end
end
|
