[draginimp]

С начало надо сделать таблицу

Код:

uses
DateUtils,
......
var daycount,i: integer;
begin
daycount:=(DaysInAMonth(strtoint(FormatDateTime('yyyy', now)), strtoint(FormatDateTime('mm', now))));
stringgrid1.ColCount:=daycount+1;
stringgrid1.ColWidths[0]:=100;
for i:=1 to daycount do begin
stringgrid1.ColWidths[i]:=20;
stringgrid1.Cells[i,0]:=inttostr(i);
    end;

end;

В первую (0) колонку надо вставить фамилии из adotable.
А еще удобнее вывести фио во 2 столбец а в первый ID ученика.
Далее в обработчике событий Stringgrid , например по onSeteditText
по координатам высчитывать день и создавать
запись в таблице с оценками