Proyecto Power Builder Biblioteca

Projecto Biblioteca ( Power Builder)

Registro de prestamos:

: Visualiza la ventana control de libros

//Abre la ventana de control de libros

open(w_control_lb)

//Oculta la ventana principal

w_registro_p.visible=false

: Elimina el libro seleccionado de la lista

//Selecciona y borra el indice seleccionado

lb_registro.DeleteItem(lb_registro.selectedindex( ) )

:Registra los datos en la lista de listado de préstamos y luego borra controles

//Declarar variables
string lista_prestamo
integer f = 1

//Contador

Do while f <= contador

pre = pre + 1

cod_lectorprestamo[pre] = temp1[f]
lectorprestamo[pre] = temp2[f]
fechaprestamo[pre] = temp3[f]

cod_libroprestamo[pre] = temp4[f]
tituloprestamo[pre] = temp5[f]
autorprestamo[pre] =temp6[f]
editorialprestamo[pre] = temp7[f]
generoprestamo[pre] = temp8[f]
edicionprestamo[pre] = temp9[f]
estadoprestamo[pre] = temp10[f]

lista_prestamo = right ( "0000"+ cod_lectorprestamo[pre], 5) + " l " + lectorprestamo[pre]+
fill(" ", 30 - len(lectorprestamo[pre]) ) + " l " + string(fechaprestamo[pre]) + " <-> " +
right ( "0000"+ cod_libroprestamo[pre], 5) + "l " + tituloprestamo[pre] +
fill(" ", 30 - len(tituloprestamo[pre]) ) + " l " + autorprestamo[pre] +
fill(" ", 30 - len(autorprestamo[pre]) ) + " l " + editorialprestamo[pre] +
fill(" ", 30 - len( editorialprestamo[pre] ) ) + " l " + generoprestamo[pre] +
fill(" ", 10 - len(generoprestamo[pre]) ) + " l " + edicionprestamo[pre] +
fill(" ", 4 -len(edicionprestamo[pre]) ) + " l " + estadoprestamo[pre]

tab_1.tabpage_2.lb_prestamo.additem(lista_prestamo)

f= f+1
loop

//El contador vuelve a "0"

contador = 0

//Limpia los controles
st_codigo.text =" "
sle_registro.text = " "
lb_registro.reset( )

//Llamar a la funcion

contar_prestamos( )

: Borra todos los controles

//Limpia los controles
st_codigo.text =" "sle_registro.text = " "
lb_registro.reset( )

//Vuelve el contador en "0" que vuelve a los arrays temporales en posicion "0"
contador = 0

: Cierra el programa

//Cierra toda la aplicacion

close (parent)

: Visualiza la ventana control de lectores

//Abre la ventana de control de lectores
open(w_control_l)

//Oculta la ventana principal

w_registro_p.visible=false

Cada vez que laventana “w_registro_p” se active, guardaran datos en los arrys “temp” siempre y cuando la variable “temporales” este en “ok”

//Declarar variables
if temporales = "ok" then
contador=contador + 1
temp1[contador] = tab_1.tabpage_1.st_codigo.text
temp2[contador] = tab_1.tabpage_1.sle_registro.text
temp3[contador] = date(tab_1.tabpage_1.dp_fecha.value)

temp4[contador] =codigolb[indice_libro]
temp5[contador] = titulo[indice_libro]
temp6[contador] = autor[indice_libro]
temp7[contador] = editorial[indice_libro]
temp8[contador] = genero[indice_libro]
temp9[contador] = edicion[indice_libro]
temp10[contador] = estado[indice_libro]
end if

/*La variables temporales adquiere el valor de "no" para
no seguir aumentado dato al arrays temp*/
temporales = "no"Listado de Prestamos:

: Se selecciona uno de los criterios de búsqueda.
: Se ingresa el texto que se buscara.

La función “contar_prestamos( )” nos permitirá contar el total de prestamos que hay en la lista de prestamos

//LLamamos al control que muestra el total de elemento

if (tab_1.tabpage_2.lb_prestamo.totalitems( ) <> 0 ) then
tab_1.tabpage_2.st_prestamo.text = "Total Items:" + right ( "0000"+ string( string( tab_1.tabpage_2.lb_prestamo.totalitems( ) ) ), 5)
else
tab_1.tabpage_2.st_prestamo.text = "Total Items: "
end if

: Ejecuta la búsqueda con el criterio y el dato ingresado, seleccionando el elemento de la lista que contenga el dato buscado.

//Declarar variable

string dato, criterio
integer indice_prestamo

dato=sle_dato.text

criterio=...