Фильтрация БД

@red1y · Регистрация: 02.12.2012

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

Всем, Привет!
Нуждаюсь в помощи!
В общем, нужно сделать фильтрацию по таблице!
Компоненты, button1,edit1,radiobutton1,radiobutton2,
Нужно сделать поиск по кнопке, с выбором по фамилии или Номеру Расчетного счета

________________radiobutton1(fio)
Button1 (Найти)=> Edit1(Ввод)
________________radiobutton2 (№_ras_schet)

Примерно по такому принципу)
Сейчас стоит так:

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm3.RadioButton1Click(Sender: TObject);
begin
ADOQuery1.Close;
       ADOQuery1.SQL.Clear;
       ADOQuery1.SQL.Add('SELECT* FROM postavshik');
       ADOQuery1.SQL.Add('WHERE fio LIKE '''+Edit1.Text+ '%' +'''');
       ADOQuery1.Open;
end;
 
procedure TForm3.RadioButton2Click(Sender: TObject);
begin
ADOQuery1.Close;
       ADOQuery1.SQL.Clear;
       ADOQuery1.SQL.Add('SELECT* FROM postavshik');
       ADOQuery1.SQL.Add('WHERE №_ras_schet LIKE '''+Edit1.Text+ '%' +'''');
       ADOQuery1.Open;
end;

Но это не то что нужно)

Добавлено через 10 часов 39 минут

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
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
unit Unit3;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids,
  Vcl.ExtCtrls, Data.DB, Data.Win.ADODB;
 
type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Splitter2: TSplitter;
    DBGrid1: TDBGrid;
    Button4: TButton;
    Edit1: TEdit;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery1ID_post: TAutoIncField;
    ADOQuery1Yr_adres: TWideStringField;
    ADOQuery1fio: TWideStringField;
    ADOQuery1_ras_schet: TIntegerField;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ADOQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
{$R *.dfm}
 
uses Unit2, Unit4;
 
procedure TForm3.ADOQuery1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
 var Accept: Boolean);
begin
if Form3.CheckBox1.Checked=False then
Accept:=copy(AnsiUpperCase(DataSet[dbgrid1.ADOQuery1.Fields[Form3.RadioGroup1.ItemIndex+1].FieldName]),1,length(Form3.Edit1.text))=AnsiUpperCase(Form1.Edit1.text)
else
accept:=(pos(AnsiUpperCase(dbgrid1.Edit1.Text),AnsiUpperCase(DataSet[Form3.ADOQuery1.Fields[Form3.RadioGroup1.ItemIndex+1].FieldName]))<>0) or  (Form3.Edit1.text='');
 
end;
end;
 
procedure TForm3.Button1Click(Sender: TObject);
begin
Form4.Show;
ADOQuery1.Insert;
end;
 
procedure TForm3.Button2Click(Sender: TObject);
begin
  if dbgrid1.DataSource.DataSet.RecordCount<>0  then
       begin
        if (MessageBox(Handle, 'Удаление записей может привести к нарушению работы всей базы данных. Удалить запись?', 'Внимание !!!', MB_YESNO)=  IDYES) then
        Form3.ADOQuery1.Delete;
       end
                                                else ShowMessage('Нет записей для удаления');
end;
 
 
procedure TForm3.Button3Click(Sender: TObject);
begin
Form2.Show;
Form3.Close;
end;
 
procedure TForm3.Button4Click(Sender: TObject);
       var s:string;
begin
case RadioGroup1.ItemIndex of
0:s:='adres';
1:s:='fio';
 
end;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM postavshik WHERE '+s+'='+quotedstr(Edit1.Text));
ADOQuery1.Open;
end;
 
end.

Ругается на строчку var Accept: Boolean); Помогите исправить

@northener · 18.04.2014, 12:48

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

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

Не умеешь удалять строки?

@red1y · 18.04.2014, 14:45 **[ТС]**

При удалении одной записи, идет цепочка)
Эм, я просто Delphi особо не изучал, и нужно писать диплом) а задание именно на нем, Добавил модуль, буду делать фильтрацию через SQL, Тема больше не актуальна!

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

@red1y 8 / 8 / 4 Регистрация: 02.12.2012 Сообщений: 167
	18.04.2014, 14:45 [ТС]
	При удалении одной записи, идет цепочка) Эм, я просто Delphi особо не изучал, и нужно писать диплом) а задание именно на нем, Добавил модуль, буду делать фильтрацию через SQL, Тема больше не актуальна! 0