Программа "Автомастерская"

Для предотвращения несанкционированного доступа к системе и данным предусмотрена специальная таблица зарегистрированных пользователей. Администратор регистрирует пользователей (Ник и пароль), а так же присваивает уровни доступа.

Автоматизированная система «Peugeot-сервис» имеет два вида пользователя: Администратор и Пользователь. При входе в систему каждый пользователь обязан ввести имя и пароль. После неверного ввода имени или пароля система выходит ошибку авторизации. Под именем Администратор можно делать любые изменения в программе: добавлять и удалять данные в базу данных клиентов, товаров и всех документов, проводить любые изменения и редактирования системы. Под именем Пользователь возможен только просмотр всех баз данных и обычных приложений.

Структурная схема автоматизированной системы

На рисунке 3.7 показано наглядное представление взаимодействия БД с программой.

Рисунок 3.7 - Структурная схема автоматизированной системы

3.4 Описание зависимостей

4.1 Введение

Данная глава содержит подробное описание данных, модулей, процессов информационной интеллектуальной система сервисного обслуживания автомобилей.

Цель

Целью данного документа является детальное рассмотрение каждого объекта: данных, модулей, процессов информационной интеллектуальной система сервисного обслуживания автомобилей.

Описание проекта

Информационной интеллектуальной система сервисного обслуживания автомобиля представляет собой совокупность базы данных и управляющих модулей для добавления и редактирования данных о заказах, составления списка дополнительных работ на выполнение.

Определения, сокращения и термины

Все необходимые сведения об определениях, сокращениях и терминах представлены в разделе 1.1.3.

4.2 Описание декомпозиции

Модульная декомпозиция

Описание модуля «Клиенты»

Реализация работы с клиентами представлена в таблице 4.1, которая позволяет наглядно увидеть процесс работы с клиентами (добавление, удаление и редактирование данных и т.д.).

Таблица 4.1 - Описание модуля «Клиенты»

Описание модуля «Заказ»

Реализация работы с заказами представлена в таблице 4. 2, которая позволяет наглядно увидеть процесс работы с клиентами (добавление, удаление и т.д.).

Таблица 4.2 - Заказы (Order)

Описание блока данных

Описание данного блока представлено в виде запросов, которые реализуют действия по работе функциональной части СТО (см. таблицу 4.3).

Таблица 4.3 - Заказы (Order)

4.3 Описание зависимостей

Зависимость внутри данных

Таблица 4.4 - Взаимосвязь данных

4.4 Детальное проектирование

Класс «Заказ»

Детальное проектирование классов БД представлено в таблицах 4.5 - 4.7.

Таблица 4.5 - Описание класса «Заказ»

Таблица 4.6 - Описание класса «Клиент»

Таблица 4.7 - Описание класса «ТО»

Модуль «Form1.cs»

Модуль «Form1.cs», или «Источник данных», представляет собой форму для настройки подключения к БД и управления состоянием подключения (см. таблицу 4.8).

Таблица 4.8 - Описание процедур модуля «Источник данных»

Модуль «Form1.cs»

Модуль представляет собой интерфейс для выбора дополнительных работ для выполнения. Описание процедур и функций модуля «Работы» представлено в таблице 4.9. Последовательность выполнения процедур и функций при работе модуля «Работы» так же представлена на рисунке 4.1.

Таблица 4.9 - Описание процедур модуля «Автомобили»

Рисунок 4.1 - Диаграмма компонентов модуля «Работы»

На рисунке 4.2 показано схематично взаимодействие компонентов в таблице базы данных.

Рисунок 4.2 - Диаграмма компонентов модуля «Таблицы БД»

5. Сборка, интеграция, реализация, инструменты и среды программирования. Модульное тестирование

5.1 Описание среды разработки

Microsoft Visual Basic - средство разработки программного обеспечения, разрабатываемое корпорацией Microsoft и включающее язык программирования и среду разработки. Язык Visual Basic унаследовал дух, стиль и отчасти синтаксис своего предка - языка Бейсик, у которого есть немало диалектов. В то же время Visual Basic сочетает в себе процедуры и элементы объектно-ориентированных и компонентно-ориентированных языков программирования. Среда разработки VB включает инструменты для визуального конструирования пользовательского интерфейса.

Visual Basic считается хорошим средством быстрой разработки прототипов программы, для разработки приложений баз данных и вообще для компонентного способа создания программ, работающих под управлением операционных систем семейства Microsoft Windows.

Первое признание серьёзными разработчиками Visual Basic получил после выхода версии 3 - VB3. Окончательное признание как полноценного средства программирования для Windows - при выходе версии 5 - VB5. Версия VB6, входящая в состав Microsoft Visual Studio 6.0, стала по-настоящему зрелым и функционально богатым продуктом. После этого разработчики из Microsoft существенно изменили направление развития данной технологии.

Visual Basic .NET не позволяет программировать по-старому, ибо по сути является совершенно другим языком, таким же, как и любой другой язык программирования для платформы .NET. Индивидуальность языка, так же как и его преимущества (простота, скорость создания программ, лёгкость использования готовых компонент) при использовании в среде.NET не имеют такого значения, как раньше - всё сосредоточено на возможностях самой системы.NET, на её библиотеке классов. Поэтому сегодня (сентябрь 2010) нужно говорить о классическом Visual Basic, его диалектах Visual Basic for Applications (VBA) и Visual Basic Scripting Edition (VBScript) и о языке для платформы.NET - Visual Basic.NET.

NET Framework - программная платформа, выпущенная компанией Microsoft в 2002 году. Фактически представляет собой операционную систему внутри операционной системы. Основой платформы является виртуальная машина Common Language Runtime (CLR), способная выполнять как обычные настольные программы, так и веб-приложения. Отличительной особенностью.NET Framework является способность выполнять программы, написанные на разных языках программирования [9].

Считается, что платформа.NET Framework явилась ответом компании Microsoft на набравшую к тому времени большую популярность платформу Java компании Sun Microsystems (ныне принадлежит Oracle), также основанную на виртуальной машине.

Хотя.NET является патентованной технологией корпорации Microsoft и официально рассчитана на работу под операционными системами семейства Microsoft Windows, но существуют независимые проекты (прежде всего это Mono и Portable.NET), позволяющие запускать программы.NET на многих других операционных системах.

5.2 Описание СУБД

Microsoft Access является настольной СУБД (система управления базами данных) реляционного типа. Достоинством Access является то, что она имеет очень простой графический интерфейс, который позволяет не только создавать собственную базу данных, но и разрабатывать приложения, используя встроенные средства.

В отличие от других настольных СУБД, Access хранит все данные в одном файле, хотя и распределяет их по разным таблицам, как и положено реляционной СУБД. К этим данным относится не только информация в таблицах, но и другие объекты базы данных, которые будут описаны ниже.

Для выполнения почти всех основных операций Access предлагает большое количество Мастеров (Wizards), которые делают основную работу за пользователя при работе с данными и разработке приложений, помогают избежать рутинных действий и облегчают работу неискушенному в программировании пользователю.

Особенности MS Access, отличающиеся от представления об «идеальной» реляционной СУБД.

Создание многопользовательской БД Access и получение одновременного доступа нескольких пользователей к общей базе данных возможно в локальной одноранговой сети или в сети с файловым сервером. Сеть обеспечивает аппаратную и программную поддержку обмена данными между компьютерами. Access следит за разграничением доступа разных пользователей к БД и обеспечивает защиту данных. При одновременной работе. Так как Access не является клиент серверной СУБД, возможности его по обеспечению многопользовательской работы несколько ограничены. Обычно для доступа к данным по сети с нескольких рабочих станций, файл БД Access (с расширением *.mdb) выкладывается на файловый сервер. При этом обработка данных ведется в основном на клиенте - там, где запущено приложение, в силу принципов организации файловых СУБД. Этот фактор ограничивает использование Access для обеспечения работы множества пользователей (более 15-20) и при большом количестве данных в таблицах, так как многократно возрастает нагрузка не сеть.

В плане поддержки целостности данных Access отвечает только моделям БД небольшой и средней сложности. В нем отсутствуют такие средства как триггеры и хранимые процедуры, что заставляет разработчиков возлагать поддержание бизнес логики БД на клиентскую программу.

В отношении защиты информации и разграничения доступа Access не имеет надежных стандартных средств. В стандартные способы защиты входит защита с использованием пароля БД и защита с использованием пароля пользователя.

MS Access предоставляет в распоряжение непрограммирующему пользователю разнообразные диалоговые средства, которые позволяют ему создавать приложения не прибегая к разработке запросов на языке SQL или к программированию макросов или модулей на языке VBA.

Access обладает широкими возможностями по импорту / экспорту данных в различные форматы, от таблиц Excel и текстовых файлов, до практически любой серверной СУБД через механизм ODBC.

Еще одно немаловажное преимущество MS Access заключается в развитых встроенных средствах разработки приложений. Большинство приложений, распространяемых среди пользователей, содержит тот или иной объем кода VBA (Visual Basic for Applications). Поскольку VBA является единственным средством для выполнения многих стандартных задач в Access (работа с переменными, построение команд SQL во время работы программы, обработка ошибок, использование Windows API и т.д.), для создания более-менее сложных приложений необходимо его знание и знание объектной модели MS Access.

Одним из средств программирования в Access является язык макрокоманд. Программы, созданные на этом языке, называются макросами и позволяют легко связывать отдельные действия, реализуемые с помощью форм, запросов, отчетов. Макросы управляются событиями, которые вызываются действиями пользователями при диалоговой работе с данными через формы или системными событиями.

Основные компоненты MS Access:

· построитель таблиц;

· построитель экранных форм;

· построитель SQL-запросов (язык SQL в MS Access не соответствует стандарту ANSI);

· построитель отчётов, выводимых на печать.

Они могут вызывать скрипты на языке VBA, поэтому MS Access позволяет разрабатывать приложения и БД практически «с нуля» или написать оболочку для внешней БД.

MS Access является файл-серверной СУБД и потому применима лишь к маленьким приложениям. Отсутствует ряд механизмов, необходимых в многопользовательских БД, таких, например, как триггеры.

Существенно расширяет возможности MS Access по написанию приложений механизм связи с различными внешними СУБД: «связанные таблицы» (связь с таблицей СУБД) и «запросы к серверу» (запрос на диалекте SQL, который «понимает» СУБД). Также MS Access позволяет строить полноценные клиент-серверные приложения на СУБД MS SQL Server. При этом имеется возможность совместить с присущей MS Access простотой инструменты для управления БД и средства разработки.

5.3 Сборка проекта

Сборка приложения «Peugeot - сервис» (рисунок 5.1) проходит в 4 этапа:

1 Сборка интерфейсов главного модуля «Form1.cs» и второстепенных модулей «FormOrder.cs» и «FormCarInfo.cs»;

2 Сборка функций для связи с БД и связи с второстепенными модулями;

3 Сборка функций для работы с данными;

4 Сборка интерфейсов модулей отображения данных «TreeLogicalOutput.cs» и графа «Graf-TreeLog.cs» и функций для их построения.

Рисунок 5.1 - Сборка приложения «Peugeot-сервис»

5.4 Тестирование «черного ящика», «белого ящика» и «серого ящика»

В этом разделе будет дано определение тестирования «черного», «белого» и «серого ящика». В остальной части главы будет описано, как планировать, проектировать и выполнять такие тесты.

Когда мы интересуемся исключительно тем, как программа или ее часть предоставляет соответствующие выходные данные, мы тестируем ее на каждое требование, используя подходящие входные данные. Это называется тестированием «черного ящика», поскольку мы не обращаем внимания на то, что находится внутри «ящика» (программы): «ящик» может быть «черным». Тесты «черного ящика» могут быть эффективны, если мы можем убедиться, что они исчерпывают все комбинации входных данных. Это докажет заказчику, что все требования удовлетворены. Однако никакое тестирование не охватывает всех возможностей.

Тестирование «черного ящика» похоже на тестирование моста путем проезда по нему нескольких комбинаций различных транспортных средств. Это неэффективно, поскольку нам нужно проверить и составные части моста, и то, как они объединены в систему. Последнее называется идеей «тестирования белого ящика». Тестирование «черного ящика» и «белого ящика» проиллюстрировано на рисунок 5.2.

Рисунок 5.2 - Типы тестов

Целью тестирования «белого ящика» является тестирование наиболее ненадежных путей программы. Для выполнения тестирования «белого ящика» мы сначала разбиваем проект программы на отдельные элементы и ищем пути и другие разбиения для управления и данных. Затем мы проектируем тесты, прослеживающие все или некоторые из этих путей, и проверяем все составные части. Более наглядным названием этих действий было бы «тестирование стеклянного ящика».

