IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

 
 Ответить  Открыть новую тему 
> Базы данных, Компонент TDBImage
klem4
сообщение 10.10.2005 16:42
Сообщение #1


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Eсть вопрос, у меня етсь таблица paradox, в ней есть графическое поле G, на форме есть компонент TDBImage, что нужно присвоить его свойству DataSource ? На данный момент все выглядит так :


procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Active := False;
Table1.DatabaseName := 'AliasG';
Table1.TableName := 'testG';
DataSource1.DataSet := Table1;
DBGrid1.DataSource := DataSource1;
Table1.Active := True;
Table1.FieldByName('Picture').Visible := False;
DBImage1.DataSource := DataSource1; {!! тут правильно ?}
DBNavigator1.DataSource := DataSOurce1;

DBGrid1.ReadOnly := True;
end;


ps что с тегами pascоde случилось ? если на кнопку нажимать но не добавляет тег к сообщению + сиснтаксис не подсвечивается ... или только у меня это ?

добавлено : я походу забыл указать DataField для DBImage :yes:

Сообщение отредактировано: volvo - 8.11.2006 13:36


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 10.10.2005 17:55
Сообщение #2


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Так, вобщем этот момент настроил все сохраняется и загружается. Ништяк smile.gif

DBImage1.DataSource := DataSource1;
DBImage1.DataField := 'picture'


picture - имя поля формата Graphic

Сообщение отредактировано: klem4 - 10.10.2005 17:57


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 11.10.2005 17:45
Сообщение #3


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Еще по БД вопрос, пока не могу найти, может кто сразу может сказать как задать индекс для поля программно ?

добавлено : и еще как поймать момент не нажатия на заголовок столбца ? OnColEnter - не годится, нужно отлавливать момент именно нажатия на заголовок...

Сообщение отредактировано: klem4 - 11.10.2005 17:50


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
klem4
сообщение 11.10.2005 18:15
Сообщение #4


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Таак, для первого вроде нашел, но какая-то лажа sad.gif В OnCreate формы добавил :



Table1.IndexDefs.Clear;
Table1.IndexDefs.Add('Age', 'Age', [ixPrimary, ixUnique]);


первый параметр на солько я понял - имя индекса, второй - имя поля ...

но при попытке установить переустановить индекс :


procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.IndexName := 'age';
end;



выдает :
Index dose not exist
Index : age

sad.gif(((((


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Atos
сообщение 14.10.2005 6:12
Сообщение #5


Прогрессор
****

Группа: Модераторы
Сообщений: 602
Пол: Мужской
Реальное имя: Михаил

Репутация: -  9  +


Насколько я понял из Фаронова, простопереименовать индекс нельзя - IndexFieldsName автоматически затирается; его можно только сменить
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 18.06.2025 10:14
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"