Разработка приложений баз данных в Delphi. Шейкер Т.Д. - 111 стр.

      Так как свойство SQL имеет тип TStrings, то его можно формировать
добавлением строк методом Add либо использованием метода LoadFromFile
для загрузки текста из файла.
      Пример 5.2. Сформировать программно запрос для вывода из таблицы
Country всех сведений об Аргентине.
      Query1.Close;
      Query1.SQL.Clear;
      Query1.SQL.Add(’SELECT * FROM Country’);
      Query1.SQL.Add(’WHERE Name=’’Argentina’’’);
      Query1.Open;
      Если версия языка SQL позволяет использовать шаблоны поиска без уче-
та регистра (case insensitive), то, немного изменив запрос
      Query1.SQL.Add(’WHERE Name LIKE ’’C%’’’);
удастся получить набор данных, содержащий все записи, в которых поле Name
начинается с буквы ’C’.
      Пример 5.3. Загрузить из файла запрос для вывода из таблицы biolife
сведений (Category,Length_in) о рыбах категорий, названия которых начи-
наются на S, упорядоченных по длине.
      Для использования запроса, сохранённого в текстовом файле с расшире-
нием sql или txt, надо текст запроса занести в свойство SQL. Например, можно
добавить в проект компоненты Button1, OpenDialog1 и записать обработчик
щелчка по кнопке Button1 (события OnClick):
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    with Query1 do
    begin
     Close;
     SQL.LoadFromFile(OpenDialog1.FileName);
     Open;
    end;
end;
      Предварительно в файле должен быть записан запрос:
SELECT category,Length_in FROM biolife
WHERE category LIKE 'S%' ORDER BY Length_in

                                       111