qexport4dialog.dfm

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

            Items.Strings = (
              'Portrait'
              'Landscape')
            TabOrder = 0
            OnClick = rgRTFPageOrientationClick
          end
        end
      end
    end
    object tshXML: TTabSheet
      Caption = 'XML Options'
      object laXMLEncoding: TLabel
        Left = 201
        Top = 19
        Width = 45
        Height = 13
        Caption = 'Encoding'
      end
      object chXMLStandalone: TCheckBox
        Left = 14
        Top = 17
        Width = 97
        Height = 17
        Caption = 'Standalone'
        TabOrder = 0
        OnClick = chXMLStandaloneClick
      end
      object edXMLEncoding: TEdit
        Left = 267
        Top = 15
        Width = 170
        Height = 21
        TabOrder = 1
        OnChange = edXMLEncodingChange
      end
    end
    object tshSQL: TTabSheet
      Caption = '&SQL Options'
      object gbSQLCommit: TGroupBox
        Left = 13
        Top = 101
        Width = 436
        Height = 75
        Caption = '  Commit options  '
        TabOrder = 0
        object laSQLUseCommit_02: TLabel
          Left = 164
          Top = 22
          Width = 41
          Height = 13
          Caption = 'record(s)'
        end
        object laSQLCommitStatement: TLabel
          Left = 17
          Top = 48
          Width = 83
          Height = 13
          Caption = 'Commit statement'
        end
        object laSQLUseCommit_01: TLabel
          Left = 42
          Top = 22
          Width = 58
          Height = 13
          Alignment = taRightJustify
          Caption = 'Commit after'
        end
        object edSQLCommitRecCount: TEdit
          Left = 117
          Top = 18
          Width = 41
          Height = 21
          TabOrder = 0
          Text = '0'
          OnChange = edSQLCommitRecCountChange
          OnKeyPress = NumberKeyPress
        end
        object chSQLCommitAfterScript: TCheckBox
          Left = 253
          Top = 22
          Width = 172
          Height = 17
          Caption = 'Commit after script'
          TabOrder = 1
          OnClick = chSQLCommitAfterScriptClick
        end
        object edSQLCommitStatement: TEdit
          Left = 117
          Top = 44
          Width = 310
          Height = 21
          TabOrder = 2
          OnChange = edSQLCommitStatementChange
        end
      end
      object gbSQLMisc: TGroupBox
        Left = 13
        Top = 184
        Width = 436
        Height = 75
        Caption = '  Other options'
        TabOrder = 1
        object laSQLNullString: TLabel
          Left = 5
          Top = 23
          Width = 97
          Height = 13
          Caption = 'Export null values as'
        end
        object laSQLStatementTerm: TLabel
          Left = 40
          Top = 49
          Width = 71
          Height = 13
          Caption = 'Statement term'
        end
        object edSQLNullString: TEdit
          Left = 117
          Top = 19
          Width = 100
          Height = 21
          TabOrder = 0
          OnChange = edSQLNullStringChange
        end
        object edSQLStatementTerm: TEdit
          Left = 117
          Top = 45
          Width = 27
          Height = 21
          TabOrder = 1
          Text = ';'
          OnChange = edSQLStatementTermChange
        end
      end
      object gbSQLTableOptions: TGroupBox
        Left = 13
        Top = 17
        Width = 436
        Height = 75
        Caption = 'Table options'
        TabOrder = 2
        object laSQLTableName: TLabel
          Left = 42
          Top = 22
          Width = 56
          Height = 13
          Alignment = taRightJustify
          Caption = 'Table name'
        end
        object chSQLCreateTable: TCheckBox
          Left = 117
          Top = 48
          Width = 310
          Height = 17
          Caption = 'Add "Create Table" statement'
          TabOrder = 0
          OnClick = chSQLCreateTableClick
        end
        object edSQLTableName: TEdit
          Left = 117
          Top = 18
          Width = 310
          Height = 21
          TabOrder = 1
          OnChange = edSQLTableNameChange
        end
      end
    end
    object tshHTML: TTabSheet
      Caption = '&HTML Options'
      object pcHTML: TPageControl
        Left = 0
        Top = 0
        Width = 461
        Height = 348
        ActivePage = tshHTMLAdvanced
        Align = alClient
        TabOrder = 0
        object tshHTMLPreview: TTabSheet
          Caption = '&Preview'
          object paHTMLPreview: TPanel
            Left = 1
            Top = 2
            Width = 446
            Height = 311
            BevelOuter = bvLowered
            TabOrder = 0
            object laHTMLTemplate: TLabel
              Left = 320
              Top = 9
              Width = 44
              Height = 13
              Caption = 'Template'
            end
            object bHTMLSaveTemplate: TSpeedButton
              Left = 320
              Top = 58
              Width = 120
              Height = 24
              Caption = 'S&ave as template ...'
              OnClick = bHTMLSaveTemplateClick
            end
            object bHTMLLoadTemplate: TSpeedButton
              Left = 320
              Top = 86
              Width = 120
              Height = 24
              Caption = '&Load template ...'
              OnClick = bHTMLLoadTemplateClick
            end
            object paHTMLBackground: TPanel
              Left = 5
              Top = 6
              Width = 310
              Height = 210
              BevelOuter = bvLowered
              Color = clWhite
              TabOrder = 0
              OnClick = paHTMLBackgroundClick
              object laHTMLFont: TLabel
                Tag = 1
                Left = 15
                Top = 7
                Width = 73
                Height = 16
                Hint = 'Click here for default font color select'
                Caption = 'Default text'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -13
                Font.Name = 'Arial'
                Font.Style = [fsBold]
                ParentFont = False
                ParentShowHint = False
                ShowHint = True
                OnClick = laHTMLFontClick
              end
              object laHTMLLink: TLabel
                Tag = 11
                Left = 15
                Top = 173
                Width = 287
                Height = 16
                Hint = 'Click here for non-visited link color select'
                Alignment = taCenter
                AutoSize = False
                Caption = 'Non-visited link'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -13
                Font.Name = 'Arial'
                Font.Style = [fsBold]
                ParentFont = False
                ParentShowHint = False
                ShowHint = True
                OnClick = laHTMLLinkClick
              end
              object laHTMLVLink: TLabel
                Tag = 12
                Left = 15
                Top = 191
                Width = 287
                Height = 16
                Hint = 'Click here for visited link color select'
                Alignment = taCenter
                AutoSize = False
                Caption = 'Visited link'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -13
                Font.Name = 'Arial'
                Font.Style = [fsBold]
                ParentFont = False
                ParentShowHint = False
                ShowHint = True
                OnClick = laHTMLVLinkClick
              end
              object laHTMLALink: TLabel
                Tag = 13
                Left = 15
                Top = 155
                Width = 287
                Height = 16
                Hint = 'Click here for active link color select'
                Alignment = taCenter
                AutoSize = False
                Caption = 'Active link'
                Font.Charset = DEFAULT_CHARSET
                Font.Color = clWindowText
                Font.Height = -13
                Font.Name = 'Arial'
                Font.Style = [fsBold]
                ParentFont = False
                ParentShowHint = False
                ShowHint = True
                OnClick = laHTMLALinkClick
              end
              object paHTMLColumnHead_1: TPanel
                Left = 15
                Top = 26
                Width = 77
                Height = 25
                Hint = 'Click here for header row color select'
                BevelOuter = bvLowered
                Color = 16744576
                ParentShowHint = False
                ShowHint = True
                TabOrder = 0
                OnClick = paHTMLColumnHead_1Click
                object laHTMLHead_1: TLabel
                  Left = 23
                  Top = 4
                  Width = 32
                  Height = 18
                  Caption = 'Num'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clWindowText
                  Font.Height = -15
                  Font.Name = 'Arial'
                  Font.Style = [fsBold]
                  ParentFont = False
                  OnClick = laHTMLHead_1Click
                end
              end
              object paHTMLColumnHead_2: TPanel
                Left = 92
                Top = 26
                Width = 105
                Height = 25
                Hint = 'Click here for header row color select'
                BevelOuter = bvLowered
                Color = 16744576
                ParentShowHint = False
                ShowHint = True
                TabOrder = 1
                OnClick = paHTMLColumnHead_1Click
                object laHTMLHead_2: TLabel
                  Left = 32
                  Top = 4
                  Width = 40
                  Height = 18
                  Caption = 'Name'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clWindowText
                  Font.Height = -15
                  Font.Name = 'Arial'
                  Font.Style = [fsBold]
                  ParentFont = False
                  OnClick = laHTMLHead_1Click
                end
              end
              object paHTMLColumnHead_3: TPanel
                Left = 197
                Top = 26
                Width = 105
                Height = 25
                Hint = 'Click here for header row color select'
                BevelOuter = bvLowered
                Color = 16744576
                ParentShowHint = False
                ShowHint = True
                TabOrder = 2
                OnClick = paHTMLColumnHead_1Click
                object laHTMLHead_3: TLabel
                  Left = 39
                  Top = 4
                  Width = 27
                  Height = 18
                  Caption = 'Age'
                  Font.Charset = DEFAULT_CHARSET
                  Font.Color = clWindowText
                  Font.Height = -15
                  Font.Name = 'Arial'
                  Font.Style = [fsBold]
                  ParentFont = False
                  OnClick = laHTMLHead_1Click
                end
              end
              object paHTMLOddRowCol_1: TPanel
                Left = 15
                Top = 51
                Width = 77
                Height = 25
                Hint = 'Click for odd row color change'
                BevelOuter = bvLowered