Значение DBLookupComboBox

[mihali4]

Либо формировать список SQL-запросом, либо напрямую:

...
while not Table2.Eof do
begin
isfound:=False;
for i:=0 to ComboBox1.Items.Count-1 do
if ComboBox1.Items[i]=Table2.FieldByName('Kodtov').AsString then
begin
isfound:=True;
break;
end;
if not isfound then
  ComboBox1.Items.Add(Table2.FieldByName('Kodtov').AsString);
  Table2.Next;
end;
...

[MARCH]

Здравствуйте mihali4!!!

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

[mihali4]

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

Нормально... А что ж тогда "работает замечательно"?
Давайте-ка исходник вашего проектика...

[MARCH]

Ваши исходники работаю! Но я могу применить их только частично в своем проекте!

Высылаю исходники
прочтите пожалуйста файл README!!!

[mihali4]

Нормально... А где файлы базы? Мне и структуру-то таблиц взять неоткуда...
Вернее, я из формы могу это выцепить, но оно мне надо - создавать таблицы?

[MARCH]

в папке base лежат файлы БД!!!

[mihali4]

Да, действительно. Прошу прощения, я просто не взял их из архива.
Тем не менее - база просто кошмарная...
Читайте, что нужно делать:
http://www.programmersforum.ru/showthread.php?t=27996
http://www.programmersforum.ru/showthread.php?t=28195
Тематика весьма сходная, все применимо и у вас.

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

[MARCH]

Я прочитал! Но особо не понял! Скажите на каких компонетах надо завязать мою базу!
Вот кстати сделал рейсталин моей структуры БД

НАРЯДЫ
---------------
NARYDID - идентификатор наряда(6)
USLUGAID - идентификатор услуги (15)
ADRESID - идентификатор адреса (
KVARTIRA - квартира
DATAOFCONNECT - дата подключения
DATAOFPLANCONNECT - дата планируемого подключ
SOTRUDNIKIDSTN - идентификатор сотрудника станционной части
SOTRUDNIKIDLINE - идентификатор сотрудника линейной части
READINESSLINES - ГОТОВНОСТЬ ЛИНИИ

АДРЕС
------------
ADRESID - идентификатор адреса
ADRES - адрес
USPD - УСПД
AMOUNTOFLOOR - количество этажей
AMOUNTOFENTRANCE - количество подъездов
AMOUNTOFAPARTMENTS - количество квартир на площадке
DISTANCEFLOOR - расстояние между этажами

СОТРУДНИКИ
------------------------

SOTRUDNIKID - индетефикатор сотрудника
FIO - ФИО
JOBTITLE - должность
FORMATION - образование
DATE JOB PLACEMENT - дата трудойстройства
D.O.B. - дата рождения
TELEPHONEHOME - телефон домашщний
TELEPHONEWORKER - телефон рабочий

по поводу списка услуг подумал что нет нужны создовать целую таблицу
Ведь я так понимаю что можно создать список например из txt файла который можно открыть и добавить записи

[MARCH]

Наверно таких глупых собеседников как я у Вас еще не было:

Из темы
http://www.programmersforum.ru/showthread.php?t=28195 выяснил некоторые для себя моменты
1) если создовать форму по заполнению новой записи в таблицу, то лучше это делать после нажатия "сохранить" а не напрямую
2) лучше использовать ТDateTimePicker, но я его не нашел в палитре компонетов!
3) лучше использовать динаимческое подключение таблиц, но применимо ли это в моем случае (по мойму нет)


По поводу использования индетефикатор в БД, а как же наглядность главной таблицы "Наряды" получается что вместо адреса будет цифры 1,2,3 и т.д.

[MARCH]

Сообщение от Stilet

Дык в цикле проходи... и если такая запись есть (методом indexOf) то удалять ее...

а по точнее по поводу цикла

вот код используемой мною

procedure TForm1.FormActivate(Sender: TObject);//например, по этому событию
begin
ComboBox1.Clear;
ComboBox1.Items.Add('Все записи');
Table2.First;
while not Table2.Eof do
begin
ComboBox1.Items.Add(Table2.FieldByN ame('Kodtov').AsString);
Table2.Next;
end;
Table2.First;
ComboBox1.Text:='Все записи';
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text<>'Все записи' then
Table2.Filter:='Kodtov='+QuotedStr( ComboBox1.Text) else
Table2.Filter:='';
end;