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

Скачать файл

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

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

procedure TMine.RepVodExecute(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 TReportV

then exist:=true;

if exist

then ReportV.show

else ReportV:=TReportV.Create(Application);

ReportV.WindowState:=wsNormal;

ReportV.Height:=202;

ReportV.Width:=372;

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

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

DecodeDate(date,year,month,day);

ReportV.ComboBox1.ItemIndex:=month-1;

ReportV.Edit1.SetFocus;

end;

procedure TMine.SaveExecute(Sender: TObject);

begin

//Проверка

if DM.QSKDSDesigner2.AsString<>JVod.DBEdit26.Text then begin

Application.MessageBox('Кондуктор с таким ТН в справочнике не найден!',

'Ошибка ввода данных!!!', MB_ICONERROR);

JVod.DBEdit26.SetFocus;

Exit;

end else JVod.DBComboBox2.SetFocus;

//Проверка на несколько путёвок

//Before Post on QJV

if DM.QJV.Modified then begin

100

DM.QJVDSDesigner2.AsInteger:=StrToInt(JVod.Edit1.text);

DM.QJV.Post;

end;

//Количество выходов

DM.QKol.SQL.Clear;

DM.QKol.SQL.Add('Select Число from РаботаВ where Год = '+Jvod.Edit3.Text+'

and Месяц = '''+Jvod.ComboBox1.Text+''' and Водитель = '+Jvod.Edit1.Text+' group by

Число');

DM.QKol.Active:=true;

Jvod.Label10.Caption:=inttostr(DM.QKol.RecordCount);

end;

procedure TMine.DeleteExecute(Sender: TObject);

begin

if Application.MessageBox(PChar('Вы действительно хотите удалить текущую

запись?'), 'Внимание!!!', MB_YESNO)=id_YES then

DM.QJV.Delete;

//Количество выходов

DM.QKol.SQL.Clear;

DM.QKol.SQL.Add('Select Число from РаботаВ where Год = '+Jvod.Edit3.Text+'

and Месяц = '''+Jvod.ComboBox1.Text+''' and Водитель = '+Jvod.Edit1.Text+' group by

Число');

DM.QKol.Active:=true;

Jvod.Label10.Caption:=inttostr(DM.QKol.RecordCount);

end;

procedure TMine.AddExecute(Sender: TObject);

var

n:integer;

begin

if DM.QJV.RecordCount<>0 then begin

//Проверка

if DM.QSKDSDesigner2.AsString<>JVod.DBEdit26.Text then begin

101

Application.MessageBox('Кондуктор с таким ТН в справочнике не найден!',

'Ошибка ввода данных!!!', MB_ICONERROR);

JVod.DBEdit26.SetFocus;

Exit;

end;

n:=strtoint(JVod.Edit1.text);

DM.QJV.Insert;

//Ещё 00.00

JVod.DBEdit41.Text:='0';

JVod.DBEdit10.Text:='0';

JVod.DBEdit7.Text:='0';

JVod.DBEdit1.Text:='0';

JVod.DBEdit11.Text:='0';

JVod.DBEdit19.Text:='0';

JVod.DBEdit20.Text:='0';

JVod.DBEdit21.Text:='0';

JVod.DBEdit22.Text:='0';

JVod.DBEdit42.Text:='0';

JVod.DBEdit43.Text:='0';

JVod.DBEdit44.Text:='0';

JVod.DBEdit45.Text:='0';

DM.QJVDSDesigner2.AsInteger:=n;

DM.QJVDSDesigner19.AsString:= DM.QOptDSDesigner3.AsString; //из настроек

DM.QJVDSDesigner15.AsString:= DM.QOptDSDesigner2.AsString; //из настроек

DM.QJVDSDesigner37.AsString:= DM.QOptDSDesigner4.AsString; //из настроек

JVod.DBComboBox1.Text:=Mine.DateToStringM(now);

DM.QJVDSDesigner6.AsString:=Mine.DateToStringM(now);

DM.QJVDSDesigner5.AsString:=Mine.DateToStringY(now);

DM.QJVDSDesigner7.AsString:=Mine.DateToStringD(now);

JVod.DBComboBox2.SetFocus;

end;

procedure TMine.ArhExecute(Sender: TObject);

102

var Arc,Dir:string;

begin

if SaveDialog.Execute then

begin

Arc:=ExtractShortPathName(ExtractFileDir(SaveDialog.FileName))+

'\'+ExtractFileName(SaveDialog.FileName);

Dir:=ExtractShortPathName(ExtractFileDir(Application.ExeName))+'\';

WinExec(PChar(Dir+'arj a -e '+Arc+' '+Dir+'База.mdb'),0);

MessageDLG('Архивирование успешно завершено',mtInformation,[mbOK],0);

end

end;

procedure TMine.ReArhExecute(Sender: TObject);

{var Arc,Dir:string;}

begin

{DM.ADOConnection1.Close;

DM.QJV.Close;

DM.QSV.Close;

DM.QSK.Close;

DM.QSPE.Close;

DM.QM.Close;

DM.QDop.Close;

DM.QOpt.Close;

DM.QDel.Close;

DM.QKol.Close;

if MessageDlg('Cуществующие данные будут потеряны'+#13+

'без архивирования. Продолжить?',mtConfirmation,[mbYes,mbNo],0)=mrYes then

if MDIChildCount<>0 then

begin

MessageDlg('Пожалуйста закройте все окна документов и

справочников.',mtError,[mbOk],0);

exit;

end

else

103

if OpenDialog.Execute then

begin

Arc:=ExtractShortPathName(OpenDialog.FileName);

Dir:=ExtractShortPathName(ExtractFileDir(Application.ExeName))+'\';

// CreateDir(Dir+'data\');

WinExec(PChar(Dir+'arj e -y '+Arc+' '+Dir+''),0);

MessageDLG('Восстановление успешно завершено',mtInformation,[mbOK],0);

end;

DM.QJV.Open;

DM.QSV.Open;

DM.QSK.Open;

DM.QSPE.Open;

DM.QM.Open;

DM.QDop.Open;

DM.QOpt.Open;

DM.QDel.Open;

DM.QKol.Open;

DM.ADOConnection1.Open;

// DM.ADOConnection1.Connected:=true;}

end;

procedure TMine.SaveKExecute(Sender: TObject);

begin

if DM.QSK.Modified then DM.QSK.Post;

end;

procedure TMine.AddKExecute(Sender: TObject);

begin

DM.QSK.Insert;

SKon.DBEdit1.SetFocus;

end;

procedure TMine.DeleteKExecute(Sender: TObject);

begin

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

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

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