Информатика_1 / Информатика / VBA Excel 2007

Кнопка «Выход» позволяет завершить работу с программой, скрывая пользовательскую форму. Алгоритм работы данной кнопки в конструкции VBA:

Private Sub CommandButton2_Click() Unload General

End Sub

Последняя кнопка «О программе» вызывает форму, содержащую справочные данные. Алгоритм работы данной кнопки в конструкции VBA:

Private Sub CommandButton3_Click()

AboutProgramm.Show End Sub

Алгоритмы добавления данных:

Кнопка «Добавить» служит для добавления в таблицу новой записи со значениями полей, указанными в элемента TextBox1, ComboBox1 и т.д. Алгоритм работы кнопки следующий:

61

Private Sub CommandButton1_Click() Worksheets(1).Activate

i = 1 Do

i = i + 1

Loop Until Cells(i, 2) = Empty Cells(i, 1) = TextBox1.Text Cells(i, 2) = TextBox2.Text Cells(i, 3) = TextBox3.Text Cells(i, 4) = TextBox4.Text Cells(i, 5) = TextBox5.Text Cells(i, 6) = TextBox6.Text Cells(i, 7) = TextBox7.Text ListBox1.Clear

i = 1 Do

i = i + 1

ListBox1.AddItem Cells(i, 1) For j = 1 To 7

ListBox1.List(i - 2, j - 1) = Cells(i, j) ListBox1.List(i - 2, 3) = Format(Cells(i, 4),

"h:m")

ListBox1.List(i - 2, 4) = Format(Cells(i, 5),

"h:m") Next j

Loop While Cells(i + 1, 1) <> "" End Sub

Проектирование пользовательского интерфейса. В

данной главе приводится описание работы в разработанной программе для пользователя. Здесь стоит избегать упоминания программного кода на языке VBA и сосредоточиться на описании пользовательского интерфейса наиболее простыми словами. Пример:

Форма «Рейсы». Это одна из пользовательских форм информационно-аналитической системы, позволяющая работать с исходной информацией, содержащейся на одноименном листе «Рейсы» рабочей книги, а также вносить изменения в данные, добавлять и удалять их. Для всех этих функций предусмотрены определенные кнопки:

62

«Добавить», «Изменить», и «Удалить». Для отмены последнего действия предусмотрена кнопка «Отмена».

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

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

63

5.Темы курсовых работ

1.Информационно-аналитическая система Аэро-

порта.

Исходная информация содержится в двух таблицах: «Регистрация» (ФИО пассажира, номер билета, но-

мер рейса, общий вес багажа); «Багаж» (номер рейса, допустимый вес багажа, стои-

мость перевозки дополнительного багажа).

Получить список пассажиров указанного рейса с указанием веса багажа и размера доплаты за багаж.

2.Информационно-аналитическая система Авто-

салона.

Исходная информация содержится в двух таблицах: «Учет реализации автомобилей» (дата, код товара,

наименование, покупатель, комплектация, стоимость комплектующих);

«Прейскурант цен» (код товара, модель, тип двигателя, цвет, стоимость).

Составить в алфавитном порядке список товаров реализованных после указанной даты с указанием количества, цены и объема выручки.

3.Информационно-аналитическая система отдела экспорта оборудования.

Исходная информация содержится в двух таблицах: «Регистрация поставок» (код и наименование товара,

страна, импортирующая товар, объѐм поставляемой партии);

«Прейскурант цен» (код товара, цена за единицу то-

вара)

Составить список товаров, пользующихся наибольшим спросом за рубежом, найти страну, экспортирующую товары на наибольшую сумму.

64

4.Информационно-аналитическая система "Зар-

плата".

Исходная информация содержится в двух таблицах: «Табель учета рабочего времени» (ФИО рабочего,

наименование цеха, специальность, количество отработанных дней);

«Начисления» (специальность, цена рабочего дня). Составить ведомость начисления зарплаты по опре-

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

5.Информационно-аналитическая система сборочного цеха.

Исходная информация содержится в двух таблицах: «Регистрация сборки изделий» (дата, фамилия сбор-

щика, код и наименование изделия, количество изделий, собранных им за день);

«Расценки» (код изделия, стоимость работы по сборке единицы этого изделия).

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

6.Информационно-аналитическая система ГТС.

Исходная информация содержится в двух таблицах: "Абонент" (фамилия абонента, номер телефона, ад-

рес, размер месячной оплаты, дата установки телефона); "Регистрация оплаты" (номер телефона, дата оплаты,

сумма оплаты).

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

65

7.Информационно-аналитическая система

"Склад".

Исходная информация содержится в двух таблицах: «Поступления» (код и название товара, размер пар-

тии, дата поступления); «Тарифы» (код товара, цена единицы товара).

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

8.Информационно-аналитическая система Казанского вокзала.

Исходная информация содержится в трех таблицах: «Рейсы» (номер поезда, дата отправления, станция

назначения, время отправления, время в пути, количество мест по категориям);

«Тарифы» (номер поезда, цена билета по категори-

ям);

«Билеты» (номер рейса, ФИО пассажира, дата отправления, категория билета).

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

9.Информационно-аналитическая система «Кол-

ледж».

Исходная информация содержится в двух таблицах: «Студент» (фамилия ИО; год поступления, специаль-

ность, внесенная сумма оплаты); «Прейскурант» (специальность, стоимость обучения

за год).

Составить список студентов, переплативших на текущую дату и список должников по каждой специальности.

66

10. Информационно-аналитическая система «Деканат»

Исходная информация хранится в двух таблицах: «Студент» (номер зач. кн., ФИО, номер группы, ад-

рес, телефон); «Экзамен» (номер группы, дисциплина, дата, ФИО

преподавателя, ФИО студента, номер зач. кн., оценка). Составить список студентов, сдавших сессию на не-

удовлетворительную оценку (неуд, не допущен, не явился), а также список студентов для получения стипендии (сдавших сессию на «4»ки и «5»ки)

11. Информационно-аналитическая система «Отдел маркетинга».

Исходная информация содержится в двух таблицах: «Заказы» (заказчик, код изделия, наименование изде-

лия, количество, дата заказа, дата исполнения); «Номенклатура» (код изделия, цена за единицу изде-

лия).

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

12. Информационно-аналитическая система акционерного общества.

Исходная информация содержится в двух таблицах: «Акционер» (фамилия ИО, тип акций, количество,

дата приобретения акций); «Акции» (тип акций, дивиденды - % в год).

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

67

13.Информационно-аналитическая система отдела гарантийного ремонта.

Исходная информация содержится в трех таблицах: «Автомобили» (гос. номер, модель, владелец, номер

двигателя, номер шасси, пробег, условия эксплуатации); «Дефекты» (код дефекта, тех .сущность, дефектный

узел, трудоемкость устранения); «Рекламации» (номер рекламации, дата, гос. номер

авто, владелец, наименование дефекта, трудоемкость устранения).

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

14.Информационно-аналитическая система отдела текущего ремонта.

Исходная информация хранится в трех таблицах: «Автомобили» (гос. номер, модель, владелец, номер

двигателя, номер шасси, пробег, условия эксплуатации); «Прейскурант услуг» (код услуги, наименование,

трудоемкость, цена); «Наряд-заказы» (номер наряд-заказа, дата, гос. номер

авто, модель, владелец, наименование услуги, трудоемкость, цена, стоимость).

Определить услугу, пользующуюся наибольшим спросом в течение месяца.

15.Информационно-аналитическая система обеспечения запасными частями.

Исходная информация хранится в трех таблицах: «Номенклатура ЗЧ» (код ЗЧ, наименование, номер

партии, цена); «Поставщики» (ИНН, наименование поставщика, ад-

рес, телефон);

68

«Договора» (номер договора, дата, наименование поставщика, адрес, телефон, наименование ЗЧ, количество, стоимость).

Определить сумму закупленных запасных частей за определенный период времени.

16.Информационно-аналитическая система выполнения АТП грузовых перевозок.

Исходная информация хранится в трех таблицах: «Груз» (код груза, наименование, ед. изм, стоимость

перевозки 1 ед. изм.)

«Водитель» (номер вод. удостоверения, ФИО, гос. номер, грузоподъемность)

«Товарная накладная» (номер ТН, дата, код груза, номер вод. удостоверения, наименование, количество, стоимость)

Определить количество перевезенного груза за определенный период времени.

17.Информационно-аналитическая система выполнения АТП пассажирских перевозок.

Исходная информация хранится в двух таблицах: «Водитель» (номер вод. удостоверения, ФИО, стаж,

гос. номер, марка автобуса, затраты ГСМ на 1 км. пути) «Маршрут» (номер маршрута, нач. остановка, конеч-

ная остановка, длина маршрута)

«Путевой лист» (номер ПЛ, дата, время, номер маршрута, номер вод удостоверения, затраты на ГСМ)

Определить наиболее затратные маршруты автобу-

сов.

69

Список рекомендуемых источников

1.Гарнаев, А.Ю. Самоучитель VBA. Технология создания пользовательских приложений – СПб.: БХВ, 2001.

2.Камминг, Стив. VBA для «чайников», 3-е издание

:пер. с англ. – М.: Издательский дом «Вильямс», 2001. – 448 с.

3.Гладкий, А.А. Excel. Трюки и эффекты / А.А. Гладкий, А.А. Чиртик. – СПб.: Питер, 2006. – 368 с.

4.Демидова, Л.А. Программирование в среде Visual Basic for Application (VBA): практикум / Л.А. Демидова,

А.Н. Пылькин. – М.: Горячая линия – Телеком, 2004. – 175 с.

Рис.7

70