Интересное значение filter

@SashaRasha · Регистрация: 08.10.2008

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

Всем привет! Начал разбираться с базами данных на Delphi 7 и столкнулся с одной интересной особенностью значения filter.
Имеется таблица в MS Access:

kod	stroka	chislo
1	Kolya	55
2	Valya	77

В дельфи на форму добавлены ADOTable, DataSource, DBGrid и Button.
Все подключения настроены. В DBGrid отображается таблица.
Далее код по удалению строки из таблицы:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
begin
  if ADOTable1.State in [dsBrowse] then
   begin
    if MessageDlg('Удалить строку?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
      with ADOTable1 do
       begin
        ADOTable1.Filter :='chislo= '+ Quotedstr(inttostr(ADOTable1.FieldByName('chislo').AsInteger));
        ADOTable1.Filtered := True;
        while ADOTable1.RecordCount <> 0 do
         begin
          ADOTable1.Last;
          ADOTable1.Delete
        end;
       ADOTable1.Filtered := False;
       end;
   end;
end;

Код взял из одного примера и теперь пробую его понять. В частности, интересует строка:

Delphi
1
ADOTable1.Filter :='chislo= '+ Quotedstr(inttostr(ADOTable1.FieldByName('chislo').AsInteger));

Как я понял, происходит следующее: при клике на кнопку, программа считывает значение ячейки 'chislo' из выделенной строки, преобразует его в строку, добавляет перед этим строку 'chislo= ' и присваивает все это дело свойству Filter компонента ADOTable. Если выделить вторую строку и выполнить удаление, то получим значение ADOTable1.Filter равное:

Delphi
1
chislo= '77'

Я подумал: "Зачем столько кода?", и решил сократить запись оставив только:

Delphi
1
ADOTable1.Filter :=inttostr(ADOTable1.FieldByName('chislo').AsInteger);

В итоге получил ошибку при попытке выполнить удаление.
Далее сделал так:

Delphi
1
ADOTable1.Filter :='chto eto '+ Quotedstr(inttostr(ADOTable1.FieldByName('chislo').AsInteger));

и снова ошибка

А теперь вопрос: куда передается строка

Delphi
1
chislo= '77'

???

@D1973 · 11.06.2018, 14:23

SashaRasha, прочитайте, что такое фильтр в таблицах БД и как он применяется...
Надеюсь, после этого Вы поймете, какую ерунду тут написали:

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

ADOTable1.Filter :=inttostr(ADOTable1.FieldByName('chislo ').AsInteger);

@SashaRasha · 11.06.2018, 14:49 **[ТС]**

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

Надеюсь, после этого Вы поймете, какую ерунду тут написали:

ну, я присвоил значению фильтр строку из значения ячейки chislo выделенной строки.

Добавлено через 15 минут
Все, понял. Это синтаксис фильтрации таблиц в БД.

@D1973 · 11.06.2018, 14:49

Я еще раз повторю: прочтите, что такое фильтр и как он строится!

@SashaRasha · 11.06.2018, 14:50 **[ТС]**

Я немного вас опередил)

Скандербег · 11.06.2018, 14:59

Непонятно, зачем нужна фильтрация при удалении строки из таблицы...

В принципе, весь код для удаления, выбранной в гриде строки, состоит лишь из следующей конструкции:

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (ADOTable1.State in [dsBrowse])  and
    (MessageDlg('Удалить строку?',mtConfirmation,[mbYes,mbNo],0) = mrYes) 
  then
    ADOTable1.Delete;
end;

@SashaRasha · 11.06.2018, 15:04 **[ТС]**

Сообщение от Скандербег

зачем нужна фильтрация при удалении строки из таблицы

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

Скандербег · 11.06.2018, 15:18

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

Далее код по удалению строки из таблицы:

Кто это написал?
К тому же, в коде ясно показано, что после установки фильтра идет позиционирование на последнюю запись
отфильтрованного набора данных и только потом идет удаление этой последней строки.
И, главное, с помощью метода Delete невозможно за один раз удалить несколько строк.

Как правило, удаление нескольких строк из таблицы бывает не только как редкое исключение, но
для этого применяют SQL запрос. А эта горотьба с фильтром при удалении, который затем, после удаления строк, нужно еще и снять, вещь для пользователя весьма неудобная.

@SashaRasha · 11.06.2018, 15:57 **[ТС]**

Сообщение от Скандербег

Как правило, удаление нескольких строк из таблицы бывает не только как редкое исключение, но
для этого применяют SQL запрос. А эта горотьба с фильтром при удалении, который затем, после удаления строк, нужно еще и снять, вещь для пользователя весьма неудобная.

Ну, в примере, из которого я брал этот код, удаляется инфа из 4 таблиц, в которых значение равно фильтру.

Добавлено через 13 минут
вот он:

Delphi
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
рrocedure TForm_Main.Btn_DelClick(Sender: TObject);
begin
  if DataModule_Stuff.Stuff.State in [dsBrowse] then 
  Begin 
    if Message Dlg('Удалить?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
      with DataModule_Stuff do 
      begin 
       Family.Filter := 'Org_Num = ' + QuotedStr(IntToStr(Stuff.FieldByName('Org_Num').AsInteger));
       Family.Filtered := True;
       while Family.RecordCount <> 0 do
       begin
        Family.Last;
        Family.Delete 
       end; 
       Family.Filtered := False; 
       Educat.Filter := 'Org_Num = ' + QuotedStr(IntToStr(Stuff.FieldByName('Org_Num').AsInteger));
       Educat.Filtered := True;
       while Educat.RecordCount <> 0 do
       begin 
        Educat.Last;
        Educat.Delete
       end;
       Educat.Filtered := False; 
       Holiday.Filter := 'Org_Num = ' + QuotedStr(IntToStr(Stuff.FieldByName('Org_Num').AsInteger)); Қ
       Holiday.Filtered := True;
       while Holiday.RecordCount <> 0 do
       begin
        Holiday.Last;
        Holiday.Delete 
       end;
       Holiday.Filtered := False; 
       Moving.Filter := 'Org_Num = ' + QuotedStr(IntToStr(Stuff.FieldByName('Org_Num').AsInteger));
       Moving.Filtered := True;
       while Moving.RecordCount <> 0 do
       begin
        Moving.Last;
        Moving.Delete 
       end;
       Moving.Filtered := False;
       Stuff.Delete;
      end;
  end
end;

там через адоконекшн все настроено. но sql запросов почему-то нету

Скандербег · 11.06.2018, 16:16

Лучше не брать у дилетантов коды - себе дороже.
Вся эта "нетленка", из которой скопирована фильтрация при удалении превращается в небольшой код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
рrocedure TForm_Main.Btn_DelClick(Sender: TObject);
var I : Integer;
begin
  if (DataModule_Stuff.Stuff.State in [dsBrowse]) and 
     (Message Dlg('Удалить?',mtConfirmation,[mbYes,mbNo],0) = mrYes)
  then begin
    I := Stuff.FieldByName('Org_Num').AsInteger;
 
    if Stuff.Locate('Org_Num', I, []) then
      Stuff.Delete;
    if DataModule_Stuff.Family.Locate('Org_Num', I, []) then
      DataModule_Stuff.Family.Delete;
    if DataModule_Stuff.Educat.Locate('Org_Num', I, []) then
      DataModule_Stuff.Educat.Delete;
    if DataModule_Stuff.Holiday.Locate('Org_Num', I, []) then
      DataModule_Stuff.Holiday.Delete;
  end;
end;

Ясно, что для разных таблиц надо было использовать метод Locate.
И получается, что фильтр вообще здесь ни причём.
А в случае удаления строки из одной таблицы даже Locate не нужен, т.к. выбранная для удаления строка уже та которая и требуется.

@SashaRasha · 11.06.2018, 16:29 **[ТС]**

Сообщение от Скандербег

Ясно, что для разных таблиц надо было использовать метод Locate.
И получается, что фильтр вообще здесь ни причём.

А если в таблице значение 'Num_Org' встречается не один раз?

Скандербег · 11.06.2018, 16:39

Если может встретиться несколько одинаковых значений в поле, то да, можно применить и этот кондовый прием.
Довольно забавный, но работающий.
Удачи!
Вначале не увидел цикла while, отсюда и дискуссия.

@SashaRasha · 13.06.2018, 11:22 **[ТС]**

Ребята, я все же не пойму. Куда передается chislo= '77' ? И как в самом access можно искать с помощью этого? Понятно, что это работает и ищет то, что нужно, но как?

@krapotkin · 13.06.2018, 13:17

вот сюда

SQL
1
SELECT * FROM вашатаблица WHERE chislo= '77'

но для меня неочевидно почему chislo=stroka, потому что апострофами выделяются именно строки

@SashaRasha · 13.06.2018, 14:55 **[ТС]**

Но там числовое значение

Сейчас по быстрому накидал программку

Delphi
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;
 
type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    ADOTable1: TADOTable;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure ButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Append;
end;
 
 
procedure TForm1.ButtonClick(Sender: TObject);
begin
if form1.adotable1.State in [dsBrowse] then
  Begin
  {  if MessageDlg('Âû óâåðåíû?',mtConfirmation,[mbYes,mbNo],0) = mrYes then }
      with form1 do
      begin
       adotable1.Filter := 'pole2 = ' + QuotedStr(IntToStr(adotable1.FieldByName('pole2').AsInteger));
       adotable1.Filtered := True;
       while adotable1.RecordCount <> 0 do
       begin
        adotable1.Last;
        adotable1.Delete
       end;
     adotable1.Filtered := False;
       end;
    end;
    label1.Caption:=adotable1.Filter;
end;
end.

когда произвожу удаление, в label1 отображается значение фильтра. И вот еще что. Никаких sql-запросов я не создаю.
Проект Delphi 7, если понадобится:filter.rar Возможно придется перенастроить свойство ConectionString компонента ADOTable1.

@krapotkin · 13.06.2018, 15:09

вы можете считать, что запрос выполняется внутри вашего датасета силами делфи
от этого его формат ничуть не меняется и вы можете смело думать про фильтр как SQL выражение WHERE

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@D1973 Модератор 9929 / 6467 / 2457 Регистрация: 21.01.2014 Сообщений: 27,425 Записей в блоге: 3
	11.06.2018, 14:49
	Я еще раз повторю: прочтите, что такое фильтр и как он строится! 1

@SashaRasha 91 / 47 / 8 Регистрация: 08.10.2008 Сообщений: 445
	11.06.2018, 14:50 [ТС]
	Я немного вас опередил) 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	11.06.2018, 16:39
	Если может встретиться несколько одинаковых значений в поле, то да, можно применить и этот кондовый прием. Довольно забавный, но работающий. Удачи! Вначале не увидел цикла while, отсюда и дискуссия. 1

@SashaRasha 91 / 47 / 8 Регистрация: 08.10.2008 Сообщений: 445
	13.06.2018, 11:22 [ТС]
	Ребята, я все же не пойму. Куда передается chislo= '77' ? И как в самом access можно искать с помощью этого? Понятно, что это работает и ищет то, что нужно, но как? 0

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	13.06.2018, 15:09
	вы можете считать, что запрос выполняется внутри вашего датасета силами делфи от этого его формат ничуть не меняется и вы можете смело думать про фильтр как SQL выражение WHERE 1

Интересное значение filter

Решение