mainfrm.dfm

来自「阿尔卡特MSC维护工程师的福音:该软件可以实现交换机话单文件的自动备份,根据个人」· DFM 代码 · 共 93 行

object MainForm: TMainForm
  Left = 192
  Top = 107
  AutoScroll = False
  Caption = 'USBS BILLING FILE DOWNLOAD SOFTWARE'
  ClientHeight = 434
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object LogMemo: TMemo
    Left = 0
    Top = 0
    Width = 657
    Height = 385
    Lines.Strings = (
      
        'Caution:Please set the related parameters of your usbs ftp serve' +
        'r first!'
      ''
      'Set step:'
      '1.MainMenu->Set'
      '2.Set ftp'
      '3.Set download'
      ''
      'Help tel:[phone] (QinKunming)')
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 415
    Width = 688
    Height = 19
    Panels = <
      item
        Text = 'CopyRight:200509  Version:1.0'
        Width = 200
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 32
    Top = 24
    object File1: TMenuItem
      Caption = 'Ftp'
      object LoginFtp1: TMenuItem
        Caption = 'LoginFtpTest'
        OnClick = LoginFtp1Click
      end
      object SaveLog1: TMenuItem
        Caption = 'LogoutFtpTest'
        OnClick = SaveLog1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object Set1: TMenuItem
      Caption = 'Set'
      object FtpLogin1: TMenuItem
        Caption = 'Parameter'
        OnClick = FtpLogin1Click
      end
    end
  end
  object IdFTP1: TIdFTP
    Left = 656
  end
  object Timer1: TTimer
    Interval = 60000
    OnTimer = Timer1Timer
    Left = 656
    Top = 32
  end
end