Mantenimiento en power builder

Tengo un datawindows tipo freeforn y en sql server 2008 tengo una pequeña BD que se llama EMPLEADO y una tabla que se llama EMPLEADOS con los siguiente campos (código, nombre, dirección, país, sueldo) lo que quiero hacer es como hacer un mantenimiento, osea en el power builder tengo los botones Nuevo, Agregar, Modificar, Eliminar, Salir y el datawindows tipofreeforn y cuando le de click en el botón nuevo me permita escribir un nuevo empleado y cuándo le de click en el botón agregar se agregue a la base de datos y en el botón modificar es por ejemplo escribí mal un nombre y luego corrijo el error y cuando le de click en el botón modificar los datos se actualicen y lo mismo para el botón eliminar que se elimine el registro de la base de datos espero que me puedas ayudar ..

3 respuestas

Respuesta
3
Lo que necesitas hacer es lo más fácil en power builder, bien empecemos:
Evento open
// Hacemos la transacción para leer los datos al datawindows
dw_1. SetTransObject( SQLCA)
dw_1.Retrieve
BOTON NUEVO o AGREGAR (creo que es lo mismo) EVENTO CLICKED
// Declaramos una variable de tipo Long
Long ll_fila
// a esta variable le asignaremos la fila nueva en donde ingresaremos los datos
ll_fila = dw_1.InsertRow( 0)
// Ahora le diremos al datawindows que nos muestre la fila nueva creada
dw_1. ScrollToRow( ll_fila)
// Esto es una forma más abreviada del código de arriba
dw_1. ScrollToRow( dw_1. InsertRow( 0)
BOTON GUARDAR, EVENTO CLICKED
// le decimos que los cambios realizados al dw se actualizen
dw_1.Update( )
// Ahora verificamos los errores
If SQLCA.SQLCODE = 0 Then
MessageBox("MENSAJE", "Empleado guardado con exito")
Commit Using SQLCA;
Else
MessageBox("MENSAJE", "Error, el Empleado no se pudo Guardar")
Rollback Using SQLCA;
End If
BOTON MODIFICAR es lo mismo que el guardar
BOTON ELIMINAR, EVENTO CLICKED
// Eliminamos la fila que esta enfocada
dw_1.DeleteRow( dw_1.GetRow( ))
// Ahora actualizamos todos los datos del dw
dw_1.Update( )
// Ahora verificamos los errores
If SQLCA.SQLCODE = 0 Then
MessageBox("MENSAJE", "Empleado eliminado con exito")
Commit Using SQLCA;
Else
MessageBox("MENSAJE", "Error, el Empleado no pudo ser Eliminado")
Rollback Using SQLCA;
End If
Botón salir, evento clicked
Close( Parent)
Recuerda que el código tiene que ser clave primaria y tiene que autogenerarce:
Eh aquí un ejemplo de un ejercicio anterior:
DESCARGAR
Acá tienes una vista Previa: (Algo muy sencillo, ahí te lo dejo para que lo modifiques)
http://www.nekssolutions.ok.pe/powerbuilder/p1.JPG
Cuando le doi click para hace agregar o eliminar me sale este error
datawindow does not have UPDATE capability
Bien para eso abre tu objeto datawindows, y dirígete el menu Row, y después a Update Properties, se abrirá una ventana en donde tendrás que indicar tu clave primaria, y los campos a modificar:


Creo que eso es todo, si tienes más dudas, házmelo saber.
Respuesta
3
Primero asignas el data windows_control la tabla que deseas de tu base de datos, con esto obtienes los campos, luego enlazas el dw_control al dw_objeto que es qui va a tener los eventos
El mantenimientos se puede manejar de diferentes formas con eventos en el datawindow_control o botones.
Te podría servir algo así...
 User_Event o boton.
INSERTAR
long ll_fila
ll_fila =  dw_datos.insertrow(dw_datos.getrow( ))
dw_datos.scrolltorow( ll_fila)
dw_datos.setrow( ll_fila)
GRABAR
dw_datos.accepttext( )
if dw_datos.update( ) < 0 then
 messagebox("Informacion", "No actualizo la base de datos")
 rollback;
 return
end if
commit;
Messagebox("Informacion","Actualizacion exitosa")
Eliminar
dw_datos.deleterow( 0)
Si me podrías explicar brevemente para que sirven te lo agradecería .. gracias
rollback
 return
commit;
El rollback es para que si se produce un error en la transacción no haga nada en la base de datos, para evitar errores e integrida referencial.
Retun acaba la sentencia
Commit una orden propia de pl-sql es para aceptar la transacción en kla base de datos, por que antes de esto la transacción solo sea ha realizado en el datawindows y ni en la BDD.
Respuesta
1
Agregame [email protected], ahi me a hces recordar para enviarte un ejemplillo, ya que indicarte por aca es un codigo regular y como veo que estas empesando mejor seria un ejemplo ya echo antes de ponerte codigo y que te pongas a armarlo tu solo.
No olvides finalizar la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ingresar datos de fecha a la bd desde power builder

Tengo que ingresar datos de tipo fecha no me permite con la sintaxis que me dist la vez pasada espero tu respuesta ijalal me puedas ayudar es para otra tabla pues me sale este error database transaction information not avariable call set trans or set...
1 respuesta

Eliminar registro del datawindow

Man como elimino un registro de un datawindow osea stoi haciendo una factura y cuando le hago click en botón agregar producto me agrega el prudcto seleccionado al datawindows. Lo que quiero hacer es dar click al producto agregado en el datawindows...
2 respuestas

Insertar una fila en una Base de Datos

Esta es mi consulta, tengo en PowerBuilder, la siguiente pantalla: ************************ * * DW=Grid * ******* * * ___ * DW * * * libro|___| * * * * * * * * ___ * * * * isbn |___| ******* * * * * <Aceptar> * ************************* El problema...
1 respuesta

Contador en Campo Dw

Lo que pretendo realizar es un contador que me suministre un campo especifico dentro del dw, en este caso seria un código la idea es generar un código propio, es decir A01, SA01 ETC..., la idea que al presionar el intro se genere ese correlativo...
1 respuesta

Pasar datos de un DW a otro DW en Power Builder

Tengo dos dw, uno de tipo Grid y otro Freeform, donde ambas están ubicadas en ventanas diferentes. Te muestro el código: -------------------------------------------------------------------------------------------- = dw_1(freeform) boton "Traspasar...
1 respuesta

Verificar si un datawindows esta vacío

Como puedo verificar si los campos de mi datawindows esta vacío .. Te doi un ejemplo para que me entiendas Tengo un datawindows tipo freeforn con los campo (código, nombre, dirección) y también tengo un botón que dice nuevo y otro botón guardar. El...
1 respuesta

Modificar registro en Base de Datos Power Builder

Antes que nada quiero agradecerte la ayuda que me has prestado en varias oportunidades, la cual me ha servido muchísimo, en esta oportunidad tengo un problema al momento de modificar los registros de mi base de datos de Power Builder, el script en el...
1 respuesta

Como generar la ayuda en PB 9.0

Me gustaría que me ayudes con algunos problemas que tengo quiero hacer desde mi menu la ayuda, quiero llamar a un documento de word 2007 y estoy trabajando en PB 9.0... Y también como le hago el ejecutable porque ya lo hago pero no se me ejecuta,...
1 respuesta

Modify

Creo que estoy cayendo con lo que me escribiste. Hice todo dentro de un solo DW. Estuve probando, me salen todavía algunos errores, pero me distraje con otra parte del programa. Como ya conoces más o menos del tema(ojala te acuerdes el tema de...
1 respuesta

Dudas en PB

Tengo un dw donde le agrego los datos mediante el siguiente código: if keydown(keyenter!) then integer nuevo decimal{2} precio precio=real(em_9.text) nuevo=dw_1.insertrow( 0) dw_1.setitem( nuevo, "temdesc", trim(sle_1.text)) dw_1.setitem( nuevo,...
4 respuestas