Выбор информации из базы данных. Перенос программы управления базой данных на другой компьютер.
Если запрос записан в свойство SQL компонента Query во время разработки формы приложения, то во время работы программы критерий запроса можно изменить простой заменой соответствующей строки текста запроса.
Например, для запроса:
SELECT Date_F, Task_F" FROM ':organ!zer:org.db' WHERE (Date_F = '09.02.2003') ORDER BY Date_F
Инструкция замены критерия выглядит так:
Queryl › SQL › Strings[3] = "(Date_F = '" + tomorrow + "')";
Следует обратить внимание на то, что свойство SQL является структурой типа TStrings, в которой строки нумеруются с нуля.
Для того чтобы пользователь мог выбирать информацию из базы данных, в форму разрабатываемого приложения надо добавить кнопки Сегодня, Завтра, Эта неделя и Все (рис. 5.19). Назначение этих кнопок очевидно. Также в форму добавлены два компонента Label. Поле Label1 используется для отображения текущей даты. В поле Label2 отображается режим просмотра базы данных.
Рис. 5.19. Окончательный вид формы
Функции обработки события click на кнопках Сегодня, Завтра и Эта неделя приведены в листинге 5.1. Каждая из этих функций изменяет соответствующим образом сформированный во время разработки формы SQL – запрос. Для получения текущей даты функции обращаются к стандартной функции NOW, которая возвращает текущую дату и время. Преобразование даты в строку символов выполняет стандартная функция FormatDateTime.