Приложение в Visual Basic для работы с базой данных

Размещено на http://www.allbest.ru

Размещено на http://www.allbest.ru

Пояснительная записка

Курсовая работа по дисциплине

«Базы данных»

Реферат

БАЗА ДАННЫХ, СУБД MICROSOFT ACCESS 2002-2003, MICROSOFT VISUAL BASIC 6.0., РЕКЛАМНОЕ АГЕНТСТВО RECORDS, ADODC

Объект исследования и разработки - создание базы данных и приложения к ней.

Цель работы - изучение основ дисциплины «Базы данных».

Разработана база данных в СУБД Microsoft Access 2002-2003, приложение к базе данных в Microsoft Visual Basic 6.0.

СОДЕРЖАНИЕ

Введение

1. Проектирование базы данных

2. Создание базы данных при помощи СУБД MS Access

2.1 Создание таблиц в СУБД Access

2.2 Схема данных в Access

2.3 Заполнение таблиц информацией

3. Создание приложения в Visual Basic для работы с базами данных Access

3.1 Структура приложения и взаимодействия форм

3.2 Открытие базы данных «Рекламное агентство» при помощи средства управления данными ADO

3.3 Удаление и добавление записей в базу данных «Рекламное агентство

4. Создание запросов

Заключение

Библиографический список

ВВЕДЕНИЕ

Заданием курсовой работы является создание базы данных при помощи любой СУБД и разработка собственного приложения для работы с этой базой данных.

Группа реляционных СУБД представлена на рынке программных продуктов очень широко. Это, например, такие системы, как Paradox, Clarion, dBASE, FoxBASE, FoxPro, Clipper, Access. Важнейшей характеристикой любой СУБД является используемый в ней тип транслятора (интерпретатор или компилятор). Программы, написанные для системы-интерпретатора, используются лишь в присутствии самой системы. В настоящее время скорость работы таких программ не уступает скорости программ, сгенерированных компилятором. Бесспорным преимуществом интерпретаторов для программистов является удобство в разработке и отладке программных продуктов, а также при освоении языка. Из вышеперечисленных СУБД dBASE, FoxPro, Access являются интерпретаторами, а Clipper - компилятором. В пакетах dBASE и FoxPro имеется компилятор, позволяющий при желании сформировать EXE-файлы готовых программ. Недостатком систем-компиляторов являются большие суммарные затраты времени на многократную компиляцию и сборку исходных модулей программы при ее отладке, что очень замедляет труд разработчика.

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

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

1. ПРОЕКТИРОВАНИЕ БАЗЫ ДАННЫХ

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

Ядром любой базы данных является модель данных. Модель данных - совокупность структур данных и операций их обработки. Так как программа Microsoft Access - реляционная СУБД, то создаем реляционную модель данных. Реляционная модель (от англ. relation - отношение) была разработана в начале 70-х годов Эдгаром Коддом. Модель опирается на систему понятий реляционной алгебры, важнейшие из которых: таблица, строка, столбец, отношение и первичный ключ, а все операции сводятся к манипуляциям с таблицами. В реляционной модели информация представляется в виде прямоугольных таблиц. Каждая таблица состоит из строк и столбцов и имеет имя, уникальное внутри базы данных. Таблица отражает объект реального мира - сущность, а каждая строка (запись) отражает конкретный экземпляр объекта - экземпляр сущности.

Предметной областью моей информационной системы является рекламное агентство. Объектами (сущностями) этой предметной области являются таблицы данных. Информационно-логическую модель рекламного агентства можно представить следующим образом (рис.1):



Рис.1.1 ИЛМ предметной области

