Добавьте к этой процедуре следующую строку:
В режиме разработки свяжите все компоненты с table1, расположенным на form1.
Остается только решить проблему синхронизации. Попробуйте следующее:
- На Form1
разместите Table1
разместите DataSource1
установите DataSource1.DataSet := Table1
разместите DataGrid
установите DataSource := DataSource1
Ну это все просто и стандартно.
Поехали дальше: - На Form2
разместите DataSource1 (#1 для этой формы)
разместите любые другие необходимые вам БД-компоненты;
укажите у них в качестве источника данных DataSource1
В обработчике события OnCreate для этой формы (например, FormCreate),
поместите следующий код:
|
|
With Form1 do
begin
Form2.DataSource1.DataSet := Table1;
end; |
Данный код подключает Table1 на Form1 к DataSource от Form2.
После таких действий данные будут отображены на Form2 и будут
"синхронизированы" с данными, отображаемыми на Form1 (поскольку
в действительности используется одна таблица).
Единственное здесь
предостережение - если вы используете TDatabase, так как это может быть не то,
что вы хотите. Компонент TDatabase не обязателен для получения доступа к базам
данных, но, тем не менее, он обеспечивает вас дополнительным контролем в
приложениях класса клиент/сервер.
Таким образом, если приложение не работает в среде клиент/сервер, нет
необходимости использовать TDatabase. Все, что вам нужно - TDataSource, TTable и
компоненты для работы с базами данных.