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

Скачать файл

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

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

procedure TFormMain.N31Click(Sender: TObject);

begin

FormOklady:=TFormOklady.Create(self);{Создаем форму}

FormOklady.ShowModal;{Отображаем форму}

end;

procedure TFormMain.N30Click(Sender: TObject);

begin

FormOtpusk:=TFormOtpusk.Create(self);{Создаем форму}

FormOtpusk.ShowModal;{Отображаем форму}

end;

procedure TFormMain.N22Click(Sender: TObject);

begin

FormNachislZarplaty:=TFormNachislZarplaty.Create(self);{Создаем форму}

FormNachislZarplaty.ShowModal;{Отображаем форму}

end;

procedure TFormMain.N34Click(Sender: TObject);

begin

N3Click(Sender);

end;

procedure TFormMain.N35Click(Sender: TObject);

begin

FormKomandir:=TFormKomandir.Create(self);{Создаем форму}

FormKomandir.ShowModal;{Отображаем форму}

end;

procedure TFormMain.excel1Click(Sender: TObject);

const

lcid = LOCALE_USER_DEFAULT;

var

XL: TExcelApplication;

WB: TExcelWorkbook;

ASheet: TExcelWorksheet;

{$ifdef D7}

LastCell: ExcelRange;

{$else}

LastCell: Range;

{$endif}

AChart: _Chart;

R, C: Integer;

B: TBookmark;

repData, value_, Colum: Variant;

s: string;

year, month, day : word;

CountNomZastrah: integer;

begin

XL := TExcelApplication.Create(Self);

WB := TExcelWorkbook.Create(Self);

ASheet := TExcelWorksheet.Create(Self);

try

XL.Connect;

WB.ConnectTo(XL.Workbooks.Add(EmptyParam, lcid));

ASheet.ConnectTo(XL.ActiveSheet as ExcelWorksheet);

ASheet.Range['B1', EmptyParam].Value := 'Список застрахованных лиц,';

// ASheet.Range['B1', EmptyParam].Font.ColorIndex:= 46;

ASheet.Range['B1', EmptyParam].Font.Bold:=true;

ASheet.Range['B1', EmptyParam].Font.Size:=16;

ASheet.Range['B2', EmptyParam].Value := 'на которых предоставляются сведения';

// ASheet.Range['B2', EmptyParam].Font.ColorIndex:= 46;

ASheet.Range['B2', EmptyParam].Font.Bold:=true;

ASheet.Range['B2', EmptyParam].Font.Size:=16;

ASheet.Range['B3', EmptyParam].Value := 'по организации ОАО "Эльта"';

// ASheet.Range['B3', EmptyParam].Font.ColorIndex:= 46;

ASheet.Range['B3', EmptyParam].Font.Bold:=true;

ASheet.Range['B3', EmptyParam].Font.Size:=16;

ASheet.Range['A5', EmptyParam].Value := 'Фамилия';

// ASheet.Range['A5', EmptyParam].Font.ColorIndex:= 5;

ASheet.Range['A5', EmptyParam].Font.Bold:=true;

ASheet.Range['A5', EmptyParam].Font.Size:=14;

ASheet.Range['B5', EmptyParam].Value := 'Имя';

// ASheet.Range['B5', EmptyParam].Font.ColorIndex:= 5;

ASheet.Range['B5', EmptyParam].Font.Bold:=true;

ASheet.Range['B5', EmptyParam].Font.Size:=14;

ASheet.Range['C5', EmptyParam].Value := 'Отчество';

// ASheet.Range['C5', EmptyParam].Font.ColorIndex:= 5;

ASheet.Range['C5', EmptyParam].Font.Bold:=true;

ASheet.Range['C5', EmptyParam].Font.Size:=14;

ASheet.Range['D5', EmptyParam].Value := 'Табельный номер';

// ASheet.Range['D5', EmptyParam].Font.ColorIndex:= 5;

ASheet.Range['D5', EmptyParam].Font.Bold:=true;

ASheet.Range['D5', EmptyParam].Font.Size:=14;

ASheet.Range['E5', EmptyParam].Value := 'Пенсионная карта';

// ASheet.Range['D5', EmptyParam].Font.ColorIndex:= 5;

ASheet.Range['E5', EmptyParam].Font.Bold:=true;

ASheet.Range['E5', EmptyParam].Font.Size:=14;

Colum:=ASheet.Range['A6:E30', EmptyParam].Rows;

Colum.Rows.Font.Size:=12;

Colum.Rows.Font.Bold:=true;

// Colum.Rows.Font.ColorIndex:= 7;

ASheet.Columns.ColumnWidth:= 40;

ASheet.Columns.RowHeight:=20;

XL.Visible[lcid] := True;

R := 1;

with ADODataSetSotrudnik do begin

B := GetBookmark;

DisableControls;

repData := VarArrayCreate([1, RecordCount+1, 1, 5], varVariant);

try

First;

// чтение данных из датасэта в массив "вариант"

while not Eof do begin

repData[R, 1]:= ADODataSetSotrudnikFam.Value;

repData[R, 2]:= ADODataSetSotrudnikName.Value;

repData[R, 3]:= ADODataSetSotrudnikOtch.Value;

repData[R, 4]:= ADODataSetSotrudnikTabNomer.Value;

repData[R, 5]:= ADODataSetSotrudnikNomPensKarty.Value;

Inc(R);

Next;

end;

// запись данных в лист

ASheet.Range['A7', ASheet.Cells.Item[RecordCount + 5, 5]].Value := repData;

ASheet.Range['A7', EmptyParam].Font.Bold:=true;

ASheet.Range['A7', EmptyParam].Font.Size:=14;

VarClear(repData);

finally

if Assigned(B) then begin

if BookmarkValid(B) then GoToBookmark(B);

FreeBookmark(B);

end;

EnableControls;

end;

// последняя ячейка

LastCell := ASheet.Range['A1', EmptyParam].SpecialCells(xlCellTypeLastCell, EmptyParam);

if Sender = excel1

then begin

XL.ActiveWindow.Zoom := 75; // 75%

XL.ActiveWindow.DisplayWorkbookTabs := False; // спрячем ярлыки страниц

end;

finally

FreeAndNil(ASheet);

FreeAndNil(WB);

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

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







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