Курсовая работа: Информационная система компьютерного клуба

// Изменяем размеры колонок таблицы

Tbl.Columns.Item(1).Width:=Tbl.Columns.Item(1).Width-30;

Tbl.Columns.Item(2).Width:=Tbl.Columns.Item(2).Width+20;

Tbl.Columns.Item(3).Width:=Tbl.Columns.Item(3).Width-3;

Tbl.Columns.Item(4).Width:=Tbl.Columns.Item(4).Width+20;

Tbl.Columns.Item(5).Width:=Tbl.Columns.Item(5).Width-5;

Tbl.Columns.Item(6).Width:=Tbl.Columns.Item(6).Width+5;Теперь нам нужно сохранить документ, подавив при этом вывод диагностических сообщений Word:

// Подавляем вывод диагностических сообщений

Wd.DisplayAlerts:=False;

Почему нужно избавиться от вывода диагностических сообщений? В общем случае приложения, подобные Word, можно запускать удаленно, например, с помощью средств DCOM или универсальных СОМ-клиентов, доступ к которым осуществляется по протоколам TCP/IP или HTTP/HTTPS. В этом случае у пользователя не будет возможности отвечать на вопросы диалоговых окон Word — ведь физически он находитсяна другом компьютере; кроме того, некоторые режимы применения DCOM таковы, что пользовательский интерфейс DCOM-сервера (включая обработку им событий мыши и клавиатуры) может быть просто недоступен никому из пользователей. В этом случае диалоговое окно, созданное в оперативной памяти, получит сообщения о событии, связанном со щелчком на одной из кнопок этого окна, и не будет закрыто, и у пользователя создастся впечатление, что приложение «зависло».

И, наконец, нам следует сохранить документ и освободить ресурсы:

// Сохраняем документ

Doc.SaveAs('D:\SOT\Custrep.doc');

// Закрываем Word и освобождаем ресурсы

Wd.Quit;

Wd:=Unassigned;

4.5.2 Создание генерации отчетов с помощью Microsoft Excel

Как и в предыдущем случае, нам следует также объявить глобальные переменные для объектов Application, WorkBook и WorkSheet:

var

Forml: TForm1;

. . .

// Переменныедляобъектов Excel Application, WorkBook и WorkSheet

Xl, Wb, Ws: Variant;

Реализуем генерацию табличного отчета в обработчике события OnClick компонента Button2:

procedure TForm1.Report_ExcelClick(Sender: TObject);

varI, Rcnt:integer;

begin

// Открываем базу данных и подсчитываем количество записей

ADODataSet1.Open;

Rcnt := ADODataSet1.RecordCount;