Поиск как в 1С

[simka16]

Здравствуйте! появилась такая идея, сделать как в 1 С следующее:
например я создам справочник с должностями предприятия по нажатию на кнопку "..." открываеца полный список всех должностей преприятия, так вот, какой компонент лучше использовать для просмотра всего списка? чтобы потом по этому компоненту можно было сделать поиск как в 1С буквально по первым буквам.
заранее благодарна!

[Serge_Bliznykov]

Боюсь, что мой ответ не очень в тему, но попробую ответить,
если кто-то знает вариант лучше - то обязательно расскажет о нём.

А я думаю, что Вам подойдёт любой продвинутый грид.

у нас в рабочем проекте, например, используется старенький EhLib (с небольшими ручными доработками). Единственное, что для каждого справочника "нарисована" своя форма, на которой лежит Ehlib (и эта же форма служит для добавления/удаления/редактирования элементов справочника, что достаточно удобно для пользователя).

[asmodey1]

А мы издревле пользовались только штатными компонентами...
И поиск - это очень просто:

Table1.Locate('Field_dolznost',Edit1.Text,[loCaseInsensitive, loPartialKey]);

[simka16]

спасибо! с поиском разобралась!

тогда я уточняю что вы имете ввиду:
для каждого справочника, например у меня их 10 шт создавать отдельную форму на которой будет по одному dbgridу? как то не рационально...как быть то?

[_SERGEYX_]

для каждого справочника создавать отдельную форму

Неа, не так... Форма одна.

var Spravochnik: string;

Select * from '+Spravochnik+' where Upper(Field_Name) LIKE Upper("%' + Edit1.Text +'%");');

P.S. В ADO оператор Upper не работает, но поиск все равно будет производиться без учета регистра.

[simka16]

var Spravochnik: string;

Select * from '+Spravochnik+' where Upper(Field_Name) LIKE Upper("%' + Edit1.Text +'%");');

нее..не поняла....можно по другому объяснить как нибудь?

[_SERGEYX_]

Ну, как я понимаю, каждый Справочник - это отдельная таблица. И мы знаем из какой таблицы будем делать выборку. Для этого берем чистый Query. И связываем DBGrid -> DataSource -> Query. И выбираем из нужного Справочника

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('Select * from '+Spravochnik+' where Upper(Field_Name) LIKE Upper("%' + Edit1.Text +'%");');
Query.Open

Впрочем, если нет знаний по sql-запросам, то я напрасно объясняю...

[simka16]

я спрашиваю одно изначально, а мне совсем другое!

вот люди на этих форумах сидят, лишь бы блин где нибудь подковырнуть задаваемого вопрос, а конкретно ответить на поставленный вопрос не могут!
если не знаете, лучше вообще не отвечайте!

[asmodey1]

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

для каждого справочника, например у меня их 10 шт создавать отдельную форму на которой будет по одному dbgridу? как то не рационально...как быть то?

Если вас устраивает одна форма - делайте в одной.
Вы ведь справочники как-то переключать будете ?
Допустим, при помощи меню. Тогда в обработчике каждого пункта меню вы будете :
- выбирать таблицу справочника
- переключать DataSource на эту таблицу
- устанавливать список полей, отображаемых в DBGrid
и т.д.
К этому добавляем назначение имени поля, по которому будем производить поиск, для чего осталось только чуть-чуть временно переделать наш поисковый обработчик:

procedure TForm1.Edit1Change(Sender: TObject);
var fld: string;
begin
fld:='Name';
Query1.Locate(fld,Edit3.Text,[loCaseInsensitive, loPartialKey]);
end;

Это я вам дал простой временный вариант, чтоб было понятно.
На самом деле присвоение fld конкретного имени поля должно происходить в обработчике пункта меню, а fld должна быть объявлена глобально...
Вот и все.

З.Ы. А если у вас во всех таблицах поле поиска названо одинаково, то этого не понадобится.

[19vitek]

Я бы воспользовался компонентом DBLokubComboBox. Специально разработан для работы со справочниками. Удобно подключается к любой таблице справочника.