Посоветуйте компонент для DB-визуализации

← →
IMHO © (2007-06-08 23:03) [0]

Господа, посоветуйте компонент для Delphi (не ниже 5-й версии), который выводил бы данные не в табличном виде (как TDBGrid), а в виде формы (на одну запись).
То есть бросил его на форму, подключил к таблице, у которой 75 (или 175) полей, и компонент вывел бы значения всех полей для текущей записи.

Спасибо.

← →
Правильный Вася (2007-06-08 23:07) [1]

в столбик?

← →
IMHO © (2007-06-08 23:14) [2]

Да, в столбик:
название поле1 - значения поля1
название поле2 - значения поля2
...
название поле99 - значения поля99
название поле100 - значения поля100

← →
Жуков Олег (2007-06-08 23:26) [3]

TValueEditor. Доработать напильником.

← →
Углук © (2007-06-09 01:15) [4]

QuickReport

← →
Германн © (2007-06-09 01:21) [5]

> подключил к таблице, у которой 75 (или 175) полей

Нет слов не принадлежащих к "падонкафскому" слэнгу, а я его не употребляю.
:-)

← →
IMHO © (2007-06-09 01:48) [6]

> Германн © (09.06.07 01:21) [5]

Переведи, любитель тещи.

← →
IMHO © (2007-06-09 01:51) [7]

> Углук © (09.06.07 01:15) [4]
>
> QuickReport

Думать будем или как?

QuickReport - это средство отчета, а нужно средство визуализации (см. вкладку DB Controls)

← →
IMHO © (2007-06-09 01:53) [8]

Точнее, Data Controls.

← →
Германн © (2007-06-09 02:07) [9]

> IMHO © (09.06.07 01:48) [6]
>
>
> > Германн © (09.06.07 01:21) [5]
>
>
> Переведи, любитель тещи.
>

Какой @#$%^ придумал такую @#$%^&*( базы данных?
1. Идиот
2. Структуру

Что получаем - с тем и работаем, звиняйте.

> IMHO © (09.06.07 02:10) [10]
>
> Что получаем - с тем и работаем, звиняйте.
>

Тогда сочувствую. Но не более того, уж извини. :)
Даже у Torry врядли такой компонент найдётся.

P.S. Извращения - они и есть извращения, поскольку ни один человек, находясь в здравом смысле, таким путём не пойдёт!

← →
ShaggyDoc (2007-06-09 07:19) [12]

Такой компонент есть в InfoPower.

Называется TwwRecordViewPanel. Есть и диалог с этой панелью и со множеством вариантов оформления.

← →
Fooflou (2007-06-09 09:38) [13]

TDataSet.AfterOpen:

var i: integer; Edt: TDBEdit; Lbl: TLabel; begin for i := 0 to DataSet.Fields.Count - 1 do begin Lbl := TLabel.Create(Self); Lbl.Parent := ScrollBox; Lbl.SetBounds(10, i * 24 + 4, 180, Lbl.Height); Lbl.Caption := DataSet.Fields[i].FieldName; Edt := TDBEdit.Create(Self); Edt.Parent := ScrollBox; Edt.SetBounds(200, i * 24 + 4, ScrollBox.Width - Lbl.Width - 30, Edt.Height); Edt.DataField := DataSet.Fields[i].FieldName; Edt.DataSource := DataSource; end; end;

TDataSet.BeforeClose:

while (ScrollBox.ControlCount > 0) do ScrollBox.Controls[0].Free;

Посоветуйте компонент для DB-визуализации Найти похожие ветки