umail.dfm

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

          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000030303030303
          0303030303000303030303030303030303000303030303030303030303000303
          0303030203030303030003030303030203030303030003030303020303030303
          0300030303030203030303030300030303020102030303030300030303020100
          0202030303000303020100000100020303000303020100010000000203000302
          0102020100020202020003020203030202030303030003030303030303030303
          0300030303030303030303030300030303030303030303030300}
        Descriptions.Strings = (
          #19968#33324
          #37325#35201)
        Images = ImageList2
        ImageIndexes.Strings = (
          '0'
          '1')
        ShowDescription = True
        Values.Strings = (
          '0'
          '1')
      end
      object dxDBTreeList1UserId: TdxDBTreeListColumn
        Width = 58
        BandIndex = 0
        RowIndex = 0
        FieldName = 'UserId'
      end
      object dxDBTreeList1SendDate: TdxDBTreeListDateColumn
        Sorted = csDown
        Width = 94
        BandIndex = 0
        RowIndex = 0
        FieldName = 'SendDate'
        SummaryFooterType = cstMax
        SummaryFooterField = 'SendDate'
        SummaryFooterFormat = ' '
      end
      object dxDBTreeList1CcList: TdxDBTreeListColumn
        Width = 81
        BandIndex = 1
        RowIndex = 0
        FieldName = 'CcList'
      end
      object dxDBTreeList1BccList: TdxDBTreeListColumn
        Width = 101
        BandIndex = 1
        RowIndex = 0
        FieldName = 'BccList'
      end
      object dxDBTreeList1Subject: TdxDBTreeListColumn
        Width = 84
        BandIndex = 1
        RowIndex = 0
        FieldName = 'Subject'
      end
      object dxDBTreeList1ReceiveDate: TdxDBTreeListDateColumn
        Width = 112
        BandIndex = 1
        RowIndex = 0
        FieldName = 'ReceiveDate'
      end
      object dxDBTreeList1Attachments: TdxDBTreeListMaskColumn
        BandIndex = 1
        RowIndex = 0
        FieldName = 'Attachments'
      end
      object dxDBTreeList1ReadList: TdxDBTreeListColumn
        Width = 200
        BandIndex = 1
        RowIndex = 0
        FieldName = 'Readlist'
      end
      object dxDBTreeList1Readed: TdxDBTreeListCheckColumn
        Visible = False
        Width = 100
        BandIndex = 0
        RowIndex = 0
        FieldName = 'Readed'
        ValueChecked = 'True'
        ValueUnchecked = 'False'
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 223
      Width = 535
      Height = 211
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object wwDBRichEdit1: TwwDBRichEdit
        Left = 0
        Top = 68
        Width = 535
        Height = 143
        ScrollBars = ssVertical
        Align = alClient
        AutoURLDetect = False
        DataField = 'Body'
        DataSource = DataSource1
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        PrintJobName = 'Delphi 7'
        ReadOnly = True
        TabOrder = 0
        EditorCaption = 'Edit Rich Text'
        EditorPosition.Left = 0
        EditorPosition.Top = 0
        EditorPosition.Width = 0
        EditorPosition.Height = 0
        MeasurementUnits = muInches
        PrintMargins.Top = 1.000000000000000000
        PrintMargins.Bottom = 1.000000000000000000
        PrintMargins.Left = 1.000000000000000000
        PrintMargins.Right = 1.000000000000000000
        PrintHeader.VertMargin = 0.500000000000000000
        PrintHeader.Font.Charset = DEFAULT_CHARSET
        PrintHeader.Font.Color = clWindowText
        PrintHeader.Font.Height = -11
        PrintHeader.Font.Name = 'MS Sans Serif'
        PrintHeader.Font.Style = []
        PrintFooter.VertMargin = 0.500000000000000000
        PrintFooter.Font.Charset = DEFAULT_CHARSET
        PrintFooter.Font.Color = clWindowText
        PrintFooter.Font.Height = -11
        PrintFooter.Font.Name = 'MS Sans Serif'
        PrintFooter.Font.Style = []
        RichEditVersion = 2
        Data = {
          A30000007B5C727466315C616E73695C616E73696370673935305C6465666630
          5C6465666C616E67313033335C6465666C616E676665313032387B5C666F6E74
          74626C7B5C66305C666E696C5C6663686172736574313336204D532053616E73
          2053657269663B7D7D0D0A5C766965776B696E64345C7563315C706172645C6C
          616E67313032385C66305C6673313620777744425269636845646974315C7061
          720D0A7D0D0A00}
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 535
        Height = 68
        Align = alTop
        BevelOuter = bvNone
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        Visible = False
        object Label1: TLabel
          Left = 4
          Top = 5
          Width = 48
          Height = 13
          AutoSize = False
          Caption = #21457#20214#20154':'
        end
        object Label2: TLabel
          Left = 4
          Top = 21
          Width = 48
          Height = 13
          AutoSize = False
          Caption = #25910#20214#20154':'
        end
        object Label3: TLabel
          Left = 4
          Top = 37
          Width = 39
          Height = 13
          AutoSize = False
          Caption = #25220'    '#36865':'
        end
        object Label4: TLabel
          Left = 4
          Top = 53
          Width = 43
          Height = 13
          AutoSize = False
          Caption = #20027'    '#39064':'
        end
        object DBText1: TDBText
          Left = 48
          Top = 4
          Width = 105
          Height = 17
          DataField = 'UserId'
          DataSource = DataSource1
        end
        object DBText2: TDBText
          Left = 48
          Top = 20
          Width = 494
          Height = 17
          DataField = 'CcList'
          DataSource = DataSource1
        end
        object DBText3: TDBText
          Left = 48
          Top = 36
          Width = 494
          Height = 17
          DataField = 'BccList'
          DataSource = DataSource1
        end
        object DBText4: TDBText
          Left = 48
          Top = 50
          Width = 494
          Height = 17
          DataField = 'Subject'
          DataSource = DataSource1
        end
        object DBText5: TDBText
          Left = 204
          Top = 5
          Width = 42
          Height = 13
          AutoSize = True
          DataField = 'Readlist'
          DataSource = DataSource1
        end
        object Label7: TLabel
          Left = 161
          Top = 5
          Width = 39
          Height = 13
          Caption = #24050#35835#32773':'
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 434
    Width = 688
    Height = 19
    Panels = <
      item
        Text = #21452#20987#20449#24687#28165#21333#36827#20837#25776#20889#31383#21475
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object DataSource1: TDataSource
    DataSet = DMSys.CMailListInfo
    Left = 248
    Top = 88
  end
  object ImageList1: TImageList
    Left = 281
    Top = 88
    Bitmap = {
      494C010106000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000