Загрузка...
Учебная работа. Реферат: Разработка информационно-поисковой системы Ювелирные изделия
КУРСОВАЯ РАБОТА
ИНФОРМАЦИОННО- ПОИСКОВАЯ СИСТЕМА
«ЮВЕЛИВНЫЕ ИЗДЕЛИЯ»
Выполнила: студентка. гр. автоматизаторов
Проверил: Преподователь
Усть-Илимск 2007
Перв. примен.
Федеральное агентство по образованию
Филиал Федерального муниципального учреждения
высшего проф образования
«Сибирский федеральный институт»
в г. Усть-Илимске
Кафедра информатики
ЗАДАНИЕ
На курсовую работу
По дисциплине: «Разработка программирования»
Студент:
Задание: Создать информационно-поисковую систему «Ювелирные изделия». Средством разработки является язык программирования Pascal.
Дата выдачи: 12.09.06. Срок сдачи: 4.12.06
Календарный план
№
Наименование разделов
Сроки
Процент выполнения
Дата контроля
Начало
Конец
План
Факт.
1
Выбор темы. Составление плана работы
12.09.06
18.09.06
5%
2
Создание технического задания
18.09.06
02.10.06
10%
3
Создание теоретического материала
10%
4
Разработка программки. Тестирование и отладка
25.09.06
13.11.06
50%
5
Оформление отчета
13.11.06
04.12.06
15%
6
Норма-контроль
04.12.06
11.12.06
5%
7
защита
5%
Задание принял:_______
Оценка________ Управляющий:________ «__»_______20__г.
Справ. №
Подпись и дата
Инв. № дубл.
Взам. инд №
Подпись и дата
520100 ДФ 230102 КР ПЗ
Изм
Лист
№ докум.
Подпись
Дата
Инв.№ подл.
01,06,07
Курсовая работа
«Информационно поисковая машина «Ювелирные изделия»
объяснительная записка
Литера
Лист
Листов
2
35
Содержание
Введение………………………………………………………………………4
1 структура программного обеспечения………………………………… 5
2 Анализ и спецификация задач …………………………………………..6
3 Техническое задание ……………………………………………….……9
4 текст программки…………………………………………………………15
5 Тестирование…………………………………………………………….29
6 Управление юзера ……………………………………………..30
7 Управление программера …………………………………………….31
Заключение……………………………………………………………………32
Перечень использованных источников………………………………………..33
Введение
В наше время возникает больше разных компаний, занимающихся созданием и продажей ювелирных изделий. И если посмотреть на перечень всех изделий, то не хватит и 1-го и 10-ка листов, чтоб уместить весь перечень ювелирных изделий. И все тяжелее становится находить нужные изделия в Вебе, в магазинах.
Чтоб посодействовать рядовому юзеру отыскать и обусловиться с выбором какого-нибудь ювелирного изделия и была сотворена СУБД «Ювелирные изделия», которая при должном заполнении может содержать изделия, легкий поиск и сортировка записей, возможность прибавления и редактирование имеющихся записей.
Потому создание СУБД, созданной для данной для нас цели, – беспристрастная Потребность для широкого круга юзеров.
Целью сотворения информационно-поисковой системы «Ювелирные изделия» является упрощение действий юзера по ведению коллекции изделий с реализацией широкого круга способностей по ее просмотру и редактированию: добавление, изменение и удаление, поиск, сортировка, форматный вывод записей из базы данных.
Разработанная ИПС обязана обеспечивать высочайший уровень быстродействия и надежности в осуществлении всех многофункциональных способностей. ИПС «Ювелирные изделия» может применяться как в организациях, так и личными лицами. Для ее использования не требуется особенных познаний в области программного обеспечения, довольно только наличие исходных познаний и умений по использованию компа, по этому системой могут воспользоваться представители разных возрастных категорий.
1. структура программного обеспечения
Программный комплекс «Ювелирные изделия» состоит из 2-ух частей: 1-го модуля и главный программки. Выровнять все по ширине
Модуль ukr – это многофункциональная часть программки. В нем реализуется объектный тип Jeverly для прибавления, конфигурации и удаления записей из файла, поиска и сортировки и т.д., объявляются типы, применяемые как типы полей создаваемого класса, разрабатываются вспомогательные функции преобразования. Модуль употребляется в главный программке.
Основная программка (main) употребляет вышеперечисленный модуль. Она реализует интерфейсную часть программки и взаимодействие с юзером.
Файл базы данных представляет собой структурированных файл, любая запись которого имеет тип Jeverly со последующими полями:
– SIsd (заглавие),
– SMat (Материал),
– SCena (стоимость),
– SBall (оценка),
Заглавие, материал, стоимость и оценка – это строчки схожей длины(80).
Для управления базой данных в программке употребляется основное меню, содержащее 7 пт: Просмотр, Добавить, Удалить, Редактировать, Поиск, Сортировать, Выход, для доступа к которым нужно надавить цифру, подобающую выбору юзера (0..6). словами
В связи с сиим, общая задачка разбита на подзадачи, которые реализованы в программке последующими подпрограммами:
— procedure menu;
— procedure view;
— procedure add;
— procedure delete;
— procedure edit;
— procedure sort;
— procedure search;
Предназначение каждой из этих подпрограмм описывается в разделе 3 «Описание подпрограмм».
2. анализ и спецификация переменных
2.1. спецификация переменных
Заглавия пишут с большенный буковкы
Раздел не начинают с таблицы
Таблица 1 – Спецификация переменных в главный программке
имя
Предназначение
Тип
Основная программка
ukr, crt
Инициализация модуля
-
key
Команда ввода меню
Char
name
инициализация текстового файла
String
Таблица 2 — Спецификация переменных головного модуля ukr.tpu
Jeverly
Тип записи в базе данных
record
isd
Заглавие продукта
string
mat
Материал изделия
string
cen
Стоимость изделия
integer
F
инициализация файла типа Jeverly
jeverly
name
инициализация текстового файла
String
Procedure MENU
h
Параметр конфигурации цвета
integer
Procedure VIEW
i
номера записи
Integer
data
Поля записи
jeverly
Procedure ADD
data
Служит для прибавления записи в таблицу
Jeverly
Procedure DELETE
del
Номер удаляемой записи
Integer
i
номера записи
Integer
data
Поля записи файла
Jeverly
G
файл для обмена данными с главным и
для упорядочивания Б.Д.
Jeverly
Procedure EDIT
ed
Номер редактируемой записи
Integer
i
номера записи
Integer
data
Поля записи файла
Jeverly
G
файл для обмена данными с главным и
для упорядочивания Б.Д.
Jeverly
Продолжение таблицы 2
имя
Предназначение
Тип
Procedure EDIT
i
Счетчик массива data
Integer
j
Счетчик массива data
Integer
count
Номер удаляемой записи
Integer
sortPole
Сортируемое поле
Integer
tmp
Редактируемое поле
data
Массив созданный для записи
Jeverly
G
файл для обмена данными с главным и
для упорядочивания Б.Д.
Jeverly
Procedure SEARCH
i
Счетчик массива
Integer
error
ошибка
Integer
tmp
Перевоплощенная срока из строчки в число
Integer
SearchString
Номер строчки для поиска
String
data
Поля записи файла
Jeverly
3. Описание подпрограмм
АбзацПодпрограммы, применяемые в основном модуле, описаны в таблице 3.
Таблица 3 – Подпрограммы головного модуля ukr.tpu
Процедура
Предназначение
Proceduremenu
основное меню программки. Для выполнения
деяния необходимо ввести цифру подходящего пт
меню.
Procedure view
Вывод записей БД на экран
Procedure add
Запись типизированного файла и добавление в него последующих записей: заглавие, материал, стоимость.
Procedure delete
Удаление записей из файла базы данных.
Procedure edit
Редактирование данных в уже имеющихся в файле. Указывается номер записи для редактирования и делается редактирование записи
Procedure sort
Производит сортировку по данному полю
Proceduresearch
Поиск записей по избранному параметру. Данные считываются из наименования продукта. Потом
происходит поиск в массиве, и
если номер найден, то показываются поисковые результаты. Если номер не найден, то
выводится сообщение о этом.
Заголовок с абзаца, пронумероватьТехническое задание на разработку программки информационно-
поисковой системы «Ювелирные изделия»
1. Общие сведения
1.1. Полное наименование системы и ее условное обозначение
Полное наименование системы: «Информационно-поисковая система «Ювелирные изделия».
1.2. Наименование компании разраба системы и его реквизиты
Студентка 2 курса Полубоярова Ольга Александровна, обучающаяся по специальности «автоматическая обработка инфы и управление», Усть-Илимского филиала Красноярского Муниципального Технического Института (УИФ КГТУ).
1.3. Плановые сроки начала и окончания работы
Плановые сроки начала работы 12 сентября 2006 г. и окончания работы по созданию системы 12 декабря 2006 г.
2. Предназначение и цели сотворения подсистем
2.1. Предназначения подсистемы
Подсистема “Информационно-поисковая система “Ювелирные изделия” создана для автоматизации процесса ведения базы данных (БД), для уменьшения издержек связанных со временем, редактированием и поиском нужной и четкой инфы по определенному программному обеспечению, что является целью сотворения ИПС.
2.2. Цели сотворения подсистемы
“Информационно-поисковая система “Ювелирные изделия” создается с целью упрощения поиска и сортировки программного обеспечения.
3. Требования к структуре и функционированию системы
3.1 Список прикладных модулей, их предназначение и главные свойства, требования к числу уровней иерархии и степени централизации системы
Поддержка информационной деятельности, при выполнении операций осуществляется прикладными модулями. Доступ к свойствам ИПС со стороны юзера осуществляется через «Основное меню» программного продукта, основное предназначение заключается в организации помощи юзеру в поиске подходящего программного обеспечения.
Для обеспечения функционирования ИПС хранения данных должны быть реализованы последующие прикладные модули:
модуль данных сведения о программном обеспечении. Сконструировать одно предложения без перечня
3.2. Задачки и функции
Целью ИПС является автоматизация действий, включающих в себя операции учета программных товаров, наиболее легкий и всепригодный доступ к данным о этих продуктах; обычное и комфортное использование программкой. нужно воплотить в готовом программном продукте автоматизацию таковых операций, как:
— формирование перечня изделий;
— информация о цены ювелирных изделий;
— поиск по базе данных;
— сортировка;
— редактирование.
3.3 Требования к техническому обеспечению
Комплекс технических средств (КТС) должен состоять из последующих видов аппаратного обеспечения:
— рабочая станция юзера ИПС;
Сконструировать одно предложение без перечня
(либо вычислительной системы) которое делает арифметические и логические операции данные программкой преобразования инфы управляет вычислительным действием и коор МГц
ОЗУ Мб
PentiumII
(333 MHz)
32
монитор“15” дюймов
Оформить таблицу по гостам: заголовок, номер, заглавие, шрифт (жирность, курсив убрать)
3.4 Требования к программному обеспечению
Программное обеспечение обязано быть детально документированным, содержать в собственном составе развитую систему подсказок, оперативной помощи и обеспечивать нужный и достаточный набор операций для реализации главных функций, выделенных по функционально-технологическому принципу.
Прикладное ПО обязано обеспечивать пользовательский интерфейс на российском языке.
абзацВ качестве операционной системы для рабочей станции юзера ИПС нет серьезных требований, в качестве системы управления базами данных употребляется BorlandPascal 7.0. В целях производственной необходимости требования к системному программному обеспечению по согласованию заказчика и исполнителя могут быть изменены с соответственной корректировкой технического задания.
Выровнять по ширине
4. текст программки текст программки оформить как приложение
4.1. Текст главный программки
uses crt, ukr;
var
{data: Jeverly;}
{ i, count: integer;}
key: char;
begin
clrscr;
name:=’asdad’;
{Основное меню: }
repeat
textcolor(2);
menu;
key:=readkey;
case key of
‘1’:
begin
view;
readkey;
end;
‘2’: add;
‘3’: delete;
‘4’: edit;
‘5’: Search;
‘6’: Sort;
‘0’: Exit;
end;
until (key=’0′);
readkey;
end.
4.2. текст модуля UKR.TRU
unit ukr;
interface
uses crt;
{Тип для хранения данных о ювелирных изделиях}
type
Jeverly = record
isd, mat: string;
cen: integer;
end;
{tdata = array[0..100]of Jeverly;}
{Описание переменных}
var
F: File of Jeverly;
name: string;
{Описание процедур}
procedure menu;
procedure view;{(var data: Jeverly);}
procedure add;
procedure delete;
procedure edit;
procedure search;
procedure sort;
implementation
{———————————————————————}
procedure menu;
begin
clrscr;
writeln(‘ ************ ЮВЕЛИРНЫЕИЗДЕЛИЯ ************ ‘);
writeln(»);
writeln(‘ 1. Просмотр’);
writeln(‘ 2. Добавить’);
writeln(‘ 3. Удалить’);
writeln(‘ 4. Редактировать’);
writeln(‘ 5. Поиск’);
writeln(‘ 6. Сортировка’);
writeln(‘ 0. Выход’);
end;
{———————————————————————}
{———————————————————————}
procedure view;
var
i: integer;
data: Jeverly;
begin
clrscr;
{$I-}
Assign(F, name);
Reset(F);
{$I+}
if IOResult<>0 then
begin
Rewrite(F);
clrscr;
Write(‘файл пуст!’);
Exit;
end
else
begin
if FileSize(F)=0 then
begin
Write(‘файл пуст!’);
Exit;
end
else
begin
Writeln(‘#’:3, ‘продукт‘:15, ‘Материал’:15, ‘Стоимость’:15); Writeln(‘#’:3, ‘продукт‘:15, ‘Материал’:15, ‘Стоимость’:15); Rewrite(F);
Writeln(‘————————————————-‘);
i:=0;
while not EOF(F) do
begin
Read(F, data);
Writeln(i:3, data.isd:15, data.mat:15, data.cen:15);
inc(i);
end;
end;
end; begin
Close(F);
end;
{———————————————————————}
while not EOF(F) do
{———————————————————————}
procedure add;
var
data: Jeverly;
begin
clrscr; begin
Write(‘Введите заглавие изделия: ‘);
Readln(data.isd);
Write(‘Введите материал, из которого изготовлено изделие: ‘);
Readln(data.mat);
Write(‘Введите стоимость изделия($): ‘);
Readln(data.cen);
{$I-}
Assign(F, name);
Reset(F);
{$I+}
if IOResult<>0 then
Rewrite(F)
else
begin
Seek(F, FileSize(F));
Write(F, data);
end;
Close(F);
end;
{———————————————————————}
while not EOF(F) do
{———————————————————————}
procedure delete;
var
del, i: integer;
data: Jeverly;
G: File of Jeverly;
begin
{$I-}
Assign(F, name);
Reset(F);
{$I+}
if IOResult<>0 then
begin
clrscr;
Write(‘Анечегоудалять!’);
readkey;
Exit;
end
else
begin
if FileSize(F)=0 then
begin
clrscr;
Write(‘файл пуст!’);
readkey;
Exit;
end
else
begin
view;
Writeln;
Writeln;
Write(‘Введитеномерудаляемойзаписи: ‘);
Readln(del);
Assign(G, ‘~temp~’);
Rewrite(G);
Assign(F, name);
Reset(F);
i:=0;
while not EOF(F) do
begin
Read(F, data);
if i<>del then
Write(G, data);
inc(i);
end;
Close(F);
Erase(F);
ReName(G, name);
end;
end;
end;
{———————————————————————}
{———————————————————————}
procedure edit;
var
ed, i: integer;
data: Jeverly;
G: File of Jeverly;
begin
{$I-}
Assign(F, name);
Reset(F);
{$I+}
if IOResult<>0 then
begin
clrscr;
Write(‘А нечего редактировать!’);
readkey;
Exit;
end
else
begin
if FileSize(F)=0 then
begin
clrscr;
Write(‘файл пуст!’);
readkey;
Exit;
end
else
begin
view;
Writeln;Writeln;
Write(‘Введитеномерредактируемойзаписи: ‘);
Readln(ed);
Assign(F, name);
Reset(F);
Seek(F, ed);
Read(F, data);
Writeln;
Write(data.isd, ‘ -> ‘);
Readln(data.isd);
Write(data.mat, ‘ -> ‘);
Readln(data.mat);
Write(data.cen, ‘ -> ‘);
Readln(data.cen);
Seek(F, ed);
Write(F, data);
Close(F);
end;
end;
end;
{———————————————————————}
{———————————————————————}
procedure sort;
var
i,j,count,sortPole: integer;
tmp: Jeverly;
data: array[0..20]of Jeverly;
G: File of Jeverly;
begin
{$I-}
Assign(F, name);
Reset(F);
{$I+}
if IOResult<>0 then
begin
clrscr;
Write(‘Сортировка невозможна!’);
readkey;
Exit;
end
else
begin
if FileSize(F)=0 then
begin
clrscr;
Write(‘файл пуст!’);
readkey;
Exit;
end
else
begin
clrscr;
Writeln(‘До сортировки…’);
Writeln;
view;
Writeln;
Writeln(‘Введите поле для сортировки:’);
Writeln(‘1: Заглавие 2: Material 3: Cena’);
Write(‘—> ‘);
Readln(sortPole);
Assign(F, name);
Reset(F);
count:=0;
while not EOF(F) do
begin
Read(F, data[count]);
inc(count);
end;
Close(F);
dec(count);
case sortPole of
1: begin
for i:=0 to count do
for j:=i+1 to count do
if data[i].isd[1]>data[j].isd[1] then
begin
tmp:=data[i];
data[i]:=data[j];
data[j]:=tmp;
end;
end;
2: begin
for i:=0 to count do
for j:=i+1 to count do
if data[i].mat[1]>data[j].mat[1] then
begin
tmp:=data[i];
data[i]:=data[j];
end;
end;
3: begin
for i:=0 to count do
for j:=i+1 to count do
if data[i].cen>data[j].cen then
begin
tmp:=data[i];
data[i]:=data[j];
data[j]:=tmp;
end
end;
Elsebegin
Write(‘Такового поля не существует!’);
Readkey;
Exit;
end
end;
ReWrite(F);
for i:=0 to count do
Write(F, data[i]);
Close(F);
Writeln;Writeln;
Writeln(‘Опосля сортировки…’);Writeln;
view;
Writeln;
Writeln;
Write(‘‘Сортировка закончена!!!’);
Readkey;
end;
end;
end;
{——————————————————————————}
{——————————————————————————}
procedure search;
var
i,error,tmp: integer;
searchString: string;
data: Jeverly;
begin
clrscr;
view;
Writeln;Writeln;
Write(‘Введите строчку для поиска: ‘);
Readln(searchString);
Writeln;Writeln(‘Результаты писка:’);
Writeln;
Writeln(‘#’:3, ‘Заглавие’:25, ‘Материал’:25, ‘Стоимость ($)’:10);
Writeln(‘————————————————‘);
Assign(F, name);
Reset(F);
i:=0;
while not EOF(F) do
begin
Read(F, data);
val(searchString,tmp,error);
if (data.isd=searchString) or (data.mat=searchString) or (data.cen=tmp) then
Writeln(i:3, data.isd:25, data.mat:25, data.cen:10);
inc(i);
end;
Close(F);
Readkey;
end;
{——————————————————————————}
end.
5. Тестирование
Раздел не начинают с рисунка. К нему долженбыть поясняющий текст, также как к таблицам
Набросок 1 – запрос поиска
Набросок 2 – Запрос параметра поиска
7. Управление юзера
Для доступа к многофункциональным способностям программки необходимо пользоваться одним из последующих вариантов: используя основное. Внедрение кнопок для воззвания к отдельным функциям программки представлено в таблице 3.
Таблица 4. Сочетания кнопок для воззвания к многофункциональным способностям программки
Пункт меню
Сочетание кнопок
Просмотр
1
Добавить
2
Удалить
3
Редактировать
4
Поиск
5
Сортировать
6
Выход
0
8.Управление программера
Программный комплекс является гибким средством для управления базами данных, просто модифицируется для работы с базами данных, содержащими записи остальных структурных типов. Исполняемый файл программки имеет имя MAIN.
Заключение
Результатом разработки программного комплекса сделалось создание системы, способной вести учет огромного числа ювелирных изделий. Поставленные в задании цели были достигнуты. Планы на реализацию были выполнены. Уровень свойства и быстродействия соответствует предъявленным требованиям.
Информационно-поисковая система «Ювелирные изделия» — это комфортное в использовании и в то же время массивное, функциональное и высоконадежное средство ведения коллекции программ.
Его применение не просит усилий со стороны юзера и огромных издержек ресурсов компа, что дозволяет употреблять его на всех компах, в всех организациях, людьми хоть какого возраста.
Выровнять по ширине
Перечень использованной литературы
1. В. В. Фаронов «TurboPascal 7.0» М.: «Нолидж», 2000г. – 576 с.: ил.
2. С. Немнюгин, Л. Перколаб «Изучаем Turbopascal» С-П.: ЗАО Издательский дом «Питер», 2003г. – 320 с.: ил.
3. О.А.Полубоярова «Конспект лекций по ТРПО» У-И.: «УИФКГТУ», 2006г. – 59с.: ил.
На защиту предоставишь всю литературу которой воспользовалась
]]>