\' Gambas class file
Public hconn As Connection
Public hresult As Result
Public ideditando As Integer
Public Sub _new()
End
Public Sub Form_Open()
Me.x = FormMostrarResultados.w + 10
Me.y = FormMostrarResultados.y + 20
\'copio la base de datos... al disco duro
ModComun.copiarBase()
\'muestro resultados
FormMostrarResultados.Show()
\'conectar a la base de datos...
hconn = ModComun.ConectarBase()
\'modo insertar:
ButtonAnade.tag = "insertar"
End
Public Sub ButtonAnade_Click()
If ButtonAnade.tag = "insertar" Then
\'Una forma de hacerlo:
\'hconn.Exec("insert into Personas values (&1,&2,&3,&4,&5)", Null, TextBoxNombre.text, TextBoxApellidos.text, ValueBoxEdad.value, DateBoxFecha.value)
\'Otra forma de hacerlo:
hresult = hconn.Create("Personas")
hresult["id"] = Null
hresult["nombre"] = TextBoxNombre.Text
hresult["apellidos"] = TextBoxApellidos.Text
hresult["edad"] = ValueBoxEdad.Value
hresult["fecha_nacimiento"] = DateBoxFecha.Value
\'actualizamos valores
hresult.Update
hconn.Commit
\'hconn.Close()
FormMostrarResultados.recarga("")
Else
\'editando
hresult["nombre"] = TextBoxNombre.Text
hresult["apellidos"] = TextBoxApellidos.Text
hresult["edad"] = ValueBoxEdad.value
hresult["fecha_nacimiento"] = DateBoxFecha.value
\'actualizo los datos
hresult.Update()
hconn.Commit()
FormMostrarResultados.recarga("")
\'fin de editar
ButtonAnade.tag = "insertar"
ButtonAnade.text = "Añadir Registro"
Frame1.text = "Añadir Registro"
TextBoxNombre.Text = ""
TextBoxApellidos.Text = ""
ValueBoxEdad.value = 0
DateBoxFecha.value = 0
Endif
End
Public Sub SetActivoModoEditor(data As Result)
ButtonAnade.tag = "editando"
ButtonAnade.text = "Actualizar Registro"
Frame1.text = "Editando Registro"
hresult = data
TextBoxNombre.text = data["nombre"]
TextBoxApellidos.text = data["apellidos"]
ValueBoxEdad.Value = data["edad"]
DateBoxFecha.value = data["fecha_nacimiento"]
End
Public Sub ButtonSalir_Click()
hconn.Close()
FormMostrarResultados.Close()
Me.Close
End