Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

indicationB2('4') :-

!.

indicationB2(_) :- makewindow(6,76,1,"Ошибка",8,29,5,22), framewindow(75), nl, write(" Выберите из меню"), readchar(_), removewindow, removewindow, indication('2').

%%%

adding :- get(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)), nl, write(" Вы ввели :"), nl, show(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)), nl, nl, write(" Добавить ? (Yes/No)"), readchar(A),

A='y',

assert(characteristick(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Da y)));

!.

%%%

exists(FN) :- existfile(FN); makewindow(6,76,1,"Ошибка",10,25,5,30), nl, framewindow(75), write(" Файл ",FN," не найден!"), readchar(_), removewindow, removewindow, removewindow, do('1').

show(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)) :- write(" Артикул : ",Art), nl, write(" Местоположение (Цех, Склад) : ",NC,", ",NS), nl, write(" Наименование товара : ",Name), nl, write(" Стоимость (Рублей:Копеек) : ",Rub,":",Kop), nl, write(" Дата поступления (Год-Месяц-День) : ",Year,"-",Mon,"-
",Day).

get(Art,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)) :- write(" Артикул : "), readint(Art), write(" Местоположение : "), nl, write(" Цех : "), readint(NC), write(" Склад : "), readint(NS), write(" Наименование товара : "), readln(Name), write(" Стоимость : "), nl, write(" Рублей : "), readint(Rub), write(" Копеек : "), readint(Kop), write(" Дата поступления : "), nl, write(" Год : "), readint(Year), write(" Месяц : "), readint(Mon), write(" День : "), readint(Day).

7. Отладка программы.

Открытие БД.

+-------------- Системное меню --------------+
¦ Выберите вариант работы с базами данных: ¦
¦ 1 :-+--------- Загрузить --------+ ¦
¦ 2 :-¦ Куда загрузить ? ¦ ¦
¦ +--------------Загрузка bd-------------+ ¦
¦ ¦ ¦ ¦
¦ ¦ Имя файла : data ¦ ¦
¦ ¦ ¦ ¦
¦ ¦ Загружено ¦ ¦
+--¦ ¦--+

+--------------------------------------+

Сохранение БД.

+-------------- Системное меню --------------+
¦ Выберите вариант работы с базами данных: ¦
¦ ¦
¦ 1 :-+--------- Сохранить --------+ ¦
¦ 2 :-¦ Что сохранить ? ¦ ¦
¦ +-------------Сохранение b2------------+ ¦
¦ ¦ ¦ ¦
¦ ¦ Имя файла : data2 ¦ ¦
¦ ¦ ¦ ¦
¦ ¦ Сохранено ¦ ¦
+--¦ ¦--+

+--------------------------------------+

Просмотр.

+-------------- Системное меню --------------+

¦ Выберите вариант работы с базами данных: ¦

¦ ¦

¦ 1 :-+-------- Просмотреть -------+ ¦

¦ 2 :-¦ Что просмотреть ? ¦ ¦
+----------------------- Просмотр bd ----------------------+
¦ Артикул : 2 ¦
¦ Местоположение (Цех, Склад) : 6, 7 ¦
¦ Наименование товара : Vint ¦
¦ Стоимость (Рублей:Копеек) : 0:65 ¦
¦ Дата поступления (Год-Месяц-День) : 1996-2-45 ¦
¦ ¦
¦Нажмите ENTER для продолжения... ¦
+----------------------------------------------------------+

Рекомендуем скачать другие рефераты по теме: титульный лист курсовой работы, сочинения по русскому языку.



Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки