Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];

Вниз

Добавление столбцов к гриду в On-Line   Найти похожие ветки 

 
me2   (2003-01-29 12:33) [0]

Есть грид. Я хочу в On-Linе добавить к нему поля, а затем привязать к ним поля SQL-запроса. Делаю так:
for i := 1 to MaterialFieldCount do
grdDetails.Columns.Add;

DM.MainDM.qryGoods.Close;
DM.MainDM.qryGoods.Params[0].AsString := Node.Text;
DM.MainDM.DataSource.DataSet := DM.MainDM.qryGoods;
DM.MainDM.qryGoods.Open;

grdDetails.Columns[0].FieldName := grdDetails.DataSource.DataSet["Good_Name"];
grdDetails.Columns[1].FieldName := grdDetails.DataSource.DataSet["Serial_Num"];
grdDetails.Columns[2].FieldName := grdDetails.DataSource.DataSet["Quantity"];
grdDetails.Columns[3].FieldName := grdDetails.DataSource.DataSet["Count_Descr"];
grdDetails.Columns[4].FieldName := grdDetails.DataSource.DataSet["Price"];
grdDetails.Columns[5].FieldName := grdDetails.DataSource.DataSet["Firm_Name"];


Но в результате данные отображаются в заголовке полей таблицы. Подскажите, как мне правильно поступить?


 
stone   (2003-01-29 12:36) [1]

В гриде вообще не устанавливай никаких столбцов. Он автоматически покажет все поля твоего датасета.


 
me2   (2003-01-29 12:46) [2]

Во-первых, он автоматически показывает все столбцы DataSet-а, а для отображения они мне все не нужны; во-вторых, мне нужно настраивать ширину столбца, его заголовок и т.д.


 
me2   (2003-01-29 12:50) [3]

Можно, конечно, отобразить все столбцы, затем удалить не нужные и выставить нужную ширину и заголовок, но хочеться пойти другим путем.


 
stone   (2003-01-29 12:53) [4]


> Во-первых, он автоматически показывает все столбцы DataSet-а,
> а для отображения они мне все не нужны;

Не все, а только те у которых Visible=true

> во-вторых, мне нужно настраивать ширину столбца, его заголовок
> и т.д.

У TField этих свойств пока никто не отменял


 
Delirium^.Tremens   (2003-01-29 12:53) [5]

Ты, наверно, забыл выйти в On-line, вот и не получается :-)


 
me2   (2003-01-29 12:56) [6]

2 Delirium^.Tremens © (29.01.03 12:53)
:-)))


 
Соловьев   (2003-01-29 12:58) [7]

2 me2
У тебя запрос всегда разное кол-во полей возвращает?


 
me2   (2003-01-29 13:16) [8]

У меня в зависимости от опций срабатывают разные запросы, отображая результат в один и тот же грид.
В принципе я уже сделал то, что хотел при помощи Visible, так что хочу получить ответ только ради интереса. Если у кого-то есть время, то можете ответить. Спасибо.


 
MsGuns   (2003-01-29 13:17) [9]

Screen.Cursor := crHourGlass;
- Выполнение запроса

- У датасета выставить нужные св-ва всем филдам (в частности, DisplayLabel и DisplayFormat для сумм, дробных чисел и т.д.

- Grid1.DataSource.DataSet := nil;
- Grid1.RebuildColumns; // Чистит все колонки
- Grid1.DataSource.DataSet := Query1;
- Grid1.RebuildColumns; // Создает все колонки
- прятанье в гриде не нужных колонок (Visible := false)
- присвоение нужных свойств заголовкам (цвет,шрифт)
- присвоение нужных значений ширины колонкам
Screen.Cursor := crDefault;

и делов-то куча;))


 
me2   (2003-01-29 16:26) [10]

2 MsGuns © (29.01.03 13:17)
Я именно так уже сделал. Спасибо.



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

Форум: "Базы";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.011 c
1-53073
Split_
2003-02-06 18:30
2003.02.17
Help! Нужна помощь со строками!


14-53163
Феликс
2003-01-30 21:02
2003.02.17
Знаю, что вопрос уже раз 100 обсуждался, но


1-52972
Skif
2003-02-10 09:18
2003.02.17
Сворачивание формы в трей.


14-53259
Sten
2003-01-29 22:44
2003.02.17
LMD for D7!!! Дурайкий вопрос но......


14-53173
samson
2003-02-03 07:13
2003.02.17
windows





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский