Visual

Clasificado en Informática

Escrito el en español con un tamaño de 4,51 KB

 

Private Sub btncerrar_Click()                                                                                               
c = MsgBox("En realidad desea salir", vbYesNo, "cerrar")
If c = vbYes Then
frmmenuprincipal.Show
frmestudiantes.Hide
End If
End Sub

Private Sub btnnuevo_Click()
Call nuevo
End Sub

Private Sub nuevo()
Data1.Recordset.AddNew
Call habilitarcajas
btnnuevo.Enabled = False
btnguardar.Enabled = True
btnbuscar.Enabled = True
btneliminar.Enabled = True
btncerrar.Enabled = True
mnunuevo.Enabled = False
mnuguardar.Enabled = True
mnubuscar.Enabled = True
mnueliminar.Enabled = True
mnucerrar.Enabled = True
txtcodigo.SetFocus
End Sub

Private Sub Form_Load()
btnnuevo.Enabled = True
btnguardar.Enabled = False
btnbuscar.Enabled = False
btneliminar.Enabled = False
btncerrar.Enabled = True
mnunuevo.Enabled = True
mnuguardar.Enabled = False
mnubuscar.Enabled = False
mnueliminar.Enabled = False
mnucerrar.Enabled = True
Call inhabilitarcajas
End Sub

Private Sub inhabilitarcajas()
txtcodigo.Enabled = False
txtnombres.Enabled = False
txtapellidos.Enabled = False
txtedad.Enabled = False
txtdireccion.Enabled = False
txttelefono.Enabled = False
End Sub

Private Sub habilitarcajas()
txtcodigo.Enabled = True
txtnombres.Enabled = True
txtapellidos.Enabled = True
txtedad.Enabled = True
txtdireccion.Enabled = True
txttelefono.Enabled = True
End Sub

Private Sub mnuasignatura_Click()
frmasignatura.Show
frmestudiantes.Hide
End Sub

Private Sub mnucerrar_Click()
c = MsgBox("En realidad desea salir", vbYesNo, "cerrar")
If c = vbYes Then
End
End If
End Sub

Private Sub mnumenuprincipal_Click()
frmmenuprincipal.Show
frmestudiantes.Hide
End Sub

Private Sub mnuresultado_Click()
frmresultado.Show
frmestudiantes.Hide
End Sub

Private Sub guardar()
On Error GoTo g:
Data1.Recordset.codestudiante = txtcodigo
Data1.Recordset.nombres = txtnombres
Data1.Recordset.apellidos = txtapellidos
Data1.Recordset.edad = txtedad
Data1.Recordset.direccion = txtdireccion
Data1.Recordset.telefono = txttelefono
Data1.Recordset.Update
MsgBox (" Archivo Guardado ")
g:
Select Case Err
Case Is = 3022
MsgBox ("registro ya existe")
txtcodigo = ""
txtcodigo.SetFocus
End Select
btnnuevo.Enabled = True
txtcodigo = ""
txtnombres = ""
txtapellidos = ""
txtedad = ""
txtdireccion = ""
txttelefono = ""
txtcodigo.SetFocus
End Sub

Private Sub eliminar()
On Error GoTo e:
elim = MsgBox(" Desea eliminar este registro ", vbYesNo, "eliminar")
If elim = vbYes Then
Data1.Recordset.Delete
Data1.Refresh
End If
e:
Select Case Err
Case Is = 3021
MsgBox (" No hay registros activos para eliminar")
End Select
End Sub

Private Sub buscar()
Dim buscar As String
Dim criterio As String
buscar = InputBox("Digite el codigo del estudiante", "Busqueda")
criterio = "codestudiante like '*" & buscar & "*'"
Data1.Recordset.MoveNext
Data1.Recordset.FindFirst criterio
txtcodigo = Data1.Recordset.codestudiante
txtnombres = Data1.Recordset.nombres
txtapellidos = Data1.Recordset.apellidos
txtedad = Data1.Recordset.edad
txtdireccion = Data1.Recordset.direccion
txttelefono = Data1.Recordset.telefono
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveLast
MsgBox ("El codigo no existe")
End If
End Sub

contraseña

Private Sub btnaceptar_Click()
txtusuario = admi
If txtcontraseña = "hola" Or txtcontraseña = "HOLA" Then
frminicio.Show
frmcontraseña.Hide
Else
MsgBox (" Contraseña no valida")
txtusuario = ""
txtcontraseña = ""
End If
End Sub


 

Entradas relacionadas: