Formulario Altas

' 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

PUBLIC SUB ToolButton1_Click()
limpiarCampos()
ToolButton1.Enabled = FALSE 'El de nuevo
ToolButton2.Enabled = TRUE 'El de guardar
ToolButton3.Enabled = TRUE 'El de cancelar
ToolButton4.Enabled = FALSE 'El de primero
ToolButton5.Enabled = FALSE 'El de anterior
ToolButton6.Enabled = FALSE 'El de siguiente
ToolButton7.Enabled = FALSE 'El de ultimo
END

PUBLIC SUB ToolButton3_Click()
DIM xresult AS Result
DIM xQuery AS String
DIM xParam AS Integer
xresult = MDB.cn.Create("alumno")
xresult!No_control = TextBox1.Text
xresult!Nombre = TextBox2.Text
xresult!Apellidos = textbox3.Text
xresult!Grado = Val(textbox4.Text)
xresult!Grupo = Textbox5.Text
xresult!Direccion = Textbox6.Text
xresult!Telefono = Val(textbox7.Text)
xresult.Update
Message.Info("Datos Guardados")
IF ERROR THEN Message.Error(Error.Text)
rs = MDB.cn.Exec("SELECT * FROM alumno")
rs.MoveFirst
limpiarCampos()
ToolButton1.Enabled = TRUE
ToolButton2.Enabled = FALSE
ToolButton3.Enabled = FALSE
ToolButton4.Enabled = TRUE
ToolButton5.Enabled = TRUE
ToolButton6.Enabled = TRUE
ToolButton7.Enabled = TRUE
END

PUBLIC SUB ToolButton4_Click()
rs.MoveFirst
IF rs.Available = TRUE THEN
updateFieldValue()
ENDIF
END

PUBLIC SUB ToolButton7_Click()

rs.MoveLast
IF rs.Available = TRUE THEN
updateFieldValue()
ENDIF
END

PUBLIC SUB ToolButton5_Click()

rs.MovePrevious
IF rs.Available = TRUE THEN
updateFieldValue()
ENDIF
END

PUBLIC SUB ToolButton6_Click()

rs.MoveNext
IF rs.Available = TRUE THEN
updateFieldValue()
ENDIF
END

PUBLIC SUB ToolButton2_Click()
rs.MoveFirst
IF rs.Available = TRUE THEN
updateFieldValue()
ENDIF
ToolButton1.Enabled = TRUE
ToolButton2.Enabled = FALSE
ToolButton3.Enabled = FALSE
ToolButton4.Enabled = TRUE
ToolButton5.Enabled = TRUE
ToolButton6.Enabled = TRUE
ToolButton7.Enabled = TRUE

END