Связи между сущностями «один ко многим» и «один к одному». Связь «один к одному» означает, что каждому экземпляру первого объекта (А) соответствует только один экземпляр второго объекта (В) и наоборот, каждому экземпляру второго объекта (В) соответствует только один экземпляр первого объекта (А). В данном случае такая связь присутствует между таблицами «Заказы» и «Услуги». Связь «один ко многим» характеризуется тем, что каждому экземпляру одного объекта (А) может соответствовать несколько экземпляров другого объекта (В), а каждому экземпляру второго объекта (В) может соответствовать только один экземпляр первого объекта (А). Такая связь присутствует между остальными таблицами. Таблицы базы данных получены путем разложения (декомпозиции) исходных отношений БД на более простые отношения, то есть в процессе нормализации. Это позволяет устранить дублирование, обеспечивает непротиворечивость хранимых в базе данных, уменьшает трудозатраты на ведение (ввод, корректировку) базы данных.

2. СОЗДАНИЕ БАЗЫ ДАННЫХ ПРИ ПОМОЩИ СУБД MS ACCESS

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

2.1 Создание таблиц в СУБД Access

Таблицы создаются пользователем для хранения данных. Каждому объекту концептуальной модели предметной области соответствует одна таблица, которая состоит из полей (столбцов) и записей (строк). Каждое поле содержит одну характеристику (один атрибут) объекта предметной области. В записи собраны сведения об одном экземпляре этого объекта.

После запуска MS Access в появившемся диалоговом окне, позволяющем начать создание базы данных, открываем закладку Таблицы. Для создания таблиц выбираем режим Конструктора таблиц. Для определения поля в окне Таблица задаем Имя поля, Тип данных, Описание - краткий комментарий, а также свойства поля в разделе Свойства поля: общие свойства - на закладке Общие и тип элемента управления - на закладке Подстановка. Создаем шесть таблиц в соответствии с заданной ИЛМ.

Рис.2.1.1 Таблица «Заказы»

Рис.2.1.2 Таблица «Услуги»

Рис.2.1.3 Таблица «Материалы»

Рис.2.1.4 Таблица «Заказчик»

Рис. 2.1.5 Таблица «Специалисты»

Рис. 2.1.6 Таблица «Счет»

2.2 Схема данных в Access

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

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

Создание схемы данных начинается в окне базы данных с выполнения команды Сервис/Схема данных или нажатия кнопки Схема данных на панели инструментов. После нажатия кнопки Схема данных открывается окно Добавление таблицы, в котором можно выбрать таблицы, которые нужно включить в схему данных (рис.2.2.1). Для размещения таблицы в окне Схема данных надо выделить ее в окне Добавление таблицы и нажать кнопку Добавить. После включения всех нужных таблиц в схему данных надо нажать кнопку Закрыть. В результате в окне Схема данных будут представлены все включенные таблицы со списком своих полей.

Рис.2.2.1 Окно «Добавление таблицы»

Для установления связи между парой таблиц в схеме данных надо выделить в главной таблице уникальное ключевое поле, по которому устанавливается связь. Далее при нажатой кнопке мыши протащить курсор в соответствующее поле подчиненной таблицы. При установлении связи откроется окно Связи (рис.2.2.2). В этом окне можно задать параметр Обеспечение целостности данных для выбранной связи, каскадное обновление связанных полей или каскадное удаление связанных полей.

Рис.2.2.2 Окно «Связи»

После установления связей между таблицами получим схему данных в окне Схема данных (рис.2.2.3).

Рис.2.2.3 Схема данных БД Рекламное агентство

2.3 Заполнение таблиц информацией

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

Рис.2.3.1 Заполненная таблица «Счет»

Рис.2.3.2 Заполненная таблица «Услуги»

Рис.2.3.3 Заполненная таблица «Специалисты»

Рис.2.3.4 Заполненная таблица «Материалы»

Рис.2.3.5 Заполненная таблица «Заказчик»

Рис.2.3.6 Заполненная таблица «Заказы»

3. СОЗДАНИЕ ПРИЛОЖЕНИЯ В VISUAL BASIC ДЛЯ РАБОТЫ С БАЗОЙ ДАННЫХ ACCESS

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

база данный приложение таблица

3.1 Структура приложения и взаимодействия форм

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

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

Рис. 3.1.1 Вид главной формы

Таблица свойств объектов главной формы:

Таблица 3.1.1

Объект	Name	Caption	Visible	Enabled	Дополнительно
Form1	frmMain	Рекламное агентство - главная форма	True	True	-
Image1	Image1	-	True	True	Stretch: True Picture: (Bitmap)
Label1	Label1	Рекламное агентство	True	True	BackColor: &H00C0FFC0& Font: MS Sans Serif
Label2	Label2	Выберите объект для просмотра или команду	True	True	BackColor: &H00C0FFC0& Font: MS Sans Serif
Command Button1	Command1	Услуги	True	True	Font: MS Sans Serif
Command Button2	Command2	Заказы	True	True	Font: MS Sans Serif
Command Button3	Command3	Заказчики	True	True	Font: MS Sans Serif
Command Button4	Command4	Специалисты	True	True	Font: MS Sans Serif
Command Button5	Command5	Счёт	True	True	Font: MS Sans Serif
Command Button6	Command6	Материалы	True	True	Font: MS Sans Serif
Command Button7	Command7	Запросы	True	True	Font: MS Sans Serif
Command Button8	Command8	Выход	True	True	Font: MS Sans Serif

Программный код главной формы:

Private Sub Form_Load()

frmOrder.Hide

frmCust.Hide

frmSpec.Hide

frmServ.Hide

frmMater.Hide

frmBill.Hide

End Sub

Private Sub Command1_Click()

frmServ.Show

frmMain.Hide

End Sub

Private Sub Command2_Click()

frmOrder.Show

frmMain.Hide

End Sub

Private Sub Command3_Click()

frmCust.Show

frmMain.Hide

End Sub

Private Sub Command4_Click()

frmSpec.Show

frmMain.Hide

End Sub

Private Sub Command6_Click()

frmMater.Show

frmMain.Hide

End Sub

Private Sub Command5_Click()

frmBill.Show

frmMain.Hide

End Sub

Private Sub Command8_Click()

End

End Sub

Private Sub Command7_Click()

frmQuery.Show

frmMain.Hide

End Sub

На шести формах, вызываемых главной формой, будут отражаться данные из базы данных Рекламное агентство. Для этого в каждую форму помещаем текстовые поля (в них будут отражаться записи таблиц), поля метки (с названием полей таблиц), объекты DataGrid (для отображения всех данных таблиц), средство управления данными ADO и командные кнопки (они будут позволять пользователю удалять, добавлять записи в таблицу или вернуться к главной форме). Таким образом, получаем шесть следующих форм (вид форм до запуска приложения):

Рис. 3.1.2 Внешний вид формы «Счёт»

Рис. 3.1.3 Внешний вид формы «Заказчики»

Рис. 3.1.4 Внешний вид формы «Материалы»

Рис. 3.1.5 Внешний вид формы «Заказы»

Рис. 3.1.6 Внешний вид формы «Услуги»

Рис. 3.1.7 Внешний вид формы «Специалисты»

Для отражения запросов нужно создать еще одну форму. На ней располагаем объект с закладками SSTab. Он нужен для того, чтобы разместить все запросы в одной форме. Также добавляем в форму на каждую закладку по таблице DataGrid для отображения результатов запросов, средство управления данными ADO, командные кнопки для запуска запросов. Внешний вид формы «Запросы» представлен на рис. 3.1.8.

Рис. 3.1.8 Внешний вид формы «Запросы»

3.2 Открытие базы данных «Рекламное агентство» при помощи средства управления данными ADO

Средство управления данными ADO представляет собой новую технологию Microsoft для работы с информацией реляционных и нереляционных баз данных. Технология ADO основана принципе доступа к данным OLE DB, специально предназначенном для обеспечения доступа к широкому спектру различных источников данных, включая традиционные реляционные табличные базы данных, системы электронной почты, графические изображения, ресурсы Internet и т.д. Технология ADO требует меньше объема памяти, чем DAO, поэтому она подходит для сетевых компьютерных систем, которые работают с более жестким трафиком и с более высокими скоростями транзакций.

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

