Отчет по практике в ООО «Тоникс»

Рис.21. Результаты расчета оптимального размера партии заказа

 

 

 

 

 

 

 

 

 

 

 

4. Охрана труда

 

Работа разработчика и пользователя ЭИС непосредственно связана компьютером, а соответственно с дополнительным вредным действием целой группы факторов, к которым можно отнести:

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

б) действие электромагнитных излучений;

в) неправильная освещенность;

г) не нормируемый уровень шума;

д) не комфортные метеорологические условия;

е) высокое напряжение;

и другие факторы.

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

Рабочее место - это зона дополнения труда определенного работника или группы работников. Организация рабочего места должна отвечать требованиям безопасности, эргономики. Схема рабочего места  разработчика электронного учебника приведена на рис 22.

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

Рис 22. Рабочее место разработчика электронного учебника

1 - оконный прорез  во внешней стене помещения  для естественного света

2- дверной прорез; 3 - рабочий стол (1200*800 мм); 4 - персональный компьютер; 5 - печатающий устройство; 6 - кресло разработчика; шкаф; 8 - кондиционер; 9 - ограждение конструкции помещения (кирпич); 10 - звукоизоляция

 

Рациональная организация рабочего места (РМ) учитывает оптимальное планирование, степень автоматизации, выбор рабочей позы человека и др.

  Определим, с какими НШВФ  связана работа на рабочем месте в соответствии с классификацией по ГОСТ 12.0.003-74 приведенной выше.

Можно выделить следующие ОВПФ, что влияют на разработчика:

• физические НШВФ - шум оборудования, микроклиматические условия, освещенность;
• психофизиологические НШВФ - физические (статические, динамические) и нервно психологические (умственное перенапряжение, монотонность труда, эмоциональные перегрузки).

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

Следовательно, согласно Ден3.3.6.042-99 и ГОСТ 12.1.005-88 по степени физической тяжести роботу инженера-разработчика можно отнести к первой категории сложности, которая включает легкие физические работы, то есть работы, производимые сидя, стоя или связанные с ходьбой, но что не требуют систематического физического напряжения при поднятии и перенесении тяжести. Энергозатраты до 162 Дж/с. Основными нагрузками на организм является нагрузка нервно-психического характера. В связи с этим необходимо оберегать организм от переутомления. Большое значение в работе такого характера имеет комплекс производственной гимнастики, которая снижает переутомление и усталость.

Выводы

 

Целью данного дипломного проекта является разработка автоматизированной информационной системы для ООО ДК «Тоникс» - предприятия, работающей в сфере оптовой торговли спиртными напитками.

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

Основой задачей созданной в ходе выполнения данного дипломного проекта системы является учет и оперативное регулирование хозяйственных операций, подготовки стандартных документов для внешней среды ООО «Тоникс». Разработанная ЭИС выполняет все функции, которые на нее были возложены, соответствует требованиям эргономичности интерфейса, легко может быть модифицирована в сторону расширения функциональных возможностей. Отвечает современным требованиям, предъявляемым к прикладным программам, ориентированным на реализацию запросов пользователя.

В ходе выполнения дипломного проекта было доказано, что внедрение данного проекта в ООО «Тоникс» является экономически эффективным.

 

 

Cписок использованной литературы

 

1 Гофман В. Э., Хомоненко А. Д. Delphi. Быстрый старт. — СПб.: БХВ-Петербург, 2003. — 288 с.

2 Гофман В. Э., Хомоненко А. Д. Работа с базами данных в Delphi. — СПб.: БХВ-Петербург, 2001. — 656 с.

3 Боровский А. Н. Программирование  в Delphi 2005. — СПб.: БХВ-Петербург, 2005. - 448 с.

4 Дарахвелидзе П. Г., Марков Е. П. Delphi 2005 для Win32. - СПб.: БХВ-Петербург, 2005. - 1136 с.

5 Сорокин А. В. Delphi. Разработка баз  данных. — СПб.: Питер, 2005. — 477 с.

6 Фленов М. Е. Библия Delphi. — СПб.: БХВ-Петербург, 2004. — 880 с.

7 Фленов М. Е. Программирование в Delphi глазами хакера. — СПб.: БХВ-Петербург, 2003. - 368 с.

8 Фленов М. Е. Delphi в шутку и всерьез: что умеют хакеры (+CD). — СПб.: Питер. 2006. — 271 с.

9 Архангельский Л.Я. Delphi 2006. Справочное пособие: Язык Delphi, классы, функции Win32 и .NET. — М.: ООО «Бином-Пресс», 2006 г. — 1 152 с.

10 Фаронов В. В. Delphi 2005. Разработка приложений для баз данных и Интернета. — СПб.: Питер, 2006. — 603 с.

11 Карпова Т. С. Базы данных: модели, разработка, реализация. — СПб.: Питер, 2001. — 304 с.

12 Иллюстрированный самоучитель  по Delphi для начинающих. Электронное  пособие.

13 Иллюстрированный самоучитель  по Delphi для профессионалов. Электронное пособие.

 

 

 

Приложение

 

unit Main_Form;

 

interface

 

uses

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

  Dialogs, Menus, StdCtrls, DBCtrls, ExtCtrls, DB, Grids, DBGrids, DBTables,

  ComCtrls, jpeg, ADODB, ComObj;

 

type

  TFin_Form1 = class(TForm)

    MainMenu1: TMainMenu;

    N6: TMenuItem;

    Image1: TImage;

    Panel1: TPanel;

    ADOConnection1: TADOConnection;

    Image2: TImage;

    Crkfl1: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N9: TMenuItem;

    N11: TMenuItem;

    N12: TMenuItem;

    N13: TMenuItem;

    N14: TMenuItem;

    N15: TMenuItem;

    N16: TMenuItem;

    N1: TMenuItem;

    N2: TMenuItem;

    N7: TMenuItem;

 

    procedure N7Click(Sender: TObject);

 

 

 

    procedure N2Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure N11Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N14Click(Sender: TObject);

    procedure N15Click(Sender: TObject);

    procedure N16Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

 

 

   

   private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Fin_Form1: TFin_Form1;

 

implementation

 

uses Input_Form, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,

  Unit11, Unit12, Unit21, Sklad_Unit2, Sklad_Unit5, Sklad_Unit14,

  Sklad_Unit15, Sklad_Unit16, Sklad_Unit17, Sklad_Unit8, Sklad_Unit11,

  Unit1, Unit20;

 

{$R *.dfm}

function FormatData(s: String; i: Integer): String;

begin

  Result:=FloatToStr(Round(StrToFloat(s)*exp(i*ln(10)))/(exp(i*ln(10))));

end;

 

 

 

procedure TFin_Form1.N7Click(Sender: TObject);

begin

    Form20.Show;

end;

 

procedure TFin_Form1.N2Click(Sender: TObject);

begin

   Form1.Show;

end;

 

procedure TFin_Form1.N5Click(Sender: TObject);

begin

   Form5.Show;

end;

 

procedure TFin_Form1.N4Click(Sender: TObject);

begin

    Form2.Show;

end;

 

procedure TFin_Form1.N9Click(Sender: TObject);

begin

    Form8.Show;

end;

 

procedure TFin_Form1.N11Click(Sender: TObject);

begin

   Form11.Show;

end;

 

procedure TFin_Form1.N13Click(Sender: TObject);

begin

    Form14.Show;

end;

 

procedure TFin_Form1.N14Click(Sender: TObject);

begin

    Form15.Show;

end;

 

procedure TFin_Form1.N15Click(Sender: TObject);

begin

    Form16.Show;

end;

 

procedure TFin_Form1.N16Click(Sender: TObject);

begin

   Form17.Show;

end;

 

procedure TFin_Form1.N1Click(Sender: TObject);

begin

   if MessageDlg('Выйти?', mtInformation, [mbYes, mbNo], 0)=mrYes

    then  Fin_Form1.Close;

end;

 

procedure TFin_Form1.N8Click(Sender: TObject);

begin

    Form21.Show;

end;

 

end.

 

unit Sklad_Unit2;

 

interface

 

uses

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

  Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, DB, ADODB, ExtCtrls;

 

type

  TForm2 = class(TForm)

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    DBEdit1: TDBEdit;

    Label1: TLabel;

    Label2: TLabel;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    Label3: TLabel;

    Label4: TLabel;

    DBEdit4: TDBEdit;

    Label5: TLabel;

    DBEdit5: TDBEdit;

    Label6: TLabel;

    DBEdit6: TDBEdit;

    Label7: TLabel;

    DBEdit7: TDBEdit;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

 

implementation

 

uses Sklad_Unit3, Sklad_Unit4;

 

{$R *.dfm}

 

procedure TForm2.Button1Click(Sender: TObject);

begin

    Form3.Show;

end;

 

procedure TForm2.Button3Click(Sender: TObject);

begin

     Form4.Edit1.Text:=Form2.ADOTable1.FieldByName('Название').AsString;

     Form4.Edit2.Text:=Form2.ADOTable1.FieldByName('ИНН').AsString;

     Form4.Edit3.Text:=Form2.ADOTable1.FieldByName('Юр адрес').AsString;

     Form4.Edit4.Text:=Form2.ADOTable1.FieldByName('Факт адрес').AsString;

     Form4.Edit5.Text:=Form2.ADOTable1.FieldByName('Телефон').AsString;

     Form4.Edit6.Text:=Form2.ADOTable1.FieldByName('Емэйл').AsString;

     Form4.Edit7.Text:=Form2.ADOTable1.FieldByName('Реквизиты').AsString;

     Form4.Show;

end;

 

procedure TForm2.Button2Click(Sender: TObject);

var res: Integer;

begin

  res := MessageDlg('Вы уверены, что хотите удалить текущую запись?', mtInformation, [mbOk, mbCancel], 0);

  if res=mrOk then

   begin

    ADOTable1.DeleteRecords(arCurrent);

   end;

end;

 

end.

unit Sklad_Unit8;

 

interface

 

uses

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

  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls;

 

type

  TForm8 = class(TForm)

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form8: TForm8;

 

implementation

 

uses Sklad_Unit9, Sklad_Unit10;

 

{$R *.dfm}

 

procedure TForm8.Button1Click(Sender: TObject);

begin

    Form9.Show;

end;

 

procedure TForm8.Button2Click(Sender: TObject);

var res: Integer;

begin

  res := MessageDlg('Вы уверены, что хотите удалить текущую запись?', mtInformation, [mbOk, mbCancel], 0);

  if res=mrOk then

   begin

    ADOTable1.DeleteRecords(arCurrent);

   end;

end;

 

procedure TForm8.Button3Click(Sender: TObject);

begin

   Form10.Edit1.Text:=ADOTable1.FieldByName('Группа').AsString;

   Form10.Show;

end;

 

end.

 

unit Sklad_Unit11;

 

interface

 

uses

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

  Dialogs, DBCtrls, DB, ADODB, StdCtrls, Grids, DBGrids, ExtCtrls;

 

type

  TForm11 = class(TForm)

    Label2: TLabel;

    DBGrid2: TDBGrid;

    ADOTable1: TADOTable;

    DataSource1: TDataSource;

    ADOTable2: TADOTable;

    DBGrid1: TDBGrid;

    Label1: TLabel;

    DataSource2: TDataSource;

    DBNavigator1: TDBNavigator;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form11: TForm11;

 

implementation

 

uses Sklad_Unit12, Sklad_Unit13;

 

{$R *.dfm}

 

 

 

procedure TForm11.Button2Click(Sender: TObject);

var res: Integer;

begin

  res := MessageDlg('Вы уверены, что хотите удалить текущую запись?', mtInformation, [mbOk, mbCancel], 0);

  if res=mrOk then

   begin

    ADOTable2.DeleteRecords(arCurrent);

   end;

end;

 

procedure TForm11.Button3Click(Sender: TObject);

var gruppa:string;

begin

    Form13.Edit1.Text:=Form11.ADOTable2.FieldByName('Наименование товара').AsString;

    Form13.Edit2.Text:=Form11.ADOTable2.FieldByName('Цена').AsString;

    Form13.ADOTable1.Active:=True;

 

    while not Form11.ADOTable1.EOF do

      begin

       Form13.Combobox2.Items.Add(Form11.ADOTable1.FieldByName('Группа').AsString);

       Form11.ADOTable1.Next;

      end;

      Form13.ADOTable1.First;

      Form13.Combobox2.Text:=Gruppa;

   Form13.Show;

end;

 

procedure TForm11.Button1Click(Sender: TObject);

begin

    Form12.Show;

end;

 

end.

 

unit Sklad_Unit14;

 

interface

 

uses

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

  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Mask, DBCtrls, ComObj,

  ExtCtrls;