issuelistdata.dfm

DevExpress ExpressQuantumGrid Suite v5.9 Full Source

object dmMain: TdmMain
  OnCreate = DataModuleCreate
  Left = 338
  Top = 169
  Height = 230
  Width = 540
  object Database: TDatabase
    DatabaseName = 'DemosDB'
    DriverName = 'STANDARD'
    Params.Strings = (
      'PATH=..\..\Data'
      'DEFAULT DRIVER=PARADOX'
      'ENABLE BCD=FALSE')
    SessionName = 'Default'
    Left = 16
    Top = 8
  end
  object tblUsers: TTable
    OnCalcFields = tblUsersCalcFields
    DatabaseName = 'DemosDB'
    IndexFieldNames = 'DEPARTMENTID'
    TableName = 'USERS.DB'
    Left = 72
    Top = 8
    object tblUsersID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = 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 tblUsersEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 50
    end
    object tblUsersPHONE: TStringField
      FieldName = 'PHONE'
      Size = 24
    end
    object tblUsersDEPARTMENTID: TIntegerField
      FieldName = 'DEPARTMENTID'
    end
    object tblUsersDepartmentName: TStringField
      DisplayWidth = 150
      FieldKind = fkLookup
      FieldName = 'DepartmentName'
      LookupDataSet = tblDepartments
      LookupKeyFields = 'ID'
      LookupResultField = 'NAME'
      KeyFields = 'DEPARTMENTID'
      Size = 50
      Lookup = True
    end
    object tblUsersFullName: TStringField
      DisplayWidth = 200
      FieldKind = fkCalculated
      FieldName = 'FullName'
      Size = 150
      Calculated = True
    end
  end
  object dsUsers: TDataSource
    DataSet = tblUsers
    Left = 80
    Top = 64
  end
  object tblDepartments: TTable
    DatabaseName = 'DemosDB'
    TableName = 'DEPARTMENTS.DB'
    Left = 152
    Top = 8
    object tblDepartmentsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblDepartmentsNAME: TStringField
      FieldName = 'NAME'
      Size = 100
    end
  end
  object dsDepartment: TDataSource
    DataSet = tblDepartments
    Left = 152
    Top = 64
  end
  object tblItems: TTable
    DatabaseName = 'DemosDB'
    IndexFieldNames = 'PROJECTID'
    TableName = 'ITEMS.DB'
    Left = 232
    Top = 8
    object tblItemsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblItemsNAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
    object tblItemsTYPE: TBooleanField
      FieldName = 'TYPE'
    end
    object tblItemsPROJECTID: TIntegerField
      FieldName = 'PROJECTID'
    end
    object tblItemsPRIORITY: TSmallintField
      Alignment = taLeftJustify
      FieldName = 'PRIORITY'
    end
    object tblItemsSTATUS: TSmallintField
      Alignment = taLeftJustify
      FieldName = 'STATUS'
    end
    object tblItemsCREATORID: TIntegerField
      FieldName = 'CREATORID'
    end
    object tblItemsCREATEDDATE: TDateTimeField
      FieldName = 'CREATEDDATE'
    end
    object tblItemsOWNERID: TIntegerField
      FieldName = 'OWNERID'
    end
    object tblItemsLASTMODIFIEDDATE: TDateTimeField
      FieldName = 'LASTMODIFIEDDATE'
    end
    object tblItemsFIXEDDATE: TDateTimeField
      FieldName = 'FIXEDDATE'
    end
    object tblItemsDESCRIPTION: TMemoField
      FieldName = 'DESCRIPTION'
      BlobType = ftMemo
    end
    object tblItemsRESOLUTION: TMemoField
      FieldName = 'RESOLUTION'
      BlobType = ftMemo
    end
  end
  object dsItems: TDataSource
    DataSet = tblItems
    Left = 232
    Top = 64
  end
  object tblProjects: TTable
    DatabaseName = 'DemosDB'
    TableName = 'PROJECTS.DB'
    Left = 304
    Top = 8
    object tblProjectsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblProjectsNAME: TStringField
      FieldName = 'NAME'
      Size = 100
    end
    object tblProjectsMANAGERID: TIntegerField
      FieldName = 'MANAGERID'
    end
  end
  object dsProjects: TDataSource
    DataSet = tblProjects
    Left = 304
    Top = 64
  end
  object tblTeams: TTable
    DatabaseName = 'DemosDB'
    TableName = 'PROJECTTEAM.DB'
    Left = 384
    Top = 8
    object tblTeamsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblTeamsPROJECTID: TIntegerField
      FieldName = 'PROJECTID'
    end
    object tblTeamsUSERID: TIntegerField
      FieldName = 'USERID'
    end
    object tblTeamsFUNCTION: TStringField
      FieldName = 'FUNCTION'
      Size = 50
    end
  end
  object dsTeams: TDataSource
    DataSet = tblTeams
    Left = 384
    Top = 64
  end
  object imStat: TImageList
    Left = 80
    Top = 128
    Bitmap = {
      494C010108000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001001800000000000024
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000