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




Вниз

Господа Мастера, вопрос по Query... 


KMM   (2002-01-30 11:59) [0]

При работе со статическим запросом есть возможность задавать для полей Query требуемый формат (DisplayFormat).
Подскажите, пожалуйста, можно ли и если да, то как, задавать
формат в процессе выполнения программы для динамического запроса.
Заранее благодарю.



TSV   (2002-01-30 12:24) [1]

Создавать в run-time TField и/или его потомки. Ну, и назначать им DisplayFormat.

Удачи.



KMM   (2002-01-30 13:16) [2]

to TSV
Мда, тут я, признаться, полный профан.

Написал что-то типа:
procedure Myproc();
var F:TField;
begin
F:=TField.Create(self);
F:=MyQuery.Fields[1]; //MyQuery -это мой запрос,
end;

А дальше что? Или я вообще не так все делаю?
Был бы очень признателен за более подробное объяснение.



Johnmen   (2002-01-30 13:41) [3]

Попробуй : Query1.Fields.Add(F);



Johnmen   (2002-01-30 14:04) [4]

F:=TFloatField.Create(Self);
F.FieldName:="FieldName";
F.DataSet:=YourQuery;
F.DisplayFormat:="#,##0.00";
YourQuery.Fields.Add(F);
YourQuery.Open;

подробности опускаю, но это работает :)



KMM   (2002-01-30 14:25) [5]

Извиняюсь за назойливость, повторю вопрос:
В run-time формирую запрос
with MyQuery do
begin
Sql.Add("select shifr, num from mytable");
end;
здесь num - поле которому надо задать определенный формат
Я могу создать в run-time какое-то поле F, но не понимаю
как "присобачить" (извиняюсь, конечно) его к моему MyQuery,
чтобы это F соответствовало num и как потом добраться до
свойства DisplayFormat этого F.



KMM   (2002-01-30 14:29) [6]

to Johnmen
Sorry, моя последняя реплика (14:45) была написана и послана до
Вашей последней (14:04). Сейчас попробую сделать как Вы советуете.



Johnmen   (2002-01-30 14:32) [7]

var F : TFloatField; // если поле Float

...

F:=TFloatField.Create(Self);
F.FieldName:="num";
F.DataSet:=MyQuery;
F.DisplayFormat:="#,##0.00";
MyQuery.Fields.Add(F);

MyQuery.Open;

Перед SQL.Add... не забывай SQL.Clear и MyQuery.Fields.Remove(F)



Johnmen   (2002-01-30 14:34) [8]

я думаю, что можно просто на ТЫ - так проще...



KMM   (2002-01-30 14:42) [9]

to TSV - Спасибо.
to Johnmen - Огромное спасибо! Работает!




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




Наверх





Память: 0.73 MB
Время: 0.025 c
1-79321           vinni2000             2002-02-07 19:10  2002.02.25  
Нужен удобный компонент для выбора Каталога


14-79442          sudiv                 2002-01-05 16:07  2002.02.25  
Нужна схема к Smart UPS 600? Поможите если есть у кого?


14-79437          XeN                   2002-01-06 01:46  2002.02.25  
command line


7-79476           volph                 2001-11-13 15:44  2002.02.25  
Как вывести ролик на весь экран в TMediaPlayer????


1-79338           ЕвгенийА              2002-02-08 01:20  2002.02.25  
Вопрос по формам...