Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Сортировка в dbgrideh с помощью sql запроса??????  (Прочитано 8225 раз)
0 Пользователей и 1 Гость смотрят эту тему.
zimmion
Гость
« : 04-03-2008 08:15 » 

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

Код:
procedure TForm_Contrag.DBGridEh1TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
if DBGridEh1.???????????????????? then
  begin
  with DM1.Query do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT *');
      SQL.Add('FROM jur');
      SQL.Add('ORDER BY j_id');
      Open;
    end;
  end;

if DBGridEh1.???????????????????? then
  begin
    with DM1.Query do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT *');
      SQL.Add('FROM jur');
      SQL.Add('ORDER BY j_kod');
      Open;
    end;
  end;
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 04-03-2008 10:58 » 

zimmion, догадаться, видимо, чрезвычайно сложно, уж не говоря о хелпах? Параметр ACol.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
zimmion
Гость
« Ответ #2 : 04-03-2008 12:15 » 

Как один из вариантов, моно сделать следующий запрос по клику:

Код:
procedure TForm_Contrag.DBGridEh1TitleBtnClick(Sender: TObject;     
  ACol: Integer; Column: TColumnEh);     
begin     
  with DM1.Query do     
    begin     
      Close;     
      SQL.Clear;     
      SQL.Add('SELECT *');     
      SQL.Add('FROM jur');     
      SQL.Add('ORDER BY '+Column.FieldName);     
      Open;     
    end;     
  end;
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #3 : 04-03-2008 13:13 » new

Или метод Sort, если он есть у этой таблички. Не известно, что быстрее будет.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines