VPF::ComboBox выбрать из списка и выполнить OnChange

ziga

Дата 11.6.2009, 08:59 (ссылка)

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

Загрузка ...

Опытный

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

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

У меня на форме есть 2 ComboBox'а и оба они заполняются из базы по такому принципу:
1 - заполняется сразу при загрузки формы
2 - заполняется в зависимости от выбраного поля из первого (в запрос передаётся ID выбраного поля каторый возвращает значени заполняемые второй комбо бокс)

Теперь я передаю в форму уже нужны ID для заполнения второго комбабакса и мне надо сделать так, что бы первый комбобокс выделял ту запись каторая соотвествует переданому ID и выполнил OnChange в катором выполняется заполнение второго комбобокса как это сделать ? вот код заполнения :

Заполнение первого комба

Код


  cbFaculty.Clear;

  with oqFaculty do
    try
      Execute;

      while not Eof do
      begin

          if oqFaculty.FieldByName('id_faculty').AsInteger <> -1 then
            cbFaculty.AddItem(oqFaculty.FieldByName('faculty_name').AsString,
              Pointer(oqFaculty.FieldByName('id_faculty').AsInteger));

        Next;
      end;

      with cbFaculty, Items do
        if Count > 0 then
          ItemIndex := 0;
    finally
      Close;
    end;

Заполнение второго комбобокса при выборе значения из первого

Код


procedure TFrmAddStudent.cbFacultyChange(Sender: TObject);
begin

  cbProgramm.Items.Clear;
  with oqProgramm do
  begin
    try
      ParamByName('p').AsInteger := Integer(cbFaculty.Items.Objects[cbFaculty.ItemIndex]);
      Execute;

      while not Eof do
      begin
        cbProgramm.AddItem(FieldByName('program_name').AsString,
          Pointer(FieldByName('id_program').AsInteger));

        Next;
      end;

      with cbProgramm, Items do
        if Count > 0 then
          ItemIndex := 0;
    finally
      Close;
  end;
  end;

end;

Frees

Дата 11.6.2009, 10:44 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

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

может лучше TDBLookupCombobox использовать

Это сообщение отредактировал(а) Frees - 11.6.2009, 10:44

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

Кольцов Виктор Владимирович

Keeper89

Дата 11.6.2009, 10:44 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Цитата(ziga @ 11.6.2009, 09:59

)

что бы первый комбобокс выделял ту запись каторая соотвествует переданому ID

Если мы выбираем запись в комбо1, она уже будет выделена... или я чего-то не понимаю?

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

ksili

Дата 11.6.2009, 11:05 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2069
Регистрация: 3.11.2005
Где: Красноярск

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

Цитата(Keeper89 @ 11.6.2009, 14:44

)

Если мы выбираем запись в комбо1, она уже будет выделена... или я чего-то не понимаю?

Кажись так.

Наверно надо что-то вроде

cbFaculty.ItemIndex = x;
или
cbFaculty.SetIndex(x);
или
cbFaculty.SetItemIndex(x);
и все

Я уже подзабыл как там в VCL методы называются.

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

Ничто так не развивает аналитическое мышление, как отладка сложной программы без возможности пошагового выполнения (с)

Keeper89

Дата 11.6.2009, 19:24 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Ждем уточнений от автора.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

ziga

Дата 12.6.2009, 11:06 (ссылка)

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

Загрузка ...

Опытный

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

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

Keeper89 не понял твоего вопроса

вобщем ещё раз объесню у меня передаётся на формочку ID каторый соответствует

Код


cbFaculty.Items.Objects[]

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

Код


with oqFaculty do
    try
      Execute;


      while not Eof do
      begin

          if oqFaculty.FieldByName('id_faculty').AsInteger <> -1 then
            cbFaculty.AddItem(oqFaculty.FieldByName('faculty_name').AsString,
              Pointer(oqFaculty.FieldByName('id_faculty').AsInteger));

        Next;
      end;

      with cbFaculty, Items do
        if Count > 0 then
          ItemIndex := 1;
    finally
      Close;
    end;
End;

я могу просто сравнивать oqFaculty.FieldByName('id_faculty').AsInteger и таким образом получить индекс нужной строки теперь мне надо выделить эту строку но так что бы проиходило выполнение OnChange где заполняется 2 комбобокс
через cbFaculty.ItemIndex = x; он просто выделяет строку но OnChange не отрабатывает

Romikgy

Дата 12.6.2009, 20:22 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Код


cbFacultyChange(nil);

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Keeper89

Дата 12.6.2009, 21:44 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Romikgy, +1
Я бы сделал так:

Код


cbFaculty.OnChange(Self);

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

ziga

Дата 13.6.2009, 10:47 (ссылка)

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

Загрузка ...

Опытный

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

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

Всем спасибо

помгли ваши советы:

Код


cbFaculty.ItemIndex = x;
cbFaculty.OnChange(Self);

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