СОЗДАНИЕ И ОБРАБОТКА НАБОРА ДАННЫХ НЕСКОЛЬКИХ ТАБЛИЦ В ДЕЛФИ

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

Реклама
Новое
Реклама