El formulario de administración

Nos había quedado pendiente el formulario de administración de usuarios, al que solo se ingresa siendo usuario administrador. A los efectos de mostrar otro tipo de controles, vamos a usar controles asociados a datos para ver y editar  los usuarios. En mi época de VB solía usarlos mucho, ahora soy más amigo del código, del cual estos controles ns ahorran muchísimo, ya que con solo indicarle la tabla a usar y la conexión, por si mismo se rellena la tabla y trae controles que nos permiten agregar, editar y borrar datos sin escribir una sola línea de código.

Veamos su aspecto:

fadminAparte de los ya conocidos botones vamos a insertar un control DataSource y encima de éste un control DataBrowser. Bastará con indicarle en el evento open del formulario la conexión y la tabla a utilizar, para que el control se llene solo. Además, como probablemente vayamos solo a ingresar gastos o ingresos de materiales, vamos a poner el control databrowser con su propiedad enabled a false para que por defecto esté bloqueada al arrancar el form,a través del botón administrar usuarios lo podemos llevar a True para poder editar los usuarios. Veamos su código comentado:

‘ Gambas class file

Private hconn As Connection     ‘variable de conexión

Public Sub Form_Open()
Dim usuario As String
usuario = FMain.txtuser.text                 ‘asignarle un valor
Me.Center
Me.Caption = “Administrador” & ” :  ” & usuario
hconn = Modcon.ConectarBase()                   ‘conectamos a la base

End

Public Sub btningresar_Click()

Fingreso.show
Fingreso.Caption = “Formulario para ingreso de gastos” & “- ” & Me.Caption

End

Public Sub btngastos_Click()
DataBrowser1.Enabled = False    ‘bloqueamos el databrowser
Fgastos.Show

End
Public Sub btnadmin_Click()

DataSource1.Table = “usuarios”                     ‘elegimos la tabla a utilizar
DataBrowser1.Enabled = True     ‘Aquí habilitamos la edición

End
Public Sub btncambiar_Click()

FMain.show
Me.Close

End

Public Sub btnsalir_Click()

Me.close

End

Como pueden ver, el código es muy reducido, ya que el control databrowser ya trae en si mismo los controles para agregar, editar y borrar.

Ahora, podemos utilizar este mismo formulario para editar los materiales, cambiando la propiedad del datasource para elegir otra tabla. El código es muy simple.

Public Sub btnmat_Click()

DataSource1.Table = “materiales”
DataBrowser1.Enabled = True
End

Nos queda pendiente agregar un poco de seguridad extra ya que las contraseñas son visibles si abrimos la base de datos con un gestor externo. Pero eso ya es tema de otro post. Hasta entonces.

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

2 respuestas a El formulario de administración

  1. Angel Lara dijo:

    Acabo de encontrarme tu blog y paseé por él muy brevemente. Me llevas dos años de ventaja pero empezaré por Julio 2010 a seguir cada posteo que has puesto y a practicar haciéndolopor mi mismo. Recién ayer empecé a estudiar en Gambas 3.1.1 con el libro de Campos y lamentablemente los ejemplos no me han funcionado supongo que por los cambios desde 2008 a la versión de hoy. Estaré comentando y espero alcanzarte pronto. Gracias por estar aquí.
    Saludos desde Venezuela

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