columnssharedemodata.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object ColumnsShareDemoDataDM: TColumnsShareDemoDataDM
  Left = 310
  Top = 163
  Height = 378
  Width = 325
  object tblProjects: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'PROJECTS.DB'
    Left = 40
    Top = 56
    object tblProjectsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblProjectsNAME: TStringField
      FieldName = 'NAME'
      Size = 100
    end
    object tblProjectsMANAGERID: TIntegerField
      DisplayWidth = 50
      FieldName = 'MANAGERID'
    end
  end
  object dsProjects: TDataSource
    DataSet = tblProjects
    Left = 96
    Top = 56
  end
  object dsItems: TDataSource
    DataSet = tblItems
    Left = 80
    Top = 120
  end
  object tblItems: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'ITEMS.DB'
    Left = 40
    Top = 120
    object tblItemsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblItemsNAME: TStringField
      DisplayWidth = 35
      FieldName = 'NAME'
      Size = 50
    end
    object tblItemsTYPE: TBooleanField
      DisplayWidth = 15
      FieldName = 'TYPE'
    end
    object tblItemsPROJECTID: TIntegerField
      DisplayWidth = 50
      FieldName = 'PROJECTID'
    end
    object tblItemsPRIORITY: TSmallIntField
      FieldName = 'PRIORITY'
    end
    object tblItemsSTATUS: TSmallIntField
      FieldName = 'STATUS'
    end
    object tblItemsCREATORID: TIntegerField
      DisplayWidth = 20
      FieldName = 'CREATORID'
    end
    object tblItemsCREATEDDATE: TDateTimeField
      DisplayWidth = 10
      FieldName = 'CREATEDDATE'
    end
    object tblItemsOWNERID: TIntegerField
      DisplayWidth = 20
      FieldName = 'OWNERID'
    end
    object tblItemsLASTMODIFIEDDATE: TDateTimeField
      FieldName = 'LASTMODIFIEDDATE'
    end
    object tblItemsFIXEDDATE: TDateTimeField
      DisplayWidth = 10
      FieldName = 'FIXEDDATE'
    end
    object tblItemsDESCRIPTION: TMemoField
      FieldName = 'DESCRIPTION'
      BlobType = ftMemo
    end
    object tblItemsRESOLUTION: TMemoField
      FieldName = 'RESOLUTION'
      BlobType = ftMemo
    end
  end
  object tblUsers: TTable
    Active = True
    DatabaseName = 'DemosDB'
    OnCalcFields = tblUsersCalcFields
    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 = 88
    Top = 176
  end
  object dsProjectTeam: TDataSource
    DataSet = tblProjectTeam
    Left = 240
    Top = 112
  end
  object tblProjectTeam: TTable
    Active = True
    DatabaseName = 'DemosDB'
    IndexFieldNames = 'ProjectID'
    TableName = 'PROJECTTEAM.DB'
    Left = 160
    Top = 112
    object tblProjectTeamID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblProjectTeamPROJECTID: TIntegerField
      FieldName = 'PROJECTID'
    end
    object tblProjectTeamUSERID: TIntegerField
      DisplayWidth = 50
      FieldName = 'USERID'
    end
    object tblProjectTeamFUNCTION: TStringField
      FieldName = 'FUNCTION'
      Size = 50
    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 = 8
  end
  object dsDepartments: TDataSource
    DataSet = tblDepartments
    Left = 120
    Top = 232
  end
  object tblDepartments: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'DEPARTMENTS.DB'
    Left = 40
    Top = 232
  end
  object cxStyleRepository: TcxStyleRepository
    Left = 168
    Top = 16
    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