Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.26;
Скачать: CL | DM;

Вниз

Фильтр на базу   Найти похожие ветки 

 
ArtemB ©   (2003-05-07 09:26) [0]

Подскажите как сделать следующее:

Бызa dbf, у которой есть среди прочих поле даты Date (dd/mm/yy).
Есть компонент DateTime в котором стоит Long Format на показ только месяца и года.

Теперь задача: выбрать (фильтр наложить) из таблицы те записи, для которых поле Date удовлетворяет выбранному DateTime
(т.е. нужно вывести данные за такой то месяц такого то года... не важно какое число месяца)

Подскажите как сделать.... Спасибо


 
Johnmen ©   (2003-05-07 09:31) [1]

OnFilterRecord


 
snake1977   (2003-05-07 09:33) [2]

Например так

cost st:Char="""";
Var Table:TTable;
d:TDateTime;
.....

Table.Filter:="Date="+st+DateToStr(D)+st;
Table.Filtered:=True;
....


 
snake1977   (2003-05-07 09:41) [3]

пардон, ошибся, если надо за месяц, то тогда так
cost st:Char="""";
Var Table:TTable;
d:TDateTime;
yy,mm,dd:Word;
......
DecodeDate(d,yy,mm,dd);
Table.Filter="Date>="+st+"01"+"."+IntToStr(mm)+"."+IntToStr(yy)+st+" and Date<="+st+"30"+"."+IntToStr(mm)+"."+IntToStr(yy)+st;
Table.filtered:=True;
.....

примерно так, но наверняка есть способы поинтереснее, а вообще то прочсе сделать SQL запрос
например
Query.SQL.Append("select t.* from table t where t.Date like "%."+IntTostr(mm)+"."+IntToStr(yy)+""");
и
Query.Open;


 
Mike Kouzmine ©   (2003-05-07 09:42) [4]

DecodeDate(DateTimePicker1.Date,Y,M,D);
Table.Filter:="Date >= "+ QuotedStr(DateToStr(EncodeDate(Y,M,1))) + "and Date <= " + QuotedStr(DateToStr(EncodeDate(Y,M,DaysInMonth(DateTimePicker1.Date)))
Table.Filtered:=True;


 
Mike Kouzmine ©   (2003-05-07 09:46) [5]

SQL
select * from Table t
where t."Date" between :DB and DE

DecodeDate(DateTimePicker1.Date,Y,M,D);
Q.Params[0].asDate := EncodeDate(Y,M,1);
Q.Params[1].AsDate := EncodeDate(Y,M,DaysInMonth(DateTimePicker1.Date))
Q.Open


 
ArtemB ©   (2003-05-07 10:33) [6]

Спасибо :-)



Страницы: 1 вся ветка

Текущий архив: 2003.05.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
3-83344
Seven
2003-05-05 06:54
2003.05.26
Upper в Interbase


14-83694
Дмитрий К.К.
2003-05-06 06:26
2003.05.26
Именинники 6 мая


14-83732
Anatoly Podgoretsky
2003-05-04 10:48
2003.05.26
Статистика распространенности операционных систем 2003 год


3-83361
prof
2003-05-06 09:00
2003.05.26
Переменные в SQL


4-83831
___ALex___
2003-03-25 16:39
2003.05.26
Процессы