Разработка информационно-поисковой системы «Ювелирные изделия»

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 

Заголовок с абзаца, пронумероватьТехническое задание на разработку программы информационно-

поисковой системы  «Ювелирные изделия» 

1. Общие сведения

 
 

• Полное  наименование системы и ее условное обозначение

 
 
 

      Полное  наименование системы: «Информационно-поисковая  система «Ювелирные изделия». 
 
 

• Наименование  предприятия разработчика системы и его реквизиты

 
 
 

     Студентка 2 курса Полубоярова Ольга Александровна, обучающаяся по специальности «Автоматизированная обработка информации и управление», Усть-Илимского филиала Красноярского Государственного Технического Университета (УИФ КГТУ). 
 
 

• Плановые сроки начала и окончания работы

 
 
 

      Плановые  сроки начала работы 12 сентября 2006 г. и окончания работы по созданию системы 12 декабря 2006 г. 
 

2. Назначение  и цели создания подсистем

 
 

• Назначения  подсистемы

 
 
 

      Подсистема  “Информационно-поисковая система “Ювелирные изделия” предназначена для автоматизации процесса ведения базы данных (БД), для уменьшения затрат связанных со временем, редактированием и поиском необходимой и точной информации по конкретному программному обеспечению, что является целью создания ИПС. 
 

• Цели создания подсистемы

 
 
 

      “Информационно-поисковая  система “Ювелирные изделия” создается с целью упрощения поиска и сортировки программного обеспечения.

3. Требования  к структуре и функционированию  системы

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

 
 
 

      Поддержка информационной деятельности, при выполнении операций осуществляется прикладными  модулями. Доступ к свойствам ИПС  со стороны пользователя осуществляется через «Главное меню» программного продукта, основное назначение заключается в организации помощи пользователю в поиске нужного программного обеспечения.

      Для обеспечения функционирования ИПС  хранения данных должны быть реализованы следующие прикладные модули:

      - модуль данных сведения о программном обеспечении. Сформулировать одно предложения без списка 
 
 

      3.2. Задачи и функции 
 
 

      Целью ИПС является автоматизация процессов, включающих в себя операции учета программных продуктов, более легкий и универсальный доступ к данным об этих продуктах; простое и удобное пользование программой. Необходимо реализовать в готовом программном продукте автоматизацию таких операций, как: 

• формирование списка изделий;
• информация о стоимости ювелирных изделий;
• поиск по базе данных;
• сортировка;
• редактирование.

 

       3.3 Требования к техническому  обеспечению

 
 
 

      Комплекс  технических средств (КТС) должен состоять из следующих видов аппаратного обеспечения:

• рабочая станция пользователя ИПС;

Сформулировать  одно предложение без списка

Минимальные требования:

 

      Оформить таблицу по гостам: заголовок, номер, название, шрифт (жирность, курсив убрать) 
 

      3.4 Требования к  программному обеспечению

 
 
 

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

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

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

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

 

4. Текст программы текст программы оформить как приложение

 
 

• Текст основной программы

      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.

 
 
 
 
 
 
 
 
 
 
 
 
 
 

• Текст модуля 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('-------------------------------------------------');