DBGrid/DataSet не может сортировать согласно SQL заявление, установленного в CommandText

Question

Я использую следующие в моей CommandText собственности DataSet Я использую:

SELECT * 
FROM table_name 
ORDER BY FIELD(priority, 'urgent', 'normal'), 
     FIELD(state, 'wait', 'executed', 'done') 

Он должен сортировать данные я отображающее в DBGrid, подключенного к этой DataSet, как это:

1. 1. Строки, содержащие urgent в priority столбец должен запустите список DBGrid.
   2. Затем список должен продолжать с теми, помеченными как normal в priority колонки
2. 1. следует, отмеченным как wait в state колонки,
   2. следует, отмеченным как executed в колонке state,
   3. и, наконец, список заканчивается на отметках done в столбце state.

Но это не так, а на самом деле это вид делает, но это на самом деле наоборот. Вот быстрое видео, которое я сделал, чтобы показать вам, Что происходит, может быть, вы можете получить более четкое представление таким образом:

Video of what's happening

Я предполагаю, что это из-за либо ID column я использую или Date column, но если да, я понятия не имею, как и почему.

Это как эти 2 колонки выглядят как/настроены:

• ID столбец устанавливается в качестве начальной и Unique и AUTO_INCREMENT - это все, нет индекса или любой из других вариантов Если это не те 2 столбца проблемы, то, возможно, DBGrid?

Я использую RAD Studio 10 Сиэтл, DBEXPRESS компоненты (TSimpleDataSet и т.д.) и БД MySQL

Любые мысли о том, как это исправить? благодаря!

Answer 1

Вы делаете жизнь излишне трудной для себя, идя так, как вы.

Нет необходимости, чтобы сервер выполнял сортировку (с помощью предложения ORDER BY, и, возможно, лучше выполнять сортировку на клиенте, а не на сервере, поскольку клиент обычно имеет вычислительную мощность, чтобы сэкономить, тогда как сервер не может.

Итак, это мой Рекомендованный способ идти об этом:

1. Отбросьте ORDER BY с вашего SQL и просто сделать ОТБОРНЫЙ * [...].

2. Замените свой SimpleDataSet на ClientDataSet и определите на нем постоянные TFields. Причина этого изменения заключается в том, чтобы создать два постоянных поля типа fkInternalCalc.

3. В редакторе TFields в Object Inspector определите два поля fkInternalCalc, которые называются PriorityCode и StateCode.

4. Задайте свойство вашего набора данных IndexFieldNames на 'PriorityCode; StateCode'.

5. В событии OnCalcFields вашего набора данных вычислите значения для PriorityCode и StateCode, которые предоставят порядок сортировки, который вы хотите иметь в строках данных.

Что-то вроде:

procedure TForm1.ClientDataSet1CalcFields(DataSet: TDataSet); 
var 
    S : String; 
    PriorityCodeField, 
    StateCodeField : TField; 
    iValue : Integer; 
begin 
    PriorityCodeField := ClientDataset1.FieldByName('PriorityCode'); 
    StateCodeField := ClientDataset1.FieldByName('StateCode'); 
    S := ClientDataset1.FieldByName('Priority').AsString; 
    if S = 'urgent' then 
    iValue := 1 
    else 
    if S = 'normal' then 
     iValue := 2 
    else 
     iValue := 999; 
    PriorityCodeField.AsInteger := iValue; 

    S := ClientDataset1.FieldByName('State').AsString; 
    if S = 'wait' then 
    iValue := 1 
    else 
    if S = 'executed' then 
     iValue := 2 
    else 
     if S = 'done' then 
     iValue := 3 
     else 
     iValue := 999; 
    StateCodeField.AsInteger := iValue; 

end; 

На самом деле, было бы лучше (быстрее, меньше накладных расходов), если вы не использовать FieldByName и использовать только те поля, которые поля, создаваемые редактором Tfields ОИ, так как они будут автоматически привязаны к полям данных ClientDataSet при его открытии.

Btw, полезно иметь в виду, что хотя TClientDataSet не могут быть отсортированы по полю, определенной в редакторе TFields в Calculated, он может быть отсортированы по InternalCalc поле.