Смекни!
smekni.com

Программный комплекс учёта работы предприятия по озеленению (стр. 3 из 3)

'= Участие.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 – Запрос по работникам

5) Вывод отчёта по завершённым проектам.

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

SELECT Проект.Название, Заказчик.Наименование, Проект.Дата_начала_работ, Проект.Дата_окончания, Проект.Статус

FROM Заказчик INNER JOIN Проект ON Заказчик.Id_заказчика = Проект.Id_заказчика WHERE Проект.Статус="Завершен"

Рисунок 3.13 – Вывод отчёта перед печатью

6) Вывод отчёта по всем проектам

SELECT Проект.Название, Заказчик.Наименование, Мероприятия.Вид_работы, Работник.Фамилия, Работник.Имя

FROM Работник INNER JOIN (((Заказчик INNER JOIN Проект ON Заказчик.Id_заказчика = Проект.Id_заказчика)

INNER JOIN Мероприятия ON Проект.Id_проекта = Мероприятия.Id_проекта)

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

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

Рисунок 3.14 – Вывод отчёта по всем проектам


4. Руководство пользователя

4.1Требования к аппаратным средствам

Техническое обеспечение АСОИ это комплекс технических средств - совокупность взаимосвязанных единым управлением и автономных технических средств, предназначенных для сбора, хранения, накопления, обработки, передачи, вывода информации, а также средств оргтехники и управления.

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

Для эффективной работы программного продукта необходимо выполнение следующих требований к аппаратным и программным средствам:

– процессор 1000 MHz;

– видеокарта 32 Mb,

– 128 Mb оперативной памяти,

– Mb дискового пространства для минимальной конфигурации,

– операционная система Windows 2000/NT/Millenium/XP,

– лазерная мышь,

– клавиатура,

– принтер.

4.2 Особенности запуска и работы с ПП

Программа имеет интуитивно–понятный интерфейс, обладает системой подсказок. Данные особенности программы устраняют трудности при ее запуске и работе.

После запуска программы выводится окно, в котором имеются таблицы БД, предназначенные для ввода данных пользователем. В программе поддерживается обновление данных и результатов. Это означает, что если пользователю необходимо изменить введенные данные, достаточно просто откорректировать их, после чего содержимое базы данных автоматически обновится.

Пользователю доступно главное меню программы, в котором реализованы следующие возможности Пользователю:

- создать заявку;

- редактировать базы данных работников, заказчиков, проектов, мероприятий;

- проконтролировать занятость работников;

- редактировать проект;

- выдавать отчёт.


ЗАКЛЮЧЕНИЕ

В ходе создания программного продукта был приобретен опыт разработки программного обеспечения с использованием знаний проектирования баз данных и системного программирования, что делает возможным разрабатывать программы для решения важных задач.

Были изучены и реализованы SQL–запросы, системные сообщения, фильтрация, поиск, сортировка записей файлов БД.

В данной работе SQL–запросы используются для того, чтобы из большого количества записей файлов базы данных отобразить только те, которые интересуют пользователя на данный момент.

В ходе выполнения курсовой работы были реализованы следующие функции:

- создание программного комплекса, который осуществляет управление данными в базе данных;

- возможность осуществлять анализ данных с выявлением наиболее ценной для пользователя информации;

- представление пользователю данных в наиболее информативном виде, для получения пользователем максимального количества информации;

- возможность выполнить запросы к базе данных, результат выполнения которых имеет определенную важность для конечного пользователя.

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


СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

1. Кренке Д. Теория и практика построения баз данных. 8–е изд. / Д. Кренке. – СПб.: Питер, 2003. – 800 с.: ил.

2. Скотт Ф. Уилсон, Брюс Мэйплс Принципы проектирования и разработки программного продукта. Учебный курс MCSD/Пер. с англ. – 2–е изд. Издательско–торговый дом «Русская редакция», 2002 – 736 стр.

3. Федоров А.Г. Delphi 6.0 для всех.– 2–е изд., перераб. и доп.– М.:ТОО фирма «КомпьютерПресс»,1997.– 464с.

4. Архангельский А. Книга Delphi 7 Справочное пособие. – Спб: Бином–Пресс, 2007. – 1024 с.

5. Сагайда П.И. Розробка та організація баз даних у системах автоматизації проектування та управління: Навчальний посібник для студентів спеціальності 7.080402 / П.И. Сагайда. – Краматорськ: ДДМА, 2003. – 160 с.

6. Бобровский С. И. Delphi 7 Учебный курс – СПб.: Питер, 2005. – 736 с.: ил.

7. Фаронов В.В., Шумаков П.В. Delphi 5 Руководство разработчика баз данных – М.: «Нолидж», 2000. – 640., ил.

8. Скотт Ф. Уилсон, Брюс Мэйплс Принципы проектирования и разработки программного продукта. Учебный курс MCSD/Пер. с англ. – 2–е изд. Издательско–торговый дом «Русская редакция», 2002 – 736 стр.

9. Фаулер М., Скотт К. UML. Основые. – Пер. с англ. – Спб: Символ–Плюс, 2002. – 912 с., ил.

10. UML и Rational Rose / Подред. У. Боггс, М. Боггс. – М.: Лори, 2001. – 608 с.

11. Коннолли Т., Бегг К. Базы данных.Проектирование, реализация и сопровождение. Теория и практика/Пер. с англ. – 3–е изд. М.:Издательский дом «Вильямс»,2003. – 1440 c, ил.

12. Дейт К. Дж. Введение в системы баз данных/Пер. с англ. — 8-е изд. М.: Издательский дом "Вильяме", 2005. — 1328 с., ил.


ПРИЛОЖЕНИЕ А

Листинг модуля Unit 1

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit10,

Unit12,Unit8,unit11, Unit9;

{$R *.dfm}

function TForm1.ExecSQL(Query: string): integer;

begin

ADOQuerySQL.SQL.Clear;

ADOQuerySQL.SQL.Add(Query);

result:=ADOQuerySQL.ExecSQL;

if result>0 then

begin

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

end;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form1.Close

end;


procedure TForm1.N3Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form3.ShowModal

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

AdoQuery3.Active:=True;

Form6.QuickRep1.Preview;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

form7.showmodal;

end;

procedure TForm1.DBGid1TitleClick(Column: TColumn);

var s:string;

begin

s:=Column.Title.Caption;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from проект order by '+s);

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

end;

procedure TForm1.n13Click(Sender: TObject);

begin

form10.showmodal

end;

procedure TForm1.DBGrid2TitleClick(Column: TColumn);

var s:string;

begin

s:=Column.Title.Caption;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('select * from Мероприятия order by '+s);

ADOQuery2.Active:=false;

ADOQuery2.Active:=true;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

image1.Picture.LoadFromFile('MainFormPicture.jpg');

end;


procedure TForm1.N10Click(Sender: TObject);

begin

AdoQuery4.Active:=True;

form12.quickrep1.preview;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

form8.ShowModal;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

form11.showmodal;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

form9.showmodal;

end;

end.