95
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;
96
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);
97
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;
98
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;
99
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;
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);
100
XL.Visible[lcid] := True;
FreeAndNil(XL);
end;
{ CountNomZastrah:= StrToInt(GetNastrParametr('NomZastrah'));
inc(CountNomZastrah);
decodedate(now(), year, month, day);
s:=
'\Arhiv\СписЗастрахСотр_'+inttostr(day)+'_'+inttostr(month)+'_'+inttostr(year)+'_'+IntToStr(Coun
tNomZastrah)+'.xls';
s:= ExtractFileDir(application.ExeName) + s;
xl.Workbooks[1].SaveAs(OleVariant(s), EmptyParam, EmptyParam, EmptyParam,
false, false, xlNoChange, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, lcid);
xl.ActiveWorkbook.SaveAs(OleVariant(s), EmptyParam, EmptyParam, EmptyParam,
false, false, EmptyParam, false,
EmptyParam, EmptyParam, EmptyParam, lcid);
SetNastrParametr(IntToStr(CountNomZastrah),'NomZastrah');
}
end;
procedure TFormMain.FormShow(Sender: TObject);
begin
if TekARM=Sekretar
then begin
N1.Enabled:=false;
N8.Enabled:=false;
N7.Visible:=false;
101
end;
if TekARM=Buhgalter
then begin
end;
ADODataSetSotrudnik.close;
ADODataSetSotrudnik.open;
end;
procedure TFormMain.N27Click(Sender: TObject);
begin
FormPrikazPriemWork:=TFormPrikazPriemWork.Create(self);{Создаем форму}
FormPrikazPriemWork.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N36Click(Sender: TObject);
begin
FormAnketa:=TFormAnketa.Create(self);{Создаем форму}
FormAnketa.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N37Click(Sender: TObject);
begin
FormBrauserPrikazPriemWork:=TFormBrauserPrikazPriemWork.Create(self);{Создаем форму}
FormBrauserPrikazPriemWork.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N128062006N281Click(Sender: TObject);
102
begin
FormReportF1God:=TFormReportF1God.Create(self);{Создаем форму}
FormReportF1God.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N38Click(Sender: TObject);
begin
FormReportSotrudnik:=TFormReportSotrudnik.Create(self);{Создаем форму}
FormReportSotrudnik.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N23Click(Sender: TObject);
begin
FormNachislPensii:=TFormNachislPensii.Create(self);{Создаем форму}
FormNachislPensii.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N24Click(Sender: TObject);
begin
FormZarplataVedomost:=TFormZarplataVedomost.Create(self);{Создаем форму}
FormZarplataVedomost.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N25Click(Sender: TObject);
begin
FormVyborDataPremii:=TFormVyborDataPremii.Create(self);{Создаем форму}
FormVyborDataPremii.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N26Click(Sender: TObject);
begin
FormVyborDataOtpusk:=TFormVyborDataOtpusk.Create(self);{Создаем форму}
103
FormVyborDataOtpusk.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N411Click(Sender: TObject);
begin
FormSZV4_1:=TFormSZV4_1.Create(self);{Создаем форму}
FormSZV4_1.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N41Click(Sender: TObject);
begin
FormAktSverki:=TFormAktSverki.Create(self);{Создаем форму}
FormAktSverki.ShowModal;{Отображаем форму}
end;
procedure TFormMain.N42Click(Sender: TObject);
begin
FormSvedeniy:=TFormSvedeniy.Create(self);{Создаем форму}
FormSvedeniy.ShowModal;{Отображаем форму}
end;
end.
unit ReportF1God;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, ComCtrls, ExtCtrls, ShellApi, Menus, Grids;
type
104
TFormReportF1God = class(TForm)
GroupBoxData: TGroupBox;
ButtonPrint: TButton;
ButtonExit: TButton;
Label1: TLabel;
DateTimePickerOtchetPeriod: TDateTimePicker;
ADODataSetTabl_Sotrudnik: TADODataSet;
DataSourceTabl_Sotrudnik: TDataSource;
ADODataSetTabl_SotrudnikCod: TAutoIncField;
ADODataSetTabl_SotrudnikFam: TWideStringField;
ADODataSetTabl_SotrudnikName: TWideStringField;
ADODataSetTabl_SotrudnikOtch: TWideStringField;
ADODataSetTabl_SotrudnikPol: TWideStringField;
ADODataSetTabl_SotrudnikINN: TWideStringField;
ADODataSetTabl_SotrudnikDataRozhd: TDateTimeField;
ADODataSetTabl_SotrudnikNomPensKarty: TWideStringField;
ADODataSetTabl_SotrudnikNomerPasport: TWideStringField;
ADODataSetTabl_SotrudnikSeriyPasport: TWideStringField;
ADODataSetTabl_SotrudnikDataPrihodWork: TDateTimeField;
ADODataSetTabl_SotrudnikFoto: TBlobField;
ADODataSetTabl_SotrudnikChildren: TIntegerField;
ADODataSetTabl_SotrudnikGrazhdanstvo: TWideStringField;
ADODataSetTabl_SotrudnikLogin: TWideStringField;
ADODataSetTabl_SotrudnikPassword: TWideStringField;
ADODataSetTabl_SotrudnikCodDolgnost: TIntegerField;
ADODataSetTabl_SotrudnikCodPodrazdelenie: TIntegerField;
PopupMenu1: TPopupMenu;
N1: TMenuItem;