При закрытии подписчики были переданы в рассылку "Создание сайта. Уроки для начинающих и не только" на которую и рекомендуем вам подписаться.
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
Доброго времени суток, уважаемые подписчики!
В сегодняшнем выпуске будет опубликована статья "Экспорт из БД в Word", которую любезно предоставил Глущенко Юрий, aka YurikGL
К статье прилагаются исходный код примера и база данных. Выполнены в Delphi7 и Access2003 соответственно.
Статья написана на основе собственного опыта, и опыта других людей, полученного при общении в конференциях. И надеюсь, кому-нибудь хоть сколько поможет.
В статье приведены примеры работы с
Не буду углубляться в особенности позднего и раннего связывания т.к. информации на эту тему уже достаточно
Итак, стоит задача экспортировать некую таблицу в Word. Даже не так, стоит задача сформировать сложный документ с колонтитулами, таблицами, заголовками и т.д. и т.п.
Есть два замечательных способа добывать информацию об интерфейсе
ворда.
1) Для того чтобы узнать, как что-то сделать из Delphi во Word-e
надо во Word-е зайти в меню сервис/макрос/начать запись... Потом
сделать во Word-e то, что надо сделать из Delphi и закончить запись
макроса. И наконец сервис/макрос/макросы...выбираем
записанный...изменить и смотрим, как он устроен. После этого перевод синтаксиса VBA в синтаксис Delphi осуществляется просто и непринужденно.
2) Еще одним хорошим инструментом получения знаний являются
компоненты типа TWordApplication. Кидаем его на форму, в любом
операторе набираем WordApplication1., нажимаем ctrl+пробел и
внимательно читаем. Смысл доступных функций и свойств обычно понятен
интуитивно.
Есть, еще один, как мне сказали, наиболее логичный способ – справка VBA, но что-то не довелось мне ею пользоваться…
Теперь немного теории, добытой этими путями…
W1:TWordApplication;
Vr:OleVariant;
У ворда есть коллекция документов
Vr:=номер нужного документа;
w1.Documents.Item(vr)….//так можно обратиться к нужному документу
У всякой коллекции есть свойство count – количество, таким
образом,
w1.Documents.count – количество документов.
Использование переменной типа olevariant (в данном случае vr) иногда требуется, иногда нет.
У документа есть свои коллекции:
1) буквы (characters)
w1.ActiveDocument.Characters// так можно получить доступ к коллекции
букв активного документа
Теперь можно получить доступ к
w1.ActiveDocument.Characters.items(vr)…- конкретной букве
w1. ActiveDocument.Characters.count… - количеству букв
2) таблицы
W1.activedocument.tables
А вот так
W1.ActiveDocument.Tables.Item(W1.ActiveDocument.Tables.Count).Columns.Item(2).Select;
можно выбрать вторую колонку последней таблицы.
3) абзацы
w1.ActiveDocument.Paragraphs.
4) фигуры
W1.ActiveDocument.Shapes.
Ну и т.д….
Еще есть полезные объекты selection – выбранная область и range –
диапазон, а также функция select – выбрать. Выбрать можно таблицу,
колонку (опять же
W1.ActiveDocument.Tables.Item(W1.ActiveDocument.Tables.Count).Columns.Item(2).Select), букву, диапазон, абзац и т.д…
Кстати, очень часто приходится работать с объектом range. Так,
например, чтобы вытащить текст из документа, можно написать
st:=w1.ActiveDocument.Range(1,5).Text;
Это будет текст с 1-го по 5-й символ.
st:=W1.ActiveDocument.Paragraphs.Item(1).Range.Text;
это будет текст первого абзаца текущего документа.
Теперь перейдем к конкретной реализации.
Пусть у нас есть база “Телефонный справочник”, в которой есть
следующие таблицы справочники:
Flat(IdFlat,NameFlat)
Korp(IdKorp,NameKorp)
Ul(IdUl,NameUl)
и дочерняя таблица Main(Id,Tel,Name,IdUl,House,IdKorp,IdFlat)
Почему структура именно такая – не важно… это – просто пример. Конкретная задача – экспортировать жильцов улиц Ахметова и Летчиков. Причем выходной документ должен иметь титульную страницу, на которой пишется некий текст, со второй страницы идет верхний колонтитул, где тоже пишется некий текст. Далее существует два пути, как это реализовать.
Без использования шаблона.
Создается новый документ, где создаются колонтитулы надписи и т.д.
Этот путь использовать не стоит т.к. на разных компьютерах могут
изначально стоять разные настройки страницы, шрифтов, абзацев и
красиво сформированный документ у Вас на компьютере может ужасно
выглядеть на другом. Можно, конечно, программно выставлять все
необходимые настройки, но, во-первых, всего не учтешь, во-вторых это – большие тормоза и много кода.
С использованием шаблона.
Суть состоит в том, что заранее создается вордовский документ, который используется как шаблон. В нашем случае в шаблон в нужном месте в центре первой страницы ставим объект типа надпись, в котом выставляем нужный нам шрифт и выравнивание. Также делаем разрыв раздела. На второй странице в верхний колонтитул тоже вставляем объект надпись. В него мы будем вставлять название документа. Далее делаем макрос, в котором повторяем действия, которые нам нужно сделать из Делфи.
Получаем следующий макрос:
Sub Макрос1() ' ' Макрос1 Макрос ' Макрос записан 08.11.2004 YurikGL ' ActiveDocument.Shapes("Text Box 8").Select Selection.TypeText Text:="текст на титульной" Selection.EndKey Unit:=wdStory If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.Shapes("Text Box 5").Select Selection.TypeText Text:="Текст в колонтитуле" ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub
Если преобразовать в код Делфи, то получим
//выбираем первую надпись vr:='Text Box 8'; w1.ActiveDocument.Shapes.Item(vr).Select(EmptyParam); //пишем туда текст w1.Selection.TypeText('текст на титульной'); //переходим в конец документа vr:=wdStory; w1.Selection.EndKey(vr,EmptyParam); {Всякие if-ы нам не нужны} //переходим в верхний колонтитул w1.ActiveWindow.ActivePane.View.SeekView:=wdSeekCurrentPageHeader; vr:='Text Box 5'; w1.Selection.HeaderFooter.Shapes.Item(vr).Select(EmptyParam); w1.Selection.TypeText('текст в колонтитуле'); w1.ActiveWindow.ActivePane.View.SeekView:=wdSeekMainDocument;
Итак, мы сформировали титульную страницу и колонтитул...
Кстати, кроме объектов “Надпись” можно еще эффективно использовать закладки. Чтобы узнать, как с ними работать, достаточно записать соответствующий макрос, а например, выбрать текст между первой и второй закладками можно так:
vr1,vr2,vr3,vr4:OleVariant; vr1:=1; vr2:=2; vr3:=W1.ActiveDocument.Bookmarks.Item(vr1).End_; vr4:=W1.ActiveDocument.Bookmarks.Item(vr2).End_; W1.ActiveDocument.Range(vr3,vr4).Select;
Кстати, если кто-нибудь найдет красивое решение без использования переменных OleVariant – отпишите мне на мыло.
Вывести данные из базы в документ можно либо используя слияние, либо построчно. Для слияния код выглядит примерно так:
var vr1,vr2,vr3,vr4,vr5,vr6:OleVariant; begin vr1:=0; vr2:=false; vr3:='Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Dataware\Deplhi7\Для статьи\db1.mdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;'; vr4:='SELECT Телефон, Корпус FROM QMain ORDER BY ФИО'; vr5:=GetCurrentDir+'\db1.mdb'; vr6:=-1; winit; try w1.Connect; w1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam); w1.Visible:=true; w1.Selection.Range.InsertDatabase(vr1,vr1,vr2,vr3,vr4,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,vr5,EmptyParam,EmptyParam,EmptyParam); except w1.Disconnect; end;
Человек, знающий основы баз данных легко сможет преобразовать этот код под свои нужды изменив строку подключения и запрос.
Для построчного вывода я пользовался созданной мною процедурой TableExport(DataSet:TDataSet; Title, FlagText:string), которая приведена в примере. В нее передаются датасет, заголовок таблицы и текстовой параметр FlagText. Если он равен ‘’ то экспортируется вся таблица. В противном случае, экспортируются лишь те записи, у которых значение последнего поля равно FlagText. Это сделано для того, чтобы получив выборку, которая долго вычислялась, можно было ее разнести по нескольким таблицам в отчете.
Заголовок, ширина столбца и отображать или не отображать поле задаются следующими параметрами поля
ADODataSet1.fields[1].DisplayLabel:='ФИО'; //заголовок ADODataSet1.fields[1].tag:=round(w1.CentimetersToPoints(10)); //ширина столбца ADODataSet1.fields[1].Visible:=true;//отображать поле
Кстати, в приведенном примере, данные сначала выбрасываются в Word, а потом одной командой преобразуются в таблицу.
Теперь еще некоторые полезные возможности:
w1.Selection.Cells.Borders.Item(wdBorderLeft).LineStyle:=wdLineStyleSingle; // проведение границы с левой стороны выбранной области. Используется при формировании таблиц. Изменяя параметры, можно создавать произвольные таблицы. W1.Selection.Font.Size:=15; //изменение параметров шрифта W1.Selection.Font.bold:=1; //изменение параметров шрифта I:= W1.Selection.End_; // получить номер последнего символа выбранного символа.
Если Вы работаете через OleContainer, то нелишними будут команды типа
OleContainer1.OleObject.CommandBars.Item['Standard'].Visible:=false; OleContainer1.OleObject.CommandBars.Item['Formatting'].Visible:=false; OleContainer1.OleObject.CommandBars.Item['Drawing'].Visible:=false;которые убирают соответствующие менюшки, которые обычно разлетаются по всей форме.
Если работать через CreateOleObject, то чтобы получить значение констант VisualBasicа, которые Дельфи вообще говоря не понимает, надо внутри макроса написать MsgBox(нужная_константа). Тогда он покажет ее численное значение, их-то в дельфях и использовать.
В следующем выпуске мы продолжим рассказывать про компоненты ODAC.
Ждем Ваших откликов на емайл 5781-author@subscribe.ru или subscr@chertenok.ru
Приглашаем авторов в рассылку!
С уважением,
координатор рассылки Алексей aka Gelios.
Наши координаты:
сайт - www.delphi.chertenok.ru
форум - www.forum.chertenok.ru
контактный email - 5781-author@subscribe.ru
Другие проекты:
www.travel.chertenok.ru - сайт о путешествиях!
Subscribe.Ru
Поддержка подписчиков Другие рассылки этой тематики Другие рассылки этого автора |
Подписан адрес:
Код этой рассылки: comp.soft.prog.allofdelphi Архив рассылки |
Отписаться
Вебом
Почтой
Вспомнить пароль |
В избранное | ||