АРМ диспетчера автотранспортного предприятия

Автор работы: Пользователь скрыл имя, 13 Июня 2012 в 19:45, курсовая работа

Краткое описание

Темой данного курсового проекта является разработка программного обеспечения «АРМ диспетчера автотранспортного предприятия». Данное программное обеспечение осуществляет добавление, удаление а также редактирование справочных таблиц. Для проектирования программного продукта использовалась объектно-ориентированная среда программирования Borland Delphi 7.0 – в ней были созданы все формы, составляющие интерфейс, и модули, содержащие код основных функций, выполняемых программой.

Содержание работы

Введение 6
1 Анализ технического задания 8
1.1 Общие положения 8
1.2 Требования к составу выполняемых функций 8
1.3 Требования к надежности системы 10
1.4 Исходные данные 10
2 Выбор и обоснование архитектуры системы 11
3 Выбор и обоснование алгоритма программы 13
3.1 Нормальные формы отношений 13
3.2 Выбор и обоснование компонентов 15
3.3 Создание таблиц базы данных 16
3.4 Оформление отчетов 19
4 Описание программы 20
4.1 Общее описание 20
4.2 Инструкция по установке 20
4.2.1 Комплект поставки 20
4.2.2 Минимальные требования 20
4.3 Состав программного продукта 20
4. 4 Описание процедур и функций программы 21
5 Описание пользовательского интерфейса 28
6 Описание средств защиты данных и программ 33
7 Описание тестового примера и отчетной документации, протокол тестирования программ 35
7.1 Отчетная документация 35
7.2 Описание тестового примера 35
7.3 Протокол тестирования программ 35
Заключение 39
Список используемой литературы 40
Приложение А (обязательное) 41

Скачать целиком (370.15 Кб) Сколько стоит заказать работу?

Содержимое работы - 1 файл

ПЗ.docx

— 422.78 Кб (Скачать файл)

begin

case RadioGroup1.ItemIndex of

0: strField:='ID_REIS';

1: strField:='REIS';

2: strField:='DATE_OTPRAV';

3: strField:='DATE_PRIBUTIA';

4: strField:='NOMER_REISA';

end;

datamodule1.IBQuery1.SQL.Clear;

datamodule1.IBQuery1.SQL.Add('SELECT * FROM REIS');

datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' like ''' +Edit1.Text+'%''');

datamodule1.IBQuery1.Open;

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

form2.DBGrid8.Columns[0].Title.caption:='Код рейса';

form2.DBGrid8.Columns[1].Title.caption:='Рейс';

form2.DBGrid8.Columns[2].Title.caption:='Дата отправления';

form2.DBGrid8.Columns[3].Title.caption:='Дата прибытия';

form2.DBGrid8.Columns[4].Title.caption:='Номер рейса';

end;

//Сотрудники

if nomer=4 then

begin

case RadioGroup1.ItemIndex of

0: strField:='ID_SOTRUD';

1: strField:='NOMER_SOTRUD';

2: strField:='FIO_SOTRUD';

3: strField:='DATE_ROGDENIA';

4: strField:='DATE_PRIEMA_NA_RABOT';

end;

datamodule1.IBQuery1.SQL.Clear;

datamodule1.IBQuery1.SQL.Add('SELECT * FROM SOTRUDNIKI');

datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' like ''' +Edit1.Text+'%''');

datamodule1.IBQuery1.Open;

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

form2.DBGrid8.Columns[0].Title.caption:='Код сотрудника';

form2.DBGrid8.Columns[1].Title.caption:='Номер сотрудника';

form2.DBGrid8.Columns[2].Title.caption:='ФИО сотрудника';

form2.DBGrid8.Columns[3].Title.caption:='Дата рождения';

form2.DBGrid8.Columns[4].Title.caption:='Дата приема на работу';

end;

//Транспорт

if nomer=5 then

begin

case RadioGroup1.ItemIndex of

0: strField:='ID_AVTO';

1: strField:='MARKA_AVTO';

2: strField:='DATE_VIPUSKA';

3: strField:='COLOR';

4: strField:='IDEN_NOMER';

5: strField:='REG_ZNAK';

end;

datamodule1.IBQuery1.SQL.Clear;

datamodule1.IBQuery1.SQL.Add('SELECT * FROM TRANSPORT');

datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' like ''' +Edit1.Text+'%''');

datamodule1.IBQuery1.Open;

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

form2.DBGrid8.Columns[0].Title.caption:='Код авто';

form2.DBGrid8.Columns[1].Title.caption:='Марка авто';

form2.DBGrid8.Columns[2].Title.caption:='Дата выпуска';

form2.DBGrid8.Columns[3].Title.caption:='Цвет';

