Изучение программного обеспечения, необходимого для организации оперативного управления предприятия

для непрерывного контроля помещения и зоны хранения носителей информации установлена система обнаружения пожаров. Для этого использованы комбинированные извещатели типа КИ-1. Эта система сконструирована так, что обеспечивает отключение систем питания и кондиционирования воздуха. В сочетании с системой обнаружения используется система звуковой сигнализации. [30]

Меры пожарной безопасности, определенные в ГОСТ 12.1.004-85

выполняются.

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

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

Общая освещенность рабочего кабинета в течение рабочего дня в среднем составляет 452 лк, на уровне 0,8 м от пола, что соответствует СанПиН 2.2.2.542-96. Сочетание естественного и искусственного освещения обеспечивает оптимальную освещенность.

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

Заключение

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

Основным результатом дипломного проектирования является разработка, на основе использования современных CASE- технологий, информационной подсистемы, автоматизирующей ведение баз данных планового отдела СПК колхоз «Гигант».

В результате дипломного проектирования было показано, что:

- полные затраты на создание программного продукта- 41280,25 руб.;

годовой эффект от внедрения программного продукта составляет 39895,00 руб.;

чистый дисконтированный доход за 4 года использования программного продукта равен 39895,00 руб.;

срок окупаемости проекта 1,03 года;

после внедрения программного продукта ежемесячные затраты времени специалиста планового отдела СПК колхоз «Гигант» на ведение базы данных сократились примерно в 7 раз.

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

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

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

Список использованных источников

1. Устав СПК колхоз «Гигант», Сотниковское, 2006. - 135 с.

2. Петров В.Н. Информационные системы =СПб.: Питер, 2012 г. - 688с.:ил.

3. Оливер В.Г. IP-сети: Стратегическое планирование корпоративной ИВС - М.: Питер, 2011.

4. Хомоненко А.Д. Базы данных. =СПб.: «КОРОНА принт», 2010 г.

5. Бережная Е.В, Бережной В.И. Математические методы моделирования экономических систем: Уч. пособие. -М.: Финансы. и статистика, 2011.-368 с.

6. Острековский В.А. Информатика: Учебник для вузов.- М.: Высшая школа, 2011. - 511с.;

7. Советов Б.Я. Информационная технология: Учеб. для вузов по спец. «Автоматизир. системы обработки информ. и упр.». - М.: Высшая школа, 2012.

8. Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений. - СПб.: КОРОНА принт, 2009.

9. Глушаков С.В., Ломотько Д.В. Базы данных: Учебный курс. - Харьков: Фолио; М.: ООО "Издательство АСТ", 2008.

10. Косарев В.П. Компьютерные системы и сети.М.: Финансы и статистика, 2010

11. Дейт, К., Дж. Введение в системы баз данных, 7-е издание: Пер. с англ. - М.: Издательский дом "Вильямс", 2009.

12. Дунаев С. Доступ к базам данных и техника работы в сети. =М.: Диалог -=МИФИ, 2008 г.

13. Автоматизированные информационные технологии в экономике: Учебник/ Под ред. проф. Г.А. Титоренко - М.: ЮНИТИ, 2011 г. - 399с.

14. Голицына О.Л., и др. Базы данных: Учебное пособие. - М.: ИНФ А-М, 2011. - 352 с.

15. Р. Стивинс. Программирование баз данных. Пер.с англ. -М.: ООО «Бином - Пресс», 2009.-384 с.

16. Автоматизированные информационные технологии в экономике [Текст]: Учебник/Под ред. проф. Г.А. Титоренко. ? М.: Компьютер, ЮНИ- ТИ, 2008.

17. Маклаков, С.В. BPwin и ERwin. CASE-средства разработки информационных систем [Текст]/ С.В. Маклаков. ? М.: ДИАЛОГ-МИФИ, 2010.

18. Чекалов, А. Базы данных: от проектирования до разработки приложений [Текст]/ А. Чекалов. - СПб.: БХВ. ? Петербург, 2009. - 340 с.

19. Архангельский, А. Я. Программирование в Delphi [Текст] / А. Я. Архангельский. - М.: ООО «Бином-Пресс», 2007. - 1152 с.

20. Тейксера, Стив, Пачеко, Ксавье. Borland Delphi 6 [Текст] / Стив Тейксера, Ксавье Пачеко. Руководство разработчика. : Пер. с англ. - М.: Издательский дом «Вильямс», 2010. - 1120 с..

21. Баженова, И. Ю. Delphi 7 Самоучитель программиста [Текст] / И. Ю. Баженова. - М.: Кудиц-Образ, 2011. - 436 с.

22. Культин, Н. Б. Основы программирования в Delphi 7 [Текст] / Н. Б. Культин. - СПб.: БХВ-Петербург, 2012. ? 608 с.

23. Гофман, В.Э, Хомоненко, А. Д. Delphi 5 [Текст] / В.Э. Гофман, А. Д. Хомоненко. - СПб.: БХВ, 2008. ? 800 с.: ил.

24. Тейксера Стив, Пачеко Ксавье. Borland Delphi 5. Руководство разработчика. : Пер. с англ. - М.: Издательский дом «Вильямс», 2009. - 817 с..

25. Кандзюба, С. П., Громов, В. Н. Delphi 6. Базы данных и приложения. Лекции и упражнения [Текст] / С. П. Кандзюба, В. Н. Громов. - К.:Издательство «ДиаСофт», 2007. - 576 с.

