Файл: Проектирование реализации операций бизнес-процесса «Управление персоналом (Глава. Аналитическая часть).pdf

Showmessage(' Файл '+DbGrid2.DataSource.DataSet.FieldByName('path').AsString+' ненайден в папкеshablon.'+#10+#13+'Проверьте правильностьназванияфайла и егоналичие в указаннойпапке.');

end;

procedure TForm1.N2Click(Sender: TObject);

begin

n7.Click;

n8.Click;

end;

procedure TForm1.FormResize(Sender: TObject);

begin

panel1.Width:=Round((form1.Width-50)*0.5);

panel2.Width:=Round((form1.Width-50)*0.5);

panel1.Width:=Round(form1.Width*0.5);

BitBtn3.Left:=Round(panel5.Width*0.5)-Round(Bitbtn3.Width*0.5);

DbGrid2.Columns[0].Width:=ROUND(DbGrid2.Width*0.65);

DbGrid2.Columns[1].Width:=ROUND(DbGrid2.Width*0.26);

DbGrid1.Columns[0].Width:=ROUND(DbGrid1.Width*0.65);

DbGrid1.Columns[1].Width:=ROUND(DbGrid1.Width*0.26);

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

const

wdReplaceNone = 0;

wdReplaceOne = 1;

wdReplaceAll = 2;

wdFindContinue = 1;

var

Word, wdRng:Variant;

begin

//проверкауказанлифайл

if DbGrid2.DataSource.DataSet.FieldByName('path').IsNull then begin ShowMessage('Длявыбранногошаблонадоговоранеуказаноимяфайла'); exit; end;

if not fileExists(ExtractFilePath(ParamStr(0))+'shablon\'+DbGrid2.DataSource.DataSet.FieldByName('path').AsString) then

begin

exit;

end;

//запрашиваемданные

With AdoQuery1 do

begin

close;

SQl.clear;

SQL.Add('SELECT Dogovor.*, Employer.*, Staff.*, TypeDoc.*, Worker.*, TypeWork.*, StaffDoc.*');

SQL.Add('FROM ((TypeWork INNER JOIN (Staff INNER JOIN (Worker INNER JOIN (Employer INNER JOIN Dogovor ON Employer.Id = Dogovor.Employer) ON Worker.Id = Dogovor.Worker) ON Staff.Id = Dogovor.Staff) ');

SQL.add(' ON TypeWork.Id = Dogovor.TypeWork) INNER JOIN StaffDoc ON Staff.Id = StaffDoc.Staff) INNER JOIN TypeDoc ON StaffDoc.TypeDoc = TypeDoc.Id');

SQL.Add(' WHERE (((Worker.Id)= :id ))');

Parameters.ParamByName('id').Value:=DbGrid1.DataSource.DataSet.FieldByName('id').AsString;

open;

end;

IfAdoQuery1.RecordCount=0 thenbeginShowMessage('Для выбранного работника в базе данны не добавлен договор.'+#10+#13+'Добавьте трудовой договор с помощью SAP'); exit; end;

Word :=CreateOleObject('Word.Application');

Word.Documents.Add(ExtractFilePath(ParamStr(0))+'shablon\'+DbGrid2.DataSource.DataSet.FieldByName('path').AsString);

Word.visible:=true;

wdRng:=Word.ActiveDocument.Range;

//Настройка поиска и замены.

wdRng.Find.ClearFormatting;

wdRng.Find.Forward := True;

wdRng.Find.Wrap := wdFindContinue;

//Учёт регистра букв: True - учитывать, False - не учитывать.

wdRng.Find.MatchCase := False;

//True - поиск шаблона как целого слова, иначе - False.

wdRng.Find.MatchWholeWord := False;

wdRng.Find.Text := '<ФИО работника>';

wdRng.Find.Replacement.Text := AdoQuery1.FieldByName('FIO').AsString;