База данных "Продуктовый магазин"

Размещено на http://www.allbest.ru

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

Федеральное государственное бюджетное образовательное учреждение

высшего профессионального образования

«Забайкальский государственный университет»

(ФГБОУ ВПО «ЗабГУ»)

Энергетический факультет

Кафедра информатики, вычислительной техники и прикладной математики

КУРСОВАЯ РАБОТА

по дисциплине «Программирование»

на тему База данных «Продуктовый магазин»

Выполнил студент группы ИВТ-12-1 Суслов Артём Игоревич

Руководитель работы: Яковлева Галина Михайловна

Чита

2013

Размещено на http://www.allbest.ru

РЕФЕРАТ

Пояснительная записка - 28 с., 5 рис., 1 табл., 3 источников, 1 прил.

БАЗА ДАННЫХ, МОДУЛЬ, TURBO PASCAL, ПРОЦЕДУРА, ФУНКЦИЯ, ДОМЕН, МАССИВ, СПИСОК, ФАЙЛ

В данной работе представлена реализация базы данных на языке высокого уровня Turbo Pascal 7.0 со следующими возможностями :

создание базы данных (таблицы);

открытие базы данных (таблицы);

сохранение базы данных (таблицы);

добавления в базу новых записей;

редактирования полей записей;

поиск по определённому домену, слову или части слова;

возможность выбора вывода на экран только необходимых доменов.

база данный алгоритм

СОДЕРЖАНИЕ

Введение

1 Теоретическая часть

1.1 Постановка и анализ задачи

1.1.1 Постановка задачи

1.1.2 Анализ задачи

1.1.3 Описание предметной области

1.1.4 Особенности хранения и обработки разрабатываемой базы

1.1.5 Иерархия целей и задач

1.2 Анализ данных

1.2.1 Входные данные

1.2.2 Внутренние структуры данных

1.2.3 Выходные данные

1.3 Анализ алгоритмов

1.4 Модульная структура программы

2 Специальная часть

2.1 Руководство пользователя

Заключение

Список использованных источников

Приложение



Введение

Современная жизнь немыслима без эффективного управления информацией. Восприятие реального мира можно соотнести с последовательностью разных, хотя иногда и взаимосвязанных, явлений. С давних времен люди пытались описать эти явления (даже тогда, когда не могли их понять). Такое описание называют данными.

Важной категорией программ сегодня являются системы обработки информации, основанные на базах данных (БД).

От данных информационной системы во многом зависит эффективность работы любого предприятия ли учреждения. Такая система должна:

- обеспечивать получение общих и/или детализированных отчетов по итогам работы;

- позволять легко определять тенденции изменения важнейших показателей;

- обеспечивать получение информации, критической по времени, без существенных задержек;

- выполнять точный и полный анализ данных.

Целью настоящей работы является анализ предметной области «Продуктовый магазин», проектирование и реализация учебной базы данных в указанной предметной области.

Для достижения поставленной цели необходимо решить следующие задачи:

- Анализ предметной области «Продуктовый магазин» ;

- Проектирование базы данных в указанной предметной области, включающее создание основной таблицы, и меню за счёт средств взаимодействия процедур визуального представления и процедур обработки данных;

Объектом данной работы учебная база данных предметной области «Продуктовый магазин».

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



1. Теоретическая часть

1.1 Постановка и анализ задачи

1.1.1 Постановка задачи

Задачей является написание базы данных в предметной области «Продуктовый магазин» на языке высокого уровня Turbo Pascal 7.0 со следующими возможностями :

Создание базы данных(таблицы);

Открытие базы данных(таблицы);

Сохранение базы данных(таблицы);

Добавления в базу новых записей;

Редактирования полей записей;

Поиск по определённому домену, слова или части слова;

Возможность выбора вывода на экран только необходимых доменов;

А также предоставление пользователю необходимой информации о работе с базой данных в виде справки.

1.1.2 Анализ задачи

На основе того, что среда Turbo Pascal является консольной, дополнительной задачей будет предоставление пользователю оконного интерфейса для удобной работы с данными. Следовательно разработку базы данных можно свести к разработке трёх следующих частей :

Оконная (предоставляет пользователю удобный для работы интерфейс);

Процедурная (содержит в себе процедуры, которые будут осуществлять взаимодействие с данными напрямую);

Управляющая (связывает оконную и процедурную части, реализуя уже компоненты, через которые пользователь может взаимодействовать с программой посредствам клавиш);

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

1.1.3 Описание предметной области

