Пустовалова_Информатика и компьютерная графика

Требуется подсчитать средний балл для конкретного студента, выбранного из списка.

На рабочем листе с помощью панели Элементы управления создадим кнопку с надписью «Средний балл».

Для выбора фамилии студента разработаем форму, представленную на рис. 8.4. На этой форме с именем UserForm1 создадим комбинированный список ComboBox1 с надписью «Раскройте список, выберите фамилию, нажмите кнопку» в элементе управления Label1.

Командная кнопка с заголовком «Расчет среднего балла» запускает программу расчета. В поле TextBox1 выводится полученный результат, перед этим полем в метке Label2 сделана надпись «Средний балл».

Рис. 8.4. Пользовательская форма

Для кнопки «Средний балл», которая находится на рабочем листе Лист1, запишем программу:

Sub CommandButton1_Click() I = 4

Do Until Worksheets("Лист1").Cells(I, 1) = "" I = I + 1

Loop

J = I - 1

UserForm1.ComboBox1.RowSource = "Лист1!b4:b" & J UserForm1.Show

End Sub

Здесь "" означает пустую ячейку. В переменной J определяется номер последней заполненной строки в таблице. Затем с помощью метода RowSource заполняется комбинированный список ComboBox1

71

информацией из ячеек b4:bJ. С помощью метода Show форма вызывается на экран.

Для кнопки «Расчет среднего балла» запишем программу:

Sub CommandButton1_Click()

n = UserForm1.ComboBox1.ListIndex + 1 s = 0

For i = 1 To 4

b = Worksheets("Лист1").Cells(n + 3, i + 2).Value s = s + b

Next

a = s / 4 UserForm1.TextBox1.Text = a End Sub

В этой программе определяется номер выбранного элемента списка посредством свойства ListIndex, а затем высчитывается средний балл. Полученный результатпомещается в текстовое окноTextBox1 наформе.

8.5. Работа с простым списком

Пример 8.5. Пусть требуется по результатам сессии определить фамилии двоечников для списка студентов (рис. 8.3 на с. 70).

Создадим форму пользователя, в заголовке которой напишем «Список двоечников» (в свойстве Caption), имя формы изменим на Neud (в свойстве Name). На форме разместим достаточно большой простой список (ListBox1). Тогда программа для некоторой кнопки на рабочем листе может выглядеть следующим образом:

Sub CommandButton1_Click() i = 4

Do Until Worksheets("Лист").Cells(i, 1) = "" For j = 1 To 4

oc = Worksheets("Лист1").Cells(i, j + 2) If oc < 4 Then

Neud.ListBox1.AddItem Worksheets("Лист1").Cells(i, 2) GoTo 1

End If

Next j 1: i = i + 1 Loop End Sub

72

Здесь i – номер строки в таблице на рабочем листе Лист1 со списком группы, он начинается с 4, так как фамилии студентов записываются с четвертой строки.

Вцикле Do…Loop просматривается содержимое списка студентов по строчкам до тех пор, пока не встретится пустая ячейка.

Вцикле For…Next проверяются оценки каждого студента и, если встретилась оценка ниже 4, то фамилия такого студента помещается в список на форме. При этом проверять другие оценки этого студента уже не нужно, поэтому оператор GoTo выполняет переход по метке 1, где наращивается номер строки в таблице. В качестве метки может использоваться любое сочетание буквенных и цифровых символов.

8.6.Задание для выполнения на компьютере

1.Опробовать приведенные выше примеры 8.1–8.3. Внести изменения в программы с тем, чтобы изменить параметры шрифта, цвет, направление движения элементов управления.

2.Для программ, разработанных по условиям табл. 5.2 (см. на с. 45– 46), организовать ввод исходных данных из полей формы и размещение полученных результатов в поля или надписи на форме.

3.Опробовать примеры 8.4 и 8.5. Добавить в таблицу (см. рис. 8.3 на с. 70) дополнительные сведения огоде рождения студентов, адресе ит. п.

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

73

9. ПРИМЕР РАЗРАБОТКИ ИНЖЕНЕРНОГО ПРОЕКТА

9.1. Постановка и решение задачи

Пусть на рабочем листе с названием Товар располагается таблица вида.

Шапка таблицы записана в первой строке. На рабочем листе Заказчики хранится информация о заказчиках.

Требуется сформировать информацию о заказанном товаре на рабочем листе Платеж, приведенном на рис. 9.1.

Рис. 9.1. Рабочий лист Платеж

74

Для организации диалога при оформлении заявки заказчиком надо создать диалоговое окно UserForm1 с интерфейсом, представленным на рис. 9.2.

Рис. 9.2. Форма для выбора товара

На рабочем листе Платеж следует расположить кнопки с названиями «Заказ товара» и «Очистка» вне области с информацией. Командная кнопка «Заказ товара» должна заполнить раскрывающиеся списки на форме названиями товаров и фирм-заказчиков исходя из информации, имеющейся на листах Товары и Заказчики, и вызвать на экран форму UserForm1:

Sub CommandButton1_Click() k = 2

Do While Worksheets("Заказчики").Cells(k, 1) <> "" UserForm1.ComboBox1.AddItem Worksheets("Заказчики").Cells(k, 1) k = k + 1

Loop k = 2

Do While Worksheets("Товары").Cells(k, 1) <> "" UserForm1.ComboBox2.AddItem Worksheets("Товары").Cells(k, 1) k = k + 1

Loop UserForm1.Show End Sub

В тексте программы учтено, что первая строка на рабочих листах Товары и Заказчики содержит названия столбцов, и поэтому цикл

75

начинается со значения k = 2. При этом циклы для заполнения комбинированных списков Заказчики и Товары практически совпадают, однако их нельзя объединить в один, поскольку количество заказчиков и товаров может быть разным.

Командная кнопка «Очистка» на листе Платеж должна очищать те ячейки, которые будут заполняться после выполнения диалога в окне UserForm1. Для очистки ячеек используется метод ClearContents, а область очищаемых ячеек задается объектом Range:

Sub CommandButton2_Click() Worksheets("Платеж").Range("b8:b10").ClearContents Worksheets("Платеж ").Range("a13:d13").ClearContents Worksheets("Платеж ").Range("b17").ClearContents End Sub

Поскольку кнопка «Очистка» находится на листе Платеж, то указание имени листа (Worksheets("Платеж").) можно опустить.

В ходе выполнения диалога в окне UserForm1 необходимо раскрыть и выбрать из списка «Заказчик» фирму-заказчика, а из списка «Товар» – наименование товара. В поле Количество заказчик определяет нужное ему количество товара.

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

Sub CommandButton1_Click()

n = ComboBox1.ListIndex + 1

Worksheets("Платеж").Range("b8") = Worksheets("Заказчики").Cells(n + 1, 1) Worksheets("Платеж").Range("b9") = Worksheets("Заказчики").Cells(n + 1, 2) Worksheets("Платеж").Range("b10") = Worksheets("Заказчики").Cells(n + 1, 4)

m = ComboBox1.ListIndex + 1

Worksheets("Платеж").Range("a13") = Worksheets("Товары").Cells(m + 1, 1) Worksheets("Платеж").Range("b13") = Worksheets("Товары").Cells(m + 1, 2) Worksheets("Платеж").Range("c13") = TextBox1.Text

a1 = Worksheets("Платеж").Range("b13")

a2 = Worksheets("Платеж").Range("c13") Worksheets("Платеж").Range("d13") = a1 * a2 Worksheets("Товары").Cells(m + 1, 3) = Workheets("Товары").Cells(m + 1, 3) - - TextBox1.Text

Worksheets("Платеж").Range("b17") = Date

76

Worksheets("Платеж").Activate End

End Sub

