counselingfrm.dfm

一个电力企业的后台管理程序

      BevelInner = bvLowered
      BevelOuter = bvLowered
      BevelWidth = 2
      BorderStyle = bsSingle
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 22
        Top = 16
        Width = 60
        Height = 12
        Caption = '信息名称：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 22
        Top = 42
        Width = 48
        Height = 12
        Caption = '信息类别'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 22
        Top = 73
        Width = 96
        Height = 12
        Caption = '信息文件存储主机'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 246
        Top = 70
        Width = 120
        Height = 12
        Caption = '信息文件存储虚拟设备'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 22
        Top = 122
        Width = 72
        Height = 12
        Caption = '信息文件名称'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 22
        Top = 144
        Width = 72
        Height = 12
        Caption = '传真文件名称'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object SpeedButton1: TSpeedButton
        Left = 244
        Top = 117
        Width = 23
        Height = 22
        Hint = '请选择文件名'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333333333333333333333333333333333FF333333333333
          3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00
          E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0
          E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0
          E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00
          000033333373FF77777733333330003333333333333777333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton1Click
      end
      object DBEdit7: TDBEdit
        Left = 121
        Top = 143
        Width = 121
        Height = 20
        DataField = 'VoiceFile'
        DataSource = ManagDM.DataSource2
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object DBEdit4: TDBEdit
        Left = 121
        Top = 118
        Width = 121
        Height = 20
        Color = clSilver
        DataField = 'InfoFile'
        DataSource = ManagDM.DataSource2
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object DBComboBox1: TDBComboBox
        Left = 121
        Top = 39
        Width = 120
        Height = 20
        Style = csDropDownList
        DataField = 'Infotype'
        DataSource = ManagDM.DataSource2
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        Items.Strings = (
          'Bmp文件'
          'Html文件'
          'Txt文件'
          'Excel文件'
          'Word文件')
        ParentFont = False
        TabOrder = 2
        OnChange = DBComboBox1Change
      end
      object DBEdit1: TDBEdit
        Left = 121
        Top = 12
        Width = 373
        Height = 20
        DataField = 'classname'
        DataSource = ManagDM.DataSource2
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object DBEdit2: TDBEdit
        Left = 122
        Top = 92
        Width = 260
        Height = 20
        Color = clSilver
        DataField = 'Text'
        DataSource = ManagDM.DataSource6
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object DBEdit3: TDBEdit
        Left = 121
        Top = 66
        Width = 121
        Height = 20
        Color = clSilver
        DataField = 'hostname'
        DataSource = ManagDM.DataSource6
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
      object DBEdit5: TDBEdit
        Left = 373
        Top = 66
        Width = 121
        Height = 20
        Color = clSilver
        DataField = 'Item'
        DataSource = ManagDM.DataSource6
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 6