locatemail.dfm

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

object Frm_Setup: TFrm_Setup
  Left = 328
  Top = 221
  BorderStyle = bsDialog
  Caption = #37038#20214#26381#21153#22120#35774#32622
  ClientHeight = 309
  ClientWidth = 372
  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 Panel1: TPanel
    Left = 0
    Top = 270
    Width = 372
    Height = 39
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 92
      Top = 7
      Width = 72
      Height = 25
      Caption = #20445#23384
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 207
      Top = 7
      Width = 72
      Height = 25
      Caption = #36864#20986
      OnClick = SpeedButton2Click
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 372
    Height = 270
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = 'POP3'#26381#21153#35774#32622
      object Label1: TLabel
        Left = 11
        Top = 19
        Width = 171
        Height = 13
        Caption = #25509#25910#37038#20214#30340#26381#21153#22120#65306'                     '
      end
      object Label2: TLabel
        Left = 11
        Top = 58
        Width = 75
        Height = 13
        Caption = #31471#21475#21495#65306'         '
      end
      object Label3: TLabel
        Left = 11
        Top = 98
        Width = 81
        Height = 13
        Caption = #29992#25143#21517#65306'           '
      end
      object Label4: TLabel
        Left = 11
        Top = 138
        Width = 84
        Height = 13
        Caption = #29992#25143#23494#30721#65306'        '
      end
      object Label5: TLabel
        Left = 11
        Top = 177
        Width = 121
        Height = 13
        Caption = #24744#30340'Email'#22320#22336#65306'            '
      end
      object DBEdit1: TDBEdit
        Left = 11
        Top = 35
        Width = 336
        Height = 21
        DataField = 'MR_ServerName'
        DataSource = DSPOP3
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 11
        Top = 75
        Width = 336
        Height = 21
        DataField = 'MR_Port'
        DataSource = DSPOP3
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 11
        Top = 116
        Width = 336
        Height = 21
        DataField = 'MR_Name'
        DataSource = DSPOP3
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 11
        Top = 156
        Width = 336
        Height = 21
        DataField = 'MR_Pwd'
        DataSource = DSPOP3
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        PasswordChar = '*'
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 11
        Top = 196
        Width = 336
        Height = 21
        DataField = 'MR_Email'
        DataSource = DSPOP3
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 4
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'SMTP'#26381#21153#35774#32622
      ImageIndex = 1
      object Label6: TLabel
        Left = 11
        Top = 19
        Width = 171
        Height = 13
        Caption = #21457#36865#37038#20214#30340#26381#21153#22120#65306'                     '
      end
      object Label7: TLabel
        Left = 11
        Top = 58
        Width = 75
        Height = 13
        Caption = #31471#21475#21495#65306'         '
      end
      object Label8: TLabel
        Left = 11
        Top = 98
        Width = 81
        Height = 13
        Caption = #29992#25143#21517#65306'           '
      end
      object Label9: TLabel
        Left = 11
        Top = 138
        Width = 84
        Height = 13
        Caption = #29992#25143#23494#30721#65306'        '
      end
      object Label10: TLabel
        Left = 11
        Top = 177
        Width = 121
        Height = 13
        Caption = #24744#30340'Email'#22320#22336#65306'            '
      end
      object DBEdit6: TDBEdit
        Left = 11
        Top = 35
        Width = 336
        Height = 21
        DataField = 'MR_ServerName'
        DataSource = DSSMTP
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 0
      end
      object DBEdit7: TDBEdit
        Left = 11
        Top = 75
        Width = 336
        Height = 21
        DataField = 'MR_Port'
        DataSource = DSSMTP
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 1
      end
      object DBEdit8: TDBEdit
        Left = 11
        Top = 116
        Width = 336
        Height = 21
        DataField = 'MR_Name'
        DataSource = DSSMTP
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 2
      end
      object DBEdit9: TDBEdit
        Left = 11
        Top = 156
        Width = 336
        Height = 21
        DataField = 'MR_Pwd'
        DataSource = DSSMTP
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        PasswordChar = '*'
        TabOrder = 3
      end
      object DBEdit10: TDBEdit
        Left = 11
        Top = 196
        Width = 336
        Height = 21
        DataField = 'MR_Email'
        DataSource = DSSMTP
        ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
        TabOrder = 4
      end
    end
  end
  object ADOPOP3: TADODataSet
    Connection = FDM.ADOConnection1
    LockType = ltBatchOptimistic
    CommandText = 'select * from MR_MailSetup_tab Where MR_SeverType='#39'POP3'#39
    FieldDefs = <
      item
        Name = 'MR_ServerName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'MR_Port'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'MR_Name'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'MR_Pwd'
        DataType = ftTypedBinary
      end
      item
        Name = 'MR_Email'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'MR_SeverType'
        Attributes = [faFixed]
        DataType = ftFixedChar
        Size = 10
      end>
    Parameters = <>
    StoreDefs = True
    Left = 6
    Top = 277
  end
  object DSPOP3: TDataSource
    DataSet = ADOPOP3
    Left = 290
    Top = 277
  end
  object ADOSMTP: TADODataSet
    Connection = FDM.ADOConnection1
    LockType = ltBatchOptimistic
    CommandText = 'select * from MR_MailSetup_tab Where MR_SeverType='#39'SMTP'#39
    Parameters = <>
    Left = 37
    Top = 278
  end
  object DSSMTP: TDataSource
    DataSet = ADOSMTP
    Left = 320
    Top = 276
  end
end