Курсовая работа: Программный комплекс учёта работы предприятия по озеленению

result:=datetostr(date);

for i:=1 to length(result) do if result[i]='.' then result[i]:='/';

end;

begin

s:='INSERT into Заявки values ('+#39+combobox1.text+#39+', '+#39+edit1.text+#39+','+#39+combobox2.text+#39+', #'+dateConv(DateTimePicker1.Date)+'#)';

form1.ExecSQL(s);

Form9.ShowModal;

Form8.Close;

end;

Пример регистрации заявки предоставлен на рис 3.10-3.11.

Рисунок 3.10 – Регистрация заявки

Рисунок 3.11 – Заполнение формы заявок

4) запрос, показывающий сколько часов и по какому проекту отработал определённый работник

procedure TForm10.Button1Click(Sender: TObject);

var s: string;

begin

adoquery1.SQL.Clear;

s:='SELECT Работник.Фамилия, Работник.Имя, Проект.Название, Участие.[Кол-во_отработ_часов] FROM '+

Работник INNER JOIN (Проект INNER JOIN (Мероприятия INNER JOIN Участие ON Мероприятия.Id_мероприятия '+

'= Участие.Id_мероприятия) ON Проект.Id_проекта = Мероприятия.Id_проекта) ON Работник.Id_работника = Участие.Id_работника';

adoquery1.SQL.add('select * from ('+s+') where Фамилия ='+#39+edit1.text+#39+';');

adoquery1.active:=false;

adoquery1.active:=true;

end;

Вывод данного запроса на экран можно посмотреть на рис.3.12.

Рисунок 3.12 – Запрос по работникам