Прошу помощи знатоков SQL (Page 1 of 3)

Проект прилагаю. Основных не решённых вопросов пока четыре:
1)    frmMain.TableGrid1
Enter и DoubleClik почему-то открывают форму редактирования, хотя прописан запрет и этого не должно быть. Т.е. должна открываться форма frmViewDetails, а редактирование только по кнопке редактирования.
2)    procedure frmMain_TableGrid1_OnChange
Здесь к раскраске ячеек со значением НА КОНТРОЛЕ хотелось бы добавить красный цвет этих ячеек при условии, что или сама задача должна быть выполнена сегодня, или в подчинённой таблице у этой задачи есть хотя бы одна подзадача, срок исполнения которой истекает именно сегодня. Т.е. сразу же после запуска проекта в таблице главной формы красным цветом выделены актуальные на сегодня задачи, розовым (как сейчас) – остальные со статусом НА КОНТРОЛЕ.
3)    frmMain .DateTimePicker3 и кнопка frmMain .ButtonSQL
Почти то же, что и пункт 2, т.е. показ в гриде  только тех задач, у которых хотя бы одна подзадача должна быть выполнена в установленный в DateTimePicker срок. Кнопку планирую спрятать,  а клик по ней навесить на кнопку поиска.
4)    frmAddTask.CheckBox1,  frmAddTask.CheckBox2 и frmAddDetail.CheckBox1 по ходу изменил на три состояния, следовательно возникла необходимость изменить вычисляемые поля statusControl2 (tasks), statusYes(tasks) и statusControl(details), т.к. скрипты  в них были написаны для чекбоксов на два состояния. Т.е. добавить в ячейку грида помимо НА КОНТРОЛЕ ещё и ВЫПОЛНЕНО.

У меня тоже, ПОКА НЕ ЗАЛОГИНИШЬСЯ!

СПАСИБО!!!!!!

kunar80
Попробуйте так

procedure frmMain_TableGrid1_OnChange (Sender: string);
/////// Цвет фона ячейки грида при условии /////////////
 var
       id,i,c: integer;
       s,z: string;
begin


         c := frmMain.TableGrid1.RowCount - 1;
         for i := 0 to c do
         begin
             id := frmMain.TableGrid1.dbIndexToID(i);
             if frmMain.TableGrid1.Cells[3,i] = 'НА КОНТРОЛЕ' then
                 if (SQLExecute('SELECT COUNT(*) FROM details WHERE date(dateCompletion)=date(''now'') AND id_tasks='+IntToStr(id)) > 0) or (frmMain.TableGrid1.Cells[2,i]=DateToStr(now)) then
                     frmMain.TableGrid1.Cell[3,i].Color := clRed else
                         frmMain.TableGrid1.Cell[3,i].Color := $00BBBBFF;
         end;
 end;

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

Form1.TableGrid1.dbLimit := 500;

Подскажите пожалуйста, что неправильно в запросе

DELETE
abonents.id_organization,
abonentsid.id_department,
abonents.id_otdel,
abonents.id_room,
abonents.id_position,
abonents.person,
abonents.phoneWork,
abonents.phoneMobile,
abonents.phoneHome,
abonents.phoneOther,
abonents.FAX,
abonents.emailWork,
abonents.emailHome,
abonents.tags

FROM abonents



WHERE id_organization = {ComboBox1}

Смотрите рисунок, будет понятнее, о чём речь.

Спасибо, Дмитрий! Так работает.

kunar80

SELECT
tasks.contentTask,
strftime('%d.%m.%Y',tasks.dateCompletion),
details.contentDetails,
strftime('%d.%m.%Y',details.dateCompletion),
(CASE WHEN ((SELECT Count(*) FROM details WHERE details.id_tasks=tasks.id AND details.status=1) > 0 OR details.status=1) then 'НА КОНТРОЛЕ' else  '' end),

department.department, 
otdel.otdel, 
pozition.pozition, 
abonents.person

FROM tasks

LEFT OUTER JOIN details ON details.id_tasks = tasks.id

LEFT OUTER JOIN department ON details.id_department = department.id
LEFT OUTER JOIN otdel ON details.id_otdel = otdel.id
LEFT OUTER JOIN pozition ON details.id_pozition = pozition.id
LEFT OUTER JOIN abonents ON details.id_abonents = abonents.id

Вконце запроса добавить

ORDER BY tasks.dateCompletion

Попробуйте так

ORDER BY tasks.dateCompletion, details.dateCompletion

Пожалуйста подскажите, что не правильно в записи

Form1.dtpBirthday.DateTime := SQLExecute ('SELECT strftime('%d.%m.%Y',contact.birthday) WHERE id='+Form1.TableGrid2.sqlValue);

Ругается на скобку перед форматом даты.

теперь ругается на отсутствие колонки contact.birthday. В таблице и гриде она есть.