qexport4dialog.dfm

delphi中把数据输出为html excel等形式的控件

object QExport4DialogF: TQExport4DialogF
  Left = 417
  Top = 294
  BorderStyle = bsDialog
  Caption = 'QExport4DialogF'
  ClientHeight = 475
  ClientWidth = 469
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object paFileName: TPanel
    Left = 0
    Top = 0
    Width = 469
    Height = 67
    Align = alTop
    TabOrder = 0
    object laFileName: TLabel
      Left = 9
      Top = 5
      Width = 69
      Height = 13
      Caption = 'Destination file'
    end
    object edFileName: TEdit
      Left = 10
      Top = 20
      Width = 361
      Height = 21
      TabOrder = 0
      OnChange = edFileNameChange
    end
    object bBrowse: TButton
      Left = 378
      Top = 20
      Width = 75
      Height = 22
      Caption = 'Select...'
      TabOrder = 1
      OnClick = bBrowseClick
    end
    object chShowFile: TCheckBox
      Left = 11
      Top = 45
      Width = 183
      Height = 17
      Caption = 'Open file after export'
      TabOrder = 2
      OnClick = chShowFileClick
    end
    object chPrintFile: TCheckBox
      Left = 203
      Top = 45
      Width = 183
      Height = 17
      Caption = 'Print file after export'
      TabOrder = 3
      OnClick = chPrintFileClick
    end
  end
  object paButtons: TPanel
    Left = 0
    Top = 443
    Width = 469
    Height = 32
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object bStart: TButton
      Left = 289
      Top = 4
      Width = 85
      Height = 25
      Caption = '&Start Export'
      Default = True
      TabOrder = 0
      OnClick = bStartClick
    end
    object bCancel: TButton
      Left = 377
      Top = 4
      Width = 85
      Height = 25
      Cancel = True
      Caption = '&Close'
      ModalResult = 2
      TabOrder = 1
    end
    object bTools: TButton
      Left = 10
      Top = 4
      Width = 75
      Height = 25
      Caption = 'Tools...'
      TabOrder = 2
      OnClick = bToolsClick
    end
  end
  object Pages: TPageControl
    Left = 0
    Top = 67
    Width = 469
    Height = 376
    ActivePage = tshExportType
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnChange = PagesChange
    object tshExportType: TTabSheet
      Caption = 'Export &Type'
      object pcExportType: TPageControl
        Left = 3
        Top = 4
        Width = 455
        Height = 341
        ActivePage = tshExportFormats
        TabOrder = 0
        object tshExportFormats: TTabSheet
          Caption = '&Formats'
          object rgExportType: TRadioGroup
            Left = 14
            Top = 9
            Width = 419
            Height = 296
            Caption = '  Export to  '
            Columns = 3
            ItemIndex = 0
            Items.Strings = (
              'MS Excel'
              'MS Word'
              'RTF'
              'HTML'
              'Text File'
              'XML'
              'DBF'
              'PDF'
              'CSV File'
              'DIF File'
              'SYLK File'
              'LaTeX'
              'SQL'
              'Windows Clipboard'
              'ODS'
              'ODT'
              'MS Excel 2007'
              'MS Word 2007'
              'MS Access')
            TabOrder = 0
            OnClick = rgExportTypeClick
          end
        end
        object tshExportOptions: TTabSheet
          Caption = '&Options'
          object gbExportConstraints: TGroupBox
            Left = 14
            Top = 9
            Width = 419
            Height = 134
            Caption = '  Constraints  '
            TabOrder = 0
            object laSkipRecCount_01: TLabel
              Left = 14
              Top = 83
              Width = 21
              Height = 13
              Caption = 'Skip'
            end
            object laSkipRecCount_02: TLabel
              Left = 104
              Top = 83
              Width = 41
              Height = 13
              Caption = 'record(s)'
            end
            object laExportRecCount_02: TLabel
              Left = 318
              Top = 106
              Width = 41
              Height = 13
              Caption = 'record(s)'
              Enabled = False
            end
            object Bevel12: TBevel
              Left = 14
              Top = 69
              Width = 387
              Height = 2
              Shape = bsTopLine
            end
            object edSkipRecCount: TEdit
              Left = 58
              Top = 79
              Width = 40
              Height = 21
              TabOrder = 3
              Text = '0'
              OnChange = edSkipRecCountChange
              OnKeyPress = NumberKeyPress
            end
            object chGoToFirstRecord: TCheckBox
              Left = 14
              Top = 21
              Width = 187
              Height = 17
              Caption = 'Go to the first record'
              Checked = True
              State = cbChecked
              TabOrder = 0
              OnClick = chGoToFirstRecordClick
            end
            object rbExportAllRecords: TRadioButton
              Left = 195
              Top = 81
              Width = 179
              Height = 17
              Caption = 'Export all records'
              Checked = True
              TabOrder = 4
              TabStop = True
              OnClick = rbExportAllRecordsClick
            end
            object rbExportOnly: TRadioButton
              Left = 195
              Top = 104
              Width = 95
              Height = 17
              Caption = 'Export only'
              TabOrder = 5
              OnClick = rbExportOnlyClick
            end
            object edExportRecCount: TEdit
              Left = 272
              Top = 102
              Width = 40
              Height = 21
              Enabled = False
              TabOrder = 6
              Text = '0'
              OnChange = edExportRecCountChange
              OnKeyPress = NumberKeyPress
            end
            object chCurrentRecordOnly: TCheckBox
              Left = 216
              Top = 21
              Width = 185
              Height = 17
              Caption = 'Current record only'
              TabOrder = 1
              OnClick = chCurrentRecordOnlyClick
            end
            object chExportEmpty: TCheckBox
              Left = 14
              Top = 43
              Width = 238
              Height = 17
              Caption = 'Allow export empty data source'
              TabOrder = 2
              OnClick = chExportEmptyClick
            end
          end
        end
      end
    end
    object tshFields: TTabSheet
      Caption = 'F&ields'
      object laAvailableFields: TLabel
        Left = 0
        Top = 8
        Width = 200
        Height = 22
        Alignment = taCenter
        AutoSize = False
        Caption = 'Availabel fields:'
        Color = clBtnShadow
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clCaptionText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        Transparent = False
        Layout = tlCenter
      end
      object laExportedFields: TLabel
        Left = 262
        Top = 8
        Width = 200
        Height = 22
        Alignment = taCenter
        AutoSize = False
        Caption = 'Exported fields:'
        Color = clBtnShadow
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clCaptionText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        Transparent = False
        Layout = tlCenter
      end
      object bAddOneExportedField: TSpeedButton
        Left = 205
        Top = 112
        Width = 51
        Height = 22
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
          EEEEEEEEEEEEEEEEEEEEEEEEE88EEEEEEEEEEEEEE608EEEEEEEEEEEEE6608EEE
          EEEEEEEEE66608EEEEEEEEEEE666608EEEEEEEEEE6666608EEEEEEEEE666666E
          EEEEEEEEE66666EEEEEEEEEEE6666EEEEEEEEEEEE666EEEEEEEEEEEEE66EEEEE
          EEEEEEEEE6EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE}
        Layout = blGlyphTop
        Margin = 1
        OnClick = bAddOneExportedFieldClick
      end
      object bAddAllExportedField: TSpeedButton
        Left = 205
        Top = 138
        Width = 51
        Height = 22
        Caption = '>>'
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
          EEEEEEEEEEEEEEEEEEEEE88EEEEEE88EEEEEE608EEEEE608EEEEE6608EEEE660
          8EEEE66608EEE66608EEE666608EE666608EE6666608E6666608E666666EE666
          666EE66666EEE66666EEE6666EEEE6666EEEE666EEEEE666EEEEE66EEEEEE66E
          EEEEE6EEEEEEE6EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE}
        Layout = blGlyphTop
        Margin = 1
        OnClick = bAddAllExportedFieldClick
      end
      object bDelOneExportedField: TSpeedButton
        Left = 205
        Top = 195
        Width = 51
        Height = 22
        Caption = '<'
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
          EEEEEEEEEEEEEEEEEEEEEEEEEEEEE88EEEEEEEEEEEEE806EEEEEEEEEEEE8066E
          EEEEEEEEEE80666EEEEEEEEEE806666EEEEEEEEE8066666EEEEEEEEEE666666E
          EEEEEEEEEE66666EEEEEEEEEEEE6666EEEEEEEEEEEEE666EEEEEEEEEEEEEE66E
          EEEEEEEEEEEEEE6EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE}
        Layout = blGlyphTop
        Margin = 1
        OnClick = bDelOneExportedFieldClick
      end
      object bDelAllExportedField: TSpeedButton
        Left = 205
        Top = 221
        Width = 51
        Height = 22
        Caption = '<<'
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          0400000000008000000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00EEEEEEEEEEEE
          EEEEEEEEEEEEEEEEEEEEEEEEE88EEEEEE88EEEEE806EEEEE806EEEE8066EEEE8
          066EEE80666EEE80666EE806666EE806666E8066666E8066666EE666666EE666