Проблема с кодом поиска и сортировки

@Matteos124 · Регистрация: 19.08.2020

Студворк — интернет-сервис помощи студентам

У меня появилась проблема:
Пишу я код для поиска данных моей АИС, программа ругается на несоответствие.
Вот перед вашими глазами код SQL:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm2.Edit1Change(Sender: TObject);
begin
 help1:='%'+Form2.Edit1.Text+'%';
 help2:=QuotedStr(help1);
    with Form2.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT * FROM Клиенты WHERE FIO = ID_klient LIKE'+help2+'OR ID_klient LIKE'+help2+'OR Class_klient LIKE'+help2+'ORDER BY ID_klient');
      Open;
    end;
end;
end

Я уже старался как мог, но проблема до сих пор не решена. Можете мне с этим помочь? Буду очень благодарен.

@Matteos124 · 29.05.2021, 14:43 **[ТС]**

Спасибо вам огромное.
Но есть одно "но". Что мне делать с сортировкой DBCheckBox?

@UR1004SWL · 29.05.2021, 14:52

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

сортировкой DBCheckBox?

Что сортировать будем.

@Matteos124 · 29.05.2021, 14:55 **[ТС]**

Ту же таблицу DBGrid, т.е по порядку или же по имени.

@UR1004SWL · 29.05.2021, 15:06

Я так понял должен отработать код на Button1. DBCheckBox, он не для этого, заменяем на обычный CheckBox и

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm2.Button1Click(Sender: TObject);
begin
  if CheckBox1.Checked then
  begin
    help1 := '%' + Form2.Edit1.Text + '%';
    help2 := QuotedStr(help1);
    with Form2.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT * FROM Клиенты WHERE ID_klient LIKE' + help2 + 'OR FIO LIKE' + help2 + 'OR Class_klient LIKE' + help2 + 'ORDER BY FIO');
      Open;
    end;
  end;
end;

@Matteos124 · 29.05.2021, 15:08 **[ТС]**

Не, именно для DBCheckBox'а.

@UR1004SWL · 29.05.2021, 15:10

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

Не, именно для DBCheckBox'а.

Я тебе ищё раз говорю он не для этого, он отображает из базы поля типа Boolean.

@Matteos124 · 29.05.2021, 16:26 **[ТС]**

В любом случае, спасибо вам огромное!
Программа работает как надо.

@UR1004SWL · 29.05.2021, 16:34

Почитал я Ваш диплом. За описание действий - двойка. Компаненты DBEdit, DBCheckBox и т. д. не для организации поиска. Они отображают данные из связанных с ними полей базы. Их можно применять для редактирования данных.

@Matteos124 · 29.05.2021, 16:45 **[ТС]**

Это старый диплом. Сейчас я переделываю всё как надо.

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@Matteos124 0 / 0 / 0 Регистрация: 19.08.2020 Сообщений: 14
	29.05.2021, 14:43 [ТС]
	Спасибо вам огромное. Но есть одно "но". Что мне делать с сортировкой DBCheckBox? 0

@Matteos124 0 / 0 / 0 Регистрация: 19.08.2020 Сообщений: 14
	29.05.2021, 14:55 [ТС]
	Ту же таблицу DBGrid, т.е по порядку или же по имени. 0

@Matteos124 0 / 0 / 0 Регистрация: 19.08.2020 Сообщений: 14
	29.05.2021, 15:08 [ТС]
	Не, именно для DBCheckBox'а. 0

@Matteos124 0 / 0 / 0 Регистрация: 19.08.2020 Сообщений: 14
	29.05.2021, 16:26 [ТС]
	В любом случае, спасибо вам огромное! Программа работает как надо. 0

@UR1004SWL 561 / 230 / 88 Регистрация: 11.07.2015 Сообщений: 817
	29.05.2021, 16:34
	Почитал я Ваш диплом. За описание действий - двойка. Компаненты DBEdit, DBCheckBox и т. д. не для организации поиска. Они отображают данные из связанных с ними полей базы. Их можно применять для редактирования данных. 0

@Matteos124 0 / 0 / 0 Регистрация: 19.08.2020 Сообщений: 14
	29.05.2021, 16:45 [ТС]
	Это старый диплом. Сейчас я переделываю всё как надо. 0