В данной работе будет рассматриваться база данных «Продуктовый магазин». Для того, чтобы в продуктовом магазине можно было вести учет, в базе данных необходимо будет создать 6 доменов:

ID-номер продукта (идентификатор продукта в самой программе, его порядковый номер) ;

Наименование продукта (данные о самом продукте: название, характеристика);

Код продукта (идентификатор продукта в учётной документации);

Дата выдачи (дата поступления продукта на склад магазина);

Цена (цена за определённое количество продукта в тех единицах, в которых о может измеряться);

Количество (количество единиц продукта, в зависимости от единиц в которых он измеряется);

Все эти домены необходимы для данной предметной области, именно поэтому в дальнейшем пользователю будет предоставляться возможность работы с каждым из них.

1.1.4 Особенности хранения и обработки разрабатываемой базы

Вследствие того, что база данных не имеет фиксированного размера, для быстрого взаимодействия с данными необходимо хранить их в области оперативной памяти. Это позволит увеличить скорость обработки данных в сравнении с хранением их на жестком диске, а также позволит расширить диапазон объема данных, с которым может работать Turbo Pascal (для жесткого диска - это область сегмента памяти - 64 КБ).



1.1.5 Иерархия целей и задач

Иерархия целей представлена на рисунке 1. Иерархия задач представлена на рисунках 2,3,4.

Рисунок 1 - Иерархия целей

Рисунок 2 - Иерархия задач



Рисунок 3 - Иерархия задач

Рисунок 4 - Иерархия задач

1.2 Анализ данных

1.2.1 Входные данные

Исходя из того, что база данных не имеет фиксированного размера, наиболее эффективным вариантом при работе с базой является хранение информации в так называемой «куче» (области оперативной памяти). После чего эту информацию уже можно записать на жесткий диск для её сохранения. Специально для работы с данными базы был создан динамический тип p_data, содержащий указательный тип записи ppp:

p_data=^ppp;

ppp=record

d1:word; { ID идентификатор продукта }

d2:string[255]; {Наименование продукта }

d3:string[50]; {Код продукта}

d4:string[10]; {Дата выдачи}

d5:string[20]; {Цена}

d6:string[10]; {Количество }

previous:p_data; {Адрес предыдущего элемента}

next:p_data; {Адрес следующего элемента}

end;

Из выше представленного фрагмента кода видно, что запись ppp несет в себе информацию о каждом домене и ссылку на предыдущий элемент и на последующий, таким образом, являясь структурной единицей данных базы.

С помощью типа p_data пользователь вносит данные в программу. Вот список основных переменных программы данного типа:

Head (головной элемент списка);

n_cur(последний созданный элемент списка);

cur(текущий элемент спискка);

s_head(головной элемент поискового списка);

s_cur(текущий элемент поискового списка);

buf_head(буферный элемент для сохранения указателя на голову исходного списка, при использовании поиска и создания поискового списка, который замещаяет собой исходный список);

buf_cur(буферный элемент списка для сохранения указателя на текущий элемент);

Для связи между промежуточным хранением данных базы и постоянным используется переменная f_str =file of string. Каждая строка из файла типа f_str заносится в основные поля данных записи последовательно, после чего создаётся новая запись связанная с предыдущей и процесс повторяется до тех пор, пока не закончится файл. Файл базы данных имеет следующий вид в системе «*.bd».

Также при создании базы данных или открытии уже существующей пользователю необходимо ввести её имя. Переменная, в которую оно записывается в основной программе, имеет имя namedb: string.

1.2.2 Внутренние структуры данных

Типы:

dom_mas=array[1..5] of boolean;

needm=array[1..6] of byte;

Переменные:

code: integer {Порядковый номер для создаваемого элемента в таблице, id идентификатор};

offset: integer {Смещение относительно первых восьми элементов, отображаемых в таблице};

f_n: integer {Определяет состояние программы. Принимает следующие значения: 0-нет базы, 1-база создана, 2-база открыта, 3-поиск дал результаты, -3-поиск не дал результатов};

lx,ly: byte {Являются координатами выделенного поля элемента и самого элемента относительно таблицы};

d_chb: byte {Количество выбранных пользователем доменов};

domsel: dom_mas {Массив, содержащий информацию о выбранных пользователем доменах для их отображения};

d_mb: needm {Массив, содержащий порядковые номера доменов, которые были выбраны пользователем для отображения};

Также при переходе в режим поиска, создается новый список, который замещает собой основной в следствии чего создается необходимость создания буфера основных переменных. Названия таких переменных состоят из приставки b_ и имени переменной.

Константы:

list_am:array[1..6] of byte=(6,25,9,10,11,8) {массив, содержащий количество ячеек отводимых под каждый домен};

LU=#218;

RU=#191;

LD=#192;

RD=#217;

Hor=#196;

Vert=#179;

LDU=#201;

RDU=#187;

LDD=#200;

RDD=#188; {Элементы для оформления окон, меню, таблицы}

DHOR=#205;

DVERT=#186;

LUHOR=#194;

LDHOR=#193;

LLVERT=#195;

LRVERT=#180;

FOUR=#197;

bkcol=0;

txtcol=15;

inbk=14; {Цветовая схема}

intxt=0;

keycol=9;

help_inf:array[1..12] of string=('If you read this text you are ready to know, one simple thing.', 'Since the moment when you start use my program, your mind submitted to me.',' And you are mine. All.','F1 - Help Information','F2 - Save DataBase','F3 - Open Database','Alt+X - Exit','F10 - Enter the menu','Esc - Exit the menu . Close the window . Output from search results','Arrow Keys - Move on tab in the menu or entry of DataBase','Tab - Move on tab in the window', 'Enter - Enter in window for edit entry in DataBase or enter tab in the menu or window')

{Текст справки по программе};

list_m:array[1..4] of string[10]=(' File ',' Search ',' Help ',' Go to ');

list_f:array[1..4] of string[15]=(' New ',' Open F3 ',' Save F2 ',' Exit Alt+X ');

