Фильтрация данных по запросу из БД

[ozarnik585]

Всем доброго времени суток!
Возникла не большая проблема с фильтрацией данных в моей базе данных, не знаю как её реализовать.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,
  Buttons, Mask, ComCtrls;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    Query1: TQuery;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);

  private
    { Private declarations }
    Procedure Setfilter;
    Procedure Setfilter2;
    Function Filteropts: tfilteroptions;
    Function Filterstr: string;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

 Function IsValidDate (s:string):boolean;
Begin
Try
Strtodate(s);
Result:=true;
Except
Result:=false;
End;
End;

 Function Tform1.Filterstr: string;
Begin
Result:='';
If Length (Edit1.Text) >0 then
Begin
Result:='Naimenovanie_Fish'+Edit1.Text+'''';
End;

 end;

 Function tform1.filteropts :tfilteroptions;
Begin
If checkbox1.Checked then result:=[fonopartialcompare];
If checkbox2.Checked then result:=[focaseinsensitive];
End;

Procedure Tform1.Setfilter ;
Begin
If Checkbox3.Checked then
With Query1 do
Begin
Filteroptions:=Filteropts;
Filter:=Filterstr;
Filtered:=True;
End
Else
Query1.Filtered:=False;
End;


procedure TForm1.Button1Click(Sender: TObject);
Var  Locopts:   tlocateoptions;
Begin
Locopts:=[ ];
If Checkbox1.Checked then locopts:=locopts+[lopartialkey];
If Checkbox2.Checked then locopts:=locopts+[locaseinsensitive];
Query1.Locate('Naimenovanie_Fish', Edit1.Text, locopts);
  end;



Procedure TForm1.Setfilter2;   // Фильтрация данных.
Var  Locopts:   tlocateoptions;
Begin
If CheckBox5.Checked then
With Query1 do
Begin
Filteroptions:=Filteropts;
Filter:=Filterstr;
Filtered:=True;
End
Else
Query1.Filtered:=False;
End;

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
Setfilter2;
end;

end.

Вот ссылка на исходник: http://file.qip.ru/file/122760997/fe...hi_150310.html

[evg_m]

Возникла не большая проблема с фильтрацией данных в моей базе данных, не знаю как её реализовать.

и что за проблема?

[ozarnik585]

Мне надо что бы он оставлял одну запись которую я ввожу а он даже не производит поиск .

[grom333]

Не в праве навязывать, но этот код, который мне понравился по поиску в базе.

procedure TForm1.RzEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

    with ADOQuery1 do begin
       Close;
       SQL.Clear;
       SQL.Add('SELECT DISTINCT Фамилия,Улица,дом,телефон FROM tab1');
       SQL.Add('WHERE Фамилия LIKE'+quotedstr(rzedit1.text+'%'));
       SQL.Add('ORDER BY Фамилия');
       Open;
end;
  end;

[ozarnik585]

Ну мне щас не хочеться новшество испытывать. Мне надо просто подправить мой код...

[grom333]

тогда я тут не в силах.

[evg_m]

чтобы сказать надо как минимум знать что вводите а лучше еще и знать что хотите сделать с примером полей таблицы и данных а не просто

Мне надо что бы он оставлял одну запись

Filrer + F1 =
For example, the following filter condition displays only those records where the State field is 'CA' or 'MA':

State = 'CA' or State = 'MA'

насколько это соответствует тому что у вас.

[ozarnik585]

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