managermain.dfm

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

object main: Tmain
  Left = 170
  Top = 58
  Width = 641
  Height = 554
  Caption = 'Visual IVR Studio (Manager)'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object SpeedButton1: TSpeedButton
    Left = 454
    Top = 495
    Width = 70
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = '关闭'
    Flat = True
    Glyph.Data = {
      42020000424D4202000000000000420000002800000010000000100000000100
      1000030000000002000000000000000000000000000000000000007C0000E003
      00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C1F7C000000000000
      1F7C1F7C1F7C1F7C1F7C00000000000000000000000000000000000000000000
      000000001F7C1F7C1F7C1F7C1F7C1F7C0000D67ED67E0000847C847C00001F7C
      1F7C1F7C00001F7C1F7C4A294A291F7C1F7C0000D67E096C847C00001F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C00000000D67EAD7D847C000000001F7C
      1F7C1F7C1F7C1F7C1F7C4A291F7C0000D67E2104D67EAD7D847C2104847C0000
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000D67ED67ED67EAD7D847C847C847C0000
      1F7C1F7C1F7C1F7C4A294A294A291F7C0000D67ED67EAD7D847C847C00001F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C21045A7F5A7FAD7D21041F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C2104210421041F7C1F7C1F7C
      1F7C1F7C1F7C1F7C4A291F7C4A294A291F7C2104EF3D8C314A2921041F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C21041863734E8C3121041F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C2104FF7F1863EF3D21041F7C1F7C
      1F7C1F7C1F7C1F7C1F7C4A294A294A294A291F7C2104210421041F7C1F7C1F7C
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
      1F7C1F7C1F7C}
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 384
    Top = 495
    Width = 70
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = '关于'
    Flat = True
    Glyph.Data = {
      42020000424D4202000000000000420000002800000010000000100000000100
      1000030000000002000000000000000000000000000000000000007C0000E003
      00001F0000001F7C1F7C1F7C1F7C000000000000000000000000000000001F7C
      1F7C1F7C1F7C1F7C1F7C1F7C00000000B900B900B900B900B900B90000000000
      1F7C1F7C1F7C1F7C1F7C00000000BF01BF0136011801180118019E01FA000000
      00001F7C1F7C1F7C000000007F0A3F023F029701FF7FFF7F5C013F02BF01FA00
      000011081F7C000000007F0A3F023F023F029701FF7FFF7F5C013F023F02BF01
      FA000000000000009F4F7F0A3F023F023F029701FF7FFF7F5C013F023F023F02
      9E01B900000000009F4F7F0A3F023F023F029701FF7FFF7F5C013F023F023F02
      BF01FA00000000009F4F7F0A3F023F023F029701FF7FFF7F5C013F023F023F02
      BF01FA00000000009F4F7F0A3F023F023F029701FF7FFF7F5C013F023F023F02
      BF01FA00000000009F4F7F0A3F023F023F02DA01DA01DA01DA013F023F023F02
      BF01FA0000000000FF7FDF123F023F023F02DA01DA01DA01DA013F023F023F02
      BF01FA00000000000000FF7F7F0A3F023F029701FF7FFF7F5C013F023F023F02
      BF01000000001F7C00000000FF7F7F0A3F029701FF7FFF7F5C013F023F02BF01
      000000001F7C1F7C1F7C00000000FF7F7F0A97019701970197013F02BF010000
      00001F7C1F7C1F7C1F7C1F7C00000000FF7F9F4F9F4F9F4F9F4FBF0100000000
      1F7C1F7C1F7C1F7C1F7C1F7C1F7C000000000000000000000000000000001F7C
      1F7C1F7C1F7C}
    OnClick = SpeedButton2Click
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 633
    Height = 488
    ActivePage = TabVar
    Align = alTop
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 0
    object TabType: TTabSheet
      Caption = '项目类型'
      ImageIndex = 1
      OnShow = TabTypeShow
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 625
        Height = 461
        Align = alClient
        DataSource = ds
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnTitleClick = DBGrid2TitleClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'iType'
            Title.Caption = '项目类型'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Caption'
            Title.Caption = '类型描述'
            Width = 200
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Hints'
            Title.Caption = '提示消息'
            Width = 350
            Visible = True
          end>
      end
    end
    object TabContent: TTabSheet
      Caption = '项目名称'
      ImageIndex = 2
      OnShow = TabContentShow
      object DBGrid3: TDBGrid
        Left = 0
        Top = 0
        Width = 625
        Height = 461
        Align = alClient
        DataSource = ds
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnTitleClick = DBGrid2TitleClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'iType'
            Title.Caption = '项目类型'
            Width = 50
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'iContent'
            Title.Caption = '项目名称'
            Width = 50
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Caption'
            Title.Caption = '项目描述'
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Hints'
            Title.Caption = '提示信息'
            Width = 350
            Visible = True
          end>
      end
    end
    object TabProperty: TTabSheet
      Caption = '属性资料'
      ImageIndex = 3
      OnShow = TabPropertyShow
      object DBGrid4: TDBGrid
        Left = 0
        Top = 0
        Width = 625
        Height = 461
        Align = alClient
        DataSource = ds
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnTitleClick = DBGrid2TitleClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'iType'
            Title.Caption = '项目类型'
            Width = 50
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'iContent'
            Title.Caption = '项目名称'
            Width = 50
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'iValue'
            Title.Caption = '索引值'
            Width = 40
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'PropertyType'
            PickList.Strings = (
              '0'
              '1'
              '2')
            Title.Caption = '属性类型'
            Width = 50
            Visible = True
          end