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

Вниз

Сортировка в DBGridEh   Найти похожие ветки 

 
3APA3A ©   (2004-08-25 23:23) [0]

Не знаю, в эту ветку или в "Базы", но
  Есть ли в DBGridEh встроенная сортировка, то есть шелкнул я по заголовку столбца - он отсортировал по этому столбцу и т.д.
  Само собой, я могу в самом запросе делать order by..., но интеерсно - можно ли без этого?


 
YurikGL ©   (2004-08-25 23:31) [1]

Обрабатываешь onclick и вперед.
Кстати, ИМХО контекстное меню удобнее реализовывать


 
YurikGL ©   (2004-08-25 23:32) [2]

http://delphimaster.net/view/3-1093442653/


 
jack128 ©   (2004-08-26 00:10) [3]

есть. см содержимое папки DataService


 
KSergey ©   (2004-08-26 07:56) [4]

Если компоненты доступа ADO - см. так же http://delphimaster.net/view/3-1093442653/


 
3APA3A ©   (2004-08-26 10:30) [5]

to YurikGL
   С этом обсуждении предполагается, что я использую FIBPlus. Но я использую IBX и у IBX нет метода DoSort()...
   Как быть?

 to jack128
   В смысле - папки DataService...


 
Роман Снегирев   (2004-08-27 12:50) [6]

а индекс использовать не судьба? или переопределить запрос (в смысле ORDER BY)?


 
Карелин Артем ©   (2004-08-27 13:00) [7]

Народ, не туда вас понесло.
uses EhLibIBX и все.

В крайнем случае вручную зовем
procedure ApplySortingForSQLBasedDataSet(Grid: TCustomDBGridEh; DataSet: TDataSet;
  UseFieldName: Boolean; IsReopen: Boolean);

 function DeleteStr(str: String; sunstr: String): String;
 var
   i: Integer;
 begin
   i := Pos(sunstr, str);
   if i <> 0 then
     Delete(str, i, Length(sunstr));
   Result := str;
 end;

var
 i, OrderLine: Integer;
 s: String;
 SQL: TStrings;
begin
 if not IsSQLBasedDataSet(DataSet, SQL) then
   raise Exception.Create(DataSet.ClassName + " is not SQL based dataset");

 s := "";
 for i := 0 to Grid.SortMarkedColumns.Count - 1 do
 begin
   if true
     then s := s + Grid.SortMarkedColumns[i].FieldName
     else s := s + IntToStr(Grid.SortMarkedColumns[i].Field.FieldNo);
   if Grid.SortMarkedColumns[i].Title.SortMarker = smUpEh
     then s := s + " DESC, "
     else s := s + ", ";
 end;

 if s <> "" then
   s := "ORDER BY " + Copy(s, 1, Length(s) - 2);

 OrderLine := -1;
 for i := 0 to SQL.Count - 1 do
   if UpperCase(Copy(SQL[i], 1, Length("ORDER BY"))) = "ORDER BY" then
   begin
     OrderLine := i;
     Break;
   end;
 if OrderLine = -1 then
 begin
   SQL.Add("");
   OrderLine := SQL.Count-1;
 end;

 SQL.Strings[OrderLine] := s;

 if IsReopen then
 begin
   DataSet.Close;
   DataSet.Open;
 end;
end;


 
jack128 ©   (2004-08-27 13:39) [8]

3APA3A ©   (26.08.04 10:30) [5]
to jack128
  В смысле - папки DataService

в этой папке {%EhLib_Root%}\DataService находится, в часности, вот этот юнит -
Карелин Артем ©   (27.08.04 13:00) [7]
uses EhLibIBX и все.



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

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

Наверх




Память: 0.46 MB
Время: 0.037 c
1-1094835977
Rimas
2004-09-10 21:06
2004.09.26
Свойства панели задач


14-1093712962
Piter
2004-08-28 21:09
2004.09.26
Забавно... учитесь, автовладельцы! :)


14-1094331717
Soft
2004-09-05 01:01
2004.09.26
Мир напоминает дорогу, заваленную граблями - одними и теми же.


11-1080626196
Новичёк
2004-03-30 09:56
2004.09.26
Написание сервиса NT с помощью KOL.


3-1093856343
Aleksandr.
2004-08-30 12:59
2004.09.26
Что означает свойство Locale у TDataSet?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский