Рефераты по теме Программирование, Базы данных
Реферат Разработка информационно-справочной системы "Овощная база" Prolog скачать бесплатно
Скачать реферат ↓ [0 B]
Текст реферата Разработка информационно-справочной системы "Овощная база" Prolog
CODE=12050 /* ************************** * КУРСОВАЯ РАБОТА * * * * Котова Владимира * * ***************************
*/
domains
z,i,n,n1,kol,tkol,tel,faks=integer
prod,adr,j=symbol
database -svod1
svod1(n,j,kol,tkol,adr,tel,faks)
database -lolo
lolo(n,prod,kol,i,adr,tel,faks)
database -kuku
kuku(n,prod,kol,tkol,j,i,i)
database-svod
svod(n,prod,kol,tkol,adr,tel,faks)
predicates
start
patch
load
select(i)
sel(i,i)
process(i)
procedure(i)
sve(i)
lod(i)
repeat
goal start.
clauses /*Процедура создания основного меню и загрузки базы данных*/ start:-
makewindow(1,2,7,"ОВОЩНАЯ БАЗА",0,0,25,80),
clearwindow,
load, patch. /*Процедура управления основным меню*/
patch:-
repeat,
cursor(7,0),
write(" 0 - О пpогpамме... "),nl, write(" 1 - коррекция данных"),nl, write(" 2 - удаление данных"),nl, write(" 3 - просмотр базы"),nl, write(" 4 - загрузка базы"),nl, write(" 5 - сохранение базы"),nl, write(" 6 - создание новой базы"),nl, write(" 7 - ввод новых данных"),nl, write(" 8 - просмотр-добавление"),nl, write(" 9 - выход из программы"),nl, write(" =>"),
readint(Choice),
Choice >= 0,
Choice < 10,
clearwindow,
process(Choice),
clearwindow,
Choice = 9,
retractall(_), removewindow. /*Процедура поиска и загрузки файла содержащего базу данных*/
load:-
existfile("kot.dat"),
consult("kot.dat"),
cursor(1,2),
write("База загружена").
load:-
cursor(1,2), write("Нет базы на диске").
/*Пpоцедуpа ввода новых данных*/ process(7):- makewindow(1,2,7,"Ввод новых данных",0,0,25,80), nl, write("Введите порядковый номер :"),readint(K),nl, write("Введите наименование товара :"),readln(O),nl, write("Введите количество на складе :"),readint(I),nl, write("Введите требуемое количество :"),readint(Y),nl, write("Введите адрес