Изменить порядок записей в ADOTable

[game_Racer]

Есть ADOTable, к которой подключен DBGrid. Хочу добавить две кнопочки переместить наверх и переместить вниз. Чтобы можно было изменять порядок расположения записей в таблице. Ничего кроме как 2 запроса на выборку по ключевому полю+2 набора переменных+3 запроса на обновление в голову не приходит. Копался в свойствах ADOTable, ничего кроме как переместить фокус сделать не смог. Может есть все же какой-то более простой способ?

[Аватар]

Иметь в таблице поле "номер по порядку" и изменять его в двух соседних записях

[game_Racer]

Сообщение от Аватар

Иметь в таблице поле "номер по порядку" и изменять его в двух соседних записях

Можно. Но в таблице всего два поля. Это будет не сильно отличаться от моей конструкции. К тому же если записи будут удаляться, то номер будет не совсем по порядку.

[Аватар]

Если номер не использовать для отображения, то и не важно наличие дырок. И в ADOTable индекс по этому полю сделать. Если номер п/п не ключевое поле, то при использовании ADOTable необходимость использовать SQL отпадает. Просто Edit и Post

[game_Racer]

Спасибо. Сделал по Вашему совету.

//переместить ниже
procedure TForm2.btn11Click(Sender: TObject);
var
i1,i2,r:Integer;
begin
r:=Form2.tbl3.RecNo;
if not(r=Form2.tbl3.RecordCount) then begin
i1:=Form2.tbl3.FieldValues['inc'];
Form2.tbl3.Edit;
Form2.tbl3.FieldValues['inc']:=-1;
Form2.tbl3.Post;
Form2.tbl3.RecNo:=r+1;
i2:=Form2.tbl3.FieldValues['inc'];
Form2.tbl3.Edit;
Form2.tbl3.FieldValues['inc']:=i1;
Form2.tbl3.Post;
Form2.tbl3.first;
Form2.tbl3.Edit;
Form2.tbl3.FieldValues['inc']:=i2;
Form2.tbl3.Post;
Form2.tbl3.RecNo:=r+1;
end;
end;

//переместить выше
procedure TForm2.btn12Click(Sender: TObject);
var
i1,i2,r:Integer;
begin
r:=Form2.tbl3.RecNo;
if not(r=1) then begin
i1:=Form2.tbl3.FieldValues['inc'];
Form2.tbl3.Edit;
Form2.tbl3.FieldValues['inc']:=-1;
Form2.tbl3.Post;
Form2.tbl3.RecNo:=r;
i2:=Form2.tbl3.FieldValues['inc'];
Form2.tbl3.Edit;
Form2.tbl3.FieldValues['inc']:=i1;
Form2.tbl3.Post;
Form2.tbl3.first;
Form2.tbl3.Edit;
Form2.tbl3.FieldValues['inc']:=i2;
Form2.tbl3.Post;
Form2.tbl3.RecNo:=r-1;
end;
end;

Все работает

[Аватар]

Если есть уникальный идентификатор лучше в данном случае RecNo не использовать, а запоминать значение идентификатора и переход по Locate

[vovk]

Сообщение от Аватар

Если есть уникальный идентификатор лучше в данном случае RecNo не использовать, а запоминать значение идентификатора и переход по Locate

RecNo лучше вообще не использовать, очень протевоечивая штука. Рискуете получить непредсказуемый результат при использовании разных технологий.
По крайней мере в дельфи 7 так было, после пары раз недокументированного поведения RecNo я просто перестал его использовать.

[Аватар]

RecNo лучше вообще не использовать, очень протевоечивая штука

Не совсем уж так плохо. Пока DataSet не правится, не меняется индекс и фильтр нормально он работает. При изменении состояния да, RecNo не подходит. И еще у него особнность при использовании SetRange у ClientDataSet есть, точно не помню, кажется начало нумерации не такое, как обычно

[game_Racer]

А вот с Locate у меня не получается разобраться (мало опыта).
Написал так:

procedure TForm2.btn12Click(Sender: TObject);
var
i1,i2:Integer;
nm1,nm2:string;
begin
if not(Form2.tbl3.RecNo=1) then begin
nm1:=Form2.tbl3.FieldValues['nm'];
i1:=Form2.tbl3.FieldValues['inc'];
Form2.tbl3.Prior;
nm2:=Form2.tbl3.FieldValues['nm'];
i2:=Form2.tbl3.FieldValues['inc'];
Form2.tbl3.Edit;
Form2.tbl3.FieldValues['inc']:=-1;
Form2.tbl3.Post;
Form2.tbl3.Locate('inc',nm1,[]);
Form2.tbl3.Edit;
Form2.tbl3.FieldValues['inc']:=i2;
Form2.tbl3.Post;
Form2.tbl3.Locate('inc',nm2,[]);
Form2.tbl3.Edit;
Form2.tbl3.FieldValues['inc']:=i1;
Form2.tbl3.Post;
Form2.tbl3.Locate('inc',nm1,[]);
end;
end;

получаю:

"Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом"

Пробовал в писать Locate('inc',nm1,[loCaseInsensitive]); Результат тот же.

[Аватар]

Значение чего сохраняете и по какому полю ищете?

nm1:=Form2.tbl3.FieldValues['nm'];
...
Form2.tbl3.Locate('inc',nm1,[]);