-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathfrmCambioPwd.frm
346 lines (318 loc) · 10.4 KB
/
frmCambioPwd.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
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
VERSION 5.00
Begin VB.Form frmCambioPwd
BackColor = &H00C0C0C0&
BorderStyle = 4 'Fixed ToolWindow
Caption = "Cambio de contraseña de usuario"
ClientHeight = 3495
ClientLeft = 45
ClientTop = 285
ClientWidth = 6165
ControlBox = 0 'False
BeginProperty Font
Name = "Trebuchet MS"
Size = 11.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3495
ScaleWidth = 6165
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin PCGestion.miText ioCNUEVA
Height = 465
Left = 2715
TabIndex = 1
Top = 1065
Width = 2130
_ExtentX = 3757
_ExtentY = 820
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
dspFormat = ""
Enabled = -1 'True
EsPassword = -1 'True
End
Begin PCGestion.chameleonButton cbAceptar
Height = 795
Left = 2130
TabIndex = 3
Top = 2640
Width = 930
_ExtentX = 1640
_ExtentY = 1402
BTYPE = 9
TX = "&Aceptar"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Trebuchet MS"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
FOCUSR = -1 'True
BCOL = 11513775
BCOLO = 11513775
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "frmCambioPwd.frx":0000
PICN = "frmCambioPwd.frx":001C
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 2
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin PCGestion.chameleonButton cbCancelar
Height = 795
Left = 3105
TabIndex = 4
TabStop = 0 'False
Top = 2640
Width = 930
_ExtentX = 1640
_ExtentY = 1402
BTYPE = 9
TX = "&Cancelar"
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Trebuchet MS"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
FOCUSR = -1 'True
BCOL = 11513775
BCOLO = 11513775
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "frmCambioPwd.frx":0CF6
PICN = "frmCambioPwd.frx":0D12
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 2
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin PCGestion.miText ioCANTERIOR
Height = 525
Left = 2715
TabIndex = 0
Top = 480
Width = 2130
_ExtentX = 3757
_ExtentY = 926
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
dspFormat = ""
Enabled = -1 'True
EsPassword = -1 'True
End
Begin PCGestion.miText ioREPITAN
Height = 480
Left = 2715
TabIndex = 2
Top = 1635
Width = 2130
_ExtentX = 3757
_ExtentY = 847
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
dspFormat = ""
Enabled = -1 'True
EsPassword = -1 'True
End
Begin PCGestion.bsGradientLabel lblUsuario
Height = 375
Left = 0
Top = 15
Width = 6165
_ExtentX = 10874
_ExtentY = 661
Caption = ""
BeginProperty Fount {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Trebuchet MS"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CaptionColour = 0
Colour1 = 15640462
Colour2 = 7177785
CaptionAlignment= 1
End
Begin PCGestion.bsGradientLabel lblStatus
Height = 375
Left = 0
Top = 2190
Width = 6165
_ExtentX = 10874
_ExtentY = 661
Caption = ""
BeginProperty Fount {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Trebuchet MS"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CaptionColour = 0
Colour1 = 15640462
Colour2 = 7177785
CaptionAlignment= 1
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Repita Nueva"
Height = 345
Left = 1320
TabIndex = 7
Top = 1695
Width = 1350
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Contraseña anterior"
Height = 585
Left = 1410
TabIndex = 6
Top = 375
Width = 1260
End
Begin VB.Label Label17
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Nueva Contraseña"
Height = 615
Left = 1320
TabIndex = 5
Top = 1005
Width = 1350
End
End
Attribute VB_Name = "frmCambioPwd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------
' Modulo : frmCambioPwd
' Fecha/Hora : 29/12/2003 20:48
' Autor : JCASTILLO
' Propósito : Cambio de contraseña de usuario
'---------------------------------------------------------------------------------------
Option Explicit
'---------------------------------------------------------------------------------------
'Para cambiar la contraseña de otro usuario distinto al usuario actual
'(variable UsuarioActual). Poner otro_usuario = TRUE y darle el codigo
'del usuario al que se desea cambiar la clave
Public otro_usuario As Boolean
Public ID_Otro_usuario As Single
'---------------------------------------------------------------------------------------
Dim tmp_ID As Single
Private Sub cbAceptar_Click()
'validaciones ...
If Trim(ioCANTERIOR.Text) = "" Then
lblStatus.Caption = "La contraseña ANTERIOR no puede estar en blanco"
Exit Sub
End If
If Trim(ioCNUEVA.Text) = "" Then
lblStatus.Caption = "La contraseña NUEVA no puede estar en blanco"
Exit Sub
End If
'si la contraseña anterior no es igual
If Trim(ioCANTERIOR.Text) <> Trim(devuelve_campo("SELECT CLAVE FROM PERSONAL WHERE CODIGO = " & tmp_ID, locCnn)) Then
lblStatus.Caption = "¡La Contraseña ANTERIOR es incorrecta!"
ioCANTERIOR.SetFocus
ioCANTERIOR.CancelarValidacion
Exit Sub
End If
'si no coinciden las 2 contraseñas nuevas ...
If (ioCNUEVA.Text) <> (ioREPITAN.Text) Then
lblStatus.Caption = "¡Las Contraseñas NO coinciden!"
ioREPITAN.SetFocus
ioREPITAN.CancelarValidacion
Exit Sub
End If
'si esta todo OK, cambiar la contraseña ...
locCnn.Execute "UPDATE PERSONAL SET CLAVE = '" & ioCNUEVA.Text & "' WHERE CODIGO = " & tmp_ID
DoEvents
lblStatus.Caption = ""
Unload Me
End Sub
Private Sub cbCancelar_Click()
Unload Me
End Sub
Private Sub Form_Load()
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
If otro_usuario Then
tmp_ID = ID_Otro_usuario
Else
tmp_ID = UsuarioActual
End If
lblUsuario.Caption = devuelve_campo("SELECT NOMBRE FROM PERSONAL WHERE CODIGO = " & tmp_ID, locCnn)
With ioCNUEVA
.PermitirBlanco = False
.EsPassword = True
End With
With ioCANTERIOR
.PermitirBlanco = False
.EsPassword = True
End With
With ioREPITAN
.PermitirBlanco = False
.EsPassword = True
End With
End Sub