Бутаков С.В. Методические указания к практическим работам по курсу Высокоуровневые методы программирования

Подождите немного. Документ загружается.

вых устанавливается соединение с базой данных, а во вторых из базы

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

13. Перейдите в редактор текста и воспользовавшись строками быстрого

перехода перейдите к редактированию процедуры Initialize формы

UserForm1 (Рис. 46).

Рис.

. Обработчики событий для кнопок CommandButton1

и CommandButton2.

Рис.

. Вызов процедуры инициализации формы.

14. Скорректируйте процедур у инициализации, как показано ниже:

Private Sub

UserForm_Initialize()

ThisDocument.blnCancelled =

True

' устанавливаем начальное положение флага

Dim

rstAuthors

ADODB.Recordset

' переменная для набора данных

Dim

Cnxn

ADODB.Connection

' переменная для соединения

Set

Cnxn =

New

ADODB.Connection

' создали объект для соединения с БД

src = "x:\lab6\db1.mdb"

' установили путь к БД

sConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=" & src

' сформировали строку соединения

Cnxn.Open sConnStr

' открыли соединение

Set

rstAuthors =

New

ADODB.Recordset

' создали объект набора данных

strSQLAuthors = "SELECT * from Person"

' создали строку запроса

rstAuthors.Open strSQLAuthors, Cnxn, adOpenStatic,

adLockReadOnly

' получили данные в набор

Do Until

rstAuthors.EOF

' пока не конец файла

strAuthorID = rstAuthors!Family

' получили поле Family из записи

ComboBox1.AddItem strAuthorID

' добавили строку в ComboBox1

rstAuthors.MoveNext

' перешли к следующей записи

Loop

rstAuthors.Close

' закрыли набор данных

Cnxn.Close

' закрыли соединение

Set

rstAuthors =

Nothing

Set

Cnxn =

Nothing

ComboBox1.ListIndex = 0

' установили начальное значение в ComboBox1

End Sub

15. Теперь необходимо скорректировать процедуру открытия документа

(Document_Open()) для того, чтобы инициировать диалог с “помощ-

ником” при открытии документа. В данной процедуре сначала ини-

циируется новый помощник и обрабатывается диалог с ним:

Private

Sub Document_Open()

With

Assistant

.Visible =

True

.Animation = msoAnimationGreeting

End

With

Assistant.NewBalloon

.Heading =

"Начало работы"

.Text = "Создать новое письмо"

.Button = msoButtonSetOkCancel

.Mode = msoModeModal

.Parent.Visible =

False

.Show = msoBalloonButtonOK

Then

UserForm1.Show

blnCancelled =

True

Then

MsgBox "Действие отменено!", vbExclamation

Else

ThisDocument.Label1.Caption = strFamily

End If

.Close

End With

End Sub

16. Сохраните доку мент, закройте и вновь откройте его. Протестируйте

работоспособность Вашего приложения. Продемонстрируйте его пре-

подавателю.

После выполнения задания к выполнению Вам необ-

ходимо знать:

1. Технологию создания, запуска и коррекции в офисных приложениях

процедур, написанных на языке VBA.

2. Назначение основных объектов и событий.

3. Методы получения значений из полей базы данных в документ MS-

Word.

Самостоят ельна я работа.

1. Создайте новый документ MS-Word.

2. Сохраните его под именем lab6a в Вашу папку. Впишите в нем

текст по смыслу соответствующий Вашему заданию на лаборатор-

ную работу № 5.

3. Организуйте вставку в Ваш документ не менее двух полей из таб-

лиц Вашей базы данных, созданной Вами в предыдущих работах.

4. Протестируйте работоспособность Ваших макросов. Продемонст-

рируйте результат преподавателю.

5. Составьте отчет по работе № 6-а и представьте его к защите.

Задание к выполнению – част ь 2

1. Запустите MS-Excel: Пуск

Программы

\Microsoft Excel.

2. Нажмите на панели инструментов на правую кнопку мыши и вызовите

панель инструментов Visual Basic. Нажмите на ней кнопку Элементы

управления. Выберите элемент Кнопка и разместите его в на первом

листе книги в диапазоне ячеек A1:B2 (Рис. 47).

Рис.

. Размещение кнопки на листе книги.

3. Нажмете на вновь созданной кнопке на правой кнопке мыши и пере-

именуйте ее (Рис. 47). Нажмите на кнопку Выход из режима конст-

руктора. Сохраните книгу под именем book1 в папку Lab6b на Вашем

диске.

4. Вновь перейдите в режим конструктора и нажмите дважды на создан-

ную кнопку. Должен открыться редактор VBA и в нем новая процеду-

ра:

Private Sub

CommandButton1_Click(). Впишите в нее

следующий текст:

Private Sub

CommandButton1_Click()

For

i = 3

' просмотр ячеек по горизонтали

For

j = 3

' просмотр ячеек по вертикали

i = j

Then

' если у ячейки совпадают индексы

' столбца и строки

Cells(j, i).Interior.ColorIndex = 6

' раскрасить ячейку в желтый цвет

End If

Dim

MyVar

MyVar = MsgBox("

Раскрашено

!",

vbOKOnly + vbInformation, "

Сообщение

End Sub

5. Сохраните и запустите Ваш макрос. Продемонстрируйте результат

преподавателю.

6. Заполните диапазон ячеек A3:J12 случайными числами (используйте

функцию СЛЧИС).

После выполнения задания к выполнению Вам необ-

ходимо знать:

1. Технологию доступа к данным и свойствам ячеек в книге MS-Excel из

макросов на языке VBA.

2. Основы организации циклов на VBA.

Самостоят ельна я работа.

1. Над диапазоном A3:J12 со случайными числами произведите дей-

ствия в соответствии с Вашим вариантом. Для этого напишите

макрос, вызываемый по нажатию некоторой новой кнопки.

Таблица

Варианты заданий к лабораторной работе №

№

Задание

Образец

Раскрасить ячейки, находящиеся на главной диагонали диа-

пазона ячеек C3:M13.

1. В диапазоне ячеек A3:J12 раскрасить ячейки с максималь-

ными по столбцам значениями

2. В диапазоне ячеек A3:J12 найти среднее по столбцам

3. В диапазоне ячеек A3:J12 раскрасить ячейки с минималь-

ными по столбцам значениями

4. В диапазоне ячеек A3:J12 найти суммы максимального и

минимального по столбцу значений

5. В диапазоне ячеек A3:J12 найти среднее по строкам

6. В диапазоне ячеек A3:J12 раскрасить ячейки с максималь-

ными по строкам значениями

7. Для диапазона ячеек A3:J12 найти суммы максимального и

минимального по строкам значений

№

Задание

8. В диапазоне ячеек A3:J12 раскрасить ячейки находящиеся

над и под главной диагональю

9. В диапазоне ячеек A3:J12 раскрасить ячейки содержащие

значения большие, чем среднее по столбцу

10. В диапазоне ячеек A3:J12 раскрасить ячейки с минималь-

ными по строкам значениями

11. Для диапазона ячеек A3:J12 найти суммы значений ячеек по

строкам

12. Для диапазона ячеек A3:J12 найти суммы квадратов значе-

ний ячеек по столбцам

13. В диапазоне ячеек A3:J12 раскрасить ячейки содержащие

значения меньшие, чем среднее по строке

14. Для диапазона ячеек A3:J12 найти суммы квадратов значе-

ний ячеек по строкам

15. В диапазоне ячеек A3:J12 раскрасить ячейки содержащие

значения отличающиеся не более чем на 0,2 от среднего по

столбцу

2. Сохраните книгу в Вашу папку.

3. Протестируйте работоспособность Ваших макросов. Продемонст-

рируйте результат преподавателю.

4. Составьте отчет по работе № 6-b и представьте его к защите.

••••••••••• •••••••.

Данный набор вопросов используется при подготовке к защите лаборато р-

ных работ.

1. Опишите назначение среды разработки Borland Delphi.

2. Для чего предназначен инспектор объектов в Borland Delphi.

3. Для чего предназначены свойства Caption, Color, BorderStyle у ви-

димых компонентов.

4. Опишите схему событийной модели диалогового интерфейса.

5. Каким образом можно внести изменения в обработчик того или ино-

го события.

6. Каким образом получить данные из элементов формы?

7. Опишите назначение и порядок работы с отладчиком.

8. Опишите порядок создания основных элементов диалогового окна.

9. Каким образом передаются данные между различными диалоговыми

формами?

10. Что такое типизированный файл?

11. Как вызвать стандартные диалоги сохранения и откр ытия файлов?

12. Опишите порядок получения справочной информации по свойст-

вам и методам объектов.

13. Перечислите основные компоненты доступа к данным

14. Перечислите основные компоненты отображения данных.

15. Каким образом добавить и удалить запись в таблице?

16. Каким образом установить фильтр на таблицу и снять его.

17. Каким образом возможно запустить процедуру на языке Visual

Basic for Application из документа или книги электронной таблицы?

18. Опишите порядок создания макросов на языке Visual Basic for

Application в документе или электронной таблице.

19. Какие объекты служат для организации доступа к базам данных из

макросов?

20. Через какие объекты возможен доступ к данным и свойствам ячеек

в книге MS-Excel из макросов на языке VBA?

21. Опишите основные операторы цикла в языке Visual Basic for

Application.

•••••••••• ••• •••••••••• • •••••••••• •••••••••-

••• •••••.

1. Бобровский С. Delphi 5: учебный курс – СПб: изд-во «Питер»,

2000. – 640 c.: ил.

2. Microsoft Developer Network Library (MSDN) January 2001 release.

3. Архангельский А.Я. Программирование в Delphi 5 – 2-е изд., пе-

реработ. и дополн. – М.: ЗАО Изд-во БИНОМ, 2000 г. – 1072 с., ил.

4. Информатика, Учебник / Под ред. Макаровой Н.В. Москва,

Финансы и статистика, 2000.

5. Фаронов В.В. Delphi 6: учебный курс

6. Полянский А. Среда программирования Delphi 5-6: Спр. пос., М:

Познавательная книга плюс, 2001 г., 416 с.

7. Федоров А.Г., Елманова Н.З. ADO в Delphi. СПб: БХВ-Петербург,

2002 г., 816 с.

8. Карпов Б. Delphi: Спец. спр., СПб: Питер, 2002 г., 688 c.

9. Фаронов В. Программирование баз данных в Delphi 6. СПб: Пи-

тер, 2002 г., 352 с.

10. Тейксейра С., Пачеко К. Borland Delphi 6: Рук-во разработчика.

СПб: Вильямс., 2002 г., 1120 с.

11. Кандзюба С.П., Громов В.Н. Delphi 6, Базы данных и приложения:

Лекции и упр. К: ДиаСофт, 2001 г., 576 с.

12. Глинский Я.Н., Анохин В.Е., Ряжская В.А. Turbo Pascal 7.0 и

Delphi: Уч.пос. СПб: ДиаСофтЮП., 2001 г., 208 с.