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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
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;
Источник: https://baza.diplomsite.ru/previewfile/2248

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

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