[delphicoding]

Здравствуйте!

Из БД в Dataset приходит некая таблица данных. Есть 3 поля для ввода типа "выпадающий список" - DBLookupCombo, DBComboBox, итд.
Задача - используя 1 Dataset вывести в 3 разных выпадающих списка три разных списка по признакам (с использованием фильтра):
Поле1 все записи где А=1, Поле2 все записи где Б=2, Поле3 все записи где В=3

В настройках данных полей фильтров не нашёл. Подскажите, пожалуйста, как это можно сделать?

[Delphist]

А на Х тебе тогда фильтр понадобился, SQL запрос чего тебе надо.

[chainik]

я для себя изобрел процедуру которая принимает SQL запрос и заполняет ComboBox.Items (или любой объект типа TStrings)
у меня это оформлено в виде dll и я просто подключаю ее к проекту
попробуй, может понравится

Код:

{----------------------------------------------------
    процедура заполняет ComboBox.Items,
    DBGrid.PickList
-----------------------------------------------------}
procedure SetItems(IBDB:TIBDataBase;List:TStrings;SQLstr:shortstring);stdcall;
var
IBQ:TIBQuery;
begin
IBQ:=TIBQuery.Create(IBDB.Owner);
IBQ.Database:=IBDB;
with IBQ do    //заполн. PickList
    begin
    SQL.Text:=SQLstr;
    Open;
//    First;
    List.Clear;
    while not eof do
        begin
        if Fields[0].AsString <> '' then
            List.Add(Fields[0].AsString);
        Next;
        end;
    Close;Destroy;
    end;    //with
end;

[delphicoding]

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

А на Х тебе тогда фильтр понадобился, SQL запрос чего тебе надо.

Нельзя поставить SQL запрос в свойства выпадающего списка. Изменять SQL запрос связанного Dataset также нельзя, тк все 3 списка отображаются на одной форме одновременно. Поэтому и нужно нечто вроде фильтра для этих списков...

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

я для себя изобрел процедуру которая принимает SQL

Спасибо за пример и код! В данном случае библиотека не нужна, хватит невизуального компонента FIBQuery + половины этого кода.

Может можно как-то всё же с Dataset и фильтром?

[Delphist]

ты что то дружок паришся вокруг трех сосен, верней трех списков. кинь ты три query и привяжи к каждому, а фильтрация очень тупая вещь)))

[delphicoding]

Очень тупой это похоже ты.

Вопрос задан как задан, если тебе сказать нечего - не парь своим бредом.

[Delphist]

А вот кто туп, дак это ты с таким вопросам! меняя фильтрацию в одном датасет он поменяет данные во всех боксах! дак то тут своим бредом парит???

[chainik]

Трудностей не понял. Моя процедура никак не затрагивает твой запрос поскольку динамически создает свой компонент IBQuery. На экране ничего не изменяется.
Ну не хочешь так- вот второй способ.
Пробегаешь свой запрос и разбрасываешь Items по разным DBComboBox
Впрочем есть и третий-кидаешь на форму 3 IBQuery и привязываешь их к твоим DBComboBox (совет Delphist)

Код:

1:
 {
SetItems(IBDataBase1,DBComboBox1.Items,'SELECT Family WHERE A=1');
SetItems(IBDataBase1,DBComboBox2.Items,'SELECT Family WHERE A=2');
SetItems(IBDataBase1,DBComboBox3.Items,'SELECT Family WHERE A=3');
  }

2:
procedure SetItems;
begin
with Form1,IBQuery1 do
while not Eof do
    begin
        case FieldByName('A').AsInteger of
        1:DBComboBox1.Items.Add(FieldByName('Family').AsString);
        2:DBComboBox2.Items.Add(FieldByName('Family').AsString);
        3:DBComboBox3.Items.Add(FieldByName('Family').AsString);
        end;    //case
    Next
    end;
end;

[delphicoding]

А вот кто туп, дак это ты с таким вопросам! меняя фильтрацию в одном датасет он поменяет данные во всех боксах! дак то тут своим бредом парит???

ОМГ! Не в Datasaet фильтрация нужна, а "отобразить лишь нужные строки из общей таблицы" - то есть фильтр в выпадающем списке, никак не влияющий на Dataset!!!



Ещё мелкий простой вопрос по ходу - как правильно писать строку вида, только универсально для любого числа:
Поле1.Enabled:=Кнопка1.Pressed;
Поле2.Enabled:=Кнопка2.Pressed;
Поле[X].Enabled:=Кнопка[X].Pressed; ?
Поле+[X].Enabled:=Кнопка+[X].Pressed; ?
То есть как в коде использовать в названиях объектов цифры-номера?
Можно ли использовать маски автоподстановки в коде, то есть чтобы для последних двух строк не писать вообще само число, а работало универсально?

[delphicoding]

Уточните, пожалуйста - Filter в Dataset как работает? Фильтрует ПОЛУЧЕННЫЕ записи, или же строка фильтра добавляется к запросу в БД?
Пример - получил Dataset таблицу данных, применили фильтр, что произошло с данными? все неподходящие под фильтр данные совсем убраны из Dataset или же просто не передаются в DataSource ?
При изменении фильтра будет повторный запрос Select? или будет проведена выборка из первоначальной таблицы данных?

[NumLock]

TDataSet их "не пропускает"

[delphicoding]

Кстати, профессионалы, а ведь у DBComboBox за одним из [+] настройки скрывается Filter! Может это то, что нужно???
В связи ч ем возникает вопрос - есть ли какие-либо реальные преимущества у DBLookupCombo который без Filter ???

[NumLock]

покажи скрин? и перестань путать DBComboBox и DBLookupCombo.

[delphicoding]

Я их не путаю, это 2 разных компонента, только почему-то в проекте использованы оба вперемешку...
http://wiki.delphi-jedi.org/wiki/JVC...ettings.Filter
У этого компонента есть параметры: DataSource и ListSettings -> DataSource, там же и на том же уровне находится и ListSettings -> Filter

Смотрим скрин, удивляемся, офигиваем, благодарим за просвещение

[NumLock]

а..а, уже TJvDBComboBox. пожалуй я не буду смотреть скрин...