testinsub.dfm

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

object Frm_TestInSub: TFrm_TestInSub
  Left = 378
  Top = 117
  Width = 398
  Height = 444
  Caption = 'Frm_TestInSub'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object TreeView1: TTreeView
    Left = 16
    Top = 16
    Width = 353
    Height = 345
    Indent = 19
    TabOrder = 0
  end
  object BitBtn1: TBitBtn
    Left = 144
    Top = 376
    Width = 75
    Height = 25
    Caption = 'BitBtn1'
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=D:\Docu' +
      'ments and Settings\Administrator\桌面\ok2.sub;Persist Security I' +
      'nfo=True;Jet OLEDB:Database Password=ivr'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from functionlist order by functionid')
    Left = 64
    Top = 80
  end
end