Реферат: Разработка информационно-справочной системы

makewindow(5,95,1,"Сохранение bd",7,20,10,40),

framewindow(94), nl,

write(" Имя файла : "), readln(FN), save(FN, bd),

nl, write(" Сохранено"), readchar(_), removewindow, !.

store('2') :-

makewindow(5,95,1,"Сохранение b1",7,20,10,40),

framewindow(94), nl,

write(" Имя файла : "),

readln(FN), save(FN, b1),

nl, write(" Сохранено"), readchar(_), removewindow, !.

store('3') :-

makewindow(5,95,1,"Сохранение b2",7,20,10,40),

framewindow(94), nl,

write(" Имя файла : "),

readln(FN), save(FN, b2),

nl, write(" Сохранено"), readchar(_), removewindow, !.

store('4') :-

!.

store(_) :-

makewindow(5,76,1,"Ошибка",8,29,5,22),

framewindow(75), nl,

write(" Выберите из меню"), readchar(_),

removewindow, removewindow, do('2').

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

see('1') :-

makewindow(5,95,1," Просмотр bd ",7,10,9,60),

framewindow(94), nl,

characteristick(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)),

show(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)),