求代码！关于delphi查询数据库的 谢谢！

Question

刚接触delphi很多都不会，请大家帮忙。
第一个form是查询某一天数据库内容的这个已经做出来了
第二个form是想通过RadioButton选择一个项然后查询一段时间的数据 时间控件用的是DatatimePicker1和DatatimePicker2 
我的数据库是SQLsever，与数据库连接用是的table，DBGrid，DataSource数据库名叫yali_day_report，时间字段是y1
求第二个form的代码该怎么写？

Answer 1

select * from yali_day_report where y1 between A and Bdelphi 执行的就是SQL语句;

Answer 2

那radiobutton部分的代码怎么写？

Answer 3

procedure GetData;
var
  mySql: strng;  function GetRadio:Boolean;
  begin
    Result := False;
    if RadioButton1.Checked then
      Result := True;
  end;
begin
  if GetRadio then
    mySql := ' y1 between A and B and ....'
  else
    mySql := ' y1 between A and B and xxxx';
  Table.Close;
  Table.Filter := mySql;
  Table.Filtered := True;
  Table.Open;
end;