Comunidad Gambas-es

hasta ahora
la idea es
llenar una grid
luego si quiero editar o eliminar un registro
selecciono en la grid y luego presiono el botón correspondiente
y se abre el formulario con el registro individual
después de hacer los cambios la grid se actualiza



el dibujo esta echo con framebox

el formulario con el registro individual es el mismo para editar nuevo o eliminar según el boton que se presiono en el formulario con la grid
solo cambia el boton aceptar y el contenido en los texboxt

hasta ahora esa es la idea pero no me convence mucho
como lo hacen ustedes

Yo estoy empezando algo por el estilo, es una agenda (algo cutre) con una base de patos datos en sqlite. Al hacer doble click sobre un elemento del grid este se muestra en la parte de arriba y con un botón se actualiza.

En las pestañas pondré un iconos y en cada pestaña Notas, Eventos y esas cosas... A la derecha muestro datos de interés como proximos cumpleaños y citas...



PD: Está un poco caos porque la he empezado esta mañana y no hay gran cosa (aun)

Hola,

Lo que yo hago:

Tengo una clase "padre" con todos los objetos comunes que necesitamos incluso su presentación y lógica. A partir de esta clase las hijas o especializadas herendan de la clase padre y añaden las funciones específicas a cada caso.

En la clase padre yo implemento una barra de botones con los típicos (añadir, seleccionar, zoom o ver, borrar, editar, imprimir, buscar), un gridview para presentar los datos y otros dos botones para salir y ayuda. Incorporo la lógica para ordenar el gridview y el diseño del formulario.

Ejemplo de clase padre


Ejemplo clase hija para clientes



Para las altas empleo un formulario específico
Ejemplo de clientes:



Espero que te sirva

Saludos

hola

e estado tratando de encontrar de este tema en google pero
no encuentra nada aparte de lo básico básico





algo dificil quotear



[quote user="ljma" post="10304"]Hola,
.........................
[quote]

si es buena
hare algo parecido
pero distinto

BrunoIV escribió: [Ver mensaje]

Yo estoy empezando algo por el estilo, es una agenda (algo cutre) con una base de patos datos en sqlite. Al hacer doble click sobre un elemento del grid este se muestra en la parte de arriba y con un botón se actualiza.
.......

base de patos cuack un caballo de mar con movil xd


la duda es como sera el añadir eliminar y el editar al menos necesitara 3 de estos

Pues el mio es por Textbox:

lo de la gridview no lo veo tan importante como la de las textbox:




PUBLIC SUB MovieBox1_MouseDown()

verregistrosCO.Show
Message.Info("BIENVENIDO AQUÍ PODRÁ VER REGISTROS DE COORDINADORES")
END

PRIVATE asiscon AS Connection
PRIVATE asisresul AS Result
PUBLIC SUB Form_Open()
ValueBox1.Enabled = FALSE
TextBox1.Enabled = FALSE
TextBox2.Enabled = FALSE
TextBox3.Enabled = FALSE
TextBox4.Enabled = FALSE
TextBox5.Enabled = FALSE
ComboBox1.Enabled = FALSE
ComboBox2.Enabled = FALSE
ComboBox3.Enabled = FALSE
ValueBox2.Enabled = FALSE
asiscon = NEW Connection
asiscon.Type = "sqlite"
asiscon.Host = "/home/jousseph/DESARROLLO-JOU/GAMBAS/control_asistencia"
asiscon.Name = "asistencia_asesores"
TRY asiscon.Open()
IF ERROR THEN
Message.Error("ERROR AL CONECTAR BASE DE DATOS DEBE SER EL CODIGO MAL COMPILADO.")
asiscon = NULL
ELSE
asisresul = asiscon.Exec("Select * from coordinador")
IF asisresul.Available THEN MostrarCampos
END IF
END



