Реферат: Разработка информационно-справочной системы

Задание № 11

на курсовое проектирование

по дисциплине “Логическоепрограммирование”

студенту ПакостинойАлександре Викторовне.

Группа ИР-1-95.

1.

Темаисследования: “Разработка информационно — справочной системы”.

2.

Исходныеданные: База данных BD, включающая записи вида:

Характеристика детали

№

Место хранения

Название

Цена

Дата поступления

артикула

№ цеха

№склада

детали

руб

коп

год

месяц

число

Языкпрограммирования

:Пролог.

3.

Перечень вопросов, подлежащихразработке:

3.1. Разработатьменю, обеспечивающее взаимодействие пользователя с системой, в соответствии сзаданием, предусмотрев режимы:

3.2. Разработатьпроцедуры:

·

уничтожениязаписей по признакам;

·

загрузки;

·

сохранения;

·

просмотра;

·

уничтожения;

3.3.

Предусмотреть создание из базы BD новых баз данных B1, B2, характеризуемых признаками, задаваемымипользователем.

4.

Перечень графическихматериалов:
4.1. Структурнаясхема меню:
<img src="/cache/referats/3514/image001.gif" v:shapes="_x0000_i1025">

4.2.Структурная схема программы:

5.

Календарный план работы надкурсовой работой:

5.1. Получениезадания: 4.10.96.

5.2. Анализзадания, постановка задачи, подбор и изучение литературы: 18.10.96.

5.3. Разработкаменю и структуры программы: 25.10.96.

5.4. Разработкапроцедур информационно-справочной системы: 15.11.96.

5.5. Отладкапрограммы: 29.11.96.

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

5.7. Защитакурсовой работы: 20.12.96.

Руководитель

:Холкин И.И. ____________

Студент

:Пакостина А.В. ____________

Описание

1.

Понятие обинформационно-справочных системах и их программная реализация.
Информационно-справочные системыпредназначены для управления различными информационными и справочнымимассивами, в число которых входят и базы данных. Эти системы организовываютопределенный интерфейс пользователя с функциями обработки информации самой системы.Набор возможностей таких систем обычно включает в себя коррекцию структурыиспользуемого объекта (инкапсулирующего информацию), работа с его составляющими- дополнение, редактирование, удаление (в случае, когда роль такого объектавыполняет база данных, это — записи), простой просмотр, поиск элементов. Такженеобходимо обеспечить для такой системы и функции постоянного надежногохранения — в простейшем случае, это — запись базы из памяти в файл на диске исчитывание оного с диска в память.
Программная реализация мало отличается от подобной концепции, но конкретизируетабстрактные операции в конкретные процедуры и функции (или же объекты) изависит полностью от возможностей языка, поставленной задачи и искусствапрограммиста.

2.

Базы данных и способы ихпредставления.
Общая концепция теории простых баз данных подразумевает наличие некоторогомножества таблиц и являющихся, собственно, базой данных, имеющей определенныйидентификатор (имя). Каждая таблица состоит из n-го количества записей(величина nзависит от возможностей конкретной системы), каждая из которых имеет одну и туже структуру (в рамках одной таблицы) и может объединять в себе несколькоразнородных объектов (их количество также зависит целиком и полностью от возможностейсистемы).
Работа с базой данных предполагает в себе возможность работать с записями (либоизменять структуру таблиц).
В языке программирования Пролог база данных описывается в отдельном разделе,именуемом database. Такихразделов может быть несколько в одной программе и каждый из них, если онидействительно представляют собой разные БД, должны иметь разные имена. В случаеотсутствия имени у базы данных, ей дается имя по умолчанию — dbasedom.
Работу с загружаемыми базами данных в Прологе реализуют следующие стандартныепредикаты: assert — добавитьзапись в БД, retract - удалитьуказанную запись, save — сохранить указанную БД в файле, consult — загрузитьБД из файла в память.
В данной работе объявлена главная база данных bd,имеющая предикат characteristick, идве временные базы b1, b2 спредикатами table1, table2.

3.

Разработка системного меню.
Системное меню объединяет в себедоступ ко всем процедурам информационно — справочной системы. Разработка менюотталкивается от имеющихся функций системы (предикатов). Поскольку объявленпредикат do (char), служащийбуфером между системным меню и существующими процедурами, он имеет в себе либоподменю с выбором режимов работы имеющихся предикатов, либо их вызов с последующимвозвратом в системное меню:
+-------------- Системное меню--------------+

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

¦ ¦

¦ 1 :- Загрузить ¦

¦ 2 :- Сохранить ¦

¦ 3 :- Просмотреть ¦

¦ 4 :- Скорректировать ¦

¦ 5 :- Удалить запись попризнакам ¦

¦ 6 :- Создать по признакам ¦

¦ 7 :- Добавить ¦

¦ 8 :- Выход в ДОС ¦

¦ ¦

¦ ------------------| |------------------ ¦

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

4.

Разработка структурыпрограммы.
Системное меню вызывает толькопредикаты do (<режим>), определенные для каждой изнеобходимых задач (номер режим полностью совпадает с нумерацией в главномменю). Каждая из реализаций этого предиката выводит меню, либо сразу вызываетсоответствующие процедуры: open, store, adding, correct, see, del, indication.Процедура Indication выводитдополнительное подменю и вызывает либо IndicationB1, либо IndicationB2 в зависимости от выборапользователя.Do(‘8’)завершает работу с системой.

5.

Разработка процедур:

5.1. Загрузкабазы данных

(Open).
В do(‘1’) имеетсяменю:
+--------- Загрузить --------+

¦ Куда загрузить ? ¦

¦ ¦

¦ 1 :- В bd ¦

¦ 2 :- В b1 ¦

¦ 3 :- В b2 ¦

¦ 4 :- Меню ¦

¦ ¦

¦ ------| |------ ¦

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

процедура Openимеет четыре реализации, для каждого из вариантов работы. Для любого случаяперед загрузкой базы данных проверяется существование файла с введенным именем(предикат exists).Для загрузки базы данных используется стандартный предикат consult. При вызове Open(‘1’) загрузка производится в базу bd, при вызове Open(‘2’)в базу b1,при вызове Open(‘3’) - в b2.

5.2. Сохранение

(Store).
В do(‘2’)ìåíþ:

+--------- Сохранить --------+

¦ Что сохранить ? ¦

¦ ¦

¦ 1 :- bd ¦

¦ 2 :- b1 ¦

¦ 3 :- b2 ¦

¦ 4 :- Меню ¦

¦ ¦

¦ ------| |------ ¦

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

Существуютпредикаты для записи главной базы и двух временных. Используется стандартный предикатsave,записывающий в текстовый файл факты, связанные с данной БД.

5.3. Просмотр

(See).
В do(‘3’)меню:

+-------- Просмотреть -------+

¦ Что просмотреть ? ¦

¦ ¦

¦ 1 :- bd ¦

¦ 2 :- b1 ¦

¦ 3 :- b2 ¦

¦ 4 :- Меню ¦

¦ ¦

¦ ------| |------ ¦

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

Предложения See(‘1’) и See(‘2’) создают новые окна и выводятв них найденные записи. После каждой выведенной записи запрашивается нажатиеклавиши, затем повторяется поиск с помошью стандартного предиката Fail или происходит выход из предиката всистемное меню.

5.4. Добавление

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

5.5. Корректировка

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

5.6. Созданиябазы по признакам

(Indication).
Indication(‘1’) создаетбазу b1, а Indication(‘2’) — базу b2. Для каждой базы существуетотдельный предикат — IndicationB1 и IndicationB2. Существуют возможностисоздания таких баз по следующим признакам: по месту хранения, по цене, по датепоступления. В каждом из вариантов производится запрос на несколько параметровсразу и поиск фактов, отвечающих этим требованиям. При успешном поиске,найденный факт добавляется в базу b1 или b2.

5.7. Удалениезаписи по признакам

(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).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

do('1') :-

makewindow(4,18,1," Загрузить",5,25,10,30),

framewindow(19),

nl, write(" Куда загрузить ?"), nl,

nl, write(" 1 :- В bd"),

nl, write(" 2 :- В b1"),

nl, write(" 3 :- В b2"),

nl, write(" 4 :- Меню"), nl,

nl, write(" ------| |------"),

cursor(7,13), readchar(X), open(X),

removewindow, go, !.

