Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Самарский государственный экономический университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

График_рабочего.rtf

Скачиваний:

Добавлен:

01.07.2025

Размер:

39 Мб

Скачать

☆

<<< < Предыдущая 1 2 34 / 64 5 6 > Следующая >>>

5. Основная часть

На данной блок схеме представлен общий алгоритм составления графика учета рабочего времени. Для более детального изучения алгоритма можно посмотреть приложение Б в котором помещен исходный код с подробными комментариями. При запуске приложение проверяет, существует ли файл базы данных, если он не найден, происходит динамическое создание структуры базы данных с заполнением первоначальных значений в поля.

6. Sql запросы

Для базы данных «График учета рабочего времени на шахте им. Т. Кузембаева в цехе «Автоматика» » выполнены следующие запросы:

Подсчет количества записей в таблице

Function SQL_CountRows(table:string;Connection:TADOConnection):integer;

var

str:_Recordset;

request:string;

begin

request := 'SELECT COUNT(ID) FROM ' + table;

STR := Connection.Execute(request);

result := integer(str.Fields.Item[0].Value);

end;

где table – передаваемый в функцию параметр – название таблицы;

Получение значений атрибутов из таблицы «Отпуски», для заполнения массива, хранящего эти значения для последующих вычислений.

request := 'SELECT LinkWoker, DateBegin, Length FROM ОТПУСКИ';

STR := ADOConnection1.Execute(request);

Получение значений атрибутов из таблицы «Рабочие», для заполнения массива, хранящего эти значения для последующих вычислений

request := 'SELECT WokerName, LinkStatus, TabNumber FROM РАБОЧИЕ';

STR := ADOConnection1.Execute(request);

Пометка выходных дней в массиве дней месяца из таблицы, в которой хранятся данные о выходных днях «Выходные».

with sql_CreateQuery(ADOConnection1) do begin

SQL.Text := 'SELECT DateCelebrate FROM Выходные WHERE DateCelebrate BETWEEN :Date1 and :Date2';

with Parameters do begin

ParseSQL(SQL.Text, true);

ParamValues['Date1'] := Date1;

ParamValues['Date2'] := Date2;

end;

Open;

while not(EOF) do begin

MonthInfo[DayOfTheMonth(TDateTime(FieldValues['DateCelebrate']))] := DayCelebrate;

next;

end;

Close;

Free;

end;

Сохранение названия сохраненного графика, даты сохранения в таблицу «Сохраненные_графики».

procedure SaveToSavedGraphic(NameBD:string; DateOfSave:TDateTime; MonthNum, YearNum:integer);

begin

with sql_CreateQuery(ADOConnection1) do begin

SQL.Text := 'INSERT INTO Сохраненные_графики (NameGraphic, DateOfSave, LinkMonthNum, YearNum) VALUES(:p1, :p2, :p3, :p4)';

with parameters do begin

ParseSQL(SQL.Text, true);

ParamValues['p1'] := NameBD;

ParamValues['p2'] := DateOfSave;

ParamValues['p3'] := MonthNum;

ParamValues['p4'] := YearNum;

end;

ExecSQL();

Close;

Free;

end;

Процедура сохранения самого графика в таблицу «Графики», с указанием ID сохранения в таблице «Сохраненные_графики».

procedure SaveToGraphic(IDNum, LinkWoker, LinkTypeOfDay:integer; DateOfCell:TDateTime);

begin

with sql_CreateQuery(ADOConnection1) do begin

SQL.Text := 'INSERT INTO Графики (LinkSaveId, LinkWoker, LinkTypeOfDay, DateOfCell) VALUES(:p1, :p2, :p3, :p4)';

with parameters do begin

ParseSQL(SQL.Text, true);

ParamValues['p1'] := IDNum;

ParamValues['p2'] := LinkWoker + 1;

ParamValues['p3'] := LinkTypeOfDay;

ParamValues['p4'] := DateOfCell;

end;

ExecSQL();

Close;

Free;

end;

