' Gambas class file
PUBLIC rs AS Result
PRIVATE SUB updateFieldValue()
TextBox1.Text = rs!No_control
TextBox2.Text = rs!Nombre
TextBox3.Text = rs!Apellidos
TextBox4.Text = rs!Grado
TextBox5.Text = rs!Grupo
TextBox6.Text = rs!Direccion
TextBox7.Text = rs!Telefono
END
PRIVATE SUB limpiarCampos()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
END
PUBLIC SUB Form_Open()
IF (NOT MDB.Connect()) THEN ME.Close()
rs = MDB.cn.Exec("SELECT * FROM alumno")
rs.MoveFirst
IF rs.Available = TRUE THEN
updateFieldValue()
END IF
END
PRIVATE SUB consulta(filtro AS String) AS Boolean
rs = MDB.cn.Exec("SELECT * FROM alumno" & filtro)
rs.MoveFirst
IF rs.Available = TRUE THEN
updateFieldValue()
RETURN TRUE
END IF
RETURN FALSE
END
PUBLIC SUB Button1_Click() ' Codigo del boton de buscar
IF NOT consulta(" WHERE No_control = '" & TextBox1.Text & "'") THEN
Message.Info("Registro no encontrado.")
limpiarCampos()
ENDIF
END
PUBLIC SUB ToolButton1_Click() 'Codigo del boton dar de baja
IF Message.Question("Seguro?", "Yes", "No") = 1 THEN
rs = MDB.cn.Exec("DELETE FROM alumno WHERE No_control = '" & TextBox1.Text & "'")
ENDIF
consulta("")
END
