viewbandeddemodata.dfm

胜天进销存源码,国产优秀的进销存

object ViewBandedDemoDataDM: TViewBandedDemoDataDM
  OldCreateOrder = False
  Left = 285
  Top = 231
  Height = 406
  Width = 309
  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 tblUSERS: TTable
    Active = True
    OnCalcFields = tblUSERSCalcFields
    DatabaseName = 'DemosDB'
    TableName = 'USERS.DB'
    Left = 120
    Top = 112
    object tblUSERSID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblUSERSFNAME: TStringField
      FieldName = 'FNAME'
      Size = 25
    end
    object tblUSERSLNAME: TStringField
      FieldName = 'LNAME'
      Size = 25
    end
    object tblUSERSPHONE: TStringField
      FieldName = 'PHONE'
      Size = 24
    end
    object tblUSERSName: TStringField
      FieldKind = fkCalculated
      FieldName = 'Name'
      Size = 50
      Calculated = True
    end
  end
  object dsUSERS: TDataSource
    DataSet = tblUSERS
    Left = 40
    Top = 112
  end
  object dsPROJECTS: TDataSource
    DataSet = tblPROJECTS
    Left = 40
    Top = 56
  end
  object tblPROJECTS: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'PROJECTS.DB'
    Left = 120
    Top = 56
    object tblPROJECTSID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tblPROJECTSNAME: TStringField
      FieldName = 'NAME'
      Size = 100
    end
    object tblPROJECTSMANAGERID: TIntegerField
      FieldName = 'MANAGERID'
    end
  end
  object tlbITEMS: TTable
    Active = True
    DatabaseName = 'DemosDB'
    TableName = 'ITEMS.DB'
    Left = 120
    Top = 176
    object tlbITEMSID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object tlbITEMSNAME: TStringField
      FieldName = 'NAME'
      Size = 50
    end
    object tlbITEMSTYPE: TBooleanField
      FieldName = 'TYPE'
    end
    object tlbITEMSPROJECTID: TIntegerField
      FieldName = 'PROJECTID'
    end
    object tlbITEMSPRIORITY: TSmallintField
      FieldName = 'PRIORITY'
    end
    object tlbITEMSSTATUS: TSmallintField
      FieldName = 'STATUS'
    end
    object tlbITEMSCREATORID: TIntegerField
      FieldName = 'CREATORID'
    end
    object tlbITEMSCREATEDDATE: TDateTimeField
      FieldName = 'CREATEDDATE'
    end
    object tlbITEMSOWNERID: TIntegerField
      FieldName = 'OWNERID'
    end
    object tlbITEMSLASTMODIFIEDDATE: TDateTimeField
      FieldName = 'LASTMODIFIEDDATE'
    end
    object tlbITEMSFIXEDDATE: TDateTimeField
      FieldName = 'FIXEDDATE'
    end
    object tlbITEMSDESCRIPTION: TMemoField
      FieldName = 'DESCRIPTION'
      BlobType = ftMemo
      Size = 10
    end
    object tlbITEMSRESOLUTION: TMemoField
      FieldName = 'RESOLUTION'
      BlobType = ftMemo
      Size = 10
    end
  end
  object dsITEMS: TDataSource
    DataSet = tlbITEMS
    Left = 40
    Top = 176
  end
end