Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 2 012

/ вопрос открыт /

Приветствую, уважаемые эксперты!
У меня имеется 2 БД (paradox), 1 edit, 2 радио кнопки. как мне сделать чтобы один edit работал с разными БД при переключении радиокнопок?? Хочу организовать поиск по БД через edit.

lubonka Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задала: 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

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;

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 21 сентября 2017, 09:50
Выполнено за 0.06 сек.
Рейтинг@Mail.ru