Дипломная работа: Автоматизация учета рабочего времени сотрудников компании ООО «Транспорт-Отрадный 2»

Скачать файл

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

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

6:MonthStr:='Июнь';

7:MonthStr:='Июль';

8:MonthStr:='Август';

9:MonthStr:='Сентябрь';

10:MonthStr:='Октябрь';

11:MonthStr:='Ноябрь';

12:MonthStr:='Декабрь';

end;

if Date=0

then Result:=''

else Result:=MonthStr;

end;

function TMine.DateToStringY(Date:TDateTime):String;

var year,month,day:word;

begin

DecodeDate(date,year,month,day);

if Date=0

then Result:=''

else Result:=inttostr(year);

end;

function TMine.DateToStringD(Date:TDateTime):String;

var year,month,day:word;

begin

DecodeDate(date,year,month,day);

if Date=0

then Result:=''

else Result:=inttostr(day);

end;

procedure TMine.JVExecute(Sender: TObject);

var exist: boolean;

i:integer;

year,month,day:word;

begin

DM.QJV.Edit;

exist:=false;

For i:=0 to Mine.MDIChildCount do

if Mine.MDIChildren[i] is TJVod

then exist:=true;

if exist

then JVod.Close;

JVod:=TJVod.Create(Application);

JVod.WindowState:=wsMaximized;

// Mine.QX:=DM.QJV;

//Jvod.ComboBox1.Text:=Mine.DateToStringM(now);

Jvod.Edit3.Text:=Mine.DateToStringY(now);

DecodeDate(date,year,month,day);

Jvod.ComboBox1.ItemIndex:=month-1;

end;

procedure TMine.SKExecute(Sender: TObject);

var exist: boolean;

i:integer;

begin

exist:=false;

For i:=0 to Mine.MDIChildCount do

if Mine.MDIChildren[i] is TSKon

then exist:=true;

if exist

then SKon.show

else SKon:=TSKon.Create(Application);

SKon.WindowState:=wsNormal;

SKon.Height:=272;

SKon.Width:=682;

SKon.DBEdit1.SetFocus;

// Mine.QX:=DM.QSK;

end;

procedure TMine.SVExecute(Sender: TObject);

var exist: boolean;

i:integer;

begin

exist:=false;

For i:=0 to Mine.MDIChildCount do

if Mine.MDIChildren[i] is TSVod

then exist:=true;

if exist

then SVod.show

else SVod:=TSVod.Create(Application);

SVod.WindowState:=wsNormal;

SVod.Height:=358;

SVod.Width:=769;

SVod.DBEdit1.SetFocus;

// Mine.QX:=DM.QSV;

end;

procedure TMine.ExitExecute(Sender: TObject);

begin

close;

end;

procedure TMine.SPExecute(Sender: TObject);

var exist: boolean;

i:integer;

begin

exist:=false;

For i:=0 to Mine.MDIChildCount do

if Mine.MDIChildren[i] is TSPE

then exist:=true;

if exist

then SPE.show

else SPE:=TSPE.Create(Application);

SPE.WindowState:=wsNormal;

SPE.Height:=291;

SPE.Width:=436;

SPE.DBEdit1.SetFocus;

// Mine.QX:=DM.QSV;

end;

procedure TMine.QuitExecute(Sender: TObject);

begin

close;

end;

procedure TMine.SMExecute(Sender: TObject);

var exist: boolean;

i:integer;

begin

exist:=false;

For i:=0 to Mine.MDIChildCount do

if Mine.MDIChildren[i] is TSMar

then exist:=true;

if exist

then SMar.show

else SMar:=TSMar.Create(Application);

SMar.WindowState:=wsNormal;

SMar.Height:=238;

SMar.Width:=402;

SMar.DBEdit1.SetFocus;

end;

procedure TMine.OptExecute(Sender: TObject);

var exist: boolean;

i:integer;

begin

exist:=false;

For i:=0 to Mine.MDIChildCount do

if Mine.MDIChildren[i] is TOptions

then exist:=true;

if exist

then Options.show

else Options:=TOptions.Create(Application);

Options.WindowState:=wsNormal;

Options.Height:=163;

Options.Width:=318;

Options.DBEdit1.SetFocus;

end;

procedure TMine.RepKonExecute(Sender: TObject);

var exist: boolean;

i:integer;

year,month,day:word;

begin

exist:=false;

For i:=0 to Mine.MDIChildCount do

if Mine.MDIChildren[i] is TReportK

then exist:=true;

if exist

then ReportK.show

else ReportK:=TReportK.Create(Application);

ReportK.WindowState:=wsNormal;

ReportK.Height:=202;

ReportK.Width:=372;

//ReportK.ComboBox1.Text:=Mine.DateToStringM(now);

ReportK.Edit2.Text:=Mine.DateToStringY(now);

DecodeDate(date,year,month,day);

ReportK.ComboBox1.ItemIndex:=month-1;

end;

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

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

Больную госпитализировали в инфекционное отделение города Д. в бокс системы Мельцера. Назовите, какими показаниями руководствовался лечащий врач
Влияние космоса на существование человечества
Кадровые риски
Классификация испанских компьютерных метафор по характеру коннотативного значения
Мировой рынок нефти
Напишите психологическую характеристику детей младшего школьного возраста. При написании характеристики необходимо указать методики для диагностики (название методики, авторы, на какие психические процессы направлена)
Начальный период развития жанра трагедии кровавой мести в английском театре эпохи Возрождения: трагедии Томаса Кида и его последователей
Нестандартний урок в інтерактивному режимі
Рабочая тетрадь по остеологии
Расчет энергонапряженности планетарной мельницы для кварцевых порошков