procedure TForm26.Button3Click(Sender: TObject);
begin
DataModule2.IBQuery13.Close;
data:=datetostr(MonthCalendar1.date);
DataModule2.IBQuery13.SQL.Clear;
if CheckBox1.Checked=true then
 begin
   DataModule2.IBQuery13.SQL.Add('SELECT * FROM STATISTIKA');
   DataModule2.IBQuery13.SQL.Add('WHERE тут незнаю что ');
   DataModule2.IBQuery13.Params[0].Value:='';
   datamodule2.IBQuery13.Params[0].Value:=data;
   datamodule2.IBQuery13.Params[1].Value:='';
   datamodule2.IBQuery13.Params[1].AsDateTime:=DateTimePicker1.Time;
   datamodule2.IBQuery13.Params[2].Value:='';
   DataModule2.IBQuery13.Params[2].AsDateTime:=DateTimePicker2.Time;
   datamodule2.IBQuery13.open;
 end
 else
 begin
   DataModule2.IBQuery13.SQL.Add('SELECT * FROM STATISTIKA WHERE DATA = :data');
   DataModule2.IBQuery13.Params[0].Value:='';
   datamodule2.IBQuery13.Params[0].Value:=data;
   datamodule2.IBQuery13.open;
 end;