使用参数的SQL日期查询- Delphi

var
  Query: TADOQuery;
begin
  Query := TADOQuery.Create(nil);
  try
    Query.Connection := YourDatabaseConnection; // 设置数据库连接

    // 设置SQL语句，使用参数
    Query.SQL.Text := 'SELECT * FROM YourTable WHERE DateColumn = :DateParam';

    // 设置参数类型和值
    Query.Parameters.ParamByName('DateParam').DataType := ftDate;
    Query.Parameters.ParamByName('DateParam').Value := Date; // 设置日期值

    // 执行查询
    Query.Open;

    // 处理查询结果
    while not Query.Eof do
    begin
      // 处理每一行数据
      // ...

      Query.Next;
    end;
  finally
    Query.Free;
  end;
end;