Поиск по нескольким полям(БД)

[DR.XXX]

Здравствуйте всем!
 В приложении имеются компоненты DBEdit1,2,3, DBGrid1, ADOQuery1,DataSource1 и 3 checkbox-a.
Нужно произвести поиск по введенным данным в поля (DBEdit1,2,3) и результат вывести на сетку(DBGrid1). checkbox-ы раставлены перед соответствующими DBEdit и должны открывать доступ ввода в DBEdit-ы. Для какого DBEdit-а открыт доступ, по этим критериям и должен искать.(используется БД Access)

Вроде все выложил. Не получается последнее: Для какого DBEdit-а открыт доступ , по этим критериям и должен искать. Подскажите как это сделать.

Спасибо за внимание!


 

[Алексей++]

смотрим, где стоят галки, вытаскиваем текст из тех едитов, стряпаем запрос по введённой информации, выполняем запрос, выводим в грид . Вроде так )

[x77]

DR.XXX, DBEdit - это поля, предназначенные для отображения и ввода информации, а не для поиска. если вы в DbEdit введёте данные, ADOQuery попытается вставить их БД. в лучшем случае - ничего не произойдёт. в худшем - будет ругань, типа "Dataset not in Edit or Insert mode".

надо взять обычные Edit, никак не связанные с БД. по клику на CheckBox делать EditN.Enabled := CheckBoxN.Checked. сформировать список имён полей (FNames - обычная строка, поля разделяются через точку с запятой) и список значений (вариантный массив, например: FValues := VarArrayOf ([Edit1.Text, Edit3.Text]) ) для включенных Edit'ов.

а дальше, собственно, искать: ADOQuery.Locate (FNames, FValues, [loPartialKey]);


Алексей1153++, Лёша, ты привёл алгоритм не поиска, а фильтра

[Алексей++]

каюсь ))

[DR.XXX]

сформировать список имён полей (FNames - обычная строка, поля разделяются через точку с запятой) и список значений (вариантный массив, например: FValues := VarArrayOf ([Edit1.Text, Edit3.Text]) ) для включенных Edit'ов.

x77, если не затруднит, можно по подробнее. Для чего нужнен  FNames и как программа будет определять какой из edit-ов включен?

 

[x77]

DR.XXX, синтаксис Locate:

Код:

function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; virtual;

KeyFields - это список полей, по которым будет идти поиск, разделённых через запятую. Если нужно искать по полям 'AAA' и 'BBB', то KeyFields = 'AAA;BBB'.

Edit "включен" - если у него свойство Enabled = TRUE.

[DR.XXX]

x77, проверь пожалуйста этот код, программа запускается без ошибок, но при нажатии на кнопку поиск ничего не ищет: 

Код:

procedure TForm3.Button1Click(Sender: TObject);
var
FValues:Variant;
begin
 FValues:=VarArrayOf([edit1.Text,edit2.Text]);
 datamodule2.FindQuery.Locate ('автор;название',
    FValues, [DB.loPartialKey]);

end;

[x77]

код нормальный. но неужели в БД поля называются "автор" и "название"? какая у вас СУБД используется?

в эту функцию передаётся не DisplayLAbel поля, а его физическое имя в БД. а большинство БД - заводить русские имена не позволяют.

[DR.XXX]

x77, использую БД Access.

[x77]

разбейте задачу на составляющие. поставьте на форму кнопку и добейтесь, чтобы по клику на кнопке у вас правильно отработало

Код:

 FValues:=VarArrayOf('ааа','ббб']);
 datamodule2.FindQuery.Locate ('автор;название',
    FValues, [DB.loPartialKey]);

потом прикрутите этот поиск в общем виде.