Работа с “Word”, “Excel” и ActiveX, страница 2

С помощью этой процедуры выполняется SQL-запрос к таблице базы данных и распечатка результата этого запроса в виде таблицы с заданными полями.

Схема таблицы rukovoditely приведена на листе, где дан листинг программы. В этой таблице хранятся данные о ходе дипломного проектирования на кафедре, где

r_fam

r_im         Фамилия, имя и отчество руководителя

r_ot                        дипломного проекта

s_fam

s_im         Фамилия, имя и отчество студента 

s_ot                       

group – учебная группа студента

Основные структуры программы.

Команда WITHENDWITH задает несколько свойств для объекта с помощью операторов свойств, следующих сразу за оператором WITH.

WITH  <object Name>

<.cStatements>

ENDWITH

Параметры:

object Name – задается имя основного объекта;

cStatements – операторы VTF задающие свойства объекта.

Запрос к таблице базы данных: организуется с помощью операторов

use <имя базы данных . имя таблицы>

select

from

where

into

Результаты запроса сохраняются в массиве Array a (m,n), где m – количество строк, n – количество столбцов, и затем распечатываются в таблице “Динамика выполнения дипломного проектирования на кафедре ИТС” со следующей шапкой:

Дипломник

Руководитель

Группа

Контрольная дата 1

Контрольная дата 2

Оператор ALEN

rowsCount = ALEN (a,1)

определяет количество строк в массиве а и присваивает это значение переменной rowsCount.

colsCount = ALEN (a,2)

определяет количество столбцов в массиве а и присваивает это значение переменной cowsCount.

Функция .cell (N_строки, N_столбца) активирует заданную ячейку в таблице.

Свойства:

.Text – задает содержание ячейки;

.Bold=.T. – задает шрифту жирное выделение;

.Bold=.F. – убирает шрифту жирное выделение;

Комментарии к каждой строке листинга

1)  - создается локальная переменная, используемая только в рамках этой процедуры

2)  - создается COM-объект Word и ему присваивается имя локальной переменной loWord

3)  - устанавливается свойство объекта loWord не выдавать предупреждающих сообщений

4)  - создается новый документ Word

5)  по 58) - команда WITH … ENDWITH работает с объектом loWord

6)  - открываем наш документ Word

7)  по 57) - команда WITH … ENDWITH работает внутри объекта loWord

8)  - жирное начертание текста

9)  - размер шрифта

10)  - тип шрифта

11)  - выравнивание текста по центру

12)  - вывод текста в скобках на экран

13)  по 16) - задание свойств для печати после вывода текта “Динамика выполнения дипломного проектирования на кафедре ИТС ”

17)  - открытие таблицы rukovoditely из базы данных data1

18)  - выбор атрибутов для отображения результатов запроса, функция “TRIM” возвращает выражение без концевых пробелов

19)   указание на таблицу и базу данных к которой формируется запрос