| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

сотрировка [D6, dBase, FoxPro]

rosl ©   (2003-09-08 03:40:00) 

Уважаемые МАСТЕРА!!!
Помогите разобраться.
Использую DBGridEh. Как добраться до sortmarker.
Оptioneh.dghavtosort = true; (sortmarker меняется автоматически при нажатии мышью)
В событии ontitltclick пишу:
Module_uv.Q_kr.Close;
Module_uv.Q_kr.SQL[4]:="";
Module_uv.Q_kr.SQL[4]:="order by " + column.ImeName;
Далее нужно положение sortmarker, чтоб программа знала как сортировать (по возрастанию или по убыванию)
if form2.DBGridEh2.Columns__?????????????????
Module_uv.Q_kr.SQL[5]:="desc";
Module_uv.Q_kr.Open;

---

rosl   (2003-09-08 08:54:00) [1]

Все огромное спасибо спасибо за ответы, разобрался сам:

Module_uv.Q_kr.Close;
Module_uv.Q_kr.SQL[4]:="";
Module_uv.Q_kr.SQL[4]:="order by " + column.ImeName;
if Column.Title.SortMarker = smDownEh then
Module_uv.Q_kr.SQL[5]:="desc";
if Column.Title.SortMarker = smUpEh then
Module_uv.Q_kr.SQL[5]:="";
if Column.Title.SortMarker = smNoneEh then
Module_uv.Q_kr.SQL[5]:="";
Module_uv.Q_kr.Open;

---

Zacho   (2003-09-08 08:50:00) [2]

Во-первых, нужно не OnTitleClick, а OnSortMarkingChanged.
Во-вторых, вот кусок кода, формирующий строку с order by, думаю разберешься.
procedure TfmMOL.dbgMOLSortMarkingChanged(Sender: TObject);
var
i:integer;
OrderList:string;
begin
OrderList:=" ";
for i:=0 to (Sender as TDBGridEh).SortMarkedColumns.Count-1 do
begin
OrderList:=OrderList+", "+(Sender as TDBGridEh).SortMarkedColumns.Items[i].FieldName;
if (Sender as TDBGridEh).SortMarkedColumns.Items[i].Title.SortMarker=smDownEh then
OrderList:=OrderList+" ASC"
else OrderList:=OrderList+" DESC";
end;
delete(OrderList,2,1);
OrderList:="ORDER BY "+OrderList;

---

Карелин Артем   (2003-09-08 08:48:00) [3]

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 UseFieldName
then s := s + Grid.SortMarkedColumns[i].FieldNameelse 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;

---

Наверх