Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование в Microsoft Office для пользователей
 
 

Получить учебные материалы по этому курсу


<-- Назад Читать дальше -->

Задание для самостоятельной работы 9.1 Вставка по запросу записей из базы данных

Примечание:

В этом задании используется база данных Microsoft Access с именем Борей.mdb, которая при установке Microsoft Office 2003 по умолчанию помещается в каталог C:\Program Files\Microsoft Office\OFFICE11\SAMPLES. Перед началом этой лабораторной работы рекомендуется провести поиск на диске, чтобы найти этот файл. Если он находится в другом каталоге — скорректируйте путь к этому файлу в ответе. Если же он вообще не обнаружен, то доустановите Microsoft Office таким образом, чтобы он был установлен с полным набором компонентов.

Подготовка:

  • Создайте новый документ Word и сохраните его как C:\InsertQueryResults.doc
  • Щелкните правой кнопкой мыши по любой панели инструментов или меню и в открывшемся списке доступных панелей инструментов выберите "Элементы управления".
  • Нажмите на кнопку "Режим конструктора" на панели инструментов "Элементы управления" (верхняя левая кнопка) и в этом режиме поместите в документ Word новую кнопку. Для этого нужно щелкнуть по объекту "Кнопка" на панели инструментов "Элементы управления" и в документе определить местонахождение и размеры этой кнопки.

Щелкните по созданной вами кнопке правой кнопкой мыши и в контекстном меню выберите "Свойства". Определите для нее свойства по вашему желанию. Выглядеть документ с этой кнопкой в итоге может, например, так, как показано на рис. 9.12:

Рис.  9.12 Кнопка в документе Word

При помощи меню Вставка -> Закладка поместите под эту кнопку закладку с именем Bookmark1.

В режиме конструктора щелкните по кнопке правой кнопкой мыши и в контекстном меню выберите "Исходный текст". Откроется редактор кода Visual Basic с созданной процедурой для события Click данной кнопки. Поместите в него следующий код:

Private Sub CommandButton 1_ Click ()

Dim nEmpId As Integer

Dim sLastName As String

Dim sFirstName As String

Dim sTitle As String

 

nEmpId = CInt(InputBox("Введите номер сотрудника:"))

'Код, который нужно заменить

sLastName = "Иванов"

sFirstName = "Иван"

sTitle = "Начальник"

'Конец кода, который нужно заменить

 

ThisDocument.Activate

ThisDocument.Bookmarks("Bookmark1").Select

Selection.TypeText CStr(nEmpId) & " " & sLastName & " " & sFirstName & " " & vbTab & sTitle & vbCrLf

 

End Sub

Задание:

Измените код события Click этой кнопки таким образом, чтобы вместо присвоения переменным явно определенных значений им присваивались значения из таблицы Сотрудники базы данных Борей.mdb:

  • для переменной sLastName — значение из столбца Фамилия;
  • для переменной sFirstName — значение из столбца Имя;
  • для переменной sTitle — значение из столбца Должность.

Номер сотрудника (значение столбца Код сотрудника) нужной записи должен определяться пользователем при помощи функции InputBox().

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

Получить учебные материалы по этому курсу


 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru