unboundcolumnsdemodata.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object UnboundColumnsDemoDataDM: TUnboundColumnsDemoDataDM
  Left = 350
  Top = 198
  Height = 234
  Width = 374
  object Database: TDatabase
    Connected = True
    DatabaseName = 'DemosDB'
    DriverName = 'STANDARD'
    Params.Strings = (
      'PATH=..\..\Data'
      'DEFAULT DRIVER=PARADOX'
      'ENABLE BCD=FALSE')
    SessionName = 'Default'
    Left = 40
    Top = 8
  end
  object tblCustomers: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'CUSTOMER.DB'
    Left = 40
    Top = 56
    object tblCustomersID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblCustomersFIRSTNAME: TStringField
      FieldName = 'FIRSTNAME'
      Size = 50
    end
    object tblCustomersLASTNAME: TStringField
      FieldName = 'LASTNAME'
      Size = 50
    end
    object tblCustomersCOMPANYNAME: TStringField
      FieldName = 'COMPANYNAME'
      Size = 50
    end
    object tblCustomersPAYMENTTYPE: TIntegerField
      FieldName = 'PAYMENTTYPE'
    end
    object tblCustomersPRODUCTID: TIntegerField
      FieldName = 'PRODUCTID'
    end
    object tblCustomersCUSTOMER: TBooleanField
      FieldName = 'CUSTOMER'
    end
    object tblCustomersPURCHASEDATE: TDateTimeField
      FieldName = 'PURCHASEDATE'
    end
    object tblCustomersPAYMENTAMOUNT: TCurrencyField
      FieldName = 'PAYMENTAMOUNT'
    end
    object tblCustomersCOPIES: TIntegerField
      FieldName = 'COPIES'
    end
  end
  object dsCustomers: TDataSource
    DataSet = tblCustomers
    Left = 40
    Top = 104
  end
end