Форум: "Базы";
Поиск по всему сайту: 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.72 MB
Время: 0.045 c
3-79292           Guest.                2002-01-31 12:36  2002.02.25  
Params в Query


14-79456          StelZ                 2002-01-04 20:47  2002.02.25  
Help ака справка


3-79265           DmitryB               2002-01-31 00:17  2002.02.25  
Как создать простейшую таблицу


1-79348           метрА                 2002-02-06 11:51  2002.02.25  
Печать большого отчета в Quick Report


1-79311           Yaro                  2002-02-07 11:59  2002.02.25  
Установка обработчика событий