Отчет по практике в рекламном агенстве

-устройством  оборудования (машины), на котором  предстоит работать и которое  будет обслуживать, со всеми  опасными местами у машины

-правильной  и безопасной организацией рабочего  места;

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

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

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

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

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

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

  Инструктирующий должен убедиться в четком знании и понимании каждым рабочим правил техники безопасности. Если в результате проверки будет выявлено неудовлетворительное знание рабочим инструкции по технике  безопасности (применение неправильных, запрещенных приемов работы, работа без предохранительных ограждений, приспособлений и защитных средств), инструктирующий обязан дать рабочему все необходимые объяснения и  непосредственно на рабочем месте  показать, как нужно правильно  Применять безопасные методы в работе и потребовать строгого выполнения всех требований инструкций по технике  безопасности.Кроме первичного и  повторного инструктажа, на рабочем  месте может проводиться внеплановый (внеочередной) инструктаж рабочих  безопасным приемам и методам  труда. Он проводится в следующих  случаях:                -при перемене вида работы, изменений технологического процесса и оборудования, при переходе на другой механизм, а также в других случаях, когда изменяются условия безопасности работы;                                                                                                         -при недостаточном инструктаже рабочих безопасным приемам и методам работы, когда были несчастные случаи и профзаболевания;                                                                  -при нарушении рабочим правил и инструкции по технике безопасности вне зависимости от мер, принятых по отношению к нарушителю. Внеплановый (внеочередной), инструктаж проводят те же работники, которые обязаны проводить инструктаж на рабочем месте. О проведении внепланового (внеочередного) инструктажа безопасным приемам и методам работы делается запись в журнале, в котором записывается о первичном инструктаже непосредственно на рабочем месте. 
 
 
 
 
 
 
 
 

Постановка  задачи

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

Входная и выходная информация

  Под входной  информации понимается информация, которая  требуется для вычисления программы  и вводится пользователем. Входная информация  Телефон, Ф.И.О,  улица, дом, квартира. Выходная информация Телефон, Ф.И.О и место жительства 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Блок  схема задачи 

  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

                                                  Графическая часть

 
 

 
 
 
 

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

      const

   sDataFile  = 'Data.dbf';

   sIndexFile  = 'Data.mdx';

   sBuffFile  = 'DataBuff.dbf';

   sBuffFile2  = 'DataBuff2.dbf';

   sShortappname = 'LutskPhone';

   sIniFile = 'options.ini';

   sHelpFile = 'help.hlp';

   sDataFileError = 'ошибка в файле'+#10#13+

     'Возможно он повреждён';

   sBDEError = 'Ошибка БД';

implementation

uses TelDov, Thread, ActiveX, ComObj, ShlObj;

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);

var

mess: tagmsg;

handled :boolean;

begin

try

   IsCanStart := false;

   Top := (Screen.Height - Height) div 2-200;

   Left := (Screen.Width - Width) div 2;

   Application.OnMessage := ProgressAOM ;

   try

     Table1.TableName := sBuffFile;// Check BDE

     Table1.CreateTable;

     Table1.Close;

     // ShowMessage(DBIgetErrorString);

     DeleteFile(ExtractFilePath(ParamStr(0))+'/'+sBuffFile);

   except

     raise EPhoneException.Create(sBDEError);

   end;

   if not SearchFile(sDataFile)

   then raise EPhoneException.Create(sDataFileError);

   if not SearchFile(sIndexFile)

   then DataThread.create(false)

   else IsCanStart := true;

  except

    on E: Exception do

    begin

      MessageDlg(e.Message, mtError, [mbOk],0);

      PostMessage(MainFOrm.Handle, MM_DATAERROR, 0, 0);

    end;

  end;

Invalidate;

end;

procedure TMainForm.ProgressAOM (var MSG: tagMSG; var Handled: boolean);

begin

  if MSG.message = MM_OKSTART then

  begin

    Timer1.Enabled := false;

    Application.CreateForm(TPhoneForm, PhoneForm);

    MainFOrm.Hide;

    PhoneForm.Show;

    Application.OnMessage := PhoneForm.AOM;

  end;

end;

function TMainForm.SearchFile(FileName: string): boolean;

var

CurrFile : TSearchRec;

