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

Скачать файл

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

105

ADODataSetDolgnost: TADODataSet;

ADODataSetDolgnostCod: TAutoIncField;

ADODataSetDolgnostName: TWideStringField;

ADODataSetTabl_SotrudnikNameDolgnost: TStringField;

ADODataSetPodrazdelenie: TADODataSet;

ADODataSetPodrazdelenieCod: TAutoIncField;

ADODataSetPodrazdelenieName: TWideStringField;

ADODataSetPodrazdelenieNachalnik: TWideStringField;

ADODataSetTabl_SotrudnikNamePodrazdelenie: TStringField;

Panel10: TPanel;

Label2: TLabel;

Memo3: TMemo;

Memo4: TMemo;

Memo5: TMemo;

Memo1: TMemo;

EditSred02: TEdit;

EditSred03: TEdit;

EditSred04: TEdit;

EditSred05: TEdit;

EditSred06: TEdit;

EditSred07: TEdit;

EditSred08: TEdit;

EditSred09: TEdit;

EditSred10: TEdit;

EditSred11: TEdit;

EditSred12: TEdit;

EditSred13: TEdit;

EditFond02: TEdit;

106

EditFond03: TEdit;

EditFond04: TEdit;

EditFond05: TEdit;

EditFond06: TEdit;

EditFond07: TEdit;

EditFond08: TEdit;

EditFond09: TEdit;

EditFond10: TEdit;

EditFond11: TEdit;

EditFond12: TEdit;

EditFond13: TEdit;

EditNachisl02: TEdit;

EditNachisl03: TEdit;

EditNachisl04: TEdit;

EditNachisl05: TEdit;

EditNachisl06: TEdit;

EditNachisl07: TEdit;

EditNachisl08: TEdit;

EditNachisl09: TEdit;

EditNachisl10: TEdit;

EditNachisl11: TEdit;

EditNachisl12: TEdit;

EditNachisl13: TEdit;

procedure ButtonExitClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure ButtonPrintClick(Sender: TObject);

procedure EditSred02KeyPress(Sender: TObject; var Key: Char);

107

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormReportF1God: TFormReportF1God;

implementation

uses DM1, Main, Work_In_Word, Vxod;

{$R *.dfm}

procedure TFormReportF1God.ButtonExitClick(Sender: TObject);

begin

Close();

end;

procedure TFormReportF1God.FormShow(Sender: TObject);

begin

ADODataSetDolgnost.Close;

ADODataSetDolgnost.Open;

ADODataSetPodrazdelenie.Close;

ADODataSetPodrazdelenie.Open;

108

ADODataSetTabl_Sotrudnik.Close;

ADODataSetTabl_Sotrudnik.Open;

DateTimePickerOtchetPeriod.Date:= now();

end;

procedure TFormReportF1God.N1Click(Sender: TObject);

begin

ButtonExitClick(Sender);

end;

procedure TFormReportF1God.ButtonPrintClick(Sender: TObject);

var s, s2, s3: string;

year, month, day : word;

z, z2, CountNomF1God: integer;

sum_sred, sum_fond, sum_nachisl: real;

begin

sum_sred:=0;

sum_fond:=0;

sum_nachisl:=0;

CreateWord;

OpenDoc(ExtractFileDir(application.ExeName)+'\Shablons\Ф.N 1-Т (ГОДОВАЯ) (К ПОСТ.

РОССТАТА ОТ 28.06.2006 N 28).rtf');

CountNomF1God:= StrToInt(FormMain.GetNastrParametr('NomF1God'));

inc(CountNomF1God);

decodedate(DateTimePickerOtchetPeriod.Date, year, month, day);

StartOfDoc; FindAndPasteTextDoc('***Гд',inttostr(year));

109

StartOfDoc; FindAndPasteTextDoc('***Организация',

FormMain.GetNastrParametr('NameFirma'));

StartOfDoc; FindAndPasteTextDoc('***ПочтАдрес',

FormMain.GetNastrParametr('AdresPocht'));

StartOfDoc; FindAndPasteTextDoc('***СредСпис02', EditSred02.Text);

StartOfDoc; FindAndPasteTextDoc('***Фонд02', EditFond02.Text);

StartOfDoc; FindAndPasteTextDoc('***Начисл02', EditNachisl02.Text);

StartOfDoc; FindAndPasteTextDoc('***СредСпис03', EditSred03.Text);

StartOfDoc; FindAndPasteTextDoc('***Фонд03', EditFond03.Text);

StartOfDoc; FindAndPasteTextDoc('***Начисл03', EditNachisl03.Text);

StartOfDoc; FindAndPasteTextDoc('***СредСпис04', EditSred04.Text);

StartOfDoc; FindAndPasteTextDoc('***Фонд04', EditFond04.Text);

StartOfDoc; FindAndPasteTextDoc('***Начисл04', EditNachisl04.Text);

StartOfDoc; FindAndPasteTextDoc('***СредСпис05', EditSred05.Text);

StartOfDoc; FindAndPasteTextDoc('***Фонд05', EditFond05.Text);

StartOfDoc; FindAndPasteTextDoc('***Начисл05', EditNachisl05.Text);

StartOfDoc; FindAndPasteTextDoc('***СредСпис06', EditSred06.Text);

StartOfDoc; FindAndPasteTextDoc('***Фонд06', EditFond06.Text);

StartOfDoc; FindAndPasteTextDoc('***Начисл06', EditNachisl06.Text);

StartOfDoc; FindAndPasteTextDoc('***СредСпис07', EditSred07.Text);

StartOfDoc; FindAndPasteTextDoc('***Фонд07', EditFond07.Text);

StartOfDoc; FindAndPasteTextDoc('***Начисл07', EditNachisl07.Text);

StartOfDoc; FindAndPasteTextDoc('***СредСпис08', EditSred08.Text);

StartOfDoc; FindAndPasteTextDoc('***Фонд08', EditFond08.Text);

StartOfDoc; FindAndPasteTextDoc('***Начисл08', EditNachisl08.Text);

StartOfDoc; FindAndPasteTextDoc('***СредСпис09', EditSred09.Text);

StartOfDoc; FindAndPasteTextDoc('***Фонд09', EditFond09.Text);

StartOfDoc; FindAndPasteTextDoc('***Начисл09', EditNachisl09.Text);

Источник: https://baza.diplomsite.ru/previewfile/2248

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







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