postmailfrm.dfm

一个电力企业的后台管理程序

object Form_PostMail: TForm_PostMail
  Left = 114
  Top = 232
  Width = 544
  Height = 431
  Caption = '邮件处理'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnShow = Pg_PostMailChange
  PixelsPerInch = 96
  TextHeight = 13
  object Pg_PostMail: TPageControl
    Left = 0
    Top = 0
    Width = 536
    Height = 385
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnChange = Pg_PostMailChange
    object TabSheet1: TTabSheet
      Caption = '选项设置'
      object Label1: TLabel
        Left = 16
        Top = 40
        Width = 45
        Height = 17
        Caption = '服务器'
      end
      object Label2: TLabel
        Left = 16
        Top = 72
        Width = 45
        Height = 17
        Caption = '端口号'
      end
      object Label3: TLabel
        Left = 16
        Top = 104
        Width = 45
        Height = 17
        Caption = '用户名'
      end
      object Label4: TLabel
        Left = 280
        Top = 67
        Width = 45
        Height = 17
        Caption = '收件人'
      end
      object Label5: TLabel
        Left = 296
        Top = 99
        Width = 30
        Height = 17
        Caption = '抄送'
      end
      object Label6: TLabel
        Left = 296
        Top = 131
        Width = 30
        Height = 17
        Caption = '主题'
      end
      object Label7: TLabel
        Left = 296
        Top = 163
        Width = 30
        Height = 17
        Caption = '附件'
      end
      object Label8: TLabel
        Left = 296
        Top = 227
        Width = 30
        Height = 17
        Caption = '内容'
      end
      object Label9: TLabel
        Left = 293
        Top = 8
        Width = 30
        Height = 17
        Caption = '帐号'
      end
      object Label10: TLabel
        Left = 279
        Top = 37
        Width = 45
        Height = 17
        Caption = '发件人'
      end
      object Edit1: TEdit
        Left = 72
        Top = 40
        Width = 121
        Height = 25
        TabOrder = 0
        Text = 'Edit1'
      end
      object Edit2: TEdit
        Left = 72
        Top = 72
        Width = 121
        Height = 25
        TabOrder = 1
        Text = 'Edit2'
      end
      object Edit3: TEdit
        Left = 72
        Top = 104
        Width = 121
        Height = 25
        TabOrder = 2
        Text = 'Edit3'
      end
      object Button1: TButton
        Left = 8
        Top = 144
        Width = 75
        Height = 25
        Caption = '连接'
        TabOrder = 3
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 88
        Top = 144
        Width = 75
        Height = 25
        Caption = '断开'
        TabOrder = 4
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 168
        Top = 144
        Width = 75
        Height = 25
        Caption = '验证'
        TabOrder = 5
        OnClick = Button3Click
      end
      object Edit4: TEdit
        Left = 336
        Top = 67
        Width = 180
        Height = 25
        TabOrder = 6
        Text = 'Edit4'
      end
      object Edit5: TEdit
        Left = 336
        Top = 99
        Width = 121
        Height = 25
        TabOrder = 7
        Text = 'Edit5'
      end
      object Edit6: TEdit
        Left = 336
        Top = 131
        Width = 121
        Height = 25
        TabOrder = 8
        Text = 'Edit6'
      end
      object Memo1: TMemo
        Left = 336
        Top = 227
        Width = 185
        Height = 81
        Lines.Strings = (
          'Memo1')
        ScrollBars = ssVertical
        TabOrder = 9
      end
      object Button4: TButton
        Left = 352
        Top = 323
        Width = 75
        Height = 25
        Caption = '发送'
        TabOrder = 10
        OnClick = Button4Click
      end
      object ListBox1: TListBox
        Left = 336
        Top = 163
        Width = 153
        Height = 49
        ItemHeight = 17
        TabOrder = 11
      end
      object Edit7: TEdit
        Left = 336
        Top = 8
        Width = 121
        Height = 25
        TabOrder = 12
        Text = 'Edit7'
      end
      object Edit8: TEdit
        Left = 336
        Top = 36
        Width = 180
        Height = 25
        TabOrder = 13
        Text = 'Edit8'
      end
      object Button9: TButton
        Left = 104
        Top = 248
        Width = 75
        Height = 25
        Caption = '拨号网络'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 14
        OnClick = Button9Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = '发送邮件'
      ImageIndex = 1
      object Button10: TButton
        Left = 216
        Top = 128
        Width = 75
        Height = 25
        Caption = '动态菜单'
        TabOrder = 0
        OnClick = Button10Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = '接收邮件'
      ImageIndex = 2
      object Label11: TLabel
        Left = 192
        Top = 32
        Width = 45
        Height = 17
        Caption = '服务器'
      end
      object Label12: TLabel
        Left = 192
        Top = 72
        Width = 45
        Height = 17
        Caption = '用户名'
      end
      object Label13: TLabel
        Left = 200
        Top = 112
        Width = 30
        Height = 17
        Caption = '口令'
      end
      object Label14: TLabel
        Left = 175
        Top = 137
        Width = 60
        Height = 17
        Caption = '邮件列表'
      end
      object Label15: TLabel
        Left = 16
        Top = 208
        Width = 45
        Height = 17
        Caption = '发件人'
      end
      object Label16: TLabel
        Left = 16
        Top = 240
        Width = 30
        Height = 17
        Caption = '主题'
      end
      object Label17: TLabel
        Left = 16
        Top = 272
        Width = 30
        Height = 17
        Caption = '编号'
      end
      object Button5: TButton
        Left = 40
        Top = 48
        Width = 75
        Height = 25
        Caption = '连接'
        TabOrder = 0
        OnClick = Button5Click
      end
      object Edit9: TEdit
        Left = 248
        Top = 32
        Width = 121
        Height = 25
        TabOrder = 1
        Text = 'Edit9'
      end
      object Edit10: TEdit
        Left = 248
        Top = 72
        Width = 121
        Height = 25
        TabOrder = 2
        Text = 'Edit10'
      end
      object Edit11: TEdit
        Left = 248
        Top = 104
        Width = 121
        Height = 25
        TabOrder = 3
        Text = 'Edit11'
      end
      object Button6: TButton
        Left = 40
        Top = 96
        Width = 75
        Height = 25
        Caption = '断开'
        TabOrder = 4
        OnClick = Button6Click
      end
      object ListBox2: TListBox
        Left = 240
        Top = 136
        Width = 249
        Height = 113
        ItemHeight = 17
        TabOrder = 5
      end
      object Button7: TButton
        Left = 40
        Top = 152
        Width = 75
        Height = 25
        Caption = '接收'
        TabOrder = 6
        OnClick = Button7Click
      end
      object Edit12: TEdit
        Left = 64
        Top = 208
        Width = 121
        Height = 25
        TabOrder = 7
        Text = 'Edit12'
      end
      object Edit13: TEdit
        Left = 64
        Top = 240
        Width = 121
        Height = 25
        TabOrder = 8
        Text = 'Edit13'
      end
      object Edit14: TEdit
        Left = 64
        Top = 272
        Width = 121
        Height = 25
        TabOrder = 9
        Text = 'Edit14'
      end
      object Memo2: TMemo
        Left = 216
        Top = 264
        Width = 148
        Height = 89
        ScrollBars = ssVertical
        TabOrder = 10
      end
      object Memo3: TMemo
        Left = 376
        Top = 264
        Width = 148
        Height = 89
        ScrollBars = ssVertical
        TabOrder = 11
      end
      object Button8: TButton
        Left = 392
        Top = 104
        Width = 113
        Height = 25
        Caption = '检索邮件列表'
        TabOrder = 12
        OnClick = Button8Click
      end
    end
    object TabSheet4: TTabSheet
      Caption = '通讯簿'
      ImageIndex = 3
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 385
    Width = 536
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object NMPOP31: TNMPOP3
    Port = 110
    ReportLevel = 0
    OnConnect = NMPOP31Connect
    OnInvalidHost = NMPOP31InvalidHost
    OnStatus = NMPOP31Status
    OnConnectionFailed = NMPOP31ConnectionFailed
    OnConnectionRequired = NMPOP31ConnectionRequired
    Parse = False
    DeleteOnRead = False
    OnList = NMPOP31List
    OnRetrieveStart = NMPOP31RetrieveStart
    OnRetrieveEnd = NMPOP31RetrieveEnd
    OnSuccess = NMPOP31Success
    OnFailure = NMPOP31Failure
    Left = 48
    Top = 32
  end
  object NMSMTP1: TNMSMTP
    Port = 25
    ReportLevel = 0
    OnDisconnect = NMSMTP1Disconnect
    OnConnect = NMSMTP1Connect
    OnInvalidHost = NMSMTP1InvalidHost
    OnStatus = NMSMTP1Status
    OnConnectionFailed = NMSMTP1ConnectionFailed
    OnConnectionRequired = NMSMTP1ConnectionRequired
    EncodeType = uuCode
    ClearParams = True
    SubType = mtPlain
    Charset = 'us-ascii'
    OnRecipientNotFound = NMSMTP1RecipientNotFound
    OnHeaderIncomplete = NMSMTP1HeaderIncomplete
    OnSendStart = NMSMTP1SendStart
    OnSuccess = NMSMTP1Success
    OnFailure = NMSMTP1Failure
    OnEncodeStart = NMSMTP1EncodeStart
    OnEncodeEnd = NMSMTP1EncodeEnd
    OnAuthenticationFailed = NMSMTP1AuthenticationFailed
    Left = 264
    Top = 32
  end
end