Запрос на поиск

@alex.-93 · Регистрация: 01.10.2011

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
void __fastcall TForm3::Edit2KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
    if (Edit2->Text!="")
        {
            DataModule1->ADDQueri->Active=False;
            DataModule1->ADDQueri->SQL->Clear();
DataModule1->ADDQueri->SQL->Add("select * from subscriber_book where nazv LIKE '%"+Edit2->Text+"%'");
            DataModule1->ADDQueri->Active=True;
 
            DBGrid1->DataSource=DataModule1->QeriDataSource;
            DBGrid1->Columns->Items[0]->Title->Caption="ИНН";
            DBGrid1->Columns->Items[1]->Title->Caption="Название";
                DBGrid1->Columns->Items[1]->Title- ="Название";
            DBGrid1->Columns->Items[2]->Title->Caption="Автор";
            DBGrid1->Columns->Items[3]->Title->Caption="Год издания";
            DBGrid1->Columns->Items[4]->Title->Caption="Дата выдачи";
            DBGrid1->Columns->Items[5]->Title->Caption="Колличество дней";
            DBGrid1->Columns->Items[6]->Title->Caption="Дата возврата";
            DBGrid1->Columns->Items[7]->Title->Caption="Статус";
        }
        else
            {
                DBGrid1->DataSource=DataModule1->DataSourcebok;
            }
}

Данный код ищет по полю название, как можно сделать чтобы можно было выбирать из comboboxa поле для поиска?

@Sasha · 12.06.2013, 10:06

Берёшь вбиваешь имена полей в ComboBox или можешь воспользоваться функцией GetFieldNames(), а сам ComboBox вбиваешь в свой запрос

@alex.-93 · 12.06.2013, 11:46 **[ТС]**

У меня имена полей английские и сокращенные, мне надо что бы из ComboBox выбиралось нормальное русское полное название поля, а в код подставлялось соответствующие поле из таблицы.
Примерно если надо осуществить поиск по названию книги в ComboBox в Items оно указано как Название книги а в код нужно что бы подставлялось например nazv

@Sasha · 12.06.2013, 12:06

Тогда тебе надо делать переименовку через case break;

@alex.-93 · 12.06.2013, 12:59 **[ТС]**

можно пример?

@Sasha · 12.06.2013, 13:55

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
void __fastcall TMainForm::ComboBox1Change(TObject *Sender)
{
 AnsiString pole;
 
switch(ComboBox1->ItemIndex)
{
case 0:
         pole = "nazv";
         break;
 
case 1:
        pole = имя_поля; 
        break;
 
//и т.д
}
 
       if (!Edit2->Text.IsEmpty())
        {
            DataModule1->ADDQueri->Close();
            DataModule1->ADDQueri->SQL->Clear();
            DataModule1->ADDQueri->SQL->Add("select * from subscriber_book where "+pole+ " LIKE '%"+Edit2->Text+"%'");
            DataModule1->ADDQueri->Open();
 
            DBGrid1->DataSource=DataModule1->QeriDataSource;
            DBGrid1->Columns->Items[0]->Title->Caption="ИНН";
            DBGrid1->Columns->Items[1]->Title->Caption="Название";
            DBGrid1->Columns->Items[2]->Title->Caption="Автор";
            DBGrid1->Columns->Items[3]->Title->Caption="Год издания";
            DBGrid1->Columns->Items[4]->Title->Caption="Дата выдачи";
            DBGrid1->Columns->Items[5]->Title->Caption="Колличество дней";
            DBGrid1->Columns->Items[6]->Title->Caption="Дата возврата";
            DBGrid1->Columns->Items[7]->Title->Caption="Статус";
        }
        else
            {
                DBGrid1->DataSource=DataModule1->DataSourcebok;
            }
 
 
}

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	12.06.2013, 10:06
	Берёшь вбиваешь имена полей в ComboBox или можешь воспользоваться функцией GetFieldNames(), а сам ComboBox вбиваешь в свой запрос 0

@alex.-93 75 / 99 / 1 Регистрация: 01.10.2011 Сообщений: 177
	12.06.2013, 11:46 [ТС]
	У меня имена полей английские и сокращенные, мне надо что бы из ComboBox выбиралось нормальное русское полное название поля, а в код подставлялось соответствующие поле из таблицы. Примерно если надо осуществить поиск по названию книги в ComboBox в Items оно указано как Название книги а в код нужно что бы подставлялось например nazv 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	12.06.2013, 12:06
	Тогда тебе надо делать переименовку через case break; 0

@alex.-93 75 / 99 / 1 Регистрация: 01.10.2011 Сообщений: 177
	12.06.2013, 12:59 [ТС]
	можно пример? 0