Южно-Сахалинский институт экономики, права и информатики.
Кафедра “Информационные системы и сети”
Курсовая работа
по дисциплине: Высокоуровневые методы информатики и программирования
по теме: Разработка приложения по учёту и регистрации авто транспорта
в ГИБДД, средствами Visual Basic 6.0.
Содержание
Введение
2
Глава1. Проектирование приложения
1.1.Характеристика информационных и взаимосвязи между ними 3
1.2.Структура проекта 3
Глава2. Програмирование приложения
2.1. Алгоритм решения задачи. 8
2.2. Инструкция по работе с программой. 9
Заключение
13
Литература
14
Приложение
15
Введение
Автоматизация процессов учетов автотранспортных средств в ГИБДД обусловлено развитием информационных и телекоммуникационных технологий. Выделяются технологии сбора, хранения, обработки, передачи и использование информации.
Данные технологии могут быть реализованы при помощи программных средств, которые являются инструментарием технологии.
В рамках курсовой работы рассматривается инструментальная система программирования на языке Visual Basic 6.0, ее функциональные возможности, а так же процесс решения задачи по реализации учета автотранспортных средств в ГИБДД.
Целью курсовой работы
является разработка программы по учету и регистрации автотранспортных средств в ГИБДД.
Для решения этой задачи необходимо создать сложные системы обработки данных, обеспечить работу с внешними программами разработать гибкий и удобный интерфейс-все это может быть обеспеченно средствами Microsoft visual Basic 6.0
Visual Basic 6 .0 позволяет:
Создавать хорошо структурированные программы. Практически из всех опций команд могут быть вызваны пользовательские процедуры, что придает ему исключительную гибкость. Допускаются как внешние, так и внутренние процедуры.
Microsoft Visual Basic 6 .0 обладает возможностями поддержки разработки и отладки программ, средствами отслеживания изменений исходных текстов программных модулей с их автоматической перекомпиляцией.
Предусмотрены специальные окна для отладчика программ.
Задача курсовой работы:
описание этапов разработки приложения средствами программирования языка Visual Basic 6.0.
Глава1. Проектирование приложения
1.1.Характеристика информационных и взаимосвязи между ними
Одним из главных факторов разработки программы является сокращение времени поиска необходимой информации, так как учет транспортных средств в ГИБДД ведется с помощью журналов и таблиц, в которые записывают данные о владельце и о транспортном средстве. Данная работа влечет за собой затраты времени и материальные затраты по регистрации и учету автотранспорта. Таким образом, разработанная мною программа предоставляет экономию времени и затрат, а также облегчает ввод данных.
1.2.Структура проекта
Передо мной поставлена задача разработать программу по учету и регистрации автотранспортных средств в ГИБДД. Она должна осуществлять регистрацию автотранспортных средств, поиск зарегистрированного АМТ, поиск угнанного АМТ, а так же отчет о зарегистрированном АМТ- автоматически.
Входная информация
Входной информацией для решения данной задачи являются следующие данные:
1) Информация, необходимая для регистрации автомототранспорта:
1.Дата регистрации;
2.Регистрационный номер;
3.Модель автотранспорта;
4.Цвет;
5.Номер двигателя;
6.Номер кузова;
7.Номер шасси;
8.Мощность двигателя;
9.Объем двигателя;
10Год выпуска;
11.Сумма приобретения.
Сведения о владельце:
12.Фамилия;
13.Имя;
14.Отчество;
15.Дата рождения;
16.Паспортные данные.
Место жительства:
17.Область;
18.Район;
19.Город;
20.Улица;
21.Дом;
22.Квартира.
2) Информация по угнанному АМТ:
1.Регистрационный номер;
2.Номер двигателя;
3.Модель АМТ;
4.Год выпуска;
5.Цвет;
6.Инициатор розыска.
Входными документами являются: заявление на приобретение, заключение
Техосмотра.
Выходная информация.
Выходной информацией для решения данной задачи является:
• Информация о зарегистрированном АМТ;
• Информация об угнанном АМТ;
Выходными документами являются: отчеты о зарегистрированных и угнанных АМТ.
1)Отчет о зарегистрированных АМТ содержит следующие данные:
1. Дата регистрации;
2. Регистрационный номер;
3. Модель автотранспорта;
4. Цвет;
5. Номер двигателя;
6. Номер кузова;
7. Номер шасси;
8. Мощность двигателя;
9. Объем двигателя;
10. Год выпуска;
11. Сумма приобретения.
Сведения владельце:
12. Фамилия;
13. Имя;
14. Отчество;
15. Дата рождения;
16. Телефон.
Место жительства:
17. Область;
18. Район;
19. Город;
20. Улица;
21. Дом;
22. Квартира.
2)Отчет об угнанном АМТ содержит следующие данные:
1.Регистрационный номер;
2.Номер двигателя;
3.Модель АМТ;
4.Год выпуска;
5.Цвет АМТ;
6.Инициатор розыска.
Регистрация, перерегистрация, отчеты- используются сотрудниками ГИБДД и другими правоохранительными органами ежедневно.
Все файлы программы находятся в каталоге ГИБДД. Они имеют следующие значения:
1)AVTO.xls– табличный файл содержит информацию о зарегистрированном автотранспорте. Пример таблицы (см.: Приложение 1):
1. Datareg - содержит дату регистрации;
2. Regn - содержит регистрационный номер;
3. Marka - содержит модель автотранспорта;
4. Cvet - содержит цвет автотранспорта;
5. Nd - содержит номер двигателя;
6. Nk - содержит номер кузова;
7. Nh- содержит номер шасси;
8. Md - содержит мощность двигателя;
9. Od - содержит объем двигателя;
10 .Godv - содержит год выпуска;
11. Sumpre - содержит сумму приобретения;
12. Fam - содержит фамилию владельца;
13. Im - содержит имя владельца;
14. Och - содержит отчество владельца;
15. Godr - содержит дату рождения владельца;
16. Obl - область;
17. Raion - район;
18. Gorod - город;
19. Ul - улица;
20. Dom - дом;
21. Kv - квартиру;
22. Pasport - паспортные данные владельца;
2)ROZ.xls – табличный файл, который содержит информацию о находящемся в розыске автотранспорте имеет следующую структуру:
1. Regn - содержит регистрационный номер;
2. Nk - содержит номер кузова;
3. Nd - содержит номер двигателя;
4. Marka - содержит модель автотранспорта;
5. Cvet - содержит цвет автотранспорта;
6. Godv - содержит год выпуска;
7. Kod - инициатор розыска
4)GIBDD.xls – табличный файл, который содержит информацию о работе с программой, имеет следующую структуру:
1. Dd - содержит пункты помощи;
2. Help - содержит справочную информацию.
Глава2. Програмирование приложения
2.1. Алгоритм решения задачи.
Чтобы начать программирование я выполнил следующие действия:
1. Открыл Visual Basic 6.0;
2. Создал новую форму. С помощью menu editor сделал главное меню. Сохранил форму как “menu” (рис.1);
3. Создал новую форму, добавил на неё 23 объекта Label и TextBox, 4 кнопки, сохранил как “register” (рис.2.1);
4. Создал новую форму, добавил на неё 14 объекта Label и TextBox, 2 кнопки, сохранил как “pereregister” (рис.1.1);
5. Создал новую форму, добавил на неё 1 объекта Label и TextBox, 2 кнопки, сохранил как “poisc” (рис.3);
6. Создал новую форму, добавил на неё 1 объекта Label и TextBox, 2 кнопки, сохранил как “rezerw” (рис.4).
Программа состоит из следующих внешних процедур:
1. ГИБДД.vbp - главный модуль, позволяет запустить программу.
2. Form1.frm - - главное меню активирующее процедуры назначенные на определенные пункты.
3. register.frm - форма, которая выводит окно регистрации АМТ в котором нужно ввести необходимые данные для регистрации.
4. pereregistr.frm -форма, которая выводит окно пере
5. печать.frm – форма которая выводиться на печать с данными из формы register.frm
6. поиск.frm - форма позволяет произвести поиск данных в базе (ROZ.xls) содержащей информацию по находящемуся в розыске АМТ.
7. help.prg - выводит сведенья о работе с программой, содержащиеся в базе (GBDD.xls).
8. rezerv.frm - создает резервную копию используемых табличных файлов путем копирования в директорию REZERV
В программе используется следующие переменные:
1. i – первоначальное значение 1, определяет номер строки в которую следует записывать данные.
Информация располагается в окнах. Ввод сопровождается подсказками, при выполнении опасных действий, появляются окна с вопросами типа (Будете выполнять резервное копирование....?)
Исключительно полезным для пользователя программы является доступ справочной информации, предусмотрен отказ пользователя в любой момент времени. Программа имеет большое количество различных окон: ввода, запроса, сообщения.
В программе заложена процедура страхового копирования данных. Так же происходит выдача отчетов на принтер.
2.2. Инструкция по работе с программой
Данная программа должна быть установлена на диск”C:”. Для того чтобы запустить программу необходимо открыть приложение ГИБДД. Сразу после этой операции на экране появляется главное меню, через которое можно непосредственно управлять данным (осуществлять ввод и вывод информации). Непосредственный вызов нужного пункта меню может осуществляться как при помощи мыши, так и при помощи нажатия клавиши Enter.
Рис.1 Главное меню
Пункты главного меню имеют следующий смысл:
•«Регистрация» - позволяет осуществить процесс регистрации, перерегистрации, поиска зарегистрированного АМТ и вывести отчет.
• «Поиск» - позволяет определять угнанные АМТ.
•«Резервное копирование» - этот пункт предоставляет возможность осуществить резервное копирование баз данных, а так же их восстановление.
• «Помощь» - содержит справочную информацию о программе.
• «Выход» - при помощи этого пункта осуществляется выход из программы. Для осуществления регистрации необходимо выбрать пункт меню «Регистрация/регистрация» на экране появится окно (рис. 2.1)
Рис. 2.1 Регистрация АМТ
В появившемся окне, в полях ввода необходимо ввести соответствующую информацию. Для сохранения информации нажать кнопку «Сохранить». Кнопка «Печать» - выводит информацию на печать. «Выход» - выход из окна регистрации.
Для осуществления перерегистрации необходимо выбрать пункт меню «Регистрация/Перерегистрация» на экран появится окно (рис.2.2)
Рис.
2.2 Перерегистрация АМТ
Кнопка «Сохранить»- позволяет сохранить введенную информацию. «Выход»- выход из окна.
Розыск угнанного АМТ осуществляется при выборе пункта меню «Поиск»
В появившемся окне введите необходимую информацию (рис. 3). В окне имеются следующие кнопки «Найти»- производит поиск по данной информации, «Выход» - выход из окна.
Рис.3 Поиск
Ели необходимо создать резервные копии баз данных, нужно выполнить пункт меню «Резервное копирование»
Появится окно с сообщением «Будите делать резервную копию?» (рис.4) При нажатии на кнопку «ДА» базы скопируются в каталог STRAH
Рис.4
Резервное копирование
При нажатии пункта «Помощь», на экран выводится справочная информация о работе с программой, (рис.5)
Рис.5 Помощь
Окно «Помощь» разделено на две части. В левой части окна содержатся пункты меню, при помощи мыши или клавишей Enter выбираете нужный пункт и нажимаете на кнопку «Показать». В правой части окна выводится необходимая информация по данному пункту.
Кнопка «Выход» позволят выйти из окна.
ЗАКЛЮЧЕНИЕ
При создании программы я сталкивался с серией синтаксических и логических ошибок:
• Пропуск знаков препинания (незакрытые кавычки, скобки);
• Отсутствие пары в командах (IF- ENDIF);
• Ввод запятой вместо точки;
• Несоответствие параметров по типу;
• Неверный алгоритм программы;
• Проблемно было совместить Visual Basic 6.0 и Microsoft Office Excel.
Visual Basic 6.0 обладает удобным и гибким отладчиком программы, который позволяет детально проследить поведение программы и ее переменной в сомнительных местах.
Плюсы выполненной работы: изучен новый материал, ознакомился на практике с созданием форм.
Минусы выполненной работы: не удалось реализовать объект.
Литература:
1.VB-самоучитель
2. Пособие-самоучитель «Visual Basic - Крепкий Орешек!» Автор - Волков Антон, http://vb.hut.ru !
3. Пособие-самоучитель «Функции Visual Basic». Автор-А.Климов
4. Программируем на Visual Basic'e. Автора – Падре, http://vbmaster.fhost.ru/
5. Пособие-самоучитель on-line "Visual Basic с нуля"
6. Справочник «Visual Basic.NET». Автор - Дэн Рамел
7. Иллюстрированный самоучитель по Visual Basic 6.0
8.http://bit.pirit.info/forum/viewforum
9.. http://www.vbnet.ru/
10.http://www.vbstreets.ru/
Приложение
Форма
register.frm
Private Sub Command1_Click()
Dim oSheet As Object
Dim MyXL As Object
Dim linedate As String
On Error Resume Next
Set MyXL = GetObject("c:AUTO.xls")
MyXL.Application.Visible = False
MyXL.Parent.Windows(1).Visible = True
Open "C:1.txt" For Input As #1
Input #1, linedate
i = Mid(linedate, 1)
Close #1
Set oSheet = MyXL.Worksheets(1)
oSheet.Range("A" & (i)).Value = Text1(10).Text
oSheet.Range("B" & (i)).Value = Text1(0).Text
oSheet.Range("C" & (i)).Value = Text1(3).Text
oSheet.Range("D" & (i)).Value = Text1(1).Text
oSheet.Range("E" & (i)).Value = Text1(4).Text
oSheet.Range("F" & (i)).Value = Text1(2).Text
oSheet.Range("G" & (i)).Value = Text1(5).Text
oSheet.Range("H" & (i)).Value = Text1(8).Text
oSheet.Range("I" & (i)).Value = Text1(7).Text
oSheet.Range("J" & (i)).Value = Text1(6).Text
oSheet.Range("K" & (i)).Value = Text1(9).Text
Set oSheet = MyXL.Worksheets(2)
oSheet.Range("A" & (i)).Value = Text2(10).Text
oSheet.Range("B" & (i)).Value = Text2(0).Text
oSheet.Range("C" & (i)).Value = Text2(3).Text
oSheet.Range("D" & (i)).Value = Text2(1).Text
oSheet.Range("E" & (i)).Value = Text2(4).Text
oSheet.Range("F" & (i)).Value = Text2(2).Text
oSheet.Range("G" & (i)).Value = Text2(5).Text
oSheet.Range("H" & (i)).Value = Text2(8).Text
oSheet.Range("I" & (i)).Value = Text2(7).Text
oSheet.Range("J" & (i)).Value = Text2(6).Text
oSheet.Range("K" & (i)).Value = Text2(9).Text
oSheet.Range("L" & (i)).Value = Text2(11).Text
MyXL.save
MyXL.Application.quit
i = i + 1
Open "C:1.txt" For Output As #1
Print #1, i
Close #1
End Sub
Private Sub Command2_Click()
For i = 0 To 10
Text1(i) = ""
Next i
For i = 0 To 11
Text2(i) = ""
Next i
End Sub
Private Sub Command3_Click()
register.PrintForm
End Sub
Private Sub Command4_Click()
For i = 0 To 10
Text1(i) = ""
Next i
For i = 0 To 11
Text2(i) = ""
Next i
register.Hide
End Sub
Форма
menu.frm
Private Sub poisk2_Click()
poisc.Show
End Sub
Private Sub reg1_Click()
register.Show
End Sub
Private Sub reg2_Click()
pereregister.Show
End Sub
Private Sub rezerv_Click()
rezerw.Show
End Sub
Private Sub vihod_Click()
End
End Sub