Разработка приложения по учёту и регистрации авто транспорта в ГИБДД, средствами Visual Basic (стр. 2 из 2)
Рис. 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