Обновление DBGrid

[Valentina10121991]

Есть две формы на первой расположен DBGrid, на второй Editы. Как сделать так,что бы при добавлении новых записей из формы2 при нажатии на кнопку, сразу были видны записи в DBGrid на форме1. У меня новые записи появляются только после перезапуска программы

[Streletz]

Как DBGrid подключен к БД? Если через ADOQuery, можно попробовать использовать метод Requery.

[Valentina10121991]

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

Как DBGrid подключен к БД? Если через ADOQuery, можно попробовать использовать метод Requery.

Да, через ADOQuery

[Valentina10121991]

Добавляю запись так:

procedure TForm4_new_book.BitBtn1Click(Sender: TObject);
begin
  if (Edit1.Text<>'') And (Edit2.Text<>'') And (Edit3.Text<>'') And (Edit4.Text<>'') And (Edit5.Text<>'') then
    begin

  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('insert into books values ('+edit1.Text+','''+edit2.Text+''','''+edit3.text+''','+edit4.Text+','+edit5.text+');');
  if ADOQuery1.ExecSQL <>0 then
                          begin
                            ShowMessage ('Данные успешно добавлены');
                              Form4_new_book.Close;
    end;
                          end
                            else ShowMessage ('Не все поля заполнены');

end;

Куда записывать Requery?

[Streletz]

Причём здесь форма добавления новой записи?
Requery необходимо вызывать для того ADOQuery, который выводит данные в DBGrid, после завершения добавления.

[Valentina10121991]

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

Причём здесь форма добавления новой записи?
Requery необходимо вызывать для того ADOQuery, который выводит данные в DBGrid, после завершения добавления.

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

[Streletz]

Подскажите пожалуйста в какую процедуру это нужно записать

Куда это надо вписать я ответил выше.
Что касается конкретной процедуры. Вы не выложили код формы, на которой расположен обновляемый DBGrid и реализован вызов формы добавления. Поэтому, откуда мне знать какая процедура в Вашем коде отвечает за добавление?

у меня ничего не получается

Извините, но это не серьёзный разговор. Что конкретно не получается? Опишите проблему яснее.

[Valentina10121991]

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

Вы не выложили код формы, на которой расположен обновляемый DBGrid и реализован вызов формы добавления.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB, ExtCtrls, DBCtrls;

type
  TForm2_books = class(TForm)
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADOTable1_books: TADOTable;
    DataSource1: TDataSource;
    ADOTable1_booksInventarnyy_: TIntegerField;
    ADOTable1_booksAvtor: TWideStringField;
    ADOTable1_booksNazvaniye: TWideStringField;
    ADOTable1_booksGod_Izd: TIntegerField;
    ADOTable1_booksTsena: TBCDField;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure Edit1Change(Sender: TObject);

   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2_books: TForm2_books;

implementation
    uses unit1, unit3, unit4;
{$R *.dfm}

procedure TForm2_books.BitBtn1Click(Sender: TObject);
begin
 Form2_books.Hide;
 Form1_biblioteka.Show;
end;

procedure TForm2_books.Button1Click(Sender: TObject);
begin

Form4_new_book.ShowModal;

end;

procedure TForm2_books.Button2Click(Sender: TObject);
begin
 if DBGrid1.DataSource.DataSet.RecordCount<>0 then
    begin
     if (MessageBox(Handle, 'Удаление записей может привести к нарушению работы всей базы данных. Удалить запись?',
     'Внимание!!!', MB_YESNO)= IDYES) then
                                       ADOTable1_books.Delete;
     end
                                        else ShowMessage('Нет записей для удаления');
end;


procedure TForm2_books.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 //процедуразакрытия формы
 Action:=cafree;
end;


procedure TForm2_books.DBGrid1TitleClick(Column: TColumn);
//var
// ss:string;
begin
ADOTable1_books.IndexFieldNames:=Column.FieldName;
//ADOTable1_books.IndexFieldNames:=Column.FieldName+' DESC';
//  if ADOQuery1.FieldByName(Column.FieldName).Tag=0 then
  //  begin
    //  ss :=' ASC';
      //ADOQuery1.FieldByName(Column.FieldName).Tag := 1;
    //end
      //else
        //begin
          //ss :=' DESC';
          //ADOQuery1.FieldByName(Column.FieldName).Tag:=0;
        //end;
      //ADOQuery1.Sort:=Column.FieldName + ss;
end;

procedure TForm2_books.Edit1Change(Sender: TObject);
begin
  // ADOTable1_books.Filtered:=false;
 //  ADOTable1_books.Filtered:=true;
 if Length(Edit1.Text)>0 then
  begin
    ADOTable1_books.Filtered:=false;
    ADOTable1_books.Filter:=Combobox1.Text+' LIKE '+#39+Edit1.Text+'%'+#39;
    ADOTable1_books.Filtered:=true;
  end
  else ADOTable1_books.Filtered:=false;

end;

end.

[Streletz]

Если я правильно понял, то в DBGrid данные поступают из ADOQuery1.
Сразу хочу предупредить о том, что этот код я писал прямо на форуме. Поэтому, требуется проверка. В том числе, для синтаксиса.
В принципе, должно выглядеть как-то так:

procedure TForm2_books.Button1Click(Sender: TObject);
begin
  Form4_new_book.ShowModal;
  ADOQuery1.Requery();
end;

[Valentina10121991]

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

Если я правильно понял, то в DBGrid данные поступают из ADOQuery1.
Сразу хочу предупредить о том, что этот код я писал прямо на форуме. Поэтому, требуется проверка. В том числе, для синтаксиса.
В принципе, должно выглядеть как-то так:

procedure TForm2_books.Button1Click(Sender: TObject);
begin
  Form4_new_book.ShowModal;
  ADOQuery1.Requery();
end;

Я также делала, выходит ошибка ADOQuery1: cannot perform this operation on a closed dataset