1. Visual Basic - Curso completo teoria y practica

1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica

sanjudas.edu.do
from sanjudas.edu.do More from this publisher
30.04.2013 Views

Luego, haga doble click sobre el formulario e ingrese el siguiente código: Private Sub MDIForm_Load() Set Cn = New ADODB.Connection End Sub Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _ “Data Source=C:\FundVB\Data\CursosLibres.MDB;” & _ “Persist Security Info=False” Private Sub MnuMantenCursosNuevo_Click() Load FrmNuevoCurso FrmNuevoCurso.Show End Sub Private Sub MnuMantenCursosEditar_Click() Load FrmEditarCurso FrmEditarCurso.Show End Sub Private Sub MnuMantenCursosEliminar_Click() Load FrmEliminarCurso FrmEliminarCurso.Show End Sub Para desarrollar la opción Nuevo de la tabla Curso, añada un nuevo formulario al proyecto. Luego, ubique los siguientes controles en el formulario: 4 etiquetas 4 cajas de texto 3 botones de comando Luego indica: proceda a establecer las propiedades según se Pág. 334

Form1 Label1 Label2 Label3 Label4 Text1 Text2 Text3 Nombre FrmMantenCursos Caption Nuevo curso BorderStyle 3-Fixed Dialog MDIChild True Nombre LblCodigo Caption Código: Nombre LblNombre Caption Nombre: Nombre LblVacantes Caption Vacantes: Nombre LblProfesor Caption Profesor: Nombre TxtCurCodigo Text Nombre TxtCurNombre Text Nombre TxtCurVacantes Text Pág. 335

Luego, haga doble click sobre el formulario e ingrese el<br />

siguiente código:<br />

Private Sub MDIForm_Load()<br />

Set Cn = New ADODB.Connection<br />

End Sub<br />

Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _<br />

“Data Source=C:\FundVB\Data\<strong>Curso</strong>sLibres.MDB;” & _<br />

“Persist Security Info=False”<br />

Private Sub MnuManten<strong>Curso</strong>sNuevo_Click()<br />

Load FrmNuevo<strong>Curso</strong><br />

FrmNuevo<strong>Curso</strong>.Show<br />

End Sub<br />

Private Sub MnuManten<strong>Curso</strong>sEditar_Click()<br />

Load FrmEditar<strong>Curso</strong><br />

FrmEditar<strong>Curso</strong>.Show<br />

End Sub<br />

Private Sub MnuManten<strong>Curso</strong>sEliminar_Click()<br />

Load FrmEliminar<strong>Curso</strong><br />

FrmEliminar<strong>Curso</strong>.Show<br />

End Sub<br />

Para desarrollar la opción Nuevo de la tabla <strong>Curso</strong>, añada<br />

un nuevo formulario al proyecto. Luego, ubique los siguientes<br />

controles en el formulario:<br />

4 etiquetas<br />

4 cajas de texto<br />

3 botones de comando<br />

Luego<br />

indica:<br />

proceda a establecer las propiedades según se<br />

Pág. 334

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!