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

- при эксплуатации и обслуживании электрооборудования необходимо соблюдать требования:

· настоящей инструкции;

· паспорта и руководства (инструкции) по эксплуатации электрооборудования, разработанных заводом-изготовителем электрооборудования (при их наличии);

Работники при эксплуатации электрооборудования могут производить простейшие операции по его обслуживанию:

· - подключение и отключение разъемов ПЭВМ и оргтехники (принтеров, факсов, копировальных аппаратов);

· - установку и удаление бумаги в печатающие и копирующие устройства (в предусмотренные лотки для бумаги);

· - выемку, установку, замену картриджей в печатающих и копирующих устройствах;

· - выемку застрявшей бумаги в печатающих и копирующих устройствах;

· - удаление пыли и загрязнений.

Работы по ремонту электрооборудования должны выполняться специально обученным обслуживающим персоналом (в том числе представителями сторонних организаций);

- электрооборудование, имеющее контакты для подключения заземления, должно быть заземлено, а помещения, где размещаются рабочие места с ПЭВМ (компьютерами), должны быть оборудованы защитным заземлением (занулением) в соответствии с техническими требованиями по эксплуатации оборудования;

- все крышки и защитные панели должны находиться на своих местах (при отсутствии крышки или защитной панели эксплуатация электрооборудования не допускается);

- при работе с электрооборудованием не допускать попадания влаги на поверхность электрооборудования, а также запрещается работать на электрооборудовании влажными руками;

- вентиляционные отверстия электрооборудования не должны быть перекрыты находящимися вплотную стенами, мебелью, посторонними предметами;

- выдергивание штепсельной вилки электроприбора необходимо осуществлять за корпус штепсельной вилки, при необходимости придерживая другой рукой корпус штепсельной розетки;

- подключение и отключение разъемов компьютеров и оргтехники должно производиться при отключенном питании (за исключением подключения и отключения USB-устройств);

- установка и удаление бумаги осуществляется в лотки (установленные места) печатающих и копирующих устройств;

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

- удаление пыли с электрооборудования должно производиться в отключенном от электрической цепи состоянии;

- перед использованием электроприборов необходимо проверить надёжность крепления электророзетки, свериться с номиналом используемого напряжения;

- в помещениях, в которых используется напряжение двух и более номиналов, на всех штепсельных розетках должны быть надписи с указанием номинального напряжения;

- корпуса штепсельных розеток и выключателей не должны содержать трещин, оплавлений и других дефектов, способных снизить защитные свойства или нарушить надёжность контакта;

- недопустимо использовать штепсельные разъёмы в случае существенного нагревания штепсельной розетки или вилки электроприбора при эксплуатации;

- кабели (шнуры) электропитания не должны содержать повреждений изоляции, сильных изгибов и скручиваний;

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

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

Присвоение группы I производится путем проведения инструктажа, который, как правило, должен завершаться проверкой знаний в форме устного опроса и (при необходимости) проверкой приобретенных навыков безопасных способов работы или оказания первой помощи при поражении электрическим током. Присвоение Iгруппы по электробезопасности проводит работник из числа электротехнического персонала данного Потребителя с группой по электробезопасности не ниже III.

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



Заключение

В данном дипломном проекте было разработано программное приложение «Метеосводка».

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

Разработанная программа полностью соответствует постановке задачи.

Была проведена экономическая оценка эффективности от внедрения программного обеспечения.



Список литературы

1. Delphi 7.0, учебный курс, Фараонов В.В., ISBN 5-8952-020-4, 400 с.

2. Шумаков А.И. «Базы данных в среде Delphi 5», Электронная версия

3.Понамарёв В. «Базы данных в DELPHI 7», СПб «Питер», 2003.

4.Симонович С.В. «Язык структурированных запросов SQL», СПб «Питер», 2000.



Приложение

UnitMeteo:

unitUnitMeteo;

interface

uses

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

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

TeeProcs, TeEngine, Chart, Series;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DataBeg: TEdit;

Button1: TButton;

DataEnd: TEdit;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

StringGrid1: TStringGrid;

Edit1: TEdit;

Edit2: TEdit;

Label5: TLabel;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

OpenDialog1: TOpenDialog;

SaveDialog1: TSaveDialog;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

Label9: TLabel;

Chart1: TChart;

Button7: TButton;

Series1: TFastLineSeries;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedureFormActivate(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

maxtd,mintd,maxtn,mintn,maxad, minad, maxvv, minvv, maxsv, minsv:integer;

da, td,tn,vv,sv,ad:array[1..30] of integer;

i,j : integer;

v:byte;

implementation

usesUnitDmodul, Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

function d(data:string):integer;

vara,b:integer;

begin

a:=strtoint(data[1]+data[2]);

b:=strtoint(data[4]+data[5]);

d:=a+30*(b-1);

end;

var data1, data2:string;

n1,n:integer;

begin

Form1.Height:=785;

form1.Left:=982;

data1:=dataBeg.text;

data2:=dataEnd.text;

N:=d(data1);

N1:=d(data2);

StringGrid1.Visible:=True;

with StringGrid1 do

begin

Cells[0,0]:='Дата';

Cells[1,0]:='Тночь';

Cells[2,0]:='Тдень' ;

Cells[3,0]:='Давление';

Cells[4,0]:='Влажность воздуха';

Cells[5,0]:='Скорость ветра';

end;

datamodule1.Tablmdata.first;

i:=1;

maxtd:=-50; mintd:=50;

maxtn:=-50; mintn:=50;

maxad:= 0; minad:=800;

maxvv:=0; minvv:=100;

maxsv:=0; minsv:=100;

while not datamodule1.Tablmdata.Eof do

begin

if (d(datamodule1.Tablmdata['Data']) >= n) and (d(datamodule1.Tablmdata['Data']) <=n1)

then

begin

StringGrid1.Cells[0,i]:= datamodule1.Tablmdata['Data'];

da[i]:= d(datamodule1.Tablmdata['Data']);

StringGrid1.Cells[1,i]:= datamodule1.Tablmdata['Nt'];

tn[i]:= strtoint(datamodule1.Tablmdata['Nt']);

StringGrid1.Cells[2,i]:= datamodule1.Tablmdata['Dt'] ;

td[i]:= strtoint(datamodule1.Tablmdata['Dt']);

StringGrid1.Cells[3,i]:= datamodule1.Tablmdata['Ad'];

ad[i]:= strtoint(datamodule1.Tablmdata['Ad']);

StringGrid1.Cells[4,i]:= datamodule1.Tablmdata['Vv'];

vv[i]:= strtoint(datamodule1.Tablmdata['Vv']);

StringGrid1.Cells[5,i]:= datamodule1.Tablmdata['Sv'];

sv[i]:= (datamodule1.Tablmdata['Sv']);

{определяем минимальную и максимальную дневную температуру}

ifstrtoint(StringGrid1.Cells[1,i])>maxtd then maxtd:=strtoint(StringGrid1.Cells[1,i]);

ifstrtoint(StringGrid1.Cells[1,i])<mintd then mintd:=strtoint(StringGrid1.Cells[1,i]);

{определяем минимальную и максимальную ночную температуру}

ifstrtoint(StringGrid1.Cells[2,i])>maxtn then maxtn:=strtoint(StringGrid1.Cells[2,i]);

ifstrtoint(StringGrid1.Cells[2,i])<mintn then mintn:=strtoint(StringGrid1.Cells[2,i]);

{определяем минимальную и максимальную давление}

ifstrtoint(StringGrid1.Cells[3,i])>maxad then maxad:=strtoint(StringGrid1.Cells[3,i]);

ifstrtoint(StringGrid1.Cells[3,i])<minad then minad:=strtoint(StringGrid1.Cells[3,i]);

{определяем минимальную и максимальную влажность воздуха}

ifstrtoint(StringGrid1.Cells[4,i])>maxvv then maxvv:=strtoint(StringGrid1.Cells[4,i]);

ifstrtoint(StringGrid1.Cells[4,i])<minvv then minvv:=strtoint(StringGrid1.Cells[4,i]);

{определяем минимальную и максимальную скорость ветра}

ifstrtoint(StringGrid1.Cells[5,i])>maxsv then maxsv:=strtoint(StringGrid1.Cells[5,i]);

ifstrtoint(StringGrid1.Cells[5,i])<minsv then minsv:=strtoint(StringGrid1.Cells[5,i]);

i:=i+1;

end;

datamodule1.Tablmdata.Next;

end;//while

edit1.Text:=inttostr(mintd);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

label7.Caption:=' Максимальное значение ночной температуры';

label8.Caption:=' Минимальное значение ночной температуры';

edit1.Text:=inttostr(maxtd);

edit2.Text:=inttostr(mintd);

label7.visible:=true;

label8.visible:=true;

edit1.visible:=true;

edit2.visible:=true;

v:=1;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

label7.Caption:=' Максимальное значение дневной температуры';

label8.Caption:=' Минимальное значение дневной температуры';

edit1.Text:=inttostr(maxtn);

edit2.Text:=inttostr(mintn);

label7.visible:=true;

label8.visible:=true;

edit1.visible:=true;

edit2.visible:=true;

v:=2;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

label7.Caption:=' Максимальное атмосферное давление';

label8.Caption:=' Минимальное атмосферное давление';

edit1.Text:=inttostr(maxad);

edit2.Text:=inttostr(minad);

label7.visible:=true;

label8.visible:=true;

edit1.visible:=true;

edit2.visible:=true;

v:=3

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

label7.Caption:=' Максимальное значение давления';

label8.Caption:=' Минимальное значение давление';

edit1.Text:=inttostr(maxvv);

edit2.Text:=inttostr(minvv);

label7.visible:=true;

label8.visible:=true;

edit1.visible:=true;

edit2.visible:=true;

v:=4;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

label7.Caption:=' Максимальная скорость ветра';

label8.Caption:=' Минимальная скорость ветра';

edit1.Text:=inttostr(maxsv);

edit2.Text:=inttostr(minsv);

label7.visible:=true;

label8.visible:=true;

edit1.visible:=true;

edit2.visible:=true;

v:=5;

end;

procedure TForm1.N3Click(Sender: TObject);

var

myfile,s: string;

n:integer;

begin

if OpenDialog1.Execute then

begin

myfile := Form1.OpenDialog1.FileName;

n:=length(myfile);

s:= myfile[n-1]+ myfile[n];

if s <> 'DB' then

begin

ShowMessage(myfile+'Неверноеимяфайла');

Form1.Close

end; {Имя файла выбирается в диалоговом окне и присваивается переменной myfile }

end;

Form1.Height:=488;

form1.Left:=820;

DBGrid1.Visible:=true;

label1.Visible:=true;

label2.Visible:=true;

DBNavigator1.Visible:=True;

Label9.Visible:=false;

end;

procedure TForm1.N4Click(Sender: TObject);

var

myfile:string;

begin

if SaveDialog1.Execute then

begin

//прописываем адрес и имя файла в переменную:

myfile := SaveDialog1.FileName;

end;

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

Form1.Height:=240;

form1.Left:=400;

end;

procedure TForm1.Label2Click(Sender: TObject);

begin

dataBeg.Visible:=true;

dataEnd.Visible:=true;

Button1.Visible:=true

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form1.Close

end;

procedure TForm1.N2Click(Sender: TObject);

begin

form2.Show

end;

procedure TForm1.Button7Click(Sender: TObject);

var k:integer;

begin

Form1.Height:=994;

form1.Left:=833;

Chart1.Visible:=true;

Series1.Clear;

case v of

1: for k:=1 to 30 do series1.addXY(da[k],td[k],'',clGreen);

2: for k:=1 to 30 do series1.addXY(da[k],tn[k],'',clGreen);

3: begin chart1.leftAxis.maximum:=900;chart1.leftAxis.minimum:=700;

for k:=1 to 30 do series1.addXY(da[k],ad[k],'',clGreen);

end;

4: begin chart1.leftAxis.maximum:=100;chart1.leftAxis.minimum:=0;

for k:=1 to 30 do series1.addXY(vv[k],vv[k],'',clGreen);

end;

5: begin chart1.leftAxis.maximum:=50;chart1.leftAxis.minimum:=0;

for k:=1 to 30 do series1.addXY(sv[k],sv[k],'',clGreen);

end;

elseShowMessage('Неверно');

end;

end;

end.

Unit2:

unit Unit2;

interface

uses

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

Dialogs, StdCtrls;

type

TForm2 = class(TForm)

Label1: TLabel;

procedureFormClose(Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

usesUnitMeteo;

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form1.show;

Form1.Height:=488;

form1.Left:=820;

form1.DBGrid1.Visible:=true;

form1.label1.Visible:=true;

form1.label2.Visible:=true;

form1.DBNavigator1.Visible:=True;

form1.Label9.Visible:=false;

end;

end.

UnitDModule:

unitUnitDmodul;

interface

uses

SysUtils, Classes, DB, DBTables;

type

TDataModule1 = class(TDataModule)

Database1: TDatabase;

Tablmdata: TTable;

ds_mdata: TDataSource;

TablmdataData: TDateField;

TablmdataNt: TSmallintField;

TablmdataDt: TSmallintField;

TablmdataAd: TFloatField;

TablmdataVv: TFloatField;

TablmdataSv: TFloatField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule1: TDataModule1;

implementation

{$R *.dfm}

end.

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