26. Епанешников, А. М., Епанешников, В. А. DELPHI. Программирование СУБД [Текст] / А. М. Епанешников, В. А. Епанешников. - М.: ДИАЛОГ-МИФИ, 2011 - 528 с.

27. Коробкин, В.И., Передельский Л.В. Экология [Текст]/ В.И. Коробкин. - Ростов-на-Дону, «Феникс», 2010 - 576 с.

28. Федеральный закон «Об охране окружающей среды» Вып. 5[Текст]/ - М.: Инфра-Н, 2012, - 51 с.

29. Гарин, В.М. и др. Экология для технических вузов [Текст]/ В.М. Гарин. ? Ростов н/Д: «Феникс», 2007. - 384 с.

30. Инженерная экология: Учебник [Текст] / Под ред. В. Т. Медведева. ? М.: Гардарики, 2012. - 687 с.

31. Розанов, С.И. Общая экология: Учебник [Текст]/ С.И. Розанов. ? СПб., «Лань». - 2012. - 288 с.

Приложение

Рисунок 1 - Организационная структура Общества

Листинг- Основные компоненты, с которыми нам предстоит работать при создании приложения

procedure Topen.BitBtn1Click(Sender: TObject); begin

ADOQuery1.Active:=true; ADOQuery2.Active:=true;

ADOQuery3.Active:=true; ADOQuery4.Active:=true;

ADOQuery5.Active:=true; ADOQuery6.Active:=true;

ADOQuery7.Active:=true; ADOQuery8.Active:=true;

ADOQuery9.Active:=true; ADOQuery10.Active:=true; ADOQuery11.Active:=true; ADOQuery12.Active:=true; ADOQuery13.Active:=true; open.Close;

ShowMessage('Соединение успешно установлено'); end;

procedure Topen.BitBtn2Click(Sender: TObject);

begin open.Close; end;

procedure Topen.Button1Click(Sender: TObject); begin

adoconnection1.Connected:=false; ADOQuery1.Active:=false;

DOQuery2.Active:=false; ADOQuery3.Active:=false;

DOQuery4.Active:=false; ADOQuery5.Active:=false;

DOQuery6.Active:=false; ADOQuery7.Active:=false;

DOQuery8.Active:=false; ADOQuery9.Active:=false;

DOQuery10.Active:=false; ADOQuery11.Active:=false;

DOQuery12.Active:=false; ADOQuery13.Active:=false;

If OpenDialog1.Execute then begin FilePath:=Opendialog1.FileName; Edit1.Text:=Opendialog1.FileName;

end;

adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Dat a Source=' +FilePath+';Persist Security Info=False';

ADOConnection1.LoginPrompt := False;

ADOConnection1.Connected:=true;

ADOQuery1.Connection:=adoconnection1; ADOQuery2.Connection:=adoconnection1;

ADOQuery3.Connection:=adoconnection1;

ADOQuery4.Connection:=adoconnection1;

ADOQuery5.Connection:=adoconnection1;

ADOQuery6.Connection:=adoconnection1;

ADOQuery7.Connection:=adoconnection1;

ADOQuery8.Connection:=adoconnection1;

ADOQuery9.Connection:=adoconnection1;

ADOQuery10.Connection:=adoconnection1;

ADOQuery11.Connection:=adoconnection1;

ADOQuery12.Connection:=adoconnection1;

ADOQuery13.Connection:=adoconnection1; end;

end.

Листинг- Пример для месяца январь

procedure Tanaliz.Button1Click(Sender: TObject); //январь begin

DBGrid1.DataSource:=open.DataSource1; bool1:=true;

bool2:=false; bool3:=false; bool4:=false; bool5:=false; bool6:=false;

ool7:=false; bool8:=false; bool9:=false; bool10:=false; bool11:=false;

ool12:=false; end;

и далее if bool1 then begin

(например, функция удаления) open.ADOQuery1.Delete;

end; end.

Листинг- Кнопка экспорт в Exсel procedure Tanaliz.Button15Click(Sender: TObject); begin

ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.Visible := true; ExcelApp.WorkBooks.Add(-4167);

ExcelApp.WorkBooks[1].WorkSheets[1].name := 'analiz_raboti';

heet:=ExcelApp.WorkBooks[1].WorkSheets['analiz_raboti']; index:=1;

DBGrid1.DataSource.DataSet.First;

for i:=1 to DBGrid1.DataSource.DataSet.RecordCount do begin

for j:=1 to DBGrid1.FieldCount do sheet.cells[index,j]:=DBGrid1.fields[j-1].asstring; inc(index);

DBGrid1.DataSource.DataSet.Next; end;

end.

Листинг- экспорт значений компонента «dbgrid» в Excel таблицу

procedure Tanaliz.Button15Click(Sender: TObject); begin

ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.Visible := true; ExcelApp.WorkBooks.Add(-4167);

ExcelApp.WorkBooks[1].WorkSheets[1].name := 'analiz_raboti'; sheet:=ExcelApp.WorkBooks[1].WorkSheets['analiz_raboti']; index:=1;

DBGrid1.DataSource.DataSet.First;

for i:=1 to DBGrid1.DataSource.DataSet.RecordCount do begin

for j:=1 to DBGrid1.FieldCount do sheet.cells[index,j]:=DBGrid1.fields[j-1].asstring; inc(index);

DBGrid1.DataSource.DataSet.Next; end;

end.

Размещено на Allbest.ru