|
Вопрос # 2 012/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
У меня имеется 2 БД (paradox), 1 edit, 2 радио кнопки. как мне сделать чтобы один edit работал с разными БД при переключении радиокнопок?? Хочу организовать поиск по БД через edit.
 |
Вопрос задала: lubonka (статус: Посетитель)
Вопрос отправлен: 20 октября 2008, 09:18
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Feniks
Здравствуйте, lubonka!
Ну конечно же вы все делаете не правильно. Если я вас правильно понял, вы хотите искать значения введенные в Edit1 в таблице, имя которой определяют переключатели RadioButton. Тогда код следующий:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if RadioButton1.Checked then Table1.Locate('Ulusi',Edit1.Text,[loCaseInsensitive, loPartialKey]);
if RadioButton2.Checked then Table2.Locate('Goroda/sela',Edit1.Text,[loCaseInsensitive, loPartialKey]);
end;
Запись if RadioButton1.Checked then равносильна записи if RadioButton1.Checked = true then.
И лучше запускать поиск не в событии Edit1Change, а сделать отдельно кнопку и по ее нажатия.
P.S. Желаю удачи.
 |
Ответ отправил: Feniks (статус: Бакалавр)
Время отправки: 20 октября 2008, 15:07
Оценка за ответ: 5
Комментарий к оценке: спасибо огромное, то что мне нужно.
а отдельная кнопка мне не нужна, т.к. поиск начинается при введении первой буквы.
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 20 октября 2008, 11:10; участников в обсуждении: 2.
|
Шичко Игорь (статус: 9-ый класс), 20 октября 2008, 10:01 [#1]:
Непонятно что этому мешает.
По 1 RadioDutton включаете Edit1.Text в запрос к 1 БД.
По 2 RadioDutton включаете Edit1.Text в запрос к 2 БД.
|
|
|
lubonka (статус: Посетитель), 20 октября 2008, 10:18 [#2]:
я в этом деле новичок и возмлжно что-то делаю не так как надо. вот часть моего кода:
procedure TForm1.Edit1Change(Sender: TObject);
begin
RadioButton1.Checked:=true;
if not Table1.Locate('Ulusi',Edit1.Text,[loCaseInsensitive, loPartialKey]) then;
RadioButton2.Checked:=true;
if not Table2.Locate('Goroda/sela',Edit1.Text,[loCaseInsensitive, loPartialKey]) then;
end;
когда при активной RadioButton1 я ввожу данные в edit автомотически становиться активной RadioButton2 и начинается поиск по второй таблице.
|
|
|
Шичко Игорь (статус: 9-ый класс), 20 октября 2008, 11:10 [#3]:
Все правильно.
По коду у Вас безусловный переход к RadioButton2.Checked:=true;
Чтобы выполнялся поочерудный поиск надо:
RadioButton1.Checked:=true;
if not Table1.Locate('Ulusi',Edit1.Text,[loCaseInsensitive, loPartialKey]) then
begin
RadioButton2.Checked:=true;
if not Table2.Locate('Goroda/sela',Edit1.Text,[loCaseInsensitive, loPartialKey]) then ...
end;
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
