Форум: "Базы";
Поиск по всему сайту: 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.016 c
6-79418           [TLS]Lord             2001-12-05 09:31  2002.02.25  
Что значит ошибка:


1-79378           tovSuhov              2002-02-08 16:36  2002.02.25  
ProgressBar в StatusBar`е...


6-79420           SemFLY                2001-12-02 01:14  2002.02.25  
Как удаленно приконектить диск, та как WNetConnectionDialog приконектит если доступ есть :-(


1-79319           petr                  2002-02-07 20:13  2002.02.25  
TreeView c CheckBox-ами около каждого элемента


14-79459          evgeg                 2002-01-08 00:19  2002.02.25  
перед Паскалем склоняю голову (с) Страуструп