Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Добавление данных из Делфи в таблицу Ворд [D6, WinXP]

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

АлексейСМ (2005-06-01 14:29:00) [1]
Проблемы с СУБД - DAtaBase накрылась. Сейчас переустанавливаю Делфи с целью использовать СУБД. И хотел узнать, а можно ли Таблицу (TTable) связать с Word чтобы распечатать потом?

Digitman (2005-06-01 13:52:00) [2]

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

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

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

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

АлексейСМ (2005-06-01 13:47:00) [3]
В последствии никакого поиска не придвидится. Да к тому же проблемы с СУБД. Достачно только проверить записи на уникальность, поэтому взялся за Ворд. Прошу помощи у вас (см[6])!

Digitman (2005-06-01 13:23:00) [4]

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

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

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

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

Drakosha (2005-06-01 12:32:00) [6]
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 09:56:00) [7]
Начинаю сканить таблицу. Но не работает. Подскажите пожалуйста где ошибка!

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;

ANB (2005-06-01 09:45:00) [8]

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

АлексейСМ (2005-06-01 09:41:00) [9]
Спасибо. Строка отлично добавляется.
А как проверить чтобы не было повторной записи в таблице Ворда?
Вот код на добавление строки:

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;

Virgo_Style (2005-06-01 08:28:00) [10]
АлексейСм (01.06.05 7:51) [2]
Посмотри в анкету YurikGL =)

АлексейСм (2005-06-01 07:51:00) [11]
А как доббавить строку в ворде?

YurikGL (2005-06-01 07:31:00) [12]
Для этого нужно добавить строчку в таблицу ворда и добавлять в нее данные...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »