Разработка информационно-справочной системы
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: мировая экономика, пример дипломной работы
| Добавил(а) на сайт: Белоцерковский.
Предыдущая страница реферата | 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 | Следующая страница реферата