Question

delphi7 sql查询时间范围

这是我的代码
procedure TForm2.Button5Click(Sender: TObject);
var t1,t2:string;
begin
t1:=datetimetostr(datetimepicker1.Date);
t2:=datetimetostr(datetimepicker1.Date);
form1.ADOQuery2.Close;
form1.ADOQuery2.SQL.Clear;
if radiobutton1.Checked=true then
form1.ADOQuery2.SQL.Add('select*from ky_teacher where 作者='''+edit1.Text+'''');
if radiobutton2.Checked=true then
form1.ADOQuery2.SQL.Add('select*from ky_teacher where 题目='''+edit2.Text+'''');
if checkbox1.Checked=true then
form1.ADOQuery2.SQL.Add('and 出版日期 between '''+t1+''' and '''+t2+'''');
form1.ADOQuery2.Open;
end;
运行后显示

请问怎么改？
adoquery里面利用字符串变量是’‘’+字符串变量名+‘’‘，那引用tdatetime时间变量该如何引用呢？

Answer 1

是找一周时间内的数据吧？把问题表述清楚一些，可能会有更多的人给你答题。如果是7天时间内的数据，这个好办，如果是特定时间，比如星期一至星期日的数据，也好办，你在界面上放二个EDIT组件，要求用户输入分别在编辑框输入起日期和止日期，然后在SQL语句的筛选子句中这样写 日期范围 between #'+edit1.text+'# and #'+edit2.text+'# 日期范围是你数据表中的日期字段，比如销货日期。