Manual Del Programador

Manual del Programador

Versión 1.0

INTRODUCCIÓN

El propósito de este manual del programador es dar a conocer al lector todos los listados del programa realizado. Para ello se tratará de forma amena y concisa un repaso de todas las Unidades concernientes al nivel del código y la sintaxis de cada uno de los formularios empleados para el desarrollo de este software, con el fin de que el usuario del conjunto pueda modificar a su gusto algunos de los valores y parámetros de las funciones expuestas.

1. UNIDADES EMPLEADAS.

Se han empleado el conjunto de programas independientes, que establecen una conexión exitosa entre Visual 2008 y MySql entre los que están:

Wamp Server 2.1

Mysql connector net 6.5.4

Mysql gui tools 5.0 r12

Dbvisualizer 8.0.10 jre

2.- CLASES

Una clase es un conjunto coherente que consiste en un tipo particular de metadatos. Una clase tiene tanto una interfaz y una estructura. La interfaz describe cómo interactuar con la clase y sus instancias con métodos, mientras que la estructura describe cómo los datos se dividen en atributos dentro de una instancia. Una clase también puede tener una representación (meta objeto) en tiempo de ejecución, que proporciona apoyo en tiempo de ejecución para la manipulación de los metadatos relacionados con la clase. En el diseño orientado a objetos, una clase es el tipo más específico de un objeto en relación con una capa específica.

Se declaran en el programa principal mediante la clase Public Class ClaseDatos y lista por medio de ellas se permite realizar una serie procedimientos en el software aplicativo. Seguido por las variables globales que son las que comandan el funcionamiento de las conexiones de cada uno de los formularios con la base de datos.

Formularios

Los formularios que comprenden el Software son:

1) AdministrarPaciente.

2) ConsultarCitas.

3) IngresarCargo.

4) IngresarConsulta.

5) IngresarJornada.

6) IngresarProcedimiento.

7) IngresarPrograma.

8) IngresarTipoConsulta.

9) IngresarTipoDoc.

10) IngresarTítulo.

11) Login.

12) Rconsultas.

13) RegistrarPaciente.

14) Registro.

15) SplashScreen1.

Programa Principal

Conjugará el conjunto de los Formularios expuestos anteriormente, y se compilará conteniendo todos ellos Es el archivo:

Principal.Vb

2. CLASEDATOS

2.1- DECLARACIONES

1) Se agrega una nueva Referencia llamada My.Sql.Data para poder hacer esta declaración. Imports MySql.Data.MySqlClient.

2) Se publica la nueva clase: Public Class ClaseDatos.

3) Se declaran las variables globales:

Public Class ClaseDatos

Dim con As MySqlConnection

Dim data As DataTable

Dim da As MySqlDataAdapter

Dim cb As MySqlCommandBuilder

Public rd As MySqlDataReader

2. CLASEDATOS

2.1- DECLARACIONES

4) Se agrega una nueva Referencia llamada My.Sql.Data para poder hacer esta declaración. Imports MySql.Data.MySqlClient.

5) Se publica la nueva clase: Public Class ClaseDatos.

6) Se declaran las variables globales:

Dim con As MySqlConnection

Dim data As DataTable

Dim da As MySqlDataAdapter

Dim cb As MySqlCommandBuilder

Public rd As MySqlDataReader

2.2- PROCEDIMIENTO DE CONEXIÓN A LA BASE DE DATOS

• El procedimiento new indica las instrucciones para conectarme a la base de datos especificada en MySql

Public Sub New()

• Es la conexion con esta asignada por favor cierrela.

If Not con Is Nothing Then con.Close()

• Cadecon lleva los parametros servidor=localhost; user id = root; password

Dim cadecon As String

cadecon = "Server=localhost; user id=root; password=; database= enfermeria; pooling=false"

• Se crea una nueva conexion con los parametros de cadecon

Try

con = New MySqlConnection(cadecon)

• Se abre la conexion

con.Open()

Catch ex As Exception ' en caso de algun error

MsgBox("Error al conectar a la base de datos" + ex.Message)

End Try

End Sub

2.3- CARGAR GRILLA DE MOSTRAR DATOS ALMACENADOS

Este procedimiento realiza una consulta a traves del objeto con o conexion. El data adapter se ejecuta con la instruccion sql indicada en la variable sql1. Luego el dataadapter llena el data table correspondiente y este se convierte en el origen de datos de la grilla.

Public Sub cargar_grilla(ByVal grilla As DataGridView, ByVal sql1 As String)

Try

data = New DataTable

da = New MySqlDataAdapter(sql1, con)

cb = New MySqlCommandBuilder(da)

da.Fill(data)

grilla.DataSource = data

Catch ex As MySqlException

End Try

End Sub

2.4- Guardar Grilla

Procedimiento para guardar los cambios ralizados en una grilla cargada previamente con el procedimiento cargar_grilla

Public Sub guardar_grilla()

Dim cambios As DataTable = data.GetChanges

If cambios Is Nothing Then

MsgBox("No hay cambos para guardar")

Else

da.Update(cambios)

data.AcceptChanges()

End If

End Sub

2.5- Función Pública Ejecutar

• Funcion que permite ejecutar la consulta.

Public Function ejecutar(ByVal sql1 As String, ByVal msgbien As String, ByVal msgmal As String) As Boolean

Dim procesook As Boolean = False

• Es la instancia del objeto comando encargado de ejecutar la consulta

Dim mycommand As New MySqlCommand

• Se le asigna la conexion

Try

mycommand.Connection = con

• Se le asigna la instrucción Sql

mycommand.CommandText = sql1 mycommand.ExecuteNonQuery()

• Se ejecuta

If Len(msgbien) > 0 Then

...