El formulario principal

Vamos ahora a construir el formulario principal de nuestra aplicación con una novedad, el control tabstrip .

Como vemos en la imagen, se trata de un control de pestañas que nos permite ver información, y como tal, es un componente de solo lectura.
Una de sus principales propiedades es Count, que nos indica la cantidad de pestañas del control. En nuestro caso son 5, pero su index va de o a 4, por tanto si invocamos a su propiedad index ,tabstrip.index=5 , nos dará un error de bad index   (ìndice malo).

Como vemos tenemos siete buttons, en orden : btnnuevoactor, btnnuevapeli, btnnuevo, btnver, btnreporte , btnactual y btnsalir
Tres combobox : cbactor,cbdirector y cbactriz.
Un textbox : txt tìtulo; un valuebox: vbxanio        y             cinco casillas de verificación  : chactor, chactriz, chdirector, chtitulo y chanio.

Dentro de cada una de las pestañas vamos a colocar un columview a los que llamaremos respectivamente tabla2,tabla3,tabla4,tabla y tabla5.(Sí, me quedaron desordenados)

Además de varios label (etiquetas) que usamos para poner  un texto indicativo como a la izquierda de los comboboxes. En un post anterior vimos como agrupábamos las casillas de verificación o checkbox   y porque la usábamos.

Bien, una vez construida la interfase vamos a empezar a codificar nuestro formulario principal, como siempre, declarando las variables a usar en cualquier procedimiento o función del mismo, al principio del formulario.

Private hconn As Connection
Private hresul As Result
Private $hReport As Report
Public valor As String   

Y a continuación en el  evento Open de Fmain:

Public Sub Form_Open()

Me.Center          ‘Centramos el formulario
modlistar.listado(cbxactor)
modlistar.listado2(cbxactriz)
modlistar.listado4(cbxdirector)
cargageneros
cargaactores
cargadirectores
cargaactrices
End

Como vemos, centramos el formulario, llamamos a los procedimientos listado del modlistar pasándoles como parámetros los correspondientes combobox.                                     ¿Y qué son esos procedimientos? Vamos a crearlos ahora.

Vamos al árbol de la izquierda, pinchamos con el botón derecho sobre fuentes,nuevo, módulo y en la pestaña que se abre nombramos al mismo modlistar.

Pinchamos en ok y se nos abre la pantalla para rellenar con el código siguiente:

‘ Gambas module file

Private hconn As Connection              ‘declaramos variables
Private hresul As Result

Public Sub listado(lista As ComboBox)

Dim Clave As String

hconn = modcon.ConectarBase()
hresul = hconn.Exec(“Select * from actores order by nombre ASC”) ‘consulta sql

Do While hresul.Available
Clave = hresul[“nombre”]
lista.Add(Clave)
hresul.MoveNext()
Loop

End

Public Sub listado2(lista As ComboBox)

Dim Clave As String

hconn = modcon.ConectarBase()
hresul = hconn.Exec(“Select * from actrices order by nombre ASC”) ‘consulta sql

Do While hresul.Available
Clave = hresul[“nombre”]
lista.Add(Clave)
hresul.MoveNext()
Loop

End

Public Sub listado3(lista As ComboBox)

Dim Clave As String

hconn = modcon.ConectarBase()
hresul = hconn.Exec(“Select * from generos order by genero ASC”) ‘consulta sql

Do While hresul.Available
Clave = hresul[“genero”]
lista.Add(Clave)
hresul.MoveNext()
Loop

End

Public Sub listado4(lista As ComboBox)

Dim Clave As String

hconn = modcon.ConectarBase()
hresul = hconn.Exec(“Select * from directores order by nombre ASC”) ‘consulta sql

Do While hresul.Available
Clave = hresul[“nombre”]
lista.Add(Clave)
hresul.MoveNext()
Loop

End
Un código casi igual a este usamos para el proyecto goles, en este enlace pueden ver el post de referencia y la explicación del código del listado.Cualquier duda puedes usar los comentarios para preguntar.

Los otros cuatro procedimientos cargageneros;  cargaactores, cargadirectores y cargaactrices serán explicados en el próximo post. Hasta entonces.

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

2 respuestas a El formulario principal

  1. Ivanovichenco dijo:

    Excelente tu trabaja Daniel. Muy útil claro.
    Gracias.

  2. dapeca2608 dijo:

    Me alegro que sea útil. Gracias por estar.

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