Drag & Drop в DBGrid

[Антон Ю.Б.]

Mishechka, для Firebird можно написать такую вот хранимую процедуру:

CREATE OR ALTER PROCEDURE UP_ORDER (ID Integer,
ORD Integer)
AS
declare variable O Integer;
declare variable I Integer;
begin
select first 1 ID_,ORDER_ from MYTABLE where (ORDER_<:ORD) into I,O;
if (I is not NULL) then
begin
UPDATE MYTABLE set ORDER_=:ORD where ID_=:I;
UPDATE MYTABLE set ORDER_=:O where ID_=:ID;
end
end

дергать ее по нажатию кнопки вверх, делать коммит транзакции и обновлять запрос, отображаемый в гриде. На кнопку вниз - аналогично. Если у Вас БД без хранимых процедур, то логику с этими тремя запросами несложно реализовать и на стороне клиента.

[Mishechka]

У меня локальная БД Парадокс 7

Сообщение от mihali4

Своих мыслей нет?

Взаимно. Я хоть только начал осваивать Delphi и не скрываю того, что новичок в этом деле. А вот Вашего решения моего вопроса я так и не узрел. Спасибо.

У меня Paradox, BDE.
Мне нужно создать условие:
если курсор находится на первой записи, тогда...
если курсор находится на последней записи тогда...

В таблице есть сортировочное поле, на форме две кнопки "Вверх" и "Вниз", с их помощью я изменяю значения в этом поле и тем самым перемещаю записи. При достижении курсором первой записи, кнопка "Вверх" становится недоступной (UpBtn.Enabled := RecNo <> 1, а вот с последней записью проблема:

DownBtn.Enabled := not Eof; - неработает.
DownBtn.Enabled := RecNo <> RecordCount; - не работает.
DownBtn.Enabled := RecNo < RecordCount; - не работает.

Как быть?

[Stilet]

А вот Вашего решения моего вопроса я так и не узрел

В своем посте Михалыч тебе четко ответил что сам DBGrid не умеет модифицировать набор никоим образом и даже визуально. Он показывает записи строго в том порядке в каком они пришли от запроса.
Если нужно их тягать тебе либо нужно менять местами тасканые записи либо применять индексы.

[Mishechka]

Сообщение от Stilet

Если нужно их тягать тебе либо нужно менять местами тасканые записи либо применять индексы.

Ну я же всё так и делаю:
поле у меня - индексированное, каждой записи присвоено значение 1,2...10, я меняю местами эти значения и записи перемещаются, но не в таблице, а только в DBGrid-е, что мне и нужно. Например, я 5 меняю на 6, потом 6 меняю на 5 и запись смещается. В таблице расположение записей не меняется, это мне не нужно.

[Stilet]

В таблице расположение записей не меняется, это мне не нужно

А зачем тебе менять положение записи физически??!! Ты что мороку хочеш на пятую точку нажить? Именно для таких задач и придумали индексирование и ключи.
Не ну в прочем если хочеш проблем можеш считывать всю запись, удалять ее а потом вставлять в нужно место но это плохой стиль, уж поверь мне - я уже такое прохавал на реальном производстве.

[Mishechka]

Сообщение от Stilet

А зачем тебе менять положение записи физически??!!

Ты не понял, я не хочу менять положение записи физически, мне достаточно того, что она сдвигается в гриде и работать стало удобно. У меня всё работает и всё меня устраивает. Проблема в том, что когда курсор перемещается на первую запись, то кнопка "Вверх" - тухнет, а когда перемещается на последнюю запись, то кнопка "Вниз" - не тухнет. Вот и всё. Я не могу создать условие: если текущая запись последняя, тогда (DownBtn.Enabled := False. Как узнать, что запись последняя?

[TOJluK]

Сообщение от Mishechka

Как узнать, что запись последняя?

If Table1.Eof = True then

[Stilet]

If Table1.Bof then //Запись первая

[Mishechka]

If Table1.Eof = True then
If Table1.Bof then //Запись первая

Ребята, неужели вы думаете, что я всё это не проверил?
Дело в том, что Bof срабатывает на первой записи, тут проблем нет.
Проблема в том, что Eof срабатывает после перехода за последнюю запись, а не на ней, т.е. когда курсор стоит уже за пределами диапазона записей.

[mihali4]

Table1.Last;
У вас тоже хэлп не подключен?

Сообщение от Mishechka

Проблема в том, что Eof срабатывает после перехода за последнюю запись, а не на ней, т.е. когда курсор стоит уже за пределами диапазона записей.

Что за бред?
Сделайте

Table1.Last;
Table1.Next;

На какой записи будет стоять курсор? На последней. А не "за пределами диапазона записей"...