Оглавление

1.   Электронные информационные технологии управления на предприятии. 3

2.   Уровни автоматизации управления на предприятии. 4

3.   Информационные технологии управления предприятием. 4

4.   Электронное документационное управление предприятием. 4

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

6.   Производственные задачи с использованием Internet, использование ресурсов Internet в работе предприятия. 4

7.   Организация обмена информацией в сети предприятия. 4

8.   Топология, структура сети, используемое сетевое оборудование корпоративной сети предприятия. 4

9.   Организация и оценка уровня эффективности системы защиты информации на предприятии. 4

10. Оценка экономической эффективности применения информационных технологий и систем на предприятии. 4

11. Организация хранения и поиска экономической информации (классификация СУБД, использование СУБД в управлении  предприятием) 4

12. Выводы и рекомендации по совершенствованию информационной структуры предприятия. 4

13. Индивидуальное задание. 4






1.    
Электронные информационные технологии управления на предприятии

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

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

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






2.    
Уровни автоматизации управления на предприятии

На предприятии автоматизировано:

·       Изготовление лекал;

·       Склад;

·       Учет готовой продукции;

·       Учет сырья;

·       Учет сотрудников;

·       Учет помещений;

·       Учет оборудования;

·       Заявки на работы и ремонты.





3.    
Информационные технологии управления предприятием

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

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




4.    
Электронное документационное управление предприятием

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

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





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

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




6.    
Производственные задачи с использованием Internet, использование ресурсов Internet в работе предприятия

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

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





7.    
Организация обмена информацией в сети предприятия

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





8.    
Топология, структура сети, используемое сетевое оборудование корпоративной сети предприятия

Топология построения сети на предприятии – звезда.

Используются оптические магистрали и медные витые пары в зданиях. В удаленных точках используется Wi-Fi. Активное сетевое оборудование – коммутаторы.


9.    
Организация и оценка уровня эффективности системы защиты информации на предприятии

Защита от проникновения из Internet – аппаратный шлюз и выделенный прокси-сервер с установленным антивирусом.

Защита от атак на рабочих местах – антивирус Касперского. Защита от несанкционированного доступа на рабочих местах – использование паролей. Защита от потери информации – ее централизованное хранение на сервере и резервное копирование.


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


11.          
Организация хранения и поиска экономической информации (классификация СУБД, использование СУБД в управлении  предприятием)

В качестве СУБД используется Informix, работает под управлением OS Linux.


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





13.          
 Индивидуальное задание
Цель задачи:

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



Рис. 1 Окно программы
Листинг программы:

unit Unit1;
interface
uses

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

  Dialogs, Grids, StdCtrls;
type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    StringGrid1: TStringGrid;

    OpenDialog1: TOpenDialog;

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
    massiv: TStringList;

    simvol,stroka,razmer: string;

    i,j,n,m,razm,temp: integer;

    arr: array [1..88,1..88] of integer;

    diagonal: array [1..88] of integer;
implementation
{$R *.dfm}
procedure TForm1.Button3Click(Sender: TObject);

begin

  application.Terminate;

end;
procedure TForm1.Button1Click(Sender: TObject);

begin

i:=0;

j:=1;

  if opendialog1.Execute then

    begin

      massiv:=TStringList.Create;

      massiv.LoadFromFile(OpenDialog1.FileName);

      razmer:=massiv.Strings[0];

    end;

  for n:=1 to length(razmer) do

    if razmer[n]<>' '

    then simvol:=simvol+razmer[n]

    else begin

      StringGrid1.ColCount:=StrToInt(simvol);

      StringGrid1.RowCount:=StrToInt(simvol);

      razm:=StrToInt(simvol);

    end;

  for n:=1 to massiv.Count-1 do

  begin

    stroka:=massiv[n]+' ';

    simvol:='';

    j:=1;

    inc(i);

    for m:=1 to length(stroka) do

    begin

      if stroka[m]<>' '

      then simvol:=simvol+stroka[m]

      else begin

        arr[i,j]:=StrToInt(simvol);

        inc(j);

        simvol:='';

      end;

    end;

  end;

  for i:=1 to razm do

  for j:=1 to razm do

  StringGrid1.Cells[j-1,i-1]:=IntToStr(arr[i,j]);
end;
procedure TForm1.Button2Click(Sender: TObject);

begin

  for i:=1 to razm do diagonal[i]:=arr[i,i];

  for i:=1 to razm do

  begin

    n:=diagonal[i];

    j:=i-1;

    while (j>=0) and (diagonal[j]>n) do

    begin

      diagonal[j+1]:=diagonal[j];

      j:=j-1;

      diagonal[j+1]:=n;

    end;

  end;

  for i:=1 to razm do

  StringGrid1.Cells[i-1,i-1]:=IntToStr(diagonal[i]);

end;
end.