begin

if FindFirst(GetCurrentDir +'\'+FileName, faAnyFile, CurrFIle)=0

then Result := true

else Result := false;

end;

procedure TMainForm.RegApplication;

var

  R: TRegIniFile;

  IsRegister: boolean;

  Directory: string;

  MyObject: IUnknown;

  MySLink: IShellLink;

  MyPFile: IPersistFile;

  WFileNAme: WideString;

begin

  IsRegister := false;

  R := TRegIniFile.Create('');

  with R do

  begin

    RootKey := HKey_Current_User;

    if Openkey('Software\RonyaSoft\'+ sShortappname, true)

    then IsRegister := ReadBool('','Register',false);

    if not(IsRegister)

    then

     begin

      DeleteKey('','(Ïî óìîë÷àíèþ)');

      WriteBool('','Register',true);

      CloseKey; 

      MyObject := CreateComObject(CLSID_ShellLink);

      MySLink := MyObject as IShellLink;

      MyPFile := MyObject as IPersistFile;

      with MySLink do

      begin

        SetPath(PChar(Application.exename));

        SetWorkingDirectory(PChar(ExtractFilePath(Application.exename)));

      end;

      OpenKey('Software\MicroSoft\Windows\CurrentVersion\Explorer', false);

      Directory := ReadString('Shell Folders','Desktop','');

      WFileNAme := Directory + '\' + sShortAppName +'.lnk';

      MyPFile.Save(PWChar(WFIleName), false);

    end;

  end;

  r.Free;

end;

procedure TMainForm.DataError(var Message: TMessage);

begin

  Close;

end;

procedure TMainForm.Timer1Timer(Sender: TObject);

begin

  if IsFirst then

  begin

    IsFirst := false;

    FStartTime := 0; // GetTickCount;

  end;

  if IsCanStart then

  begin

     Tick := GetTickCount;

    if Tick > (FStartTime + 0) // 1000

       then  PostMessage(MainFOrm.Handle, MM_OKSTART, 1, 0);

  end

end;

procedure TMainForm.EndThread(var Message: TMessage);

begin

  Image1.Visible := true;

  Caption := '';

  lbPersent.Visible := false;

  lbMessage.Visible := false;

  ProgressBar1.Visible := false;

  IsCanStart := true;

end;

end. 
unit Thread;

interface

uses

  Classes, Windows, sysUtils, Progress, forms, dialogs;

type

  DataThread = class(TThread)

  private

    procedure RemaskMDX;

  protected

    TempDir: PChar;

    procedure Execute; override;

    procedure UpdateProgress;

    procedure UpdateForm;

  end;

implementation

procedure DataThread.Execute;

var

    i, j: integer;

   prom: string;

begin

  freeOnTerminate := true;

  with MainForm do begin

    try

      Synchronize(UpdateForm);

      GetMem(TempDir, MAX_PATH);

      GetTempPath(MAx_Path,TempDir);

      CopyFile(PChar(ExtractFilePath(Application.ExeName)+sDataFile),

         PCHar(TempDir + sBuffFile2), true );

      RemaskMDX;

      Table2.TableName := TempDir + sDataFile;

      Table1.TableName := TempDir + sBuffFile;

      Table1.Open;

      Table2.CreateTable;

      Table2.Open;

      Table2.Edit;

      j := 0;

      while not Table1.eof do

      begin

       for i:= 0 to Table1.FieldCount - 1 do

        begin

         prom := Table1.Fields[i].asString;

         Table2.Fields[i].AsString := Table1.Fields[i].asString;

        end;

        Table1.next;

        Table2.Append;

        Inc(j);

        If j > 1000 then

        begin

          SynchroNize(UpdateProgress);

          j := 0;

        end;

      end;

      Table1.Close;

      Table2.Close;

      CopyFile(PChar(TempDir + sDataFile),

      PChar(ExtractFilePath(Application.ExeName)+ sDataFile), false );

      CopyFile(PChar(TempDir + sIndexFile),

      PChar(ExtractFilePath(Application.ExeName)+ sIndexFile), false );

      DeleteFile(TempDir + sBuffFile);

      DeleteFile(TempDir + sBuffFile2);

      DeleteFile(TempDir + sDataFile);