-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathfrmDBPass.frm
251 lines (249 loc) · 8.67 KB
/
frmDBPass.frm
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
VERSION 5.00
Object = "{4C5605EA-720A-490B-820A-E3CDEE939855}#1.0#0"; "vkusercontrolsxp.ocx"
Begin VB.Form frmDBPass
BorderStyle = 0 'None
Caption = "Database PassWord"
ClientHeight = 3270
ClientLeft = 0
ClientTop = -30
ClientWidth = 4665
MaxButton = 0 'False
ScaleHeight = 3270
ScaleWidth = 4665
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin vkUserContolsXP.vkLabel lblRestart
Height = 375
Left = 480
TabIndex = 7
Top = 2640
Visible = 0 'False
Width = 3735
_ExtentX = 6588
_ExtentY = 661
BackColor = 16777215
BackStyle = 0
Caption = "Restart The Software"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 33023
End
Begin vkUserContolsXP.vkTimer vkTimer1
Left = 3960
Top = 2640
_ExtentX = 926
_ExtentY = 926
Interval = 1000
End
Begin vkUserContolsXP.vkFrame fDBPass
Height = 3285
Left = 0
TabIndex = 3
Top = 0
Width = 4680
_ExtentX = 8255
_ExtentY = 5794
Caption = "Change DataBase Password"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TitleColor1 = 33023
TitleColor2 = 12640511
TitleGradient = 2
TitleHeight = 360
BorderColor = 33023
BorderWidth = 2
Begin vkUserContolsXP.vkLabel lblMessage
Height = 615
Left = 360
TabIndex = 6
Top = 2040
Visible = 0 'False
Width = 3975
_ExtentX = 7011
_ExtentY = 1085
BackColor = 16777215
BackStyle = 0
Caption = "Password Registered"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 33023
Alignment = 2
End
Begin vkUserContolsXP.vkCommand cmdOK
Height = 495
Left = 480
TabIndex = 2
Top = 2160
Width = 3735
_ExtentX = 6588
_ExtentY = 873
Caption = "OK"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 33023
BorderColor = 33023
CustomStyle = 0
End
Begin vkUserContolsXP.vkTextBox txtPassWord
Height = 375
Left = 1440
TabIndex = 1
Top = 1200
Width = 2895
_ExtentX = 5106
_ExtentY = 661
BeginProperty LegendFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderColor = 33023
PassWordChar = "*"
LegendForeColor = 16750899
End
Begin vkUserContolsXP.vkLabel vkLabel1
Height = 255
Left = 360
TabIndex = 5
Top = 720
Width = 975
_ExtentX = 1720
_ExtentY = 450
BackColor = 16777215
BackStyle = 0
Caption = "User Name:"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin vkUserContolsXP.vkTextBox txtUser
Height = 375
Left = 1440
TabIndex = 0
Top = 600
Width = 2895
_ExtentX = 5106
_ExtentY = 661
BeginProperty LegendFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BorderColor = 33023
PassWordChar = "*"
LegendForeColor = 16750899
End
Begin vkUserContolsXP.vkLabel vkLabel2
Height = 255
Left = 360
TabIndex = 4
Top = 1320
Width = 1095
_ExtentX = 1931
_ExtentY = 450
BackColor = 16777215
BackStyle = 0
Caption = "Password:"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
End
Attribute VB_Name = "frmDBPass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim DBUser As String
Dim DBPassword As String
Private Sub cmdOK_Click()
DBUser = txtUser.Text
DBPassword = txtPassword.Text
SaveSetting App.CompanyName, "DataBase", "DBUser", DBUser 'get the user name from the registry
SaveSetting App.CompanyName, "DataBase", "DBPassword", DBPassword 'get the db password from the registry
cmdOK.Visible = False
lblMessage.Visible = True
lblRestart.Visible = True
vkTimer1.Enabled = True
End Sub
Private Sub Form_Load()
Me.Width = 4905
Me.Height = 3825
Call frmColor(frmDBPass)
DeleteSetting App.CompanyName, "DataBase", "LoginTable"
DeleteSetting App.CompanyName, "DataBase", "StuddetailsTable"
DeleteSetting App.CompanyName, "DataBase", "SubjTable"
DeleteSetting App.CompanyName, "DataBase", "StudmarksTable"
End Sub
Private Sub vkTimer1_Timer()
Unload Me
End
End Sub