Размещено на http://www.allbest.ru/

Содержание

Задание на курсовую работу

1. Исходные данные и принятые обозначения

2. Математическая постановка задачи

3. Графическая схема алгоритма

4. Решение задачи с помощью электронных таблиц

4.1 Разработка макроса для построения графика

4.2 Разработка интерфейса

4.3 Использование интерфейса для работы с таблицей

5. Разработка базы данных

Библиография

Задание на курсовую работу

интерфейс макрос электронный задача

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

Задание 47

Для горнодобывающих предприятий области известны плановые задания и количество выпущенной продукции за первые 6 месяцев текущего года. Указать номера предприятий или их названия, которые могут не выполнить годовую программу. Также выявить передовое предприятие. Представить список, в котором указать названия предприятий, производительность которых отличается от плановой в обе стороны не более чем на 5%. Если таких предприятий не окажется, то сделать об этом соответствующее сообщение.

1. Исходные данные и принятые обозначения

Исходные данные задачи могут быть представлены в виде матрицы объема ежемесячного выпуска продукции предприятием Vm(I, J), где I - номер предприятия, (I = 1, N), J - номер месяца, (J = 1, M), N - количество предприятий, M - количество месяцев. Известны плановые задания по каждому предприятию, они представлены в виде массива Vp(I), где I - номер предприятия, (I = 1, N), N - количество предприятий

Исходные данные для расчета и принятые обозначения у переменных приведены в таблице 1 и таблице 2.

Таблица 1

Объем продукции, тыс. т

Предприятие	Месяц	План на полугодие
	1	2	3	4	5	6
1	1206	1295	1293	1204	1247	1208	7500
2	1240	1226	1286	1288	1276	1238	7500
3	1298	1214	1234	1215	1263	1210	7300
4	1293	1229	1272	1231	1200	1211	7500
5	1226	1240	1284	1266	1241	1222	7550

Таблица 2

Принятые обозначения и описание данных задачи

Вид данных	Наименование показателя	Обозначение	Единицы измерения	Вид переменной	Формат
Входные	Количество предприятий	N	шт.	Простая	Целый
	Количество месяцев	М	мес.	Простая	Целый
	План на полугодие	Vp(I)	тыс. т.	Индексированная	Вещественный
	Объем продукции	Vm(I, J)	тыс. т.	Индексированная	Вещественный
Выход- ные	Процент выполнения плана за полугодие	P(I)	%	Индексированная	Вещественный
	Список предприятий, производительность которых отличается от плановой в обе стороны не более чем на 5%.	N5(I)	-	Индексированная	Строковой
	Номер предприятия с максимальным процентом перевыполнения плана	Np	-	Простая	Строковая
Проме- жуточ- ные	Суммарный выпуск продукции по каждому предприятию за полугодие	SUM6(I)	тыс. т.	Индексированная	Вещественный
	Максимальный процентом перевыполнения плана	MAXPR	%	Простая	Вещественный

2. Математическая постановка задачи

Определение суммарного выпуска продукции по каждому предприятию за полугодие

SUM6(i) = i = 1, N.

Процент выполнения плана за полугодие:

P(i) = .

Передовое предприятие - предприятие с максимальным процентом выполнения плана:

MAXPR = MAX(P(i))

Предприятия, производительность которых отличается от плановой в обе стороны не более чем на 5%.

N5(j) = SUM6(i), если P(i) ? 95 и P(i) 105, i =1, N.

3. Графическая схема алгоритма

4. Решение задачи с помощью электронных таблиц

Загружаем табличный процессор. Запуск табличного процессора осуществляется двойным щелчком мыши на его пиктограмме (при наличии значка Excel на рабочем столе) или выбором Microsoft Excel из меню Пуск Программы.

Вводим шапку таблицы на рабочий лист книги Excel. При помощи мыши изменяем размер ячеек. Выделяем полученную шапку и последующие 20 строк В2:М23 (включая строку с итоговой информацией) для добавления рамок. На инструментальной панели нажимаем стрелку на кнопке и из списка выбираем вид границы . Таблица обводится рамкой.

Выделяем элементы столбца L4:L23, щелкаем на выделении правой кнопкой и из контекстного меню выбираем пункт Формат ячеек. На вкладке Число задаем тип данных в выделенном диапазоне - процентный:

Рис. 1 Установка формата ячеек

Вводим заголовок таблицы и названия граф.

Вводим данные в графы таблицы. В клетки B4:I9, K4:K9 заносим исходные данные.

Определим суммарный выпуск продукции за полугодие по каждому предприятию. Для этого введем в ячейку J4 формулу

=СУММ(D4:I4)

Копируем формулу из ячейки J4 по столбцу до ячейки J9 и в ячейку J23. Для копирования необходимо выделить при помощи мыши ячейку, из меню Правка выбрать команду Копировать (или кнопка инструментальной панели ). Установить указатель в целевую ячейку. Из меню Правка выбрать команду Вставить (или кнопка инструментальной панели ).

В ячейке L4 записываем формулу вычисления процента выполнения плана

=J4/K4

Копируем формулу в остальные ячейки столбца.

В ячейке М4 записываем формулу определения предприятий с выполненной (или невыполненной) производственной программой:

=ЕСЛИ(J4>=K4;"выполнена";"не выполнена")

Копируем формулу в остальные ячейки столбца.

В строке 23 записываем формулы суммирования показателей по столбцам. Для ячейки D23

=СУММ(D4:D22)

Копируем формулу в ячейки E23:K23.

Для определения названия предприятия с максимальным процентом выполнения плана в ячейку D26 запишем формулу

=ВЫБОР(ПОИСКПОЗ(МАКС(L4:L22);L4:L23;0);C4;C5;C6;C7;C8;C9;C10;C11;C12;C13;C14;C15;C16;C17;C18;C19;C20;C21;C22;C23)

Эта формула в ячейках L4:L22 находит максимальное число, определяет позицию этого числа, затем из ячеек С4:С23 выбирает ячейку, стоящую на этой позиции и выводит её значение.

Рис. 2 Решение задачи в Excel

На рисунке 3 представлена расчетная таблица с формулами. Для вывода таблицы в таком виде необходимо выполнить команду Cервис - Параметры - вкладка «Вид» - отметить флажок «Формулы».

Рис. 3 Расчетная таблица с формулами

По результатам расчетов строим совмещенный с диаграммой (план по месяцам) график (число рабочих дней). Вызываем Мастер Диаграмм, нажав на его значок, расположенной на панели инструментов Стандартные. Выбираем вид диаграммы на вкладке «Нестандартные» -- «график | гистограмма2».

Рис. 4 Выбор типа диаграммы

Выделяем ячейки J4:J9, затем нажимаем клавишу Ctrl и выделяем ячейки L4:L9:

Рис. 5 Выбор источника данных

Выполняем остальные шаги диаграммы:

Рис. 6 Завершение построения диаграммы

Получаем график с двумя осями У, одна ось для указания «объема выпуска», другая -- для указания «процента выполнения плана». Полученная диаграмма представлена на рисунке 7.

Рис. 7 График выпуска продукции

Дадим первому листу новое имя. Переименовать лист можно следующими способами:

§ дважды щелкнуть ярлычок листа и ввести с клавиатуры новое имя;

§ выбрать в меню Формат команду Лист, Переименовать;

§ щелкнуть ярлычок листа правой кнопкой, выбрать в контекстном меню команду Переименовать и ввести имя.

Даем имя первому листу «Предприятия».

4.1 Разработка макроса для построения графика

Удалим диаграмму, построенную на предыдущем шаге. И запишем все действия построения диаграммы в макрос. Для этого выполним следующие действия:

Выполните команду Сервис -- Макрос -- Начать запись -- вводим имя макроса - «Диаграмма».

Выполним все действия для построения диаграммы, описанные выше.

Выполняем команду Сервис -- Макрос -- Остановить Запись. Данный макрос используется при проектировании интерфейса. Необходимо будет привязать его к кнопке.

4.2 Разработка интерфейса

Интерфейс программы предусматривается для удобства ввода исходных данных и вывода результатов расчета. Интерфейс будем использовать для редактирования данных, их ввода и просмотра результатов расчета. Разработка интерфейса программы включает проектирование форм для ввода исходных данных и вывода результатов. Написания кода для процедур отклика элементов управления: кнопок, кнопок выбора, счетчиков и т.д.

Запуск интерфейса программы, осуществляется кнопкой «Работа с предприятиями», расположенной на рабочем листе (рисунок 8).

Рис. 8 Рабочий лист с кнопкой

Для размещения кнопки выведем на экран панель с элементами управления Вид Панели инструментов Элементы управления.

Рис. 9 Панель элементов управления

Выбираем элемент Кнопка (рис. 9). Размещаем еt при помощи мыши в свободном месте рабочего листа. Вводим название: Свойства Caption.

Дважды щелкаем кнопку. Открывается редактор VBA с процедурой обработки. Вводим в нее вызов расчетной процедуры:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Выходим из режима конструктора. Кнопка готова к работе - щелчок на ней мыши запускает процедуру обработки.

Программа создается в модуле рабочего листа 1 (того, где расположена кнопка).

Нажатие на кнопку «Работа с предприятиями» открывает форму 1. Макет формы 1 представлен на рисунке 10 c обозначением элементов управления.

Форма 1 предназначена для добавления и редактирования исходных данных. Для создания формы 1 перейдем в редактор VBA командой Сервис -- Макрос -- Редактор Visual Basic. В редакторе выполните команду Insert --UserForm. В окне свойств UserForm1 измените свойство Caption = Работа спредприятиями -- этот текст появится в строке надписи формы 1.

На вид формы 1 оказывает влияние структура таблицы в Excel. На ней размещены поля (TextBox) для ввода исходных в таблицу по строкам (как в базах данных). Кроме того на форме 1 размещены пояснительные надписи (label).



Рис. 10 Проект формы 1

На форме расположены элементы управления. Названия кнопок формы введены путем изменения её свойства Caption. Элементы управления выполняют следующие функции:

Счетчик (SpinButton1) - осуществляет переход по записям таблицы и позволяет отражать в полях формы (TextBox) значения из ячеек таблицы и записывать значения полей формы (когда добавляется новая запись) в ячейки таблицы Cells(i,j).

Кнопка «Добавить запись» - из полей формы 1 записывает новую строку в ячейки таблицы Excel, например, A9:I9, для этого пользователь должен ввести в поля формы значения для новой строки таблицы.

Кнопка «Удалить запись» - удаляет выбранную запись, переписыванием нижележащей записи на выбранную.

Кнопка «Итоги» - загружает форму 2.

Кнопка «Закрыть Форму» - закрывает форму 1.

Код программы передвижения счетчика вверх. Для написания кода дважды щелкаем по счетчику на форме. В модуле формы в списке событий выбрать для SpinButton1 события SpinUp (счетчик возрастает) и SpinDown (счетчик уменьшается). Между строками начала и конца процедуры наберем код.

Private Sub SpinButton1_SpinDown()

Dim i As Integer

i = Val(TextBox2.Text)

i = i - 1

If i = 0 Then i = 1

n = i

ReadRec (i)

TextBox2.Text = Format(i)

End Sub

Private Sub SpinButton1_SpinUp()

Dim i As Integer

i = Val(TextBox2.Text)

i = i + 1

If i = 101 Then i = 100

n = i

ReadRec (i)

TextBox2.Text = Format(i)

End Sub

В коде приведенных процедур: n - номер записи, TextBox2 - поле счетчика, отражающее номер записи в таблице Excel. Val(TextBox2.Text) - перевод текстового значения поля в число функцией Val и присваивание этого значения переменной n - номеру записи. Номер записи увеличивается или уменьшается на 1 и передается в TextBox2. При этом переменная n переводится в символ (текст) Format(i). В процедурах используется обращение к процедуре ReadRec(n) - читать n- ую запись из ячеек таблицы и писать в поля формы.

Код процедуры ReadRec необходимо создать. Для этого выполнить команду Insert - Module и в открывшемся модуле набрать следующий код.

Public Sub ReadRec(rec) 'Процедура читать запись

If rec > 0 Then 'Если номер записи больше 0 выполнить действия

With UserForm1 'Объявление структурной скобки для объекта форма1

.TextBox1.Value = Cells(rec + 3, 2).Value

.TextBox10.Value = Cells(rec + 3, 3).Value

.TextBox3.Value = Cells(rec + 3, 4).Value

.TextBox4.Value = Cells(rec + 3, 5).Value

.TextBox5.Value = Cells(rec + 3, 6).Value

.TextBox6.Value = Cells(rec + 3, 7).Value

.TextBox7.Value = Cells(rec + 3, 8).Value

.TextBox8.Value = Cells(rec + 3, 9).Value

.TextBox9.Value = Cells(rec + 3, 11).Value

End With ' Закрытие структурной скобки

End If ' Конец оператора if

End Sub 'Конец процедуры

Программирование события нажатия кнопки «Добавить запись». Для этого 2 раза щелкните по кнопке «Добавить запись» и напишите процедуру

Private Sub CommandButton1_Click()

'добавить запись

TextBox1.SetFocus ' Установить курсор в поле TextBoxl

WriteRec (n) ' Процедура "Писать n-ую запись" из полей формы1 в ячейки таблицы

n = n + 1 ' Изменить номер записи на 1

TextBox2.Text = Str(n) 'Передать номер записи в поле счетчика

ReadRec (n) 'Процедура " Читать n-ую запись" из ячеек таблицы и писать в поля формы1

End Sub

В событии нажатия кнопки «Добавить запись» содержится обращение к процедуре WriteRec - писать запись из полей формы 1 в ячейки таблицы. Для написания кода этой процедуры переходим в модуль, где содержится код процедуры ReadRec и далее наберем код процедуры WriteRec.

Public Sub WriteRec(rec)

' rec - номер записи, передаваемой в процедуру

If rec > 0 Then ' номер записи должен быть положительным

With UserForm1 'Объявление структурной скобки для объекта форма1

Cells(rec + 3, 2).Value =.TextBox1.Value

Cells(rec + 3, 3).Value =.TextBox10.Value

Cells(rec + 3, 4).Value =.TextBox3.Value

Cells(rec + 3, 5).Value =.TextBox4.Value

Cells(rec + 3, 6).Value =.TextBox5.Value

Cells(rec + 3, 7).Value =.TextBox6.Value

Cells(rec + 3, 8).Value =.TextBox7.Value

Cells(rec + 3, 9).Value =.TextBox8.Value

Cells(rec + 3, 11).Value =.TextBox9.Value

' Формула в следующей строке записана в адресации R1C1

ActiveSheet.Cells(rec + 3, 10).FormulaR1C1 = "=SUM(RC[-6]:RC[-1])"

Cells(rec + 3, 12).FormulaR1C1 = "=RC[-2]/RC[-1]"

Cells(rec + 3, 13).FormulaR1C1 = "=IF(RC[-3]>=RC[-2]," & """выполнена""" & "," & """не выполнена""" & ")"

End With ' Закрытие структурной скобки

End If ' Конец оператора if

End Sub

Программирование отклика кнопки «Удалить запись». Откроем форму 1, затем 2 раза щелкаем по кнопке «Удалить запись» и напишем процедуру

Private Sub CommandButton2_Click()

DelRec (n) 'Процедура удаление записи

n = 1

TextBox2.Text = Format(n)

ReadRec (n)

End Sub

Написание кода процедуры DelRec. Переходим в модуль, где содержатся коды процедур ReadRec и WriteRec и наберем код процедуры DelRec.

Public Sub DelRec(rec)

'Процедура выполняет действия перезаписи ячеек 2 - 9 столбцов таблицы i+1 строки на i строку.

Dim i As Integer

i = rec + 3

While Worksheets(1).Cells(i, 2).Value <> "" ' Цикл выполняется до тех пор пока в ячейках 1 столбца не будет пусто.

Cells(i, 2).Value = Cells(i + 1, 2).Value

Cells(i, 3).Value = Cells(i + 1, 3).Value

Cells(i, 4).Value = Cells(i + 1, 4).Value

Cells(i, 5).Value = Cells(i + 1, 5).Value

Cells(i, 6).Value = Cells(i + 1, 6).Value

Cells(i, 7).Value = Cells(i + 1, 7).Value

Cells(i, 8).Value = Cells(i + 1, 8).Value

Cells(i, 9).Value = Cells(i + 1, 9).Value

Cells(i, 11).Value = Cells(i + 1, 11).Value

Cells(i, 10).FormulaR1C1 = Cells(i + 1, 10).FormulaR1C1

Cells(i, 12).FormulaR1C1 = Cells(i + 1, 12).FormulaR1C1

