Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Пояснительная записка
Курсовая работа по дисциплине
«Базы данных»
Киров 2008
Реферат
БАЗА ДАННЫХ, СУБД MICROSOFT ACCESS 2002-2003, MICROSOFT VISUAL BASIC 6.0., РЕКЛАМНОЕ АГЕНТСТВО RECORDS, ADODC
Объект исследования и разработки – создание базы данных и приложения к ней.
Цель работы – изучение основ дисциплины «Базы данных».
Разработана база данных в СУБД Microsoft Access 2002-2003, приложение к базе данных в Microsoft Visual Basic 6.0.
СОДЕРЖАНИЕ
Введение ………………………………………………………………………… 3
1. Проектирование базы данных……………………………………………….. 5
2. Создание базы данных при помощи СУБД MS Access …………………… 7
2.1. Создание таблиц в СУБД Access…………………………………………7
2.2. Схема данных в Access ………………………………………………….. 8
2.3. Заполнение таблиц информацией ……………………………………… 10
3. Создание приложения в Visual Basic для работы с базами данных Access 13
3.1. Структура приложения и взаимодействия форм………………………. 13
3.2. Открытие базы данных «Рекламное агентство» при помощи средства
управления данными ADO ………………………………………………….. 19
3.3. Удаление и добавление записей в базу данных «Рекламное
агентство»…………………………………………………………………… .. 24
4. Создание запросов ……………………………………………………………28
Заключение ………………………………………………………………………35
Библиографический список……………………………………………………. 36
ВВЕДЕНИЕ
Заданием курсовой работы является создание базы данных при помощи любой СУБД и разработка собственного приложения для работы с этой базой данных.
Группа реляционных СУБД представлена на рынке программных продуктов очень широко. Это, например, такие системы, как 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) Для выхода из приложения нужно нажать кнопку «Выход» на главной форме.
БИБЛИОГРАФИЧЕСКИЙ СПИСОК