Разработка приложения по учёту и регистрации авто транспорта в ГИБДД, средствами Visual Basic 6.0

  Программа состоит из следующих внешних  процедур: 

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