form2.DBGrid8.Columns[4].Title.caption:='Идентификационный номер';

form2.DBGrid8.Columns[5].Title.caption:='Рег. знак';

end;

//Зарплата

if nomer=6 then

begin

case RadioGroup1.ItemIndex of

0: strField:='ID_DOLGNOSTI';

1: strField:='DOLGNOCT';

2: strField:='OKLAD_RUB';

end;

datamodule1.IBQuery1.SQL.Clear;

datamodule1.IBQuery1.SQL.Add('SELECT * FROM ZARPLATA');

datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' like ''' +Edit1.Text+'%''');

datamodule1.IBQuery1.Open;

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

form2.DBGrid8.Columns[0].Title.caption:='Код должности';

form2.DBGrid8.Columns[1].Title.caption:='Должность';

form2.DBGrid8.Columns[2].Title.caption:='Оклад';

end;

//Поиск с сортировкой

procedure TForm2.BitBtn2Click(Sender: TObject);

var

strField:string ;

begin

nomer:=form2.PageControl1.ActivePage.TabIndex;

if edit1.text='' then

begin

messagedlg('Заполните поля для поиска !',mtError,[mbcancel],0);

end

else

//Груз

if nomer=0 then

begin

case RadioGroup1.ItemIndex of

0: strField:='ID_GRUZA';

1: strField:='REIS';

2: strField:='GRUZ';

3: strField:='COMPANIA';

4: strField:='PROBEG';

5: strField:='PRICE_1KM';

6: strField:='DOHOD';

end;

datamodule1.IBQuery1.SQL.Clear;

datamodule1.IBQuery1.SQL.Add('SELECT * FROM GRUZ');

datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' between ' +Edit1.Text+' and '+Edit2.Text);

datamodule1.IBQuery1.Open;

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

form2.DBGrid8.Columns[0].Title.caption:='Код груза';

form2.DBGrid8.Columns[1].Title.caption:='Рейс';

form2.DBGrid8.Columns[2].Title.caption:='Груз';

form2.DBGrid8.Columns[3].Title.caption:='Компания';

form2.DBGrid8.Columns[4].Title.caption:='Пробег';

form2.DBGrid8.Columns[5].Title.caption:='Цена за 1 км';

form2.DBGrid8.Columns[6].Title.caption:='Доход';

end;

//Прохождение ТО

if nomer=1 then

begin

case RadioGroup1.ItemIndex of

0: strField:='ID_AVTO';

1: strField:='REG_ZNAK';

2: strField:='DATE_PROHOGDENIA_TO';

3: strField:='OTVETSTVEN_ZA_TO';

end;

datamodule1.IBQuery1.SQL.Clear;

datamodule1.IBQuery1.SQL.Add('SELECT * FROM PROHOGDENIE_TO');

datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' between ' +Edit1.Text+' and '+Edit2.Text);

datamodule1.IBQuery1.Open;

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

form2.DBGrid8.Columns[0].Title.caption:='Код авто';

form2.DBGrid8.Columns[1].Title.caption:='Рег. знак';

form2.DBGrid8.Columns[2].Title.caption:='Дата прохождения ТО';

form2.DBGrid8.Columns[3].Title.caption:='Ответственн. за ТО';

end;

//Путевой лист

if nomer=2 then

begin

case RadioGroup1.ItemIndex of

0: strField:='REIS';

1: strField:='GRUZ';

2: strField:='SOTRUD';

3: strField:='AVTO';

4: strField:='REG_ZNAK';

5: strField:='DATE';

6: strField:='ID_PUTEV_LIST';

end;

datamodule1.IBQuery1.SQL.Clear;

datamodule1.IBQuery1.SQL.Add('SELECT * FROM PUTEV_LIST');

datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' between ' +Edit1.Text+' and '+Edit2.Text);

datamodule1.IBQuery1.Open;

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

form2.DBGrid8.Columns[0].Title.caption:='Код сотрудника';

form2.DBGrid8.Columns[1].Title.caption:='Код авто';

form2.DBGrid8.Columns[2].Title.caption:='Код рейса';

form2.DBGrid8.Columns[3].Title.caption:='Код груза';

form2.DBGrid8.Columns[4].Title.caption:='Дата';

form2.DBGrid8.Columns[5].Title.caption:='Показания спидометра (OUT)';

form2.DBGrid8.Columns[6].Title.caption:='Показания спидометра (IN)';

form2.DBGrid8.Columns[7].Title.caption:='Код путевого листа';

form2.DBGrid8.Columns[8].Title.caption:='Рейс';

form2.DBGrid8.Columns[9].Title.caption:='Груз';

form2.DBGrid8.Columns[10].Title.caption:='Сотрудник';

form2.DBGrid8.Columns[11].Title.caption:='Авто';

