Создание и заполнение баз данных
Форма в рабочем состоянии.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. Создание отчёта с итогами по группам записей.
Для создания отчёта также можно воспользоваться конструктором или мастером создания отчётов.
Отчёт в режиме конструктора:
Результат составления отчёта:
2.Экспорт данных в Visual Basic 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 | <