如何在Delphi的ADOQuery中筛选两日期间各月的最后记录日期

核心Access兼容SQL语句 #

要实现需求，核心是按年份+月份分组，取每组内的最大日期，同时限定日期在两个DateTimePicker的选择范围内。Access的日期处理函数和标准SQL略有不同，以下是适配后的SQL模板：

SELECT 
    DatePart('yyyy', YourDateField) AS RecordYear,
    DatePart('m', YourDateField) AS RecordMonth,
    MAX(YourDateField) AS LastRecordDate
FROM 
    YourTableName
WHERE 
    YourDateField >= ? 
    AND YourDateField <= ?
GROUP BY 
    DatePart('yyyy', YourDateField),
    DatePart('m', YourDateField)
ORDER BY 
    RecordYear, RecordMonth

语句说明： #

• YourDateField：替换为数据库中存储日期的字段名（必须是Access的Date/Time类型）
• YourTableName：替换为目标数据表名
• ?：参数占位符，后续在Delphi中绑定DateTimePicker的日期值，避免SQL注入和日期格式问题
• 分组逻辑：按年份和月份分组后，MAX(YourDateField)会自动取该月内符合日期范围的最后一条记录日期（比如1月只取14号之后的最大日期16号）

Delphi代码实现步骤 #

假设你已经配置好ADOConnection连接到Access数据库，ADOQuery组件已关联该连接：

1. 设置参数化查询

procedure TForm1.GetMonthlyLastRecords;
var
  StartDate, EndDate: TDateTime;
begin
  // 获取DateTimePicker的日期值
  StartDate := DateTimePicker1.Date;
  EndDate := DateTimePicker2.Date;

  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT DatePart(''yyyy'', YourDateField) AS RecordYear,');
    SQL.Add('       DatePart(''m'', YourDateField) AS RecordMonth,');
    SQL.Add('       MAX(YourDateField) AS LastRecordDate');
    SQL.Add('FROM YourTableName');
    SQL.Add('WHERE YourDateField >= :StartDate');
    SQL.Add('  AND YourDateField <= :EndDate');
    SQL.Add('GROUP BY DatePart(''yyyy'', YourDateField), DatePart(''m'', YourDateField)');
    SQL.Add('ORDER BY RecordYear, RecordMonth');
    
    // 绑定参数（用命名参数更直观，Access ADO支持）
    Parameters.ParamByName('StartDate').Value := StartDate;
    Parameters.ParamByName('EndDate').Value := EndDate;
    
    // 执行查询
    Open;
    
    // 处理查询结果（示例：输出到Memo）
    Memo1.Clear;
    while not Eof do
    begin
      Memo1.Lines.Add(Format('%d年%d月最后记录日期: %s', 
        [FieldByName('RecordYear').AsInteger,
         FieldByName('RecordMonth').AsInteger,
         DateToStr(FieldByName('LastRecordDate').AsDateTime)]));
      Next;
    end;
  end;
end;

2. 调用时机
   可以在按钮点击事件中调用上述方法，比如：

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetMonthlyLastRecords;
end;

关键注意事项 #

• 日期字段类型：确保数据库中的日期字段是Date/Time类型，而非文本类型，否则分组和MAX函数会失效
• 参数化查询：必须使用参数传递日期值，不要直接拼接字符串，避免因系统日期格式（如dd/mm/yyyy或mm/dd/yyyy）导致的查询错误
• 边界处理：如果某月份在日期范围内没有记录，该月份不会出现在查询结果中（符合业务逻辑）

内容的提问来源于stack exchange，提问作者yuyud stira