200 likes | 366 Views
Программа моделирования работы диспетчерской службы автомобильного предприятия ООО «Курьер». Тема диплома:. Выполнил: студент 5 курса специальности «Прикладная информатика (в экономике)» Александров Дмитрий Игоревич Руководитель: к.т.н., доцент Грозина А.А. ЦЕЛЬ РАБОТЫ:.
E N D
Программа моделирования работы диспетчерской службы автомобильного предприятия ООО «Курьер» Тема диплома: Выполнил:студент 5 курсаспециальности «Прикладная информатика (в экономике)» Александров Дмитрий Игоревич Руководитель: к.т.н., доцент Грозина А.А.
ЦЕЛЬ РАБОТЫ: Создание базы данных, системы отчетов, прокладка и настройка локальной сети в ООО «Курьер». В ходе работы над которой, на практике были рассмотрены особенности использования информационных технологий.
АКТУАЛЬНОСТЬРАБОТЫ: Необходимость изменения формы труда диспетчеров и формы контроля работы водителей; автоматические расчеты тарифов, формирование отчетов, создание резервных копий.
ОБЩЕСТВО С ОГРАНИЧЕННОЙ ОТВЕТСТВЕННОСТЬЮ «КУРЬЕР» Закрытое акционерное общество «Риэлти», зарегистрировано постановлением Главы администрации г. Шахты, № 2518 от 28.02.2005 года. Общество с ограниченной ответственностью «Курьер» является структурным подразделением ЗАО «Риэлти». Основными видами деятельности ООО «Курьер» являются: - оказание информационных услуг; - перевозка пассажиров;
В локальной сети предприятия была реализована топология сети «Звезда». Как следует из нижеследующего описания, топология «звезда» является самой оптимальной для ООО «Курьер».
В будущем в ООО «Курьер» предполагается использование технологий WIFI, 3G, GPS
За основу будущей базы данных была взята основная таблица диспетчера
Начало работы. Получение обновлений.
Получение данных с сервера SubПеренос_данных_с_сервера_на_клиента() Dim VREM On Error GoToErr_Download_table_base_Click DoCmd.CopyObject , "карты_скидок_copy", acTable, "карты_скидок DoCmd.DeleteObjectacTable, "карты_скидок" …….. DoCmd.TransferDatabaseacImport, "Microsoft Access", "F:\Mitch\Курьер\курьер\CURIER_be.mdb", acTable, "Таксисты", "Таксисты" DoCmd.TransferDatabaseacImport, "Microsoft Access", "F:\Mitch\Курьер\курьер\CURIER_be.mdb", acTable, "машина", "машина« ……… DoCmd.DeleteObjectacTable, "карты_скидок_copy" DoCmd.DeleteObjectacTable, "наблюдатели_copy" ……… VREM = MsgBox("ПОСЛЕДНИЕ ИЗМЕНЕНИЯ БЫЛИ УСПЕШНО ПОЛУЧЕНЫ. МОЖНО НАЧИНАТЬ НОВУЮ СМЕНУ", vbOKOnly, " ") Exit_Download_table_base_Click: Exit Sub Err_Download_table_base_Click: MsgBoxErr.Number MsgBoxErr.Description VREM = MsgBox("ВНИМАНИЕ! ПРОИЗОШЛА НЕПРЕДВИДЕННАЯ ОШИБКА. НЕОБХОДИМА КОНСУЛЬТАЦИЯ С РАЗРАБОТЧИКОМ.", vbOKOnly + vbCritical, " ") VREM = MsgBox("НЕЖЕЛАТЕЛЬНО ПРОДОЛЖАТЬ ДАЛЬНЕЙШУЮ РАБОТУ.", vbOKOnly + vbCritical, " ") Resume Exit_Download_table_base_Click EndSub
Передача данных на сервер INSERT INTO фиксация ( Контролер, день, таксистномер, началоотсчета, конецотсчета, заказ, Сумма, тариф, вызов, направление, телефон, первоевремя, второевремя, маршрут, занятсвободен, дисконт, очередь, таксиствремядофиксации, номерочереди, времяпереносаданных ) IN 'C:\DocumentsandSettings\Анита\Рабочийстол\Диплом\Базы\CURIER_be.mdb' SELECT фиксация.Контролер, фиксация.день, фиксация.таксистномер, фиксация.началоотсчета, фиксация.конецотсчета, фиксация.заказ, фиксация.Сумма, фиксация.тариф, фиксация.вызов, фиксация.направление, фиксация.телефон, фиксация.первоевремя, фиксация.второевремя, фиксация.маршрут, фиксация.занятсвободен, фиксация.дисконт, фиксация.очередь, фиксация.таксиствремядофиксации, фиксация.номерочереди, Now() AS времяпереносаданных FROM фиксация;
Создание резервной копии INSERT INTO фиксация ( Контролер, день, таксистномер, началоотсчета, конецотсчета, заказ, Сумма, тариф, вызов, направление, телефон, первоевремя, второевремя, маршрут, занятсвободен, дисконт, очередь, таксиствремядофиксации, номерочереди, времяпереносаданных ) IN 'c:\windows\system32\database.mdb' SELECT фиксация.Контролер, фиксация.день, фиксация.таксистномер, фиксация.началоотсчета, фиксация.конецотсчета, фиксация.заказ, фиксация.Сумма, фиксация.тариф, фиксация.вызов, фиксация.направление, фиксация.телефон, фиксация.первоевремя, фиксация.второевремя, фиксация.маршрут, фиксация.занятсвободен, фиксация.дисконт, фиксация.очередь, фиксация.таксиствремядофиксации, фиксация.номерочереди, Now() AS времяпереносаданных FROM фиксация;
Спасибо за внимание!