Поиск в DBgride. Незнаю что уже делать

@nikitagisvis · Регистрация: 05.12.2012

Author24 — интернет-сервис помощи студентам

Всем доброго дня и ночи.
Проблема такая. Вот нашел отличный поиск, вернее подходящий мне, проблема в том что не ищет числа.
Использую таблицы созданые в Paradox, Table, DataSource. Найти уже нечего не могу, скоро защита курсача, а поиск не робит. Надеюсь что поможите. Спасибо.
Вот код

Delphi

procedure TForm2.Edit1Change(Sender: TObject);
begin
  Table1.Filtered := True;
  case RadioGroup2.ItemIndex of
  0:Table1.Filter:='Nom = '''+Edit1.Text+'''';
  1:Table1.Filter:='Fio_paci = '+ QuotedStr(Edit1.Text+'*');
  2:Table1.Filter:='Data_postup = '''+Edit1.Text+'''';
  3:Table1.Filter:='Data_vipiski = '''+Edit1.Text+'''';
  4:Table1.Filter:='Diagnoz = '+ QuotedStr(Edit1.Text+'*');
end;
end;

0 цифры
1 Буквы
2 Цифры
3 Цифры
4 Буквы
Спасибо

@xNeKiToSx · 11.12.2012, 22:09

Delphi

1	0:Table1.Filter:='Nom = '+QuotedStr(Edit1.Text+'*')

а так?

@nikitagisvis · 11.12.2012, 22:15 **[ТС]**

а так?

Щас попробую, Ну так вроде делал.

Добавлено через 3 минуты
Выдает ошибку, Когда пишу цифры

@xNeKiToSx · 11.12.2012, 22:18

ой ну да точно, цифры должны быть без ковычек

Добавлено через 1 минуту
case 1-4 работает корректно?

Добавлено через 25 секунд
а да, ошибку в студию)

@nikitagisvis · 11.12.2012, 22:18 **[ТС]**

ДА Нормально, Ошибку не выдает

@xNeKiToSx · 11.12.2012, 22:21

ошубку вашего изначального варианта

Добавлено через 1 минуту

Delphi

1	0:Table1.Filter:='Nom = '+Edit1.Text;

Добавлено через 46 секунд

Delphi

1	0:Table1.Filter:=QuotedStr ( 'Nom = '+Edit1.Text);

может и так) нету среды щас

@nikitagisvis · 11.12.2012, 22:21 **[ТС]**

Как сюда вставить скрин?

@xNeKiToSx · 11.12.2012, 22:22

в "Расширенном режиме" отправки сообщений

@nikitagisvis · 11.12.2012, 22:24 **[ТС]**

Вот ошибка на 2 варианты кода, на 3 код другая ошибка

@xNeKiToSx · 11.12.2012, 22:28

Можно вашу БД? Тип поля Nom какой?

@nikitagisvis · 11.12.2012, 22:30 **[ТС]**

Delphi

1	0:Table1.Filter:= 'Nom = '+Edit1.Text;

Вот это робит нормально

Delphi

1	3:Table1.Filter:='Data_vipiski = '+Edit1.Text;

Не работает, Может из за того что в Paradoxе Указано эти поля как Date

Добавлено через 1 минуту

Можно вашу БД? Тип поля Nom какой?

Автокриментное поле

@xNeKiToSx · 11.12.2012, 22:39

тогда и нужно использовать формат строки как Date. Не знаю как вы но я делаю поиск по дате с помощью компонента TDateTimePicker. Запрос будет выглядеть примерно так

SQL

1	SELECT * FROM TABLE1 WHERE DATE=FormatDate(DateTimePicker1, 'dd.mm.yy')

Добавлено через 5 минут
ой фильтр же )

Delphi

1
2
3

Table1.Filtered:=false;
Table1.Filter:='Nom = '+FormatDate(DateTimePicker1, 'dd.mm.yy');
Table1.Filtered:=true;

Добавлено через 47 секунд
Это код можете поместить в обработчик события OnChange компонента DateTimePicker1

@nikitagisvis · 11.12.2012, 22:48 **[ТС]**

Проблема в том что, Дата не полностью вводиться, когда копируешь дату и вставляешь в едит все ищеться. Только вот проблемка как сделатьтак что бы он начанал искать срзу же.

@xNeKiToSx · 11.12.2012, 22:51

ну а как он будет искать сразу??? это же дата дд.мм.гг. сдеайте подмену Edit1 на DateTimePicker1 при RadioGroup2.ItemIndex=0 и все получиться

@nikitagisvis · 11.12.2012, 22:56 **[ТС]**

Table1.Filtered:=false;
Table1.Filter:='Nom = '+FormatDate(DateTimePicker1, 'dd.mm.yy');
Table1.Filtered:=true;
Ошибку выдает
FormatDate

@xNeKiToSx · 12.12.2012, 13:07

Delphi

1	DateTimePicker1.Date

Прости)

@nikitagisvis · 12.12.2012, 13:43 **[ТС]**

Разобрался с этой проблемой спасибо.

@xNeKiToSx · 12.12.2012, 21:34

Если чем помог - рад буду видеть нажатую кнопку "Спасибо" =)

@xNeKiToSx 332 / 85 / 16 Регистрация: 10.01.2011 Сообщений: 516 Записей в блоге: 1
	11.12.2012, 22:28	10
	Можно вашу БД? Тип поля Nom какой? 0

@xNeKiToSx 332 / 85 / 16 Регистрация: 10.01.2011 Сообщений: 516 Записей в блоге: 1
	11.12.2012, 22:51	14
	ну а как он будет искать сразу??? это же дата дд.мм.гг. сдеайте подмену Edit1 на DateTimePicker1 при RadioGroup2.ItemIndex=0 и все получиться 0

@nikitagisvis 0 / 0 / 0 Регистрация: 05.12.2012 Сообщений: 33
	12.12.2012, 13:43 [ТС]	17
	Разобрался с этой проблемой спасибо. 0

@nikitagisvis 0 / 0 / 0 Регистрация: 05.12.2012 Сообщений: 33
	11.12.2012, 22:15 [ТС]	3
	а так? Щас попробую, Ну так вроде делал. Добавлено через 3 минуты Выдает ошибку, Когда пишу цифры 0

@xNeKiToSx 332 / 85 / 16 Регистрация: 10.01.2011 Сообщений: 516 Записей в блоге: 1
	11.12.2012, 22:18	4
	ой ну да точно, цифры должны быть без ковычек Добавлено через 1 минуту case 1-4 работает корректно? Добавлено через 25 секунд а да, ошибку в студию) 0

@nikitagisvis 0 / 0 / 0 Регистрация: 05.12.2012 Сообщений: 33
	11.12.2012, 22:18 [ТС]	5
	ДА Нормально, Ошибку не выдает 0

@nikitagisvis 0 / 0 / 0 Регистрация: 05.12.2012 Сообщений: 33
	11.12.2012, 22:21 [ТС]	7
	Как сюда вставить скрин? 0

@xNeKiToSx 332 / 85 / 16 Регистрация: 10.01.2011 Сообщений: 516 Записей в блоге: 1
	11.12.2012, 22:22	8
	в "Расширенном режиме" отправки сообщений 0

@nikitagisvis 0 / 0 / 0 Регистрация: 05.12.2012 Сообщений: 33
	11.12.2012, 22:24 [ТС]	9
	Вот ошибка на 2 варианты кода, на 3 код другая ошибка Миниатюры 0

@nikitagisvis 0 / 0 / 0 Регистрация: 05.12.2012 Сообщений: 33
	11.12.2012, 22:48 [ТС]	13
	Проблема в том что, Дата не полностью вводиться, когда копируешь дату и вставляешь в едит все ищеться. Только вот проблемка как сделатьтак что бы он начанал искать срзу же. 0

@nikitagisvis 0 / 0 / 0 Регистрация: 05.12.2012 Сообщений: 33
	11.12.2012, 22:56 [ТС]	15
	Table1.Filtered:=false; Table1.Filter:='Nom = '+FormatDate(DateTimePicker1, 'dd.mm.yy'); Table1.Filtered:=true; Ошибку выдает FormatDate 0

@xNeKiToSx 332 / 85 / 16 Регистрация: 10.01.2011 Сообщений: 516 Записей в блоге: 1
	12.12.2012, 21:34	18
	Если чем помог - рад буду видеть нажатую кнопку "Спасибо" =) 1