Тема диплома: Программа моделирования работы

advertisement
Программа моделирования
работы диспетчерской службы
автомобильного предприятия
ООО «Курьер»
Выполнил: студент 5 курса
специальности «Прикладная информатика (в экономике)»
Александров Дмитрий Игоревич
Руководитель: к.т.н., доцент Грозина А.А.
ЦЕЛЬ РАБОТЫ:
Создание базы данных, системы отчетов,
прокладка и настройка локальной сети в
ООО «Курьер». В ходе работы над
которой, на практике были рассмотрены
особенности использования
информационных технологий.
АКТУАЛЬНОСТЬ РАБОТЫ:
Необходимость изменения формы
труда диспетчеров и формы
контроля работы водителей;
автоматические расчеты тарифов,
формирование отчетов, создание
резервных копий.
Закрытое акционерное общество
«Риэлти», зарегистрировано
постановлением Главы
администрации г. Шахты, № 2518 от
28.02.2005 года.
Общество с ограниченной
ответственностью «Курьер» является
структурным подразделением ЗАО
«Риэлти».
Основными видами деятельности
ООО «Курьер» являются:
- оказание информационных
услуг;
- перевозка пассажиров;
В локальной сети предприятия была реализована топология сети «Звезда».
Как следует из нижеследующего описания, топология «звезда» является
самой оптимальной для ООО «Курьер».
Сервер
Хаб
Старший диспетчер
Диспетчер Диспетчер
1-линии
2-линии
Диспетчер
3-линии
Диспетчер
4-линии
В будущем в ООО «Курьер» предполагается использование технологий WIFI, 3G, GPS
Wi-Fi
• C помощью этой
технологии решиться
проблема проводов, если
потребуется расширение
либо перестановка
оборудования, то нет
необходимости закупать
дополнительно кабель,
осуществлять его
укладку, переносить
сетевые розетки. А также
данная технология
обеспечивает
мобильность при
установке нового
оборудования
3G
GPS
• Технология 3G позволит
водителям такси смотреть
онлайн выручку за смену,
обращаться к диспетчеру
не занимая рацию,
сообщать об обедах или
отсутствии в машине
такси. С помощью
мобильного телефона и
технологии 3G водитель
также сможет сообщать
об авариях, поломке
автомобиля и вызвать
помощь, в случае если он
находится вне зоны
действия рации
• Технологию GPS для
наблюдения за
местонахождением
водителей, выбором
оптимального маршрута и
с оптимально близкого
местонахождения от
адреса вызова такси. Тем
более, что с помощью
этой технологии
существенно ускоряется
обучение новых
таксистов
За основу будущей базы данных была взята основная таблица диспетчера
Начало работы. Получение обновлений.
Основная форма программы.
Получение данных с сервера
Sub Перенос_данных_с_сервера_на_клиента()
Dim VREM
On Error GoTo Err_Download_table_base_Click
DoCmd.CopyObject , "карты_скидок_copy", acTable, "карты_скидок
DoCmd.DeleteObject acTable, "карты_скидок"
……..
DoCmd.TransferDatabase acImport, "Microsoft Access", "F:\Mitch\Курьер\курьер\CURIER_be.mdb", acTable,
"Таксисты", "Таксисты"
DoCmd.TransferDatabase acImport, "Microsoft Access", "F:\Mitch\Курьер\курьер\CURIER_be.mdb", acTable,
"машина", "машина«
………
DoCmd.DeleteObject acTable, "карты_скидок_copy"
DoCmd.DeleteObject acTable, "наблюдатели_copy"
………
VREM = MsgBox("ПОСЛЕДНИЕ ИЗМЕНЕНИЯ БЫЛИ УСПЕШНО ПОЛУЧЕНЫ. МОЖНО НАЧИНАТЬ НОВУЮ
СМЕНУ", vbOKOnly, " ")
Exit_Download_table_base_Click:
Exit Sub
Err_Download_table_base_Click:
MsgBox Err.Number
MsgBox Err.Description
VREM = MsgBox("ВНИМАНИЕ! ПРОИЗОШЛА НЕПРЕДВИДЕННАЯ ОШИБКА. НЕОБХОДИМА
КОНСУЛЬТАЦИЯ С РАЗРАБОТЧИКОМ.", vbOKOnly + vbCritical, " ")
VREM = MsgBox("НЕЖЕЛАТЕЛЬНО ПРОДОЛЖАТЬ ДАЛЬНЕЙШУЮ РАБОТУ.", vbOKOnly + vbCritical, " ")
Resume Exit_Download_table_base_Click
End Sub
Передача данных на сервер
INSERT INTO фиксация ( Контролер, день, таксистномер, началоотсчета,
конецотсчета, заказ, Сумма, тариф, вызов, направление, телефон, первоевремя,
второевремя, маршрут, занятсвободен, дисконт, очередь,
таксиствремядофиксации, номерочереди, времяпереносаданных ) IN
'C:\Documents and Settings\Анита\Рабочий стол\Диплом\Базы\CURIER_be.mdb'
SELECT фиксация.Контролер, фиксация.день, фиксация.таксистномер,
фиксация.началоотсчета, фиксация.конецотсчета, фиксация.заказ,
фиксация.Сумма, фиксация.тариф, фиксация.вызов, фиксация.направление,
фиксация.телефон, фиксация.первоевремя, фиксация.второевремя,
фиксация.маршрут, фиксация.занятсвободен, фиксация.дисконт,
фиксация.очередь, фиксация.таксиствремядофиксации, фиксация.номерочереди,
Now() AS времяпереносаданных
FROM фиксация;
Справочник диспетчеры
Статистика
Создание резервной копии
INSERT INTO фиксация ( Контролер, день, таксистномер, началоотсчета,
конецотсчета, заказ, Сумма, тариф, вызов, направление, телефон, первоевремя,
второевремя, маршрут, занятсвободен, дисконт, очередь,
таксиствремядофиксации, номерочереди, времяпереносаданных ) IN
'c:\windows\system32\database.mdb'
SELECT фиксация.Контролер, фиксация.день, фиксация.таксистномер,
фиксация.началоотсчета, фиксация.конецотсчета, фиксация.заказ,
фиксация.Сумма, фиксация.тариф, фиксация.вызов, фиксация.направление,
фиксация.телефон, фиксация.первоевремя, фиксация.второевремя,
фиксация.маршрут, фиксация.занятсвободен, фиксация.дисконт,
фиксация.очередь, фиксация.таксиствремядофиксации,
фиксация.номерочереди, Now() AS времяпереносаданных
FROM фиксация;
Спасибо
за внимание!
Download