СОДЕРЖАНИЕ
 Введение

1. Автоматизация деятельности предприятия.

1.1. Техническое обеспечение.

1.2. Математическое и программное обеспечение.

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

2.1. Организационно-экономическая сущность задачи.

2.2. Математическая формулировка задачи.

2.3. Алгоритм решения.

2.4. Условно-постоянная информация.

2.5. Выбор языка программирования.

3. Компьютерно-информационная технология.

3.1. Комплекс технических средств.

3.2. Программное обеспечение комплекса технических средств.

3.3. Организационно-методическое обеспечение.

4. Техника безопасности.

Заключение

Литература

Приложение
введение

Закрытое акционерное общество «НПВЛ Лиана» было основано в 1995 году. Юридическая регистрация по адресу г. Владимир ул. Б.Московская 57. Фактический адрес ул. Токарева 5.

Организация состоит из двух хозрасчетных отделов в соответствии с рисунком 1.





Рисунок 1
Компания первоначально возникла в 1992 году. До сегодняшнего дня сохранилась аббревиатура Научно Практическая Внедренческая Лаборатория ЛИАНА (Лабораторные Исследования и АНАлитика).

Все начиналось с программирования. Пакеты прикладных программ, разработанные специалистами лаборатории и сейчас работают на всем пространстве стран СНГ в центрах санэпиднадзора, органах охраны природы. Венцом работы тех лет явились договоры на компьютеризацию всех ЛПУ Узбекистана, программа компьютеризации  санэпидемслужбы Украины, исполнение ряда работ в рамках Российской программы охраны природы (так называемый Хасбулатовский проект). Постепенно, параллельно с программным обеспечением, лаборатория стала поставлять оргтехнику, являясь в то время официальным представителем компьютерной фирмы «ЛЭНД» (г. Москва)

С 1996 года стали собирать компьютеры под собственной торговой маркой и оказывать весь спектр услуг в нише компьютеризации (поставка товаров, расходным материалов, установка телекоммуникационного оборудования и т.п.). В1998 году создали совместное предприятие с компанией OLIVETTI (Италия), названное ЗАО «ОЛИВЕТТИ-ЛИАНА» для продвижения товаров OLIVETTI в нашем регионе.

На сегодняшний день ЛИАНА является официальным партнером таких фирм, как:

·                      Olivetti (дистрибьютор)

·                      Olivetti (авторизованный сервис-центр)

·                      Intel (интегратор продуктов Intel (IPI)

·                      Intel (авторизованный сетевой реселлер (ANR)

·                      View Sonic (авторизованный реселлер)

·                      APC (авторизованный дилер)

·                      APC (авторизованный сервис-центр)

·                      CANON (авторизованный дилер)

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

    Коллектив фирмы небольшой (около 40 человек) и сплоченный, понимает, что развитие ЗАО в его руках и поэтому упорно трудится.
Структура подразделений ЗАО «НПВЛ ЛИАНА» (рисунок 2):





Рисунок 2
1 Автоматизация деятельности предприятия

1.1 Техническое обеспечение

 Месторасположение, количество и характеристики вычислительной техники лаборатории представлены в таблице 1.
Таблица 1 - Вычислительная техника




Месторасположение соответствует рисунку 3.


Рисунок 3
               1.2 Математическое и программное обеспечение

Пакеты прикладных программ, используемых на предприятии, представлены в таблице 2.
Таблица 2 - Пакеты прикладных программ

Параметр	Значение
Конфигурация системного блока
Процессор	Intel Celeron or Pentium, MMX, ~400MHz
ОЗУ	32,0 МБ
Жесткий диск	IDE UDMA 66\7200
Дисковод	FLOPPY, ZIP, CD-ROM
Видеоадаптер	Intel i740
Периферийное оборудование
Монитор	Plug and Play
Клавиатура	Стандартная клавиатура 101/102
Мышь	PS/2 – совместимый порт для мыши
Принтер	EPSON Stylus COLOR 680

Наименование	Комментарии
Microsoft Excel 2000	Используется в разных отделах для редактирования price листов.
Paint	Создание рисунков к кнопкам
Среда разработки Delphi 5	Проектирование и программирование самой программы.
Windows XP	Операционная система, обеспечивающая работу всех приложений.

4 Техника безопасности

Общие требования безопасности

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

2      На рабочем месте необходимо соблюдать правила внутреннего распорядка, запрещается курить.

3      Необходимо помнить, что опасным фактором при работе является возможность поражения электрическим током напряжением 220/380В.

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

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

6      Обо всех случаях травмирования немедленно сообщать вышестоящему управляющему.

7      Оператор должен уметь оказывать первую помощь пострадавшему.

8      Оператору разрешается проводить на эксплуатируемом оборудовании только те операции, которые предусмотрены в инструкции по работе.

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

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

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

Требования безопасности во время работы

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

2. Запрещается:

- включать заведомо неисправное оборудование; - вскрывать оборудование;

- проводить профилактические работы (протирка и т.п.) при включенном оборудовании;

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

3. Продолжительность работы за монитором не должна превышать 4-х часов; через каждые 50 минут работы за монитором необходимо сделать перерыв на 10-15 минут для снятия напряжения мышц туловища и глаз.

Требования безопасности аварийных ситуациях

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

1) отключить электропитание оборудования;

2) сообщить в пожарную охрану о случившемся;

