udmsys.dfm

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

    PacketRecords = 500
    Params = <>
    ProviderName = 'PSysLog'
    RemoteServer = DM.SSys_DM
    Left = 24
    Top = 118
    object CSysLogLogID: TAutoIncField
      DisplayLabel = #30005#33041#32534#21495
      FieldName = 'LogID'
      ReadOnly = True
    end
    object CSysLogLogTime: TDateTimeField
      DisplayLabel = #25805#20316#26102#38388
      FieldName = 'LogTime'
    end
    object CSysLogLogUser: TStringField
      DisplayLabel = #25805#20316#29992#25143
      FieldName = 'LogUser'
      Size = 15
    end
    object CSysLogLogComputer: TStringField
      DisplayLabel = #30331#24405#30005#33041
      FieldName = 'LogComputer'
      Size = 15
    end
    object CSysLogForm: TStringField
      DisplayLabel = #31995#32479#31383#21475
      DisplayWidth = 10
      FieldName = 'Form'
      Size = 50
    end
    object CSysLogAction: TStringField
      DisplayLabel = #21160#20316
      DisplayWidth = 20
      FieldName = 'Action'
      Size = 200
    end
  end
  object CSysTip: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'PSysTip'
    RemoteServer = DM.SSys_DM
    Left = 160
    Top = 12
    object CSysTipID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object CSysTipTips: TMemoField
      FieldName = 'Tips'
      BlobType = ftMemo
    end
  end
  object CSysReport: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'PSysReport'
    RemoteServer = DM.SSys_DM
    Left = 160
    Top = 64
    object CSysReportID: TAutoIncField
      DisplayLabel = #32534#21495
      DisplayWidth = 4
      FieldName = 'ID'
      ReadOnly = True
    end
    object CSysReportName: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 10
      FieldName = 'Name'
      Size = 50
    end
    object CSysReportDescription: TStringField
      DisplayLabel = #25551#36848
      DisplayWidth = 20
      FieldName = 'Description'
      Size = 200
    end
    object CSysReportDocument: TBlobField
      DisplayLabel = #20869#23481
      FieldName = 'Document'
    end
  end
  object Cdept1: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    IndexName = 'DEFAULT_ORDER'
    PacketRecords = 500
    Params = <>
    ProviderName = 'Pdepartment'
    ReadOnly = True
    RemoteServer = DM.SPub_DM
    Left = 157
    Top = 118
    object Cdept1DeptID: TStringField
      FieldName = 'DeptID'
      Size = 15
    end
    object Cdept1DeptName: TStringField
      FieldName = 'DeptName'
      Size = 100
    end
    object Cdept1ParentID: TStringField
      FieldName = 'ParentID'
      Size = 15
    end
  end
  object CDept2: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    IndexName = 'DEFAULT_ORDER'
    PacketRecords = 500
    Params = <>
    ProviderName = 'Pdepartment'
    ReadOnly = True
    RemoteServer = DM.SPub_DM
    Left = 225
    Top = 14
    object StringField1: TStringField
      FieldName = 'DeptID'
      Size = 15
    end
    object StringField2: TStringField
      FieldName = 'DeptName'
      Size = 100
    end
    object StringField3: TStringField
      FieldName = 'ParentID'
      Size = 15
    end
  end
  object CMailListInfo: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftWideString
        Size = 40
      end
      item
        Name = 'UserId'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'SourceId'
        DataType = ftWideString
        Size = 40
      end
      item
        Name = 'Status'
        DataType = ftSmallint
      end
      item
        Name = 'SendDate'
        DataType = ftDateTime
      end
      item
        Name = 'CcList'
        DataType = ftWideString
        Size = 500
      end
      item
        Name = 'BccList'
        DataType = ftWideString
        Size = 500
      end
      item
        Name = 'ReceiveDate'
        DataType = ftDateTime
      end
      item
        Name = 'Subject'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'Body'
        DataType = ftMemo
      end
      item
        Name = 'Attachments'
        DataType = ftSmallint
      end
      item
        Name = 'importance'
        DataType = ftSmallint
      end
      item
        Name = 'Readed'
        DataType = ftBoolean
      end
      item
        Name = 'Readlist'
        DataType = ftWideString
        Size = 500
      end
      item
        Name = 'CreateDate'
        DataType = ftDateTime
      end
      item
        Name = 'Remark'
        DataType = ftWideString
        Size = 500
      end
      item
        Name = 'QAttachmentInfo'
        DataType = ftDataSet
      end>
    IndexDefs = <
      item
        Name = 'PK'
        Fields = 'ID'
        Options = [ixPrimary]
      end>
    IndexName = 'PK'
    Params = <
      item
        DataType = ftString
        Name = '@UserId'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = '@Status'
        ParamType = ptInput
      end>
    ProviderName = 'PMailListInfo'
    RemoteServer = DM.SSys_DM
    StoreDefs = True
    BeforeDelete = CMailListInfoBeforeDelete
    OnCalcFields = CMailListInfoCalcFields
    OnNewRecord = CMailListInfoNewRecord
    Left = 224
    Top = 64
    object CMailListInfoID: TWideStringField
      FieldName = 'ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 40
    end
    object CMailListInfoUserId: TWideStringField
      DisplayLabel = #21457#20214#20154
      FieldName = 'UserId'
      ProviderFlags = [pfInUpdate]
    end
    object CMailListInfoStatus: TSmallintField
      DisplayLabel = #37038#20214#29366#24577
      FieldName = 'Status'
      ProviderFlags = [pfInUpdate]
    end
    object CMailListInfoSourceId: TWideStringField
      DisplayLabel = #21407#22987#37038#20214
      FieldName = 'SourceId'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object CMailListInfoSendDate: TDateTimeField
      DisplayLabel = #21457#36865#26085#26399
      FieldName = 'SendDate'
      ProviderFlags = [pfInUpdate]
    end
    object CMailListInfoCcList: TWideStringField
      DisplayLabel = #25910#20214#20154
      DisplayWidth = 200
      FieldName = 'CcList'
      ProviderFlags = [pfInUpdate]
      Size = 500
    end
    object CMailListInfoBccList: TWideStringField
      DisplayLabel = #25220' '#36865
      DisplayWidth = 200
      FieldName = 'BccList'
      ProviderFlags = [pfInUpdate]
      Size = 500
    end
    object CMailListInfoReceiveDate: TDateTimeField
      DisplayLabel = #25509#25910#26085#26399
      FieldName = 'ReceiveDate'
      ProviderFlags = [pfInUpdate]
    end
    object CMailListInfoSubject: TWideStringField
      DisplayLabel = #20027#39064
      FieldName = 'Subject'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object CMailListInfoBody: TMemoField
      DisplayLabel = #27491#25991
      FieldName = 'Body'
      ProviderFlags = [pfInUpdate]
      BlobType = ftMemo
    end
    object CMailListInfoAttachments: TSmallintField
      Alignment = taLeftJustify
      DisplayLabel = #38468#20214
      FieldName = 'Attachments'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = '(#)'
    end
    object CMailListInfoimportance: TSmallintField
      DisplayLabel = #37325#35201#24615
      FieldName = 'importance'
      ProviderFlags = [pfInUpdate]
    end
    object CMailListInfoReaded: TBooleanField
      DisplayLabel = #24050#38405#26631#31034
      FieldKind = fkCalculated
      FieldName = 'Readed'
      ProviderFlags = [pfInUpdate]
      Calculated = True
    end
    object CMailListInfoReadlist: TWideStringField
      DisplayLabel = #24050#35835
      FieldName = 'Readlist'
      ProviderFlags = [pfInUpdate]
      Size = 500
    end
    object CMailListInfoRemark: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      Size = 500
    end
    object CMailListInfoCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      ProviderFlags = [pfInUpdate]
    end
    object CMailListInfoQAttachmentInfo: TDataSetField
      FieldName = 'QAttachmentInfo'
      ProviderFlags = [pfInUpdate]
      Visible = False
    end
  end
  object CAttachmentInfo: TClientDataSet
    Aggregates = <>
    DataSetField = CMailListInfoQAttachmentInfo
    FieldDefs = <
      item
        Name = 'MailId'
        DataType = ftWideString
        Size = 40
      end
      item
        Name = 'SequenceId'
        DataType = ftSmallint
      end
      item
        Name = 'Extend'
        DataType = ftWideString
        Size = 10
      end
      item
        Name = 'FileName'
        DataType = ftWideString
        Size = 100
      end
      item
        Name = 'Filecontent'
        DataType = ftBlob
      end
      item
        Name = 'FileSize'
        DataType = ftFloat
      end>
    IndexDefs = <
      item
        Name = 'Index999'
        Expression = 'MailId'
        Options = [ixExpression]
        Source = 'MailId'
      end>
    IndexName = 'PRIMARY_KEY'
    FetchOnDemand = False
    Params = <>
    StoreDefs = True
    OnCalcFields = CAttachmentInfoCalcFields
    OnNewRecord = CAttachmentInfoNewRecord
    Left = 224
    Top = 117
    object CAttachmentInfoMailId: TWideStringField
      DisplayLabel = 'ID'
      FieldName = 'MailId'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 40
    end
    object CAttachmentInfoSequenceId: TSmallintField
      DisplayLabel = #24207#21495
      FieldName = 'SequenceId'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CAttachmentInfoExtend: TWideStringField
      DisplayLabel = #25193#23637#21517
      FieldName = 'Extend'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object CAttachmentInfoFileName: TWideStringField
      DisplayLabel = #25991#20214#21517
      FieldName = 'FileName'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object CAttachmentInfoFilecontent: TBlobField
      DisplayLabel = '<'#20869#23481'>'
      FieldName = 'Filecontent'
      ProviderFlags = [pfInUpdate]
    end
    object CAttachmentInfoFileSize: TFloatField
      DisplayLabel = #25991#20214#22823#23567
      FieldName = 'FileSize'
      ProviderFlags = [pfInUpdate]
    end
    object CAttachmentInfoNewFileName: TStringField
      FieldKind = fkCalculated
      FieldName = 'NewFileName'
      ProviderFlags = [pfInUpdate]
      Calculated = True
    end
  end
end