Встроенная функция Date определяет текущую дату. При выполнении оператора End произойдет закрытие диалогового окна пользовательской формы и на экране останется лист Платеж.

После формирования листа Платеж его можно напечатать с помощью кнопки «Печать», которая может быть размещена на этом же листе вне ячеек с информацией:

Sub CommandButton3_Click() Worksheets("Платеж").Range("a1:e18").PrintOut End Sub

Естественно, что печать можно осуществлять в том случае, когда подключено печатное устройство.

9.2. Формирование новой таблицы программным путем

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

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

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

77

i = 2

Do While Worksheets("Заказы").Cells(i, 1) <> "" i = i + 1

Loop

Worksheets("Заказы").Cells(i, 1) = Worksheets("Платеж").Range("b8") Worksheets("Заказы").Cells(i, 2) = Worksheets("Платеж").Range("a13") Worksheets("Заказы").Cells(i, 3) = Worksheets("Платеж").Range("c13") Worksheets("Заказы").Cells(i, 4) = Worksheets("Платеж").Range("d13") Worksheets("Заказы").Cells(i, 5) = Worksheets("Платеж").Range("b17")

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

Затем в текстовом редакторе Word надо создать текстовый документ «Извещение» с интерфейсом, представленным на рис. 9.3.

Уважаемый руководитель фирмы!

Напоминаем Вам о необходимости произвести оплату на наш расчетный счет 200200449 за выписанный по заявке Вашей фирмы

9.3. Использование Мастера слияния

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

щение» надо выполнить команду Сервис/Письма и рассылки/Мастер слияния. Для версии Word 2007 – Рассылки/Начать слияние/Поша-

говый мастер слияния. В правой части экрана появится окно Слияние, в котором следует поэтапно выбрать содержимое текстовых полей.

На первом шаге можно определить тип документа – письма. Затем нажать ссылку Далее.

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

На третьем этапе надо нажать кнопку Обзор, открыть файл Excel с нужными таблицами, выбрать рабочий лист Заказы и отсеять те

78

строки, в которых имеется слово «Да» в шестом столбце, щелкнув по кнопочке в названии столбца и выбрав пункт Пустые.

На четвертом этапе следует поставить курсор после слова «фирмы» в документе «Извещение», нажать ссылку Другие элементы (Вставить поле слияния для Word 2007), в появившемся окне выбрать поле Заказчик, нажать кнопку Вставить, потом кнопку Закрыть. Затем следует поместить курсор после слова «товар» в документе «Извещение» и вставить поле Товар. И, наконец, нужно поставить курсор после слова «стоимостью» и выбрать в таблице поле

Стоимость.

Пятый этап служит для просмотра писем, на шестом этапе можно их печатать.

9.4.Задание для выполнения на компьютере

1.Создать описанные выше объекты и программы. Проверить и отладить работу всех программ.

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

3.Сформировать документ для печати с использованием Мастера слияния.

79

10. БАЗЫ ДАННЫХ

База данных (БД) – это совокупность взаимосвязанных данных при такой минимальной избыточности, которая допускает их использование оптимальным образом в определенной предметной области.

Система управления базами данных (СУБД) – это программное обеспечение, предназначенное для создания, ведения и совместного использования БД многими пользователями.

Для хранения БД может использоваться как один компьютер (локальная БД), так и множество взаимосвязанных компьютеров (распределенная БД).

При создании базы данных должна быть обеспечена целостность данных. Целостность данных – это набор правил, которые предназначены для защиты информации от ее искажения при вводе, удалении, изменении или обработке.

Информация в БД представляется в виде одинаковых по своей структуре записей. Запись включает в себя группу взамосвязанных полей данных.

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

10.1. Access – реляционная база данных

Приложение Microsoft Access входит в комплект Microsoft Office

ипредставляет собой мощное средство для работы с базами данных.

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

Данные в приложении Access хранятся в таблицах.

80