Terminemos el programa

Vamos ahora a ver el nuevo aspecto de fadmin , al que vamos a agregar un componente nuevo: el ToglleButtom. La diferencia que el botón común es que una vez presionado, se mantiene en ese estado. Y esto nos va a permitir usar el mismo botón para dos cosas diferentes.

fadmin

El nuevo aspecto de Fadmin

El botón seleccionado en la imagen es el nuevo, al que hemos llamado tgbadmin. Mediante su propiedad value vamos a hacer que nos cargue los usuarios o los materiales. Mediante el botón encima suyo llamamos al formulario para agregar usuarios visto en el post pasado. Veamos el código del procedimiento click de  tgbadmin:

Public Sub tgbadmin_Click()

If tgbadmin.value = True Then
tgbadmin.text = “Administrar materiales”
DataSource1.Table = “usuarios”
DataBrowser1.Enabled = True
Message(“No modifique contraseñas desde aqui. Puede cambiar tipo de usuario o eliminar usuarios. Si desea modificar la contraseña elimine y vuelva a crear el usuario “)
Else
tgbadmin.text = “Administrar usuarios”
DataSource1.Table = “materiales”
DataBrowser1.Enabled = True
Endif

End

Como vemos, según su propiedad value sea false o true carga una o otra tabla, y modifica a su vez su propio texto. Cuando la tabla cargada es usuarios el texto dice administrar usuarios y cuando es usuarios dice administrar materiales.

También es muy importante el mensaje resaltado en azul, ya que si modificamos la contraseña desde aquí , no será encriptada y nos dará error al introducirla. El evento open del formulario deberá ser modificado para que cargue por defecto la tabla materiales. Así queda el código:

Public Sub Form_Open()
Dim usuario As String     ‘inicializar variable
usuario = FMain.txtuser.text   ‘asignarle un valor
Me.Center
Me.Caption = “Administrador” & ” :  ” & usuario
hconn = Modcon.ConectarBase()        ‘conectamos a la base
DataSource1.Table = “materiales”
DataBrowser1.Enabled = True
tgbadmin.text = “Administrar usuarios”
End

Hasta aquí este programa. Adjunto el código fuente completo. Puedes descargarlo desde aquí

Anuncios
Esta entrada fue publicada en programación y etiquetada , , , , . Guarda el enlace permanente.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s