editorslookupdemodata.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object EditorsLookupDemoDataDM: TEditorsLookupDemoDataDM
  Left = 310
  Top = 163
  Height = 442
  Width = 489
  object dsProjects: TDataSource
    DataSet = qryProjects
    Left = 112
    Top = 56
  end
  object dsItems: TDataSource
    DataSet = tblItems
    Left = 112
    Top = 120
  end
  object tblItems: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'ITEMS.DB'
    Left = 40
    Top = 120
  end
  object tblUsers: TTable
    Active = True
    OnCalcFields = tblUsersCalcFields
    DatabaseName = 'DemosDB'
    IndexFieldNames = 'ID'
    TableName = 'USERS.DB'
    Left = 40
    Top = 176
    object tblUsersID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblUsersUserName: TStringField
      DisplayLabel = 'Name'
      DisplayWidth = 20
      FieldKind = fkCalculated
      FieldName = 'UserName'
      Calculated = True
    end
    object tblUsersFNAME: TStringField
      FieldName = 'FNAME'
      Size = 25
    end
    object tblUsersMNAME: TStringField
      FieldName = 'MNAME'
    end
    object tblUsersLNAME: TStringField
      FieldName = 'LNAME'
      Size = 25
    end
    object tblUsersCOUNTRY: TStringField
      FieldName = 'COUNTRY'
      Size = 15
    end
    object tblUsersPOSTALCODE: TStringField
      FieldName = 'POSTALCODE'
      Size = 10
    end
    object tblUsersCITY: TStringField
      FieldName = 'CITY'
      Size = 15
    end
    object tblUsersADDRESS: TStringField
      FieldName = 'ADDRESS'
      Size = 60
    end
    object tblUsersPHONE: TStringField
      FieldName = 'PHONE'
      Size = 24
    end
    object tblUsersFAX: TStringField
      FieldName = 'FAX'
      Size = 24
    end
    object tblUsersEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object tblUsersHOMEPAGE: TStringField
      FieldName = 'HOMEPAGE'
      Size = 50
    end
    object tblUsersDEPARTMENTID: TIntegerField
      FieldName = 'DEPARTMENTID'
    end
    object tblUsersDepartment: TStringField
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'Department'
      LookupDataSet = tblDepartments
      LookupKeyFields = 'ID'
      LookupResultField = 'NAME'
      KeyFields = 'DEPARTMENTID'
      Lookup = True
    end
  end
  object dsUsers: TDataSource
    DataSet = tblUsers
    Left = 112
    Top = 176
  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 = 8
  end
  object dsDepartments: TDataSource
    DataSet = tblDepartments
    Left = 112
    Top = 232
  end
  object tblDepartments: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'DEPARTMENTS.DB'
    Left = 40
    Top = 232
  end
  object cxStyleRepository: TcxStyleRepository
    Left = 112
    Top = 8
    object cxStyle1: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle2: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle3: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle4: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack
    end
    object cxStyle5: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 14811135
      TextColor = clBlack
    end
    object cxStyle6: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 14811135
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clNavy
    end
    object cxStyle7: TcxStyle
      AssignedValues = [svColor]
      Color = 14872561
    end
    object cxStyle8: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 4707838
      TextColor = clBlack
    end
    object cxStyle9: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 12937777
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clWhite
    end
    object cxStyle10: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle11: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 4707838
      TextColor = clBlack
    end
    object cxStyle12: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle13: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 14811135
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clNavy
    end
    object cxStyle14: TcxStyle
      AssignedValues = [svColor, svTextColor]
      Color = 12937777
      TextColor = clWhite
    end
    object cxStyle15: TcxStyle
      AssignedValues = [svColor]
      Color = 15451300
    end
    object cxStyle16: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 12937777
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clWhite
    end
    object cxStyle17: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 12937777
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      TextColor = clWhite
    end
    object cxStyle18: TcxStyle
      AssignedValues = [svColor, svFont, svTextColor]
      Color = 16247513
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      TextColor = clBlack