DevExpress автозаполнение полей

Uniq! · #1 29.03.2013, 00:22

Ребят, куда копать?

:Набираем первые пару символов, остатки подставляются автоматически из ... ну допустим какого-то поля БД.

Вообще нужно реализовать по этой схеме заполнение 7 полей (Паспортные данные) из Таблицы. Я думаю как: связать все 7мь полей через cxDB...TextEdit скорее всего, а в тот Edit, в который фамилия пишется - подставить выше описанную технологию.

Alegun · #2 29.03.2013, 00:48

Цитата:

Сообщение от Uniq!

...Набираем первые пару символов, остатки подставляются автоматически из ... ну допустим какого-то поля БД...

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

Код:

procedure TForm1.Edit1Change(Sender: TObject);
var
s : string;
begin
s:= Edit1.Text;
if length(s) = 0 then exit;
tbl.Locate('FieldName', s, [loPartialKey]); // поиск по таблице
Edit1.Text:=tbl.FieldValues['FieldName']; // вывод найденого
end;

Uniq! · #3 29.03.2013, 00:57

Код:

cxLookupComboBox1.Properties.ListSource.DataSet := MyDataSource1;
cxLookupComboBox1.Properties.ListFieldNames := 'Article';

На другом форуме подсказали. На то он и DevExpress

Alegun · #4 29.03.2013, 00:59

Цитата:

Сообщение от Uniq!

...На то он и DevExpress

Не знал, думал что DevExpress это всё равно что ADO...

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо Alegun за это полезное сообщение:
Uniq! (29.03.2013)

Этот пользователь сказал Спасибо Uniq! за это полезное сообщение:
Alegun (29.03.2013)