1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
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
- Page 283 and 284: LstDistrito.AddItem “La Victoria
- Page 285 and 286: CboSexo.Locked = False TxtDireccion
- Page 287 and 288: GUÍA DE LABORATORIO Nº 5 Objetivo
- Page 289 and 290: Command1 Command2 Command3 Nombre C
- Page 291 and 292: El curso quedará seleccionado al h
- Page 293 and 294: En ese instante se añadirá un nue
- Page 295 and 296: indica: Form2 List1 Command1 Luego
- Page 297 and 298: Del cuadro de diálogo Agregar form
- Page 299 and 300: Private Sub MnuFixedSingle_Click()
- Page 301 and 302: GUÍA DE LABORATORIO Parte II ELABO
- Page 303 and 304: GUÍA DE LABORATORIO Nº 6 Objetivo
- Page 305 and 306: CurCodigo CurNombre CurProfe BC1 Bo
- Page 307 and 308: la base de datos CursosLibres.MDB.
- Page 309 and 310: otón Siguiente. En seguida aparece
- Page 311 and 312: Frame2 Frame3 Nombre FraIngreso Cap
- Page 313 and 314: Command5 Command6 Command7 Command8
- Page 315 and 316: ModoEditar True End Sub Private Sub
- Page 317 and 318: Desarrollar una aplicación que per
- Page 319 and 320: Desarrollar una aplicación que per
- Page 321 and 322: Aplicación Nº 4 Desarrollar una a
- Page 323 and 324: Para el diseño de la interfaz, pro
- Page 325 and 326: Text Para establecer las propiedade
- Page 327 and 328: TxtCurNombre.DataField = “CurNomb
- Page 329 and 330: Para el desarrollo de esta aplicaci
- Page 331 and 332: RsCurso.LockType = adLockReadOnly R
- Page 333: Para desarrollar nuestra aplicació
- Page 337 and 338: Private Sub CmdNuevo_Click() TxtCur
- Page 339 and 340: Command1 Command2 Command3 Command4
- Page 341 and 342: End Sub Private Sub CmdCerrar_Click
- Page 343 and 344: Command3 Command4 Caption &Eliminar
- Page 345 and 346: Aplicación Nº 4 Elaborar una apli
- Page 347 and 348: un Comando y denomínelo CmCurso. E
- Page 349 and 350: Etiqueta6 Font Arial (Negrita 10) N
- Page 351 and 352: A continuación sobre el diseñador
- Page 353 and 354: Form1 Frame1 Option1 Option2 Option
- Page 355 and 356: Private Sub CmdSalir_Click() Unload
- Page 357 and 358: La presente Guía de Laboratorio de
- Page 359 and 360: La ventana de código de la clase d
- Page 361 and 362: Dim A As Circulo Private Sub Form_L
- Page 363 and 364: Nombre FrmPruebaMiControl Caption P
- Page 365 and 366: En seguida, guarde y ejecute su apl
- Page 367 and 368: Luego, haga click sobre la opción
- Page 369 and 370: Ahora hemos llegado a la ventana en
- Page 371 and 372: Proyecto1 Nombre ActiveXNumBox User
- Page 373 and 374: ejemplo 5 de Setiembre de 1752. El
- Page 375 and 376: usuario: A continuación proceda a
- Page 377 and 378: Command1 Nombre BdgrdTabla Font Ari
- Page 379 and 380: Case 0 Call MostrarAlumno Case 1 Ca
- Page 381 and 382: ingrese en el cuadro de texto adjun
- Page 383 and 384: Objetivos capaz de: Luego de comple
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