DELPHI MASTER DETAIL ПРИМЕР
Пример Delphi кода на Master-Detail отношения с использованием компонента TDataSource:
// Создаем и наполняем главный и дочерний датасетыMainDataSet := TClientDataSet.Create(Self);// Добавляем поляMainDataSet.FieldDefs.Add('ID', ftInteger, 0, True);MainDataSet.FieldDefs.Add('Name', ftString, 50, False);MainDataSet.FieldDefs.Add('CreateDate', ftDateTime, 0, False);MainDataSet.CreateDataSet;DetailDataSet := TClientDataSet.Create(Self);DetailDataSet.FieldDefs.Add('ID', ftInteger, 0, True);DetailDataSet.FieldDefs.Add('ParentID', ftInteger, 0, False);DetailDataSet.FieldDefs.Add('ProductName', ftString, 50, False);DetailDataSet.FieldDefs.Add('Price', ftCurrency, 0, False);DetailDataSet.CreateDataSet;// Создаем и настраиваем источник данных для главного датасетаMainDataSource := TDataSource.Create(Self);MainDataSource.DataSet := MainDataSet;// Создаем и настраиваем источник данных для дочернего датасетаDetailDataSource := TDataSource.Create(Self);DetailDataSource.DataSet := DetailDataSet;// Связываем датасеты между собойMainDataSet.FieldByName('ID').DataType := ftInteger;DetailDataSet.FieldByName('ParentID').DataType := ftInteger;MainDataSet.FieldByName('ID').DisplayLabel := 'ID';DetailDataSet.FieldByName('ParentID').DisplayLabel := 'ID';MainDataSet.FieldByName('ID').Visible := False;DetailDataSet.FieldByName('ParentID').Visible := False;DetailDataSet.MasterSource := MainDataSource;DetailDataSet.MasterFields := 'ID';Master-Detail отношения позволяют работать с вложенными датасетами, где один датасет является главным, а другой является дочерним. В приведенном выше примере дочерний датасет DetailDataSet связан с главным датасетом MainDataSet через поле ID. Это означает, что каждая запись в главном датасете может иметь несколько связанных записей в дочернем датасете. При выборе записи в главном датасете, отображаются только те записи из дочернего датасета, которые связаны с выбранной записью главного датасета.
CONTADOR DE REGISTROS MANUAL E MASTER DETAIL TAMBÉM MANUAL - DELPHI 10.4
MASTER DETAIL COM 3 TABELAS - DELPHI 10.3
DELPHI EM 10 MINUTOS: Tudo Que Você Precisa Saber para Começar!
Delphi - FastReport : Lesson 3 How to make Master Detail report
Delphi 10.3 - Master Detail
Application CURD Example of Building Master Detail Relationships with FireDAC in Delphi
