Курсовое проектирование в среде Visual Basic6.0,в среде СУБД Access

Оглавление
Задание на курсовой проект
Введение
Распечатка таблиц с исходными данными
Описание структуры записей таблиц в режиме конструктора
Распечатка формы, содержащей меню курсового проекта
Описание способов реализации каждого пункта задания и его вызова из меню
Просмотр и корректировка данных первой таблицы
Просмотр и корректировка данных второй таблицы
Вывод сведений о произвольно заданном предприятии (название вводится с клавиатуры)
Вывод по каждой продукции сведений о ее средней цене и количестве выпускающих её предприятий
Для произвольно заданной продукции вывести сведения о предприятиях, выпускающих ее по наименьшей цене
Вывод формы заданной структуры
Вывод сведений о предприятиях города Тулы
Удаление с помощью запроса записей о произвольно заданной продукции
Вывод отчета
Закрытие базы данных
Тексты созданных процедур VBA
Созданные макросы
Заключение
Список использованной литературы

Тексты созданных процедур VBA
Option Compare Database
Private Sub Кнопка2_Click()
Dim rs
Dim ts
Dim m() As Variant
Dim i As Long
Dim s As String
Dim p As Variant
Dim a As Variant
Dim b As Variant
'очистка таблицы с отчетом
strSQL = "DELETE * from Сведения"
CurrentDb.Execute strSQL

p = InputBox("Введите предприятие")
Set rs = CurrentDb.OpenRecordset("Выпуск продукции")
Set ts = CurrentDb.OpenRecordset("Сведения")
rs.MoveFirst
ReDim m(1 To 6, 1 To 2)
Do While Not rs.EOF
'If rs.Fields(0).Value = "Предприятие2" Then
If rs.Fields(0).Value = p Then
For i = 1 To 6
'm(i, 1) = rs.Fields(i + 1).Name
m(i, 1) = i
m(i, 2) = rs.Fields(i + 1).Value
Next

'сортировка массива
For i = 2 To UBound(m) Step 1
For j = UBound(m) To i Step -1
If m(i - 1, 2) > m(i, 2) Then
a = m(i - 1, 1)
b = m(i - 1, 2)
m(i - 1, 1) = m(i, 1)
m(i - 1, 2) = m(i, 2)
m(i, 1) = a
m(i, 2) = b
End If
Next j
Next i
s = ""
For i = 1 To 6
s = s & m(i, 1) & " "
Next
ts.AddNew
ts("Продукт").Value = rs.Fields(1).Value
ts("Цена").Value = rs.Fields(8).Value
ts("Номер месяца").Value = s
ts("Максимальный выпуск").Value = m(6, 2)
ts.Update
End If
rs.MoveNext
Loop
DoCmd.OpenTable ("Сведения")
End Sub
Созданные макросы
Создано девять макросов
Рис.43
Макрос_Выпуск продукции
ОткрытьФорму
Имя формы Выпуск продукции
Режим Форма
Макрос_Предприятие
ОткрытьФорму
Имя формы Предприятие
Режим Форма
Макрос_Ср_цена_количество
ОткрытьЗапрос
Имя запроса Предприятие_средняя цена_количество предприятий
Режим Талица
Макрос_Мин_цена
ОткрытьЗапрос
Имя запроса Продукция по мин цене
Режим Талица
Макрос_Форма
ОткрытьФорму
Имя формы Форма
Режим Форма
Макрос_Тула
ОткрытьЗапрос
Имя запроса Предприятия города Тула
Режим Талица
Макрос_Удаление
ОткрытьЗапрос
Имя запроса Запрос на удаление
Режим Талица
Макрос_Отчет
ОткрытьОтчет
Режим Просмотр
Макрос_Выход
Выход
Заключение
В процессе выполнения курсовой работы получены знания и практические навыки работы в MS Access и среде разработки VBA. Получены знания и практические навыки работы с TSQL. Разработана база данных и удобная форма для работы с этой базой, позволяющая получать отчеты в удобном для пользователя виде.
Список использованной литературы
Дунаев В. В. Базы данных. Язык SQL для студента. СПб: БХВ-Петербург, 2006, 288 с.
Полякова Л.Н. Основы SQL: Курс лекций. Учебное пособие/ Л.Н. Полякова. М.: Интернет-Университет Информационных Технологий, 2004, 368 с.
Гетц К., Литвин П., Гилберт М. Access 2000: Руководство разработчика. Киев: «Ирина», BHV, 2000, 912 с.
Васильев А., Андреев А. VBA в Office 2000. СПб: Питер, 2001, 432 с.
31
Выпуск за полугодие
Разброс цен
Продукция
Предприятие