Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement