Edit и Access

@Сhip · Регистрация: 02.02.2011

Студворк — интернет-сервис помощи студентам

Доброва времени суток. Прошу помочь советом в одной проблеме. Есть созданная таблица в Access, необходимо отобразить в Edit(ах) данные таблиц Access(а) для формирования текстового документа в Word. Возможно ли это вообще?

@SAMZ · 14.04.2012, 05:42

Сообщение от Сhip

необходимо отобразить в Edit(ах) данные таблиц Access(а)

Delphi
1
Edit.Text := MyTable.FieldByName('SomeFieldName').AsString;

Сообщение от Сhip

для формирования текстового документа в Word. Возможно ли это вообще?

Возможно, но какую связь вы усматриваете между Word и Edit?

@Сhip · 14.04.2012, 10:26 **[ТС]**

А какая подойдёт для коректной взаимосвязи

@SAMZ · 16.04.2012, 06:26

Сообщение от Сhip

А какая подойдёт для коректной взаимосвязи

Да в том то и дело, что никакой связи между этими объектами нет! Поэтому все ваши вопросы звучат бесмысленно!

@Сhip · 21.04.2012, 12:34 **[ТС]**

SAMZ, Мы наверно друг друга не понимаем. Есть шаблон "Shablin1", необходимо с помощью Еditов занести в этот шаблон слова, которые вписанны в Edit. Вот скринфот шаблона. Плииииииз подскажи

Соответственно надо заменить Number,Name,Data,Name2 на то что в Edit
С отображением в Edit я разобрался.

@SAMZ · 23.04.2012, 15:44

Сообщение от Сhip

надо заменить Number,Name,Data,Name2 на то что в Edit
С отображением в Edit я разобрался.

Понятно! Это немного не так нужно делать. Во первых в нужном месте шаблона устанавливаются так называемые закладки. См. в меню Word - документа ВСТАКА|ЗАКЛАДКИ. Именно закладке и присваивается имя. Напрмер, Number.
Далее, для работы из среды приложения Delphi непосредственно с документом Word следует использовать так называемые OLE объекты. Находятся в модуле ComObj
Ниже кусок кода, открывающий документ по шаблону

Delphi
1
2
3
4
5
6
7
8
9
  MSWord:= CreateOleObject('Word.Application');
  fmDtMdl.SHABLON.Open;
  dotPath:= ExtractFilePath( ParamStr(0) );
  fmDtMdl.SHABLONCONTENT.SaveToFile(dotPath + 'T.doc');
  fmDtMdl.SHABLON.Close;
  while MSWord.Documents.Count > 0 do
    MSWord.Documents.Close;
  MSWord.Documents.Open(FileName := dotPath + 'T.doc');
  MSWord.Visible := true;

Здесь MSWord - переменная типа variant
SHABLON - таблица шаблонов.
Для того, чтобы установить курсор на место закладки с именем Number

Delphi
1
MSWord.Selection.GoTo(-1, Name := 'Number');

Вставить в это место текст

Delphi
1
MSWord.Selection.Text := Edit1.Text;

@Сhip · 23.04.2012, 17:27 **[ТС]**

я не совсем понял, можно чуть по подробнее?

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@Сhip 0 / 0 / 0 Регистрация: 02.02.2011 Сообщений: 9

	Edit и Access 14.04.2012, 01:29. Показов 1379. Ответов 6 Метки нет (Все метки) Доброва времени суток. Прошу помочь советом в одной проблеме. Есть созданная таблица в Access, необходимо отобразить в Edit(ах) данные таблиц Access(а) для формирования текстового документа в Word. Возможно ли это вообще? 0

@Сhip 0 / 0 / 0 Регистрация: 02.02.2011 Сообщений: 9
	14.04.2012, 10:26 [ТС]
	А какая подойдёт для коректной взаимосвязи 0

@Сhip 0 / 0 / 0 Регистрация: 02.02.2011 Сообщений: 9
	21.04.2012, 12:34 [ТС]
	SAMZ, Мы наверно друг друга не понимаем. Есть шаблон "Shablin1", необходимо с помощью Еditов занести в этот шаблон слова, которые вписанны в Edit. Вот скринфот шаблона. Плииииииз подскажи Соответственно надо заменить Number,Name,Data,Name2 на то что в Edit С отображением в Edit я разобрался. 0

@Сhip 0 / 0 / 0 Регистрация: 02.02.2011 Сообщений: 9
	23.04.2012, 17:27 [ТС]
	я не совсем понял, можно чуть по подробнее? 0