PUBLIC SUB MostrarCampos()
ValueBox1.Value = asisresul["codigo"]
TextBox1.text = asisresul["cedula"]
TextBox2.text = asisresul["nombres"]
TextBox3.text = asisresul["apellidos"]
TextBox4.text = asisresul["direccion"]
ComboBox3.text = asisresul["codigo_cel"]
TextBox5.text = asisresul["telefono"]
ComboBox1.text = asisresul["sexo"]
ComboBox2.Text = asisresul["area"]
ValueBox2.Value = asisresul["fecha"]


END



PUBLIC SUB Button3_Click()
Message.Info("SE HA HABILITADO EL REGISTRO PARA QUE LO MODIFIQUE SI LO LIMPIA QUEDARÁ DESHABILITADO")
TextBox1.Enabled = TRUE
TextBox2.Enabled = TRUE
TextBox3.Enabled = TRUE
TextBox4.Enabled = TRUE
TextBox5.Enabled = TRUE
ComboBox1.Enabled = TRUE
ComboBox2.Enabled = TRUE
ComboBox3.Enabled = TRUE


END



PUBLIC SUB Button2_Click()
TextBox1.text = ""
TextBox2.text = ""
TextBox3.text = ""
TextBox4.text = ""
TextBox5.text = ""
ValueBox1.Enabled = FALSE
TextBox1.Enabled = FALSE
TextBox2.Enabled = FALSE
TextBox3.Enabled = FALSE
TextBox4.Enabled = FALSE
TextBox5.Enabled = FALSE
ComboBox1.Enabled = FALSE
ComboBox2.Enabled = FALSE
ComboBox3.Enabled = TRUE
Message.Info("SE DESHABILITÓ EL REGISTRO PERO PODRA HABILITARLO DE NUEVO")
END




PUBLIC SUB Button4_Click()
DIM VarResult AS Result
Message.Info("CUIDADO ELIJA BIEN SI DESEA ELIMINAR ALGÚN REGISTRO")
IF Message.Question("¿DESEA ELIMINAR EL REGISTRO?", "SI", "NO") = 1 THEN
VarResult = asiscon.Edit("coordinador", "codigo=" & asisresul["codigo"])
VarResult.Delete
asisresul = asiscon.Exec("Select * from coordinador")
Message.Delete("SU REGISTRO HA SIDO ELIMINADO CON ÉXITO")
ME.Close
modificaryborrarCO.Show
END IF
END



PUBLIC SUB Button6_Click()
asisresul.MoveNext()
IF NOT (asisresul.Available) THEN asisresul.MoveLast()
MostrarCampos


END

PUBLIC SUB Button7_Click()
asisresul.MovePrevious()
IF NOT asisresul.Available THEN asisresul.Movefirst()
MostrarCampos
END



PUBLIC SUB Button5_Click()
DIM VarResult AS Result
Message.Info("CUIDADO ELIJA BIEN SI DESEA MODIFICAR ALGÚN REGISTRO")
IF Message.Question("¿DESEA MODIFICAR EL REGISTRO?", "SI", "NO") = 1 THEN
VarResult = asiscon.Edit("coordinador", "codigo=" & asisresul["codigo"])
VarResult["cedula"] = TextBox1.text
VarResult["nombres"] = TextBox2.text
VarResult["apellidos"] = TextBox3.text
VarResult["direccion"] = TextBox4.text
VarResult["codigo_cel"] = ComboBox2.text
VarResult["telefono"] = TextBox5.text
VarResult["sexo"] = ComboBox1.text
VarResult["area"] = ComboBox2.text
VarResult["fecha"] = ValueBox2.text
VarResult.Update
asisresul = asiscon.Exec("Select * from coordinador")
Message.Info("SU MODIFICACIÓN SE HA EFECTUADO EXITOSAMENTE")
Message.Info("SI QUIERE VER LOS CAMBIOS EFECTUADOS PUEDE VER DE NUEVO LOS REGISTROS")
ME.Close
modificaryborrarCO.Show
ENDIF
END


PUBLIC SUB Button8_Click()
asisresul.MoveLast()
MostrarCampos
END



PUBLIC SUB TextBox7_KeyPress()



END






PUBLIC SUB Button1_Click()