list_s:array[1..2] of string[40]=(' Search '+#16+' ',' Domain Selection ');

list_us:array[1..5] of string[17]=(' Description ...',' Product code ',' Date of receipt ',' Commodity price ',' Amount ');

list_h:array[1..2] of string[15]=(' Information ',' HotKeys ');

list_c:array[1..4] of string[6]=(' Ok ','Cancel',' Help ',' Exit ');

list_cc:array[1..3] of string[6]=(' Ok ',' No ','Cancel');

list_d1:array[1..6] of string[25]=(' ID ',' Наименование ',' Код ',' Дата ', ' Цена ',' Количество ');

list_d2:array[1..6] of string[25]=(' ',' ',' продукта ','выдачи ', ' ',' '); {Информация, отображаемая в меню программы};

1.2.3 Выходные данные

Выходные данные представлены в виде файла с содержимым базы данных типа f_str, описанного ранее.

Информация в файл записывается в том случае, если только пользователь воспользуется функцией сохранения данных. Сохранение происходит обратно принципу считывания информации с файла, описанному ранее. Файл имеет название введенное пользователем и расширение «*.bp».

1.3 Анализ алгоритмов

В качестве примера для анализа алгоритма возьмём одну из основных процедур программы, отвечающую за вывод содержимого базы данных в виде таблицы. Эта процедура Base_Table, модуля Windows,которая является процедурой интерфейсной части и связывается с процедурной частью программы внутри своей структуры, что в свою очередь делает её уникальной среди интерфейсных процедур.

Входными данными данной процедуры являются следующие переменные:

ffset1:integer { Смещение относительно первых восьми элементов, отображаемых в таблице };

dommas5: dom_mas{ Массив, содержащий информацию о выбранных пользователем доменах для их отображения };

lgh1:byte {Количество отображаемых строк в таблице};

head5:p_data {Голова списка};

Вначале процедуры выполняется алгоритм расчета двух основных массивов и двух параметров, содержащих данные для правильной разметки таблицы. В первую очередь рассчитываются массив d_m:array[1..6] of byte, который содержит в себе номера тех доменов, которые будут отображаться и два параметра: amt1( содержит количество позиций отводимых под основные домены ) и d_ch1(количество отображаемых доменов ). Для расчета массива d_m применяется простой циклический алгоритм в основе которого лежит проверка значений массива dommas5 на истинность, и при постоянном приращении счетчика, его значение записывается в массив d_m в том случае, если значение массива dommas5 истинно. В этом же цикле рассчитываются и оба параметра, которые изменяются только при выполнении условия описанного ранее. Переменная amt1 изменяется каждый раз на определённое значение из массива list_am +1 (единица здесь учитывает место для прорисовки элемента очертания самой таблицы), в свою очередь значение, взятое из этого массива берётся от значения счётчика цикла. Переменная же d_ch1 увеличивается на единицу. Ниже приведен фрагмент кода описанного алгоритма.

amt1:=0;

d_ch1:=1;

d_m[1]:=1;

kk:=2;

for ii:=1 to 5 do

if dommas5[ii]=true then

begin

amt1:=amt1+list_am[ii+1]+1;

d_ch1:=d_ch1+1;

d_m[kk]:=ii+1;

kk:=kk+1;

end;

После чего идет заполнение массива sum1, который определяет положение границ столбца таблицы относительно начала таблицы. Алгоритм заполнения является циклическим. Каждый новый элемент заполняется на основе увеличения значения предыдущего элемента на величину из массива list_am. Ниже приведен фрагмент кода описанного алгоритма.

for ii:=1 to d_ch1 do

if ii=1 then Sum1[ii]:=list_am[ii] else

sum1[ii]:=sum1[ii-1]+list_am[d_m[ii]]+1;



Следующим шагом является прорисовка таблицы построчно. Это реализуется за счет двух видов циклических алгоритмов, которые схожи между собой по структуре. Первый вид алгоритма - это алгоритм прорисовки линий, разделяющих строки таблицы, который в свою очередь является циклическим. Цикл идёт до значения amt1+6, не доходя до самого крайнего положения, где будет стоять последний символ в таблице, оставляя тем самым место под прорисовку угла таблицы. Пока значение счетчика меньше или равно определённому значению из массива sum1, то прорисовываются горизонтальные линии, но когда значение становится больше, то прорисовывается знак связи горизонтальных разделительных линий таблицы и вертикальных, а счётчик от которого зависит массив sum1 увеличивается на единицу.

for ii:=1 to amt1+6 do

begin

if ii<=sum1[kk] then Write(hor) else

begin

Write(luhor);

kk:=kk+1;

end;

end;

Второй вид алгоритма отличается от первого тем, что, вместо знаков горизонтального разделения ставятся какие либо данные, а вместо знаков связи горизонтальных разделителей с вертикальными, ставятся знаки вертикального разделения. Данный алгоритм значительно проще и выполнен он виде цикла в котором просто прописываются данные, а после вертикальный разделитель. Ниже приведен фрагмент кода описанного алгоритма.



for ii:=1 to d_ch1 do

begin

Write(list_d1[d_m[ii]]);

Write(vert);

end;

Следующим шагом станет основной алгоритм данной процедуры, который собственно и взаимодействует с процедурной частью программы и выводит данные на экран. В цикле по количеству доменов, строковой переменной prostr5 присваивается значение функции Field_content(head5,d_m[ii],tt,offset1), которая проверяет есть ли информация в данном поле некоторой записи и если есть, то выдает значение этого поля, а если ничего нет, то выдает #1. Таким образом если в поле записи есть информация, то она выводится на экран, при этом если не хватает знаков для заполнения всего поля ячейки таблицы, то оставшееся место заполняется пробелами, в противном же случае поле ячейки просто заполняется пробелами, количество которых определяется значением массива list_am от переменной задающей порядковый номер домена. Ниже приведен фрагмент кода описанного алгоритма.

for ii:=1 to d_ch1 do

begin

prostr5:=Field_content(head5,d_m[ii],tt,offset1);

if (prostr5<>#1) and (prostr5<>#0) then

begin

Write(prostr5);

I f list_am[d_m[ii]]-length(prostr5)>0 then

for ooy:=1 to list_am[d_m[ii]]-length(prostr5) do

Write(' ');

end

else

for kk:=1 to list_am[d_m[ii]] do

Write(' ');

Write(vert);

end;

Остальные алгоритмы данной процедуры копируют предыдущие, поэтому их рассмотрение и анализ мы опустим. Просмотреть весь код описанной выше процедуры можно в Приложении А.

1.4 Модульная структура программы

Модульная структура программы представлена на рисунке 5. Название и назначение модулей приведено в таблице 1.

Рисунок 5 - Модульная структура программы

Таблица 1 - Описание функций основных модулей

Модуль	Назначение
Data_Base	Управляющая часть программы
Windows	Интерфейсная часть программы
DB_Procedures	Процедурная часть программы



2. Специальная часть

2.1 Руководство пользователя

Для начала работы с программой необходимо открыть уже существующую базу данных или создать новую. Это можно сделать нажав клавишу F10, перейдя в панель меню, и пользуясь курсорными клавишами и клавишей Enter выбрать в подразделе меню «Файл» функцию «Создать» или «Открыть». После этого программа попросит ввести имя базы данных(для случая с открытием это имя будет именем открываемого файла, причем если такого файла не существует программа выдаст ошибку). При введении имени вы можете полноценно пользоваться базой данных. Посредствам курсорных клавиш предоставляется возможность передвигаться по записям и их полям. При нажатии на клавишу Enter будет предоставлена возможность форматирования поля записи при этом передвигаться по компонентам окна можно с помощью клавиши Tab.

Переходя в панель меню можно также пользоваться функциями поиска и скрытия доменов. Поиск выполняется по одному из доменов, и программа находит вхождение слова или части слова в поле записи, и выводит на экран результаты в виде новой таблицы. С результатами поиска можно работать также как и с данными самой базы. Но при работе с результатами поиска отключена функция входа в панель меню, а также горячие сочетания клавиш. Для выхода из результатов поиска пользователю необходимо нажать клавишу Esc.

Справку пользователь может вызвать, нажав клавишу F1 или перейдя в одноименный пункт меню и выбрав нужный ему раздел. Справка содержит руководство пользователя, а также все горячие сочетания клавиш и значения всех управляющих клавиш.



Заключение

В ходе реализации данной работы были использованы основные знания и приемы структурного программирования на языке высокого уровня Turbo Pascal, результатом чего стало создание базы данных, развитие логического мышления, углубление понимания принципов программирования и развитие способности решать большие задачи, разбиением на более мелкие подзадачи.

Список использованных источников

Фаронов В. В. Turbo Pascal 7.0. Начальный курс: учебное пособие / Фаронов В. В. - Москва: ОМД Групп, 2003.- 616 с.

База данных [Электронный ресурс] // Электрон. текстовые дан. - Режим доступа

Программирование. Динамические списки Pascal-Паскаль [Электронный ресурс ] // Электрон. текстовые дан. - Режим доступа:



Приложение А

(справочное)

Procedure Base_Table(constoffset1:integer; vardommas5:dom_mas; lgh1:byte; head5:p_data);

var ii,kk,amt1,tt,ooy,d_ch1:byte; sum1:array[1..6] of byte; prostr5:string; d_m:array[1..6] of byte;

begin

Window(3,5,78,23);

clrscr;

amt1:=0;

d_ch1:=1;

d_m[1]:=1;

kk:=2;

for ii:=1 to 5 do

if dommas5[ii]=true then

begin

amt1:=amt1+list_am[ii+1]+1;

d_ch1:=d_ch1+1;

d_m[kk]:=ii+1;

kk:=kk+1;

end;

Window(3,4,amt1+10,24);

Write(lu);

kk:=1;

for ii:=1 to d_ch1 do

if ii=1 then Sum1[ii]:=list_am[ii] else

sum1[ii]:=sum1[ii-1]+list_am[d_m[ii]]+1;

for ii:=1 to amt1+6 do

begin

if ii<=sum1[kk] then Write(hor) else

begin

Write(luhor);

kk:=kk+1;

end;

end;

Write(ru);

if (offset1=0) then

begin

Write(vert);

for ii:=1 to d_ch1 do

begin

Write(list_d1[d_m[ii]]);

Write(vert);

end;

Write(vert);

for ii:=1 to d_ch1 do

begin

Write(list_d2[d_m[ii]]);

Write(vert);

end;

Write(llvert);

for ii:=1 to d_ch1 do

begin

for kk:=1 to list_am[d_m[ii]] do

Write(hor);

if ii<d_ch1 then Write(four) else write(lrvert);

end;

end;

for tt:=1 to lgh1 do

begin

Write(vert);

for ii:=1 to d_ch1 do

begin

prostr5:=Field_content(head5,d_m[ii],tt,offset1);

if (prostr5<>#1) and (prostr5<>#0) then

begin

Write(prostr5);

if list_am[d_m[ii]]-length(prostr5)>0 then

for ooy:=1 to list_am[d_m[ii]]-length(prostr5) do

Write(' ');

end

else

for kk:=1 to list_am[d_m[ii]] do

Write(' ');

Write(vert);

end;

if tt<lgh1 then

begin

Write(llvert);

for ii:=1 to d_ch1 do

begin

for kk:=1 to list_am[d_m[ii]] do

Write(hor);

if ii<d_ch1 then Write(four) else write(lrvert);

end;

end

else

begin

if offset1=0 then Write(ld) else Write(llvert);

for ii:=1 to d_ch1 do

begin

for kk:=1 to list_am[d_m[ii]] do

Write(hor);

if ii<d_ch1 then

begin

if offset1=0 then Write(ldhor) else Write(four)

end

else

begin

if offset1=0 then Write(rd) else write(lrvert);

end;

end;

end;

end;

end;

Размещено на Allbest.ru

...