Надо переделать процедуру поиска из Delphi в Builder (базу SQL Server вышлю). Соединение ADO

@nidef · Регистрация: 09.10.2012

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

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
procedure TForm1.btnFindClick(Sender: TObject);
var
KeyFields:String;
KeyValues:Variant;
Options:TLocateOptions;
 
BEGIN
 if not (cbFindName.Checked or cbFindPrice.Checked) then
  begin
   MessageDlg('He указаны условия поиска!', mtInformation, [mbOK], 0);
   exit;
  end;
// Поиск одновременно по двум полям Name и Price
 if cbFindName.Checked and cbFindPrice.Checked then
 begin
  KeyFields:='Name;Price';
  KeyValues:=VarArrayOf([edtFindName.Text, edtFindPrice.Text]);
 end
// Поиск по одному из двух полей
 else
 begin
// По полю Name
  if cbFindName.Checked then
        begin
          KeyFields:='Name';
          KeyValues:=edtFindName.Text;
        end;
//По полю Price
  if cbFindPrice.Checked then
       begin
          KeyFields:='Price';
          KeyValues:=edtFindPrice.Text;
       end;
 end;
// Поиск выполняется независимо от регистра
// с возможностью частичного совпадения
Options:=[loCaseInsensitive, loPartialKey];
 //Запись не найдена
 if not Table1.Locate(KeyFields, KeyValues, Options) then
       begin
          Beep;
          MessageDlg('Запись не найдена!', mtInformation, [mbOK], 0);
          exit;
       end;
// Действия по обработке найденной записи

Добавлено через 4 минуты
ВОТ БАЗА ДАННЫХ!!!

T-SQL
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
CREATE TABLE Cards
( 
    C_Number             integer IDENTITY ( 1,1 ) ,
    C_Move               integer  NOT NULL ,
    C_Date               datetime  NULL ,
    C_Code               integer  NULL 
)
go
 
 
 
ALTER TABLE Cards
    ADD  PRIMARY KEY  CLUSTERED (C_Number ASC)
go
 
 
 
CREATE TABLE Store
( 
    S_Code               integer IDENTITY ( 1,1 ) ,
    S_Name               varchar(20)  NOT NULL ,
    S_Unit               varchar(7)  NOT NULL ,
    S_Prise              money  NOT NULL ,
    S_Quantifi           integer  NULL ,
    S_Note               varchar(30)  NULL 
)
go
 
 
 
ALTER TABLE Store
    ADD  PRIMARY KEY  CLUSTERED (S_Code ASC)
go
 
 
 
 
ALTER TABLE Cards
    ADD  FOREIGN KEY (C_Code) REFERENCES Store(S_Code)
        ON DELETE NO ACTION
        ON UPDATE NO ACTION
go

@nick42 · 28.07.2018, 03:28

Начало, я думаю, примерно так можно организовать__

Кликните здесь для просмотра всего текста

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
void __fastcall TForm1::btnFindClick(TObject *Sender)
{
     String iG[6]= { "Name", "Price", "Name;Price",
         edtFindName->Text.c_str(),
         edtFindPrice->Text.c_str(),
         edtFindName->Text+/* здесь какой-то разделитель */
         edtFindPrice->Text };
     String KeyFields;
     Variant KeyValues;
     TLocateOptions  Options;
     int rz = (cbFindName->Checked | cbFindPrice->Checked<<1);
     if(!rz) { MessageDlg("He указаны условия поиска!",mtInformation,
                TMsgDlgButtons()<<mbOK,0); return; }
     KeyFields = iG[rz-1];
     KeyValues = iG[rz+2];
     Options = TLocateOptions()<<loCaseInsensitive<<loPartialKey;
     if(!Table1->Locate(KeyFields,KeyValues,Options))
     {
        Beep();
        MessageDlg("Запись не найдена!",mtInformation,TMsgDlgButtons()<<mbOK,0);
        return;
     }
     else  { /* Действия по обработке найденной записи */ }
}

@nidef · 29.07.2018, 22:44 **[ТС]**

nick42, большое спасибо за оперативный ответ. Мне все же хотелось бы переделать максимально приближенно к языку Delphi.
Я постарался на основе Вашего примера написать код, на мой взгляд, макcимально приближенный к исходному. Языком С++ владею плохо, поэтому поиск по одному полю работает и проблем нет, а вот по двум - постоянно выдает ошибку. Не пойму в чем проблема. Вроде бы все как в исходнике. Гляньте, когда будет время. Свой код высылаю. Спасибо

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
47
48
49
50
51
void __fastcall TfmStore::btnFindClick(TObject *Sender)
{
String KeyFields;
Variant KeyValues;
TLocateOptions Options;
 
 int rz = (cbFindName->Checked | cbFindPrice->Checked<<1);
 if(!rz)
 {
 MessageDlg("He заданы условия поиска!",mtInformation,TMsgDlgButtons()<<mbOK,0);
 return;
  }
// Поиск одновременно по двум полям Name и Price
 if (cbFindName->Checked & cbFindPrice->Checked)
 {
  KeyFields = "S_Name;S_Price";
  Variant locvalues[2] =  {edtFindName->Text, edtFindPrice->Text};
  KeyValues = locvalues;
  }
// Поиск по одному из двух полей
   else
 {
// По полю Name
  if (cbFindName->Checked)
       {
          KeyFields = "S_Name";
          KeyValues =edtFindName->Text;
        }
//По полю Price
  if (cbFindPrice->Checked)
       {
          KeyFields="S_Price";
          KeyValues=edtFindPrice->Text;
       }
 }
 
// с возможностью частичного совпадения
//Options.Clear();
Options<<loCaseInsensitive<<loPartialKey;
 // Запись не найдена
int rz1 = (ADOTable1->Locate(KeyFields, KeyValues, Options) | ADOTable1->Locate(KeyFields, KeyValues, Options)<<1);
 if(!rz1)
{
          Beep();
          MessageDlg("Запись не найдена!", mtInformation, TMsgDlgButtons()<<mbYes, 0);
          exit;
 }
 
 
// Здесь могут  быть выполнены действия по обработке найденной записи
}

@nidef · 31.07.2018, 11:42 **[ТС]**

Пока ждал сам нашел ошибку. Вопрос закрыт. Высылаю код, может кому пригодится ...

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
47
48
49
50
51
52
53
54
55
void __fastcall TfmStore::btnFindClick(TObject *Sender)
 {
 
  String KeyFields;
  Variant KeyValues;
  TLocateOptions Options;
  //Проверка включения режима поиска
  int z = (cbSearch->Checked | cbSearch->Checked<<1); //объявили переменную и писвоили ей значение
  if(!z)//если не выбран
 {
  MessageDlg("Режим поиска не включен!",mtInformation,TMsgDlgButtons()<<mbOK,0);
  exit;
 }
  int rz = (cbFindName->Checked | cbFindPrice->Checked<<1); 
  if(!rz)
 {
  MessageDlg("He заданы условия поиска!",mtInformation,TMsgDlgButtons()<<mbOK,0);
  return;
 }
  //Поиск одновременно по двум полям S_Name и S_Price
  if (cbFindName->Checked & cbFindPrice->Checked)
 {
  KeyFields = "S_Name;S_Price";
  Variant locvalues[2] =  {edtFindName->Text, edtFindPrice->Text};
  KeyValues = VarArrayOf(locvalues,2);
 }
  //Поиск по одному из двух полей
   else
 {
  // По полю Name
  if (cbFindName->Checked)
 {
   KeyFields = "S_Name";
   KeyValues =edtFindName->Text;
  }
  //По полю Price
  if (cbFindPrice->Checked)
  {
   KeyFields="S_Price";
   KeyValues=edtFindPrice->Text;
  }
  }
   Options.Clear();
   //С возможностью частичного совпадения
   Options<<loCaseInsensitive<<loPartialKey;
   // Запись не найдена
   int rz1 = (ADOTable1->Locate(KeyFields, KeyValues, Options) | ADOTable1->Locate(KeyFields, KeyValues, Options)<<1); 
   if(!rz1)
  {
   Beep();
   MessageDlg("Запись не найдена!", mtInformation, TMsgDlgButtons()<<mbYes, 0);
   exit;
  }
   //Здесь могут  быть выполнены действия по обработке найденной записи
  }

@nick42 · 31.07.2018, 12:35

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

Пока ждал сам нашел ошибку

- и это правильно! Спасибо, что опубликовали решение. У меня только небольшое замечание... .

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

int z = (cbSearch->Checked | cbSearch->Checked<<1);

Это работает, но оно избыточно (это на будущее). В данном конкретном случае логические переменные true и false - это соответственно 1 и 0. Я использовал комбинацию дизъюнкции со сдвигом, чтобы получить индекс по двум чекбоксам - значения от 0 до 3, который в дальнейшем использовал для извлечения нужных строк из массива. В предлогаемом вами решении этот индекс абсолютно бесполезен. Поэтому правильным будет использовать запись типа:

C++
1
2
 
 if ( !cbSearch->Checked)  //  если не выбран...

И в других местах аналогично.

@nidef · 31.07.2018, 14:39 **[ТС]**

Ооо!!! Спасибо, nick42.
Уточнил... Теперь сортировкой занимаюсь. Тоже появился затык. Разместил в новой теме.

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
47
48
49
50
51
52
void __fastcall TfmStore::btnFindClick(TObject *Sender)
 {
 
  String KeyFields;
  Variant KeyValues;
  TLocateOptions Options;
  //Проверка включения режима поиска
 if (!cbSearch->Checked)
 {
  MessageDlg("Не включен режим поиска!",mtInformation,TMsgDlgButtons()<<mbOK,0);
  return;
 }
  if (!cbFindName->Checked & !cbFindPrice->Checked)
  {
  MessageDlg("He заданы условия поиска!",mtInformation,TMsgDlgButtons()<<mbOK,0);
  return;
 }
  //Поиск одновременно по двум полям S_Name и S_Price
  if (cbFindName->Checked & cbFindPrice->Checked)
 {
  KeyFields = "S_Name;S_Price";
  Variant locvalues[2] =  {edtFindName->Text, edtFindPrice->Text};
  KeyValues = VarArrayOf(locvalues,2);
 }
  //Поиск по одному из двух полей
   else
 {
  // По полю Name
  if (cbFindName->Checked)
 {
   KeyFields = "S_Name";
   KeyValues =edtFindName->Text;
  }
  //По полю Price
  if (cbFindPrice->Checked)
  {
   KeyFields="S_Price";
   KeyValues=edtFindPrice->Text;
  }
  }
   Options.Clear();
   //С возможностью частичного совпадения
   Options<<loCaseInsensitive<<loPartialKey;
   // Запись не найдена
  if (!(ADOTable1->Locate(KeyFields, KeyValues, Options)))
  {
   Beep();
   MessageDlg("Запись не найдена!", mtInformation, TMsgDlgButtons()<<mbYes, 0);
   return;
  }
   //Здесь могут  быть выполнены действия по обработке найденной записи
  }

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

Надо переделать процедуру поиска из Delphi в Builder (базу SQL Server вышлю). Соединение ADO

Решение