[IGONZO]

помогите плиз новичку как сделать поиск по dbgrid с помощю ado
а то меня точно выпрут из вуза

[windaws]

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

помогите плиз новичку как сделать поиск по dbgrid с помощю ado
а то меня точно выпрут из вуза

уже за это выпирают =) IF хоть небольшое представление есть THEN думаю в коде разберешься ELSE выпрут из универа

Код:

procedure TPokupateli.Edit1Change(Sender: TObject);
begin
if (edit1.text<>'') then
begin
dm.org_table.Filter:='(Название LIKE '''+edit1.Text+'%'')';
dm.org_table.Filtered:=true;
end
else
dm.org_table.Filtered:=false;
end;

dm - модуль данных, если таблица находится на форме то можно не указывать
org_table - Название таблицы
Название - поле по которому будет осуществляться фильтрация.

[lmikle]

Windaws, это фильтрация.
Если поиск, то нужно либо пользовать Locate, либо руками по источнику данных и проверять:

Код:

procedure TForm1.Findrecord(AFieldName, AFieldValue : String; AReset : Boolean);
begion
  ADOQuery1.DisableControls; // Не помню, может надо у TDataSource вызывать.
  Try
     If AReset Then ADOQuery1.First Else ADOQuery1.Next;
      While Not ADOQuery1.EOF Do
         Begin
           If ADOQuery1.FieldByName(AFieldName).AsString = AFieldValue 
             Then Exit;
           ADOQuery1.Next;
         End;
     ShowMessage('Ничего не найдено...');
  Finally
    ADOQuery1.EnableControls;
  End;
end;

Код только на точное сравнение и не разбирает типы данных - это только пример.

[IGONZO]

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

уже за это выпирают =) IF хоть небольшое представление есть THEN думаю в коде разберешься ELSE выпрут из универа

Код:

procedure TPokupateli.Edit1Change(Sender: TObject);
begin
if (edit1.text<>'') then
begin
dm.org_table.Filter:='(Название LIKE '''+edit1.Text+'%'')';
dm.org_table.Filtered:=true;
end
else
dm.org_table.Filtered:=false;
end;

dm - модуль данных, если таблица находится на форме то можно не указывать
org_table - Название таблицы
Название - поле по которому будет осуществляться фильтрация.

TPokupateli это что ???
и к чему его привязать

'(Название LIKE '''+edit1.Text+'%'')';


название в смысле базы или таблицы в базе у мну их три

[IGONZO]

не могу понять чего он ругается
помогите плиз

[gebs]

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

не могу понять чего он ругается
помогите плиз

Я сейчас сижу и втыкаю в Delphi по 10 часов в день и безумно жалею о том, что когда то выбрал не ту профессию.

[gebs]

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

Windaws, это фильтрация.
Если поиск, то нужно либо пользовать Locate, либо руками по источнику данных и проверять:

Код:

procedure TPokupateli.Edit1Change(Sender: TObject);
begin
if (edit1.text<>'') then
begin
dm.org_table.Filter:='(Название LIKE '''+edit1.Text+'%'')';
dm.org_table.Filtered:=true;
end
else
dm.org_table.Filtered:=false;
end;

Код только на точное сравнение и не разбирает типы данных - это только пример.

Задам Вам втсречный вопрос, сейчас нет под рукой делфи, а как сделать поиск по всем полям? Указать '' или оставить полне пустным вместо "Название" ?

[gebs]

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

Windaws, это фильтрация.
Если поиск, то нужно либо пользовать Locate, либо руками по источнику данных и проверять:

Код:

procedure TForm1.Findrecord(AFieldName, AFieldValue : String; AReset : Boolean);
begion
  ADOQuery1.DisableControls; // Не помню, может надо у TDataSource вызывать.
  Try
     If AReset Then ADOQuery1.First Else ADOQuery1.Next;
      While Not ADOQuery1.EOF Do
         Begin
           If ADOQuery1.FieldByName(AFieldName).AsString = AFieldValue 
             Then Exit;
           ADOQuery1.Next;
         End;
     ShowMessage('Ничего не найдено...');
  Finally
    ADOQuery1.EnableControls;
  End;
end;

Код только на точное сравнение и не разбирает типы данных - это только пример.

Задам Вам втсречный вопрос, сейчас нет под рукой делфи, а как сделать поиск по всем полям? Указать '' или оставить полне пустным вместо "Название" ?