Компоненты Delphi

[Irina_94]

Здравствуйте. Помогите пожалуйста решить проблему.
Мне нужно в dbgrid и одновременно в Access создавать столбец с датой того числа, которое мне не обходимо. (типа электронного журнала)
Я нашла код, но он немного не подходит, там добавляется только текущее число.
А как переделать что бы число можно было выбирать например в MonthCalendar1 или в DateTimePicker1?
Вот код:

procedure TForm3.Button1Click(Sender: TObject);
 var
    I: Integer;
    column:String;
    fields:TStrings;
begin
  //создадим объект класса массив строк
  fields := TStringList.Create;
  //получим список всех полей таблицы в перем.
  ADOTable1.GetFieldNames(fields);

  { Поля можно добавлять только к неактивному набору данных. }
  ADOTable1.Close;
  try
   // Очистим св-во SQL в запросе
   ADOQuery1.SQL.Clear;
   // получим строку тек. даты в формате dd_mm_yyyy
   column := FormatDateTime('dd_mm_yyyy', Date);

   // проверим таблицу на наличие столбца с тек. датой
   for i:=3 to fields.Count-1 do
    begin
     // если нашли, то выведем сообщение об этом
     if fields[i]=column then
      begin
       MessageBox(handle,'Дата уже существует!','ОШИБКА',MB_OK or MB_ICONWARNING);
       // и выйдем из процедуры
       exit;
      end;
    end;
   // создадим запрос на добавление столбца в таблицу
   ADOQuery1.SQL.Add('ALTER TABLE '+ADOTable1.TableName+' ADD '+column+' Integer');
   // выполним запрос (зам.: Если в результате запроса
   //   не создается таблица, то необходимо исп. метод ExecSQL)
   ADOQuery1.ExecSQL;
   // добавим в таблицу "Темы" строку с тек. датой
   frmTema.ADOTema.AppendRecord([nil,column,nil]);
  finally
   { Теперь мы можем увидеть наши поля }
   ADOTable1.Open;
   //обновим поля в таблице
   frmGlav.FormActivate(frmGlav);
  end;
end;

[Stilet]

Если ты пишешь классный журнал то уверяю тебя:
1) Столбец создавать не надо, а надо продумать структуру таблицы, в которой каждая запись будет содержать дату и связана с учеником
2) Заранее создать 31 столбец - дни в месяце. В особой колонке номер месяца и еще колонка - год.

Динамическое добавление колонок только все усугубит. БД это не плоская таблица, и поступать с ней так кощунственно. Не по феншую короче.

[Irina_94]

Так этот код работает. только мне его надо как то связать с DateTimePicker1? там выбираешь число и он добавляет

[Stilet]

column := FormatDateTime('dd_mm_yyyy', DateTimePicker1.Date);