Надо переделать процедуру поиска из 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;
  }
   //Здесь могут  быть выполнены действия по обработке найденной записи
  }

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

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

Решение