Скачать: CL | DM;

DBGrid показено только несколько полей,а как другие поля таблицы   Найти похожие ветки 

← →
ceval   (2004-06-21 19:48) [0]

Добрый всем вечер!
Подскажите как решить такую задачу
Есть таблица выведена в DBGrid показено только несколько
полей как сделать чтобы принажатии кнопки "Доп инфо" в
отдельной форме выводились другие поля таблицы в DBtext

Я сделал отдельную форму и при таком коде у меня
нечего неполучилось:

procedure TFmain.InfoClick(Sender: TObject);
begin
Finfo.show;
end;
..........
procedure TFmain.N30Click(Sender: TObject);
begin
......

 if pos("Ddd",adotable1.FieldList.Text)<>0 then
    Finfo.DBText1.DataField:="Ddd"
 else
    Finfo.DBText1.DataField:="";
.....
end;
Зарание благодарен !

---

← →
Ceval   (2004-06-22 16:06) [1]

Так кто-нибудь может подсказать!???

---

← →
Соловьев ©   (2004-06-22 16:08) [2]

> нечего неполучилось:

подробнее можно?

>  if pos("Ddd",adotable1.FieldList.Text)<>0 then
>     Finfo.DBText1.DataField:="Ddd"
>  else
>     Finfo.DBText1.DataField:="";

я так смысла и не понял зачем этот код

---

← →
Rem   (2004-06-22 17:12) [3]

В основном DBGrid"е указать все поля. Для тех колонок, что пока не нужны - Visible := false. Плюс меню для изменения видимости колонок.

---

← →
Vlad ©   (2004-06-22 17:15) [4]

> Соловьев ©   (22.06.04 16:08) [2]

Оригинальный способ подключения контрола к полю DataSet ;-)

автору:
if adotable1.FieldList.IndexOf("Ddd") > -1 then
   Finfo.DBText1.DataField:="Ddd"
else
   Finfo.DBText1.DataField:="";

А вобще-то информации недостаточно.
Сказал бы конкретно что неполучается, т.е. ошибка возникает, если да то какая... итд.

---

← →
Соловьев ©   (2004-06-22 17:32) [5]

> Оригинальный способ подключения контрола к полю DataSet
> ;-)

действительно очень оригинально. :)

---

← →
Ceval   (2004-06-23 09:44) [6]

Суть в том что есть главная рабочия форма на ней лежит DBgrid
и есть таблица (поля Z X C V B N )в DBGrid например вывел Z X V  и дальше хочу  сделать чтобы принажатии кнопки "Доп инфо" появлялась модальноя форма в которой выводились другие поля таблицы Z B N в DBtext
 Проблема в том как это вывести в отдельную форму ??
p.s Просто если ложишь DBText на главную форму и пишешь такой код
if pos("X",adotable1.FieldList.Text)<>0 then
   DBText1.DataField:="X"
то все работает нормально

---

← →
Соловьев ©   (2004-06-23 09:58) [7]

> if pos("X",adotable1.FieldList.Text)<>0 then
>    DBText1.DataField:="X"

ЗАЧЕМ??? 5 нога, не кажется Вам?
А не проще просто подключить DBText.DataSourse = DBGrid.DataSourse,
DBText.DataField = Z В дизайне? и все. Откроете форму и будт там Ваши данные...

---

← →
Ceval   (2004-06-30 20:55) [8]

А как быть если по очереди открываешь разные таблицы и указываешь их программно

---

← →
Соловьев ©   (2004-07-01 09:43) [9]

> А как быть если по очереди открываешь разные таблицы и указываешь
> их программно

нормально, можно и так

---

← →
Ceval   (2004-07-05 20:07) [10]

>нормально, можно и так

впринципи можно и так но теперь у меня возникла другая проблема
    на  пишу так :
..... .. . . . .. .
if Fmain.DBGrid1.DataSource.DataSet.Active then
if   Fmain.ADOTable1.TableName="wedpk" then
 Dbtext1.DataSource:=Fmain.DataSource1;
  Dbtext2.DataSource:=Fmain.DataSource1;
.....
   ...
     ....
DBtext1.DataField:="Dnoln"; //начало действия
  DBtext2.DataField:="Dodn"; //окончания действия
Ну а если у меня этих DBTEXT 10 штук то так каждую прописывать?!
       А МОЖНО КАК-ТО ПЕРЕПИСАТЬ
что нибудь в таком виде < все DBtext>:=Fnaim.DataSource1;

---

← →
Соловьев ©   (2004-07-06 09:40) [11]

в цыкле проходишь по контролам, проверяешь их на принадлежность к классу TDBText и присваиваешь им нужный сорс.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: -0.978 c