Cells(i, 13).FormulaR1C1 = Cells(i + 1, 13).FormulaR1C1

i = i + 1

Wend

End Sub

Программирование события нажатия кнопки «Итоги». Откроем форму 1, 2 раза щелкаем по кнопке «Итоги» и пишем процедуру

Private Sub CommandButton3_Click()

Hide

UserForm2.Show

End Sub

Программирование процедур откликов кнопок формы 2. Проект формы 2 (рис. 11).



Рис. 11 Проект формы 2

Для кнопки «Показать» необходимо из ячейки D26, столбцов J, K, L вывести в надпись и списки значения в соответствии с условием задачи.

Private Sub CommandButton1_Click()

Dim i As Integer

Dim k As Integer

Label2.Caption = Cells(26, 4).Value

ListBox1.Clear

ListBox2.Clear

i = 4

k = 0

While Worksheets(1).Cells(i, 2).Value <> "" ' Цикл выполняется до тех пор пока в ячейках 1 столбца не будет пусто.

If Cells(i, 13).Value = "не выполнена" Then

ListBox1.AddItem (Worksheets(1).Cells(i, 3).Value)

End If

If Cells(i, 12).Value >= 0.95 And Cells(i, 12).Value <= 1.05 Then

ListBox2.AddItem (Worksheets(1).Cells(i, 3).Value)

k = k + 1

End If

i = i + 1

Wend

If k = 0 Then

ListBox2.AddItem ("Предприятий нет")

End If

End Sub

Программирование кнопки «График»

Private Sub CommandButton2_Click()

Call Диаграмма

End Sub

Макрос «Диаграмма»:

Sub Диаграмма()

' Диаграмма Макрос

Range("J4:J9,L4:L9").Select

Range("L4").Activate

Charts.Add

ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:= _

"График|гистограмма 2"

ActiveChart.SetSourceData Source:=Sheets("Предприятия").Range("J4:J9,L4:L9") _

, PlotBy:=xlColumns

ActiveChart.SeriesCollection(1).Name = "=Предприятия!R2C10"

ActiveChart.SeriesCollection(2).Name = "=Предприятия!R2C12"

ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Диаграмма1"

With ActiveChart

.HasTitle = True

.ChartTitle.Characters.Text = "Объем продукции, тыс.т."

.Axes(xlCategory, xlPrimary).HasTitle = True

.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "месяц"

.Axes(xlValue, xlPrimary).HasTitle = True

.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Объем"

.Axes(xlCategory, xlSecondary).HasTitle = False

.Axes(xlValue, xlSecondary).HasTitle = True

.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "Процент"

End With

ActiveChart.HasLegend = True

ActiveChart.Legend.Select

Selection.Position = xlBottom

ActiveChart.ChartArea.Select

End Sub

Результат выполнения макроса -- построение графика представлен на рисунке 7.

Программирование события нажатия кнопки «Закрыть». Откроем форму 2, затем дважды щелкнем по кнопке «Закрыть» и запишем процедуру.

Private Sub CommandButton3_Click()

Label2.Caption = ""

ListBox1.Clear

ListBox2.Clear

Hide

End Sub

4.3 Использование интерфейса для работы с таблицей

Добавление записей в таблицу. Нажмем на кнопку «Работа с предприятиями», расположенную на рабочем листе. Откроется форма 1 (рис. 12), счетчиком установим значения полей на первой пустой записи (в нашем примере запись 7), заполним поля формы 1 значениями, нажмем на кнопку «Добавить запись», данные запишутся в таблицу. По введённым данным рассчитается показатели предприятия и итоговые значения.

Рис. 13 Добавление записей с помощью формы 1

Удаление записей из таблицы. Счетчиком формы 1 выберем номер, удаляемой записи. В полях формы отразятся значения ячеек таблицы из этой записи. Нажмите на кнопку «Удалить запись». В таблице запись будет удалена, нижележащие записи поднимутся вверх. В примере удалена 6 запись - предприятие «ЗАО 1».



Рис. 14 Удаление 6 записи из таблицы с помощью формы 1

Рис. 15 Запуск формы 2

Вывод итоговых результатов. Нажмите на кнопку «Итоги», расположенную на форме 1. Будет запущена форма 2 (см. рисунок 14). Нажмите на кнопку «Показать» формы 2. В форму 2 будут выведены итоговые показатели с листа Excel (рис. 15).

