Форум программистов [Powered by Invision Power Board]

Код


//-----------------------------------------------
//Сортировка по lookup полю с подстановкой
//-----------------------------------------------
procedure SortWithLookUp(var Grid:TDBGridEh;var DS:TADOQuery; FName,FLookUp: Array of String);
var i,j    :Integer;
    si,sj  :String;
    Actived: Boolean;
begin
  si := '';
  sj := '';
  for i := 0 to Grid.SortMarkedColumns.Count-1 do                         //цикл по всем сортируемым полям
    begin
      sj := Grid.SortMarkedColumns[i].FieldName;                           //получить имя поля
      for j := 0 to Length(FName)-1 do                                            //цикл по всем имеющимся lookup полям
        if Grid.SortMarkedColumns[i].FieldName = FName[j] then       //если это имя есть в списке заменяемых полей
        sj := FLookUp[j];                                                                 //то заменить
      si:= si + sj;                                                                           //добавить получившееся значение к строке
      if Grid.SortMarkedColumns[i].Title.SortMarker = smUpEh then   //добавит предикат в зависимости от направления сортировки
      si := si + ' DESC , '
      else
      si := si + ', ';
    end;
  if si <> '' then si := ' ORDER BY ' + Copy(si,1,Length(si)-2);  //сформировать строку сортировки
  Actived := DS.Active;
  DS.SQL.Strings[DS.SQL.Count-1] := si;                                //добавить ее в качестве последней в SQL запрос
  if Actived then                                                                     //переоткрыть НД
  begin                                                                                  //что бы работало через strings[] строки изначально должны быть
    DS.Close;                                                                         //добавленны в SQL запрос процедурой ADOQuery.SQL.Add
    DS.Open;
  end;
  end;

Код


    ConsumerT.SQL.Clear;
    ConsumerT.SQL.Add('SELECT Consumer.*, Consumer_Type.*, Eye_color.*, Hair_color.* ');
    ConsumerT.SQL.Add('FROM Hair_color ');
    ConsumerT.SQL.Add('RIGHT JOIN (Eye_color ');
    ConsumerT.SQL.Add('RIGHT JOIN (Consumer_Type ');
    ConsumerT.SQL.Add('RIGHT JOIN Consumer ');
    ConsumerT.SQL.Add('ON Consumer_Type.Key = Consumer.Link_Consumer_Typ) ');
    ConsumerT.SQL.Add('ON Eye_color.Key = Consumer.Link_Eye_color) ');
    ConsumerT.SQL.Add('ON Hair_color.Key = Consumer.Link_Hair_color ');
    ConsumerT.SQL.Add('ORDER BY Consumer.Name1');
    ConsumerT.Open;
    ConsumerT.Properties['Unique Table'].Value:= 'Consumer';