II Формирование таблиц и запросов в субд ms Access. Экспорт данных из ms Access в Visual Basic 6.0
1. Задание 1. Создание таблицы
2. Задание 2. Формирование запросов
3. Задание 3. Экспорт данных из MS Access в Visual Basic 6.0 через элемент управления Data
Вариант 17.
Структура таблиц:
|
Предприятие |
Продукция |
Выпуск за 1 мес |
Выпуск за 2 мес |
Выпуск за 3 мес |
|
Выпуск 4 мес |
Выпуск 5 мес |
Выпуск 6 мес |
Цена |
|
Предприятие |
Адрес |
Дата основания |
Каждое предприятие выпускает несколько видов продукции, и одна и та же продукция выпускается разными предприятиями.
Состав меню:
1.Распечатка исходных таблиц.
2.Формирование и выжача справок.
Справка 1.Вывод справки в виде:
|
Предприятие |
Продукция |
Среднемесячная стоимость |
Номера месяцев с максимальным выпуском |
Справка 2. Вывод сведений о предприятиях г.Москвы и г.Тулы. По каждому предприятию из этих городов вывести:название, адрес, стоимость выпусков всех видов продукции за полугодие, количество видов продукции.
Справка 3. Вывод сведений о динамике выпуска продукции на произвольно заданном предприятии. По каждой выпускаемой продукции должны быть выведены такие даные:
Продукция, цена, стоимость выпуска за полугодие, динамика выпуска. В качестве динамики выпуска вывести один из вариантов текста:“Рост”, “Падение”, “Колебание”, “Неизменен”.
3.Создание Документа:
Сведения о стоимости выпуска
Предприятие Продукции Среднемесячный выпуск Выпущено за полгода(руб)
…. …. …. ….
Итого по предприятию …
Итого по всем предприятиям …
Основная таблица – база данных:Предприятия, Виды продукции, Выпуск продукции с 1-6, Цена продукции.
Вторая таблица-база данных: Предприятия, Адрес (Город, Улица, Дом), Дата основания.
Запрос на среднемесячную стоимость, используется обе таблицы.
Запрос на количество видов продукции, используются обе таблицы. Сделано так же через Data.
Запрос на динамику выпуска за всё полугодие (Рост, Падение, Колебание). Используется основная таблица «Предприятия и продукция».
Сделано через экспорт данных в Visual Basic из Access используя Data.
|
Data1 |
DataBaseName |
.../Запрос1 |
|
MSFlexGrid1 |
Name |
M1 |
|
M1 |
FixedCols |
0 |
|
M1 |
DataSource |
Data1 |
|
MSFlexGrid2 |
Name |
M2 |
|
M2 |
Rows |
3 |
|
M2 |
Cols |
3 |
|
Command1 |
Caption |
Cделать выборку на количество видов продукции |
Private Sub Command1_Click()
a = M1.Rows
N = 1
k = 1
b = M1.TextMatrix(1, 0)
s = M1.TextMatrix(1, 2)
For i = 2 To (a - 1)
If M1.TextMatrix(i, 0) = b Then
k = k + 1
c = M1.TextMatrix(i, 1)
s = s + M1.TextMatrix(i, 2)
Else
b = M1.TextMatrix(i, 0)
N = N + 1
k = 1
c = M1.TextMatrix(i, 1)
s = M1.TextMatrix(i, 0)
End If
M2.TextMatrix(N, 0) = b
M2.TextMatrix(N, 2) = k
M2.TextMatrix(N, 1) = c
Next i
M2.TextMatrix(0, 0) = "Адрес"
M2.TextMatrix(0, 1) = "Предприятия"
M2.TextMatrix(0, 2) = "Количество видов продукции"
End Sub
Отчёт или же создание документа, последнее задание курсовой работы.