Тестирование «серого ящика» рассматривает внутреннюю работу программы или модуля, но только до некоторой степени. Сюда могут быть также отнесены и некоторые аспекты тестирования «черного ящика».

5.5 Тестирование приложения Peugeot-сервис

При проведении тестирования были получены следующие результаты, которые приведены в таблице 5.1.

Таблица 5.1 - Результаты тестирования

6. Технико-эксплуатационные показатели проектирования

6.1 Описание руководства пользователя

Данное приложение поможет пользователю разобраться с основными возможностями программы. Руководство пользователя направлено на ознакомление с приложением поверхностно, т.е. учит пользователя правильно обращаться с программой. Здесь так же приведены данные по работе с приложением для администратора, но для уверенной работы с программой администратор проходит дополнительное обучение, благодаря которому он сможет решать большинство проблем возникающих в ходе работы с приложением.

6.2 Запуск приложения

Для работы с программой достаточно иметь на ПК стандартные средства Microsoft office. Для начала работы необходимо запустить программу путем двойного клика мыши по файлу СТО.exe, который расположен на сетевом диске C:\ (для корректной работы это необходимо) в папке «Диплом». Все файлы, расположенные по адресу C:\Диплом являются обязательными и при удалении или порчи частично (целиком), работоспособность приложения не гарантируется.

6.3 Вход в систему (авторизация)

Вход в систему для Пользователя

После запуска файла СТО.exe открывается стартовое окно программы «Авторизация в Системе», которое состоит из двух вкладок: «Вход для клиента» и «Вход для Администратора». Необходимо выбрать вкладку «Вход для клиента» (рисунок 6.1) и в соответствующие поля ввести Ник и пароль (если таких данных нет, то необходимо обратиться к администратору за помощью). Данные Ник, и пароль присваиваются пользователю в момент регистрации в системе. После корректного ввода данных нажмите на джойстике центральную клавишу «Enter». Так же на данной вкладке присутствуют такие возможности:

- «Info» позволяет получить главную информацию;

- клавиши вверх и вниз производят навигацию;

- клавиши вправо и влево регулируют скорость бегущей строки (Info);

- «Setting» меняет настройки окна;

- «Back» удаляет один последний символ из активного окна;

- «Del (nik)» очистит поле Ник;

- «Del (pass)» очистит поле Пароль;

Для выхода из программы необходимо нажать на клавишу «OFF».

Вход в систему для Администратора

Необходимо ввести Ник и Пароль (известен только администратору) в соответствующие поля, выбрать объект для входа («Автосервис» или «Автомагазин»), нажать на кнопку «Start».

6.4 Работа в «Личном кабинете» пользователя

Интерфейс данного окна состоит из нескольких кнопок, а так же меню, которое открывается при наведении мыши.

Основными функциями личного кабинета являются просмотр различной информации:

- просмотр «Сервисной книги». Данную информацию можно просмотреть путем нажатия на кнопку «Сервисная книга» которая расположена в главном окне, либо воспользоваться меню Мой Peugeot/ Сервисная книга. Сервисная книга показывает все проделанные работы с автомобилем владельца.

- для просмотра актуальной информации в программу внедрен браузер, который показывает новости, информацию непосредственно с официального сайта компании Peugeot. Для просмотра данной информации требуется подключение к сети интернет.

- для просмотра Другой полезной информации можно воспользоваться имеющимися вкладками в меню.

- из личного кабинета можно попасть в магазин автозапчастей, который позволяет производить покупки запчастей для автомобиля. Так же можно посмотреть информацию о личном счете. Данный счет позволяет оплачивать выполняемые работы.

6.5 Работа с клиентами «Peugeot-сервис»

Администратор выполняет все работы связанные с клиентами. В данном окне можно добавить нового пользователя, удалить уже существующего или редактировать данные клиента.

Для защиты пароля необходимо нажать кнопку «Защитить», которая отвечает за перевод обычного набора данных в виде шифрования MD5, после произведения каких-либо действий нужно нажать клавишу «Сохранить».

6.6 Модуль «Покупка товара»

Для приобретения товара можно воспользоваться удобным поиском, который позволяет найти необходимую деталь по: названию, артикул, категории и т.д. Данный вид сервиса позволяет производить поиск товара по фрагменту слова (кода), который присутствует в составе детали. После нахождения необходимой детали нужно написать приобретаемое кол-во деталей (штук), и нажать кнопку «Сделать заказ».

6.7 Описание работы сервисной станции Peugeot

Главной задачей сервисной станции является произведение ремонта по плану. Данный вид технического обслуживания расположен на вкладке «Пройти ТО», которая расположена в центре главного окна сервиса. Здесь администратор вводит данные о пробеге автомобиля, дате, выбирает дополнительные работы, выбирает способ оплаты, после чего система автоматически проверяет соблюдение всех норм и правил и выводит соответствующие предупреждения.

Для выполнения других работ (не связанных с плановыми ТО), в программе предусмотрена вкладка «Сервисная станция». Администратор выписывает набор работ для выполнения, выбирает способ оплаты, после чего нажимает кнопку «Выполнить». Далее по нажатию кнопки «отправить на печать», распечатывает лист работ.

Для просмотра истории присутствует вкладка «Информация о ТО», в ней описаны все ТО с возможностью просмотра выполненных работ на каждом техническом осмотре в отдельности.

В программе реализован способ ограничения доступа к личному кабинету. Администратор может частично или полностью ограничить доступ к кабинету пользователя.

Для просмотра информации о клиенте необходимо нажать на кнопку «Инфо. о клиенте», и в открывшемся окне выбрать интересующую информацию для просмотра.

В программе реализована функция «Личный счет». Он позволяет хранить денежные средства (оплата услуг) на счете в банке. Пополнение и снятие производиться из кабинета администратора. За операции по пополнению или снятию денежных средств взимается комиссия, размер которой зависит от суммы задолженности.

Список использованных источников

Текст модуля «Работа с клиентами»

Private SaveNik As String

If Calendar1. DataChanged = True Then Calendar1. Visible = False

End Sub

Private Sub Combo1_GotFocus()

Dim strMod As String

Combo1. Clear

Combo1. AddItem (TOData(0).sModelName)

For i = 1 To 58

strMod = TOData(i).sModelName

If Combo1. List (Combo1. ListCount - 1) <> strMod Then Combo1. AddItem (TOData(i).sModelName)

Next

End Sub

Private Sub Combo2_GotFocus()

Dim engine As String

Combo2. Clear

If Combo1. Text = «» Then MsgBox («Выберите модель»)

For i = 0 To 58

If TOData(i).sModelName = Combo1. Text Then

Combo2. AddItem (TOData(i).sEngineType)

End If

Next

Picture1. Top = Picture1. Top + Picture1. Height: Picture1. Top = Picture1. Top - Picture1. Height

End Sub

Private Sub Combo3_GotFocus()

Combo3. Clear

Combo3. AddItem («Peugeot»)

End Sub

Private Sub Command1_Click()

Dim IDClient As Long

Adodc1. Recordset. MoveLast

IDClient = Val (Adodc1. Recordset(0).value) + 1

Adodc1. Recordset. AddNew

Adodc1. Recordset(0).value = IDClient

Adodc1. Recordset. MoveLast ' для обновления БД S №1

Dim IDTOService As Integer

ProgramADO. CreateStringConnect

IDTOService = SQLCreateNewIDFromTable («Сервис_ТО», «ID_ТО»)

Call SQLExecOnly («INSERT INTO Сервис_ТО VALUES (» & IDTOService &»,» & IDClient &», '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', 'Активен', '', '', '', '', '0-1')»)

End Sub

Private Sub Command12_Click()

Command2. Enabled = True

End Sub

Private Sub Command2_Click()

AdmClient. Visible = False

End Sub

Private Sub Command3_Click()

If MsgBox («Удалить?» & Text2. Text & «- автомобиль» & Combo3. Text & «» & Combo1. Text, vbQuestion + vbOKCancel, «Вы точно хотите удалить клиента?») = vbOK Then

Adodc1. Recordset. Delete

End If

End Sub

Private Sub Command4_Click()

Text9. Text = MD5. DigestStrToHexStr (Text9. Text)

'Adodc1. Refresh

End Sub

Private Sub Command5_Click()

Text9. Text = «»

End Sub

Private Sub Command6_Click()

Text11. Text = Calendar1.value

Calendar1. Visible = False

Command6. Visible = False

End Sub

Private Sub Command8_Click()

AnimationValue = «ClientInfMoneyOpen»

TimerAnimation1. Enabled = True

