Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.08.07;
Скачать: CL | DM;

Вниз

БД в комбо   Найти похожие ветки 

 
syte_ser78 ©   (2005-07-01 15:27) [0]

Возможно путь избранный мною глуп, но сделать по другому не выходит (у меня).
Вобщем есть таблица следующего вида
Деталь Диаметр Давление ГОСТ ....
Есть 4 комбобокса
Нужно в них записать без повторов значения первых четырех полей.
Далее при выборе любого значения в любом комбе отобразить в других комбах только те значения которые удовлетворяют условию выбранному в вышеследующем комбе. Тоесть если выполнить фильтр по второму комбу то при повторном вызове процедуры изменится содержимое 3,4, и 1 а нужно только 3 и 4

Вобщем заморочился уже с этой процедурой. Помогите плиз.
Процедура просто для загрузки данных в комбо без фильтрации -

//ЗАГРУЗКА В КОМБОБОКСЫ ДАННЫХ ДЛЯ ВЫБОРА типа/госта/ру/ду...
//ЭТУ ПРОЦЕДУРУ НУЖНО ПЕРЕПИСАТЬ ТАКИМ ОБРАЗОМ ЧТОБЫ В НИЖЕСЛЕДУЮЩИХ КОМБАХ
//ОТОБРАЖАЛИСЬ ДАННЫЕ ТОЛЬКО УДОВЛЕТВОРЯЮЩИЕ УСЛОВИЯМ ВЫШЕСЛЕДУЮЩИХ
//ЭТУ ХЕРНЬ ОБЯЗАТЕЛЬНО ПЕРЕПИСАТЬ!!!!!!!!
procedure tfrm_main.load_cmb;
var i,ii:integer;
begin
  frm_main.cmb_armatura.Clear;
  frm_main.cmb_armatura.Items.Add ("-");
  frm_main.cmb_gost.Clear;
  frm_main.cmb_gost.Items.Add ("-");
  frm_main.cmb_Py.Clear;
  frm_main.cmb_Py.Items.Add ("-");
  frm_main.cmb_Dy.Clear;
  frm_main.cmb_Dy.Items.Add ("-");
  ii:=0;
  while not frm_main.Table1.Eof do
     begin
     ii:=ii+1;
     frm_logo.Gauge1.Progress:=round(50*ii/frm_main.Table1.RecordCount);
     frm_logo.Label2.Caption:="Обрабатываем "+frm_main.Table1Name.AsString;
     frm_logo.Label2.Refresh;
           if frm_main.Table1Name.AsString<>"" then
              begin
              if frm_main.cmb_armatura.Items.IndexOf(frm_main.Table1Name.AsString)<0 then
                 frm_main.cmb_armatura.Items.Add (frm_main.Table1Name.AsString);
              end;
           if frm_main.Table1GOST.AsString<>"" then
              begin
              if frm_main.cmb_gost.Items.IndexOf(frm_main.Table1Gost.AsString)<0 then
                 frm_main.cmb_gost.Items.Add (frm_main.Table1Gost.AsString);
              end;
           if frm_main.Table1D_usl_proh.AsString<>"" then
              begin
              if frm_main.cmb_Dy.Items.IndexOf(frm_main.Table1D_usl_proh.AsString)<0 then
                 frm_main.cmb_Dy.Items.Add (frm_main.Table1D_usl_proh.AsString);
              end;
           if frm_main.Table1PY.AsString<>"" then
              begin
              if frm_main.cmb_Py.Items.IndexOf(frm_main.Table1Py.AsString)<0 then
                 frm_main.cmb_Py.Items.Add (frm_main.Table1Py.AsString);
              end;
           end;
     frm_main.Table1.Next;
     end;
  frm_logo.Close;
  frm_main.Table1.First;
end;


 
Sergey13 ©   (2005-07-01 15:33) [1]

>БД в комбо
А почему бы БД не в БДкомбо? И заполняй их параметрическими запросами.



Страницы: 1 вся ветка

Текущий архив: 2005.08.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
14-1121319516
Ega23
2005-07-14 09:38
2005.08.07
С днем рождения! 14 июля


14-1121708317
NewWonder
2005-07-18 21:38
2005.08.07
Кодировка на сайте


9-1114007124
hgd
2005-04-20 18:25
2005.08.07
Разбиение картинки на объекты


3-1120117274
DDDeN
2005-06-30 11:41
2005.08.07
Последовательный переход к записи


4-1118215991
kkostik
2005-06-08 11:33
2005.08.07
Drag&amp;Drop