Loading presentation...

Present Remotely

Send the link below via email or IM

Copy

Present to your audience

Start remote presentation

  • Invited audience members will follow you as you navigate and present
  • People invited to a presentation do not need a Prezi account
  • This link expires 10 minutes after you close the presentation
  • A maximum of 30 users can follow your presentation
  • Learn more about this feature in our knowledge base article

Do you really want to delete this prezi?

Neither you, nor the coeditors you shared it with will be able to recover it again.

DeleteCancel

Make your likes visible on Facebook?

Connect your Facebook account to Prezi and let your likes appear on your timeline.
You can change this under Settings & Account at any time.

No, thanks

Visual BASIC

Expocision de visual BASIC
by

Linda Cruz

on 24 October 2012

Comments (0)

Please log in to add your comment.

Report abuse

Transcript of Visual BASIC

Añadir,
modificar
y
borrar datos Visual Basic Vamos a añadir botones cuyas propiedades están en la siguiente tabla: Un ejemplo: Observe la expresión: Para habilitar o inhabilitar un control en general,
ocuparemos la propiedad Enabled.
Si a esta propiedad le asignamos un valor True (valor que tiene inicialmente) el valor está habilitado.
Si a la propiedad le asignamos un valor False, el control queda inhabilitado. Queremos que cuando el usuario arranque la
aplicación, el botón Grabar aparezca inhabilitado para que el usuario no pueda grabar el registro que se visualiza inicialmente, porque ya está grabado o no hay ninguno.
También queremos que sobre las cajas de texto no pueda escrbir mientras no pulse el botón Nuevo o el botón Editar. Esto podemos hacerlo añadiendo al procedimiento From_Load el siguiente código: Si hay muchos controles de una clase, por ejemplo cajas de texto, y en un instante determinado queremos inhabilitar todos ¿cómo le haríamos? Cuando se coloca un control sobre un formulario, dicho control pasa automáticamente a ser un elemento de la matriz de controles o colección de objetos denominada Controls. La colección Controls tiene una propiedad, Count, que especifica el número de elementos de una matriz. De aquí, el código: TypeOf NombreObjeto Is TipoObjeto es cualquier referencia al objeto y TipoObjeto es cualquier clase de objeto válida. La expresión True si NombreObjeto es de la clase del objeto específicada por TipoObjeto; en caso contrario es False. Por lo tanto, el código: Private SubForm_Load ( )
Grabar.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
End Sub Private Sub InhabilitarCajas ( )
Dim n As Interger
For n = 0 To Controls.Coun - 1
If Type0f Controls(n) Is TextBoox Then
Controls(n).Enabled = False
End If
Next n
End Sub For n = 0 To Controls.Count - 1
' si el control es una caja de texto, inhabilitarla
Next n If TypeOf Controls(n) Is TextBox Then
Controls(n).Enabled = False
End If Un razonamiento análogo nos conduce al procedimeinto que permite habilitar todos los controles que sean cajas de texto: Private Sub HabilitarCjas()
Dim n As Integer
For n 0 to Controls.Count - 1
If TypeOf Controls(n) Is Textbox then
Controls(n).Enabled = True
End If
Next n
End Sub El mismo razonamiento seguiríamos para inhabilitar o habilitar botones de pulsación (CommandButton): Private Sub InhabilitarBotones()
Dim n As Integer
For n = 0 To Controls.Count - 1
If TypeOf Controls(n) is CommandButton Then
Controls(n).Enabled = False
End If
Next n
End Sub

Private Sub InhabilitarBotones()
Dim n As Integer
For n = 0 To Controls.Count - 1
If TypeOf Controls(n) is CommandButton Then
Controls(n).Enabled = True
End If
Next n
End Sub
Cuando el usuario pulse el botón de Nuevo, se deberá habilitar todas las cajas para poder escribir e inhabilitar todos los botones excepto el de Grabar y el de Cancelar. Por ello, escriba el procedimiento conducido por el evento Click asociado con este botón, así: Private Sub Nuevo_Click
HabilatarCajas
InhabilitarBotones
Grabar.Enabled = True
Cancelar.Enabled = True
Adodc1.Recordset.AddNew 'añadir un nuevo registro
Text1.SetFocus 'poner el cursos en la caja del "Nombre"
End Sub
Según lo expuesto, ahora podemos escribir el procedimiento Form_Load así: Private Sub Form_Load()
Grabrar.Enabled = False
InhabilitarCajas
End Sub Para editar el registro simplemente reescribimos aquellos campos que sea preciso modificar. Según lo expuesto, escriba el procedimiento conducido por el evento Click asociado con este botón, así: Private Sub Editar_Click()
HabilitarCajas
InhabilitarBotones
Grabar.Enabled = True
Cancelar.Enabled = True
Text1.SetFocus 'poner el cursos en le caja del "Nombre"
End Sub El método AddNew crea un nuevo registro vacío que puede editar y agregar al objeto Recorset. Para guardar el registro nuevo o cambios, se utilizará el método Update, excepto cuando después de hacer la edición se realizará un movimiento a otro registro; en este caso ADO llamará automáticamente al método Update y guardará los cambios. Controles en su estado inicial Todo este proceso lo relizaremos desde el botón Grabar, cuyo procedimiento asociado, según expuesto, tinene que ser el siguiente: Private Sub Cancelar_Click()
Adodc1.Recorset.CancelUpdate
HabilitarBotones
Grabar.Enabled = Flase
InhabilitarCajas
End Sub ¿Cómo volver atrás? Para restaurar el contenido del registro anterior utilizaremos el método CancelUpdate, el cuál será invocado al pulsar el botón Cancelar.Por lo tanto añada el siguiente procedimiento: Private Sub Cancelar_Claick()
Adodc1.Recordset.CancelUpdate
HabilitarBotones
Grabar.Enabled = False
InhabilitarCajas
End Sub Para borrar el registro que se está visualizando, el usuario pulsará el botón Borrar. Se invocará el método Delete. el procedimiento vinculado con el botón Borrar será así: Private Sub Borrar_Click()
Dim r As Integer
Or errir GoTo RutinaDeError
r = MsgBox("¿Desea borrar el registro?, vbYesNo, "Atención")
If r <> vbYes Then Exit Sub
Adodc1.Recordset.Delete 'borrar el registro actual
Adodc1.Recordset.MoveNext 'situarse en el registro siguiente
If Adodc1.Recordset.EOE Then
Adodc1.Recordset.MoveLast
End If
Exit Sub
RutinaDeError:
r = MsgBox(Error, vbOkOnly, "Se ha producido un error:")
Adodc1.Recordset.CancelUpdate
End Sub
Full transcript