document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. \' Gambas class file
  2.  
  3. Public hconn As Connection
  4. Public hresult As Result
  5. Public ideditando As Integer
  6.  
  7. Public Sub _new()
  8.  
  9. End
  10.  
  11. Public Sub Form_Open()
  12.  
  13.   Me.x = FormMostrarResultados.w + 10
  14.   Me.y = FormMostrarResultados.y + 20
  15.  
  16.   \'copio la base de datos... al disco duro
  17.  
  18.   ModComun.copiarBase()
  19.   \'muestro resultados
  20.   FormMostrarResultados.Show()
  21.   \'conectar a la base de datos...
  22.  
  23.   hconn = ModComun.ConectarBase()
  24.  
  25.   \'modo insertar:
  26.   ButtonAnade.tag = "insertar"
  27.  
  28. End
  29.  
  30. Public Sub ButtonAnade_Click()
  31.  
  32.   If ButtonAnade.tag = "insertar" Then
  33.    
  34.     \'Una forma de hacerlo:
  35.     \'hconn.Exec("insert into Personas values (&1,&2,&3,&4,&5)", Null, TextBoxNombre.text, TextBoxApellidos.text, ValueBoxEdad.value, DateBoxFecha.value)
  36.    
  37.     \'Otra forma de hacerlo:
  38.     hresult = hconn.Create("Personas")
  39.     hresult["id"] = Null
  40.     hresult["nombre"] = TextBoxNombre.Text
  41.     hresult["apellidos"] = TextBoxApellidos.Text
  42.     hresult["edad"] = ValueBoxEdad.Value
  43.     hresult["fecha_nacimiento"] = DateBoxFecha.Value
  44.    
  45.     \'actualizamos valores
  46.     hresult.Update
  47.     hconn.Commit
  48.     \'hconn.Close()
  49.     FormMostrarResultados.recarga("")  
  50.    
  51.   Else
  52.     \'editando
  53.     hresult["nombre"] = TextBoxNombre.Text
  54.     hresult["apellidos"] = TextBoxApellidos.Text
  55.     hresult["edad"] = ValueBoxEdad.value
  56.     hresult["fecha_nacimiento"] = DateBoxFecha.value
  57.    
  58.     \'actualizo los datos
  59.     hresult.Update()
  60.     hconn.Commit()
  61.    
  62.     FormMostrarResultados.recarga("")  
  63.     \'fin de editar
  64.     ButtonAnade.tag = "insertar"
  65.     ButtonAnade.text = "Añadir Registro"
  66.     Frame1.text = "Añadir Registro"
  67.     TextBoxNombre.Text = ""
  68.     TextBoxApellidos.Text = ""
  69.     ValueBoxEdad.value = 0
  70.     DateBoxFecha.value = 0
  71.    
  72.   Endif
  73.  
  74. End
  75.  
  76. Public Sub SetActivoModoEditor(data As Result)
  77.  
  78.   ButtonAnade.tag = "editando"
  79.   ButtonAnade.text = "Actualizar Registro"
  80.   Frame1.text = "Editando Registro"
  81.   hresult = data
  82.   TextBoxNombre.text = data["nombre"]
  83.   TextBoxApellidos.text = data["apellidos"]
  84.   ValueBoxEdad.Value = data["edad"]
  85.   DateBoxFecha.value = data["fecha_nacimiento"]
  86.  
  87. End
  88.  
  89. Public Sub ButtonSalir_Click()
  90.  
  91.   hconn.Close()
  92.   FormMostrarResultados.Close()
  93.  
  94.   Me.Close
  95.  
  96. End
');