фильтрация данных

← →
новичок из сыктывкара (2005-06-05 00:22) [0]

Приветсвую мастера!!! =))
трабла такая..прохожу практику и задали задачку сделать телефонную базу для предприятия на делфе..
ну и вот вопрос такой как организовать отсеивание записей...т.е если идет отсеивание по фимилии ,
то я в edit начинаю вводить фамилию а в dbgrid потихоньку происходит отсеивание!!!плиз помогите!!!

← →
alex-drob (2005-06-05 01:23) [1]

Для BDE Query и Table

Filter:="поле="+QuotedStr(edit1.text+"*");
Filtered:=true;
FilterOption:=[foCaseInsensitive]

← →
новичок из сыктывкара (2005-06-05 09:54) [2]

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

← →
Sergey13 © (2005-06-05 10:34) [3]

В обработчике OnChange твоего Edit-а пишешь
with Table1 do begin Filter:="поле="+QuotedStr(edit1.text+"*"); FilterOption:=[foCaseInsensitive] Filtered:=true; end;
Примерно так.

← →
новичок из сыктывкара (2005-06-05 11:29) [4]

вот смотри..делаю все как ты говоришь а при компиляции выводит ошибку..undeclared undifered: "FilterOption"может есть какой то другой способ или метод

← →
Anatoly Podgoretsky © (2005-06-05 11:34) [5]

Такое говорит, когда в модуле не указаны все другие необходимые ему модули.

← →
Sergey13 © (2005-06-05 11:35) [6]

2 [4] новичок из сыктывкара (05.06.05 11:29)
Может все таки раскажешь какая база, компоненты доступа, код приведешь.

← →
Николай (2005-06-05 13:32) [7]

Ребята, не заморачивайтесь. Просто не FilterOption, а FilterOptions

← →
новичок из сыктывкара (2005-06-05 23:40) [8]

хорошо рассказываю...точнее код привожу!! думаю так понятнее будет...
interface

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

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
ADOQuery1: TADOQuery;
procedure Edit1Change(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
with ADOTable1 do
begin
Filter:="Должность="+QuotedStr(edit1.text+"*");
FilterOption:=[foCaseInsensitive]
Filtered:=true;
end;
end;

end.

вот в принципе и весь код...я просто с БД ранее не сталкивался вот поэтому проблемы и возникают...мне единственно нужно организовать поиск\фильтрацию...способом описанным ранее

← →
новичок из сыктывкара (2005-06-06 12:51) [9]

а разве у edita"а есть такое свойство filtered???
начинаю забивать текст для поиска выдает оибку

← →
новичок из сыктывкара (2005-06-06 13:00) [10]

вот такая ошибка
filter expression incorrectly termmnated

2[8] новичок из сыктывкара (05.06.05 23:40)
FilterOptions:=[foCaseInsensitive]

2[9] новичок из сыктывкара (06.06.05 12:51)
>а разве у edita"а есть такое свойство filtered???
А где ты его увидел?

2[10] новичок из сыктывкара (06.06.05 13:00)
Я с аксесом и полями по русски не работал никогда. Может в этом причина?

В гриде у тебя точно ADOTable1? Не ADOQuery1 (зачем тогда он, кстати)?

← →
новичок из сыктывкара (2005-06-06 13:25) [12]

В гриде у тебя точно ADOTable1? Не ADOQuery1 (зачем тогда он, кстати)?
я ADOQuery убрал...он внутре не нужен..
поля у мня теперь по анлицки...
даже делаю filterptionss но все равно ошибка...приведу код еще раз...
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Query1: TQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Table1: TTable;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure Edit1Change(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Active:=true;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
with Table1 do
begin
Filter:="dolgnost"+QuotedStr(edit1.text+"*");
FilterOptions:=[foCaseInsensitive]
Filtered:=true;
end;
end;

end.

Filter:="dolgnost="+QuotedStr(edit1.text+"*");

А поле не лукапное случайно?
А если FilterOptions:=[foCaseInsensitive] закоментарить - будет работать?

Какое то странное выражение
Filter:="dolgnost"+QuotedStr(edit1.text+"*");

← →
alex-drob (2005-06-06 17:32) [15]

фильтрация данных Найти похожие ветки