1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
TxtCurCodigo.SelStart = 0 TxtCurCodigo.SelLength = Len(TxtCurCodigo) Exit Sub End If TxtCurNombre = Rs!CurNombre TxtCurVacantes = Rs!CurVacantes TxtCurProfe = Rs!CurProfe Rs.Close Set Rs = Nothing TxtCurCodigo.Enabled = False CmdAceptar.Enabled = False CmdGrabar.Enabled = True CmdNuevo.Enabled = True End Sub Private Sub CmdGrabar_Click() End Sub Cn.Execute “Update Curso Set CurNombre = '” & _ TxtCurNombre & “',” & “CurVacantes = ” & _ Val(TxtCurVacantes) & “,” & “CurProfe = '” & _ TxtCurProfe & “'” & “ Where CurCodigo = '” & _ TxtCurCodigo & “'” Private Sub CmdNuevo_Click() TxtCurCodigo = “” TxtCurNombre = “” TxtCurVacantes = “” TxtCurProfe = “” CmdAceptar.Enabled = True CmdGrabar.Enabled = False CmdNuevo.Enabled = False TxtCurCodigo.Enabled = True TxtCurCodigo.SetFocus Pág. 340
End Sub Private Sub CmdCerrar_Click() Unload Me End Sub Para desarrollar la opción Eliminar de la tabla Cursos, añada un nuevo formulario al proyecto. Luego, ubique los siguientes controles en el formulario: 1 marco 4 etiquetas 4 cajas de texto 4 botones de comando En seguida proceda a establecer las propiedades según se indica: Form1 Frame1 Label1 Label2 Nombre FrmMantenCursos Caption Eliminar curso BorderStyle 3-Fixed Dialog MDIChild True Nombre FraCodigo Caption Nombre LblCodigo Caption Código: Nombre LblNombre Pág. 341
- 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 and 334: Para desarrollar nuestra aplicació
- Page 335 and 336: Form1 Label1 Label2 Label3 Label4 T
- Page 337 and 338: Private Sub CmdNuevo_Click() TxtCur
- Page 339: Command1 Command2 Command3 Command4
- 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
- Page 385 and 386: Para crear la interfaz de la aplica
- Page 387 and 388: TxtTabla.Value = S Else TxtTabla.Va
- Page 389 and 390: Luego haga click en el botón Acept
End Sub<br />
Private Sub CmdCerrar_Click()<br />
Unload Me<br />
End Sub<br />
Para desarrollar la opción Eliminar de la tabla <strong>Curso</strong>s,<br />
añada un nuevo formulario al proyecto. Luego, ubique los<br />
siguientes controles en el formulario:<br />
1 marco<br />
4 etiquetas<br />
4 cajas de texto<br />
4 botones de comando<br />
En seguida proceda a establecer las propiedades según se<br />
indica:<br />
Form1<br />
Frame1<br />
Label1<br />
Label2<br />
Nombre FrmManten<strong>Curso</strong>s<br />
Caption Eliminar curso<br />
BorderStyle 3-Fixed Dialog<br />
MDIChild True<br />
Nombre FraCodigo<br />
Caption<br />
Nombre LblCodigo<br />
Caption Código:<br />
Nombre LblNombre<br />
Pág. 341