Создание и заполнение баз данных (стр. 1 из 2)

Содержание.

Введение…………………………………………………………………………. .2

1.Создание и заполнение базы данных…………………………………………..3

1.1.Создание БД……………………………………………………….. 3

1.2.Вывод таблиц в формы……………………………………………6 1.3.Формирование различного вида запросов………………………. 7

1.4.Вывод запросов на формы…………………………………….. …10

1.5.Создание отчёта с итогами…………………………………….. ...12

1.6.Создание меню управления базой данных……………………….13

2.Экспорт данных в Visual Basic 6.0 (с использованием элементов управления DATA и MSFlexGrid)……………………………………………………………15

Заключение………………………………………………………………………25

Список использованной литературы…………………………………………..26

Введение

Как известно, большинство современных компьютеров работают под управлением операционной системы Windows и оснащены, как правило, пакетом приложений Word, Excel, Access и VisualBasic семейства MSQffice. В настоящее время практически повсеместно используется пакет прикладных программ Microsoft Office, в стандартный набор которого входит MS Access – мощная система управления базами данных. Access интегрирован с прочими приложениями пакета, что позволяет применять богатые возможности компонентов. Office. Access позволяет создавать дружественный интерфейс, а также – решать специальные задачи при помощи программирования на языке Visual Basic for Application (VBA), в основе которого лежит язык Basic. Visual Basic стал очень популярным в последнее время благодаря лёгкости создания программных продуктов, удобству и быстроте доступа к базам данных и глубокой интеграции с Microsoft Office, что способствует развитию навыков объектного и визуального проектирования.

1. Создание и заполнение базы данных.

1.1. Создание БД.

Таблица 1 в режиме конструктора

Поле «Kod» (Код города) - ключевое. Через него будет связь со второй таблицей.

Таблица 2 в режиме конструктора

Связывание таблицы 1 и таблицы 2

Выбираем в меню «Сервис» - «Схема данных», добавляем созданные таблицы. Выделяем в таблице 1 поле «Kod» и, удерживая нажатой левую кнопку мышки, перетаскиваем это поле на поле с таким же названием во второй таблице. В открывшемся диалоговом окне необходимо отметить флажками следующие пункты:

«Обеспечение целостности данных»

«Каскадное обновление связанных полей»

«Каскадное удаление связанных записей»

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

Открываем таблицы и заполняем их:

1.2. Вывод таблиц в формы

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

Форма в режиме конструктор:

Форма в рабочем состоянии.

1.3. Формирование различного вида запросов

1) Вывести города и районы , у которых расход воды за предыдущий период был больше задаваемой величины

Конструктор запроса:

Запрос 1 на языке SQL:

SELECT Tab1.Nazv, Tab2.[Nazv r], Tab1.Ras2

FROM Tab1 INNER JOIN Tab2 ON Tab1.Kod = Tab2.Kod

WHERE (((Tab1.Ras2)>[задать величину]));

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

2) Вывести информацию о городах, где суммарный расход ресурсов увеличился по сравнению с предыдущем периодом хотя бы для одного ресурса.

Конструктор запроса:

Вспомогательный запрос:

основной запрос:

Запрос 2 на языке SQL:

Вспомогательный запрос:

SELECT Tab2.Kod, Sum(Tab2.Rn1) AS Sum1, Sum(Tab2.Rn2) AS Sum2, Sum(Tab2.Rn3) AS Sum3, Sum(Tab2.Rn4) AS Sum4, Sum(Tab2.Rn5) AS Sum5

FROM Tab2

GROUP BY Tab2.Kod;

Основной запрос:

SELECT Tab1.Kod, Tab1.Nazv

FROM Tab1 INNER JOIN zap21 ON Tab1.Kod = zap21.Kod

WHERE (((zap21.Sum1)>[ras1])) OR (((zap21.Sum2)>[ras2])) OR (((zap21.Sum3)>[ras3])) OR (((zap21.Sum4)>[ras4])) OR (((zap21.Sum5)>[ras5]));

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

Вспомогательный запрос:

основной запрос:

1.4. Вывод запросов на формы.

Как в пункте 2.2. создаём формы в конструкторе и выводим туда результаты запросов.

Форма запроса 1 в режиме конструктор:

Форма запроса 2 в режиме конструктор:

Форма запроса 1 в рабочем состоянии:

Форма запроса 2 в рабочем состоянии:

1.5. Создание отчёта с итогами по группам записей.

Для создания отчёта также можно воспользоваться конструктором или мастером создания отчётов.

Отчёт в режиме конструктора:

Результат составления отчёта:

1.6. Создание меню управления базой данных.

Для создания меню откроем конструктор и расположим на нём командные кнопки и метки к ним.

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

Пример процедуры для кнопки «Информация о предприятии»

Private Sub Кнопка0_Click()

On Error GoTo Err_Кнопка0_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "Tab1"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Кнопка0_Click:

Exit Sub

Err_Кнопка0_Click:

MsgBox Err.Description

Resume Exit_Кнопка0_Click

EndSub

Аналогично указываем процедуры других кнопок.

Меню в рабочем состоянии:

2.Экспорт данных в VisualBasic 6.0 (с использованием элементов управления DATA и MSFlexGrid)

Разработать форму и программный код в VisualBasic, обеспечивающий доступ к базе данных (через элемент Data) и позволяющий:

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

4. По выбираемым ресурсам вывести информацию о районе и городе с максимальным расходом.

Для работы с базой данных в программном средстве VisualBasic необходимо сохранить созданную базу данных в формате 1997 года (сервис - служебные программы - преобразовать вAccess97), затем выйти изAccess и уже ее подключать в программеVB6 к элементу Data, найдя имя БД в списке его свойства DatabaseName.

Форма до запуска программы:

Используемые элементы управления:

Элемент	Свойство	Значение свойства
MSFlexGrid	Name	Grid
Cols	2
Rows	2
FixedCols	0
FixedRows	1
Data	Name	Data1
DatabaseName	c:\Приложение Microsoft Access_97.mdb
Connect	Access
RecordsetType	0 – Table
RecordSource	Таблица 1
Связанные текстовые поля TextBox	DataSource	Data1
Name	Text1(0)
Name	Text1(1)
Name	…
Name	Text1(7)
Data	Name	Data2
DatabaseName	c:\Приложение Microsoft Access_97.mdb
Connect	Access
RecordsetType	0 – Table
RecordSource	Таблица 2
Связанные текстовые поля TextBox	DataSource	Data1
Name	Text2(0)
Name	Text2(1)
Name	…
Name	Text2(7)
Label	Name	Label
Caption	задаётся программно
CommandButton	Name	Command1
Caption	Вывести таблицу
CommandButton	Name	Command2
Caption	Добавить запись
CommandButton	Name	Command3
Caption	Удалить запись
CommandButton	Name	Command4
Caption	Вывести таблицу
CommandButton	Name	Command5
Caption	Добавить запись
CommandButton	Caption	Command6
Name	Удалить запись
CommandButton	Name	Command7
Caption	Справка 1
CommandButton	Name	Command8
Caption	Справка 2
CommandButton	Caption	Command9
Name	Выход

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