| Метод
SetOrder (Integer) : Integer |
Top Previous Next |
| Назначение
|
| Установка
порядка сортировки логической таблицы. |
| Описание
|
| function
SetOrder (OrderN : Integer) : Integer; |
| Параметры
|
| OrderN
: Integer - номер порядка сортировки. |
| Замечание
|
| Префикс
идентификаторов для порядков сортировки - "ti".
|
| Пример
|
| В
примере реализована сортировка списка сотрудников по их порядковому
номеру и алфавиту. Варианты сортировки переключаются из интерфейса
по командам cmNum и cmName. |
| Interface
Example1; |
| create view
|
| as select *
from Employee |
| order ByName by
Name |
| order ByNum by
Num; |
| browse
ViewEmployee; |
| show at(,,,10);
|
| Fields
|
| Num ' Номер ';
|
| Name ' ФИО ';
|
| end;
|
| screen
ScEmployee; |
| show at(,11,,);
|
| buttons
|
| cmName;
|
| cmNum;
|
| <<
|
| <.Cортировать
по именам.><.Сортировать по номеру .> |
| >>
|
| end;
|
| HandleEvent
|
| cmName: {
setorder(tiByName); CallToNeighbours(cmSetPos,#Employee); }
|
| cmNum: {
setorder(tiByNum); CallToNeighbours(cmSetPos,#Employee); }
|
| cmUpDaterecord:
UpDate current Employee; |
| cmDeleterecord:
Delete current Employee; |
| cmInsertrecord:
Insert current Employee; |
| end;
|
| end.
|