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

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

•••••••••••• •••••• • 5. •••••• •• ••••••••••

•••••••••.

Технические характеристики занятия

Занятие предусмотрено объемом 4 часа (в компьютерном классе).

Цели занятия

Приобрести практические навыки организации работы приложения со

связанными таблицами базы данных.

Задачи занятия

• Изучить понятие справочника.

• Отработать технологию связывания таблиц базы данных.

• Закрепить навыки работы с базами данных.

Указания по выполнению работы

В данной работе будут рассмотрены базы данных со связанными таб-

лицами. Наиболее распространенным отношением таблиц является отно-

шение «один ко многим». На Рис. 33 показан пример такого отношения –

между двумя таблицами – «Контрагенты» и «Документы». При взаимодей-

ствии с одним контрагентом формируется несколько документов, но пол-

ные реквизиты контрагента хранятся только в одной записи, а таблицы

связаны по коду контрагента.

Контрагенты

код Наименование Адрес ИНН

001 ОАО «Бета» пр-т Ленина 22…

002 ООО «Гамма» пр-т Мира 54…

… … … …

Документы

код Дата Сумма НДС

001 11/02/2002 3510-00 690

001 15/02/2002 4400-00 400

001 20/04/2002 3800-00 345

002 11/03/2002 5500-00 500

002 18/04/2002 7700-00 700

… … … …

Рис.

. Пример отношения «один ко многим».

В приведенном примере таблица «Контрагенты» может выступать в

качестве справочника для заполнения таблицы «Документы» - при вводе

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

В данной работе взаимодействие с базой данных также будем строить

через компоненты ADO.

Как и в предыдущей работе, задачей будет доработка ежедневника.

Этапы работы:

− добавить таблицу – справочник в базу данных при помощи

MS-Access;

− организовать работу приложения со справочником и заполне-

ние ключевых полей основной таблицы из справочника.

Задание к выполнению

1. Скопируйте созданную Вами в предыдущей работе базу данных еже-

дневника (db1.mdb) в новую папку Lab5 на Вашем диске.

2. Запустите MS-Access: Пуск

Программы

\Microsoft Access.

Откройте базу данных db1.mdb из папки Lab5.

3. Добавьте в базу данных новую таблицу Person следующей структуры:

Code

− Счетчик

Family

− Текстовый

Name

− Текстовый

Post

− Текстовый

Phone

− Текстовый

4. Добавьте в таблицу Person несколько записей (Рис. 34).

Рис.

. Таблица

Person.

5. Модифицируйте таблицу MainData, добавив в нее поле PersCode

(формат – числовой, число десятичных знаков – 0). Внесите в это поле

различные целые числа от 1 до 4. Таким образом, Вы получили две

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

6. Скопируйте файлы из каталога Lab4 в каталог Lab5. Запустите Del-

phi 5: Пуск

Программы

\Borland Delphi 5\Delphi 5.

От-

кройте проект Lab4 и сохраните его как Lab5. Запустите проект и про-

верьте его работоспособность.

7. Перейдите к форме DataModule2. Добавьте на нее компоненты

ADOTable и DataSource. Для ADOTable2 настройте строку подклю-

чения (ConnectionString) к базе данных db1.mdb и укажите в поле

TableName таблицу Person Рис. 35.

Рис.

. Настройка модуля

DataModule2.

8. Свяжите таблицу Person с таблицей MainData. Для этого в свойстве

MasterSource установите источник данных DataSource1 и настройте

строку соединения таблиц MasterFields как показано на Рис. 36.

Рис.

. Настройка установки связи между таблицами.

9. Для источника данных DataSource2 установите набор данных

ADOTable2. Сделайте активным соединение в таблице ADOTable2.

10. На форму Form1 добавьте строку редактирования поля базы данных

(компонента TDBEdit) и установите для нее в качестве источника

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

(DataField) – поле Family. Запретите редактирование данной строки

(ReadOnly= True).

11. Запустите проект, проверьте его работоспособность – в окне просмот-

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

содержимое добавленной строки – должна отражаться строка с фами-

лией из справочника Person.

12. Создайте форму редактирования справочника – Form6 по образцу,

представленному на Рис. 37. На ней размещены компоненты TDBGrid

и TDBNavigator.

Рис.

. Форма редактирования справочника.

13. Для того, чтобы таблицу Person можно было корректировать отредак-

тируйте процедуры активизации и закрытия формы, как это показано

на Рис. 38. Это необходимо для того, чтобы при редактировании таб-

лицы Person отключаться от главной таблицы для обеспечения воз-

можности редактирования строк.

14. На первой форме в меню «Файл» добавьте пункт «Справочник фа-

милий» и добавьте в него вызов формы Form6.

15. Сохраните, запустите проект и проверьте его работу. Продемонстри-

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

16. Скорректируйте форму ввода \ коррекции события (Form3), добавив в

нее возможность выбора участника события из справочника.

17. Для создания поля с возможностью выбора значения из справочника

следует создать так называемое поле LookUp. Добавьте на форму

Form3 компонент TDBLookupComboBox.

Рис.

. Текст процедур активации и закрытия формы.

18. Установите для TDBLookupComboBox следующие свойства:

DataSource- DataModule2.DataSource1;

DataField – PersCode;

ListSource DataModule2.DataSource2;

ListField – Family;

KeyField – Code.

19. В результате Вы должны в форме Form3 менять значения поля, хра-

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

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

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

Рис.

. Установка значения поля через поле

LookUp.

20. Сохраните, запустите проект и проверьте его работу. Продемонстри-

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

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

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

1. Назначение и свойства основных компонент доступа к данным.

2. Назначение и свойства основных компонент отображения данных.

3. Методы написания добавления и удаления записей таблицы.

4. Технологию установки фильтров на таблицы и их снятия.

5. Порядок получения справочной информации по свойствам и методам.

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

1. Создайте новый проект (File \ New … \ Application).

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

3. Создайте в Вашей базе данных таблицу – справочник.

4. Разработайте программу, в соответствии с Вашим заданием (см.

лаб. работу № 2, табл. 2). Обязательная особенность заданий –

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

5. Сохраните, запустите проект и проверьте его работу.

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

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

•••••••••••• •••••• • 6. •••••• •••••••••••••••• •

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

Технические характеристики занятия

Занятие предусмотрено объемом 9 часов (в компьютерном классе).

Цели занятия

Приобрести практические навыки программирования в офисных при-

ложениях.

Задачи занятия

• Изучить понятие макроса.

• Изучить основы языка программирования Visual Basic for Application.

• Отработать технологию передачи данных между переменными макро-

са и документа.

• Закрепить навыки работы с офисными приложениями.

Указания по выполнению работы

Данная работа посвящена изучению средств программирования в

офисных приложениях. Языком программирования для MS-Office служит

язык Visual Basic for Application (VBA). Фактически этот язык – это язык

Visual Basic, содержащий средства работы с различными документами,

например документами MS-Word, книгами MS-Excel, таблицами MS-

Access. Как правило, программы на VBA оформляются в виде набора

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

представление о создании макросов, будут рассмотрены вопросы создания

макросов в MS-Word и MS-Excel.

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

1. Скопируйте созданную Вами базу данных ежедневника (db1.mdb) в

новую папку Lab6 на Вашем диске.

2. Запустите MS-Word: Пуск

Программы

\Microsoft Word.

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

панель инструментов Visual Basic (Рис. 40). Нажмите на ней кнопку

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

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

ши и вызовите окно свойств. Измените в нем заголовок кнопки с

CommandButton1 на Привет. Нажмите на кнопку Выход из режима

конструктора. Попробуйте нажать на кнопку Привет, обратите вни-

мание, что при этом происходит. Сохраните документ под именем

Doc1 в папку Lab6 на Вашем диске.

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

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

ра:

Private Sub

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

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

Dim MyVar

MyVar =

MsgBox (

"Привет!"

vbOKOnly+

vbInformation

"Сообщение"

)

Рис.

. Вызов панели инструменов

Visual Basic.

Рис.

. Изменение свойств кнопки.

5. Перейдите в окно документа не закрывая редактора , сохраните до-

кумент, выйдите из режима конструктора и попробуйте вновь нажать

на кнопку Привет.

6. Перейдите в редактор, измените строку текста сообщения следующим

образом:

"Привет от " + ActiveDocument.Name

. Вызовите эту

процедуру нажатием на кнопку Привет. Таким образом, мы рассмот-

рели, как может генерироваться событие в документе по нажатию

кнопки. Однако для объекта Документ (Document) существуют еще

три основных события – New, Close и Open.

7. Дальнейшая задача – автоматизировать создание адресных писем. При

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

имя он желает отослать письмо, причем имя адресата будем выбирать

из базы данных ежедневника (таблица Person). Общий алгоритм рабо-

ты данного офисного документа представлен на Рис. 42.

Изменить

адресата ?

да нет

Получить список

фамилий из БД

Вывести список

фамилий

Занести

выбранну ю

фамилию в

документ

Отмена

выбор а ?

нет

да

Открыть док-т

Конец

Рис.

. Алгоритм открытия документа.

8. Удалите из документа кнопку Button1. Наберите в нем текст «Ува-

жаемый ___, Вам назначена встреча с менеджером по кадрам компа-

нии Новый Век». На место символов ___ добавьте элемент Надпись

(Label) с панели инструментов «Элементы управления». Перейдите в

редактор VBA. Добавьте в проект форму (Insert \ User Form). Добавь-

те на форму элемент Label, элемент ComboBox и два CommandButton

(Рис. 43).

Рис.

. Форма ввода фамилии адресата.

9. В редакторе VBA выберите объект ThisDocument. На панели быстрого

перехода выберите объект Document и его событие Open и скоррек-

тируйте его, как показано на Рис. 44. Также добавьте объявление пе-

ременных, как это показано на верхней части рисунка (см. Рис. 44).

Переменная strFamily будет служить для передачи фамилии адресата в

документ, а переменная blnCancelled будет флагом, указывающим, ка-

кой кнопкой закрыт диалог.

Рис.

. Процедура обработки события открытия

документа и объявление глобальных переменных.

10. Сохраните документ. Закройте и вновь откройте его. Должно быть вы-

звано диалоговое окно UserForm1.

11. Перейдите в редактор форм и, дважды нажав на кнопки OK и Отмена,

вызовите процедуры, выполняемые по нажатию на эти кнопки. Впи-

шите в них операторы установки флага и закрытия формы, как это по-

казано на Рис. 45.

12. Повторите п. 10. Список в элементе ComboBox пустой. Необходимо

его инициализировать. Инициализация производится при инициализа-

ции самой формы UserForm1. Она выполняется в два этапа – во пер-