АСУ отдела информационных технологий

Установлены требования к двум группам  визуальных параметров:

1. Яркость, освещённость, угловой  размер знака и угол наблюдения;

2. Неравномерность яркости, блики,  мелькания, расстояние между знаками,  словами, строками, геометрические  и нелинейные искажения, дрожание  изображения и так далее.

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

Главное – совокупность определённых сочетаний значений основных визуальных параметров, отнесённых к первой группе требований.

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

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

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

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

 

 

Заключение

В процессе дипломного проектирования был проведен анализ деятельности ООО УКЦ «Интеграл»,занимающегося разработкой IT-проектов по заказам сторонних организаций и обслуживанием компьютерной техники. Изучены принципы ведения учета проектных работ, количественного учета поступления и расхода комплектующих и расходных материалов.

Разработана функциональная модель АСУ отдела информационных технологий с использованием CASE - средства BPWin, проведено инфологическое проектирование, разработана структура базы данных с использованием ERWin.

 Реализация системы  проведена с использованием СУБД  Microsoft ACCESS 2007, интерфейс приложения разработан в среде Borland Delphi 7.0.

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

Результатами разработки являются:

• информационное обеспечение АСУ в формате СУБД Access;
• пользовательский интерфейс АСУ, включающий экранные формы для работы со справочными, оперативными данными и отчетными данными;
• формы документов и отчетной документации для автоматизированной подготовки на рабочем месте требуемой информации;
• запросы, обеспечивающие формирование данных для первичных и отчетных документов;
• руководство пользователя.

Также был проведена оценка экономической эффективности разработки данной системы. Были определены этапы разработки системы и срок разработки, который составил 75 рабочих дней. Была рассчитана сумма затрат на разработку, она составила 64 583 рублей. Была рассчитана сумма ежемесячной экономии при использовании системы, она составила 13 657 рублей. Срок окупаемости проекта составил 5 месяцев с начала эксплуатации АИС. Таким образом, технико-экономический анализ показал, что разработка данного проекта является экономически целесообразной.

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

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

 

1. Вендров А. М. Проектирование  программного обеспечения   экономических   информационных   систем. — М.: Финансы и статистика, 2003. - 352 с.

2. Смирнова Г. Н. Проектирование  экономических информационных   систем /Г. Е. Смирнова,    А. А. Сорокин, 30. Ф. Тельнов. - М. : Финансы и статистика, 2003. –512 с.

3. Маклаков С. В. BPwin и  ЕRwin. CASE-средства разработки   информационных   систем. - М.: ДИАЛОГ-МИФИ, 2005. - 256 с.

4. САНПИН 2.2.2/2.4.1340-03 «Гигиенические  требования к персональным электронно-вычислительным  машинам и организации работы»

5. Басовский Л.Е. Финансовый  менеджмент. Учебник. – М.: ИНФРА-М, 2002. – 240с.

6. Конноли Т., Бегг К., Страчан  А. Базы данных: проектирование, реализация, сопровождение. Пер. с англ. – М.: издательский дом «Вильямс», 2004, 1120 с.

7. Фаронов В.В., Шумаков  П.В. Delphi. Руководство разработчика  баз данных. – М.: «Нолидж», 2001. 640 с.

8. Праг, Керри, Н., Ирвин,  Майкл, Р. Access 2002. Библия пользователя.: Пер. с англ. – М.: Издательский  дом «Вильямс», 2004. – 1216 с.: ил. –  Парал. Тит. Англ.

9. Жаров А. Железо IBM. –  М: «МикроАрт», 2004. – 336 с.

10. Гавердовский А. Концепция  построения систем автоматизации  документооборота// Открытые системы. - 2005. - №1. - с.29 – 34

11. Афанасьев А. Частные  реализации систем документооборота// Открытые системы. - 1997. - №1. - с.59 - 66.

  12. Конноли Т., Бегг  К., Страчан А. Базы данных: проектирование, реализация, сопровождение

Листинг Программы

Приложение А

 

program ASU;

uses

  Forms,

  UnMenu in 'UnMenu.pas' {FmMenu},

  UnDM in 'UnDM.pas' {DM: TDataModule},

  UnClient in 'UnClient.pas' {FmClient},

  UnManuf in 'UnManuf.pas' {FmManuf},

  UnType in 'UnType.pas' {FmType},

  UnMaster in 'UnMaster.pas' {FmMaster},

  UnComp in 'UnComp.pas' {FmComp},

  UnSet in 'UnSet.pas' {FmSet},

  UnHistory in 'UnHistory.pas' {FmHistory},

  UnFiltHist in 'UnFiltHist.pas' {FmFiltHist},

  UnProject in 'UnProject.pas' {FmProject},

  UnSProject in 'UnSProject.pas' {FmSProject},

  UnRate in 'UnRate.pas' {FmRate};

{$R *.res}

begin

  Application.Initialize;

  Application.CreateForm(TFmMenu, FmMenu);

  Application.CreateForm(TDM, DM);

  Application.CreateForm(TFmClient, FmClient);

  Application.CreateForm(TFmManuf, FmManuf);

  Application.CreateForm(TFmType, FmType);

  Application.CreateForm(TFmMaster, FmMaster);

  Application.CreateForm(TFmComp, FmComp);

  Application.CreateForm(TFmSet, FmSet);

  Application.CreateForm(TFmHistory, FmHistory);

  Application.CreateForm(TFmFiltHist, FmFiltHist);

  Application.CreateForm(TFmProject, FmProject);

  Application.CreateForm(TFmSProject, FmSProject);

  Application.CreateForm(TFmRate, FmRate);

  Application.Run;

end.

unit UnClient;

interface

uses

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

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

type

  TFmClient = class(TForm)

    Panel1: TPanel;

    Panel2: TPanel;

    Panel3: TPanel;

    Panel4: TPanel;

    GroupBox1: TGroupBox;

    DBNavigator1: TDBNavigator;

    BitBtn1: TBitBtn;

    DBGrid1: TDBGrid;

    DBEdit1: TDBEdit;

    Label1: TLabel;

    DBEdit2: TDBEdit;

    Label2: TLabel;

    DBEdit3: TDBEdit;

    Label3: TLabel;

    DBEdit4: TDBEdit;

    Label4: TLabel;

    DBEdit5: TDBEdit;

    Label5: TLabel;

    DBEdit6: TDBEdit;

    Label6: TLabel;

    BitBtn2: TBitBtn;

    RadioGroup1: TRadioGroup;

    Label7: TLabel;

    EditFind: TEdit;

    procedure Panel4Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure EditFindChange(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FmClient: TFmClient;

 

implementation

uses UnDM;

{$R *.dfm}

procedure TFmClient.Panel4Click(Sender: TObject);

begin

  if Panel2.Visible = true then

    begin

     Panel2.Visible := false;

     Panel4.Caption := '<<';

     Panel4.Hint := 'Показать подробную информацию';

    end

  else

    begin

     Panel2.Visible := true;

     Panel4.Caption := '>>';

     Panel4.Hint := 'Скрыть подробную информацию';

    end;

end;

procedure TFmClient.BitBtn1Click(Sender: TObject);

begin

  Close;

end;

procedure TFmClient.EditFindChange(Sender: TObject);

begin

  Case RadioGroup1.ItemIndex of

    0 :  DM.TbClient.Locate('Наименование', EditFind.Text, [locaseinsensitive, lopartialkey]);

    1 :  DM.TbClient.Locate('ИНН', EditFind.Text, [locaseinsensitive, lopartialkey]);

    2 :  DM.TbClient.Locate('КПП', EditFind.Text, [locaseinsensitive, lopartialkey]);

  end;

end;

procedure TFmClient.BitBtn2Click(Sender: TObject);

begin

  If DM.TbClient.Modified then DM.TbClient.Post;

end;

end.

unit UnComp;

interface

uses

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

  Dialogs, Grids, DBGrids, Mask, DBCtrls, StdCtrls, ExtCtrls, Buttons, DB,

  jpeg;

type

  TFmComp = class(TForm)

    Panel1: TPanel;

    Label7: TLabel;

    GroupBox1: TGroupBox;

    DBNavigator1: TDBNavigator;

    BitBtn1: TBitBtn;

    RadioGroup1: TRadioGroup;

    EditFind: TEdit;

    Panel2: TPanel;

    BitBtn2: TBitBtn;

    Panel3: TPanel;

    Panel4: TPanel;

    DBGrid1: TDBGrid;

    Panel5: TPanel;

    Panel6: TPanel;

    GroupBox2: TGroupBox;

    DBNavigator2: TDBNavigator;

    Panel7: TPanel;

    DBGrid2: TDBGrid;

    GroupBox3: TGroupBox;

    DBEdit3: TDBEdit;

    Label3: TLabel;

    DBEdit2: TDBEdit;

    Label2: TLabel;

    DBEdit1: TDBEdit;

    Label1: TLabel;

    GroupBox4: TGroupBox;

    DBEdit4: TDBEdit;

    Label4: TLabel;

    Label5: TLabel;

    DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;

    Label6: TLabel;

    DBEdit7: TDBEdit;

    Label8: TLabel;

    DBEdit8: TDBEdit;

    Label9: TLabel;

    BitBtn3: TBitBtn;

    Image1: TImage;

    procedure Panel4Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure EditFindChange(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  FmComp: TFmComp;

implementation

uses UnDM, UnSet;

{$R *.dfm}

procedure TFmComp.Panel4Click(Sender: TObject);

begin

    if Panel2.Visible = true then

    begin

     Panel2.Visible := false;

     Panel4.Caption := '<<';

     Panel4.Hint := 'Показать подробную информацию';

    end

  else

    begin

     Panel2.Visible := true;

     Panel4.Caption := '>>';

     Panel4.Hint := 'Скрыть подробную информацию';

    end;

end;

procedure TFmComp.BitBtn1Click(Sender: TObject);

begin

  close;

end;

procedure TFmComp.BitBtn2Click(Sender: TObject);

begin

  If DM.TbComp.Modified then DM.TbComp.Post;

end;

procedure TFmComp.EditFindChange(Sender: TObject);

begin

  Case RadioGroup1.ItemIndex of

    0 :  DM.TbComp.Locate('ФИО сотрудника', EditFind.Text, [locaseinsensitive, lopartialkey]);

    1 :  DM.TbComp.Locate('Должность', EditFind.Text, [locaseinsensitive, lopartialkey]);

    2 :  DM.TbComp.Locate('Имя компьютера', EditFind.Text, [locaseinsensitive, lopartialkey]);

    3 :  DM.TbComp.Locate('Инвентарный номер', EditFind.Text, [locaseinsensitive, lopartialkey]);

  end;

end;

procedure TFmComp.BitBtn3Click(Sender: TObject);

begin

  FmSet.Caption := 'Комплектующие компьютера '+ QuotedStr(DM.TbComp.FieldByName('Имя компьютера').AsString) + ' сотрудника '+ QuotedStr(DM.TbComp.FieldByName('ФИО сотрудника').AsString);

  FmSet.ShowModal;

end;

end.

unit UnDM;

interface

uses

  SysUtils, Classes, DB, ADODB;

type

  TDM = class(TDataModule)

    ADOC: TADOConnection;

    TbClient: TADOTable;

    DSClient: TDataSource;

    TbClientid: TAutoIncField;

    TbClientDSDesigner: TWideStringField;

    TbClientDSDesigner2: TWideStringField;

    TbClientDSDesigner3: TWideStringField;

    TbClientDSDesigner4: TWideStringField;

    TbClientDSDesigner5: TWideStringField;

    TbClientDSDesigner6: TWideStringField;

    TbManuf: TADOTable;

    TbManufid: TAutoIncField;

    TbManufDSDesigner: TWideStringField;

    TbManufDSDesigner2: TWideStringField;

    DSManuf: TDataSource;

    DSType: TDataSource;

    TbType: TADOTable;

    TbTypeid: TAutoIncField;

    TbTypeDSDesigner: TWideStringField;

    TbTypeDSDesigner2: TWideStringField;

    TbSet: TADOTable;

    TbMaster: TADOTable;

    TbMasterid: TAutoIncField;

    TbMasterDSDesigner: TWideStringField;

    TbMasterDSDesigner2: TWideStringField;

    DSSet: TDataSource;

    DSMaster: TDataSource;

    DSDiv: TDataSource;

    TbDiv: TADOTable;

    TbDivid: TAutoIncField;

    TbDivDSDesigner: TWideStringField;

    TbDivDSDesigner2: TWideStringField;

    TbDivDSDesigner3: TWideStringField;

    TbComp: TADOTable;

    DSComp: TDataSource;

    TbCompid: TAutoIncField;

    TbCompid_: TIntegerField;

    TbCompDSDesigner: TWideStringField;

    TbCompDSDesigner2: TWideStringField;

    TbCompDSDesigner3: TWideStringField;

    TbCompDSDesigner4: TWideStringField;

    TbCompIP: TWideStringField;

    TbCompDSDesigner5: TDateTimeField;

    TbCompDSDesigner6: TWideStringField;

    TbCompDSDesigner7: TWideStringField;

    TbSetid: TAutoIncField;

    TbSetid_: TIntegerField;

    TbSetid2: TIntegerField;

    TbSetid3: TIntegerField;

    TbSetid4: TIntegerField;

    TbSetDSDesigner: TWideStringField;

    TbSetDSDesigner2: TDateTimeField;

    TbSetDSDesigner3: TBCDField;

    TbSetDSDesigner4: TDateTimeField;

    TbSetField: TStringField;

    TbSetField2: TStringField;

    TbSetField3: TStringField;

    TbHistory: TADOTable;

    TbSProject: TADOTable;

    DSHistory: TDataSource;

    DSSProject: TDataSource;

    DSHistory1: TDataSource;

    TbHistory1: TADOTable;

    TbHistory1id: TAutoIncField;

    TbHistory1id_: TIntegerField;

    TbHistory1_: TDateTimeField;

    TbHistory1id_2: TIntegerField;

    TbHistory1DSDesigner2: TBooleanField;

    TbHistory1DSDesigner3: TBooleanField;

    TbHistory1DSDesigner4: TBooleanField;

    TbHistory1Field: TStringField;

    TbComp1: TADOTable;

    TbComp1id: TAutoIncField;

    TbComp1id_: TIntegerField;

    TbComp1DSDesigner: TWideStringField;

    TbComp1DSDesigner2: TWideStringField;

    TbComp1DSDesigner3: TWideStringField;

    TbComp1DSDesigner4: TWideStringField;

    TbComp1IP: TWideStringField;

    TbComp1DSDesigner5: TDateTimeField;

    TbComp1DSDesigner6: TWideStringField;

    TbComp1DSDesigner7: TWideStringField;

    DSComp1: TDataSource;

    TbProcess: TADOTable;

    DSProcess: TDataSource;

    TbWork: TADOTable;

    DSWork: TDataSource;

    TbSProjectid_: TAutoIncField;

    TbSProjectDSDesigner: TWideStringField;

    TbSProjectid: TIntegerField;

    TbSProjectDSDesigner2: TWideStringField;

    TbSProjectDSDesigner3: TDateTimeField;

    TbSProjectDSDesigner4: TDateTimeField;

    TbSProjectDSDesigner5: TBCDField;

    TbSProjectDSDesigner6: TWideStringField;

    TbSProjectField: TStringField;

    TbProcessid_: TAutoIncField;

    TbProcessid_2: TIntegerField;

    TbProcessid_3: TIntegerField;

    TbProcessDSDesigner: TWideStringField;

    TbProcessField: TStringField;

    TbWorkid_: TAutoIncField;

    TbWorkid_2: TIntegerField;

    TbWorkDSDesigner: TDateTimeField;

    TbWorkDSDesigner2: TWideStringField;

    QRate: TADOQuery;

    QRateDSDesigner: TWideStringField;

    QRateCount: TIntegerField;

    TbHistoryid: TAutoIncField;

    TbHistoryid_: TIntegerField;

    TbHistory_: TDateTimeField;

    TbHistoryid_2: TIntegerField;

    TbHistoryDSDesigner: TWideStringField;

    TbHistoryDSDesigner3: TBooleanField;

    TbHistoryDSDesigner4: TBooleanField;

    TbHistoryField: TStringField;

    TbHistoryDSDesigner2: TBooleanField;