domingo, 26 de junio de 2011

Módulo Gestión. Borrar datos editados: Remove()

Nos referimos esta vez a borrar un registro por completo (de la matriz o del array que con lo contenga).
Borraremos el registro de datos que estemos editando (eliminacion total de la matriz). Para ello tenemos el metodo .REMOVE(indice), que indicandole el indice que queramos eleminar/borrar lo hara automaticamente y automaticamente modificará tambien el número de elementos .COUNT
PUBLIC SUB ButtonBorrar_Click()
IF var.estado<> "Edicion" then
'si estamos en mode "introduccion de datos"
PictureBoxFoto.Picture = Picture["icon:/96/gambas"]
TextBoxDNI.text = ""
TextBoxNombre.text = ""
TextBoxApellidos.text = ""
TextBoxEmpresa.text = ""
TextBoxPuesto.text = ""
TextBoxTelfEmpresa.text = ""
TextBoxTelfParticular.text = ""
TextBoxFax.text = ""
TextBoxMovilEmpresa.text = ""
TextBoxMovilParticular.text = ""
TextBoxWEB.text = ""
PictureBoxFoto.Picture = ""
TextBoxDireccion.text = ""
TextBoxObs.text = ""
TextBoxFecha.text = ""
TextBoxCorreo.text = ""
ENDIF
IF var.estado= "Edicion" then
var.id.REMOVE(var.RegistroEditado)
var.dni.REMOVE(var.RegistroEditado)
var.nombre.REMOVE(var.RegistroEditado)
var.apellidos.REMOVE(var.RegistroEditado)
var.empresa.REMOVE(var.RegistroEditado)
var.puesto.REMOVE(var.RegistroEditado)
var.telf_empresa.REMOVE(var.RegistroEditado)
var.telf_parti.REMOVE(var.RegistroEditado)
var.fax.REMOVE(var.RegistroEditado)
var.movil_empresa.REMOVE(var.RegistroEditado)
var.movil_parti.REMOVE(var.RegistroEditado)
var.pag.REMOVE(var.RegistroEditado)
var.foto.REMOVE(var.RegistroEditado)
var.direccion.REMOVE(var.RegistroEditado)
var.observaciones.REMOVE(var.RegistroEditado)
var.fecha_datos.REMOVE(var.RegistroEditado)
var.correo.REMOVE(var.RegistroEditado)
'Y PONEMOS TODOS LOS CAMPOS EN BLANCO....
PictureBoxFoto.Picture = Picture["icon:/96/gambas"]
TextBoxDNI.text = ""
TextBoxNombre.text = ""
TextBoxApellidos.text = ""
TextBoxEmpresa.text = ""
TextBoxPuesto.text = ""
TextBoxTelfEmpresa.text = ""
TextBoxTelfParticular.text = ""
TextBoxFax.text = ""
TextBoxMovilEmpresa.text = ""
TextBoxMovilParticular.text = ""
TextBoxWEB.text = ""
PictureBoxFoto.Picture = ""
TextBoxDireccion.text = ""
TextBoxObs.text = ""
TextBoxFecha.text = ""
TextBoxCorreo.text = ""
ENDIF
'escribimos en el gridviews el dato introducido
titulo.rellena()
'el setfocus lo ponemos justo al inicio de los datos
TextBoxDNI.SetFocus
'se da por compluido el estado de edicion
var.estado = ""
'hacemos de nuevo accesible el gridViewDatos
gridViewDatos.enabled = True
END






PUBLIC SUB ButtonBorrar_Click()
IF var.estado<> "Edicion" then
'si estamos en mode "introduccion de datos"
PictureBoxFoto.Picture = Picture["icon:/96/gambas"]
TextBoxDNI.text = ""
TextBoxNombre.text = ""
TextBoxApellidos.text = ""
TextBoxEmpresa.text = ""
TextBoxPuesto.text = ""
TextBoxTelfEmpresa.text = ""
TextBoxTelfParticular.text = ""
TextBoxFax.text = ""
TextBoxMovilEmpresa.text = ""
TextBoxMovilParticular.text = ""
TextBoxWEB.text = ""
PictureBoxFoto.Picture = ""
TextBoxDireccion.text = ""
TextBoxObs.text = ""
TextBoxFecha.text = ""
TextBoxCorreo.text = ""
ENDIF
IF var.estado= "Edicion" then
var.id.REMOVE(var.RegistroEditado)
var.dni.REMOVE(var.RegistroEditado)
var.nombre.REMOVE(var.RegistroEditado)
var.apellidos.REMOVE(var.RegistroEditado)
var.empresa.REMOVE(var.RegistroEditado)
var.puesto.REMOVE(var.RegistroEditado)
var.telf_empresa.REMOVE(var.RegistroEditado)
var.telf_parti.REMOVE(var.RegistroEditado)
var.fax.REMOVE(var.RegistroEditado)
var.movil_empresa.REMOVE(var.RegistroEditado)
var.movil_parti.REMOVE(var.RegistroEditado)
var.pag.REMOVE(var.RegistroEditado)
var.foto.REMOVE(var.RegistroEditado)
var.direccion.REMOVE(var.RegistroEditado)
var.observaciones.REMOVE(var.RegistroEditado)
var.fecha_datos.REMOVE(var.RegistroEditado)
var.correo.REMOVE(var.RegistroEditado)
'Y PONEMOS TODOS LOS CAMPOS EN BLANCO....
PictureBoxFoto.Picture = Picture["icon:/96/gambas"]
TextBoxDNI.text = ""
TextBoxNombre.text = ""
TextBoxApellidos.text = ""
TextBoxEmpresa.text = ""
TextBoxPuesto.text = ""
TextBoxTelfEmpresa.text = ""
TextBoxTelfParticular.text = ""
TextBoxFax.text = ""
TextBoxMovilEmpresa.text = ""
TextBoxMovilParticular.text = ""
TextBoxWEB.text = ""
PictureBoxFoto.Picture = ""
TextBoxDireccion.text = ""
TextBoxObs.text = ""
TextBoxFecha.text = ""
TextBoxCorreo.text = ""
ENDIF
'escribimos en el gridviews el dato introducido
titulo.rellena()
'el setfocus lo ponemos justo al inicio de los datos
TextBoxDNI.SetFocus
'se da por compluido el estado de edicion
var.estado = ""
'hacemos de nuevo accesible el gridViewDatos
gridViewDatos.enabled = True
END


Nota: Ver mejoras en presentacion de imagenes
Anexo II: convert, miniaturas en nuestro gridViewDatos


No hay comentarios:

Publicar un comentario en la entrada