Command8. Enabled = False

End Sub

Private Sub Form_Load()

AdmTO. Timer1. Enabled = True

End Sub

Private Sub Image1_Click (Index As Integer)

If Index <> 19 Then Picture3. Visible = False

Select Case Index

Case 0: Text16. Text = «Голубой»

Case 1: Text16. Text = «Серый»

Case 2: Text16. Text = «Красный»

Case 3: Text16. Text = «Серый»

Case 4: Text16. Text = «Красный аден»

Case 5: Text16. Text = «Серый алюминий»

Case 6: Text16. Text = «Черный металик»

Case 7: Text16. Text = «Майя»

Case 8: Text16. Text = «Альпийский снег»

Case 9: Text16. Text = «белый»

Case 10: Text16. Text = «Изумруд»

Case 11: Text16. Text = «Бежевый»

Case 12: Text16. Text = «Зеленый»

Case 13: Text16. Text = «Темно-синий»

Case 14: Text16. Text = «Серебристый»

Case 15: Text16. Text = «Желтый»

Case 16: Text16. Text = «Фиолетовый»

Case 17: Text16. Text = «Ирис»

Case 18: Text16. Text = «Золотой»

End Select

End Sub

Private Sub Command10_Click()

If Text3. Text <> «» Then

Picture3. Visible = False

Text16. Text = Text3. Text

Text3. Text = «»

End If

End Sub

Private Sub Command11_Click()

Picture3. Visible = False

End Sub

Private Sub Label3_Click()

AnimationValue = «ClientInfMoneyClose»

TimerAnimation1. Enabled = True

End Sub

Private Sub Command9_Click()

AnimationValue = «ClientInfMoneyClose»

TimerAnimation1. Enabled = True

End Sub

Private Sub Text10_GotFocus()

sLastNick = Text10. Text

End Sub

Private Sub Text10_Validate (Cancel As Boolean)

Dim sNewNick As String

If sLastNick <> Text10. Text Then

sNewNick = ProgramADO.SQLExecAndGetValueOnFieldStr («SELECT * FROM Заказчик WHERE Ник='» & Text10. Text & «'», «Ник»)

If sNewNick <> «» Then

MsgBox «Такой Ник уже используется», vbInformation

Text10. Text = sLastNick

End If

End If

End Sub

Private Sub Text11_Click()

Calendar1. Top = Text11. Top

Calendar1. Left = Text11. Left + Text11. Width + 5

Calendar1. Visible = True

Command6. Left = Calendar1. Left + 12

Command6. Top = Calendar1. Top + Calendar1. Height + 4

Command6. Visible = True

If Text11. Text = «» Then Calendar1.value = Date Else Calendar1.value = Text11. Text

End Sub

Private Sub Text16_GotFocus()

Picture3. Left = 664: Picture3. Top = 144: Picture3. Visible = True

End Sub

Private Sub Text18_Click()

Calendar1. Top = Text18. Top

Calendar1. Left = Text18. Left + Text18. Width + 5

Calendar1. Visible = True

Command6. Left = Calendar1. Left + 12

Command6. Top = Calendar1. Top + Calendar1. Height + 4

Command6. Visible = True

If Text11. Text = «» Then Calendar1.value = Date Else Calendar1.value = Text11. Text

End Sub

Public Sub TimerAnimation1_Timer()

Select Case AnimationValue

Case «ClientInfMoneyOpen»

Animation. ClientInfMoneyOpen

Case «ClientInfMoneyClose»

Animation. ClientInfMoneyClose

End Select

End Sub

Private Sub VScroll1_Scroll()

Picture4. Top = VScroll1.value

End Sub

Приложение Б

Текст модуля «Заказ»

Option Explicit

Private Sub Adodc5_WillMove (ByVal adReason As ADODB. EventReasonEnum, adStatus As ADODB. EventStatusEnum, ByVal pRecordset As ADODB. Recordset)

End Sub

Private Sub Combo1_Click()

DataCombo3. Text = «»

Call GetCarDataFromModel (Combo1. Text)

End Sub

Private Sub Combo2_Click()

Adodc2. ConnectionString = «Provider=Microsoft. Jet.OLEDB.4.0; Data Source=C:\Диплом\db1.mdb; Mode=ReadWrite|Share Deny None; Persist Security Info=False»

Adodc2. CommandType = adCmdText