Visual Basic Student Management System: Code Walkthrough and Fixes

Student Management Form in Visual Basic

The following code implements a student records form in Visual Basic, including navigation between forms, database operations, and a password login.

Closing the Form

Private Sub btncerrar_Click()
    c = MsgBox("Do you really want to quit?", vbYesNo, "Close")
    If c = vbYes Then
        frmmenuprincipal.Show
        frmestudiantes.Hide
    End If
End Sub

Creating a New Record

Private Sub btnnuevo_Click()
    Call New
End Sub

Private Sub New()
    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

Form Load

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

Enabling and Disabling Text Boxes

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

Menu Navigation

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

Private Sub mnucerrar_Click()
    c = MsgBox("Do you really want to quit?", vbYesNo, "Close")
    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

Saving a Record

Private Sub Save()
    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("File Saved")
g:
    Select Case Err
        Case Is = 3022
            MsgBox("Record already exists")
            txtcodigo = ""
            txtcodigo.SetFocus
    End Select
    btnnuevo.Enabled = True
    txtcodigo = ""
    txtnombres = ""
    txtapellidos = ""
    txtedad = ""
    txtdireccion = ""
    txttelefono = ""
    txtcodigo.SetFocus
End Sub

Deleting a Record

Private Sub Delete()
    On Error GoTo e:
    elim = MsgBox("Delete this record?", vbYesNo, "Delete")
    If elim = vbYes Then
        Data1.Recordset.Delete
        Data1.Refresh
    End If
e:
    Select Case Err
        Case Is = 3021
            MsgBox("No active records to delete")
    End Select
End Sub

Searching for a Record

Private Sub Search()
    Dim search As String
    Dim test As String
    search = InputBox("Enter the student code", "Search")
    criteria = "codestudiante like '*" & search & "*'"
    Data1.Recordset.MoveNext
    Data1.Recordset.FindFirst criteria
    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("The code does not exist")
    End If
End Sub

Login Form

Password

Private Sub btnaceptar_Click()
    txtusuario = "admin"
    If txtcontraseña = "Hello" Or txtcontraseña = "HELLO" Then
        frminicio.Show
        frmcontraseña.Hide
    Else
        MsgBox("Invalid Password")
        txtusuario = ""
        txtcontraseña = ""
    End If
End Sub