VPF::Выборка из нескольких ComboBox-ов - Форум программистов

device

Дата 26.11.2009, 19:16 (ссылка)

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

Загрузка ...

Новичок

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

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

Вобщем сделал я простенький пример:

Есть 3 производителя ручек. Каждый производит 2 типа (гелевые и капилярные). В каждом типе производится по 3 цвета. Итого в БД получается 18 ручек.
Первая выборка по производителю, вторая выборка по типу, третяя выборка по цвету.

Что происходит когда я запускаю выборку:

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

Подскажите какой момент я недоработал?

Код


procedure TForm1.FormCreate(Sender: TObject); 
  var Str1, Str2, Str3: String; 
  begin 
  Query2.SQL.Clear; 
  Query2.SQL.Add('SELECT * FROM Pros'); 
  Query2.Open; 
  ComboBox1.Clear; 
  while not Query2.Eof do 
    begin 
    Str1:=Query2.FieldByName('ProizvodName').AsString; 
    ComboBox1.Items.Add(Str1); 
    Query2.Next; 
    end; 
  ComboBox1.Items.Add('Все производители'); 
  ComboBox1.ItemIndex:=ComboBox1.Items.Count-1; 

    begin 
    Query3.SQL.Clear; 
    Query3.SQL.Add('SELECT * FROM Types'); 
    Query3.Open; 
    ComboBox2.Clear; 
    while not Query3.Eof do 
      begin 
      Str2:=Query3.FieldByName('TypeName').AsString; 
      ComboBox2.Items.Add(Str2); 
      Query3.Next; 
      end; 
    ComboBox2.Items.Add('Все типы'); 
    ComboBox2.ItemIndex:=ComboBox2.Items.Count-1; 

      begin 
      Query4.SQL.Clear; 
      Query4.SQL.Add('SELECT * FROM Colors'); 
      Query4.Open; 
      ComboBox3.Clear; 
      while not Query4.Eof do 
        begin 
        Str3:=Query4.FieldByName('ColorName').AsString; 
        ComboBox3.Items.Add(Str3); 
        Query4.Next; 
        end; 
      ComboBox3.Items.Add('Все цвета'); 
      ComboBox3.ItemIndex:=ComboBox3.Items.Count-1; 
      end; 
    end; 
  end; 

  procedure TForm1.ComboBox1Change(Sender: TObject); 
    var CurID1: Integer; 
    begin 
    Query1.Close; 
    Query1.SQL.Clear; 
    Query1.SQL.Add('SELECT * FROM Ruchkas '); 
    if ComboBox1.ItemIndex < ComboBox1.Items.Count-1 then 

      begin 
      Query1.SQL.Add('WHERE ProizvodID=:pProizvodID'); 
      Query2.Locate('ProizvodName',ComboBox1.Text,[ ]); 
      CurID1:=Query2.FieldByName('ProizvodID').AsInteger; 
      Query1.Params[0].AsInteger:=CurID1; 
      Query1.ExecSQL 
       
      end; 
    Query1.Open; 
  end; 

  procedure TForm1.ComboBox2Change(Sender: TObject); 
    var CurID2: Integer; 
    begin 
    Query1.Close; 
    Query1.SQL.Clear; 
    Query1.SQL.Add('SELECT * FROM Ruchkas '); 
    if ComboBox2.ItemIndex < ComboBox2.Items.Count-1 then 

      begin 
      Query1.SQL.Add('WHERE TypeID=:pTypeID'); 
      Query3.Locate('TypeName',ComboBox2.Text,[ ]); 
      CurID2:=Query3.FieldByName('TypeID').AsInteger; 
      Query1.Params[0].AsInteger:=CurID2; 
      end; 
    Query1.Open; 
  end; 

  procedure TForm1.ComboBox3Change(Sender: TObject); 
    var CurID3: Integer; 
    begin 
    Query1.Close; 
    Query1.SQL.Clear; 
    Query1.SQL.Add('SELECT * FROM Ruchkas '); 
    if ComboBox3.ItemIndex < ComboBox3.Items.Count-1 then 

      begin 
      Query1.SQL.Add('WHERE ColorID=:pColorID'); 
      Query4.Locate('ColorName',ComboBox3.Text,[ ]); 
      CurID3:=Query4.FieldByName('ColorID').AsInteger; 
      Query1.Params[0].AsInteger:=CurID3; 
      end; 
    Query1.Open; 
  end; 
end.

Присоединённый файл ( Кол-во скачиваний: 9 )

_____.rar 326,70 Kb

chip_and_dayl

Дата 26.11.2009, 19:42 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

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

Чтобы учитывало выбранного производителя ты пишешь запрос такого плана

Код


SELECT * FROM Ruchkas
WHERE ProizvodID=:pProizvodID

Чтобы учитывало тип ручки ты пишешь

Код


SELECT * FROM Ruchkas
WHERE TypeID=:pTypeID

Но чтобы оно учитывало и то и то тебе этот запрос нужно объединить

Код


SELECT * FROM Ruchkas
WHERE TypeID=:pTypeID and ProizvodID=:pProizvodID

Тогда ты получишь желаемый результат

Это сообщение отредактировал(а) chip_and_dayl - 26.11.2009, 19:42

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

Фсё будет хорошо!!!

chip_and_dayl

Дата 26.11.2009, 19:58 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

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

Код


 var Str1, Str2, Str3: String;

можно убрать, при этом там, где переменная StrX

Код


Str1:=Query2.FieldByName('ProizvodName').AsString; 
    ComboBox1.Items.Add(Str1);

заменить на

Код


 ComboBox1.Items.Add(Query2.FieldByName('ProizvodName').AsString);

Добавлено через 5 минут и 2 секунды

Код


 Query2.SQL.Clear; 
  Query2.SQL.Add('SELECT * FROM Pros'); 
  Query2.Open;

Также для упрощения кода, можно заменить вот этот кусок на использование компонента Table, который подключить к трем таблицам: Table1 (таблица моделей), Table2 (таблица типов), Table3 (таблица цветов).

Тогда весь код

Код


 Query2.SQL.Clear; 
  Query2.SQL.Add('SELECT * FROM Pros'); 
  Query2.Open; 
  ComboBox1.Clear; 
  while not Query2.Eof do 
    begin 
    Str1:=Query2.FieldByName('ProizvodName').AsString; 
    ComboBox1.Items.Add(Str1); 
    Query2.Next; 
    end; 
  ComboBox1.Items.Add('Все производители'); 
  ComboBox1.ItemIndex:=ComboBox1.Items.Count-1;

сокращается к

Код


  ComboBox1.Clear; 
  while not Table1.Eof do 
    begin 
     ComboBox1.Items.Add(Table1.FieldByName('ProizvodName').AsString;); 
    Table1.Next; 
    end; 
  ComboBox1.Items.Add('Все производители'); 
  ComboBox1.ItemIndex:=ComboBox1.Items.Count-1;

Добавлено через 7 минут и 5 секунд

Код


 ComboBox1.ItemIndex:=ComboBox1.Items.Count-1;

Здесь лучше присваивать 0, то есть первый элемент в списке, а не последний

Это сообщение отредактировал(а) chip_and_dayl - 26.11.2009, 19:58

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

Фсё будет хорошо!!!

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