-
Notifications
You must be signed in to change notification settings - Fork 0
/
frmCambiarClave.frm
155 lines (153 loc) · 4.51 KB
/
frmCambiarClave.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
VERSION 5.00
Begin VB.Form frmCambiarClave
Caption = "Cambiar Clave"
ClientHeight = 4410
ClientLeft = 120
ClientTop = 450
ClientWidth = 5880
ControlBox = 0 'False
LinkTopic = "Form1"
ScaleHeight = 4410
ScaleWidth = 5880
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdGuardar
Caption = "Guardar"
Height = 855
Left = 1560
Picture = "frmCambiarClave.frx":0000
Style = 1 'Graphical
TabIndex = 7
Top = 3360
Width = 975
End
Begin VB.CommandButton cmdCancelar
Caption = "Cancelar"
Height = 855
Left = 3240
Picture = "frmCambiarClave.frx":08CA
Style = 1 'Graphical
TabIndex = 6
Top = 3360
Width = 975
End
Begin VB.TextBox txtConfirmarClave
Alignment = 2 'Center
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
IMEMode = 3 'DISABLE
Left = 2160
MaxLength = 10
PasswordChar = "*"
TabIndex = 5
Top = 2280
Width = 1815
End
Begin VB.TextBox txtNuevaClave
Alignment = 2 'Center
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
IMEMode = 3 'DISABLE
Left = 2160
MaxLength = 10
PasswordChar = "*"
TabIndex = 4
Top = 1560
Width = 1815
End
Begin VB.Line Line2
X1 = 360
X2 = 5520
Y1 = 3000
Y2 = 3000
End
Begin VB.Line Line1
X1 = 360
X2 = 5520
Y1 = 1200
Y2 = 1200
End
Begin VB.Label Label3
Caption = "Confirmar Clave:"
Height = 375
Left = 840
TabIndex = 3
Top = 2280
Width = 1215
End
Begin VB.Label Label2
Caption = "Nueva Clave:"
Height = 375
Left = 960
TabIndex = 2
Top = 1680
Width = 1095
End
Begin VB.Label lblUsuario
Caption = "Label1"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1680
TabIndex = 1
Top = 480
Width = 3735
End
Begin VB.Label Label1
Caption = "Usuario:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 0
Top = 480
Width = 1095
End
End
Attribute VB_Name = "frmCambiarClave"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancelar_Click()
Unload Me
End Sub
Private Sub cmdGuardar_Click()
If txtNuevaClave <> txtConfirmarClave Then MsgBox ("Las claves no coinciden"): Exit Sub
cn.Open
cn.Execute ("CambiarClaveUsuario '" & txtNuevaClave & "'," & idUsuario)
cn.Close
Unload Me
End Sub
Private Sub Form_Load()
lblUsuario = Usuario
End Sub