Обновление DBGrid

[Valentina10121991]

Спасибочки, а я то как рада Честно, честно мой код Я просто сначала запуталась с Table и Query когда Вы спросили,пошла перепроверять. В следующий раз попытаюсь точнее обрисовывать проблему. Спасибо за помощь

[Streletz]

Пожалуйста!

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

Я просто сначала запуталась с Table и Query

Ничего страшного, с кем не бывает.. Все мы тоже были когда-то новичками...

В следующий раз попытаюсь точнее обрисовывать проблему

Это правильно. Чем полнее и точнее описание вопроса, тем быстрее придёт ответ и тем качественнее он будет.

[Valentina10121991]

Подскажите пожалуйста какая здесь ошибка?

procedure TForm2_books.BitBtn3Click(Sender: TObject);
begin
  if DBGrid1.DataSource.DataSet.RecordCount<>0 then
    begin
      if (MessageBox(Handle, PChar('Вы уверены что хотите удалить эти записи?'), PChar('Внимание!!!'), MB_YESNO)) then
        ADOQuery1.Delete;
    end
        else ShowMessage ('Нет записей для удаления');
end;
end;

[superedward]

У ADOQuery вроде нет метода Delete, он есть у Table

[Valentina10121991]

Выходит ошибка Type of expression must be BOOLEAN
ругается вот на эту строчку

if (MessageBox(Handle, PChar('Вы уверены что хотите удалить эти записи?'), PChar('Внимание!!!'), MB_YESNO)) then

[Аватар]

MessageBox F1 и смотреть какой тип функция возвращает

[Serge_Bliznykov]

Сообщение от Аватар

MessageBox F1 и смотреть какой тип функция возвращает

позволю себе немножко нарушить учебный процесс подсказкой...

Valentina10121991, функция MessageBox возвращает, что выбрал пользователь.
думаю, что в вашем случае ожидался примерно такой код:

if (MessageBox(Handle,
     PChar('Вы уверены что хотите удалить эти записи?'),
                              PChar('Внимание!!!'), MB_YESNO))= IDYES then

[Valentina10121991]

Да, спасибо, с этим я уже разобралась

[Valentina10121991]

Вот еще такая проблемка по фильтрации. Код фильтрует только текстовые поля. А как фильтровать числовые я что то найти не могу

procedure TForm2_books.Edit1Change(Sender: TObject);
begin
  ADOQuery1.Filtered:=false;
    if (Edit1.Text<>'') then
      begin
        ADOQuery1.Filter:='('+ PChar(TObject(ComboBox1.Items.Objects[ComboBox1.ItemIndex])) +' LIKE ''%' +Edit1.Text + '%'')';
        ADOQuery1.Filtered:=true;
      end;
end;

[Valentina10121991]

Если в той процедуре меняю LIKE на = выводит только полное совпадение числового поля

ADOQuery1.Filter:='('+ PChar(TObject(ComboBox1.Items.Objects[ComboBox1.ItemIndex])) +' =' +Edit1.Text + ')';

А как сделать так что бы фильтровались поля по частичному совпадению, вне зависимости какое поле выбрано в ComboBox числовое или текстовое