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

Оглавление

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.