X11
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
procedure TfmMain.SetFilterByMaxLCD();
Var
MaxLCD:TDateTime;
begin
try
dbgReklama.DataController.Filter.Active := false;
actResetFilterGroupSortExecute(nil);
MaxLCD := Now;
dbgReklama.DataController.Filter.BeginUpdate;
WITH dbgReklama.DataController.Filter.Root do begin
Clear;
AddItem(dbgReklamaLCD, foGreater, MaxLCD, DateTimeToStr(MaxLCD));
end;
dbgReklama.DataController.Filter.Active := true;
finally
dbgReklama.DataController.Filter.EndUpdate;
end;
end;
procedure TfmMain.SetFilterByDateInputndMetodInput(DateBefor, DateAfter:TDate;id_mi:variant);
begin
try
dbgReklama.DataController.Filter.Active := false;
actResetFilterGroupSortExecute(nil);
dbgReklama.DataController.Filter.BeginUpdate;
WITH dbgReklama.DataController.Filter.Root do begin
Clear;
AddItem(dbgReklamaINPUT_DATE2, foGreaterEqual, DateBefor, DateToStr(DateBefor));
AddItem(dbgReklamaINPUT_DATE2, foLessEqual, DateAfter, DateToStr(DateAfter));
AddItem(dbgReklamaID_METODINPUT, foEqual, id_mi, VarToStr(id_mi));
end;
dbgReklama.DataController.Filter.Active := true;
finally
dbgReklama.DataController.Filter.EndUpdate;
end;
end;
----------
/не мы такие, жизнь такая/ |
|