DAO - метод объектов доступа к данным (Data Access Objects - DAO) представляет собой первый объектно-ориентированный интерфейс, который давал возможность программистам манипулировать средствами работы с базами данных Microsoft Jet, представляющими собой технологию, используемую для доступа к полям и записям таблиц в Microsoft Access и другим источникам данных. Технология DAO все еще популярна и эффективна для локальных приложений обработки баз данных, а также сетей для малых и средних рабочих групп.

RDO - метод объектов удаленных данных (Remote Data Object - RDO) представляет собой объектно-ориентированный интерфейс для работы с источниками информации, поддерживающими открытое соединение с базами данных (Open Database Connectivity - ODBC). RDO является объектной моделью, используемой большинством разработчиков баз данных, которые интенсивно работают с Microsoft SQL Server, Oracle и другими большими реляционными базами данных.

ADO - метод объектов данных ActiveX (ActiveX Data Object - ADO) был разработан в развитие методов DAO и RDO и использует схожую объектную модель. В ADO все локальные и удаленные источники данных, доступные для компьютера, представляются в виде программируемых объектов. Можно осуществить доступ к этим объектам с использованием нового средства управления ADO, путем встраивания объектов типа данные в стандартные средства управления Visual Basic и в средства управления ActiveX, путем создания DHTML-приложений, а также с помощью использования конструктора окружения данных Data Environment Designer.

Microsoft рекомендует программистам на Visual Basic использовать ADO при создании новых приложений для работы с базами данных в Visual Basic. С этой целью в профессиональную версию Microsoft Visual Basic 6 было включено несколько средств, специально разработанных для поддержки технологии ADO.

Средство управления ADO создает элементы интерфейса для работы с базой данных в виде четырех кнопок со стрелками. В процессе выполнения программы, если объект является видимым и установлено соединение с соответствующей базой данных, можно щелкнуть мышью на первой слева стрелке для перехода к первой записи в базе данных, либо щелкнуть на крайней справа стрелке для перехода к последней записи в базе данных. Внутренние стрелки позволяют переходить соответственно к предыдущей и последующей записям в базе данных.

Для установления связи с базой данных Рекламное агентство.mdb нужно воспользоваться свойством ConnectionString средства управления ADO. Для этого нужно щелкнуть на объекте ADO в форме, открыть окно Properties (Свойства) и щелкнуть на кнопке в поле значения свойства ConnectionString. Появится диалоговое окно Property Pages (свойства), как показано на рис. 3.2.1.

Рис. 3.2.1 Диалоговое окно Property Pages

Щелкнем на второй кнопке выбора Use ODBC Data Source Name (Использовать имя источника данных ODBC). Далее щелкаем на кнопке New (новый) справа от кнопки выбора Use ODBC Data Source Name (Использовать имя источника данных ODBC). Появится следующее диалоговое окно (рис. 3.2.2).

Рис. 3.2.2 Диалоговое окно «Создание нового источника данных»

Выбираем вторую опцию (источник данных пользователя). Она означает, что база данных физически размещается на той машине, на которой в настоящий момент работает пользователь, и эта база данных будет использоваться только им. В данном случае выбираем вторую опцию, поскольку создается простая демонстрационная программа для собственного пользования.

После выбора кнопки щелкаем по кнопке «Далее». При этом появляется диалоговое окно с запросом о драйвере базы данных, который будет использоваться при организации соединения с базой данных (рис.3.2.3).

Рис. 3.2.3

Выбираем нужную опцию Microsoft Access Driver и щелкаем по кнопке «Далее». Visual Basic обобщит выбранные опции и предложит щелкнуть мышью на кнопке «Готово» для продолжения конфигурирования файла имени источника данных Data Source Name (рис. 3.2.4).

Рис. 3.2.4

После нажатия кнопки «Готово» появляется новое диалоговое окно с именем Установка драйвера ODBC для Microsoft Access (рис. 3.2.5). В этом диалоговом окне можно задать имя файла источника данных, выбрать базу данных, с которой устанавливается связь, и задать параметры соединения. В текстовое поле Имя источника данных вводим «Рекламное агентство Records».

Рис. 3.2.5 Диалоговое окно Установка драйвера ODBC для Microsoft Access

Щелкаем на кнопке «Выбрать…», просматриваем содержимое папки D:\проект, и выбираем базу данных Рекламное агентство.mdb, затем щелкаем на кнопке ОК. В диалоговом окне Установка драйвера ODBC для Microsoft Access также нажимаем кнопку ОК. Вновь появится диалоговое окно Property Page (Свойства). Щелкаем на поле с ниспадающим списком Use ODBC Data Source Name (Имя источника данных), затем выбираем строку Рекламное агентство Records. Щелкаем на кнопке ОК в диалоговом окне Property Pages (Свойства) для окончания установки соединения.

Рис. 3.2.6 Диалоговое окно Property Pages

Диалоговое окно Property Pages закроется, а в окне Properties (Свойства) напротив свойства ConnectionString появится надпись DSN = Рекламное агентство Records.

Переходим к свойству RecordSource и щелкаем на кнопке справа от имени свойства RecordSource. Снова появится диалоговое окно Property Pages, но на этот раз будет отображена вкладка RecordSource (Источник записей). Щелкаем на ниспадающем списке Command Type (Тип команды) и выделяем строку 2 - adCmdTable. В поле с ниспадающим списком Table Or Stored Procedure Name (Имя таблицы или процедуры) загружаем имя нужной нам таблицы (например, таблицу «Услуги» рис. 3.2.7)гружаем имя нужной нам таблицы.вкладка ва ентство.ь, и задать параметры соединения. рамма для собственного пользования.база д).

Рис. 3.2.7 Диалоговое окно Property Pages

Щелкаем на кнопке ОК, чтобы завершить выбор источника записей RecordSource. В окне Properties рядом со свойством RecordSource появится имя таблицы «Услуги».

Щелкаем на объекте Text1 формы Услуги (frmServ) в окне Properties. Устанавливаем для свойства DataSource значение Adodc1, а для свойства DataField - значение №. Аналогичные операции проводим со всеми текстовыми полями формы, присваивая им соответствующие имена полей.

Повторяем аналогично все действия для объектов Adodc и текстовых полей остальных форм.

3.3 Удаление и добавление записей в базу данных «Рекламное агентство»

Для добавления и/или удаления записей в таблицах в каждой форме предусмотрены кнопки «Добавить» (cmdAdd) и «Удалить» (cmd Del). Программный код для этих действий в каждой формы аналогичен.

Рассмотрим программный код для удаления и добавления записей на примере формы «Услуги» (frmServ):

Добавление записей в таблицу

Private Sub cmdAdd_Click()

prompt$ = "Для ввода новой записи нажмите на кнопку ОК"

reply = MsgBox(prompt$, vbOKCancel, "Добавить запись")

If reply = vbOK Then

Text1.SetFocus

Adodc1.Recordset.AddNew

End If

End Sub

Удаление записей из таблицы

Private Sub cmdDel_Click()

prompt$ = "Вы действительно хотите удалить этот вид услуги?"

reply = MsgBox(prompt$, vbOKCancel, "Удаление записи")

If reply = vbOK Then

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

End If

End Sub

После выполнения всей последовательности вышеизложенных операций имеем приложение для открытия базы данных Рекламное агентство с возможностью редактирования данных в ней.

Ниже приведен внешний вид форм после запуска приложения с отображением всех данных таблиц базы данных Рекламное агентство.

Рис. 3.3.1 Форма «Услуги»

Рис. 3.3.2 Форма «Заказы»

Рис. 3.3.3 Форма «Заказчики»

Рис. 3.3.4 Форма «Специалисты»

Рис. 3.3.5 Форма «Материалы»

Рис. 3.3.6 Форма «Счёт»

4. СОЗДАНИЕ ЗАПРОСОВ

Для запросов в приложении создана специальная форма, которая называется «Запросы». Для удобства использования все запросы расположены на объекте с закладками SSTab.

Для создания запросов на каждой вкладке размещаем объект Adodc (для создания запросов), DataGrid (для отображения результатов запросов), текстовое поле Text (для запросов с параметрами) и кнопки CommandBatton (для запуска запросов).

Для создания запроса без параметров нажимаем правой клавишей мыши на объекте Adodc1. В появившемся контекстном меню щелкаем по строке ADODC Properties. В появившемся диалоговом окне Property Page выбираем вкладку RecordSource. Щелкаем на поле с ниспадающим списком Command Type и выбираем команду 1-adCmdTxt. В поле CommandText (SQL) записываем SQL-запрос (рис. 4.1). Для объекта DataGrid1 свойству DataSource присваиваем значение Adodc1. Аналогично и для остальных запросов.

Рис. 4.1. Создание запроса

Таким образом, получаем три запроса без параметров.

Первый запрос отбирает пять самых дорогих заказов:

SELECT DISTINCTROW TOP 5 [Заказы].[Вид услуги] AS [Самые дорогие заказы], [Заказы].[Сумма] AS Стоимость, [Заказы].[Дата заказа] FROM Заказы ORDER BY [Заказы].[Сумма] DESC

Результаты запроса показаны на рис. 4.2.

Рис. 4.2

Второй запрос выводит список услуг, стоимостью не менее 1000 рублей:

SELECT Заказы.[Дата заказа], Заказы.[Вид услуги], Заказы.Сумма FROM Заказы WHERE Сумма >=1000

Результаты запроса показаны на рис. 4.3.

Рис. 4.3

Третий запрос выводит список работ, выполненных специалистами (запрос на объединение таблиц):

SELECT Заказы.Исполнитель, Заказы.[Вид услуги], Услуги.Материал FROM Заказы LEFT JOIN Услуги ON Заказы.[Вид услуги]=Услуги.Наименование ORDER BY Заказы.Исполнитель

Результат запроса показан на рис. 4.4.

Рис. 4.4

Запросы с параметрами создаем написанием программного кода. Применение SQL-запросов в коде программы, работающей с базой данных, имеет свои преимущества -- это просто, наглядно и весьма эффективно. Однако из-за различия типов данных Visual Basic и SQL при передаче переменных из кода программы в SQL-запрос могут возникать неприятные нюансы. Чтобы избежать их, перед тем, как передать строковую переменную в SQL-запрос, ее нужно ограничить одинарными кавычками, для чего рекомендуется применять соответствующую функцию:

Private Function Quote(strVariable As String) As String

Quote = “ ` “ & strVariable & “ ` “

End Function

Для четвертого запроса, выводящего список заказов, выполненных определенным специалистом, имеем следующий программный код:

Private Sub Command1_Click()

Dim strName As String

If txtName.Text <> Empty Then

strName = Trim(txtName.Text)

With Adodc4

.ConnectionString = "Рекламное агентство Records"

.RecordSource = "SELECT * FROM Заказы WHERE Заказы.Исполнитель LIKE" & Quote(strName)

.Refresh

End With

Set DataGrid4.DataSource = Adodc4

Else

MsgBox "Введите значение текстового поля!", vbOKOnly

txtName.SetFocus

End If

End Sub

Результат выполнения запроса показан на рис. 4.5.

Рис. 4.5

Программный код для выполнения пятого запроса, отбирающего заказы, сделанные определенным заказчиком:

Private Sub Command2_Click()

Dim strZ As String

