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

5. Защите документ, допустив только ввод в поля формы.

6. Сохраните шаблон в директории с шаблонами Microsoft Word с именем persdata.

1.4. Запустите Visual Basic. В появившемся окне New Project нажмите на кнопку Отмена.

С помощью программы Visual Data Manager создадим базу данных persdata.mdb, состоящую из одной таблицы:

PersTable (Анкета)

Sua

F

SecondName

(Отчество)

YearOfBirth

(Год рождения)

PlaceOfBirth

(Место рождения)

Autobiography

(Автобиография)

Описание полей:

Имя поля

Имя свойства

Значение

Surname

Тип данных

Размер поля

Обязательное поле

Текстовый

30

Да

FirstName

Тип данных

Размер поля

Обязательное поле

Текстовый

20

Нет

SecondName

Тип данных

Размер поля

Обязательное поле

Текстовый

30

Нет

YearOfBirth

Тип данных

Размер поля

Обязательное поле

Текстовый

4

Да

PlaceOfBirth

Тип данных

Размер поля

Обязательное поле

Текстовый

20

Нет

Autobiography

Тип данных

Memo

Ключевое поле: Surname.

Выполните команду Add-Ins-Visual Data Manager… Загрузится приложение Visual Data Manager. Для создания базы данных выполните команду File-New…-Microsoft Access-Version 7.0 MDB…. Выберите рабочую папку MyWork. Введите имя базы данных persdata. Нажмите на кнопку Сохранить.

В окне Database Window выделите элемент списка - Properties. С помощью правой кнопки мыши вызовите контекстное меню. Выберите пункт меню New Table.

В поле Table Name: (Имя таблицы) введите имя таблицы PersTable.

Нажмите на кнопку Add Field.

В поле Name: (Имя поля) введите Surname. В списке Type: (Тип данных) выберите Text. В поле Size: (Размер поля) укажите 30. Установите флажок Required (обязательное поле). Для добавления поля в таблицу нажмите на кнопку OK. Аналогичным образом введите информацию о других полях в соответствии с приведенной выше таблицей описания полей. После ввода информации обо всех полях нажмите на кнопку Close.

Нажмите на кнопку Add Index.

В поле Name: (Имя индекса) введите Surname. В списке Available Fields выберите Surname. Имя этого поля отобразится в списке Indexed Fields:. Для добавления индекса нажмите на кнопку OK. Нажмите на кнопку Close.

Нажмите на кнопку Build the Table для формирования таблицы.

Выполните команду File-Exit для завершения работы приложения Visual Data Manager.

1.5. Выполните команду File-Open Project… Выберите папку E:\MyWork, проект Proba. Нажмите на кнопку Открыть. Это приложение предназначено для работы с базой данных persdata.mdb.

Выполните команду Run-Start для запуска приложения.

В приложении Proba выполните команду Data-frmPersTable. Запустится форма для работы с базой данных. Нажмите на кнопку Add. Введите данные в соответствии с первой строкой таблицы, приведенной ниже.

Surname

FirstName

SecondName

YearOfBirth

PlaceOfBirth

Autobiography

Мартынов

Иван

Петрович

1945

Москва

Родился в Москве в 1945 году.

Surname

FirstName

SecondName

YearOfBirth

PlaceOfBirth

Autobiography

Савельев

Владимир

Иванович

1950

Москва

Родился в Москве в 1950 году.

Нажмите на кнопку Update. Аналогичным образом введите данные в соответствии со второй строкой таблицы.

Нажмите на кнопку Close. Завершите работу приложения.

1.6. Внесем в приложение желаемую функциональность.

1. Русифицируйте меню. Для этого в окне Project - Proba раскройте меню Form, вызовите форму frmMain двойным нажатием мыши. Выполните команду Tools-Menu Editor… Переименуйте пункты меню File - Файл, Exit - Выход, Data - Работа с базой данных, frmPersTable - Редактирование записей, Help - Справка, About - О программе. Для этого выделите соответствующий пункт меню в списке и измените значение в поле Caption. Нажмите на кнопку OK.