Рис. 16 Просмотр результатов расчета

5. Разработка базы данных

Загрузка Access.

Выбираем на рабочем столе пиктограмму с надписью Microsoft Access (она может также находиться в панели Microsoft Office или в меню Пуск) и щелкаем по ней дважды левой клавишей мыши. После этого на экран выводится главное окно СУБД в правой части которого расположен набор возможных действий пользователя:

Рис. 17 Выбор режима работы с СУБД

Необходимо щелкнуть режим Новая база данных. После этого в окне диалога указываем имя проектируемой базы данных - Налоги и приступаем к проектированию.

На экран выводится исходное окно Access.

Разработку базы данных начинаем с проектирования таблицы.

В Microsoft Access существует четыре способа создания пустой таблицы.

Использование мастера баз данных для создания всей базы данных, содержащей все требуемые отчеты, таблицы и формы, за одну операцию. Мастера баз данных создает новую базу данных, его нельзя использовать для добавления новых таблиц, форм, отчетов в уже существующую базу данных.

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

Ввод данных непосредственно в пустую таблицу в режиме таблицы. При сохранении новой таблицы в Microsoft Access данные анализируются и каждому полю присваивается необходимый тип данных и формат.

Определение всех параметров макета таблицы в режиме конструктора.

Таблица Налогоплательщики.

Таблицу будем проектировать в режиме конструктора. Последовательность проектирования следующая:

1. На вкладке Таблица нажимаем кнопку Создать.

2. Выбираем и дважды щелкаем по строке «Конструктор».

3. Определите в таблице каждое поле. Для этого выберем столбец Имя столбца и введем имя поля, следуя соглашениям об именах объектов Microsoft Access. В столбце Тип данных можно оставить настройку по умолчанию («Текстовый») или выбрать требуемый типа данных в раскрывающемся списке в ячейке столбца Тип данных.

4. Определяем ключевое поле - для нашей таблицы это поле Номер. Для этого нажимаем кнопку Ключевое поле на панели инструментов. Рядом с полем выведется изображение ключа.

Рис. 18 Структура таблицы

Для полей «Номер», «Январь» - «Февраль» и «План на полугодие» задаем значения по умолчанию и диапазон допустимых значений. Это выполняется на вкладке «Общие» для выбранного поля заполнением строк «Значение по умолчанию», «Условие на значение» и «Сообщение об ошибке».

«Номер»

«Январь» - «Февраль»

«План на полугодие»

Рис. 19 Параметры полей



Рис. 20 Таблица «Предприятия»

Формы используются для различных целей - для ввода данных, размещения элементов управления, создания диалоговых окон и пр. Большая часть данных, представленных в форме, берется из таблицы или запроса. Другая информация, несвязанная ни с таблицей, ни с запросом, хранится в макете формы. Для создания связи между формой и записями таблицы, являющейся источником данных формы, используются графические объекты, называемые элементами управления. Чаще всего для отображения и ввода данных используется поле.

Порядок создания формы.

1. В окне базы данных выбираем вкладку Формы.

2. Нажимаем кнопку Создать.

3. В диалоговом окне Новая форма выбираем нужного мастера. Описание мастера появляется в левой части диалогового окна.

Рис. 21 Выбор вида формы

4. Задаем имя таблицы (Предприятия), содержащей данные, на основе которых будет создана форма и нажимаем кнопку OK. Access создает форму и выводит на экран. Сохраняем ее и переходим в режим конструктора форм. Изменяем необходимые расположение и размер надписей и строк ввода. Сохраняем окончательный вариант формы.

Рис. 22 Форма в режиме конструктора

Рис. 23 Готовая форма

Разработка запроса с вычисляемыми полями по суммарному объемы работ и показателей выполнения плана. Переходим на вкладку «Запросы». Выбираем «Создание запроса в режиме конструктора», выбираем таблицу «Предприятия», отбираем все поля из этой таблицы в запрос. При закрытии запроса сохраняем его, открываем, проверяем правильность выполнения.

Создаем вычисляемые поля в запросе, для чего открываем запрос в Конструкторе, выбираем первое свободное поле, вызываем «Построитель выражений» и формируем в нем выражение для вычисляемого поля «Итого за полугодие» (рис. 23).

Рис. 24 Формирование вычисляемого поля «Итого за полугодие» в «Построителе выражений»

Рис. 25 Формирование вычисляемого поля «Процент выполнения плана» в «Построителе выражений»

Окно конструктора запросов приведено на рис. 25.

Рис. 26 Окно конструктора запросов

Сохраняем и выполняем запрос, результат выполнения запроса представлен на рисунке 26.

Рис. 27 Запрос «Выполнение плана»

SQL текст запроса:

SELECT предприятия.Номер, предприятия.Предприятие, предприятия.январь, предприятия.февраль, предприятия.март, предприятия.апрель, предприятия.май, предприятия.июнь, предприятия.[План на полугодие], [январь]+[февраль]+[март]+[апрель]+[май]+[июнь] AS [Итого за полугодие], [Итого за полугодие]/[План на полугодие]*100 AS [Процент выполнения плана] FROM предприятия;

Отчет это информация, которую мы оформляем в соответствии со своими спецификациями. Отчет позволяет извлекать и представлять данные как значимую информацию, которую можно использовать и распространять. Примерами отчетов могут служить почтовые адреса, накладные, суммы продаж или списки телефонов. С помощью Microsoft Access можно спроектировать отчет который представит информацию в том виде в котором необходимо. Мы можем использовать множество различных элементов проектирования, таких как текст, данные, рисунки, линии, поля и графики для создания отчета.

Отчеты также являются эффективным средством для распечатки информации регулярного использования. Вы можете создать проект отчета и сохранить его для дальнейшего использования. Проект отчета останется неизменным, но каждый раз мы будем получать распечатку текущих данных.

Создание отчетов при помощи автоотчетов.

1. В окне базы данных выбираем вкладку Отчеты.

2. Нажимаем кнопку Создать.

3. В диалоговом окне Новый отчет выберем нужного мастера.

4. Выбираем запрос, содержащие данные, выводящиеся в отчете.

Рис. 28 Автоотчет: в столбец

5. Нажимаем кнопку OK. На последующих шагах задаем параметры отчета и его имя.

Отчет готов.

Итоговые поля вставим в отчет вручную в режиме «Конструктора». Предварительно исправим невестившиеся надписи, уменьшим или увеличим поля.

Добавление вычисляемого поля в отчет (см. рисунок 15).

Увеличим мышью раздел «Примечание отчета» и вставим в него поле ввода с Панели инструментов «Элементы управления», под столбец Январь и введем в поле формулу =Sum([январь]). Проверим работоспособность этой формулы, затем скопируем формулу под столбцы каждого месяца и заменим в них названия полей на Февраль, Март, Апрель, Май, Июнь, План на полугодие и Итого за полугодие соответственно. Вставим надписи в область примечания отчета и введем текст «Ответственный исполнитель Афанасьев К.Б.». Отформатируем эти надписи, изменив шрифт, его высоту, начертание, цвет.

Рис. 29 Отчет в режиме «Конструктора»

Рис. 30 Готовый отчет

Библиография

1. Алиев В. К. Информатика в задачах, примерах, алгоритмах/Visual Basic for Application. М.: СОЛОН - Р, 2009. 185 с.

2. Бунин Э. Word Visual Basic для приложений. Пер. с англ. М.: Восточная Книжная Компания, 2006. 352 с.

3. Горев А., Макашарипов С., Ахаян Р. Эффективная работа с СУБД Access. СПб, «Питер», 2007. 704 с.

4. Дж. Вудкок, М. Янг. Эффективная работа с Microsoft Office 2003. М.: Астрель, 2005. 1000 с.

5. Ефимова О.В., Морозов В.В., Угринович Н.Д. Курс компьютерной технологии с основами информатики. М.: АБФ, ACT, 2009. 482 с.

6. Кузьменко В. Г. VBA 2003. Самоучитель. М.: Бином-Пресс, 2005. 689 с.

7. Михеев Р. VBA и программирование в MS Office для пользователей. М.: БХВ-Петербург, 2007. 602 с.

8. Хорев В. Д. Самоучитель программирования на VBA в Microsoft Office. М.: Юниор, 2005. 263 с.

Размещено на Allbest.ru

...