Проверка содержимого запроса

@Sasha · Регистрация: 05.06.2008

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

Здравтсвуйте Уважаемые товарищи программисты!

Помогите с таким вопросом

Как можно проверить запрос если вот это условие не работает

C++
1
2
3
4
5
6
7
8
 if (ADOQuery1->SQL->Text== "Select *from Glavnaya order by Number_in_Lan")
      {
        ADOQuery1->Locate("Invent_Number",ValueListEditor1->Cells[1][1],Options);
      }
      else
      {
        ADOQuery1->Locate("Invent_Number",ID,Options);
      }

А вот собственно код в котором есть это условие

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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
void __fastcall TMainForm::Insert_StringClick(TObject *Sender)
{
 TLocateOptions Options;
 Options.Clear();
 Options << loPartialKey;
 int ID = ADOQuery1->FieldByName("Invent_Number")->AsInteger;
 AnsiString st = ADOQuery1->SQL->Text,s = ADOQuery1->Sort;
 if(ValueListEditor1->Cells[1][1]=="")
 
 {
   Application->MessageBox("Введите инвентарный номер!","Внимание",MB_ICONWARNING);
   ValueListEditor1->SetFocus();
   ValueListEditor1->Row = 1;
 }
   else if (ValueListEditor1->Cells[1][1]!="")
   {
        ADOQuery1->DisableControls();
        if(ADOQuery1->SQL->Text != "Select *from Glavnaya order by Number_in_Lan")
       {
        UpDateClick(Sender);
       }
      if(ADOQuery1->Locate("Invent_Number",ValueListEditor1->Cells[1][1],Options))
     {
        AnsiString bw = "Такой инвентарный номер уже есть в базе данных!!! \n\n" + IntToStr(ADOQuery1->FieldByName("Invent_Number")->AsInteger)+" - "
       +ADOQuery1->FieldByName("Number_in_Lan")->AsString+" - "
       +ADOQuery1->FieldByName("Department")->AsString+" - "
       +ADOQuery1->FieldByName("Processor")->AsString+" - "
       +ADOQuery1->FieldByName("Memory")->AsString+" - "
       +ADOQuery1->FieldByName("HDD")->AsString+" - "
       +ADOQuery1->FieldByName("Room")->AsString+"\n\n"
       + "Введите другой инвентарный номер";
      if(Application->MessageBox(bw.c_str(),"Внимание",MB_ICONWARNING)==IDOK);
       {
        ADOQuery1->Close();
        ADOQuery1->SQL->Clear();
        ADOQuery1->SQL->Text = st;
        ADOQuery1->Open();
        ADOQuery1->Sort = s;
        ADOQuery1->Locate("Invent_Number",ID,Options);
        ADOQuery1->EnableControls();
        ValueListEditor1->SetFocus();
        ValueListEditor1->Row = 1;
     }
     }
      else if ((ValueListEditor1->Cells[1][1]!="")&&(!ADOQuery1->Locate("Invent_Number",ValueListEditor1->Cells[1][1],Options)))
 
     {
        ValueListEditor1->Cells[1][2] = ValueListEditor1->Cells[1][2].SubString(1,1) + PadL(ValueListEditor1->Cells[1][2].SubString(2,ValueListEditor1->Cells[1][2].Length()),3,'0');
        ADOQuery1->Close();
        ADOQuery1->SQL->Clear();
        ADOQuery1->SQL->Text = "INSERT INTO Glavnaya (Invent_Number,Number_in_Lan,Department,Processor,Memory,HDD,Room,Windows_98,Windows_2000,Windows_XP,Serial_Number,Other,Serial_Number_AutoCadLT_2010, Antivirus)VALUES('"+ValueListEditor1->Cells[1][1]+"', '"+ValueListEditor1->Cells[1][2]+"', '"+ValueListEditor1->Cells[1][3]+"', '"+ValueListEditor1->Cells[1][4]+"', '"+ValueListEditor1->Cells[1][5]+"', '"+ValueListEditor1->Cells[1][6]+"', '"+ValueListEditor1->Cells[1][7]+"','"+ValueListEditor1->Cells[1][8]+"','"+ValueListEditor1->Cells[1][9]+"','"+ValueListEditor1->Cells[1][10]+"','"+ValueListEditor1->Cells[1][11]+"','"+ValueListEditor1->Cells[1][12]+"','"+ValueListEditor1->Cells[1][13]+"','"+ValueListEditor1->Cells[1][14]+"')";
        ADOQuery1->ExecSQL();
   try
      {
       ValueListEditor1->ItemProps[2]->PickList->Clear();
       ValueListEditor1->ItemProps[2]->PickList->Add("Новый отдел...");
       ADOQuery1->Close();
       ADOQuery1->SQL->Clear();
       ADOQuery1->SQL->Add("SELECT DISTINCT Department FROM Glavnaya");
       ADOQuery1->Open();
       ADOQuery1->First();
   while(!ADOQuery1->Eof)
       {
        ValueListEditor1->ItemProps[2]->PickList->Add(ADOQuery1->FieldByName("Department")->AsString);
        ADOQuery1->Next();
       }
       }catch(...){}
 
      ValueListEditor1->ItemProps[2]->PickList->Add("");
      ValueListEditor1->ItemProps[2]->ReadOnly = true;
      ADOQuery1->Close();
      ADOQuery1->SQL->Clear();
      ADOQuery1->SQL->Text = st;
      ADOQuery1->Open();
      ADOQuery1->Sort = s;
      
      if (ADOQuery1->SQL->Text== "Select *from Glavnaya order by Number_in_Lan")
      {
        ADOQuery1->Locate("Invent_Number",ValueListEditor1->Cells[1][1],Options);
      }
      else
      {
        ADOQuery1->Locate("Invent_Number",ID,Options);
      }
      }
      ValueListEditor1->Cells[1][1]="";
      ValueListEditor1->Cells[1][2]="";
      ValueListEditor1->Cells[1][3]="";
      ValueListEditor1->Cells[1][4]="";
      ValueListEditor1->Cells[1][5]="";
      ValueListEditor1->Cells[1][6]="";
      ValueListEditor1->Cells[1][7]="";
      ValueListEditor1->Cells[1][8]="";
      ValueListEditor1->Cells[1][9]="";
      ValueListEditor1->Cells[1][10]="";
      ValueListEditor1->Cells[1][11]="";
      ValueListEditor1->Cells[1][12]="";
      ValueListEditor1->Cells[1][12]="";
      ValueListEditor1->Cells[1][13]="";
      ValueListEditor1->Cells[1][14]="";
      ValueListEditor1->SetFocus();
      ValueListEditor1->Row = 1;
 
     }
      ADOQuery1->EnableControls();
 
 } 
//---------------------------------------------------------------------------

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника 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 существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/