mailsend.dfm

一款不错的商务程序商品管理系统,有简易的窗体皮肤

object Frm_Send: TFrm_Send
  Left = 283
  Top = 160
  BorderStyle = bsDialog
  Caption = #37038#20214#21457#36865#31649#29702
  ClientHeight = 399
  ClientWidth = 531
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 531
    Height = 105
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 18
      Width = 69
      Height = 13
      Caption = #25910#20214#20154#65306'       '
      Transparent = True
    end
    object Label2: TLabel
      Left = 16
      Top = 46
      Width = 75
      Height = 13
      Caption = #25220#36865#65306'             '
      Transparent = True
    end
    object Label3: TLabel
      Left = 16
      Top = 74
      Width = 72
      Height = 13
      Caption = #20027#39064#65306'            '
      Transparent = True
    end
    object SpeedButton4: TSpeedButton
      Left = 447
      Top = 16
      Width = 25
      Height = 21
      Caption = '...'
      OnClick = SpeedButton4Click
    end
    object Edit1: TEdit
      Left = 72
      Top = 16
      Width = 376
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 72
      Top = 43
      Width = 401
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 72
      Top = 71
      Width = 401
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 105
    Width = 531
    Height = 41
    Align = alTop
    TabOrder = 1
    object Label4: TLabel
      Left = 12
      Top = 16
      Width = 63
      Height = 13
      Caption = #38468#20214#65306'         '
      Transparent = True
    end
    object SpeedButton1: TSpeedButton
      Left = 452
      Top = 13
      Width = 25
      Height = 21
      Caption = '...'
      OnClick = SpeedButton1Click
    end
    object Edit4: TEdit
      Left = 51
      Top = 13
      Width = 401
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 0
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 366
    Width = 531
    Height = 33
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object SpeedButton2: TSpeedButton
      Left = 302
      Top = 5
      Width = 57
      Height = 23
      Caption = #21457#36865
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 384
      Top = 5
      Width = 57
      Height = 23
      Caption = #21462#28040
      OnClick = SpeedButton3Click
    end
    object CheckBox1: TCheckBox
      Left = 16
      Top = 8
      Width = 97
      Height = 17
      Caption = #23384#20110#25968#25454#24211
      TabOrder = 0
    end
  end
  object GroupBox3: TGroupBox
    Left = 0
    Top = 146
    Width = 531
    Height = 220
    Align = alClient
    Caption = #20027#39064#20869#23481
    TabOrder = 3
    object Memo1: TMemo
      Left = 2
      Top = 15
      Width = 527
      Height = 203
      Align = alClient
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 0
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 12
    Top = 310
  end
  object ADOSend: TADODataSet
    Connection = FDM.ADOConnection1
    LockType = ltBatchOptimistic
    CommandText = 'select * from MR_Send_Tab'
    Parameters = <>
    Left = 48
    Top = 312
  end
  object IdSMTP1: TIdSMTP
    MaxLineAction = maException
    ReadTimeout = 0
    Port = 25
    AuthenticationType = atNone
    Left = 83
    Top = 173
  end
  object IdMessage1: TIdMessage
    AttachmentEncoding = 'MIME'
    BccList = <>
    CCList = <>
    Encoding = meMIME
    Recipients = <>
    ReplyTo = <>
    Left = 112
    Top = 174
  end
  object ADOSMTP: TADODataSet
    Connection = FDM.ADOConnection1
    LockType = ltBatchOptimistic
    CommandText = 'select * from MR_MailSetup_tab Where MR_SeverType='#39'SMTP'#39
    Parameters = <>
    Left = 17
    Top = 179
  end
end