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

В данной программе существует два варианта корректировки - редактирование записи, найденной по номеру артикула и найденной по названию детали. В каждой из версий предиката вначале запрашивается номер артикула (или название) изменяемой записи, поиск и вывод на экран, затем происходит ввод новых значений полей, подтверждаются сделанные изменения, удаляется старый факт (retract) и добавляется вновь сформированный (assert).
11. Создания базы по признакам (Indication).

Indication(‘1’) создает базу b1, а Indication(‘2’) - базу b2. Для каждой базы существует отдельный предикат - IndicationB1 и

IndicationB2. Существуют возможности создания таких баз по следующим признакам: по месту хранения, по цене, по дате поступления. В каждом из вариантов производится запрос на несколько параметров сразу и поиск фактов, отвечающих этим требованиям. При успешном поиске, найденный факт добавляется в базу b1 или b2.
12. Удаление записи по признакам (Del).

Признаками для удаляемой записи могут служить номер артикула, название, а также возможно уничтожить из памяти всю базу данных. Во всех вариантах используется процедура удаления записи retract.
6. Листинг.

%
%
% Пакостина Александра.
%
% ИР-1-95.
%
% Задание 11.
%
%
%

domains

artikul = integer cex, sklad = integer name = string rubley, kopeek = integer year, month, day = integer placedom = place(cex, sklad) pricedom = price(rubley, kopeek) datedom = date(year, month, day)

database - bd

characteristick(artikul, placedom, name, pricedom, datedom)

database - b1

table1(artikul, placedom, name, pricedom, datedom)

database - b2

table2(artikul, placedom, name, pricedom, datedom)

predicates

windows go do(char) open(char) store(char) adding correct(char) indication(char) indicationB1(char) indicationB2(char) see(char) del(char) exists(string) show(artikul, placedom, name, pricedom, datedom) get(artikul, placedom, name, pricedom, datedom)

goal

windows, go.

clauses

characteristick(1,place(5,6),"Gayka",price(0,45),date(1996,1,4)). characteristick(2,place(6,7),"Vint",price(0,65),date(1996,2,45)).

windows :- makewindow(1,52,0,"",24,0,1,80), write(" Пакостина Александра."), makewindow(2,52,0,"",0,0,1,80), write(" Система управления базой данных "Характеристика детали""), makewindow(3,112,1," Системное меню ",2,17,14,46), nl, write(" Выберите вариант работы с базами данных:"), nl, nl, write(" 1 :- Загрузить"), nl, write(" 2 :- Сохранить"), nl, write(" 3 :- Просмотреть"), nl, write(" 4 :- Скорректировать"), nl, write(" 5 :- Удалить запись по признакам"), nl, write(" 6 :- Создать по признакам"), nl, write(" 7 :- Добавить"), nl, write(" 8 :- Выход в ДОС"), nl, nl, write(" ------------------| |------------------"), framewindow(126).

go :- gotowindow(3), cursor(11,21), readchar(X), do(X).

%%%

correct('1') :- makewindow(5,95,1," Корректировка записи, найденной по артикулу
",7,10,13,60), framewindow(94), write("Номер артикула: "), readint(X),

characteristick(X,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)), nl, write("Старая запись:"), nl, nl, show(X,place(NC,NS),Name,price(Rub,Kop),date(Year,Mon,Day)), nl, nl, write("Введите новый вариант:"), nl, nl,

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



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

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