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

end;

Рисунок 3.8 – Пример сортировки

2) Выбор завершённых проектов за период, определяемый пользователем.

procedure TForm7.Button1Click(Sender: TObject);

function DateConv(date: tdate):string;

var i: integer;

begin

result:=datetostr(date);

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

end;

begin

adoquery1.SQL.Clear;

OutputQuery:='SELECT * FROM Проект WHERE ([Дата_начала_работ] Between #'+

DateConv(DateTimePicker1.Date)+'# And #'+DateConv(DateTimePicker2.Date)+

'#) And (статус='+#39+'завершен'+#39+')';

adoquery1.SQL.add(OutputQuery);

adoquery1.Active:=false;

adoquery1.Active:=true;

end;

Пример запроса приведен на рис.3.9.

Рисунок 3.9 – Запрос по проектам

3) Создание заявки на новый проект в пустой таблице «Заявки»

Данный шаг сделан потому, что для разработки проекта требуется определённое время. Так как задача администратора заключается в том, чтобы принять заявку, то таким способом она регистрируется в базе данных. Поскольку специалисту необходимо просчитать время, за которое проект будет закончен, какие работники будут выполнять мероприятия по данному проекту, то есть разработать проект.

procedure TForm8.Button1Click(Sender: TObject);

var s:string;

function DateConv(date: tdate):string;

var i: integer;