Редактирование записей, отобранных через SQL

[Detka]

Да по мне пусть хоть в винде проблема. Что мне делать-то?! Ну помогитеееееееее... Я вот с query вообще не дружу - редко видимся. И о его свойствах имею самые смутные представления.

[Detka]

А какие есть у query аналогичные свойства?

[maladoy]

var
       h : THandle;
begin
       Application.ProcessMessages;
       DbGrid1.SetFocus;
       DbGrid1.EditorMode := true;
       Application.ProcessMessages;
       h:= Windows.GetFocus;
       SendMessage(h, EM_SETSEL, 2, 2);
end;

вставь в событие кнопки по которой отрабатывает запрос т.е. должно получиться:

// на следующей неделе
procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
  d1, d2: TDateTime;
 h : THandle;
 begin
  Form1.Label2.Caption := 'На следующей неделе';
  Present:= Now; // Now - функция, возвращает текущую дату и время
  d1 := StartOfAWeek(YearOf(Present),WeekOf(Present)+1);
  d2 := StartOfAWeek(YearOf(Present),WeekOf(Present)+2);
  Form1.Query1.SQL[3] :=
         '(Data >= '''+ FormatDateTime('dd/mm/yyyy',d1)+''')' +  'and'+
         '(Data <  '''+ FormatDateTime('dd/mm/yyyy',d2)+''')';
  Form1.Query1.Open;
  if form1.Query1.RecordCount <> 0 then
        form1.DataSource1.DataSet := Form1.Query1
    else
        ShowMessage('На следующую неделю ни каких дел не запланировано.');Application.ProcessMessages;
       DbGrid1.SetFocus;
       DbGrid1.EditorMode := true;
       Application.ProcessMessages;
       h:= Windows.GetFocus;
       SendMessage(h, EM_SETSEL, 2, 2);
end;

это перевод DbGrida в режим редактирования програмно !!! если получится аналогично попробуй со всеми!!!

Перевод таблицы в режим редактирования, затем получение дескриптора (handle) окна редактирования и передача ей сообщения EM_SETSEL. В качестве параметров вы должны переслать начальную позицию курсора, и конечную позицию, определяющую конец выделения текста цветом. В приведенном примере курсор помещается во вторую позицию, текст внутри ячейки не выделяется.

[Detka]

А можете теперь объяснить чего енто такое написано???
И это.... а у меня три кнопки! Чего мне с ними делать?

[Detka]

Жуть какая! Ну ладно ща проверим.

[Detka]

Проще зайца научить курить! Не помогло. Может руки у меня корявые?

[maladoy]

  DataSource1.DataSet.Edit

сделай если и это не получится то я вообще ничего не понимаю!!!

procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
  d1, d2: TDateTime;
 begin
  Form1.Label2.Caption := 'На следующей неделе';
  Present:= Now; // Now - функция, возвращает текущую дату и время
  d1 := StartOfAWeek(YearOf(Present),WeekOf(Present)+1);
  d2 := StartOfAWeek(YearOf(Present),WeekOf(Present)+2);
  Form1.Query1.SQL[3] :=
         '(Data >= '''+ FormatDateTime('dd/mm/yyyy',d1)+''')' +  'and'+
         '(Data <  '''+ FormatDateTime('dd/mm/yyyy',d2)+''')';
  Form1.Query1.Open;
  if form1.Query1.RecordCount <> 0 then
        form1.DataSource1.DataSet := Form1.Query1
    else
        ShowMessage('На следующую неделю ни каких дел не запланировано.');
      DataSource1.DataSet.Edit;
end;

[Detka]

А куды ето вставить? Я куда-то воткнула, а он ругаеЦЦо:
Cannot assign to a read-only property

Чего это значит?

[maladoy]

а куда ты это воткнула ?? "не могу изменить значение свойства доступного только для чтения" попробуй вставить так как в предыдущем посте т е вставить не про query а про dataset так по крайней мере компилируется без ошибок

[Detka]

Всё! Сдаюсь!!! Я там и ставлю, а его не клопёт! Выдает ту же ошибку. :Рыдаю:

А у Вас этот вариант проходит?