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

[kucher69]

Работал в DELPHI 7
создал 2 базы в Database Desktop
потом подключил их в BDE Administrator
получилась вот такая база
2015-09-15_235338.jpg
вот сам файл
фильтрация.rar
в поле edit ввёл этот код для фильтрации данных в дувух таблицах DBgrid

if Edit1.Text<>'' then
begin
Table1.Filtered:=true;
Table1.Filter:=DBGrid1.SelectedField.FieldName+'='''+Edit1.Text+'*''';
end
else
Table1.Filtered:=false;
end;

но почему то всё равно не работает фильтрация

[xxbesoxx]

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

но почему то всё равно не работает фильтрация

Это что ? '''+Edit1.Text+'*''';
так будет работать

var
  s: string;
begin
 if (Trim(Edit1.Text)<>'') then
  begin
    s := ' Имя_поля like ';
    Table1.Filter := s + '''' + Trim(Edit1.Text) + '%''';
    Table1.Filtered := True;
  end
  else
    Table1.Filtered := False;
end;

[kucher69]

вот такая вот ошибка выходит

Build
  [Error] Unit1.pas(40): Undeclared identifier: 'Edit1'
  [Error] Unit1.pas(43): Undeclared identifier: 'Table1'
  [Error] Unit1.pas(43): There is no overloaded version of 'Trim' that can be called with these arguments
  [Error] Unit1.pas(43): Incompatible types: 'String' and 'Text'
  [Error] Unit1.pas(44): Missing operator or semicolon
  [Error] Unit1.pas(47): Missing operator or semicolon
  [Error] Unit1.pas(48): '.' expected but ';' found
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

вот мой весь код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, DB, Grids, DBGrids, DBTables;

type
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table1: TTable;
    Table2: TTable;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Table2Key1: TAutoIncField;
    Table2FIO: TStringField;
    Table2Adres: TStringField;
    Table1Key1: TAutoIncField;
    Table1Key2: TIntegerField;
    Table1Data: TDateField;
    Table1Name: TStringField;
    Table1Kol: TIntegerField;
    ToolBar1: TToolBar;
    Edit1: TEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
    s: string;
implementation

{$R *.dfm}
begin
 if (Trim(Edit1.Text)<>'') then
  begin
    s := ' Имя_поля like ';
    Table1.Filter := s + '''' + Trim(Edit1.Text) + '%''';
    Table1.Filtered := True;
  end
  else
    Table1.Filtered := False;
end;
end.

в чём может быть моя ошибка

[evg_m]

имя_поля надо не копировать, а подставлять вместо него НУЖНОЕ имя поля.
возможно и так

///s := ' Имя_поля like ';
s:=selectedField.FieldName + ' like ';

[Stilet]

Я бы на твоем месте описал событие

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

begin
  Accept := pos(Trim(Edit1.Text),DataSet[DBGrid1.SelectedField.FieldName])<>0;
end;

и тогда код

begin
 if (Trim(Edit1.Text)<>'') then
  begin
    Table1.Filtered := false;
    Table1.Filtered := True;
  end;
end;

сработает на этом событии, которое и будет фильтровать.

НО! Ты этот код должен поместить в нужное место, а не так как у тебя представлено. Ибо то, что ты написал будет выполнено только один раз при запуске (Если конечно вообще выполнится).
Где он у тебя должен выполняться?

[kucher69]

у меня он должен выполняться в edit1

извиняюсь за возможно глупый вопрос но как описать событие

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);

begin
  Accept := pos(Trim(Edit1.Text),DataSet[DBGrid1.SelectedField.FieldName])<>0;
end;

нужно какой ещё компонент на форму выкидывать?

нужное место в смысле edit1? то поле в которое буду вводить запросы для поиска

2015-09-17_144904.jpg
вот моя задача для наглядности

[Stilet]

но как описать событие

Хе )
А почему ты взялся за задание по базам, если не знаком с основами Делфи?
Описать событие как обычно - в инспекторе объектов на вкладке событий - это тебе о чем-нибудь говорит?