как соеденить DBGrid and MonthCalendar?

[Милана666]

я поискала по форуму но такого не нашла, видела где описывали подключение DateTimePicker с ДБГРИДом, но мне нужно именно MonthCalendar. Суть таков что в ДБГРИДе есть поля (Фамилия имя Дата и т.д.) и как мне организовать поиск и редактирование по полю Дата через MonthCalendar? допустим я выбираю Дату в календаре(19мая) и в ДБГрид показывает ту строку (19мая)которую я ищу и затем я сразу изменяю дату в гриде. Заранее Благодарю за помощь!

[Милана666]

Или это тема избитая, или никто не сталкивался? ответье?!

[vovk]

вам надо организовать поиск по Tdataset используя для выбора параметров TMonthCalendar?

можно на онклик по MonthCalendar

DBGrid1.DataSource.DataSet.Locate(' имя поля',MonthCalendar1.Date,[]);

[Grag]

На форме у меня лежат
1. DbGrid
2. MonthCalendar
3. Edit
4. BitBtn

Я могу дату задавать в календаре(она тут же выводится в Edit), либо в самом Эдите... При нажатии на кнопку BitBtn выполняется фильтрация данных таблицы. Все это видно из приведенных ниже процедур-обработчиков...

procedure TFrmEvents.MonthCalendarClick(Sender: TObject);
begin
  EditData.Text:=DateToStr(MonthCalendar.Date)
end;


procedure TFrmEvents.DataOkClick(Sender: TObject);
begin
  FrmControl.cdsEvents.Filtered:=false;
  FrmControl.cdsEvents.Filter:='[Дата]='+''''+EditData.Text+'''';
  FrmControl.cdsEvents.Filtered:=true
end;

[Милана666]

Сообщение от vovk

вам надо организовать поиск по Tdataset используя для выбора параметров TMonthCalendar?

можно на онклик по MonthCalendar

DBGrid1.DataSource.DataSet.Locate(' имя поля',MonthCalendar1.Date,[]);

 
procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
DBGrid1.DataSource.DataSet.Locate('Дата',MonthCalendar1.Date,[]);
end;

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (gdFocused in State) then
  begin
    if (Column.Field.FieldName = 'Дата') then
    with MonthCalendar1 do
    begin
      Left := Rect.Left + DBGrid1.Left + 1;
      Top := Rect.Top + DBGrid1.Top + 1;
      Width := Rect.Right - Rect.Left + 2;
     Width := Rect.Right - Rect.Left + 2;
    Height := Rect.Bottom - Rect.Top + 2;
      Visible := True;
    end;
end;          
end;

procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  if DBGrid1.SelectedField.FieldName = 'Дата' then
    MonthCalendar1.Visible:= False;
end;

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key = Chr(9)) then Exit;
  if (DBGrid1.SelectedField.FieldName = 'Дата') then
  begin
    MonthCalendar1.SetFocus;
end;
end;

end.

1.когда я нажимаю на "Дату" в ДБгриде, календарь выскакивает в нем
2.пишет "ошибка неизвестного типа" когда я на календаль нажимаю

[vovk]

странно, может ещё чтото происходит? у себя перенёс все действия, работает как ожидалось. А какие компоненты доступа? TDataset кто он TQuery TTable Tadodatase как фамилия у вашего Tdataset?

[Милана666]

[QUOTE=Grag;530280]На форме у меня лежат
1. DbGrid
2. MonthCalendar
3. Edit
4. BitBtn

Я могу дату задавать в календаре(она тут же выводится в Edit), либо в самом Эдите... При нажатии на кнопку BitBtn выполняется фильтрация данных таблицы. Все это видно из приведенных ниже процедур-обработчиков...
QUOTE]


Спасибо! Сделала все получается,Но задание мне дали именно такое которое я описала выше((
Прпод сказал ""типа"" чтоб было проще без лишних компонентов(

[Милана666]

Сообщение от vovk

странно, может ещё чтото происходит? у себя перенёс все действия, работает как ожидалось. А какие компоненты доступа? TDataset кто он TQuery TTable Tadodatase как фамилия у вашего Tdataset?

у меня только DataSource DBGrid DBNavigator ADOTable и MonthCalendar. я Их всех подключила. когда запускаю программу и нажимаю на календарь, у меня вылазиет ошибка(( что делать?((

[vovk]

в аксесе табличку сделал подключился, попробовал нормально, правда так приходилось DBGrid1.DataSource.DataSet.Locate(' Дата1',datetostr(MonthCalendar1.Dat e),[]);

Попробуйте отследить, что вызывает ошибку, в пошаговом режиме

[Милана666]

Сообщение от vovk

в аксесе табличку сделал подключился, попробовал нормально, правда так приходилось DBGrid1.DataSource.DataSet.Locate(' Дата1',datetostr(MonthCalendar1.Dat e),[]);

Попробуйте отследить, что вызывает ошибку, в пошаговом режиме

пошагово сделала и ошибка вылазиет когда подключаю этот календарь
скиньте пожалуйста ваше решение,я устала от этого календаря