Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

новичок из сыктывкара © (2005-06-05 00:22:00)
Приветсвую мастера!!! =))
трабла такая..прохожу практику и задали задачку сделать телефонную базу для предприятия на делфе..
ну и вот вопрос такой как организовать отсеивание записей...т.е если идет отсеивание по фимилии ,
то я в edit начинаю вводить фамилию а в dbgrid потихоньку происходит отсеивание!!!плиз помогите!!!

alex-drob (2005-06-06 17:32:00) [1]

> Anatoly Podgoretsky © (06.06.05 13:54) [14]

Здесь равно пропущено

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

Anatoly Podgoretsky (2005-06-06 13:54:00) [2]
Какое то странное выражение
Filter:='dolgnost'+QuotedStr(edit1.text+'*');

Sergey13 (2005-06-06 13:28:00) [3]
Filter:='dolgnost ='+QuotedStr(edit1.text+'*');

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

новичок из сыктывкара (2005-06-06 13:25:00) [4]
В гриде у тебя точно ADOTable1? Не ADOQuery1 (зачем тогда он, кстати)?
я ADOQuery убрал...он внутре не нужен..
поля у мня теперь по анлицки...
даже делаю filterptions sно все равно ошибка...приведу код еще раз...
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.

Sergey13 (2005-06-06 13:12:00) [5]
2[8] новичок из сыктывкара (05.06.05 23:40)
FilterOption s :=[foCaseInsensitive]

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

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

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

новичок из сыктывкара (2005-06-06 13:00:00) [6]
вот такая ошибка
filter expression incorrectly termmnated

новичок из сыктывкара (2005-06-06 12:51:00) [7]
а разве у edita'а есть такое свойство filtered???
начинаю забивать текст для поиска выдает оибку

новичок из сыктывкара (2005-06-05 23:40:00) [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-05 13:32:00) [9]
Ребята, не заморачивайтесь. Просто не FilterOption, а FilterOptions

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

Anatoly Podgoretsky (2005-06-05 11:34:00) [11]
Такое говорит, когда в модуле не указаны все другие необходимые ему модули.

новичок из сыктывкара (2005-06-05 11:29:00) [12]
вот смотри..делаю все как ты говоришь а при компиляции выводит ошибку.. undeclared undifered: "FilterOption"может есть какой то другой способ или метод

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

новичок из сыктывкара (2005-06-05 09:54:00) [14]
извини..но не понял..где какие свойства выставлять ///
filteroption ваще не нашел...где какие связи ставить...
может расскажещь чуток подробнее...очень прошу

alex-drob (2005-06-05 01:23:00) [15]
Для BDE Query и Table

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »