Разработка информационно-справочной системы
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: мировая экономика, пример дипломной работы
| Добавил(а) на сайт: Белоцерковский.
Предыдущая страница реферата | 1 2 3 4 5 6 7 | Следующая страница реферата
get(ArtD,place(NCD,NSD),NameD,price(RubD,KopD),date(YearD,MonD,DayD)), nl, clearwindow,
retract(characteristick(X,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day
))),
assert(characteristick(ArtD,place(NCD,NSD),NameD,price(RubD,KopD),date(YearD
,MonD,DayD))), removewindow, removewindow, do('4'), !.
correct('1') :- removewindow, removewindow, do('4'), !.
correct('2') :- makewindow(5,95,1," Корректировка записи, найденной по названию
",7,10,13,60), framewindow(94), write("Название: "), readln(X),
characteristick(Art,place(NC,NS),X,price(Rub,Kop),date(Year,Mon,Day)), nl, write("Старая запись:"), nl, nl, show(Art,place(NC,NS),X,price(Rub,Kop),date(Year,Mon,Day)), nl, nl, write("Введите новый вариант:"), nl, nl,
get(ArtD,place(NCD,NSD),NameD,price(RubD,KopD),date(YearD,MonD,DayD)), nl, clearwindow,
retract(characteristick(Art,place(NC,NS),X,price(Rub,Kop),date(Year,Mon,Day)
)),
assert(characteristick(ArtD,place(NCD,NSD),NameD,price(RubD,KopD),date(YearD
,MonD,DayD))), removewindow, removewindow, do('4'), !.
correct('2') :- removewindow, removewindow, do('4'), !.
correct('3') :-
!.
correct(_) :- makewindow(5,76,1,"Ошибка",8,29,5,22), framewindow(75), nl, write(" Выберите из меню"), readchar(_), removewindow, removewindow, do('4').
%%%
del('1') :- makewindow(5,95,1," Удаление по артикулу ",7,20,10,40), framewindow(94), write(" Номер артикула: "), readint(X),
retract(characteristick(X,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day
))), nl, write(" Готово."), readchar(_), removewindow,removewindow, do('5'), !.
del('1') :- makewindow(6,76,1,"Ошибка",8,29,5,22), framewindow(75), nl, write(" Запись не найдена."), readchar(_), removewindow, removewindow, removewindow, do('5').
del('2') :- makewindow(5,95,1," Удаление по названию ",7,20,10,40), framewindow(94), write(" Название: "), readln(X),
retract(characteristick(Art,place(NC,NS),X,price(Rub,Kop),date(Year,Mon,Day)
)), nl, write(" Готово."), readchar(_), removewindow,removewindow, do('5'), !.
del('2') :- makewindow(6,76,1,"Ошибка",8,29,5,22), framewindow(75), nl, write(" Запись не найдена."), readchar(_), removewindow, removewindow, removewindow, do('5').
del('3') :- makewindow(5,95,1," Удаление всей базы ",7,20,10,40), framewindow(94), retract(characteristick(_,place(_,_),_,price(_,_),date(_,_,_))), fail.
del('3') :- write(" База удалена."), readchar(_), removewindow,removewindow, do('5'), !.
del('4') :-
!.
del('_') :- makewindow(5,76,1,"Ошибка",8,29,5,22), framewindow(75), nl, write(" Выберите из меню"), readchar(_), removewindow, removewindow, do('5').
Рекомендуем скачать другие рефераты по теме: титульный лист курсовой работы, сочинения по русскому языку.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 7 | Следующая страница реферата
Главная