viewsub.dfm

以可视的方式画IVR语音导航的流程,并把流程做为源文件保存起来

object Frm_ViewSub: TFrm_ViewSub
  Left = 189
  Top = 120
  Width = 581
  Height = 474
  BorderIcons = [biSystemMenu]
  Caption = '导入子流程'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 241
    Top = 41
    Width = 4
    Height = 387
    Cursor = crHSplit
  end
  object ScrollBox1: TScrollBox
    Left = 245
    Top = 41
    Width = 328
    Height = 387
    Align = alClient
    BorderStyle = bsNone
    Color = 16252927
    ParentColor = False
    TabOrder = 0
    object Image1: TImage
      Left = 0
      Top = 0
      Width = 328
      Height = 387
      Align = alClient
      AutoSize = True
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 573
    Height = 41
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 312
      Top = 16
      Width = 24
      Height = 12
      Caption = '1111'
      Color = clBtnFace
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object BitBtn3: TBitBtn
      Left = 8
      Top = 8
      Width = 61
      Height = 25
      Caption = '打开'
      TabOrder = 0
      OnClick = BitBtn3Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        5555555FFFFFFFFFF5555550000000000555557777777777F5555550FFFFFFFF
        0555557F5FFFF557F5555550F0000FFF0555557F77775557F5555550FFFFFFFF
        0555557F5FFFFFF7F5555550F000000F0555557F77777757F5555550FFFFFFFF
        0555557F5FFFFFF7F5555550F000000F0555557F77777757F5555550FFFFFFFF
        0555557F5FFF5557F5555550F000FFFF0555557F77755FF7F5555550FFFFF000
        0555557F5FF5777755555550F00FF0F05555557F77557F7555555550FFFFF005
        5555557FFFFF7755555555500000005555555577777775555555555555555555
        5555555555555555555555555555555555555555555555555555}
      NumGlyphs = 2
    end
    object BitBtn1: TBitBtn
      Left = 74
      Top = 8
      Width = 61
      Height = 25
      Caption = '导入'
      TabOrder = 1
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 140
      Top = 8
      Width = 61
      Height = 25
      Caption = '退出'
      TabOrder = 2
      OnClick = BitBtn2Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
  end
  object TreeView: TfcTreeView
    Left = 0
    Top = 41
    Width = 241
    Height = 387
    Align = alLeft
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    Indent = 19
    Options = [tvoExpandOnDblClk, tvoFlatCheckBoxes, tvoHideSelection, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips]
    Items.StreamVersion = 1
    Items.Data = {00000000}
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnChange = TreeViewChange
    OnToggleCheckbox = TreeViewToggleCheckbox
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 428
    Width = 573
    Height = 19
    AutoHint = True
    Panels = <
      item
        Alignment = taCenter
        Text = '进度'
        Width = 200
      end
      item
        Width = 200
      end
      item
        Width = 120
      end>
    SimplePanel = False
  end
  object OpenDialog: TOpenDialog
    Filter = 
      'IVR 工程(*.ivr) ;流程文件(*.sub)|*.ivr;*.sub|IVR 流程文件(*.sub)' +
      '|*.sub|所有文件(*.*)|*.*'
    Options = [ofHideReadOnly, ofNoChangeDir, ofEnableSizing]
    Left = 117
    Top = 130
  end
  object ADOFun: TADOQuery
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 176
    Top = 104
  end
  object DataSource1: TDataSource
    Left = 64
    Top = 184
  end
  object ADOTable1: TADOTable
    Left = 144
    Top = 232
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=D:\Docu' +
      'ments and Settings\Administrator\桌面\good.ivr;Persist Security ' +
      'Info=True;Jet OLEDB:Database Password=ivr'
    AfterScroll = ADOQuery1AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from functionlist')
    Left = 196
    Top = 192
  end
  object ADOUpDate: TADOQuery
    Parameters = <>
    Left = 64
    Top = 320
  end
  object ADOTmp: TADOQuery
    Parameters = <>
    Left = 160
    Top = 320
  end
end