Основные - обладают изоляцией, способной длительно выдерживать рабочее напряжение электроустановки и поэтому ими разрешается касаться токоведущих частей, находящихся под напряжением. К ним относятся: в электроустановках до 1000 Вт – диэлектрические перчатки, изолирующие штанги, изолирующие и электро измерительные клещи и т.д.; свыше 1000Вт - изолирующие штанги, и электроизмерительные клещи, а также средства для ремонтных работ под напряжением свыше 1000Вт.
Дополнительные - обладают изоляцией неспособной выдержать рабочее напряжение электроустановки, и поэтому они не могут самостоятельно защищать человека от поражения током под этим напряжением. Их значение – усилить защитные действия основных и изолирующих средств, вместе с которыми они должны применяться, при чем при использовании основных защитных средств достаточно применения одного дополнительного защитного средства. К дополнительным относятся средства в электроустановках до 1000Вт - диэлектрические галоши н коврики, а также изолирующие подставки.
Охрана окружающей среды - комплекс научно-технических, производственно-хозяйственных и административно-правовых мероприятии, направленных на сохранение и надлежащее использование земли и ее недр, водных ресурсов, растительного и животного мира, обеспечение чистоты воздуха и воды, воспроизводства природных богатств, гармоничные взаимоотношения между обществом и природой. Не сложно представить себе процветающую экономику, при которой люди из года в год становятся все более больными в результате неправильного подхода к своему здоровью и загрязненной окружающей среды. По мере того, как мы строим свое общество, необходимо применять нарастающие усилия в том, чтобы наши граждане были здоровыми на протяжении всей своей жизни, и их окружала здоровая природная среда.
Источником загрязнения атмосферного воздуха называется технологический агрегат, выделяющий в процессе эксплуатации вредные вещества.
Количество выделенных веществ зависит от типа и мощности производства, его технической оснащенности и определяется путем инструментальных замеров или расчетов с использованием специальных отраслевых методик.
Основными мероприятиями по снижению выбросов вредных веществ в, атмосферу являются совершенствование технологических процессов, включая снижение производственных выбросов; строительство новых и повышение эффективности существующих очистных устройств; ликвидация источников загрязнения, перепрофилирование производства.
Применительно к предприятиям машиностроительного производства наиболее значимым представляется газа - и пылеулавливание вентиляционных выбросов, особенно при открытой разливке металлов.
Очистку и обезвреживание газовых составляющих выбросов промышленных производств осуществляют методами, выбор которых определяется составом, концентрации загрязняющих веществ, типа производства, условиями выброса.
Очистку вентиляционных выбросов от механических примесей осуществляют аппаратами, мокрого и сухого пылеулавливания, волокнистыми фильтрами и электрофильтрами.
В качестве фильтров используют различные фильтрующие, тонкие грубо волокнистые материалы. Кроме того, на предприятиях машиностроения широкое применение получили электрофильтры, которые в зависимости от способа удаления осажденным на электродах частиц подразделяются на сухие и мокрые.
Защита вод питьевого назначения также имеет глобальное значение.
Степень очистки сточных вод устанавливается в зависимости от местных условий с учетом возможного использования очищенных сточных вод - для промышленных и сельскохозяйственных нужд.
На предприятиях металлургической и машиностроительной промышленности очистка сточных вод осуществляется, как правило, в отстойниках, шлаконакопителях, нефте-маслоловушках с использованием ряде случаев коагулянтов. Полученный шлак, содержащий большое количество металлов, утилизируется и включается в состав шихты. Очищенные воды в большинстве случаев используются в системах оборотного водоснабжения. При этом вода основного источника или из других циклов водопользования идет на компенсацию потерь оборотной воды.
Важным направлением охраны окружающей среды является охрана почв от водной и ветровой эрозии, борьба с их засолением путем введения соответствующих севооборотов, создания лесозащитных полос, закрепления и облесения оврагов и балок, использования средств мелиорации.
В целях снижения загрязнения почв различными промышленными отходами в практике охраны земельных ресурсов предусматриваются следующие мероприятия: утилизация, обезвреживание методом сжигания, захоронение на специальных полигонах, организация усовершенствованных свалок.
Выбор метода обезвреживания и утилизации отходов зависит от их химического состава и степени влияния на окружающую среду. В ряде случаев отходы машиностроительных и металлургических производств содержат значительное количество химических соединений, которые могут представлять ценность как сырье и использоваться в виде дополнения к шахте.
В результате дипломного проектирования была разработана программа «АРМ менеджера по продажам в автосалоне «A-Motors», предназначенная для для регистрации и ведения учета продаж автомобилей.
Программа предназначена для того, чтобы облегчить рутинный труд менеджера автосалона, тратящего ежедневно массу времени на бумажную работу.
У данного приложения удобный интерфейс, рассчитанный на не подготовительного пользователя.
Рекомендуется использовать программу на более мощных персональных компьютерах, согласно требованиям к аппаратному программному обеспечению.
1. Епанешников А.М., Епанешников В.А. «Delphi 4 Среда разработки». Учебное пособие М: Диалог – Мифи, 1999г.- 304с.
2. Культин Н. “Программирование на Object Pascal» СПБ: БХВ – Санкт-Петербург, 1999г. 480с.
3. Фаронов В.В., Шумаков П.В. «DELPHI 4 Руководство разработки баз данных”, М: Нолидж, 1999г., 560с.
4. Шумаков П.В. «DELPHI 3 и разработка приложений баз данных” М: Нолидж, 1998г., 704с
5. Драхведидзе М.Г., Марков Е.П. . «DELPHI 4 среда визуального программирования” СП8:BHV –Санкт – Петербург, 1999г.,352с.
6. Фаронов В.В. Delphi 4. Учебный курс. - Москва, 1998
7. Валерий Фаронов Профессиональная работа в Delphi 6 Москва 2002
8. Том Сван Delphi 4 Библия разработчика Москва 1998
9. Деви Хакер Delphi 5 Руководство разработчика. (электронный вариант в формате pdf) 16. Delphi 6 Учебный курс (электронный вариант в формате CHM)
10. Иллюстрированный самоучитель по Delphi 6 (электронный вариант в формате HTML) 18. Delphi 6 и технология COM Москва 2002
11. БорисовЕ.Ф..“Основы экономической теории”,
12. Сергеев И.В.“Экономика предприятия”
13. Райзберг Б.А., Лозовский Л.Ш., Стародубцев Е.Б. “Современный экономический словарь”
14. Скала В.И. “Охрана труда и техника безопасности”, – Алматы: «LEM», 2002. –276с
15. “Охрана труда ” -М.;1989
unit about;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, RxGIF, ExtCtrls;
type
TFAbout = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FAbout: TFAbout;
implementation
{$R *.dfm}
procedure TFAbout.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
end.
unit add;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, glLabel, DBTables,ExtCtrls, glBevel, StdCtrls, RxGIF,
DBCtrls, LMDControl, LMDBaseControl, LMDBaseGraphicButton,
LMDCustomSpeedButton, LMDSpeedButton, ExtDlgs,IDGlobal, ToolEdit, Mask,
LMDCustomControl, LMDCustomPanel, LMDCustomBevelPanel,
LMDBaseEdit, LMDCustomEdit, LMDCustomBrowseEdit, LMDCustomFileEdit,
LMDFileOpenEdit, jpeg;
type
TFadd = class(TForm)
Panel1: TPanel;
glLabel1: TglLabel;
Продолжение приложения А
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Panel2: TPanel;
Panel3: TPanel;
glLabel2: TglLabel;
glLabel3: TglLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
ComboBox1: TComboBox;
Edit12: TEdit;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
Edit13: TEdit;
ComboBox2: TComboBox;
Label15: TLabel;
ComboBox3: TComboBox;
ComboBox4: TComboBox;
Label16: TLabel;
Label17: TLabel;
Memo1: TMemo;
Label18: TLabel;
Label19: TLabel;
Memo2: TMemo;
Image2: TImage;
Panel4: TPanel;
Panel5: TPanel;
LMDSpeedButton1: TLMDSpeedButton;
LMDSpeedButton2: TLMDSpeedButton;
LMDSpeedButton3: TLMDSpeedButton;
Label20: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Image3: TImage;
Продолжение приложения А
glLabel4: TglLabel;
LMDSpeedButton4: TLMDSpeedButton;
LMDSpeedButton5: TLMDSpeedButton;
OpenPictureDialog2: TOpenPictureDialog;
Image4: TImage;
Image5: TImage;
glLabel5: TglLabel;
Label21: TLabel;
Label22: TLabel;
Edit14: TEdit;
DateEdit1: TDateEdit;
OpenPictureDialog1: TOpenPictureDialog;
Image1: TImage;
DBLookupComboBox2: TDBLookupComboBox;
procedure LMDSpeedButton4Click(Sender: TObject);
procedure LMDSpeedButton5Click(Sender: TObject);
procedure LMDSpeedButton2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure LMDSpeedButton3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure LMDSpeedButton1Click(Sender: TObject);
procedure OpenPictureDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
procedure Edit7KeyPress(Sender: TObject; var Key: Char);
procedure Edit13KeyPress(Sender: TObject; var Key: Char);
procedure Edit14KeyPress(Sender: TObject; var Key: Char);
procedure DBLookupComboBox2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Fadd: TFadd;
pic1,pic2:string;
implementation
uses dm;
{$R *.dfm}
function gen_id(table:TTable; var name:string):integer;
var n:integer;
begin
table.First;
n:=table.FieldByName(name).asinteger;
while not table.Eof do begin
if table.FieldByName(name).Value>n then
n:=table.FieldByName(name).Value;