Создание и заполнение баз данных
Содержание.
Введение…………………………………………………………
1.Создание и заполнение базы данных…………………………………………..3
1.1.Создание БД……………………………………………………….. 3
1.2.Вывод таблиц в формы………………
1.4.Вывод запросов на формы…………………………………….. …10
1.5.Создание отчёта с итогами…
1.6.Создание меню управления
2.Экспорт
данных в Visual Basic 6.0 (с использованием
элементов управления DATA и MSFlexGrid)……………………………………………
Заключение……………………………………………………
Список
использованной литературы…………………………………………..26
Введение
Как известно, большинство современных компьютеров работают под управлением операционной системы Windows и оснащены, как правило, пакетом приложений Word, Excel, Access и Visual Basic семейства MS Qffice. В настоящее время практически повсеместно используется пакет прикладных программ 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
End Sub
Аналогично
указываем процедуры других кнопок.
Меню в рабочем состоянии:
2.Экспорт
данных в Visual Basic 6.0 (с
использованием элементов
управления DATA и MSFlexGrid)
Разработать
форму и программный код в
Visual Basic, обеспечивающий доступ к базе
данных (через элемент Data) и позволяющий:
- Для каждого города и района вывести информацию о ресурсах с минимальным расходом.(ресурс, расход).
- По выбираемым ресурсам вывести информацию о районе и городе с максимальным расходом.
Для
работы с базой данных в программном
средстве Visual Basic необходимо сохранить
созданную базу данных в формате 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 | Выход |
Программный код формы:
'ОТОБРАЖЕНИЕ ТАБЛИЦ
Private Sub Command1_Click()
Label.Caption = "Таблица №1"
Grid.Clear 'очистка сетки
Grid.Cols = 8
Grid.Rows = Data1.Recordset.RecordCount + 1 'устанавливаем количество строк в гибких сетках равным количеству записей в таблице + 1 (для заголовков столбцов)
Data1.Recordset.MoveFirst 'переход к первой записи
For I = 1 To Data1.Recordset.RecordCount 'цикл отображения записей таблицы в гибких сетках
For J = 1 To 8 'по столбцам записи таблицы
If I = 1 Then Grid.TextMatrix(0, J - 1) = Data1.Recordset.Fields(J - 1).Name
Grid.TextMatrix(I, J - 1) = Data1.Recordset.Fields(J - 1)
Next J
Data1.Recordset.MoveNext 'переход к следующей записи таблицы 1
Next I
Data1.Recordset.MoveFirst 'возврат к первой записи
For J = 1 To 8 'выравниваем ширину столбцов
Grid.ColWidth(J - 1) = Grid.Width / 9
Next J
End Sub
Private Sub Command4_Click()
Label.Caption = "Таблица №2"
Grid.Clear 'очистка сетки
Grid.Cols = 8
Grid.Rows = Data2.Recordset.RecordCount + 1 'устанавливаем количество строк в гибких сетках равным количеству записей в таблице + 1 (для заголовков столбцов)
Data2.Recordset.MoveFirst 'переход к первой записи
For I = 1 To Data2.Recordset.RecordCount 'цикл отображения записей таблицы в гибких сетках
For J = 1 To 8 'по столбцам записи таблицы
If I = 1 Then Grid.TextMatrix(0, J - 1) = Data2.Recordset.Fields(J - 1).Name
Grid.TextMatrix(I, J - 1) = Data2.Recordset.Fields(J - 1)
Next J
Data2.Recordset.MoveNext 'переход к следующей записи таблицы 1
Next I
Data2.Recordset.MoveFirst 'возврат к первой записи
For J = 1 To 8 'выравниваем ширину столбцов
Grid.ColWidth(J - 1) = Grid.Width / 9
Next J
End Sub
'ДОБАВЛЕНИЕ ЗАПИСЕЙ
Private Sub Command2_Click() 'в таблицу 1
Dim Reply As VbMsgBoxResult
Reply = MsgBox("Если будете вводить новую запись, нажмите кнопку OK", _
vbOKCancel, "Ввод новой записи")
If Reply = vbOK Then
Text1(0).SetFocus 'Остановка, текстовые окна пустые, в них нужно ввести запись
Data1.Recordset.AddNew
End If
MsgBox ("После ввода записи нажмите левую стрелку элемента Data")
End Sub
Private Sub Command5_Click() 'в таблицу 2
Dim Reply As VbMsgBoxResult
Reply = MsgBox("Если будете вводить новую запись, нажмите кнопку OK", _
vbOKCancel, "Ввод новой записи")
If Reply = vbOK Then
Text2(0).SetFocus 'Остановка, текстовые окна пустые, в них нужно ввести запись
Data2.Recordset.AddNew
End If
MsgBox ("После ввода записи нажмите левую стрелку элемента Data")
End Sub
'УДАЛЕНИЕ ЗАПИСЕЙ
Private Sub Command3_Click() 'из таблицы 1
Dim Reply As VbMsgBoxResult
Reply = MsgBox("Если будете удалять текущую запись, нажмите кнопку OK", vbOKCancel, "Удаление текущей записи")
If Reply = vbOK Then
Data1.Recordset.Delete 'удаление записи
Data1.Recordset.MoveFirst 'переход к первой записи
End If
Command1_Click
End Sub
Private Sub Command6_Click() 'из таблицы 1
Dim Reply As VbMsgBoxResult
Reply = MsgBox("Если будете удалять текущую запись, нажмите кнопку OK", vbOKCancel, "Удаление текущей записи")
If Reply = vbOK Then
Data2.Recordset.Delete 'удаление записи
Data2.Recordset.MoveFirst 'переход к первой записи
End If
Command3_Click
End Sub
Отображение таблицы 1:
Отображение таблицы 2:
3.
Для каждого города
и района вывести информацию
о ресурсах с минимальным
расходом.(ресурс, расход).
Private Sub Command7_Click()
Label.Caption = "Информация о ресурсах с минимальным расходом"
Grid.Clear 'очистка сетки
Grid.Cols = 5
Grid.Rows = Data2.Recordset.RecordCount + 1 'устанавливаем количество строк в гибкой сетке равным количеству записей в таблице + 1 (для заголовков столбцов)
Grid.FormatString = "^Код города|^код района|название района|^№ ресурса|^расход"
Data2.Recordset.MoveFirst 'переход к первой записи
For I = 1 To Data2.Recordset.RecordCount
Min = Data2.Recordset.Fields(3): nommin = ""
For J = 3 To 7 'по столбцам записи таблицы
If Data2.Recordset.Fields(J) < Min Then Min = Data2.Recordset.Fields(J): nommin = ""
If Data2.Recordset.Fields(J) = Min Then nommin = nommin & Str(J - 2) & " "
Next J
Grid.TextMatrix(I, 0) = Data2.Recordset.Fields(0)
Grid.TextMatrix(I, 1) = Data2.Recordset.Fields(1)
Grid.TextMatrix(I, 2) = Data2.Recordset.Fields(2)
Grid.TextMatrix(I, 3) = nommin
Grid.TextMatrix(I, 4) = Min
Data2.Recordset.MoveNext 'переход к следующей записи таблицы 1
Next I
For J = 1 To 5 'выравниваем ширину столбцов
Grid.ColWidth(J - 1) = Grid.Width / 6
Next J
Data2.Recordset.MoveFirst 'возврат к первой записи
End Sub
4.
По выбираемым ресурсам
вывести информацию
о районе и городе с
максимальным расходом.
Private Sub Command8_Click()
Grid.Cols = 4
Grid.FormatString = ""
res = InputBox("Введите номер ресурса от 1 до 5", "Ввод данных")
Data2.Recordset.MoveFirst
Grid.Rows = 1 'количество строк в гибкой сетке
Grid.FormatString = "Код города|Код района|Название города|Название
_района"
For J = 1 To 4 'выравниваем ширину столбцов
Grid.ColWidth(J - 1) = Grid.Width / 5
Next J
Max = 0
For I = 1 To Data2.Recordset.RecordCount
If Data2.Recordset.Fields(res + 2) > Max Then Max =
_Data2.Recordset.Fields(
If Data2.Recordset.Fields(res + 2) = Max Then
Grid.Rows = Grid.Rows + 1
Grid.TextMatrix(Grid.Rows - 1, 0) = Data2.Recordset.Fields(0)
Grid.TextMatrix(Grid.Rows - 1, 1) = Data2.Recordset.Fields(1)
Grid.TextMatrix(Grid.Rows - 1, 3) = Data2.Recordset.Fields(2)
Data1.Recordset.MoveFirst 'переход к первой записи таблицы1
For J = 1 To Data1.Recordset.RecordCount 'по записям ищем
_название города по его коду
If Data1.Recordset.Fields(0) = Data2.Recordset.Fields(0) Then
_Grid.TextMatrix(Grid.Rows - 1, 2) = Data1.Recordset.Fields(1)
Data1.Recordset.MoveNext 'переходим к следующей записи
_таблицы2
Next J
End If
Data2.Recordset.MoveNext
Next I
Label.Caption = "По ресурсу " & Str(res) & " максимальный расход " & Str(Max) & " был в:"
End Sub
Private Sub Command9_Click()
End
End Sub
Заключение.
В
ходе данного курсового проекта,
поставленная цель была реализована (пункты
1 и 2 задания по КП были выполнены на
Access., 3 и 4 на Visual Basic.(обработка
БД Access)). Были выполнены входящие в индивидуальное
задание задачи по следующим разделам
VB: программирование линейных алгоритмов,
программирование разветвляющихся алгоритмов,
программирование циклических алгоритмов,
создание процедур и функций пользователя.
Список
использованной литературы:
- Методические указания к выполнению лабораторных работ по дисциплине “Компьютерная подготовка” с применением СУБД ACCESS. Выпуск 2. / Сост.: А.Е. Макаренко, Т.В. Бугреева, И.А. Ильина, Е.В. Лемешко, М.В. Седун; ГУУ. – М., 2002. – 48 с.
- Методические указания к выполнению лабораторной работы по дисциплине “Компьютерная подготовка” с применением СУБД ACCESS. Выпуск 1. /
- Сост.: Т.В. Бугреева, И.А. Ильина, А.Е. Макаренко, Е.В. Лемешко, М.В. Седун; ГУУ. – М., 2002. – 32 с.
- Несмеянов И.А., Барковский В.В., Венчковский Л.Б. Использование языка Visual Basic 6.0 при создании программных средств для обработки баз данных: Учебно-практическое пособие – 2-е изд., испр./ ГУУ. – М., 2006. – 180 с.