|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
06.12.2007, 16:50 | #11 |
Форумчанин
Регистрация: 06.09.2007
Сообщений: 908
|
Код HTML:
form1.ADOQuery1.FieldByName(('cena')>=StrToFloat(edit1.Text)) and form1.ADOQuery1.FieldByName(('cena')<StrToFloat(edit2.Text)); Я не имею ничего против этого кода, а наоброт - благодарен за него, я просто посчитал, что этот код будет проще и объем меньше, но если мне все же не удаться реализовать этот код, то конечно же попробую тот. |
06.12.2007, 18:02 | #12 |
Пользователь
Регистрация: 21.08.2007
Сообщений: 46
|
Напиши полностью строку form1.ADOQuery1.FieldByName(('cena' )>=StrToFloat(edit1.Text)) and form1.ADOQuery1.FieldByName(('cena' )<StrToFloat(edit2.Text));
Что впереди IF или Filtеr А то не понятен смысл того , что ты делаешь И код ошибки внизу написан при компиляции , можешь его изобразить А то лечим как в анекдоте по фотографии, Скобки вторые здесь явно не нужны |
06.12.2007, 18:18 | #13 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Вы просто перемудрили.
Если программно, то так: ADOQuery.Filtered:=True; ADOQuery.Filter:='cena>='+''''+StrT oFloat(edit1.Text)+''''+' and cena<='+ ''''+StrToFloat(edit2.Text)+''''; З.Ы. Четыре кавычки - это устоявшаяся привычка. Некоторые из вас обычно пишут: ADOQuery.Filter:='cena>='''+StrToFl oat(edit1.Text)+''' and cena<='''+StrToFloat(edit2.Text)+'' '; Последний раз редактировалось mihali4; 06.12.2007 в 18:21. |
07.12.2007, 10:15 | #14 | ||
Форумчанин
Регистрация: 06.09.2007
Сообщений: 908
|
Цитата:
Код HTML:
procedure TForm1.BitBtn1Click(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.Sort:=('cena'); ADOQuery1.FieldByName(('cena')>StrToFloat(edit4.Text) and ADOQuery1.FieldByName('cena')<StrToFloat(edit5.Text)); ADOQuery1.Open; end; nataly_ukr, объясните, пожалуйста, в Вашем первом рарианте я не смог понять, что означают переменные D1 и D2, как их использовать? Цитата:
Код HTML:
ADOQuery1.Filtered:=True; ADOQuery1.Filter:='cena>='+''''+StrToFloat(edit4.Text)+''''+' and cena<='+ ''''+StrToFloat(edit5.Text)+''''; |
||
07.12.2007, 12:46 | #15 |
Пользователь
Регистрация: 21.08.2007
Сообщений: 46
|
DateStart := Edit1.Text; // заношу в переменные значения из Edit1
DateEnd := Edit2.Text; // edit2 Пусть имя твоего файла например ZAKAZ Query1.SQL.Add('Select * From ZAKAZ where CENA BETWEEN :D1 and :D2'); // BETWEEN параметр говорит запросу , что будет ограничение данных между D1 и D2 Query1.ParamByName('d1').AsStr := DateStart; // передача данных в парамаетры Query1.ParamByName('d2').AsStr := DateEnd; Ты только приведи все или к String или к Float |
07.12.2007, 13:19 | #16 | |
Форумчанин
Регистрация: 06.09.2007
Сообщений: 908
|
Цитата:
Вот код: Код HTML:
procedure TForm1.BitBtn1Click(Sender: TObject); var Start, Finish, D1, D2: string; begin Start:=edit4.Text; Finish:=edit5.Text; form1.ADOQueFirmRatissDisk.Close; form1.ADOQueFirmRatissDisk.SQL.Clear; form1.ADOQueFirmRatissDisk.SQL.Add('select * Price where cena between :D1 and :D2'); form1.ADOQueFirmRatissDisk.FieldByName('D1').AsString:=Start; form1.ADOQueFirmRatissDisk.FieldByName('D2').AsString:=Finish; form1.ADOQueFirmRatissDisk.Open; end; Последний раз редактировалось фЁдОр; 07.12.2007 в 13:22. |
|
07.12.2007, 13:35 | #17 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Life is too short, play more...
Как правильно задавать вопросы |
07.12.2007, 13:39 | #18 |
Пользователь
Регистрация: 21.08.2007
Сообщений: 46
|
d1,d2: Double;
|
07.12.2007, 13:46 | #19 | |
Форумчанин
Регистрация: 04.03.2007
Сообщений: 615
|
Цитата:
|
|
08.12.2007, 02:02 | #20 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
То есть: Код:
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как указать в регулярке............ | Adamant | PHP | 12 | 25.03.2008 10:11 |
Нужны критерии сравнения программ | Deris777 | Помощь студентам | 1 | 19.01.2008 10:19 |
Проблема с FindFirst, как указать меняющийся путь? | _SacreD_ | Общие вопросы Delphi | 12 | 26.12.2007 16:14 |
Как указать путь компилируемуму exe файлу | shurik_7866 | Общие вопросы Delphi | 2 | 18.07.2007 23:24 |
Как указать диапазон чисел? | Inbox | Общие вопросы Delphi | 2 | 29.06.2007 01:21 |