PERSPECTIVA ECONOMICAS

MANTENIMIENTO DE UNA BASE DE DATOS


database
persona(string,char) /* persona(nombre, sexo) */
predicates
carga_base
lee_char(string,char)
lee_string(string,string)
limpia_ram
menuopcion(char)
pres_tecla
tabla_sexo(char,string)
clauses
carga_base:- existfile("datos.dat"),
consult("datos.dat"), !.
carga_base:- write("Archivo datos.dat no existe ..."),pres_tecla, !.
lee_char(M,X):- write(M),
readchar(X), !.
lee_string(M,X):- write(M),
readln(X), !.
limpia_ram:- retract(_),
fail.
limpia_ram:- !.menu:- clearwindow,
write("1. Entra datos"), nl,
write("2. Muestra datos"), nl,
write("3. Eliminar datos"), nl,
write("0. Salir"), nl, nl,
lee_char("Entreuna opci¢n: ",Op),
Op '0',
opcion(Op),
!, menu.
menu:- clearwindow,
write("Fin de programa ... "),
nl, !.
opcion('1'):- clearwindow,lee_string("Entre un nombre..: ",N),
lee_char("Entre sexo (m=masculino f=femenino).......: ",S),
asserta(persona(N,S)), !.
opcion('2'):- clearwindow,persona(N,S),
write("Nombre: ",N),
tabla_sexo(S,Sexo),
write(" Sexo: ",Sexo), nl,
write("***************************************"), nl,
fail.
opcion('2'):-write("Fin de datos ... "),
pres_tecla, !.
opcion('3'):- clearwindow,
lee_string("Entre el nombre que desea eliminar en la base de datos ..: ",N),retract(persona(N,_)),
write("Persona eliminada ... "),
pres_tecla, !.
opcion('3'):- write("Persona no existe en base de datos ... "),
pres_tecla, !.
opcion(_):- !.
pres_tecla:-nl,
write("Presione cualquier tecla para continuar ... "),
readchar(_), !.
tabla_sexo('f',"femenino"):- !.
tabla_sexo('m',"masculino"):- !.
goal
makewindow(1,2,2,"BASE DE...