Дипломная работа: Автоматизация управления персонала на кондитерской фабрике "Победа Вкуса"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
110
StartOfDoc; FindAndPasteTextDoc('***СредСпис10', EditSred10.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд10', EditFond10.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл10', EditNachisl10.Text);
StartOfDoc; FindAndPasteTextDoc('***СредСпис11', EditSred11.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд11', EditFond11.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл11', EditNachisl11.Text);
StartOfDoc; FindAndPasteTextDoc('***СредСпис12', EditSred12.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд12', EditFond12.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл12', EditNachisl12.Text);
StartOfDoc; FindAndPasteTextDoc('***СредСпис13', EditSred13.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд13', EditFond13.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл13', EditNachisl13.Text);
sum_sred:=
StrToFloat(EditSred02.Text)+StrToFloat(EditSred03.Text)+StrToFloat(EditSred04.Text)+
StrToFloat(EditSred05.Text)+StrToFloat(EditSred06.Text)+StrToFloat(EditSred07.Text)+
StrToFloat(EditSred08.Text)+StrToFloat(EditSred09.Text)+StrToFloat(EditSred10.Text)+
StrToFloat(EditSred11.Text)+StrToFloat(EditSred12.Text)+StrToFloat(EditSred13.Text);
sum_fond:=
StrToFloat(EditFond02.Text)+StrToFloat(EditFond03.Text)+StrToFloat(EditFond04.Text)+
StrToFloat(EditFond05.Text)+StrToFloat(EditFond06.Text)+StrToFloat(EditFond07.Text)+
StrToFloat(EditFond08.Text)+StrToFloat(EditFond09.Text)+StrToFloat(EditFond10.Text)+
StrToFloat(EditFond11.Text)+StrToFloat(EditFond12.Text)+StrToFloat(EditFond13.Text);
sum_nachisl:=StrToFloat(EditNachisl02.Text)+StrToFloat(EditNachisl03.Text)+StrToFloat(EditNa
chisl04.Text)+
111
StrToFloat(EditNachisl05.Text)+StrToFloat(EditNachisl06.Text)+StrToFloat(EditNachisl07.Text)+
StrToFloat(EditNachisl08.Text)+StrToFloat(EditNachisl09.Text)+StrToFloat(EditNachisl10.Text)+
StrToFloat(EditNachisl11.Text)+StrToFloat(EditNachisl12.Text)+StrToFloat(EditNachisl13.Text);
StartOfDoc; FindAndPasteTextDoc('***ИтогоСреднеспис', IntToStr(round(sum_sred)));
StartOfDoc; FindAndPasteTextDoc('***ИтогоФонд', IntToStr(round(sum_fond)));
StartOfDoc; FindAndPasteTextDoc('***ИтогоНачисл', IntToStr(round(sum_nachisl)));
StartOfDoc;
FindAndPasteTextDoc('***Руководитель',FormMain.GetNastrParametr('FIO_Director'));
StartOfDoc;
FindAndPasteTextDoc('***ДолжнОтветств',ADODataSetTabl_SotrudnikNameDolgnost.Value);
StartOfDoc;
FindAndPasteTextDoc('***Ответственный',ADODataSetTabl_SotrudnikFam.Value+','+ADOData
SetTabl_SotrudnikName.Value+','+ADODataSetTabl_SotrudnikOtch.Value);
StartOfDoc; FindAndPasteTextDoc('***Телефон',FormMain.GetNastrParametr('Telephon'));
decodedate(now(), year, month, day);
StartOfDoc; FindAndPasteTextDoc('*ДД',inttostr(day));
StartOfDoc; FindAndPasteTextDoc('*МесПроп', LongMonthNames[month]);
StartOfDoc; FindAndPasteTextDoc('*Год',inttostr(year));
ADODataSetTabl_Sotrudnik.Close;
ADODataSetTabl_Sotrudnik.CommandText:='select * from Tabl_Sotrudnik where
Cod='+IntToStr(TekCodUser);
ADODataSetTabl_Sotrudnik.Open;
s:= '\Arhiv\Ф_N 1-Т
(ГОДОВАЯ)_'+inttostr(day)+'_'+inttostr(month)+'_'+inttostr(year)+'_'+IntToStr(CountNomF1God)
+'.rtf';
SaveDocAs(ExtractFileDir(application.ExeName)+s);
CloseDoc;
112
FormMain.SetNastrParametr(IntToStr(CountNomF1God),'NomF1God');
// messagebox(Handle,'Нажмите кн. для продолжения!','Формирование документа
закончено!',0);
shellexecute(handle,'open',pchar(ExtractFileDir(application.ExeName)+s),'','',1);
end;
procedure TFormReportF1God.EditSred02KeyPress(Sender: TObject;
var Key: Char);
begin
if Key in ['0'..'9',',',#8]
then exit
else Key:=#0;
end;
end.
Источник: https://baza.diplomsite.ru/previewfile/2248

Смотрите также:

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии