VPF::проблема с присвоением значения ячейки

ZimFFa

Дата 19.6.2011, 09:56 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте...
Подскажите пожалуйста..

Вот у меня код проги:

Код


 procedure TFComboBox.DBLookupComboBox1Click(S ender: TObject);
 var index: Integer;
 begin
 ADOQuery1.SQL.Text := 'SELECT SNomerStadii, SNazwanieStadii FROM ISStadija, Stadii WHERE ISNomerIS = ' + ADOQuery2.FieldByName('INomerIS').A sString;
 ADOQuery1.Open;
 begin
 index := ???? ;
 if index <> index + 1 then ??? := True
 else ??? := False;
 end;
 end;

Суть в том, что в DBLookupComboBox1 выбирается ИС, а в BDGrit выдаются соответствующие ИС Стадии...

Стадии у меня выдаются, только они выдаются столько раз, столько их общее кольчество у ИС. Например: У Производственной ИС 4 стадии - в Грид выдаются эти 4 стадии, но каждая Стадия повторяется 4 раза.

Поэтому нужно сделать мне проверку: Если Стадия уже есть в табл, то её не выдавать...

Значению index := (значение ячейки)... как это написать? smile

Как-то так... Надеюсь, понятно объяснила

Это сообщение отредактировал(а) Rrader - 19.6.2011, 19:31

ZimFFa

Дата 19.6.2011, 10:13 (ссылка)

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

Загрузка ...

Новичок

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

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

Посоветовали мне DISTINCT

Вот что получилдось:

Код


 procedure TFComboBox.DBLookupComboBox1Click(S ender: TObject);
 begin
 ADOQuery1.SQL.Text := 'SELECT DISTINCT SNomerStadii, SNazwanieStadii FROM ISStadija, Stadii WHERE ISNomerIS = ' + ADOQuery2.FieldByName('INomerIS').A sString;
 ADOQuery1.Open;
 end;

Теперь мне для всех ИС выдаются ВСЕ Стадии, корве есть в БД

Например: У Производственной ИС 4 стадии - в Грид выдаются 8 - это общее кольчество Стадий в Базе Данных...

Это сообщение отредактировал(а) Rrader - 19.6.2011, 19:33

Keeper89

Дата 19.6.2011, 19:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

Мне кажется Вы что-то не то выбираете или БД спроектирована плохо

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

ZimFFa

Дата 19.6.2011, 19:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Да не знаю в чём проблема... не могу разобраться smile

пишу:

Код


procedure TFComboBox.DBLookupComboBox1Click(Sender: TObject);
begin
ADOQuery1.SQL.Text := 'SELECT SNomerStadii, SNazwanieStadii FROM ISStadija, Stadii WHERE ISNomerIS = '
+ ADOQuery2.FieldByName('INomerIS').AsString;
ADOQuery1.Open;
end;

а мне выдаёт:

M
Rrader

Подсвечивайте листинги с кодом (кнопка "Код" вверху)

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

__________.jpg 192,69 Kb

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