newmanager.dfm

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

    Font.Name = '宋体'
    Font.Style = []
    MenuBarColor = 14609391
    MenuBarHeight = 22
    object suiGroupBox1: TsuiGroupBox
      Left = 0
      Top = 29
      Width = 691
      Height = 52
      Align = alTop
      Font.Charset = DEFAULT_CHARSET
      Font.Color = 13583874
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Transparent = True
      BorderColor = 6842472
      object suiButton1: TsuiButton
        Left = 9
        Top = 13
        Width = 56
        Height = 29
        UIStyle = WinXP
        Caption = '增 加'
        AutoSize = False
        TabOrder = 0
        Transparent = False
        ModalResult = 0
        Layout = blGlyphLeft
        Spacing = 4
        ResHandle = 0
        OnClick = suiButton1Click
      end
      object suiButton2: TsuiButton
        Left = 73
        Top = 13
        Width = 56
        Height = 29
        UIStyle = WinXP
        Caption = '修 改'
        AutoSize = False
        TabOrder = 1
        Transparent = False
        ModalResult = 0
        Layout = blGlyphLeft
        Spacing = 4
        ResHandle = 0
        OnClick = suiButton2Click
      end
      object suiButton5: TsuiButton
        Left = 393
        Top = 13
        Width = 56
        Height = 29
        UIStyle = WinXP
        Caption = '下 条>'
        AutoSize = False
        TabOrder = 2
        Transparent = False
        ModalResult = 0
        Layout = blGlyphLeft
        Spacing = 4
        ResHandle = 0
        OnClick = suiButton5Click
      end
      object suiButton6: TsuiButton
        Left = 329
        Top = 13
        Width = 56
        Height = 29
        UIStyle = WinXP
        Caption = '<上 条'
        AutoSize = False
        TabOrder = 3
        Transparent = False
        ModalResult = 0
        Layout = blGlyphLeft
        Spacing = 4
        ResHandle = 0
        OnClick = suiButton6Click
      end
      object suiButton7: TsuiButton
        Left = 265
        Top = 13
        Width = 56
        Height = 29
        UIStyle = WinXP
        Caption = '末 条>>'
        AutoSize = False
        TabOrder = 4
        Transparent = False
        ModalResult = 0
        Layout = blGlyphLeft
        Spacing = 4
        ResHandle = 0
        OnClick = suiButton7Click
      end
      object suiButton8: TsuiButton
        Left = 137
        Top = 13
        Width = 56
        Height = 29
        UIStyle = WinXP
        Caption = '删 除'
        AutoSize = False
        TabOrder = 5
        Transparent = False
        ModalResult = 0
        Layout = blGlyphLeft
        Spacing = 4
        ResHandle = 0
        OnClick = suiButton8Click
      end
      object suiButton9: TsuiButton
        Left = 201
        Top = 13
        Width = 56
        Height = 29
        UIStyle = WinXP
        Caption = '<<首 条'
        AutoSize = False
        TabOrder = 6
        Transparent = False
        ModalResult = 0
        Layout = blGlyphLeft
        Spacing = 4
        ResHandle = 0
        OnClick = suiButton9Click
      end
    end
    object PageControl1: TPageControl
      Left = 0
      Top = 81
      Width = 691
      Height = 498
      ActivePage = TabVar
      Align = alClient
      TabOrder = 2
      object TabType: TTabSheet
        Caption = '项目类型'
        ImageIndex = 1
        object iType_DBGridEh: TDBGridEh
          Left = 0
          Top = 0
          Width = 683
          Height = 471
          Align = alClient
          DataSource = iType_DataSource
          FixedColor = 14609391
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = GB2312_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -12
          FooterFont.Name = '宋体'
          FooterFont.Style = []
          FooterRowCount = 1
          SumList.Active = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          TitleHeight = 18
          OnTitleBtnClick = iType_DBGridEhTitleBtnClick
          Columns = <
            item
              EditButtons = <>
              FieldName = 'iType'
              Footer.Alignment = taCenter
              Footer.Value = '合计:'
              Footer.ValueType = fvtStaticText
              Footers = <>
              Title.Caption = '项目类型'
              Title.TitleButton = True
              Width = 93
            end
            item
              EditButtons = <>
              FieldName = 'Caption'
              Footer.ValueType = fvtCount
              Footers = <>
              Title.Caption = '类型描述'
              Title.TitleButton = True
              Width = 104
            end
            item
              EditButtons = <>
              FieldName = 'Hints'
              Footers = <>
              Title.Caption = '提示消息'
              Title.TitleButton = True
              Width = 168
            end>
        end
      end
      object TabContent: TTabSheet
        Caption = '项目名称'
        ImageIndex = 2
        object iContent_DBGridEh: TDBGridEh
          Left = 0
          Top = 0
          Width = 687
          Height = 457
          Align = alClient
          DataSource = iContent_DataSource
          FixedColor = 14609391
          Flat = True
          FooterColor = clWindow
          FooterFont.Charset = GB2312_CHARSET