Фильтрация и ADO

[Derius]

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

слушай подскажи если знаешь, как создать дополнительный столбик в дбгрид?

программно - нет ))
видимо проще в Access )

[Derius]

Сообщение от S@fer

Показывай код. Надеюсь DBGrid связан с тем Query в котором происходит фильтрация?

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
Button1: TButton;
LabeledEdit1: TLabeledEdit;
Edit_Search: TEdit;
procedure Edit_SearchKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation
{$R *.dfm}
procedure TForm1.Edit_SearchKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [sr] WHERE [Fam] LIKE "'+Edit_Search.Text+'%"');
ADOQuery1.Active:=True;
end;

end.

[S@fer]

1) С каким компонентом связан DBGrid?
2) В какой из эдитов вводяться данные для поиска?

[Derius]

Сообщение от S@fer

1) С каким компонентом связан DBGrid?
2) В какой из эдитов вводяться данные для поиска?

1 - c DataSource1
1 - Edit1 у меня один с закладки Standart

[Derius]

Сообщение от S@fer

1) С каким компонентом связан DBGrid?
2) В какой из эдитов вводяться данные для поиска?

я там просто еще один ставил - пробовал, вот без него

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
Edit_Search: TEdit;
procedure Edit_SearchKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation
{$R *.dfm}
procedure TForm1.Edit_SearchKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [sr] WHERE [Fam] LIKE "'+Edit_Search.Text+'%"');
ADOQuery1.Active:=True;
end;

procedure TForm1.DBEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM [sr] WHERE [Fam] LIKE "'+Edit_Search.Text+'%"');
ADOQuery1.Active:=True;
end;

end.

[S@fer]

1 - c DataSource1

А DataSource1 с чем?

1 - Edit1 у меня один с закладки Standart

А это тогда что?

LabeledEdit1: TLabeledEdit;

Пользуйтесь правкой сообщений. и код выделяйте тегами (значок решетки)

[Derius]

Сообщение от S@fer

А DataSource1 с чем?

А это тогда что?

Пользуйтесь правкой сообщений. и код выделяйте тегами (значок решетки)

Да LabelEdit1 я уже удалил

[Derius]

Сообщение от S@fer

А DataSource1 с чем?

А это тогда что?

Пользуйтесь правкой сообщений. и код выделяйте тегами (значок решетки)

Извините, я просто сейчас на работе, прибегу на обед домой - скажу что с чем связано

[S@fer]

прикрепите сюда проект.
Так будет прще вам помоч

[SlavaSH]

Сообщение от S@fer

procedure TF_Main.Edit_searchKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  ADOQuery.Active:=False;
  ADOQuery.SQL.Clear;
  ADOQuery.SQL.Add('SELECT * FROM [Tablica] WHERE [FIO] LIKE "'+Edit_Search.Text+'%"');
  ADOQuery.Active:=True;
end;

Поиск происходит при вводе текста в едит

Почему используете событие OnKeyUp???
Лучше всего использовать OnChange.

Попробуйте такой код:

procedure TForm1.Edit_SearchChange(Sender: TObject);
begin
  ADOQuery.Close;
  ADOQuery.SQL.Text:='SELECT * FROM sr WHERE uCase(Fam) LIKE "'+AnsiUpperCase(Edit_Search.Text)+'%"');
  ADOQuery.Open;
end;

Или можно сделать еще проще:
У ADOQuery сделать запрос с параметром:

SELECT * FROM sr WHERE uCase(Fam) LIKE :Fam

А в событие OnChange для эдита такой код:

procedure TForm1.Edit_SearchChange(Sender: TObject);
begin
  ADOQuery.Close;
  ADOQuery.Parameters.ParamByName('Fam').Value:=AnsiUpperCase(Edit_Search.Text)+'%';
  ADOQuery.Open;
end;