form2.DBGrid8.Columns[12].Title.caption:='Рег. знак';

end;

//Рейсы

if nomer=3 then

begin

case RadioGroup1.ItemIndex of

0: strField:='ID_REIS';

1: strField:='REIS';

2: strField:='DATE_OTPRAV';

3: strField:='DATE_PRIBUTIA';

4: strField:='NOMER_REISA';

end;

datamodule1.IBQuery1.SQL.Clear;

datamodule1.IBQuery1.SQL.Add('SELECT * FROM REIS');

datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' between ' +Edit1.Text+' and '+Edit2.Text);

datamodule1.IBQuery1.Open;

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

form2.DBGrid8.Columns[0].Title.caption:='Код рейса';

form2.DBGrid8.Columns[1].Title.caption:='Рейс';

form2.DBGrid8.Columns[2].Title.caption:='Дата отправления';

form2.DBGrid8.Columns[3].Title.caption:='Дата прибытия';

form2.DBGrid8.Columns[4].Title.caption:='Номер рейса';

end;

//Сотрудники

if nomer=4 then

begin

case RadioGroup1.ItemIndex of

0: strField:='ID_SOTRUD';

1: strField:='NOMER_SOTRUD';

2: strField:='FIO_SOTRUD';

3: strField:='DATE_ROGDENIA';

4: strField:='DATE_PRIEMA_NA_RABOT';

end;

datamodule1.IBQuery1.SQL.Clear;

datamodule1.IBQuery1.SQL.Add('SELECT * FROM SOTRUDNIKI');

datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' between ' +Edit1.Text+' and '+Edit2.Text);

datamodule1.IBQuery1.Open;

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

form2.DBGrid8.Columns[0].Title.caption:='Код сотрудника';

form2.DBGrid8.Columns[1].Title.caption:='Номер сотрудника';

form2.DBGrid8.Columns[2].Title.caption:='ФИО сотрудника';

form2.DBGrid8.Columns[3].Title.caption:='Дата рождения';

form2.DBGrid8.Columns[4].Title.caption:='Дата приема на работу';

end;

//Транспорт

if nomer=5 then

begin

case RadioGroup1.ItemIndex of

0: strField:='ID_AVTO';

1: strField:='MARKA_AVTO';

2: strField:='DATE_VIPUSKA';

3: strField:='COLOR';

4: strField:='IDEN_NOMER';

5: strField:='REG_ZNAK';

end;

datamodule1.IBQuery1.SQL.Clear;

datamodule1.IBQuery1.SQL.Add('SELECT * FROM TRANSPORT');

datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' between ' +Edit1.Text+' and '+Edit2.Text);

datamodule1.IBQuery1.Open;

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

form2.DBGrid8.Columns[0].Title.caption:='Код авто';

form2.DBGrid8.Columns[1].Title.caption:='Марка авто';

form2.DBGrid8.Columns[2].Title.caption:='Дата выпуска';

form2.DBGrid8.Columns[3].Title.caption:='Цвет';

form2.DBGrid8.Columns[4].Title.caption:='Идентификационный номер';

form2.DBGrid8.Columns[5].Title.caption:='Рег. знак';

end;

//Зарплата

if nomer=6 then

begin

case RadioGroup1.ItemIndex of

0: strField:='ID_DOLGNOSTI';

1: strField:='DOLGNOCT';

2: strField:='OKLAD_RUB';

end;

datamodule1.IBQuery1.SQL.Clear;

datamodule1.IBQuery1.SQL.Add('SELECT * FROM ZARPLATA');

datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' between ' +Edit1.Text+' and '+Edit2.Text);

datamodule1.IBQuery1.Open;

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

form2.DBGrid8.Columns[0].Title.caption:='Код должности';

form2.DBGrid8.Columns[1].Title.caption:='Должность';

form2.DBGrid8.Columns[2].Title.caption:='Оклад';

end;

procedure TForm2.CheckBox1Click(Sender: TObject);

begin

if CheckBox1.Checked=true then

begin

zapolnenieOTkolonok;

N10.Checked:=true;

N11.Checked:=false;

form2.RadioGroup1.Visible:=true;

CheckBox2.Visible:=true;

Edit1.Visible:=true;

Button23.Visible:=true;

BitBtn3.Visible:=true;

end else

begin

form2.RadioGroup1.Visible:=false;

N10.Checked:=false;

N11.Checked:=true;

CheckBox2.Visible:=false;

Edit1.Visible:=false;

Label1.Visible:=false;

Label2.Visible:=false;

Edit2.Visible:=false;

BitBtn2.Visible:=false;

Button23.Visible:=false;

BitBtn3.Visible:=false;

end;

Информация о работе АРМ диспетчера автотранспортного предприятия