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

ADODataSet1.Fields[3].ASString+':'+

ADODataSet1.Fields[4].ASString+':'+

ADODataSet1.Fields[5].ASString);

ADODataSet1.Next;

end;

// Превращаем текст в таблицу

Rng:=Doc.Range(Doc.Paragraphs.Item(3).Range.Start, Doc.Paragraphs.Item(Rcnt+3).Range.End);

Tbl:=Rng.ConvertToTable(':',Rcnt,6);

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

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;

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

Wd.DisplayAlerts:=False;

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

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

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

//Wd.Quit;

Wd:=Unassigned;

end;

Откомпилируйте приложение и проверьте работу кнопки «Отчет с использованием MSWord». При выполнении этого приложения создается документ с отчетом по базе данный club.mdb (рис.4.4).

Пояснения к приведенному выше фрагменту кода.

Во-первых, мы должны создать копию MicrosoftWord, сделать ее видимой и создать новый документ.

wd:= CreateOleObject('Word.Application');

// Отображаемнаэкранеокно MS Word

wd.Visible :=True;