3) принять меры к тушению пожара первичными средствами пожаротушения. Запрещается использовать для тушения пожара в оборудовании воду.

2. В случае возникновения аварийной ситуации, связанной с разрывом трубопроводов отопления принять следующие меры:

- перекрыть неисправную часть трубопроводов вентилями и кранами, имеющимися в помещении; - отключить электропитание оборудования;

- сообщить дежурному сантехнику об аварии;

- принять меры к недопущению затопления оборудования.

3. В случае поражения электрическим током оказать пострадавшему первую помощь:

1) устранить воздействие на организм электрического тока (отключить электроэнергию, использовать резиновые перчатки или другие диэлектрические материалы);

2) определить характер и тяжесть травмы, наибольшую угрозу жизни пострадавшего и последовательность мероприятий по его спасению;

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

4) поддерживать основные жизненные функции пострадавшего до прибытия медицинского работника;

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

1. Выключить оборудование.

2. Привести в порядок рабочее место.

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

Заключение

 В связи с тем, что была выбрана такая универсальная среда разработки как Delphi 5, была написана универсальная, надежная и просто удобная в использовании программа. Продукт получился многоцелевой, т.к. ее можно использовать не только для price листов, но и для других таблиц такого же рода.

 Программа в данный момент используется в торговом отделе фирмы, менеджер лаборатории остался довольным и признал мой продукт полностью пригодным в их сфере. Результаты моей работы и кропотливого труда WEB дизайнеров ЗАО «НПВЛ ЛИАНА» можно посмотреть на сайте http://www.liananet.ru.

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

Литература

1.          Культин Н.Б. Программирование в Turbo Pascal 7.0 и Delphi. – 2-е изд., перераб. и доп. – СПб.: БХВ - Петербург, 2001. – 416 с.: ил.

2.           А. Я. Архангельский. Программирование в Delphi 6. – М.: ЗАО “Издательство БИНОМ”, 2002г. – 1120 с.: ил.

3.           Гусева А. И. Учимся программировать: PASCAL 7. 0. Задачи и методы их решения. – 2-е изд., перераб. и доп. – М.: “Диалог – МИФИ”, 1999. – 256 с.

4.           Канту М. Delphi 2 для Windows 95/NT. Полный курс. В 2-х томах. Том 1: Пер. с англ. – М.: Малип., 1997. – 400 с., ил.

5.           Гофман В. Э., Хомоненко А. Д. Delphi 6 – СПБ.:БХВ – Петербург, 2002.Наиболее полное руководство.

Приложение

program shower;

uses

  Forms,

  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin

  Application.Initialize;

  Application.CreateForm(TForm1, Form1);

  Application.Run;

end.

Unit Unit1;

Interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  ExtCtrls, StdCtrls, Buttons, ComCtrls, Gauges;

type

  TForm1 = class(TForm)

    Edit1: TEdit;

    label1: TLabel;

    OpenDialog1: TOpenDialog;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    SaveDialog1: TSaveDialog;

    ProgressBar1: TProgressBar;

    Label2: TLabel;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

    EFile : String;

    OFile : String;

    F     : TextFile;

  public

    { Public declarations }

    procedure CreateMovieTable;

  end;

var

  Form1: TForm1;

implementation

 uses

   rxStrUtils, Excel_Lbl, IniFiles;

{$R *.DFM}

procedure TForm1.CreateMovieTable;

var

  Listok : TStringList;

  E    : TAppExcel;

  S,St,L : String;

  I,j    : Integer;

  V    : Variant;

begin

  SaveDialog1.Execute;

  Listok := TStringList.Create;

  // Listok.Sorted := true;

  Listok.Duplicates := dupAccept;

(*  S := AnsiLowerCase(ParamStr(0));

  S := ReplaceStr(S,'.exe','.ini');

  EFile := '';

  if FileExists(S) then

    with TIniFile.Create(S) do begin

       S := ReadString('Base','Database','ERR');

       if S <> 'ERR' then EFile := S;

       S := ReadString('Base','OutFile','ERR');

       if S <> 'ERR' then OFile := AnsiLowerCase(S) else

         OFile := 'pictures.inc';

       Free;

    end else *)

//   if (EFile = '') or not FileExists(EFile) then begin

//     EFile := 'C:\Tmp\Nachalniy File\price33.xls';

//     OFile := 'pictures.inc';

     EFile := Edit1.Text;

     OFile := 'pictures.inc';

     if not FileExists(EFile) then begin

     MessageDlg('Укажите обрабатываемый файл (*.xls).', mtError, [mbOk], 0);

     Exit;

   end;

   E := TAppExcel.Create;

   E.OpenFile(EFile);

   I := 1;

   S := '';

   repeat

     E.GetValue(i, 1, V);

     S := V;

     if Trim(S) > '' then begin

  label2.Caption:='Чтение |';

  label2.Caption:='Чтение /';

  label2.Caption:='Чтение -';

  label2.Caption:='Чтение \';

  label2.Caption:='Чтение |';

  label2.Caption:='Чтение /';

  label2.Caption:='Чтение -';

  label2.Caption:='Чтение \';

       L := '';

       L := L + '<td class=ra >&nbsp;'+Trim(S)+'</td>';

       // цена первая

       E.GetValue(i, 2, V);

       St := V;

       if Trim(St)='' then St := '&nbsp';

       L := L + '<td class=rac>&nbsp;'+Trim(St)+'</td>';

       // цена вторая

       E.GetValue(i, 3, V);

       St := V;

       if Trim(St)='' then St := '&nbsp' else St :=trim(st) ;

       L := L + '<td class=rac>'+Trim(St)+'</td>';

       // ссылки

       E.GetValue(i, 4, V);

       St := V;

       if Trim(St)='' then St := '&nbsp'

        else St := '<a href='+St+'><img src=images\check.gif border=0></a>';

       L := L + '<td class=rac>'+Trim(St)+'</td>';

       Listok.Add(L+'</tr>');

       inc(i);

     end;

   until S = '';

   E.Free;

   label2.caption:='Запись';

   // вывод нормальный .inc

   AssignFile(F,SaveDialog1.Filename);

   Rewrite(F);

   for i := 0 to Listok.Count-1 do begin

     progressbar1.max:=listok.count*2;

     progressbar1.stepby(i);

     writeln(F,'<tr><td class=rac >'+IntToStr(i+1)+'</td>',Listok.Strings[i]);

    end;

   CloseFile(F);

   // вывод отсортированный .crt

   OFile := ReplaceStr(SaveDialog1.Filename,'inc','srt');//Замена inc на crt

   Listok.Sort;

   AssignFile(F,OFile);

   Rewrite(F);

   for i := 0 to Listok.Count-1 do begin

    progressbar1.StepBy(i);

     writeln(F,'<tr><td class=rac >'+IntToStr(i+1)+'</td>',Listok.Strings[i]);

     end;

    CloseFile(F);

   Listok.Free; //for j:=0 to 100 do begin

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

    SaveDialog1.FileName := 'pictures.inc';

    SaveDialog1.InitialDir := ExtractFilePath(ParamStr(0));

    Form1.CreateMovieTable;

    If Application.MessageBox('Готово. Закрыть программу?','Запись файла',mb_IconInformation+mb_YesNo)=6 then

       Form1.Close;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

   If OpenDialog1.Execute Then Edit1.Text:= OpenDialog1.FileName;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

   Edit1.Text := '';

end;

end.