Помогите, пожалуйста разобраться с поиском в БД (Delphi7)

[KARUSHEV]

Отдельное спасибо, за предыдущую помощь в разработке этой базы данных Михалычу!!!

Не получается запрос в таблице Абоненты, подскажите, что не так делаю.

procedure TForm3.RadioButton1Click(Sender: TObject);
begin
DataModule2.TAbonent.IndexFieldName s :='Family';
end;

procedure TForm3.FindEditChange(Sender: TObject);
begin
if Length(FindEdit.Text)=0 then // если FindEdit пуст
DBGrid1.DataSource:=DataModule2.FIN D_DS // отображать FIND_DS
else // иначе
begin
// запрос на отображение в гриде по любому совпадению текста в FindEdit

DataModule2.FINDQuery.SQL.Text:=
'SELECT * FROM Abonent WHERE (Family LIKE '+QuotedStr(FindEdit.Text+'%')+')';
DataModule2.FINDQuery.Open;
DBGrid1.DataSource:=DataModule2.FIN D_DS;
end;
end;

База прилагается ))

Заранее большое спасибо!

[mihali4]

А чего удивляться-то? У вас FIND_DS на какой датасет подцеплен?
Правильно, на таблицу абонентов. Вот вам и отображается неизменная таблица абонентов - даже если сделать забытое вами
DataModule2.FINDQuery.Close;
перед
DataModule2.FINDQuery.SQL.Text:='.. .'

[KARUSHEV]

Не понимаю, у меня же поиск идет по таблице Абоненты? Или мне нужно создать другую таблицу?

[KARUSHEV]

Извините, за такие вопросы, уже весь в учебниках зарылся, очень сложно разбираться с нуля.

[mihali4]

Да просто у FIND_DS в качестве параметра DataSet должно быть указано FINDQuery, а не TAbonent...
Вы же хотите увидеть данные не из TTable, а из TQuery...

[KARUSHEV]

у меня выбирается в параметре DataSet только таблицы, может я не так что делаю?

[KARUSHEV]

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

Да просто у FIND_DS в качестве параметра DataSet должно быть указано FINDQuery, а не TAbonent...
Вы же хотите увидеть данные не из TTable, а из TQuery...

Так и не разобрался, как можно указать FINDQuery, пошел другим путем для поиска данных: Locate.

Все работает ))

procedure TForm3.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked

then
begin
if not DataModule2.TAbonent.Locate('Family ', Form3.FindEdit.Text, []) then
ShowMessage ('Запись не найдена');
end

else
if RadioButton2.Checked
then begin
if not DataModule2.TAbonent.Locate('Name', Form3.FindEdit.Text, []) then
ShowMessage ('Запись не найдена');
end

else
if RadioButton3.Checked
then begin
if not DataModule2.TAbonent.Locate('City', Form3.FindEdit.Text, []) then
ShowMessage ('Запись не найдена');
end

else
if RadioButton4.Checked
then begin
if not DataModule2.TAbonent.Locate('Street ', Form3.FindEdit.Text, []) then
ShowMessage ('Запись не найдена');
end;
end;

Начну разбираться с самым сложным для меня: формированием таблицы счетов...

[mihali4]

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

у меня выбирается в параметре DataSet только таблицы, может я не так что делаю?

А что - вручную ввести эти буковки FINDQuery тоже не получается?

[KARUSHEV]

Менять нужно в Object Inspector? Если так, то в ручную не получается. Может можно где то в другом месте прописать?

Выдает ошибку FIND_DS: Circular datalinks are not allowed

Если у Вас получилось скиньте, пожалуйста, исправленную базу.

[mihali4]

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

Выдает ошибку FIND_DS: Circular datalinks are not allowed

Очистите свойство DataSource у FINDQuery и будет вам счастье.