Estructuras de las Tablas.

...

Crea las cajas de texto –dejando en blanco su propiedad Text- necesarias para mostrar el contenido de los campos y un control Data, repite los pasos para cada tabla que tengas en tu base de datos.

Haz clic en el menú Proyecto, Componentes, selecciona el componente Microsoft FlexGrid Control 6.0 y haz clic en Aceptar. Ahora el objeto se halla en la Caja de herramientas, dibújalo en el formulario para que se vea más o menos como se ve abajo.

[pic 13]

Creando la conexión con la base de datos y la tabla

1. Conectando el control Data

- Selecciona el control Data y modifica sus propiedades como sigue:

- DatabaseName: localiza la carpeta del proyecto y selecciona la base de datos (mibasededatos) en donde se halla la tabla.

- RecordSource: selecciona el nombre de la tabla (Alumnos) cuyos campos se mostrarán en el formulario.

2. Conectando las cajas de texto

- Selecciona una de las cajas de texto y modifica sus propiedades como sigue:

- DataSource: selecciona Data1.

- DataField: selecciona el nombre del campo de la tabla –que corresponda con la etiqueta correcta- que se mostrará en la caja de texto.

- Repite los pasos con cada caja de texto del formulario y ejecuta el programa con F5.

- En el formulario que conectaste a la base de datos, al hacer clic en el botón de avance del control Data se mostrarán los registros de la tabla.

[pic 14]

- Si no se pueden ver los registros de la tabla, significa que no se conectaron correctamente el control Data y las cajas de texto, simplemente revisa las conexiones una por una.

3. Conectando el MSFlexGrid.

a) Selecciona el objeto MSFlexGrid, en su propiedad DataSource selecciona Data1, modifica su propiedad Cols a 5, cambia su propiedad Rows a 5, opcionalmente puedes modificar sus propiedades de BackColor de la manera que más te agrade.

4. Este es el código del formulario:

Private Sub Form_Activate()

With MSFlexGrid1

For X = 1 To .Rows - 1

.Row = X

For J = 1 To .Cols - 1

.Col = J

.CellBackColor = IIf((X Mod 2) = 1, Val(&HC0FFFF), Val(&HC0FFC0))

.CellFontBold = True

.CellForeColor = &HFF0000

Next J

Next X

End With

End Sub

Private Sub Form_Load()

MSFlexGrid1.ColWidth(0) = 300

MSFlexGrid1.ColWidth(1) = 800

MSFlexGrid1.ColWidth(2) = 2500

MSFlexGrid1.ColWidth(3) = 2000

MSFlexGrid1.ColWidth(4) = 1100

End Sub

Private Sub Form_Unload(Cancel As Integer)

Cancel = 1

MsgBox "Haz Clic en Movimientos", vbInformation, "¡Aviso Importante!"

End Sub

Creando un Menú

En el formulario vamos a crear un menú llamado Movimientos con las siguientes opciones:

[pic 15]

- Haz clic con el botón derecho del ratón sobre el formulario y haz clic en el Editor de menús…

[pic 16]

- Y aparece la caja Editor de menús.

[pic 17]

- En Caption introduce el nombre (que se mostrará en el formulario) del menú.

- En Name introduce el nombre que utilizará Visual Basic.

- Haz clic en el botón Siguiente para crear otro menú.

- Haz clic en el botón con la flecha hacia la derecha y aparecerán cuatro puntos, lo cual indica que el siguiente renglón será una opción del menú.

- En Shortcut selecciona la combinación de teclas que se podrán usar para activar la opción de menú correspondiente.

- Repite los pasos para crear cada opción del menú.

Programando las opciones del menú

Ahora codificaremos en Visual Basic las opciones del menú Movimientos para eso abre el menú y haz clic en cada una de las opciones del menú, el código para las opciones son:

- Opción Nuevo, el cual servirá para crear un nuevo registro en la tabla, el código es el siguiente:

Private Sub nuevo_Click ()

Data1.Recordset.AddNew

End SubP.D. Esta opción debe presionarse antes de dar de alta un nuevo registro en la base de datos.

- Opción Guardar, el cual servirá para guardar un nuevo registro en la tabla, el código es el siguiente:

Private Sub guardar_Click()

Data1.UpdateRecord

Data1.Refresh

MsgBox "El Registro ha sido Guardado en la Base de Datos", vbExclamation, "Aviso Importante"

End Sub

P.D. Esta opción debe presionarse una vez que se haya completado la información del registro.

- Opción Buscar, el cual servirá para buscar un registro en la tabla, el código es el siguiente:

Private