-
Notifications
You must be signed in to change notification settings - Fork 10
/
uMain.dfm
372 lines (372 loc) · 9.96 KB
/
uMain.dfm
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
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
object FormMain: TFormMain
Left = 0
Top = 0
Caption = 'Save-Password & Delphi.Uz'
ClientHeight = 530
ClientWidth = 873
Color = clBtnFace
DefaultMonitor = dmDesktop
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
FormStyle = fsMDIForm
Menu = MainMenu1
OldCreateOrder = False
Position = poDesktopCenter
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
AlignWithMargins = True
Left = 3
Top = 119
Width = 867
Height = 408
Cursor = crHandPoint
Align = alClient
DataSource = DataSource1
DrawingStyle = gdsGradient
FixedColor = clDefault
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'Tahoma'
TitleFont.Style = []
Columns = <
item
Color = cl3DLight
Expanded = False
FieldName = 'WebSite'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
Title.Font.Charset = RUSSIAN_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -15
Title.Font.Name = 'Trebuchet MS'
Title.Font.Style = []
Width = 183
Visible = True
end
item
Color = cl3DLight
Expanded = False
FieldName = 'Login'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
Title.Font.Charset = RUSSIAN_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -15
Title.Font.Name = 'Trebuchet MS'
Title.Font.Style = []
Width = 176
Visible = True
end
item
Color = cl3DLight
Expanded = False
FieldName = 'Email'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
Title.Font.Charset = RUSSIAN_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -15
Title.Font.Name = 'Trebuchet MS'
Title.Font.Style = []
Visible = True
end
item
Color = cl3DLight
Expanded = False
FieldName = 'FirstPassword'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
Title.Font.Charset = RUSSIAN_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -15
Title.Font.Name = 'Trebuchet MS'
Title.Font.Style = []
Visible = True
end
item
Color = cl3DLight
Expanded = False
FieldName = 'SecondPassword'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
Title.Font.Charset = RUSSIAN_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -15
Title.Font.Name = 'Trebuchet MS'
Title.Font.Style = []
Visible = True
end
item
Color = cl3DLight
Expanded = False
FieldName = 'PINCode'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
Title.Font.Charset = RUSSIAN_CHARSET
Title.Font.Color = clWindowText
Title.Font.Height = -15
Title.Font.Name = 'Trebuchet MS'
Title.Font.Style = []
Visible = True
end>
end
object Panel1: TPanel
AlignWithMargins = True
Left = 3
Top = 3
Width = 867
Height = 70
Align = alTop
BevelInner = bvRaised
BevelKind = bkSoft
TabOrder = 1
object SpeedButton1: TSpeedButton
AlignWithMargins = True
Left = 725
Top = 20
Width = 48
Height = 29
Cursor = crHandPoint
Margins.Left = 15
Margins.Top = 18
Margins.Right = 15
Margins.Bottom = 15
Align = alRight
Caption = 'Enter'
OnClick = SpeedButton1Click
ExplicitLeft = 545
ExplicitTop = 23
ExplicitHeight = 26
end
object EditIzlash: TLabeledEdit
AlignWithMargins = True
Left = 131
Top = 23
Width = 177
Height = 26
Cursor = crHandPoint
BevelKind = bkSoft
EditLabel.AlignWithMargins = True
EditLabel.Width = 44
EditLabel.Height = 20
EditLabel.Cursor = crHandPoint
EditLabel.Caption = 'Search'
EditLabel.Font.Charset = RUSSIAN_CHARSET
EditLabel.Font.Color = clWindowText
EditLabel.Font.Height = -15
EditLabel.Font.Name = 'Trebuchet MS'
EditLabel.Font.Style = []
EditLabel.ParentFont = False
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Trebuchet MS'
Font.Style = []
ParentFont = False
TabOrder = 0
TextHint = 'Paytoo'
OnChange = EditIzlashChange
end
object RBSaytNomi: TRadioButton
Tag = 1
Left = 12
Top = 2
Width = 113
Height = 17
Cursor = crHandPoint
Caption = 'Web-Site Name: '
Checked = True
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Trebuchet MS'
Font.Style = []
ParentFont = False
TabOrder = 1
TabStop = True
OnClick = RBSaytNomiClick
end
object RBLogin: TRadioButton
Tag = 1
Left = 12
Top = 23
Width = 113
Height = 17
Cursor = crHandPoint
Caption = 'Login'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Trebuchet MS'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = RBLoginClick
end
object RBEmail: TRadioButton
Tag = 1
Left = 12
Top = 44
Width = 113
Height = 17
Cursor = crHandPoint
Caption = 'Email'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Trebuchet MS'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = RBEmailClick
end
object BtnAbout: TButton
AlignWithMargins = True
Left = 803
Top = 17
Width = 43
Height = 32
Margins.Left = 15
Margins.Top = 15
Margins.Right = 15
Margins.Bottom = 15
Align = alRight
Caption = '?'
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Trebuchet MS'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = BtnAboutClick
end
object EditPassword: TEdit
AlignWithMargins = True
Left = 480
Top = 20
Width = 215
Height = 29
Cursor = crHandPoint
Hint = 'Type your password !'
Margins.Left = 15
Margins.Top = 18
Margins.Right = 15
Margins.Bottom = 15
Align = alRight
BevelKind = bkSoft
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Trebuchet MS'
Font.Style = []
MaxLength = 24
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 5
TextHint = 'Password'
OnKeyDown = EditPasswordKeyDown
ExplicitHeight = 30
end
end
object DBNavigator1: TDBNavigator
AlignWithMargins = True
Left = 3
Top = 79
Width = 867
Height = 34
Cursor = crHandPoint
DataSource = DataSource1
Align = alTop
TabOrder = 2
end
object DataSource1: TDataSource
DataSet = ADOQueryIzlash
Left = 136
Top = 256
end
object ADOQueryIzlash: TADOQuery
Active = True
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'SELECT * FROM parol')
Left = 280
Top = 232
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=parol' +
'.mdb;Mode=Share Deny None;Persist Security Info=False;Jet OLEDB:' +
'System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database' +
' Password=delphiuz;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Lo' +
'cking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Globa' +
'l Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLE' +
'DB:Create System Database=False;Jet OLEDB:Encrypt Database=False' +
';Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact ' +
'Without Replica Repair=False;Jet OLEDB:SFP=False;'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 228
Top = 312
end
object MainMenu1: TMainMenu
Left = 184
Top = 192
object MenuItemPassword: TMenuItem
Caption = 'Password'
object ChangePassword1: TMenuItem
AutoHotkeys = maManual
Caption = 'Change &Password'
ShortCut = 16464
OnClick = ChangePassword1Click
end
end
object About1: TMenuItem
Caption = 'About'
object Author1: TMenuItem
Caption = 'Author'
OnClick = BtnAboutClick
end
object MoreApps1: TMenuItem
Caption = 'More Apps'
OnClick = MoreApps1Click
end
end
end
object NotificationCenter1: TNotificationCenter
Left = 368
Top = 312
end
end