Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Guardar última Acción Ejecutada (sql)
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Guardar última Acción Ejecutada (sql) 
 
buenas
' gambas module file


Public Const LISTAR_COSAS As Integer = 0
Public Const LISTAR_MAS As Integer = 1
Public Const LISTAR_VACIO_MENOS As Integer = 2
Public Const LISTAR_FILTRO_EN_COSAS As Integer = 3

modulo ac

Public Sub GuardarUltimaAccion(accion As Integer, Optional sql As String, Optional filtro As String, Optional datos As Variant[])
  
  Settings["UltimaAccion/EstaAccion"] = Accion
  Settings["UltimaAccion/sql"] = sql
  Settings["UltimaAccion/filtro"] = filtro
  Settings["UltimaAccion/datos"] = datos
  
  Settings.Save()
  
End


Public Sub EjecutarUltimaAccion()
  
  Select Case Settings["UltimaAccion/EstaAccion", 0]
    Case 0 'Public Const LISTAR_COSAS As Integer = 0
      Almacen.ListarTodo()
    Case 1 'Public Const LISTAR_MAS As Integer = 1
      Almacen.cbxEstado.Index = 4
    Case 2 'Public Const LISTAR_VACIO_MENOS As Integer = 2
      Almacen.cbxEstado.Index = 5
    Case 3 'Public Const LISTAR_FILTRO_EN_COSAS As Integer = 3
      Almacen.ListarEsto(Consultas.ListarFiltroEnCosas(Settings["UltimaAccion/filtro", ""]))
    Case 4
      
    Case 5
      
    
  End Select
  
End



guardar última acción

Public Sub ListarMas() As Result
  Dim r As Result
  
  r = Almacen.CX_Inventario.Exec("select * from productos where estado='MAS'")
  
  AC.GuardarUltimaAccion(AC.LISTAR_MAS)
  
  Return r
    
End




ejecutar ultima accion ahora...


Public Sub btnGuardar_Click()
  Dim Campos, Valores As String
 
  If AccionModificar Then 'Modificacion de proveedor
  
  Campos = "nombre=&1, datos=&2,correo=&3,web=&4"
    
     Try Almacen.CX_Inventario.Exec("Update proveedores set " & Campos & " where idproveedor = &5", UCase$(txtNomProv.Text),
       txtaDetallesProv.Text, txtCorreo.Text, txtWeb.Text, CInteger(LabIdNuevoProv.Text))  
      
      If Error Then
        MsgvProv.Open(Error.Text & " (" & Error.Where & " : " & Error.Code)
        Return
      Else
        ListarProveedores()
        ActivarBotones(False)
        btnGuardar.Enabled = False
        Balloon.Info("Cambios guardados correctamente", btnGuardar)
        
      Endif  
    
  Else
    'Ingreso de nuevo proveedor
    Campos = "idproveedor,ingreso,nombre,datos,correo,web"
    Valores = "&1,&2,&3,&4,&5,&6"
  
    Try Almacen.CX_Inventario.Exec("insert into proveedores (" & Campos & ") values (" & Valores & ")",
    CInteger(LabIdNuevoProv.Text), Now, UCase$(txtNomProv.Text), txtaDetallesProv.Text, txtCorreo.Text, txtWeb.Text)
    
    If Error Then
      MsgvProv.Open(Error.Text & " (" & Error.Where & " : " & Error.Code)
      txtNomProv.Clear()
      ' txtNomProv.SetFocus()
      Return
    Else
      ListarProveedores()
      Limpiar(True)

    Endif
  Endif
  
  ac.EjecutarUltimaAccion()

End



que opinan de este código...
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Guardar última Acción Ejecutada (sql) 
 
Manejo elemental de la clase settings.    

Pero una cosa: si tu programa es para tí y el ordenador sólo lo usas tú, perfecto. Pero si estás en un  entorno no controlado, por ejemplo en una oficina donde mucha gente tiene acceso a la máquina, guardar consultas dejando información de tablas, campos, etc. en ficheros de texto plano... es un hueco en la seguridad muy grande. Estás dando muchas pistas que "una persona malintencionada" puede usar en tu contra.

Saludos
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Guardar última Acción Ejecutada (sql) 
 
shordi escribió: [Ver mensaje]
Manejo elemental de la clase settings.    

Pero una cosa: si tu programa es para tí y el ordenador sólo lo usas tú, perfecto. Pero si estás en un  entorno no controlado, por ejemplo en una oficina donde mucha gente tiene acceso a la máquina, guardar consultas dejando información de tablas, campos, etc. en ficheros de texto plano... es un hueco en la seguridad muy grande. Estás dando muchas pistas que "una persona malintencionada" puede usar en tu contra.

Saludos


bueno el loco (el programa) a duras penas cumple con los requisitos del cliente (yo) y vos me hablas de seguridad?

primero tengo que aprender a programar básicamente, ya llegara la programación de seguridad, guardando datos en md5 mínimo, encriptando información que se guarda en archivos de texto, clave de usuario de ingreso al programa  y demás.

este programa esta orientado a el uso personal, donde la "seguridad" radica en el acceso a la pc protegida por la sesión de usuario.
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Guardar última Acción Ejecutada (sql) 
 
Como te dije: Si es para tí y lo usas tú entonces perfecto

     
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Videotutorial Para Principiantes(tercera Y... Dani26 Videotutoriales 4 Lunes, 05 Agosto 2013, 20:27 Ver último mensaje
Dani26
No hay nuevos mensajes Cómo Rehacer O Deshacer Una Acción Ricardo Prieto General 3 Miercoles, 04 Octobre 2017, 17:06 Ver último mensaje
Ricardo Prieto
No hay nuevos mensajes Creo Que Tengo Un Problema En "ver Me... gambafeliz Sobre Gambas-es 2 Miercoles, 28 Agosto 2019, 11:38 Ver último mensaje
gambafeliz
No hay nuevos mensajes Ejecutar Acción En Un Destructor calcena General 2 Martes, 23 Junio 2020, 15:59 Ver último mensaje
cogier
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron