paso a paso de programacion

Un proyecto pasó a paso

En este caso elaboraremos una ficha para saber en qué sectores encuentran en empresa, Tipo de industria, Numero de empleados.

Para comenzar se debe analizar bien la encuesta  continuamente, dando encuestas a diferentes empresas para que ellos reponda las preguntas según los tipos de respuestas dadas

Analisis de la empresa :

ü  La encuesta está compuesto por los datos específicos de la empresa  (tipo de industria donde se encuentra la empresa, en que sector geográfico se encuentra la empresa, Numero de empleados y terciariazados que laboran, si está totalmente de acuerdo, de acuerdo, medianamente de acuerdo en desacuerdo, total desacuerdo en tercerizar los servicios contable-tributarios).

ü  Selección única.

ü  Sector donde se encuentra la empresa (Selección única).

ü  Número de empleados que hay en la empresas (De 1 a 50, De 51 a 100 o más 100).

ü  Tipo de industria donde se encuentra la empresa

Solución de la Encuesta

1.      En la encuesta se los jefes o gerentes de la empresa deberán responder exactamente la repuesta que se le pide seleccionar.

2.      Los datos de la encuesta  se almacenara en una base datos de Access una sola vez en la tabla de información personal.

3.      Con todo lo anterior se sacara una un porcentaje específico de las empresas.

Ahora a trabajar:

Comenzaremos a e realizar las tablas donde se almacenara la información descompuesta anteriormente, para guardar la información específica de las empresas se utilizara la siguiente tabla:

Luego cerramos la base de datos de Access y listos para ir a trabaja a Visual Basic.Net

1 paso: hacemos el formulario sobre la encuesta que se nos han pedido hacer como todos sabemos para que nuestros datos se almacenes en la hoja de datos de Access debemos programar el formulario el botón salvar y salir aquí pueden observar el código de ellos:

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        DsEncuesta.Merge(Datos.ObtenerDatos, False)

    End Sub

    Private Sub EncuestasBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EncuestasBindingNavigatorSaveItem.Click

        If validar() = True Then

            EncuestasBindingSource.EndEdit()

            Datos.salvarencuesta(DsEncuesta)

            DsEncuesta.AcceptChanges()

            MsgBox("Los datos se han almacenado correctamente", MsgBoxStyle.Information, "salvar")

        End If

    End Sub

    Private Function validar () As Boolean

        If Preg1.SelectedIndex = -1 Then

            Err.SetError(Preg1, "Seleccione su respuesta")

            Return False

        End If

        If Preg2.SelectedIndex = -1 Then

            Err.SetError(Preg2, "Selecciones su respuesta")

            Return False

        End If

        If preg3.SelectedIndex = -1 Then

            Err.SetError(preg3, "Selecciones su respuesta")

            Return False

        End If

        If Preg4.SelectedIndex = -1 Then

            Err.SetError(Preg4, "Selecciones su respuesta")

            Return False

        End If

        Err.SetError(Preg1, "")

        Err.SetError(Preg2, "")

        Err.SetError(preg3, "")

        Err.SetError(Preg4, "")

        Return True

    End Function

    Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click

        EncuestasBindingSource.EndEdit()

        EncuestasBindingSource.AddNew()

        Preg1.Focus()

        Preg1.SelectedIndex = -1

        Preg2.SelectedIndex = -1

        Preg3.SelectedIndex = -1

        Preg4.SelectedIndex = -1

    End Sub

    Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click

        If MsgBox("desea eliminar el registro", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "eliminar") = MsgBoxResult.Yes Then

            EncuestasBindingSource.EndEdit()

            EncuestasBindingSource.RemoveCurrent()

            Datos.salvarencuesta(DsEncuesta)

            DsEncuesta.AcceptChanges()

            MsgBox("el registro se ha eliminado de manera permanente", MsgBoxStyle.Information, "confirmado")

            Preg1.Focus()

Private Sub Salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salir.Click

        Close ()

    End Sub

Al ejecutar el formulario debemos contestar la encuesta y lo que uno conteste debe aparecer en las hoja de datos de Access este funcionara si el código esta correcto.

Pero no debemos olvidar agregar un control de usuario a este lo llamaremos entorno este nos sirve para establecer la conexión y así que el programa se nos ejecute sin ningún error en la conexión

 2paso: Realizamos la grafica  de cada una de las preguntas de las encuestas:

*Primero agregamos un formulario.

*Agregamos un tabcontrol.

*y en el tabgrafico le escribimos el nombre de la pregunta de la encuesta.

*Dentro de cada una de las pestañas agregamos un chart.

*Agregamos un botón de comando y le cambiamos en la propiedad en text: Actualizar..

*Agregamos el código De actualizar

 Este código es el mismo  que se utilice en cada una de las graficas  que se tendrán que realizar por cada pregunta que este en la encuesta lo único que tendríamos que cambiar es:

*El numero de la pregunta de la encuesta

*En el titulo ósea la pregunta de la encuesta

ü  Ya una vez realizado todo esto y hecho todas la graficas  nos quedara así:

Pasó 3: El reporte

·        Lo primero que hacemos es agregar un formulario.

·        Y dentro del agregamos un ReportViewer1.

·        Agregamos un nuevo elemento y seguimos haciendo los primeros pasos.

·        En rptencuesta arrastramos un list

·        Dentro de este agregamos

·        Y le damos agregar
·        Y nos aparece una ventana para la configuración de datos

·        Le damos el botón siguiente y nos aparece esta ventana

·        También le damos siguiente a esta ventana y nos aparece lo siguiente:

·        En esta ventana nos aparece para realizar una conexión de datos

·        Y le damos nueva conexión y seccionamos o examinamos la carpeta donde tenemos guardo.

·        Luego probar conexión aquí nos tendrá que aparecer una ventana de esta forma : diciendo la conexión de prueba se realizo correctamente

                                                                                                                                                                  

·        Luego le damos Ok  y solo le damos siguiente y nos quedara así:

Donde le damos un nombre y en el Data Source saldrá nuestra tabla de datos y solo la seleccionamos y luego en ok. Estiramos nuestra lista y vamos pegando los cuadros de texto le damos un titulo como: “Ficha de Encuesta para Encuesta”

Luego pegamos otro cuadro de texto y en la parte de la esquina arriba de nuestro cuadro de texto seleccionamos el Id de nuestra ficha

Luego de Seleccionarlo le damos clic derecho y nos vamos a Expresión y borramos lo que hay y pegamos este código:

=”Encuesta #: “ &Fields! IdEncuesta.Value.ToString

Luego vamos pegando cada una de las preguntas y respuesta de la encuesta  y nos quedara así: los incisos deberán tener color para cuando lo ejecutemos deberán solo aparecer la repuesta que fue seleccionada seleccionada