FORMULARIOS, INFORMES Y CONSULTAS

FORMULARIOS, INFORMES Y CONSULTAS

BASE DE DATOS DE UN VIDEOCENTRO

  ESTE ES EL DISEÑO DE LA BD.

 LISTAS
ORIGEN:TABLA tblEmpleado


Origen: Lista creada manualmente

Origen: Lista creada manualmente

¿Cómo puedo hacer una lista manualmente?

Respuesta: al momento de crear una relación en un campo, selecciona la segunda opción tal cual se muestra a continuación.

Luego captura los datos.

REALIZA UNA BASE DE DATOS PARA ASIGNAR CITAS MEDICAS

REALIZA UNA BD QUE PERMITA DAR CITAS A UN PACIENTE, CON UN DOCTOR Y CONSULTORIO ESPECIFICO.

• UTILIZAR 5 TABLAS
• DOCUMENTAR LAS TABLAS
• DESCRIPCION
• TITULOS
• TAMAÑO DEL CAMPO / FORMATO DEL CAMPO

NOTA: HAY QUE REVISAR EL EJERCICIO RECIEN HECHO DE BASE DE DATOS.

VAMOS A TRABAJAR CON ACCESS 2013

PRACTICA:3

• Elementos de las bases de datos: Tablas a crear:

1. tblAlumnos
1. IdAlumnos
2. Matricula
3. Ver credencial... Crear la primera tabla con los datos de su credencial, incluir todos los campos
2. tblMaterias
1. IdMaterias
2. Nombre
3. Semestre
4. Comentarios
3. tblProfesores 
1. IdProfesores (Autonumeración)
2. Apellidos (texto corto)
3. Nombre (texto corto)
4. Especialidad (texto corto)
5. Comentario_Materias(texot largo)
4. Asignar tipos de datos
5. Asignar comentarios del campo
6. tblBoleta
1. idBoleta (autonumeración)
2. Fecha alta (fecha)
3. Regular(SI/NO)
4. IdAlumnos (numero)
7. tblConceptoBoleta
1. IdConceptoBoleta  (autonumeración)
2. IdBoleta(numero)
3. IdMaterias(numero)
4. Calificacion(numero)
5. idProfesores(numero)
6. Parcial (texto) ( se creará una lista con los siguientes datos primero,segundo,tercero,cuarto)
8. Relacionar tablas(con la ayuda del maestro)
9. Llenar las boletas

• Investigar tipos de datos en Access y su equivalencia, escribirlos en su cuaderno.
• Investigar  tipo de relaciones en base de datos, escribir su concepto de cada relación en su cuaderno.
• Escribe que es el campo llave y para que sirve
• Escribe la diferencia entre vista hoja de datos y vista de diseño

Area de oportunidades

Escribe y explica 3 areas de oportunidadencontradas en el caso mcvet

CASO PRÁCTICO

A CONTINUACIÓN DESCARGA EL SIGUIENTE CASO PRACTICO
PASOS:

1. LEE TODO EL CASO PRACTICO
2. QUE PROBLEMAS VES QUE EXISTEN EN MCVET, HAS UNA LISTA DE ELLAS.
3. ¿CUALES OPORTUNIDADES NO EXPLOTADAS PUEDE ENCONTRAR QUE AYUDARÍAN A MCVET ?
4. QUE PREGUNTAS ADICIONALES LE GUSTARÍA HACER EN SU SIGUIENTE RONDA DE INVESTIGACIÓN

Investigue conceptos básicos de Bases de Datos

Escriba en su cuaderno los siguiente conceptos de manera resumida y clara desde un punto de vista de Base de Datos

1. Tablas
2. Campos
3. Registros
4. Atributos
5. Dominio
6. Tupla
7. Tipos de Datos
8. Cardinalidad

ACTIVIDAD: Posteriormente a la entrega de conceptos el maestro llevará a cabo una lluvia de ideas para establecer el concepto final.

primera base en access

Mi primera Base de Datos.

Vamos a conocer la interfaz de Access 2013 y vamos a realizar un trabajo inicial

•  Abra la aplicación access  desde el metro de windows 8

• Observe la intefaz.

• Seleccione Base de datos del escritorio en blanco

• Se mostrará un cuadro de dialogo, escriba el nombre: Practica1(nom_alumno)

• De un clic sobre la carpeta y localice su memoria

• Presione el botón crear.

 

• Lo que obtendra es una interfaz como la que se muestra

• Espere indicaciones para rellenar su primer registro. escriba los siguientes datos de usted, en la base de datos.
• Rellenar los siguientes campos: Nombre, Apellidos, telefono, escuela, grado, grupo Promedio_Gral 
• Rellenar 3 registros en total. 

EXAMEN 3 PARCIAL DE NUTRICION

FECHA: PROXIMO MIERCOLES 6 DE MAYO

TIPO DE EXAMEN: TEORICO- TIPO FORMULARIO POR INTERNET

ELEMENTOS A ESTUDIAR

• TEORICA DE FLASH
• MACROS(CALCULADORA Y GET)
• IMPORTACION EN ACCESS (ÚLTIMO EJERCICIO)

BASE DE MEDICAMENTOS TEMA: VINCULACIONES

ACTIVIDAD: REALIZAR EN EXCEL UN TABLA TOMANDO COMO REFERENCIA LOS SIGUIENTES DATOS.

• INSERTE UNA COLUMNA LLAMADA CATEGORIA TERAPEUTICA EN LA COLUMNA "D" (SE RECORRERA LA COLUMNA ACTUAL)
• CAPTURE 25 MEDICAMENTOS O SUSTANCIA ACTIVA O PRINCIPIO ACTIVO CLASIFICANDOLOS POR CATEGORIAS( VER CATEGORIAS PARTE BAJA DE ESTE BLOG).
• USTED DEBE USAR NO MENOS DE 5 CATEGORIAS

PARA PODER DISTINGUIR CUALES SON LAS PRINCIPALES CATEGORIAS  VEA LA SIGUIENTE INFORMACIÓN OBTENIDA DE LA RED.

Clasificar los farmacos:

• Analgésico (contra el dolor)
• Anestésico (para adormecer a los pacientes en cirugía)
• Ansiolítico (contra la ansiedad)
• Antibiótico (contra las infecciones bacterianas)
• Anticolinérgico (con efectos sobre el sistema nervioso)
• Anticonceptivo (para prevenir el embarazo)
• Anticonvulsivo (contra las convulsiones y otros síntomas de la epilepsia)
• Antidepresivo (contra la depresión)
• Antihelmíntico (contra las infecciones intestinales provocadas por gusanos y lombrices (helmintiasis))
• Antihistamínico (contra las alergias)
• Antineoplásico (contra los tumores (neoplasias))
• Antiparkinsoniano (contra los síntomas de la enfermedad de Parkinson)
• Antimicótico (contra los hongos)
• Antipirético (contra la fiebre)
• Antipsicótico (contra los síntomas de diferentes tipos de psicosis y de otros padecimientos mentales/emocionales)
• Antídoto (contra los efectos de los venenos)
• Broncodilatador (para dilatar los bronquios; útiles en el tratamiento del asma y de la enfermedad pulmonar obstructiva crónica (EPOC))
• Cardiotónico (para fortalecer el músculo cardíaco)
• Citostático (o citotóxico o quimioterápico) (para interrumpir la división celular; de utilidad en el tratamiento del cáncer)
• Hipnótico (para obtener relajación, sedación, tranquilidad o sueño en pacientes con ansiedad o con problemas para dormir)
• Hormonoterápico (para resolver desequilibrios en el funcionamiento hormonal)
• Quimioterápico (para el tratamiento de tumores cancerosos)
• Relajante muscular (para la relajación y el alivio de dolores musculares)
• (IBP) Inhibidor de la bomba de protones (para el tratamiento de las patologías asociadas con el reflujo ácido)

• AHORA ES TIEMPO DE ENVIARLO A nutricionoaxaca@hotmail.com

II. Parte crear una base de datos en blanco

Vamos a conocer la interfaz de Access 2013 y vamos a realizar un trabajo inicial

•  Abra la aplicación access  desde el metro de windows 8

• Observe la intefaz.

 

• Seleccione Base de datos del escritorio en blanco

• Se mostrará un cuadro de dialogo, escriba el nombre: Practica de importación(nom_ alumno)

• De un clic sobre la carpeta y localice su memoria

• Presione el botón crear.

 

• Lo que obtendra es una interfaz como la que se muestra

• Ahora valla a la 3a parte.

III  Parte. Importar Archivo de excel en Access.

Para poder importar sigue la siguiente secuencia de imágenes

Paso 1: Ir al Menú datos externos

Paso 2. Presionar examinar.

Paso 3. Buscar el archivo a importar, y abrirlo

Paso 4. Seguir el asistente y finalizar.

• Guarde su archivo y entreguelo en el dia de la revisión una clase después del examen.

CALCULO DEL GET

DISEÑE LA SIGUIENTE INTERFAZ EN VISUAL BASIC, EN UN NUEVO LIBRO DE EXCEL.

I parte. Diseño

Asigne nombre a cada objeto de la macro

II parte. Programación 

No pase si aun no a terminado TODA la parte anterior.

1. Crear un boton en excel para llamar al formulario frmGet hecho en VB.

PASOS:

1. Guardar cambios
   
2. Regresar a Excel
   
3. Ir al menu Programador o Desarrollador o programador
4. Insertar un botón
   
5. Escribir el nombre de la macro: VBGET
6. Presione en el botón nuevo
7. Escribir el siguiente código (solo el código subrayado)

          Sub VBGET()

              frmGet.Show

          End Sub

8. Regrese a excel y modifique la etiqueta del boton por "G.E.T."

9. Clic fuera del botón

10. Pruebe el botón

III parte. Programación.

Copie todo el siguiente código en la sección de codigo del  formulario de excel

imagen de la sección del código(no copie esta imagen)

Dim sexo As Integer

Dim bmr, calculoGET, peso, talla, edad As Single

Private Sub actividadMujer()

Dim actividad As String

actividad = CmbActividad.Text

Select Case actividad

Case "Sedentaria(o)"

    calculoGET = bmr * 1.3 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.3 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.3 & ") + " & (bmr * 0.1)

Case "Ligeramente activa(o)"

    calculoGET = bmr * 1.5 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.5 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.5 & ") +" & (bmr * 0.1)

Case "Moderadamente activa(o)"

    calculoGET = bmr * 1.6 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.6 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.6 & ") + " & (bmr * 0.1)

Case "Si usted es muy activa(o)"

    calculoGET = bmr * 1.9 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.9 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.9 & ") + " & (bmr * 0.1)

End Select

lblGET.Caption = calculoGET

End Sub

Private Sub actividadHombre()

Dim actividad As String

actividad = CmbActividad.Text

Select Case actividad

Case "Sedentaria(o)"

    calculoGET = bmr * 1.3 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.3 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.3 & ") + " & (bmr * 0.1)

Case "Ligeramente activa(o)"

    calculoGET = bmr * 1.6 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.6 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.6 & ") + " & (bmr * 0.1)

Case "Moderadamente activa(o)"

    calculoGET = bmr * 1.7 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.7 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.7 & ") + " & (bmr * 0.1)

Case "Si usted es muy activa(o)"

    calculoGET = bmr * 2.1 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 2.1 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 2.1 & ") + " & (bmr * 0.1)

End Select

lblGET.Caption = calculoGET

End Sub

Private Sub FactorActividad()

Dim actividad As String

actividad = CmbActividad.Text

If OptMinimo.Value = True Then

'And OptMaximo.Value = False Then

Select Case actividad

Case "Sedentaria(o)"

    calculoGET = bmr + (bmr * 0.1)

    lblGETDescripcion.Caption = ""

    lblGETDescripcion2.Caption = "(" & bmr & ") + " & (bmr * 0.1)

Case "Ligeramente activa(o)"

    calculoGET = bmr * 1 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1 & ") + " & (bmr * 0.1)

Case "Moderadamente activa(o)"

    calculoGET = bmr * 1.2 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.2 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.2 & ") + " & (bmr * 0.1)

Case "Si usted es muy activa(o)"

    calculoGET = bmr * 1.4 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.4 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.4 & ") + " & (bmr * 0.1)

End Select

End If

If OptMaximo.Value = True Then

Select Case actividad

Case "Sedentaria(o)"

    calculoGET = bmr + (bmr * 0.1)

    lblGETDescripcion.Caption = ""

    lblGETDescripcion2.Caption = "(" & bmr & ") + " & (bmr * 0.1)

Case "Ligeramente activa(o)"

    calculoGET = bmr * 1.1 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.1 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.1 & ") + " & (bmr * 0.1)

Case "Moderadamente activa(o)"

    calculoGET = bmr * 1.3 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.3 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.3 & ") + " & (bmr * 0.1)

Case "Si usted es muy activa(o)"

    calculoGET = bmr * 1.5 + (bmr * 0.1)

    lblGETDescripcion.Caption = "(" & bmr & " x 1.5 ) + " & (bmr * 0.1)

    lblGETDescripcion2.Caption = "(" & bmr * 1.5 & ") + " & (bmr * 0.1)

End Select

End If

lblGET.Caption = calculoGET

End Sub

Private Sub CmbActividad_Change() 'actualizar OptMaximo.Value

Dim actividad As String

actividad = CmbActividad.Text

Select Case actividad

Case "Sedentaria(o)"

     lblDescripcionNiveldeActividad.Caption = "Sedentaria(o), poco o nada de ejercicio"

     If OptMinimo.Value = True Or OptMaximo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 0"

     End If

   

Case "Ligeramente activa(o)"

     lblDescripcionNiveldeActividad.Caption = "Ligeramente activa(o) (ejercicio ligero / deportes 1-3 días / semana"

     If OptMinimo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 1.0"

     End If

     If OptMaximo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 1.1"

     End If

Case "Moderadamente activa(o)"

     lblDescripcionNiveldeActividad.Caption = "Moderadamente activa(o) (ejercicio moderado / deportes 3-5 días / semana)"

     If OptMinimo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 1.2"

     End If

     If OptMaximo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 1.3"

     End If

Case "Si usted es muy activa(o)"

     lblDescripcionNiveldeActividad.Caption = "Si usted es muy activa(o) (ejercicio duro / deportes 6-7 días / semana)"

     If OptMinimo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 1.4"

     End If

     If OptMaximo.Value = True Then

      lblDescripcionNiveldeActividad.Caption = lblDescripcionNiveldeActividad.Caption & " AF basada en valor 1.5"

     End If

End Select

End Sub

Private Sub ActividadFisica()

 CmbActividad.AddItem "Sedentaria(o)"

 CmbActividad.AddItem "Ligeramente activa(o)"

 CmbActividad.AddItem "Moderadamente activa(o)"

 CmbActividad.AddItem "Si usted es muy activa(o)"

End Sub

Private Sub OptMaximo_Change()

If OptMaximo.Value = False Then CmbActividad_Change

End Sub

Private Sub OptMaximo_Click()

 CmbActividad_Change

End Sub

Private Sub OptMinimo_Change()

If OptMinimo.Value = False Then CmbActividad_Change

End Sub

Private Sub OptMinimo_Click()

CmbActividad_Change

End Sub

Private Sub UserForm_Activate()

ActividadFisica 'llenado de lista

CmbActividad.ListIndex = 1

End Sub

• Doble clic al boton cmdCalcular y escriba

El código de la imagen SI debe ser transcrita hacia el botón.

IV PARTE. EJECUTAR

• Si tiene problemas con la macro, revice cada nombre de objeto como se indica en la parte I.
• Ahora pruebe el boton desde excel
• Guarde su archivo (habilitado para macros)

MACROS SEGUNDA PARTE

VAMOS A REALIZAR UNA MACRO Y VAMOS A UTILIZAR VISUAL BASIC  PARA APLICACIONES

1. PRIMERO DEBES ACTIVAR EL MENU DESARROLLADOR (Excel 2013)

Si ya tienes el menú desarrollador  activado inicia de  aqui en adelante.

 Construir una calculadora en Excel 2013 

Vamos a crear un libro nuevo le llamaremos calculadora DEBE SER GUARDADO COMO UN LIBRO DE EXCEL PARA MACROS

 ¿COMO?

1. CLIC EN EL MENU ARCHIVO
2. CLIC EN LA LISTA TIPO, CAMBIARLO POR LIBRO DE EXCEL HABILITADO PARA MACROS(VER IMAGEN ANTERIOR)
3. ASIGNAR EL NOMBRE DE CALCULADORA
4. CLIC EN GUARDAR (VERIFIQUE LA RUTA DE DONDE GUARDA)

I parte construir calculadora

1. Ejecutar la herramienta Visual Basic para aplicaciones. MENÚ DESARROLLADOR (Excel 2013)
   
   
2. Aparecerá la interfaz de Visual Basic
   
   
3. Ahora desde el menu insertar, selecciona la herramienta UserForm
   
   
4. En la propiedad Name asignarle frmCalculadora

Detalles

Si alguno de los objetos como propiedades o explorador de proyectos o las herramientas desaparecen debes hacer lo siguiente.

• Ir al menú ver y activarlos

Ahora construya un formulario muy similar a la calculadora de windows

PASOS:

Para poder agregar una caja de texto haga lo siguiente

1) clic a la herramienta de cuadro de texto.

Para agregar un botón de comando hacer lo siguiente
1) clic en la herramienta botón de comando
2) para modificar su texto modifique la propiedad caption

II Parte  Agregarle texto y nombre  a los objetos

HAY QUE PONERLE NOMBRE A CADA OBJETO

¿CÓMO?

1. En la propiedad caption de cada objeto escribir el valor que representa. Ejemplo a 1 escriba 1en el caption (ver imagen)
2. En la propiedad Name de cada objeto(ver imagen)
1. Ejemplo al botón 1 CmdUno, al 2 CmdDos etc...
2. Para la caja de texto que mostrará el resultado asignarle el nombre TxtResultado en la propiedad name.
3. Asignar nombre solo a los botónes de operaciones siguiente: =,+,-,/,ce,c
1. Para el bótón de Igual asignarle el texto CmdIgual,en la propiedad name. 
2. Para el bótón de suma asignarle el texto Cmdsuma,en la propiedad name y así sucesivamente con el resto de los botones señalados.
4. Los botones como raiz, +-  y otros no mencionados no es necesario cambiarles el nombre.

III Parte. Codigo para los botones(0,1..9)

1. Primero debes dar doble clic en el boton, esto quiere decir que puedes empezar con el número1 y así sucesivamente (0,1..9)
2. Se mostrará un codigo similar al que aparece abajo

Private sub CmdUno_click( )
   txtResultado.text=txtResultado.text+"1" ' cambiar el 1 x el número del botón
End Sub
    3.  Observa que le falta al código
    4.  Escribele la línea que le falta.

Seguir la misma logica para todos los números, pero sustituyendo el 1 por el número que estes programando.

V. Parte. declaración de variables globales

1. Entre al código, suba hasta la primera linea de codigo y de un enter
2. Suba a la línea vacia  y pegue las siguientes dos lineas de código, UNA SOLA VEZ.

Dim x,y as single

Dim operacion as string

VI. PARTE.  Para  los botones de +,-,/,* , =,CE, C

Para colocar el siguiente código valla primero al boton CE y de doble clic, luego agregue el siguiente código

Sub CmdCE
   txtResultado.text=""
End Sub

Para colocar el siguiente código valla primero al boton C y de doble clic, luego agregue el siguiente código

Sub CmdC
   txtResultado.text=""

End Sub

Boton de suma

private sub cmdsuma
  x=txtresultado.text
  operacion="suma"
  txtresultado.text="" 'doble comillas juntas
end sub


'boton de resta

private sub cmdresta
  x=txtresultado.text
  operacion="resta"
  txtresultado.text="" 'doble comillas juntas
end sub


'boton de multiplicación

private sub cmdmultiplicación
  x=txtresultado.text
  operacion="multiplicacion"
  txtresultado.text="" 'doble comillas juntas
end sub

'Botón de división

private sub cmddivision
  x=txtresultado.text
  operacion="division"
  txtresultado.text="" 'doble comillas juntas
end sub

'Botón del igual

private sub cmdIgual
 y=txtresultado.text
 if operacion="suma" then txtresultado.text=Cint(x) + Cint(y)
 if operacion="resta" then txtresultado.text=Cint(x) - Cint(y)
 if operacion="multiplicacion" then txtresultado.text=Cint(x) * Cint(y)
 if operacion="division" then txtresultado.text=Csng(x) / Csng(y)
End Sub

VII. Parte crear una macro

1. Guardar sus cambios
2. Regresar a Excel
3. Ir al menu Programador o Desarrollador
4. Insertar un botón
5. Escribir el nombre de la macro: Calculadora
6. Clic en el botón nuevo

7. Escribir el siguiente código

     sub calculadora
        frmCalculadora.show
    end sub

8. Modifique la etiqueta del boton por "calculadora"
9. Clic fuera del botón
10. Pruebe su botón