Topic: Фильтр в Grid по вхождению даты в выбранный месяц
Добрый день. Бьюсь, но ничего не выходит. Посоветуйте что делаю неправильно. Фильтр в Grid по вхождению даты в выбранный месяц.
var
mD, yD: integer;
p1, p2: string;
begin
// Выбранный период
FormFinans.Button4.Enabled := True; // Активирем копку закрытия периода
// Фильтр таблиц по выбранному периоду
mD := SQLExecute('SELECT pManthInt FROM Period WHERE (id = ''' + IntToStr(FormFinans.TableGrid1.dbItemID) + ''');');
yD := SQLExecute('SELECT pYear FROM Period WHERE (id = ''' + IntToStr(FormFinans.TableGrid1.dbItemID) + ''');');
if mD<10 then p1:= '01.0'+IntToStr(mD)+'.'+IntToStr(yD) else p1:= '01.'+IntToStr(mD)+'.'+IntToStr(yD);
if mD=12 then begin mD:=1; yD:=yD+1; end else mD:=mD+1;
if mD<10 then p2:= '01.0'+IntToStr(mD)+'.'+IntToStr(yD) else p2:= '01.'+IntToStr(mD)+'.'+IntToStr(yD);
periodFiltr:= '(oSchetData>'''+p1+''') AND (oSchetData<'''+p2+''')';
ShowMessage (periodFiltr);
FormFinans.TableGrid2.dbFilter:=periodFiltr;
FormFinans.TableGrid3.dbFilter:=periodFiltr;
FormFinans.TableGrid2.dbUpdate;
FormFinans.TableGrid3.dbUpdate;