ondemandu.~dfm

Ondemand是IBM公司开发的报表管理系统,广泛使用于金融、保险、电信等大型企业. 但是由于某些原因,其报表下载和检索功能作的并不尽如人意,本程序是对Ondemand报表系统的下载和检索

object OndemandFormX: TOndemandFormX
  Left = 192
  Top = 100
  Width = 1035
  Height = 636
  Caption = 'OnDemand Express '#25253#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter3: TSplitter
    Left = 0
    Top = 497
    Width = 1027
    Height = 10
    Cursor = crVSplit
    Align = alTop
    Beveled = True
    Color = clSkyBlue
    ParentColor = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 1027
    Height = 65
    Align = alTop
    BevelInner = bvLowered
    BorderWidth = 2
    BorderStyle = bsSingle
    Color = clSkyBlue
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 11
      Width = 81
      Height = 15
      AutoSize = False
      Caption = #26381#21153#22120
    end
    object Label2: TLabel
      Left = 160
      Top = 11
      Width = 81
      Height = 15
      AutoSize = False
      Caption = #29992#25143#21517
    end
    object Label3: TLabel
      Left = 312
      Top = 11
      Width = 65
      Height = 15
      AutoSize = False
      Caption = #21475#20196
    end
    object Ser1: TEdit
      Left = 16
      Top = 27
      Width = 121
      Height = 23
      BevelInner = bvLowered
      BevelKind = bkFlat
      Color = clCream
      TabOrder = 0
    end
    object Usr1: TEdit
      Left = 160
      Top = 27
      Width = 121
      Height = 23
      BevelInner = bvLowered
      BevelKind = bkFlat
      Color = clCream
      TabOrder = 1
    end
    object Pas1: TMaskEdit
      Left = 312
      Top = 27
      Width = 121
      Height = 23
      BevelInner = bvLowered
      BevelKind = bkFlat
      Color = clCream
      PasswordChar = '*'
      TabOrder = 2
    end
    object Button1: TButton
      Left = 464
      Top = 24
      Width = 75
      Height = 25
      Action = LoginAction
      TabOrder = 3
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 65
    Width = 1027
    Height = 432
    Align = alTop
    BevelInner = bvLowered
    BevelWidth = 2
    BorderWidth = 2
    BorderStyle = bsSingle
    Color = clSkyBlue
    TabOrder = 1
    object Panel4: TPanel
      Left = 6
      Top = 6
      Width = 1011
      Height = 416
      Align = alClient
      BevelInner = bvLowered
      BorderStyle = bsSingle
      Color = clSkyBlue
      TabOrder = 0
      object Splitter1: TSplitter
        Left = 321
        Top = 2
        Width = 10
        Height = 408
        Beveled = True
        Color = clSkyBlue
        ParentColor = False
      end
      object V1: TTreeView
        Left = 2
        Top = 2
        Width = 319
        Height = 408
        Align = alLeft
        BorderWidth = 1
        Color = clCream
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        Indent = 19
        ParentFont = False
        PopupMenu = PopupMenu1
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        OnChange = V1Change
        OnDblClick = OpenDirExecute
      end
      object G1: TStringGrid
        Left = 331
        Top = 2
        Width = 674
        Height = 408
        Align = alClient
        BorderStyle = bsNone
        Color = clMoneyGreen
        Ctl3D = False
        DefaultColWidth = 100
        FixedColor = clSkyBlue
        FixedCols = 0
        RowCount = 2
        FixedRows = 0
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect]
        ParentCtl3D = False
        ParentFont = False
        PopupMenu = PopupMenu3
        TabOrder = 1
        OnMouseDown = G1MouseDown
      end
    end
  end
  object Label5: TStatusBar
    Left = 0
    Top = 590
    Width = 1027
    Height = 19
    BorderWidth = 1
    Color = clMoneyGreen
    Panels = <>
  end
  object As1: TArsOle
    Left = 72
    Top = 96
    Width = 100
    Height = 50
    TabOrder = 3
    Visible = False
    OnFolderClosed = As1FolderClosed
    OnFolderSearchCompleted = As1FolderSearchCompleted
    ControlData = {00000100560A00002B05000000000000}
  end
  object Panel6: TPanel
    Left = 0
    Top = 507
    Width = 1027
    Height = 83
    Align = alClient
    BevelInner = bvLowered
    BevelWidth = 3
    BiDiMode = bdRightToLeft
    BorderWidth = 3
    BorderStyle = bsSingle
    Color = clSkyBlue
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentBiDiMode = False
    ParentFont = False
    TabOrder = 4
    object Ole1: TOleContainer
      Left = 200
      Top = 72
      Width = 121
      Height = 121
      BorderStyle = bsNone
      Caption = 'Ole1'
      TabOrder = 0
      Visible = False
      Data = {
        42444F4301000000000A0000D0CF11E0A1B11AE1000000000000000000000000
        000000003E000300FEFF09000600000000000000000000000100000001000000
        00000000001000000200000001000000FEFFFFFF0000000000000000FFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF