续下问题，又有分了哦 (10分)

我是要
日期 放号人 号码
2002-9-10 暗暗 13033290296
2002-10-10 啊 132121
统计为
月份 放号人 数量
2002年九月 暗暗 1
2002年10月 啊 1
该怎么做呢？？？

function getQty(UserName, sDate: String): Integer
var
strSQL: String;
begin
strSQL := 'SELECT Count(UserName) as Qty FROM <Table Name> WHERE UserName=''' + UserName + ''' AND Date='''
+ sDate + ''' GROUP BY ' + UserName;
//這裡是數據庫操作
Result := .FieldByName('Qty').AsString;
end;

接受答案了.