If txtZ.Text <> Empty Then

strZ = Trim(txtZ.Text)

With Adodc5

.ConnectionString = "Рекламное агентство Records"

.RecordSource = "SELECT * FROM Заказы WHERE Заказы.Заказчик LIKE" & Quote(strZ)

.Refresh

End With

Set DataGrid5.DataSource = Adodc5

Else

MsgBox "Введите значение текстового поля!", vbOKOnly

txtZ.SetFocus

End If

Результат выполнения показан на рис. 4.6.

Рис. 4.6

Для шестого запроса, определяющего сумму выручки за определенный день:

Private Sub Command4_Click()

Dim strD As String

If txtDate.Text <> Empty Then

strD = Trim(txtDate.Text)

With Adodc6

.ConnectionString = "Рекламное агентство Records"

.RecordSource = "SELECT Sum(Сумма)As [Выручка за день] FROM Счет WHERE Счет.Дата LIKE" & Quote(strD)

.Refresh

End With

Set DataGrid6.DataSource = Adodc6

Else

MsgBox "Введите значение текстового поля!", vbOKOnly

txtDate.SetFocus

End If

End Sub

Результат выполнения на рис. 4.7.

Рис. 4.7

Для седьмого запроса, выводящего сумму самого дорогого заказа за определенный день:

Private Sub Command3_Click()

Dim strM As String

If txtM.Text <> Empty Then

strM = Trim(txtM.Text)

With Adodc7

.ConnectionString = "Рекламное агентство Records"

.RecordSource = "SELECT max(Сумма) As [Сумма заказа] FROM Счет Where Счет.Дата LIKE" & Quote(strM)

.Refresh

End With

Set DataGrid7.DataSource = Adodc7

Else

MsgBox "Введите значение текстового поля!", vbOKOnly

txtM.SetFocus

End If

End Sub

Результат выполнения на рис. 4.8.

Рис. 4.8

ЗАКЛЮЧЕНИЕ

Создано приложение в Visual Basic для работы с базой данных, разработанной в СУБД Microsoft Access, с возможностью использования SQL-запросов.

Руководство пользователю:

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

2) Для возврата к главной форме из формы с таблицей нужно нажать кнопку «Назад».

3) Для добавления данных в таблицу нужно нажать кнопку «Добавить», подтвердить команду добавления и внести новые данные в поля таблицы.

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

5) Для того чтобы воспользоваться запросами, нужно на главной форме нажать кнопку «Запросы».

6) Первые три запроса в форме «Запросы» - без параметров, поэтому предназначены только для просмотра.

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

8) Для повторного использования запроса нужно удалить информацию из текстового поля, ввести новые данные и снова нажать на кнопку «Запуск».

9) Для выхода из приложения нужно нажать кнопку «Выход» на главной форме.

БИБЛИОГРАФИЧЕСКИЙ СПИСОК

Разработка баз данных в системе Microsoft Access: учебник. - 2-е изд. - М.: ФОРУМ: ИНФА-М, 2007. - 224 с.: ил. - (Профессиональное образование)

Microsoft Visual Basic 6.0 для профессионалов. Шаг за шагом: Практ. пособ./Пер. с англ. - М.: Издательство ЭКОМ, 2004. - 720 с.: илл.

Хомоненко А. Д., Цыганков В. М., Мальцев М. Г. Базы данных: Учебник для высших учебных заведений/ Под ред. проф. А. Д. Хомоненко. - 4-е изд., доп. и перераб. - СПб.: КОРОНА принт, 2004. - 736 с.

Брайан Сайлер «Использование Visual Basic 6»: специальное издание/Сайлер, Брайан, Споттс, Джефф - М: Вильямс, 2005. - 830с.

Евангелос Петрусос «Visual Basic 6: руководство разработчика»: пер. с англ./под ред. Ю.М. Зорина. - Киев: Ирина: BHV, 2000. - 1071 с.

Размещено на Allbest.ru