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.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.