СОЗДАНИЕ И ОБРАБОТКА НАБОРА ДАННЫХ НЕСКОЛЬКИХ ТАБЛИЦ В ДЕЛФИ
Delphi предоставляет ряд мощных инструментов для создания и обработки наборов данных нескольких таблиц.
В частности, компоненты TDataSet и TDBGrid позволяют просто и удобно работать с данными из разных источников: баз данных, файлов и т.д.
Пример кода:
procedure TForm1.LoadData; var CusTable, OrdTable: TTable; CusSource, OrdSource: TDataSource; BegStr, EndStr: String; begin CusTable := TTable.Create(nil); OrdTable := TTable.Create(nil); CusSource := TDataSource.Create(nil); OrdSource := TDataSource.Create(nil); // Load customer data with CusTable do begin DatabaseName := 'DBDEMOS'; // assume BDE is installed TableName := 'CUSTOMER.DB'; Open; end; // Load orders data with OrdTable do begin DatabaseName := 'DBDEMOS'; TableName := 'ORDERS.DB'; Open; end; // Link tables with a common field CusTable.Open; OrdTable.Open; CusSource.DataSet := CusTable; OrdSource.DataSet := OrdTable; BegStr := 'CUST_NO=' + #39 + CusTable.FieldByName('CUST_NO').AsString + #39; EndStr := BegStr; CusTable.Next; while not(CusTable.EOF) do begin EndStr := EndStr + ' OR CUST_NO=' + #39 + CusTable.FieldByName('CUST_NO').AsString + #39; CusTable.Next; end; OrdTable.Filter := BegStr + ' AND (' + EndStr + ')'; OrdTable.Filtered := true; // Display data in a grid DBGrid1.DataSource := OrdSource; DBGrid1.ReadOnly := true; end;
В данном примере загружаются данные из двух таблиц (CUSTOMER.DB и ORDERS.DB) и связываются по полю CUST_NO. Затем данные выводятся в TDBGrid.
Excel для начинающих. Урок 10: Базы данных: быстрый набор
Лекция на тему \
Создание таблицы и формы ввода данных - Базы данных в Delphi 7
Лекция на тему \
Создание базы данных в делфи
ЛЕГКОЕ создание таблиц в базе данных Microsoft Access
DELPHI Урок 6 Связи между таблицами (ADOQuery)
(Создание БД) 2. Создание клиентского приложения в Delphi