askinfoform.dfm

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

      BevelWidth = 2
      BorderStyle = bsSingle
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 41
        Top = 77
        Width = 52
        Height = 13
        Caption = '信息名称'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 41
        Top = 15
        Width = 52
        Height = 13
        Caption = '文件类型'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 257
        Top = 217
        Width = 52
        Height = 26
        Caption = '文件存储'#13#10'主机名'
        Visible = False
      end
      object Label4: TLabel
        Left = 11
        Top = 251
        Width = 52
        Height = 26
        Caption = '文件存储'#13#10'路径'
        Visible = False
      end
      object Label5: TLabel
        Left = 213
        Top = 223
        Width = 52
        Height = 13
        Caption = '文件名称'
        Visible = False
      end
      object SpeedButton1: TSpeedButton
        Left = 221
        Top = 221
        Width = 22
        Height = 20
        Caption = '...'
        Visible = False
        OnClick = SpeedButton1Click
      end
      object Label6: TLabel
        Left = 41
        Top = 137
        Width = 52
        Height = 13
        Caption = '文件内容'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 51
        Top = 105
        Width = 39
        Height = 13
        Caption = '关键字'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 31
        Top = 46
        Width = 65
        Height = 13
        Caption = '文件子类型'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Edt_InfoName: TEdit
        Left = 103
        Top = 73
        Width = 442
        Height = 21
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ImeName = '中文 (简体) - 微软拼音'
        ParentFont = False
        TabOrder = 0
      end
      object Cb_FileType: TComboBox
        Left = 238
        Top = 211
        Width = 170
        Height = 21
        Style = csDropDownList
        ImeName = '中文 (简体) - 微软拼音'
        ItemHeight = 13
        TabOrder = 1
        Visible = False
        Items.Strings = (
          'Bmp文件'
          'Html文件'
          'Txt文件'
          'Excel文件'
          'Word文件')
      end
      object Cb_HostName: TComboBox
        Left = 17
        Top = 215
        Width = 114
        Height = 21
        Style = csDropDownList
        ImeName = '中文 (简体) - 微软拼音'
        ItemHeight = 13
        TabOrder = 2
        Visible = False
        OnChange = Cb_HostNameChange
      end
      object Cb_FilePath: TComboBox
        Left = 73
        Top = 251
        Width = 356
        Height = 21
        Style = csDropDownList
        ImeName = '中文 (简体) - 微软拼音'
        ItemHeight = 13
        TabOrder = 3
        Visible = False
        OnEnter = Cb_FilePathEnter
      end
      object Edt_FileName: TEdit
        Left = 275
        Top = 221
        Width = 141
        Height = 21
        ImeName = '中文 (简体) - 微软拼音'
        TabOrder = 4
        Text = 'Edt_FileName'
        Visible = False
      end
      object Edt_KeyWord: TEdit
        Left = 103
        Top = 103
        Width = 140
        Height = 21
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 5
        Text = 'Edt_KeyWord'
      end
      object Edt_FileType: TComboBox
        Left = 103
        Top = 13
        Width = 442
        Height = 21
        Style = csDropDownList
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        TabOrder = 6
        OnEnter = Edt_FileTypeEnter
        Items.Strings = (
          '业务咨询信息')
      end
      object Cb_SubFileType: TComboBox
        Left = 103
        Top = 43
        Width = 442
        Height = 21
        Style = csDropDownList
        Enabled = False
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 13
        ParentFont = False
        TabOrder = 7
        OnEnter = Cb_SubFileTypeEnter
      end
      object REdt_FileContent: TRichEdit
        Left = 103
        Top = 134
        Width = 442
        Height = 174
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        Lines.Strings = (
          'REdt_FileContent')
        ParentFont = False