Нужен совет. Как правильнее сделать? (Page 1 of 2)

Привет Andrei, K245,
Другой вариант - использовать tablegrid (вместо таблицы).
Это уменьшает количество обращений к базе данных, а также дает дополнительную возможность фильтрации таблицы и возможности вычислять разницу между двумя последними строками отфильтрованной tablegrid.
С Уважением,
Дерек.
(с гугл переводчиком - извиняюсь!)

Дабы не плодить темы задам возникший вопрос в данной теме.
Не получается объявить переменную из TableGrid по которой дальше нужно делать SQL запрос.

Есть TableGrid в который выводится id всех записей таблицы print.
Не получается:
1) Объявить переменную idprint - соответственно значение id из таблицы print для выделенной строки в TableGrid;
В моем скрипте
procedure FrmOth_OnShow (Sender: TObject; Action: string);
begin
  idPrint := SQLExecute... (дальше перепробованная мною чушня)
end:
2) после в кнопке Button4 выполнить SQL запрос: select * from sch where id_print = idprint (или (idprint) или 'idprint')...

Заранее спасибо.

1)Запомнить из Grida id выделенной записи из таблицы print;
2)Далее этот id загнать в переменную idprint для последующих selectов;
3)Синтаксис написания SQL запроса простого selecta.
например рабочий  select * from sch where id_print = (1), только за место id=1 из таблицы print нужно вставить значение  созданной переменной print

Дмитрий спасибо!!! Работает!!!

У вас уже написан SQL запрос с использованием join, он не работает на MySQL?

И снова синтаксис...

Как правильно написать условия >=  <=
' where b.id = '+ IntToStr(idprint) and (a.data >= {DateTimePicker3}) and (a.data <= {DateTimePicker4});

Если в скрипте то курсор ошибки становится перед >=
Если в SQL запросе через форму, то ошибка во вложении

Здравствуйте.
Отправил проект на мыло support@drive-software.com

Не работает в скриптах закомментированная строчка.
Как правильно написать?

FrmSch.Button3.dbSQL := 'select distinct d.name, e.otdel, b.kab, a.sch, a.data, c.priznzam '+
                                     ' from sch a  '+
                                     ' join print b on a.id_print=b.id '+
                                     ' join priznzam c on a.id_priznzam=c.id  '+
                                     ' join mod_print d on b.id_mod_print=d.id   '+
                                     ' join otd e on b.id_otd=e.id '+
                                     ' where b.id = '+ inttostr (idprint);
                                     //' order by a.sch DESC '+
      FrmSch.Button3.Click;

Не совсем так.
Проект отправил на эл адрес.
В выполнении запроса Button SQL
select distinct d.name, e.otdel, b.kab, a.sch, a.data, c.priznzam
from sch a
join print b on a.id_print=b.id
join priznzam c on a.id_priznzam=c.id
join mod_print d on b.id_mod_print=d.id
join otd e on b.id_otd=e.id 
where b.id = '+ inttostr (idprint)
order by a.sch DESC   
Ошибок нет!!! Сортировка работает.

А вот вкладка в MVD "Скрипты" процедура работает только без закомментированой строки.
FrmSch.Button3.dbSQL := 'select distinct d.name, e.otdel, b.kab, a.sch, a.data, c.priznzam '+
                                     ' from sch a  '+
                                     ' join print b on a.id_print=b.id '+
                                     ' join priznzam c on a.id_priznzam=c.id  '+
                                     ' join mod_print d on b.id_mod_print=d.id   '+
                                     ' join otd e on b.id_otd=e.id '+
                                     ' where b.id = '+ inttostr (idprint);
                                     //' order by a.sch DESC '+
      FrmSch.Button3.Click;
Как только снимаю комментарий - Проверка краснит (курсор становится в начале строки ' order by a.sch DESC '+). Пробовал по разному написать . Проблема в синтаксисе.