Nuestra Labor Social

Les Felicito

Práctica Nº 4 (Programa)

Diseñar un programa para el control y mantenimiento de la información ingresada, editada, almacenada y eliminada para el proceso de Verificación de la Base de Datos

Para la realización de esta práctica deben tomar en cuenta todos los aspectos de la Práctica Nº 3, la misma debe llevar:
3 Marcos
8 Etiquetas
8 Cuadros de Texto
9 Botones de comando

Se sugiere que para esta práctica tomen en cuenta su habilidad como programadores en el diseño de la ventana (formulario), la misma debe tener una visión innovadora

Práctica Nº 3 (Programa)

A continuación les presento las características para el desarrollo del Nuevo Programa

Elaborar una aplicación que permita realizar el mantenimiento de la información almacenada en la tabla realizada en base de datos Microsoft Access. El diseño de la interfaz debe ser similar a la figura mostrada:

Para este programa se debe diseñar la interfaz y luego escribir código para conectarse y recuperar información de la base de datos. El formulario debe llevar los siguientes controles:
3 marcos
4 etiquetas
4 cajas de texto
8 botones de comando

El código necesario para realizar la conexión de la Data Environment y efectuar el mantenimiento de la tabla es el siguiente: se muestra a continuación.

Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset

Private Sub ModoEditar(ByVal Ok As Boolean)
TxtCurCodigo.Locked = Not Ok
TxtCurNombre.Locked = Not Ok
TxtCurVacantes.Locked = Not Ok
TxtCurProfe.Locked = Not Ok
CmdNuevo.Enabled = Not Ok
CmdEditar.Enabled = Not Ok
CmdGuardar.Enabled = Ok
CmdEliminar.Enabled = Not Ok
If Ok Then TxtCurCodigo.SetFocus
End Sub

Private Sub Form_Load()
ModoEditar False
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=C:\FundVB\Data\CursosLibres.MDB;” & _
“Persist Security Info=False”
Rs.ActiveConnection = Cn
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockOptimistic
Rs.Open “Select * From Curso”
Set TxtCurCodigo.DataSource = Rs
TxtCurCodigo.DataField = “CurCodigo”
Set TxtCurNombre.DataSource = Rs
TxtCurNombre.DataField = “CurNombre”
Set TxtCurVacantes.DataSource = Rs
TxtCurVacantes.DataField = “CurVacantes”
Set TxtCurProfe.DataSource = Rs
TxtCurProfe.DataField = “CurProfe”
End Sub

Private Sub CmdPrimero_Click()
Rs.MoveFirst
End Sub

Private Sub CmdAnterior_Click()
Rs.MovePrevious
If Rs.BOF Then
Rs.MoveFirst
MsgBox “Estamos en el primer registro”
End If
End Sub

Private Sub CmdSiguiente_Click()
Rs.MoveNext
If Rs.EOF Then
Rs.MoveLast
MsgBox “Estamos en el último registro”
End If
End Sub

Private Sub CmdUltimo_Click()
Rs.MoveLast
End Sub

Private Sub CmdNuevo_Click()
Rs.AddNew
ModoEditar True
End Sub

Private Sub CmdEditar_Click()
ModoEditar True
End Sub

Private Sub CmdGuardar_Click()
Rs.Update
ModoEditar False
End Sub

Private Sub CmdEliminar_Click()
Rs.Delete
Rs.MoveNext
If Rs.EOF Then
Rs.MoveLast
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cn.Close
Set Cn = Nothing
End Sub

Práctica Nº 2 (Progama)

Estimados Alumnos a continuación le detallo los componentes que se desarrollarán en la Práctica Nº 2 (Programa)

Se desea elaborar una aplicación que permita controlar el proceso de matrícula de los Alumnos en las diferentes Universidades y en una Carrera a estudiar. Para ello se deben recabar los siguientes datos:

1) Carrera en que se matricula el alumno
2) Fecha de matrícula
3) Apellidos y Nombres del Alumno
4) Sexo
5) Dirección de Habitación
6) Universidad donde estudiará.

Para el desarrollo de esta aplicación proceda a ubicar los siguientes controles en el formulario:

• 4 marcos
• 6 etiqueta
• 5 cajas de texto
• 1 cuadro combinado
• 2 controles de lista
• 4 botones de comando

Los Codigos para la Interfaz son los siguientes:

Private Sub Form_Load()
LstCarrera.AddItem "Ingenieria de Sistemas"
LstCarrera.AddItem "Licenciatura en Informática"
LstCarrera.AddItem "Ingenieria Civil"
LstCarrera.AddItem "Licenciatura en administraciön"
LstUniversidad.AddItem "Universidad Central de Venezuela"
LstUniversidad.AddItem "Universidad Simón Bolivar"
LstUniversidad.AddItem "Universidad Metropolitana"
LstUniversidad.AddItem "UCAB"
CboSexo.AddItem "Masculino": CboSexo.AddItem "Femenino"
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("¿Desea terminar la aplicación?", _
vbQuestion + vbYesNo, "Pregunta") = vbYes Then
End
Else
Cancel = True
Call CmdLimpiar_Click
End If
End Sub
Private Sub LstCarrera_Click()
TxtCarrera = LstCarrera
End Sub
Private Sub LstUniversidad_Click()
TxtUniversidad = LstUniversidad
End Sub

Private Sub CmdGuardar_Click()
LstCarrera.Enabled = False
LstUniversidad.Enabled = False
TxtCarrera.Locked = False
TxtFechaMat.Locked = True
TxtAlumno.Locked = True
CboSexo.Locked = True
TxtDireccion.Locked = True
TxtUniversidad.Locked = True
MsgBox "Alumno matriculado", vbInformation, "Mensaje"
End Sub

Private Sub CmdLimpiar_Click()
LstCarrera.Enabled = True
LstUniversidad.Enabled = True
TxtCarrera.Locked = False
TxtFechaMat.Locked = False
TxtAlumno.Locked = False
CboSexo.Locked = False
TxtDireccion.Locked = False
TxtUniversidad.Locked = False
TxtCarrera = ""
TxtFechaMat = ""
TxtAlumno = ""
CboSexo = ""
TxtDireccion = ""
TxtUniversidad = ""
TxtCarrera.SetFocus
End Sub

Private Sub CmdCancelar_Click()
If MsgBox("¿Desea modificar algún dato?", _
vbQuestion + vbYesNo, "Mensaje") = vbYes Then
LstCarrera.Enabled = True
LstUniversidad.Enabled = True
TxtCarrera.Locked = False
TxtFechaMat.Locked = False
TxtAlumno.Locked = False
CboSexo.Locked = False
TxtDireccion.Locked = False
TxtUniversidad.Locked = False
End If
End Sub

Private Sub CmdSalir_Click()
Unload Me
End Sub

Práक्टिका Nº 1

Aplicación Nº १: Elaborar una aplicación que permita calcular el salario neto de un trabajador en función del número de horas trabajadas.
Los cálculos a efectuar para obtener el salario neto de un trabajador se muestran a continuación:
SalarioBruto = HorasTrabajadas * PagoPorHora
Descuento = 0.2 * SalarioBruto
SalarioNeto = SalarioBruto - Descuento

Para el desarrollo de esta aplicación, proceda a ubicar los siguientes controles en el formulario:
2 marcos
6 etiquetas
6 cajas de texto
3 botones de cఓమందో

Ingrese el siguiente código:

Private Sub CmdAceptar_Click()
Dim HorasTrabajadas As Integer, PagoPorHora As Double
Dim SalarioBruto As Double
Dim Descuento As Double
Dim SalarioNeto As Double
HorasTrabajadas = Val(TxtHorasTrabajadas)
PagoPorHora = Val(TxtPagoPorHora)
SalarioBruto = HorasTrabajadas * PagoPorHora
Descuento = 0.2 * SalarioBruto
SalarioNeto = SalarioBruto - Descuento
TxtSalarioBruto = Str(SalarioBruto)
TxtDescuento = Str(Descuento)
TxtSalarioNeto = Str(SalarioNeto)
End Sub



Private Sub CmdSalir_Click()
End
End Sub

Private Sub CmdLimpiar_Click()
TxtApellidosNombres = “”
TxtHorasTrabajadas = “”
TxtPagoPorHora = “”
TxtSalarioBruto = “”
TxtDescuento = “”
TxtSalarioNeto = “”
TxtApellidosNombres.SetFocus
End Sub