ME.Close

END

PUBLIC SUB PictureBox6_MouseDown()
Button5.Enabled = TRUE



END

PUBLIC SUB PictureBox7_MouseDown()

Button4.Enabled = TRUE
END

PUBLIC SUB PictureBox8_MouseDown()
Button5.Enabled = FALSE


END

PUBLIC SUB PictureBox10_MouseDown()
Button4.Enabled = FALSE


END

PUBLIC SUB PictureBox5_MouseDown()



END

PUBLIC SUB PictureBox1_MouseDown()



END

PUBLIC SUB Button9_Click()

DIM I AS Integer
DIM rs AS Result
DIM found AS Boolean

found = FALSE

rs = asiscon.Exec("select *from coordinador")
I = 0

IF TextBox8.Text = "" THEN
Message.Info("DEBE LLENAR EL CAMPO REQUERIDO")
ELSE
rs.MoveFirst
WHILE I < rs.Count
' rs = coneccion.asiscon.Exec("SELECT * FROM asesores WHERE codigo = &1", textbox8.text)
IF rs.Available THEN
IF rs!codigo LIKE "*" & TextBox8.Text & "*" THEN
found = TRUE
EXIT
ELSE
rs.MoveNext
ENDIF
ELSE
EXIT
ENDIF

WEND

ENDIF
' IF asisresul.Available THEN
IF found THEN
ValueBox1.Value = rs["codigo"]
TextBox1.text = rs["cedula"]
TextBox2.text = rs["nombres"]
TextBox3.text = rs["apellidos"]
TextBox4.text = rs["direccion"]
ComboBox3.Text = rs["codigo_cel"]
TextBox5.text = rs["telefono"]
ComboBox1.text = rs["sexo"]
ComboBox2.Text = rs["area"]
ValueBox2.Value = rs["fecha"]
Button9.SetFocus
ELSE
Message.Error("CODIGO O REGISTRO NO ENCONTRADO")
ENDIF

END

PUBLIC SUB TextBox8_Change()


CInt(TextBox8.Text) 'Convierte el numero en entero

CATCH
TextBox8.Text = Mid$(TextBox8.Text, 1, -1) 'Si no es un numero borra el caracter
STOP EVENT


END


PUBLIC SUB TextBox8_GotFocus()

ValueBox1.Value = ""
TextBox1.text = ""
TextBox2.text = ""
TextBox3.text = ""
TextBox4.text = ""
TextBox5.text = ""
ComboBox1.text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ValueBox2.Value = ""

END


La idea es hacer una mini consulta ese mismo usuario o personal se puede agregar modificar o eliminar.

Luego donde esta el dibujito del asesorse le da click para ver una tableview puede ver el registro e imprimirlo por supuesto guardarlo en html



Este posee a la ves un registro general y la persona que se quiere consultar en tableview pero el que me interesa hacer modificaciones es en la textbox y le hago un ME.CLOSE luego un
abrir de nuevo.show para actualizar lo visto en textbox este es el codigo:

Ejemplos:

PUBLIC SUB Form_Open()
Label1.Text = ComboBox2.Text
IF coneccion.conectarbase() THEN RETURN
tabla.Clear()
tabla.Columns.Count = 10
tabla.Columns[0].Text = "codigo"
tabla.Columns[1].Text = "cedula"
tabla.Columns[2].Text = "nombres"
tabla.Columns[3].Text = "apellidos"
tabla.Columns[4].Text = "direccion"
tabla.Columns[5].Text = "codigo_cel"
tabla.Columns[6].Text = "telefono"
tabla.Columns[7].Text = "sexo"
tabla.Columns[8].Text = "area"
tabla.Columns[9].Text = "fecha"
END


PUBLIC SUB Button1_Click()
DIM fila AS Integer
Button1.Enabled = FALSE
Button7.Enabled = FALSE
IF Label1.Text = "CODIGO" THEN
coneccion.asisresul = coneccion.asiscon.Exec("Select *from coordinador where codigo='" & TextBox2.Text & "'")

