VPF::ComboBox, Filter - Форум программистов

Anakin

Дата 9.4.2009, 16:39 (ссылка)

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

Загрузка ...

Бывалый

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

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

Всем Драсте.
Помогите решить проблему.
Использую АДО и Базу Акчес.
На форме есть TEdit,Combobox
В базе хранятса данные типа

----------------------
ID I Art   I  Dest  I
1  I 111  I Text1 I
2  I 112  I Text2 I
3  I 111  I Text3 I

Так вот проблема в следующем.
Когда я пытаюсь в ТЕдит ввести допустим 111 комбобокс должен заполнитса только теми которые имеют значение таблицы ART =111
Но чтото у меня не получаетса ((
Перерыл весь форум пыталса сам но ничего не выходит ((

Anakin

Дата 9.4.2009, 17:16 (ссылка)

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

Загрузка ...

Бывалый

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

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

Может мне задавать фильтр ADOTable и уже из отфильтрованного заполнять Комбобокс.
Это так теория.. Попробую сбацать.
Если у кого есть идеи подскажите плизз.

Kbl4AH

Дата 9.4.2009, 21:35 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


procedure TForm1.Edit1Exit(Sender: TObject);
var
  Key: Word;
begin
  Key := VK_RETURN;
  Edit1KeyUp(Self, Key, []);
end;

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    // тут пишу примерно, т.к. проверить не могу и ADO не знаю :(    
    ADOQuery1.SQL.Text := 'select dest from table where art = :art';
    ADOQuery1.Parameters.ParamByName('art').Value := Edit1.Text;
    ADOQuery1.Open;
    ComboBox1.Clear;
    while not ADOQuery1.Eof do
    begin
      ComboBox1.Items.Add(ADOQuery1.FieldByName('dest').AsString);
      ADOQuery1.Next;
    end;
    if ComboBox1.Items.Count > 0 then
    begin
      ComboBox1.ItemIndex := 0;
      ComboBox1.DroppedDown  := True;
    end;
  end;
end;

ЗЫ. Оказывается в ADO параметр после запроса нужно указывать smile

исправил

Это сообщение отредактировал(а) Kbl4AH - 9.4.2009, 22:08

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