VPF::Выборка из БД => ListBox - Форум программистов

Black_Joker

Дата 18.1.2005, 14:12 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 212
Регистрация: 9.11.2002
Где: Таганрог

Репутация: нет
Всего: нет

Как сделать выборку с одним или несколькими фильтрами в таблице, и результатами заполнить ListBox?

z-END

Дата 18.1.2005, 14:27 (ссылка)

(нет голосов)

Загрузка ...

прафесар™

Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102

Код


Table1.Filter := '(BLA-BLA-BLA) And (CHA-CHA-CHA)';
Table1.Filtered := true;
Table1.First; //незнаю надо ли это делать, но в документации не нашел переходит ли указатель при применении фильтра на первую запись
ListBox1.Items.Clear;
while not Table1.eof do
 begin
  ListBox1.Items.Add (Table1_SOME_Field.AsString);
  Table1.Next;
 end;

--------------------

Каждый чилавек пасвоему праф...а памоему НЕТ!

Akella

Дата 18.1.2005, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

тебе не в ту тему
воспользуйся поиском в БД и репортинг

http://forum.vingrad.ru/index.php?showtopic=31536&hl=filter

Akella

Дата 18.1.2005, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Итак, выполняем фильтрацию
tZayFilter - таблица (TTable)
lcbFilials - TComboBox

Код


принцип такой
если Accept = true, то запись будет показа, иначе нет
минус - на медленных машинах работает медленно
плюс - можно выполнять фильтрацию языками высого уровня, применяя сложные условия и ветвления
в событии
procedure TfmMain.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
 if bFilterFilials then
   Accept := DataSet['ZFilial'] = lcbFilials.KeyValue;
end;

//или

procedure TfmMain.tZayFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
 if   DataSet['ZFilial'] = 'филиал' then
 Accept := true;
end;

для того, чтобы отфильтровать

Код


  tZayFilter.Filtered:=True;

далее "гуляя" от начала таблицы до ее конца добавляем записи определенного поля в ListBox

Код


Table1.First;
while not Table1.EOF do
  ListBox1.Items.Add(Table1.FieldByName('FieldName').AsString)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »