VPF::Выбор данных из таблицы по параметрам

k05tmb

Дата 30.11.2008, 19:32 (ссылка)

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

Загрузка ...

Новичок

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

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

Как в Delphi организовать выборку данных из таблицы по нескольким параметрам???

В таблице есть сведения о стадии обработки (черновая/чистовая), материале детали, диаметрах заготовок, надо выбрать по этим параметрам подачу... (см. рисунок)

user posted image

Я написал это не работает:

Код


procedure Podacha;
begin
  s1:=0;
  //черновая обработка
  if Form1.ComboBox1.ItemIndex=0 then
  begin
    //диаметр от 0 до 2
    if ((t>0) and (t<=2)) then
    begin
      //материал сталь углеродистая
      if Form1.ComboBox4.ItemIndex=0 then
      begin
        if ((D>0) and (D<=18)) then s1:=0.21;
        if ((D>=19) and (D<=50)) then s1:=0.45;
        if ((D>=51) and (D<=180)) then s1:=0.83;
      end;
      //материал сталь легированная
      if Form1.ComboBox4.ItemIndex=1 then
      begin
        if ((D>0) and (D<=18)) then s1:=0.18;
        if ((D>=19) and (D<=50)) then s1:=0.22;
        if ((D>=51) and (D<=180)) then s1:=0.26;
        if ((D>=181) and (D<=500)) then s1:=0.36;
      end;
    end;
  end;
  Form1.Edit5.Text:=FloatToStr(s1);
end;

Можно это как-нибудь по другомы сделать, т.е. не вложеннами IFами???

Это сообщение отредактировал(а) k05tmb - 30.11.2008, 19:48

Данкинг

Дата 30.11.2008, 20:12 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

1. В чём заключается "не работает"?
2. Где в твоём примере выборка из таблицы? А она, кстати, осуществляется обычным SQL-запросом.

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

There's nothing left but silent epitaphs.

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