Разработка информационно-справочной системы
Категория реферата: Рефераты по информатике, программированию
Теги реферата: мировая экономика, пример дипломной работы
Добавил(а) на сайт: Белоцерковский.
Предыдущая страница реферата | 1 2 3 4 5 6 7 | Следующая страница реферата
%%%
indication('1') :- makewindow(5,18,1," Создать базу B1 по признаку ",8,25,10,30), framewindow(19), write(" Введите признак:"), nl, nl, write(" 1 :- По месту хранения"), nl, write(" 2 :- По цене"), nl, write(" 3 :- По дате поступления"), nl, write(" 4 :- Меню"), nl, nl, write(" ------| |------"), cursor(7,13), readchar(X), indicationB1(X), removewindow, removewindow, do('6'), !.
indication('2') :- makewindow(5,18,1," Создать базу B2 по признаку ",8,25,10,30), framewindow(19), write(" Введите признак:"), nl, nl, write(" 1 :- По месту хранения"), nl, write(" 2 :- По цене"), nl, write(" 3 :- По дате поступления"), nl, write(" 4 :- Меню"), nl, nl, write(" ------| |------"), cursor(7,13), readchar(X), indicationB2(X), removewindow, removewindow, do('6'), !.
indication('3') :-
!.
indication(_) :- makewindow(5,76,1,"Ошибка",8,29,5,22), framewindow(75), nl, write(" Выберите из меню"), readchar(_), removewindow, removewindow, do('6').
indicationB1('1') :- makewindow(6,95,1," Создание базы B1 по месту хранения ",7,20,10,40), framewindow(94), nl, write(" Номер цеха: "), readint(X), write(" Номер склада: "), readint(Y),
characteristick(Art,place(X,Y),Name,price(Rub,Kop),date(Year,Mon,Day)),
assert(table1(Art,place(X,Y),Name,price(Rub,Kop),date(Year,Mon,Day))), fail.
indicationB1('1') :- removewindow, removewindow, indication('1').
indicationB1('2') :- makewindow(6,95,1," Создание базы B1 по цене ",7,20,10,40), framewindow(94), nl, write(" Рублей: "), readint(X), write(" Копеек: "), readint(Y), characteristick(Art,place(NC,NS),Name,price(X,Y),date(Year,Mon,Day)), assert(table1(Art,place(NC,NS),Name,price(X,Y),date(Year,Mon,Day))), fail.
indicationB1('2') :- removewindow, removewindow, indication('1').
indicationB1('3') :- makewindow(6,95,1," Создание базы B1 по дате поступления
",7,20,10,40), framewindow(94), nl, write(" Год: "), readint(X), write(" Месяц: "), readint(Y), write(" День: "), readint(Z), characteristick(Art,place(NC,NS),Name,price(Rub,Kop),date(X,Y,Z)), assert(table1(Art,place(NC,NS),Name,price(Rub,Kop),date(X,Y,Z))), fail.
indicationB1('3') :- removewindow, removewindow, indication('1').
indicationB1('4') :-
!.
indicationB1(_) :- makewindow(6,76,1,"Ошибка",8,29,5,22), framewindow(75), nl, write(" Выберите из меню"), readchar(_), removewindow, removewindow, indication('1').
indicationB2('1') :- makewindow(6,95,1," Создание базы B2 по месту хранения ",7,20,10,40), framewindow(94), nl, write(" Номер цеха: "), readint(X), write(" Номер склада: "), readint(Y),
characteristick(Art,place(X,Y),Name,price(Rub,Kop),date(Year,Mon,Day)),
assert(table2(Art,place(X,Y),Name,price(Rub,Kop),date(Year,Mon,Day))), fail.
indicationB2('1') :- removewindow, removewindow, indication('2').
indicationB2('2') :- makewindow(6,95,1," Создание базы B2 по цене ",7,20,10,40), framewindow(94), nl, write(" Рублей: "), readint(X), write(" Копеек: "), readint(Y), characteristick(Art,place(NC,NS),Name,price(X,Y),date(Year,Mon,Day)), assert(table2(Art,place(NC,NS),Name,price(X,Y),date(Year,Mon,Day))), fail.
indicationB2('2') :- removewindow, removewindow, indication('2').
indicationB2('3') :- makewindow(6,95,1," Создание базы B2 по дате поступления
",7,20,10,40), framewindow(94), nl, write(" Год: "), readint(X), write(" Месяц: "), readint(Y), write(" День: "), readint(Z), characteristick(Art,place(NC,NS),Name,price(Rub,Kop),date(X,Y,Z)), assert(table2(Art,place(NC,NS),Name,price(Rub,Kop),date(X,Y,Z))), fail.
indicationB2('3') :- removewindow, removewindow, indication('2').
Рекомендуем скачать другие рефераты по теме: титульный лист курсовой работы, сочинения по русскому языку.
Предыдущая страница реферата | 1 2 3 4 5 6 7 | Следующая страница реферата