databa6

/* databa6.pro */
/* esempio gestione database */
/* aggiungere dati in file dba */
/* modificare dati in file dba */
/* modifica di dato in posizione indicata */

nowarnings
domains
file = salvafile
Dato = symbol
Posizione = real
Modo = integer

predicates
modifica
aggiunge
finestra
azione
goal finestra,azione,
aggiunge,aggiunge,
modifica.

clauses
finestra:-
makewindow(1,5,1,"",1,1,20,50).

azione:-
write("database attivo metalli.dba \n"),
disk("A:").

aggiunge:-
write("scrivi termine da aggiungere \n"),
readln(Dato),
openappend(salvafile,"Metalli.dba"),
writedevice(salvafile),
write(Dato,"\n"),
closefile(salvafile).

modifica:-
write("scrivi termine da sostituire \n"),
write("ad altro termine in posizione \n"),
write("da indicare con filepos \n"),
readln(Dato),
write("scrivi posizione dato \n"),
readreal(Posizione),
write("scrivi modo 0,1 \n"),
readint(Modo),
openmodify(salvafile,"Metalli.dba"),
writedevice(salvafile),
filepos(salvafile,2,1),
write(Dato,"\n"),
closefile(salvafile).

database di riferimento metalli.dba (deve essere già creato e presente in drive A:)

sodio
potassio
rubidio
cesio
francio
ferro
rame

sodio
potassio
rubidio
cesio
francio
ferro
rame
cloro
fluoro