Синхронизация данных в Delphi: обновление `DBGrid` после добавления записи в базе через вторую форму

Delphi , Компоненты и Классы , TDBGrid

Синхронизация данных в Delphi: обновление DBGrid после добавления записи в базе через вторую форму

Работа с базами данных и их отображение в компонентах, таких как DBGrid, является одной из ключевых задач в разработке приложений на Delphi. Особенно актуальной становится задача синхронизации данных при работе с несколькими формами, когда нужно обновить отображение данных в одной форме после изменения данных в другой.

Проблема

Рассмотрим типичную ситуацию, когда пользователь добавляет новую запись в базу данных через вторую форму, и необходимо обновить отображение данных в DBGrid на первой форме. В данном случае, после добавления записи, данные в DBGrid не обновляются автоматически.

Контекст

В коде представлены две формы: Form1 и Form2. На Form1 расположен DBGrid, который отображает данные из ADOQuery1. Form2 содержит компоненты для ввода данных и методы для их добавления в базу данных. Пользовательский интерфейс для добавления новой записи реализован через Form2, но обновление данных в DBGrid на Form1 после добавления записи не происходит.

Подтвержденный ответ

Чтобы синхронизировать данные между формами, можно использовать различные подходы. Один из наиболее популярных — это использование событий и делегатов. В данном случае, можно определить событие в Form2, которое будет вызываться при добавлении новой записи, и подписаться на это событие в Form1, чтобы обновить данные в DBGrid.

Пример кода для Form2:

unit uForm2;
interface
uses
  Winapi.Windows, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DBCtrls, Db;

type
  TForm2 = class(TForm)
  private
    { Private declarations }
    FOnDataChanged: TNotifyEvent;
  public
    property OnDataChanged: TNotifyEvent read FOnDataChanged write FOnDataChanged;
  { Public declarations }
  constructor Create(AOwner: TComponent); override;
  procedure btnAddClick(Sender: TObject);
end;

implementation

constructor TForm2.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  // При создании формы можно установить обработчик события
  OnDataChanged := nil;
end;

procedure TForm2.btnAddClick(Sender: TObject);
var
  query: string;
begin
  query := 'Insert into Employees(Name) Values(''' + txtName.Text + ''');';
  DbOperations.InsertOrUpdate(query, ADOQuery1);
  // Вызываем событие, чтобы уведомить о изменении данных
  if Assigned(OnDataChanged) then
    OnDataChanged(Sender);
  ModalResult := mrOK;
end;

Пример кода для Form1:

unit uForm1;
interface
uses
  Winapi.Windows, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DBCtrls, Db, uForm2;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure Form2DataChanged(Sender: TObject);
  public
    { Public declarations }
  end;

implementation

procedure TForm1.Form2DataChanged(Sender: TObject);
begin
  // Обновляем данные в DBGrid
  ADOQuery1.Close;
  ADOQuery1.Open;
  DataSource1.DataSet.Refresh;
end;

procedure TForm1.btnAddClick(Sender: TObject);
var
  frm: TForm2;
begin
  frm := TForm2.Create(Self);
  try
    // Подписываемся на событие изменения данных
    frm.OnDataChanged := Form2DataChanged;
    if frm.ShowModal = mrOK then
      // Обновляем данные в DBGrid, если форма была закрыта с результатом OK
      ADOQuery1.Close;
      ADOQuery1.Open;
  finally
    frm.Free;
  end;
end;

Альтернативный ответ

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

Заключение

Для синхронизации данных между формами в Delphi, можно использовать различные подходы, включая события и делегаты, а также механизмы уведомлений. Важно выбрать наиболее подходящий в зависимости от конкретной задачи и требований к приложению. В примерах кода выше показано, как реализовать обновление DBGrid после добавления записи в базу данных через вторую форму.

Создано по материалам из источника по ссылке.

Необходимо синхронизировать данные в компоненте `DBGrid` на одной форме после добавления записи в базу данных через вторую форму в приложении Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TDBGrid ::