Добавление данных из Делфи в таблицу Ворд

← →
АлексейСм (2005-06-01 06:36) [0]

Делаю регистрацию для студентов по кнопке "РЕГСТРАЦИЯ", где он записывает фамилию и имя. По ходу дела возник такой вопрос. Можно ли сделать что бы данные студента записывались в таблицу Ворда. Т.е я создал документ Ворд с тремя полями:
- фамилия
- имя
- оценка (оценка за тест).
Подключил сервер WordApplication и WordDocument. И данные студента туда заносятся отлично. Но проблема в том что мне надо чтобы сел следующий студент, зарегистрировался и в эту таблицу добавились его данные в следующую строку, а не заменой первой. Скажите плиз можно ли так сделать и как?

← →
YurikGL © (2005-06-01 07:31) [1]

Для этого нужно добавить строчку в таблицу ворда и добавлять в нее данные...

← →
АлексейСм (2005-06-01 07:51) [2]

А как доббавить строку в ворде?

← →
Virgo_Style © (2005-06-01 08:28) [3]

АлексейСм (01.06.05 7:51) [2]
Посмотри в анкету YurikGL =)

← →
АлексейСМ (2005-06-01 09:41) [4]

Спасибо. Строка отлично добавляется.
А как проверить чтобы не было повторной записи в таблице Ворда?
Вот код на добавление строки:

WordDocument1.Tables.Item(1).rows.Add(EmptyParam); WordDocument1.Tables.Item(1).rows.Item(3).Height:=10; j:=WordDocument1.Tables.Item(1).Rows.Count; WordDocument1.Tables.Item(1).cell(j,1).Range.Text:=labelededit1.Text; WordDocument1.Tables.Item(1).cell(j,2).Range.Text:=labelededit2.Text;

← →
ANB © (2005-06-01 09:45) [5]

> А как проверить чтобы не было повторной записи в таблице
> Ворда?
- либо сканить таблицу ворда, но, имхо, лучше таки на уровне БД все это проверить.

← →
АлексейСМ (2005-06-01 09:56) [6]

Начинаю сканить таблицу. Но не работает. Подскажите пожалуйста где ошибка!

var i,j:integer; j:=WordDocument1.Tables.Item(1).Rows.Count; for i:=1 to j do if WordDocument1.Tables.Item(1).rows.item(i).Range.Text=labelededit1.Text then showmessage("Повторная запись!") else WordDocument1.Tables.Item(1).rows.Add(EmptyParam); WordDocument1.Tables.Item(1).rows.Item(3).Height:=10; WordDocument1.Tables.Item(1).cell(j,1).Range.Text:=labelededit1.Text; WordDocument1.Tables.Item(1).cell(j,2).Range.Text:=labelededit2.Text;

← →
Drakosha © (2005-06-01 12:32) [7]

else
begin
WordDocument1.Tables.Item(1).rows.Add(EmptyParam);
WordDocument1.Tables.Item(1).rows.Item(3).Height:=10;
WordDocument1.Tables.Item(1).cell(j,1).Range.Text:=labelededit1.Text;
WordDocument1.Tables.Item(1).cell(j,2).Range.Text:=labelededit2.Text;
end;

← →
АлексейСМ (2005-06-01 13:19) [8]

Drakosha © (01.06.05 12:32) [7]
Пробывал так. Все равно допускает одинаковые строки. Я думаю может ошибка в счетчике, поскольку я не совсем понимаю эти циклы. Пожалуйста помогите все-таки разобраться

> АлексейСМ (01.06.05 13:19) [8]

а в чем тайный смысл хранить структурированную инф-цию именно в вордовом документе ? тем более что стоит задача исключения неуникальности записей, а впоследствии возможно и задачи поиска-сортировки возникнут ?

Ворд, мягко говоря, не слишком "заточен" под такие задачи, для этого есть полноценные СУБД ..

← →
АлексейСМ (2005-06-01 13:47) [10]

В последствии никакого поиска не придвидится. Да к тому же проблемы с СУБД. Достачно только проверить записи на уникальность, поэтому взялся за Ворд. Прошу помощи у вас (см[6])!

> к тому же проблемы с СУБД

интересно - какие ?

> Но не работает

что значит "не работает" ?
код трассировал пошагово ?

← →
АлексейСМ (2005-06-01 14:29) [12]

Проблемы с СУБД - DAtaBase накрылась. Сейчас переустанавливаю Делфи с целью использовать СУБД. И хотел узнать, а можно ли Таблицу (TTable) связать с Word чтобы распечатать потом?

Добавление данных из Делфи в таблицу Ворд Найти похожие ветки