Требования к оформлению ДЗ 2 и 3
ДОМАШНЕЕ ЗАДАНИЕ №2 и №3 по курсу «Макросы и приложения» Вариант № 14-61 Студент группы: И8-12-1 Раевский Михаил Преподаватель: Муратова С.Ю. Москва 2014г.
Оглавление Оглавление. 2 1. Постановка задачи. 3 1.1. ДЗ № 2 (Вариант № 14 - 51). 3 Постановка задачи ДЗ № 2 (Вариант № 14 - 61) 1. В базе данных Excel Фитнес-клубы.xls хранятся данные о месте расположения и работе фитнес-клубов. БД хранится в папке E:\Фитнес и имеет следующую структуру: Фрагмент БД:
2. Требуется (с помощью средств VBA) разработать программное обеспечение, позволяющее формировать расписание тренировок по заданным критериям отбора. Структура итоговой таблицы следующая: Фитнес-клуб {Название клуба}, метро {Станция метро}
3. Количество отформатированных строк в итоговой таблице, не считая заголовка и шапки, должно совпадать с количеством отобранных записей. 4. Полученную таблицу сохранить в файле: { Название фитнес-клуба }.xls на листе с текущей датой. Книга должна иметь один лист. 5. Файл поместить в папку E:\Фитнес\ { Станция метро }. При отсутствии папки – создать её. 6. Запрос на создание искомого списка реализовать с помощью формы:
7. В списке Фитнес-клуб: пользователь указывает интересующий его клуб. Он формируется из значений одноименного столбца исходной БД. Список с клубами должен быть отсортирован по алфавиту. По умолчанию - первый элемент отсортированного списка. 8. Список Станция метро: формируется из названий станций, около которых расположен фитнес-клуб, выбранный пользователем. Список со станциями должен быть отсортирован по алфавиту. По умолчанию первый элемент списка – это название первой станции в отсортированном списке. 9. Кнопку ОК связать с клавишей [ Enter ], кнопку Отмена – с клавишей [ Escape ]. 10. Программа должна находиться в файле Программа фитнес-клубы.xls. 11. Предусмотреть обработку событий, связанных с различными состояниями исходного и конечного файлов: закрыты, открыты, не существуют. При наличии конечного файла выдать запрос на его замену. 12. Оформить программу согласно требованиям, изложенным на лекциях. 13. Придумать свой вариант задания. ДЗ № 3 Модифицировать программу Программа фитнес-клубы.xls следующим образом: 14. При открытии файла с программой в стандартном интерфейсе Excel должна появляться панель инструментов Фитнес с кнопками О программе и Фитнес-клуб. При щелчке по кнопке О программе на экране должна появляться форма с данными о разработчике программы. Вторая кнопка предназначена для вызова формы, реализованной в ДЗ № 2. 15. При закрытии файла с программой привнесенный пользовательский интерфейс должен удаляться. Требования к оформлению ДЗ 2 и 3 Отчет по ДЗ должен быть сдан в электронном и печатном виде и включать в себя: 1. Титульный лист (пустые строки недопустимы! Вспоминаем интервалы! J). 2. Оглавление. 3. Постановку задачи (задание, которое Вы получили от меня). 4. Листинг программы, напечатанный в редакторе VBA (или в редакторе Word: шрифт – Courier, 10 пунктов). 5. План тестирования программы. 6. Придуманное Вами задание. 7. Главы должны быть пронумерованы. Стиль заголовков – Заголовок 1. Если в главах имеются параграфы, то стиль заголовка должен соответствовать их уровню. 8. Электронная версия отчета должна быть оформлена согласно стандартам и принципам, изложенным в курсе «Офисные программные пакеты». При невыполнении этих требований домашняя работа считается невыполненной и к защите не принимается! Листинг программы Эта книга: ption Base 1 Dim ÊíèãàÎòêðûòà As Integer Dim ÈìÿÔàéëà As String Dim ÍîìåðÑòðîêè, j, i, k As Integer Sub Workbook_BeforeClose(Cancel As Boolean) For Each bar In Application.CommandBars If (bar.Name = "ÍîâàÿÏàíåëü") Then bar.Delete Exit For End If Next ÎòêðûòàËèÊíèãà Ôàéë2 If ÊíèãàÎòêðûòà = -1 Then ActiveWorkbook.SaveAs Ôàéë2 Else Ñîîáùåíèå = vbYesNo + vbQuestion Îòâåò = MsgBox(("Ôàéë óæå ñóùåñòâóåò.Çàìåíèòü?"), Ñîîáùåíèå) Select Case Îòâåò Case vbNo Exit Sub End Case vbYes Kill Ôàéë2 ActiveWorkbook.SaveAs Ôàéë2 End End Select End If End Sub
Sub Workbook_Open() Call ÄîáàâèòüÏàíåëü End Sub Sub ÄîáàâèòüÏàíåëü() Set Panel = Application.CommandBars.Add With Panel .Name = "ÍîâàÿÏàíåëü" .Visible = True .Position = msoBarTop End With Set FirstButton = Panel.Controls.Add(Type:=msoControlButton) With FirstButton .Style = msoButtonCaption .Caption = "Î ïðîãðàììå" .Enabled = True .OnAction = "ShowAuthor" End With Set SecondButton = Panel.Controls.Add(Type:=msoControlButton) With SecondButton .Style = msoButtonCaption .Caption = "Ôèòíåñ" .Enabled = True .OnAction = "Main" End With End Sub
Frm forma:
|
