Форум: "Начинающим";
Текущий архив: 2008.06.01;
Скачать: [xml.tar.bz2];
Вниз
Наложение двух условий поиска Найти похожие ветки
← →
switch (2008-05-13 10:54) [0]На главной форме есть переключатель и строка ввода условия поиска при нажатии на кнопку происходит сл.процедура:
procedure TDataModule2.clientFilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
....
if main.RadioButton1.Checked=True then
Accept :=(pos(AnsiUpperCase(main.Edit1.Text),AnsiUpperCase(client.FieldByName("C_Name") .AsString))>0)
else
if main.RadioButton2.Checked=True then
Accept :=(pos(AnsiUpperCase(main.Edit1.Text),AnsiUpperCase(client.FieldByName("C_Adress ").AsString))>0);
end;
Т.е. таблица не фильтруется а только показывает записи, соответствующие условию, поэтому возникла проблема объединения этих двух условий, т.е. к примеру пользователь произвел поиск по адресу, а потом решил в оставшихся записях произвести поиск по названию.
Можно ли это сделать имеющимся способом? Заранее спасибо!
← →
TUser © (2008-05-13 11:03) [1]select ... where ... AND ... ?
← →
Юрий Зотов © (2008-05-13 11:09) [2]1. Тогда не надо использовать RadioButton (а надо CheckBox).
2. Объединение очень простое:
Accept :=
(not CheckBox1.Checked or Условие_1)
and
(not CheckBox2.Checked or Условие_2);
← →
switch (2008-05-13 12:08) [3]
> Можно ли это сделать имеющимся способом?
> select ... where ... AND ... ?
Внимательнее читайте вопрос, я не спрашивала про SQL
← →
switch (2008-05-13 12:09) [4]
> Юрий Зотов ©
Огромное спасибо!!!
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.06.01;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.055 c
