Comunidad Gambas-es

Teseo. Aplicación para gestión de una red de telecentros

Shell 30-12-2020, 01:14

Buenas!.

Pues estaba revisando códigos de Gambas de una página y encontré esto:

Teseo. Vital Innova

Desde luego es antiguo. Pero como me picó la curiosidad quise averiguar un poco más.

Cita:Teseo es una aplicación de gestión completamente desarrollada en Gambas, que permite el control de una red de telecentros.
Teseo ha sido desarrollada por Vital Innova, dentro del proyecto “Gestión de Telecentros con Software Libre”, en el que actualmente trabajo, y ha sido publicada como software libre, por lo que es posible descargar tanto el código como la documentación asociada en la siguiente dirección:

Debe ser algo dedicado a la educación. Huh

La web ya no funciona.

También encontré esto:

Gestión de Telecentros con software libre

Es un pdf explicando como va la cosa y el software que se usa en este proyecto para los distintos sistemas operativos.

De paso deciros que el blog ya también antiguo, tiene sus cosas de interés. Para repasar me vale. Smile

Saludos

General Sin respuestas

Uso de update en Gambas

dariodr 28-12-2020, 07:03

Hola comunidad, tengo este pequeno programa de ejemplo con base de datos (SQLite3), el problema es a la hora de hacer el Update no se actualiza la DB, tengo que cerrar la aplicacion y volverla a abrir para que se actualicen. Me podiran decir que le falta. El codigo de actualzar esta en el boton Menu3_click.
Les dejo el codigo.
Saludos.

Código:
' Gambas class file

Private conexion As Connection

Private TablaContactos As Result

Public Sub Form_Open()

   conexion = New Connection

   conexion.Type = "sqlite3"

   conexion.Host = "/home/dario/gambas/PruebaBaseDatos/"

   conexion.Name = "base"

   Try conexion.Open()

   If Error Then

      Message.Error("Error al conectar a la base de datos")

      conexion = Null

   Else

      TablaContactos = conexion.Exec("Select * From contactos")

      If TablaContactos.Available Then MostrarCampos

   Endif

End

Public Sub MostrarCampos()

  txtID.Text = TablaContactos["id"]

  txtNombre.Text = TablaContactos["Nombre"]

  txtApellido.Text = TablaContactos["Apellido"]

  txtTelefono.Text = TablaContactos["Telefono"]

  txtMail.Text = TablaContactos["Mail"]

  txtNacimiento.Text = TablaContactos["FechaNacimiento"]

End

Public Sub btnPrimero_Click()

   TablaContactos.MoveFirst()

   MostrarCampos

End

Public Sub btnAnterior_Click()

   TablaContactos.MovePrevious()

   If Not TablaContactos.Available Then TablaContactos.MoveFirst()

   MostrarCampos

End

Public Sub btnSiguiente_Click()

   TablaContactos.MoveNext()

   If Not TablaContactos.Available Then TablaContactos.MoveLast()

   MostrarCampos

End

Public Sub btnUltimo_Click()

   TablaContactos.MoveLast()

   MostrarCampos

End

Public Sub Menu2_Click()

   btnGuardar.Visible = True

   btnCancelar.Visible = True

   btnPrimero.Visible = False

   btnAnterior.Visible = False

   btnSiguiente.Visible = False

   btnUltimo.Visible = False

   txtID.Text = ""

   txtNombre.Text = ""

   txtApellido.Text = ""

   txtTelefono.Text = ""

   txtMail.Text = ""

   txtNacimiento.Text = ""

End

Public Sub btnGuardar_Click()

   Dim VarResult As Result

   VarResult = conexion.Create("Contactos")

   conexion.Exec("insert into contactos values(&1,&2,&3,&4,&5,&6)",

      txtID.Text, txtNombre.text, txtApellido.Text, txtTelefono.Text, txtMail.text, txtNacimiento.text)

   'VarResult = Conexion.Create("Contactos")

   'VarResult["id"] = txtID.Text

   'VarResult["Nombre"] = txtNombre.Text

   'VarResult["Apellido"] = txtapellido.Text

   'VarResult["FechaNacimiento"] = txtNacimiento.Text

   'VarResult["Telefono"] = txtTelefono.Text

   'VarResult["Mail"] = txtMail.Text

   VarResult.Update

   TablaContactos = Conexion.Exec("Select * from Contactos")

   btnGuardar.Visible = False

   btnCancelar.Visible = False

   btnPrimero.Visible = True

   btnAnterior.Visible = True

   btnSiguiente.Visible = True

   btnUltimo.Visible = True

End

Public Sub btnCancelar_Click()

   btnGuardar.Visible = False

   btnCancelar.Visible = False

   btnPrimero.Visible = True

   btnAnterior.Visible = True

   btnSiguiente.Visible = True

   btnUltimo.Visible = True

   MostrarCampos

End

Public Sub Menu3_Click()

  Dim VarResult As Result

  'VarResult = Conexion.Edit("Contactos", "id=" & TablaContactos["id"])

  'VarResult["id"] = txtID.text

  'VarResult["Nombre"] = txtNombre.text

  'VarResult["Apellido"] = txtapellido.text

  'VarResult["FechaNacimiento"] = txtNacimiento.text

  'VarResult["Telefono"] = txtTelefono.text

  'VarResult["Mail"] = txtMail.text

  'VarResult.Update

  'TablaContactos = Conexion.Exec("Select * from Contactos")

  conexion.Exec("update contactos set nombre ='" & txtNombre.Text & "' where id ='" & txtID.Text & "';")

End

Public Sub Menu5_Click()

  Me.Close

End

Public Sub Form_Close()

  If Message.Question("¿Desea salir del programa?", "Si", "No") = 2 Then

    Stop Event

  Else

    Conexion.Close

  End If

End

Bases de Datos Respuestas 7

Texto deslizante en label

garvied 23-12-2020, 17:14

Buenas a todos.
Quisiera saber si existe alguna forma de poner una etiqueta o similar en la que el texto si no entra completo en el tamaño de la etiqueta se vaya desplazando de izquierda a derecha de forma automática.
Yo por ahora lo estoy controlando mediante un timer y cambiando el text del label para que parezca que se desplaza pero me gustaría poder usar un control que lo haga automáticamente.
Muchas gracias.

Controles/Librerías/Componentes Respuestas 3

Páginas (560): 1 … 492 493 494 495 496 … 560

Bienvenido, Invitado

Buscar en los foros

Estadísticas del foro

Miembros: 288

Último miembro: shoUsho

Temas del foro: 1,728

Mensajes del foro: 8,984

Últimos temas

Portal

Shell 30-12-2020, 01:14

dariodr 28-12-2020, 07:03

garvied 23-12-2020, 17:14

Paren...WAIT !!!

GambOS

Gambas y Wayland

Odio a gb.Report

Devorado por la malvada s...