para.~dfm

阿尔卡特MSC维护工程师的福音:该软件可以实现交换机话单文件的自动备份,根据个人设定时间每日定时以FTP方式到USBS服务器上下载文件.软件运行后有详细使用说明.编译环境CB6.0

object ParaForm: TParaForm
  Left = 223
  Top = 166
  BorderStyle = bsDialog
  Caption = 'ParaForm'
  ClientHeight = 313
  ClientWidth = 464
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 465
    Height = 285
    ActivePage = Ftp
    TabIndex = 0
    TabOrder = 0
    object Ftp: TTabSheet
      Caption = 'Ftp'
      object Label1: TLabel
        Left = 24
        Top = 24
        Width = 53
        Height = 13
        Caption = 'Ip Address:'
      end
      object Label2: TLabel
        Left = 24
        Top = 56
        Width = 53
        Height = 13
        Caption = 'UserName:'
      end
      object Label3: TLabel
        Left = 24
        Top = 90
        Width = 49
        Height = 13
        Caption = 'PassWord'
      end
      object Label4: TLabel
        Left = 24
        Top = 123
        Width = 22
        Height = 13
        Caption = 'Port:'
      end
      object Label5: TLabel
        Left = 24
        Top = 155
        Width = 53
        Height = 13
        Caption = 'RemoteDir:'
      end
      object Label6: TLabel
        Left = 24
        Top = 188
        Width = 42
        Height = 13
        Caption = 'LocalDir:'
      end
      object Ip: TEdit
        Left = 104
        Top = 24
        Width = 289
        Height = 21
        TabOrder = 0
        Text = 'Ip'
      end
      object User: TEdit
        Left = 104
        Top = 56
        Width = 289
        Height = 21
        TabOrder = 1
        Text = 'User'
      end
      object Pass: TEdit
        Left = 104
        Top = 88
        Width = 289
        Height = 21
        TabOrder = 2
        Text = 'Pass'
      end
      object Port: TEdit
        Left = 104
        Top = 120
        Width = 289
        Height = 21
        TabOrder = 3
        Text = 'Port'
      end
      object Rdir: TEdit
        Left = 104
        Top = 152
        Width = 289
        Height = 21
        TabOrder = 4
        Text = 'Rdir'
      end
      object Ldir: TEdit
        Left = 104
        Top = 184
        Width = 137
        Height = 21
        TabOrder = 5
        Text = 'Ldir'
      end
      object DriveComboBox1: TDriveComboBox
        Left = 256
        Top = 184
        Width = 145
        Height = 19
        TabOrder = 6
      end
      object DirectoryListBox1: TDirectoryListBox
        Left = 256
        Top = 204
        Width = 145
        Height = 55
        ItemHeight = 16
        TabOrder = 7
        OnClick = DirectoryListBox1Click
        OnDblClick = DirectoryListBox1DblClick
      end
    end
    object Download: TTabSheet
      Caption = 'Download'
      ImageIndex = 1
      object Label7: TLabel
        Left = 24
        Top = 24
        Width = 51
        Height = 13
        Caption = 'Auto Time:'
      end
      object Label8: TLabel
        Left = 24
        Top = 56
        Width = 54
        Height = 13
        Caption = 'Start Label:'
      end
      object Label9: TLabel
        Left = 24
        Top = 88
        Width = 81
        Height = 13
        Caption = 'Filename Length:'
      end
      object TimeSet: TEdit
        Left = 120
        Top = 20
        Width = 121
        Height = 21
        TabOrder = 0
        Text = '0200'
      end
      object StartLabel: TEdit
        Left = 120
        Top = 52
        Width = 121
        Height = 21
        TabOrder = 1
        Text = 'StartLabel'
      end
      object FilenameLength: TEdit
        Left = 120
        Top = 85
        Width = 121
        Height = 21
        TabOrder = 2
        Text = 'FilenameLength'
      end
    end
  end
  object Ok: TButton
    Left = 384
    Top = 288
    Width = 75
    Height = 25
    Caption = 'Ok'
    TabOrder = 1
    OnClick = OkClick
  end
end