fila = 0
DO WHILE coneccion.asisresul.Available

tabla.Rows.Insert(fila)
tabla[fila, 0].Text = coneccion.asisresul["codigo"]
tabla[fila, 1].Text = coneccion.asisresul["cedula"]
tabla[fila, 2].Text = coneccion.asisresul["nombres"]
tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
tabla[fila, 4].Text = coneccion.asisresul["direccion"]
tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
tabla[fila, 6].Text = coneccion.asisresul["telefono"]
tabla[fila, 7].Text = coneccion.asisresul["sexo"]
tabla[fila, 8].Text = coneccion.asisresul["area"]
tabla[fila, 9].Text = coneccion.asisresul["fecha"]
coneccion.asisresul.MoveNext()
fila = fila + 1
LOOP
tabla.Refresh
ENDIF
IF Label1.Text = "CEDULA" THEN
coneccion.asisresul = coneccion.asiscon.Exec("Select *from coordinador where cedula='" & TextBox2.Text & "'")

fila = 0
DO WHILE coneccion.asisresul.Available
tabla.Rows.Insert(fila)
tabla[fila, 0].Text = coneccion.asisresul["codigo"]
tabla[fila, 1].Text = coneccion.asisresul["cedula"]
tabla[fila, 2].Text = coneccion.asisresul["nombres"]
tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
tabla[fila, 4].Text = coneccion.asisresul["direccion"]
tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
tabla[fila, 6].Text = coneccion.asisresul["telefono"]
tabla[fila, 7].Text = coneccion.asisresul["sexo"]
tabla[fila, 8].Text = coneccion.asisresul["area"]
tabla[fila, 9].Text = coneccion.asisresul["fecha"]
coneccion.asisresul.MoveNext()
fila = fila + 1
LOOP
tabla.Refresh
ENDIF
fila = fila + 1

IF Label1.Text = "NOMBRES" THEN
coneccion.asisresul = coneccion.asiscon.Exec("Select *from coordinador where nombres='" & TextBox2.Text & "'")

fila = 0
DO WHILE coneccion.asisresul.Available
tabla.Rows.Insert(fila)
tabla[fila, 0].Text = coneccion.asisresul["codigo"]
tabla[fila, 1].Text = coneccion.asisresul["cedula"]
tabla[fila, 2].Text = coneccion.asisresul["nombres"]
tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
tabla[fila, 4].Text = coneccion.asisresul["direccion"]
tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
tabla[fila, 6].Text = coneccion.asisresul["telefono"]
tabla[fila, 7].Text = coneccion.asisresul["sexo"]
tabla[fila, 8].Text = coneccion.asisresul["area"]
tabla[fila, 9].Text = coneccion.asisresul["fecha"]
coneccion.asisresul.MoveNext()
fila = fila + 1

LOOP

ENDIF
IF Label1.Text = "SEXO" THEN
coneccion.asisresul = coneccion.asiscon.Exec("Select *from coordinador where sexo='" & TextBox2.Text & "'")

fila = 0
DO WHILE coneccion.asisresul.Available
tabla.Rows.Insert(fila)
tabla[fila, 0].Text = coneccion.asisresul["codigo"]
tabla[fila, 1].Text = coneccion.asisresul["cedula"]
tabla[fila, 2].Text = coneccion.asisresul["nombres"]
tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
tabla[fila, 4].Text = coneccion.asisresul["direccion"]
tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
tabla[fila, 6].Text = coneccion.asisresul["telefono"]
tabla[fila, 7].Text = coneccion.asisresul["sexo"]
tabla[fila, 8].Text = coneccion.asisresul["area"]
tabla[fila, 9].Text = coneccion.asisresul["fecha"]
coneccion.asisresul.MoveNext()
fila = fila + 1

LOOP

ENDIF
IF Label1.Text = "ÁREA" THEN
coneccion.asisresul = coneccion.asiscon.Exec("Select *from coordinador where area='" & TextBox2.Text & "'")