Получение ID последней добавленной в таблицу строки.

function GetLastID(conn:TADOConnection):integer;

begin

result := 0;

with sql_CreateQuery(conn) do begin

SQL.Text := 'SELECT @@IDENTITY';

Open();

if Not (eof) then begin

result := Fields.Fields[0].Value;

end;

Close();

Free;

end;

request := 'CREATE TABLE Профессия ' + '( ' +

ID IDENTITY (1, 1) CONSTRAINT PK_Profession_ID PRIMARY KEY, '+

nameProfession CHAR(255) NOT NULL UNIQUE '+ ')';

Conn.Execute(request);

request := 'CREATE TABLE Статус ' + '( ' +

' ID IDENTITY (1, 1) CONSTRAINT PK_Profession_ID PRIMARY KEY, ' +

nameStatus CHAR(255) NOT NULL UNIQUE '+ ')';

Conn.Execute(request);

request := 'CREATE TABLE Рабочие ' +'( ' +

' ID IDENTITY (1, 1) CONSTRAINT PK_Woker_ID PRIMARY KEY, ' +

' WokerName CHAR(128) NOT NULL , ' +

' TabNumber INTEGER , ' +

' LinkProfession INTEGER not null CONSTRAINT LINK_Profession_ID ' +

' REFERENCES Профессия(ID) , ' +

' LinkStatus INTEGER not null CONSTRAINT LINK_Status_ID ' +

' REFERENCES Статус(ID)' + ')';

Conn.Execute(request);

request := 'CREATE TABLE Отпуски ' + '( ' +

' ID IDENTITY (1, 1) CONSTRAINT PK_Holidays_ID PRIMARY KEY , ' +

' LinkWoker INTEGER not null CONSTRAINT LINK_Woker_ID ' +

' REFERENCES Рабочие(ID) , ' +

' DateBegin Date , ' +

' Length INTEGER ' + ')';

Conn.Execute(request);

request := 'CREATE TABLE Типы_дней ' + '( ' +

' ID INTEGER UNIQUE, ' +

' NameOfType CHAR(128) ' + ')';

Conn.Execute(request);

request := 'CREATE TABLE Месяцы ' + '( ' +

' ID INTEGER UNIQUE, ' +

' MonthName CHAR(128) ' + ')';

Conn.Execute(request);

request := 'CREATE TABLE Сохраненные_графики ' + '( ' +

' ID IDENTITY (1, 1) CONSTRAINT PK_SavedGraphic_ID PRIMARY KEY , ' +

' NameGraphic CHAR(128) , ' +

' DateOfSave DATE , ' +

' LinkMonthNum INTEGER not null CONSTRAINT LINK_Month_ID ' +

' REFERENCES Месяцы(ID) , ' +

' YearNum CHAR(128) ' + ')';

Conn.Execute(request);

request := 'CREATE TABLE Графики ' + '( ' +

' ID IDENTITY (1, 1) CONSTRAINT PK_Graphic_ID PRIMARY KEY, ' +

' LinkSaveID INTEGER not null CONSTRAINT LINK_SavedGraphics_ID ' +

' REFERENCES Сохраненные_графики(ID) , ' +

' DateOfCell DATE , ' +

' LinkWoker INTEGER not null CONSTRAINT LINK_Woker_IDN ' +

' REFERENCES Рабочие(ID) , ' +

' LinkTypeOfDay INTEGER not null CONSTRAINT LINK_TypeOfDay_ID ' +

' REFERENCES Типы_дней(ID) ' + ')';

Conn.Execute(request);

request := 'CREATE TABLE Праздники ' + '( ' +

' ID IDENTITY (1, 1) CONSTRAINT PK_Celebrate_ID PRIMARY KEY , ' +

' Title CHAR(128) ' + ')';

Conn.Execute(request);

request := 'CREATE TABLE Выходные ' + '( ' +

' ID IDENTITY (1, 1) CONSTRAINT PK_DateCelebrate_ID PRIMARY KEY , ' +

' DateCelebrate DATE , ' +

' LinkName INTEGER not null CONSTRAINT LINK_HOL_ID' +

' REFERENCES Праздники(ID) ' + ')';

Conn.Execute(request);

//---------------------------------Заполнение полей значениями------------------

request := 'INSERT INTO Месяцы(ID, MonthName)'+

' VALUES (0, ''Январь '')';

Conn.Execute(request);

request := 'INSERT INTO Месяцы(ID, MonthName)'+

' VALUES (1, ''Февраль '')';

Conn.Execute(request);

request := 'INSERT INTO Месяцы(ID, MonthName)'+

' VALUES (2, ''Март '')' ;

Conn.Execute(request);

request := 'INSERT INTO Месяцы(ID, MonthName)'+

' VALUES (3, ''Апрель '')';

Conn.Execute(request);

request := 'INSERT INTO Месяцы(ID, MonthName)'+

' VALUES (4, ''Май '')';

Conn.Execute(request);

request := 'INSERT INTO Месяцы(ID, MonthName)'+

' VALUES (5, ''Июнь '')';

Conn.Execute(request);

request := 'INSERT INTO Месяцы(ID, MonthName)'+

' VALUES (6, ''Июль '')';

Conn.Execute(request);

request := 'INSERT INTO Месяцы(ID, MonthName)'+

' VALUES (7, ''Август '')';

Conn.Execute(request);

request := 'INSERT INTO Месяцы(ID, MonthName)'+

' VALUES (8, ''Сентябрь '')';

Conn.Execute(request);

request := 'INSERT INTO Месяцы(ID, MonthName)'+

' VALUES (9, ''Октябрь '')';

Conn.Execute(request);

request := 'INSERT INTO Месяцы(ID, MonthName)'+

' VALUES (10, ''Ноябрь '')';

Conn.Execute(request);

request := 'INSERT INTO Месяцы(ID, MonthName)'+

' VALUES (11, ''Декабрь '')';

Conn.Execute(request);

//------------------------------------------------------------------------------------/

request := 'INSERT INTO Типы_дней(ID, NameOfType)'+

' VALUES (0, ''Смена1 '')';

Conn.Execute(request);

request := 'INSERT INTO Типы_дней(ID, NameOfType)'+

' VALUES (1, ''Смена2 '')';

Conn.Execute(request);

request := 'INSERT INTO Типы_дней(ID, NameOfType)'+

' VALUES (2, ''Смена3 '')';

Conn.Execute(request);

request := 'INSERT INTO Типы_дней(ID, NameOfType)'+

' VALUES (3, ''Смена4 '')';

Conn.Execute(request);

request := 'INSERT INTO Типы_дней(ID, NameOfType)'+

' VALUES (4, ''Нерабочий день '')';

Conn.Execute(request);

request := 'INSERT INTO Типы_дней(ID, NameOfType)'+

' VALUES (5, ''Отпуск '')';

Conn.Execute(request);

//------------------------------------------------------------------------------------/

request := 'INSERT INTO Профессия(ID, NameProfession)'+

' VALUES (1, ''ПЭС '')';

Conn.Execute(request);

request := 'INSERT INTO Профессия(ID, NameProfession)'+

' VALUES (2, ''ДЭС '')';

Conn.Execute(request);

//------------------------------------------------------------------------------------/

request := 'INSERT INTO Статус(ID, NameStatus)'+

' VALUES (1, ''Вентиляторщик, работающий в выходные '')';

Conn.Execute(request);

request := 'INSERT INTO Статус(ID, NameStatus)'+

' VALUES (2, ''Вентиляторщик, не работающий в выходные '')';

Conn.Execute(request);

request := 'INSERT INTO Статус(ID, NameStatus)'+

' VALUES (3, ''Дежурный '')';

Conn.Execute(request);

request := 'INSERT INTO Статус(ID, NameStatus)'+

' VALUES (4, ''Рабочий'')';

Conn.Execute(request);

//------------------------------------------------------------------------------------/