Guia programacon formulario cambiar clave

Guia programacon formulario cambiar clave

• 1.
  GUIA PARA ELFORMULARIO CAMBIAR CLAVE Control Propiedad Valor Textbox1 Name Txtusaurio Textbox2 Name Txtclave Textbox3 Name Txtnombre Combobox1 Name Cmbtipocuenta Textbox4 Name Txtnuevaclave Textbox5 Name Txtconfirmar Button1 Name Btnguardar Button2 Name Btncancelar Gruopbox1 Text Datos del usuario Gruopbox2 Text Información de registro Gruopbox3 Text Nueva contraseña Combobox1 Ítems Administrador,limitada
• 2.
  RUTINA DE PROGRAMACIÓNPARA EL TEXTBOX TXTCLAVE Private Sub txtclave_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtclave.Validating If (txtusuario.TextLength > 0) And (txtclave.TextLength > 0) Then sql = "Select * from usuario where usuario ='" & txtusuario.Text & " ' and clave='" & txtclave.Text & "'" comando = New OleDbCommand(sql, conexion) conexion.Open() buscar = comando.ExecuteReader If buscar.Read Then Txtnombre.Text = buscar("Nombre").ToString CmbTipoUsuario.Text = buscar("Tipo").ToString txtidusuario.Text = buscar("IdUsuario").ToString txtNuevaClave.Enabled = True txtConfirmar.Enabled = True CmbTipoUsuario.Enabled = True conexion.Close() Else MessageBox.Show("Error en usuario o contraseña, verifique por favor.", "Sofware académico", MessageBoxButtons.OK, MessageBoxIcon.Warning) txtclave.Text = "" txtusuario.Text = "" txtNuevaClave.Enabled = False txtConfirmar.Enabled = False txtusuario.Focus() conexion.Close() End If End If End Sub RUTINA DE PROGRAMACIÓN PARA EL TEXTBOX TXTCONFIRMAR Private Sub txtConfirmar_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtConfirmar.Validated If txtNuevaClave.TextLength > 10 Then MessageBox.Show("Error la clave máximo debe tener 10 caracteres.!", "Software Acádemico", MessageBoxButtons.OK, MessageBoxIcon.Warning) txtNuevaClave.Focus() txtNuevaClave.Text = "" Else If txtNuevaClave.Text <> txtConfirmar.Text Then MessageBox.Show("Error las claves no son iguales verifique por favor.!", "Software Acádemico", MessageBoxButtons.OK, MessageBoxIcon.Warning) txtConfirmar.Focus() txtConfirmar.Text = "" Else BtnGrabar.Enabled = True BtnGrabar.Focus() End If End If
• 3.
  RUTINA DE PROGRAMACIÓNPARA EL TEXTBOX TXTNUEVACLAVE Private Sub txtNuevaClave_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtNuevaClave.Validated If txtNuevaClave.TextLength > 10 Then MessageBox.Show("Error la contraseña máximo debe tener 10 caracteres.!", "Software Acádemico", MessageBoxButtons.OK, MessageBoxIcon.Warning) txtNuevaClave.Focus() End If RUTINA DE PROGRAMACIÓN PARA BOTON GUARDAR Private Sub BtnGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGrabar.Click If txtusuario.Text = " " Then MessageBox.Show("Debe buscar el usuario antes de guardar los cambios.!", "Software Acádemico", MessageBoxButtons.OK, MessageBoxIcon.Warning) txtusuario.Focus() ElseIf txtNuevaClave.Text = " " Then MessageBox.Show("debe digitar la nueva clave.!", "Software Acádemico", MessageBoxButtons.OK, MessageBoxIcon.Warning) txtNuevaClave.Focus() ElseIf txtConfirmar.Text = " " Then MessageBox.Show("Debe confirmar la contraseña.!", "Software Acádemico", MessageBoxButtons.OK, MessageBoxIcon.Warning) txtConfirmar.Focus() Else Try sql = "Update usuario SET Nombre=@Nombre,Tipo=@Tipo,Usuario=@Usuario,Clave=@Clave where IdUsuario=" & 1 comando = New OleDbCommand(sql, conexion) Dim PrmNombre As New OleDbParameter("@Nombre", OleDbType.Char) Dim PrmTipo As New OleDbParameter("@Tipo", OleDbType.Char) Dim PrmUsuario As New OleDbParameter("@Usuario", OleDbType.Char) Dim PrmClave As New OleDbParameter("@Clave", OleDbType.Char) PrmNombre.Value = Txtnombre.Text.ToUpper PrmTipo.Value = CmbTipoUsuario.Text.ToUpper PrmUsuario.Value = txtusuario.Text.ToUpper PrmClave.Value = txtNuevaClave.Text comando.Parameters.Add(PrmNombre) comando.Parameters.Add(PrmTipo) comando.Parameters.Add(PrmUsuario) comando.Parameters.Add(PrmClave) conexion.Open() comando.ExecuteNonQuery() conexion.Close()
• 4.
  MessageBox.Show("Registro actualizado exitosamente.", "Software Acádemico", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) BtnGrabar.Enabled = False Me.Close() Catch ex As Exception MessageBox.Show(ex.Message) Finally If conexion.State = ConnectionState.Open Then conexion.Close() End If End Try RUTINA DE PROGRAMACIÓN PARA BOTON CENCELAR Private Sub BtnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancelar.Click txtusuario.Text = "" txtclave.Text = "" Txtnombre.Text = "" CmbTipoUsuario.Text = "" txtNuevaClave.Text = "" txtConfirmar.Text = "" CmbTipoUsuario.Enabled = False End Sub