fila = 0
DO WHILE coneccion.asisresul.Available
tabla.Rows.Insert(fila)
tabla[fila, 0].Text = coneccion.asisresul["codigo"]
tabla[fila, 1].Text = coneccion.asisresul["cedula"]
tabla[fila, 2].Text = coneccion.asisresul["nombres"]
tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
tabla[fila, 4].Text = coneccion.asisresul["direccion"]
tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
tabla[fila, 6].Text = coneccion.asisresul["telefono"]
tabla[fila, 7].Text = coneccion.asisresul["sexo"]
tabla[fila, 8].Text = coneccion.asisresul["area"]
tabla[fila, 9].Text = coneccion.asisresul["fecha"]
coneccion.asisresul.MoveNext()
fila = fila + 1

LOOP

ENDIF
IF Label1.Text = "FECHA DE INGRESO" THEN
coneccion.asisresul = coneccion.asiscon.Exec("Select *from coordinador where fecha='" & TextBox2.Text & "'")

fila = 0
DO WHILE coneccion.asisresul.Available
tabla.Rows.Insert(fila)
tabla[fila, 0].Text = coneccion.asisresul["codigo"]
tabla[fila, 1].Text = coneccion.asisresul["cedula"]
tabla[fila, 2].Text = coneccion.asisresul["nombres"]
tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
tabla[fila, 4].Text = coneccion.asisresul["direccion"]
tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
tabla[fila, 6].Text = coneccion.asisresul["telefono"]
tabla[fila, 7].Text = coneccion.asisresul["sexo"]
tabla[fila, 8].Text = coneccion.asisresul["area"]
tabla[fila, 9].Text = coneccion.asisresul["fecha"]
coneccion.asisresul.MoveNext()
fila = fila + 1

LOOP

ENDIF
END
PUBLIC SUB ComboBox2_Click()

Label1.Text = ComboBox2.Text

END



PUBLIC SUB Button5_Click()

ME.Close

END

PUBLIC SUB Button4_Click()
tabla.Clear
Button1.Enabled = TRUE
Button7.Enabled = TRUE
END

PUBLIC SUB Button7_Click()

DIM fila AS Integer
coneccion.asisresul = coneccion.asiscon.Exec("Select *from coordinador ")
fila = 0
DO WHILE coneccion.asisresul.Available
tabla.Rows.Insert(fila)
tabla[fila, 0].Text = coneccion.asisresul["codigo"]
tabla[fila, 1].Text = coneccion.asisresul["cedula"]
tabla[fila, 2].Text = coneccion.asisresul["nombres"]
tabla[fila, 3].Text = coneccion.asisresul["apellidos"]
tabla[fila, 4].Text = coneccion.asisresul["direccion"]
tabla[fila, 5].Text = coneccion.asisresul["codigo_cel"]
tabla[fila, 6].Text = coneccion.asisresul["telefono"]
tabla[fila, 7].Text = coneccion.asisresul["sexo"]
tabla[fila, 8].Text = coneccion.asisresul["area"]
tabla[fila, 9].Text = coneccion.asisresul["fecha"]
coneccion.asisresul.MoveNext()
fila = fila + 1
LOOP
tabla.Refresh
Button7.Enabled = FALSE
Button1.Enabled = FALSE

END




PUBLIC SUB Button6_Click()

