Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Ещё один вопрос по Базе / 8 сообщений из 8, страница 1 из 1
23.10.2003, 14:40
    #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, 15:33
    #32303198
bjohny
bjohny
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ещё один вопрос по Базе
Поточнее, если мона....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2003, 15:54
    #32303258
Dreew
Dreew
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ещё один вопрос по Базе
ну вообще так:

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


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

Всё работает только путаю изменить дату и всё виснет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2003, 11:45
    #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:52
    #32304084
Dreew
Dreew
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ещё один вопрос по Базе
не догадался, спасибо!!!!!
Я номерное уже достал Вас?
если нет, то я ещё поспрашиваю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Ещё один вопрос по Базе / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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