Процедура	Назначение
Procedure menu	Главное меню программы. Для выполнения действия нужно ввести цифру нужного пункта меню.
Procedure view	Вывод записей БД на экран
Procedure add	Запись типизированного файла и добавление в него следующих  записей: название, материал, цена.
Procedure delete	Удаление записей из файла базы данных.
Procedure edit	Редактирование данных в уже имеющихся в файле. Указывается номер записи для редактирования и производится редактирование записи
Procedure sort	Производит сортировку по заданному полю
Procedure search	Поиск записей по  выбранному параметру. Данные считываются из названия товара. Затем происходит поиск  в массиве, и если номер найден, то отображаются результаты поиска. Если  номер не найден, то выводится сообщение об этом.

          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;

 Else begin

 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. Сочетания клавиш для обращения к функциональным возможностям программы





8.Руководство программиста
Программный комплекс является гибким средством для управления базами данных, легко модифицируется для работы с базами данных, содержащими записи других структурных типов. Исполняемый файл программы имеет имя MAIN.



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

Информационно-поисковая система «Ювелирные изделия» - это удобное в использовании и в то же время мощное, функциональное и высоконадежное средство ведения коллекции программ.

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

Выровнять по ширине

Список использованной литературы
1.         В. В. Фаронов «Turbo Pascal 7.0» М.: «Нолидж», 2000г. – 576 с.: ил.

2.         С. Немнюгин, Л. Перколаб «Изучаем Turbo pascal» С-П.: ЗАО Издательский дом «Питер», 2003г. – 320 с.: ил.

3.         О.А.Полубоярова «Конспект лекций по ТРПО» У-И.: «УИФКГТУ», 2006г. – 59с.: ил.

На защиту предоставишь всю литературу которой пользовалась