DIM ruta AS String
DIM archivo AS File
DIM i, j AS Integer
ruta = User.Home &/ "Reporte de Coordinadores.html"
Message.Warning("RECUERDE GUARDAR CADA REPORTE APARTE, DEBIDO A QUE SOBRECRIBE EL ANTERIOR!")
IF Message.Question(" ¿DESEA GUARDAR UN REPORTE DE COORDINADORES?", "SI", "NO") = 1 THEN
OPEN ruta FOR WRITE CREATE AS #archivo
PRINT #archivo, "<html>"
PRINT #archivo, "<head><title>Reporte en HTML de Administradores</title></head>"
PRINT #archivo, "<body topmargin='0' leftmargin='0'"
PRINT #archivo, ">"
PRINT #archivo, "<table border='1' width='500' cellpadding='4' cellspacing='2'>"
PRINT #archivo, " <tr>"
PRINT #archivo, " <td colspan='20' align='center'>"
PRINT #archivo, " <h3>Listado de Administradores</h3>"
PRINT #archivo, " <tr>"
PRINT #archivo, " <td width='15%' align='center'>Codigo</td>"
PRINT #archivo, " <td align='center'>Cedula</td>"
PRINT #archivo, " <td align='center'>Nombres</td>"
PRINT #archivo, " <td align='center'>Apellidos</td>"
PRINT #archivo, " <td align='center'>Direccion</td>"
PRINT #archivo, " <td align='center'>Codigo telefono</td>"
PRINT #archivo, " <td align='center'>Telefono</td>"
PRINT #archivo, " <td align='center'>Sexo</td>"
PRINT #archivo, " <td align='center'>Area</td>"
PRINT #archivo, " <td align='center'>Fecha de Ingreso</td>"
PRINT #archivo, " </tr>"
FOR i = 0 TO tabla.rows.Count - 1
PRINT #archivo, " <tr>"
FOR j = 0 TO tabla.Columns.Count - 1
PRINT #archivo, " <td>" & tabla[i, j].Text & "</td>"
NEXT
PRINT #archivo, " </tr>"
NEXT
PRINT #archivo, "</table>"
PRINT #archivo, "</body>"
PRINT #archivo, "</html>"
CLOSE #archivo
Message.Info("SE HA CREADO UN REPORTE EN MODO HTML CON ÉXITO (GUARDADO EN EL DIRECTORIO PRINCIPAL)")
ENDIF

END

ESTOS SON OTROS EJEMPLOS DE DISEÑOS POSIBLES:

Yo use este sistema (todo en un formulario: gridviews + etiquetas y textbox ):



Para hacer:
Edicion:Al hacer click en la fila del gridview, pasaba a la parte superior los datos para editarlos (modificarlos o borrarlos)
Añadir: Boton Nuevo, que activa todas los textbox para poder introducir los nuevos datos.


El programa lo podeis descargar en:
https://sites.google.com/site/gestiondeobrasgambas/

No usa base de datos, sino ficheros planos, pero el "concepto" del diseño es igualmente aplicable, usando bases de datos.

@jousseph, no tomes esto a mal, es una recomendación que te ayudará...
Te diré lo que mi profesor de java repite... Pon nombres descriptivos.. Si usas nombres descriptivos ahorrarás algo de tiempo y quedara mucho más claro...

Pero esto:


[...] No dice gran cosa de tu proyecto

Saludos

Estoy con Bruno.

Por ejemplo, yo uso un esquema muy sencillo de seguir y que en todo momento resultará de ayuda al programador y al que lea el código.

Los nombres de controles suelo poner un prefijo que es la abreviatura del nombre del control, por ejemplo:

txt para textbox
cbo para combobox
chk para checkbox
grd para gridview
etc..

así, a continuación le doy un nombre descriptivo en función de su uso:

txtNombre, cboCiudades, chkConfirmar, grdUsuarios, etc.

Los nombres de variables también son importantes, debiendo distinguir también su ámbito. Por ejemplo para variables de clase Private antepongo el símbolo $, así de un vistazo sé lo que son y cómo usarlas.
También es interesante poner otro prefijo que indique el tipo de variable, si es integer, float, string o lo que sea:



Por supuesto, esto son convenciones un tanto arbitrarias, pero en todos los lenguajes existen unas recomendaciones para escribir código y no son muy diferentes unas de otras.

Saludos

Si hermanos lo se gracias por sus consejos jejeje.

algo distinto
solo borro el numero y coloco el nombre descriptivo
y en los eventos no código solo llamadas a sub y funciones



para las variables algo parecido un nombre descriptivo y que indique el ámbito
lo que no estoy seguro es la forma de diseñar la interfaz
como la grid principal como jbsan o el directorio telefonico o como el programa de registros o nose..