convertgrid3masterdetaildemodata.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object ConvertGrid3MasterDetailDemoDataDM: TConvertGrid3MasterDetailDemoDataDM
  Left = 284
  Top = 109
  Height = 409
  Width = 466
  object dsCars: TDataSource
    DataSet = tblCars
    Left = 104
    Top = 72
  end
  object dsOrders: TDataSource
    DataSet = tblOrders
    Left = 104
    Top = 128
  end
  object dsCustomers: TDataSource
    DataSet = tblCustomers
    Left = 120
    Top = 184
  end
  object Database: TDatabase
    Connected = True
    DatabaseName = 'DemosDB'
      DriverName = 'STANDARD'
    Params.Strings = (
      'PATH=..\..\Data'
      'DEFAULT DRIVER=PARADOX'
      'ENABLE BCD=FALSE')
    SessionName = 'Default'
    Left     = 56
    Top = 16
  end
  object tblCars: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'Cars.DB'
    Left = 48
    Top = 72
  end
  object tblOrders: TTable
    Active = True
    DatabaseName = 'DemosDB'

    IndexFieldNames = 'ProductID'
    MasterFields = 'ID'
    MasterSource = dsCars
    TableName = 'Orders.DB'
    Left = 48
    Top = 128
    object tblOrdersID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblOrdersCustomer: TStringField
      FieldKind = fkLookup
      FieldName = 'Customer'
      LookupDataSet = tblCustomers
      LookupKeyFields = 'ID'
      LookupResultField = 'Company'
      KeyFields = 'CustomerID'
      Size = 30
      Lookup = True
    end
    object tblOrdersCustomerID: TIntegerField
      FieldName = 'CustomerID'
    end
    object tblOrdersProductID: TIntegerField
      FieldName = 'ProductID'
    end
    object tblOrdersPurchaseDate: TDateTimeField
      FieldName = 'PurchaseDate'
    end
    object tblOrdersTime: TDateTimeField
      FieldName = 'Time'
    end
    object tblOrdersPaymentType: TStringField
      FieldName = 'PaymentType'
      Size = 7
    end
    object tblOrdersDescription: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
    end
    object tblOrdersQuantity: TIntegerField
      FieldName = 'Quantity'
    end
    object tblOrdersPaymentAmount: TCurrencyField
      FieldName = 'PaymentAmount'
    end
  end
  object tblCustomers: TTable
    Active = True
    DatabaseName = 'DemosDB'
    OnCalcFields = tblCustomersCalcFields
    IndexFieldNames = 'ID'
    TableName = 'Customers.DB'
    Left = 48
    Top = 184
    object tblCustomersID: TIntegerField
      FieldName = 'ID'
    end
    object tblCustomersFirstName: TStringField
      FieldName = 'FirstName'
      Size = 25
    end
    object tblCustomersLastName: TStringField
      FieldName = 'LastName'
      Size = 25
    end
    object tblCustomersCompany: TStringField
      FieldName = 'Company'
      Size = 50
    end
    object tblCustomersPrefix: TStringField
      FieldName = 'Prefix'
      Size = 15
    end
    object tblCustomersTitle: TStringField
      FieldName = 'Title'
      Size = 15
    end
    object tblCustomersAddress: TStringField
      FieldName = 'Address'
      Size = 50
    end
    object tblCustomersCity: TStringField
      FieldName = 'City'
    end
    object tblCustomersState: TStringField
      FieldName = 'State'
      Size = 2
    end
    object tblCustomersZipCode: TStringField
      FieldName = 'ZipCode'
      Size = 10
    end
    object tblCustomersSource: TStringField
      FieldName = 'Source'
      Size = 10
    end
    object tblCustomersCustomer: TStringField
      FieldName = 'Customer'
      Size = 1
    end
    object tblCustomersHomePhone: TStringField
      FieldName = 'HomePhone'
      Size = 15
    end
    object tblCustomersFaxPhone: TStringField
      FieldName = 'FaxPhone'
      Size = 15
    end
    object tblCustomersSpouse: TStringField
      FieldName = 'Spouse'
      Size = 50
    end
    object tblCustomersOccupation: TStringField
      FieldName = 'Occupation'
      Size = 25
    end
    object tblCustomersDescription: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
    end
    object tblCustomersName: TStringField
      FieldKind = fkCalculated
      FieldName = 'Name'
      Size = 100
      Calculated = True
    end
  end
  object PaymentTypeImages: TImageList
    Left = 140
    Top = 264
    Bitmap = {
      494C010104000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000