Организовать поиск по Paradox

@Yuki58 · Регистрация: 12.12.2012

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

До некоторого времени работала в Delphi7, тяжело перехожу на Builder

Pascal
1
2
 form1.Table3.IndexName:= 'Type(WeponSA).inx' ;
           form1.table3.Filter := 'Type='''+ ComboBox1.text + '''';

Как организовывать вот такую фильтрацию со вторичным индексом в бд. А так же вот такой поиск в Builder`е

Pascal
1
2
3
4
5
dbgrid1.DataSource:=Datasource1;
  Table1.IndexFieldNames:='Russian';
Table1.SetKey;
Table1.FieldByName('Russian').AsString:=inputbox( 'Поиск по русскому названию', 'Введите  название брони','');
Table1.GotoNearest;

Работаю над проектом где поиск по бд осуществляется на отдельной форме с Edit1 и RadioGrup1(в зависимости от радио групп выбирается столбец и индекс для поиска)

Буду очень благодарна.

Добавлено через 2 часа 38 минут
Ребят не кто не знает как поиск организовать нс Си в DBGrid ?

@Sasha · 12.12.2012, 23:47

Совпадения в таблице есть по этому полю либо оно уникальное?

@Yuki58 · 13.12.2012, 10:11 **[ТС]**

есть, что бы выдавал ближайщие подходящие строки по заданному запросу по типу Go to nearest

Добавлено через 29 минут
Пробую делать через SQL запрос

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit4.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
 Char[40] stolb;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm4::Edit1Change(TObject *Sender)
{
Form2->Query1->SQL->Strings[0]= '' select * from table1 where''+stolb+'' like
'''+Form4->Edit1->Text+''%''';
Form2->Query1->Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::RadioGroup1Click(TObject *Sender)
{
if (Form4->RadioGroup1->ItemIndex==0)stolb="F";
else if (Form4->RadioGroup1->ItemIndex==1)stolb= "G"
}
//---------------------------------------------------------------------------

Пишет

[C++ Error] Unit4.cpp(12): E2040 Declaration terminated incorrectly
[C++ Error] Unit4.cpp(22): E2129 Character constant too long (or empty)
[C++ Error] Unit4.cpp(22): E2379 Statement missing ;
[C++ Error] Unit4.cpp(22): E2129 Character constant too long (or empty)

Добавлено через 34 минуты
[C++ Error] Unit4.cpp(12): E2040 Declaration terminated incorrectly

Это сообщение об ошибке дается, когда либо нижняя граница диапазона типа больше, чем верхняя граница, или нижняя граница диапазона подписей случае больше, чем высокая оценка.

Поиск ведется по 2м столбцам в одном кол-во символов 15 в другом 40

@Sasha · 13.12.2012, 10:25

Пробуй так

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
42
43
44
45
46
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit4.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
AnsiString stolb;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm4::Edit1Change(TObject *Sender)
{
Form2->Query1->Close();
Form2->Query1->Clear();
Form2->Query1->SQL->Add("select * from table1 where "+stolb+" like '"+Form4->Edit1->Text+"%'");
Form2->Query1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::RadioGroup1Click(TObject *Sender)
{
 
  switch(RadioGroup1->ItemIndex)
  {
    case 0:
         {
              stolb="F";
              break;
         }
       case 1:
         {
            stolb= "G";
            break;
         }
 
  }
 
}

@Yuki58 · 16.12.2012, 13:05 **[ТС]**

C++
1
Form2->Query1->Clear();

[C++ Error] Unit4.cpp(24): E2316 'Clear' is not a member of 'TQuery'

@Sasha · 17.12.2012, 00:35

C++
1
Form2->Query1->SQL->Clear();

@Yuki58 · 18.12.2012, 16:04 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
void __fastcall TForm4::Edit1Change(TObject *Sender)
{
Form2->Query1->Close();
Form2->Query1->SQL->Clear();
Form2->Query1->SQL->Add("select * from table1 where "+stolb+" like '"+Form4->Edit1->Text+"%'");
Form2->Query1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TForm4::RadioGroup1Click(TObject *Sender)
{
if (Form4->RadioGroup1->ItemIndex==0)stolb="F";
else if (Form4->RadioGroup1->ItemIndex==1)stolb= "G"
}

Из всего пода выбрал это

C++
1
}

Написал [C++ Error] Unit4.cpp(33): E2379 Statement missing ;

@Sasha · 18.12.2012, 16:07

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

else if (Form4->RadioGroup1->ItemIndex==1)stolb= "G"

Точку с запятой поставь в конце

@Yuki58 · 18.12.2012, 16:15 **[ТС]**

[Linker Error] Unresolved external '__fastcall TForm3::Button1Click(System::TObject *)' referenced from T:\ÏÐÎÃÐÀÌÌÀ2\UNIT3.OBJ
[Linker Error] Unresolved external '__fastcall TForm4::Button1Click(System::TObject *)' referenced from T:\ÏÐÎÃÐÀÌÌÀ2\UNIT4.OBJ
[Linker Error] Unresolved external '__fastcall TForm4::FormCreate(System::TObject *)' referenced from T:\ÏÐÎÃÐÀÌÌÀ2\UNIT4.OBJ

Были класс когда пробовала не через SQL как их удалить ? =/

@Sasha · 18.12.2012, 16:35

В H-файле посмотри

@Yuki58 · 18.12.2012, 16:54 **[ТС]**

Большущее при большущее вам спасибо ^_____^

Добавлено через 1 минуту
Большущее при большущее вам спасибо ^_________^

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	12.12.2012, 23:47
	Совпадения в таблице есть по этому полю либо оно уникальное? 0

@Yuki58 2 / 2 / 1 Регистрация: 12.12.2012 Сообщений: 67
	18.12.2012, 16:15 [ТС]
	[Linker Error] Unresolved external '__fastcall TForm3::Button1Click(System::TObject )' referenced from T:\ÏÐÎÃÐÀÌÌÀ2\UNIT3.OBJ [Linker Error] Unresolved external '__fastcall TForm4::Button1Click(System::TObject )' referenced from T:\ÏÐÎÃÐÀÌÌÀ2\UNIT4.OBJ [Linker Error] Unresolved external '__fastcall TForm4::FormCreate(System::TObject *)' referenced from T:\ÏÐÎÃÐÀÌÌÀ2\UNIT4.OBJ Были класс когда пробовала не через SQL как их удалить ? =/ 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	18.12.2012, 16:35
	В H-файле посмотри 1

@Yuki58 2 / 2 / 1 Регистрация: 12.12.2012 Сообщений: 67
	18.12.2012, 16:54 [ТС]
	Большущее при большущее вам спасибо ^_____^ Добавлено через 1 минуту Большущее при большущее вам спасибо ^_________^ 0