do('2') :-

makewindow(4,18,1," Сохранить",5,25,10,30),

framewindow(19),

nl, write(" Что сохранить ?"), nl,

nl, write(" 1 :- bd"),

nl, write(" 2 :- b1"),

nl, write(" 3 :- b2"),

nl, write(" 4 :- Меню"), nl,

nl, write(" ------| |------"),

cursor(7,13), readchar(X), store(X),

removewindow, go, !.

do('3') :-

makewindow(4,18,1," Просмотреть",5,25,10,30),

framewindow(19),

write(" Что просмотреть ?"), nl,

nl, write(" 1 :- bd"),

nl, write(" 2 :- b1"),

nl, write(" 3 :- b2"),

nl, write(" 4 :- Меню"), nl,

nl, write(" ------| |------"),

cursor(7,13), readchar(X), see(X),

removewindow, go, !.

do('4') :-

makewindow(4,18,1," Корректировка",5,25,9,30),

framewindow(19),

write(" Способ нахождения записи:"), nl,

nl, write(" 1 :- по номеру артикула"),

nl, write(" 2 :- по названию"),

nl, write(" 3 :- Меню"), nl,

nl, write(" ------| |------"),

cursor(6,13), readchar(X), correct(X),

removewindow, go, !.

do('5') :-

makewindow(4,18,1," Удаление записи попризнаку ",5,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), del(X),

removewindow, go, !.

do('6') :-

makewindow(4,18,1," Создать базу попризнаку ",5,25,9,30),

framewindow(19),

write(" Какую базу создать ?"), nl,

nl, write(" 1 :- B1"),

nl, write(" 2 :- B2"),

nl, write(" 3 :- Меню"), nl,

nl, write(" ------| |------"),

cursor(6,13), readchar(X), indication(X),

removewindow, go, !.

do('7') :-

makewindow(4,18,1," Добавить запись кглавной базе ",7,10,13,60),

framewindow(19), adding,

removewindow, go, !.

do('8') :-

makewindow(4,95,1,«Запрос»,10,29,5,22), nl,

framewindow(94),

write(" Выйти? (Yes/No)"), readchar(X),

X='y', exit;

removewindow, go, !.

do(_) :-

makewindow(4,76,1,«Ошибка»,8,29,5,22),

framewindow(75), nl,

write(" Выберите из меню"),readchar(_),

removewindow, go.

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

open('1') :-

makewindow(5,95,1,«Загрузкаbd»,7,20,10,40),

framewindow(94), nl,

write(" Имя файла: "),readln(FN),

exists(FN), consult(FN, bd),

nl, write(" Загружено"),readchar(_), removewindow, !.

open('2') :-

makewindow(5,95,1,«Загрузкаb1»,7,20,10,40),

framewindow(94), nl,

write(" Имя файла: "),readln(FN),

exists(FN), consult(FN, b1),

nl, write(" Загружено"),readchar(_), removewindow, !.

open('3') :-

makewindow(5,95,1,«Загрузкаb2»,7,20,10,40),

framewindow(94), nl,

write(" Имя файла: "),readln(FN),

exists(FN), consult(FN, b2),

nl, write(" Загружено"),readchar(_), removewindow, !.

open('4') :-

!.

open(_) :-

makewindow(5,76,1,«Ошибка»,8,29,5,22),

framewindow(75), nl,

write(" Выберите из меню"),readchar(_),

removewindow, removewindow, do('1').

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

store('1') :-

makewindow(5,95,1,«Сохранениеbd»,7,20,10,40),

framewindow(94), nl,

write(" Имя файла: "),readln(FN), save(FN, bd),

nl, write(" Сохранено"),readchar(_), removewindow, !.

<spa

еще рефераты

Еще работы по программированию, базе данных

Реферат по программированию, базе данных

Программа сложной структуры с использованием меню

29 Августа 2013

Реферат по программированию, базе данных

Расчётно-пояснительная записка к курсовой работе по ОМПТ

29 Августа 2013

Реферат по программированию, базе данных

Разработка программного обеспечения решения нелинейных уравнений

29 Августа 2013

Реферат по программированию, базе данных

Резидентный обработчик клавиатуры (перехват нажатий клавиш и запись в файл)

29 Августа 2013