ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Ещё один вопрос по Базе
8 сообщений из 8, страница 1 из 1
Ещё один вопрос по Базе
    #32303077
Dreew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dreew
Гость
Фильтрация по времени, вернее промежуток времени.

В OnChange ComboBox:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if length(ComboBox1.Text)>0 then
begin
if not Query1.Filtered then Query1.Filtered:=true;
Query1.Filter:='Mana='+#39+ComboBox1.Text+'*'+#39;
end
else
if Query1.Filtered then Query1.Filtered:=false;
end;

как добавить фильтрацию по времени
...
Рейтинг: 0 / 0
23.10.2003, 14:40
| Ответить | Цитировать | Написать  
Ещё один вопрос по Базе
    #32303198
bjohny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bjohny
Участник
Поточнее, если мона....
...
Рейтинг: 0 / 0
23.10.2003, 15:33
| Ответить | Цитировать | Написать  
Ещё один вопрос по Базе
    #32303258
Dreew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dreew
Гость
ну вообще так:

На форме Query 2 Datatime и ComboBox
в ComboBox в свойстве OnChange прописанно (см. выше), надо туда же добавить фильтрацию по времени (по типу "с ..... по .....")
...
Рейтинг: 0 / 0
23.10.2003, 15:54
| Ответить | Цитировать | Написать  
Ещё один вопрос по Базе
    #32303606
Lt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lt
Гость
А почему просто в запрос не добавлять это условие перед открытием
'Where FDate between ' + DateTostr(date1) + ' and ' + DateToStr(date2) -
...
Рейтинг: 0 / 0
23.10.2003, 18:50
| Ответить | Цитировать | Написать  
Ещё один вопрос по Базе
    #32303653
viceroy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
viceroy
Гость
а так пробовали?!
Query1.Filter:='Mana='+#39+ComboBox1.Text+'*'+#39 + 'and date1>=' +DateTostr(date1) + 'and date1<=' DateTostr(date1);
...
Рейтинг: 0 / 0
23.10.2003, 19:44
| Ответить | Цитировать | Написать  
Ещё один вопрос по Базе
    #32303965
Dreew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dreew
Гость
Найдите пожалуйста ошибку


Query1.Filter:='Mana='+#39+ComboBox1.Text+'*'+#39 + 'date_>=' +DateToStr(DateTimePicker1.date) + 'and date_<=' +DateTostr(DateTimePicker2.date);

Всё работает только путаю изменить дату и всё виснет
...
Рейтинг: 0 / 0
24.10.2003, 10:41
| Ответить | Цитировать | Написать  
Ещё один вопрос по Базе
    #32304067
bjohny
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bjohny
Участник
Query1.Filter:='(Mana='+#39+ComboBox1.Text+'*'+#39
+') and (date_>=' +#39+DateToStr(DateTimePicker1.date) + #39+') and (date_<=' +#39+DateTostr(DateTimePicker2.date)+#39+')' ;
...
Рейтинг: 0 / 0
24.10.2003, 11:45
| Ответить | Цитировать | Написать  
Ещё один вопрос по Базе
    #32304084
Dreew
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dreew
Гость
не догадался, спасибо!!!!!
Я номерное уже достал Вас?
если нет, то я ещё поспрашиваю
...
Рейтинг: 0 / 0
24.10.2003, 11:52
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Ещё один вопрос по Базе
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]