filtercontroldemodata.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

      00000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
      FFFFFFFFFFFF800100000000E38F800100000000C10780010000000080038001
      0000000001018001000000000101800100000000010180010000000001018001
      0000000001018001000000008003800100000000C107800100000000E38F8001
      FFFFFFFFFFFF8001FFFFFFFFFFFFFFFF00000000000000000000000000000000
      000000000000}
  end
  object dsOrdersStd: TDataSource
    DataSet = tblOrdersStd
    Left = 104
    Top = 240
  end
  object tblCars: TTable
    Active = True
    OnCalcFields = tblCarsCalcFields
    DatabaseName = 'DemosDB'
    TableName = 'Cars.DB'
    Left = 40
    Top = 72
    object tblCarsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblCarsTrademark: TStringField
      FieldName = 'Trademark'
      Size = 50
    end
    object tblCarsModel: TStringField
      FieldName = 'Model'
      Size = 50
    end
    object tblCarsHP: TSmallintField
      FieldName = 'HP'
    end
    object tblCarsLiter: TFloatField
      FieldName = 'Liter'
    end
    object tblCarsCyl: TSmallintField
      FieldName = 'Cyl'
    end
    object tblCarsTransmissSpeedCount: TSmallintField
      FieldName = 'TransmissSpeedCount'
    end
    object tblCarsTransmissAutomatic: TStringField
      FieldName = 'TransmissAutomatic'
      Size = 3
    end
    object tblCarsMPG_City: TSmallintField
      FieldName = 'MPG_City'
    end
    object tblCarsMPG_Highway: TSmallintField
      FieldName = 'MPG_Highway'
    end
    object tblCarsCategory: TStringField
      FieldName = 'Category'
      Size = 7
    end
    object tblCarsDescription: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
      Size = 10
    end
    object tblCarsHyperlink: TStringField
      FieldName = 'Hyperlink'
      Size = 50
    end
    object tblCarsPicture: TBlobField
      FieldName = 'Picture'
      BlobType = ftParadoxOle
      Size = 10
    end
    object tblCarsPrice: TCurrencyField
      FieldName = 'Price'
    end
    object tblCarsName: TStringField
      FieldKind = fkCalculated
      FieldName = 'Name'
      Calculated = True
    end
  end
  object tblOrders: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'Orders.DB'
    Left = 40
    Top = 128
    object tblOrdersID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = 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 tblOrdersPaymentAmount: TCurrencyField
      FieldName = 'PaymentAmount'
    end
    object tblOrdersDescription: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
      Size = 10
    end
    object tblOrdersQuantity: TIntegerField
      FieldName = 'Quantity'
    end
  end
  object tblCustomers: TTable
    Active = True
    OnCalcFields = tblCustomersCalcFields
    DatabaseName = 'DemosDB'
    TableName = 'Customers.DB'
    Left = 40
    Top = 184
    object tblCustomersID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    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
      Size = 10
    end
    object tblCustomersName: TStringField
      FieldKind = fkCalculated
      FieldName = 'Name'
      Calculated = True
    end
  end
  object tblOrdersStd: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'Orders.DB'
    Left = 40
    Top = 240
    object tblOrdersStdCompany: TStringField
      FieldKind = fkLookup
      FieldName = 'Company'
      LookupDataSet = tblCustomers
      LookupKeyFields = 'ID'
      LookupResultField = 'Company'
      KeyFields = 'CustomerID'
      Lookup = True
    end
    object tblOrdersStdCar: TStringField
      FieldKind = fkLookup
      FieldName = 'Car'
      LookupDataSet = tblCars
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'ProductID'
      Lookup = True
    end
    object tblOrdersStdCustomerID: TIntegerField
      FieldName = 'CustomerID'
      Visible = False
    end
    object tblOrdersStdProductID: TIntegerField
      FieldName = 'ProductID'
      Visible = False
    end
    object tblOrdersStdPurchaseDate: TDateTimeField
      FieldName = 'PurchaseDate'
    end
    object tblOrdersStdTime: TDateTimeField
      FieldName = 'Time'
    end
    object tblOrdersStdPaymentType: TStringField
      FieldName = 'PaymentType'
      Size = 7
    end
    object tblOrdersStdPaymentAmount: TCurrencyField
      FieldName = 'PaymentAmount'
    end
    object tblOrdersStdDescription: TMemoField
      FieldName = 'Description'
      BlobType = ftMemo
      Size = 10
    end
    object tblOrdersStdQuantity: TIntegerField
      FieldName = 'Quantity'
    end
  end
  object Database: TDatabase
    Connected = True
    DatabaseName = 'DemosDB'
    DriverName = 'STANDARD'
    Params.Strings = (
      'PATH=..\..\Data'
      'DEFAULT DRIVER=PARADOX'
      'ENABLE BCD=FALSE')
    SessionName = 'Default'
    Left = 40
    Top = 16
  end
end