mainexcelexport.dfm

delphi实现EXCEL复杂导入导出功能的类

        Left = 42
        Top = 112
        Width = 150
        Height = 13
        AutoSize = False
        Caption = 'Simple export 4'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelSimpleExportInfo4: TLabel
        Left = 190
        Top = 112
        Width = 480
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 
          'Simple export of dataset with memo field and OnGetText event. (B' +
          'IOLIFE)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelExportColors: TLabel
        Left = 42
        Top = 208
        Width = 150
        Height = 13
        AutoSize = False
        Caption = 'Export using colors'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelExportColorsInfo: TLabel
        Left = 190
        Top = 208
        Width = 480
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 
          'Export dataset and change background and font color depending va' +
          'lue of field (ORDERS)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelExportSave: TLabel
        Left = 42
        Top = 272
        Width = 150
        Height = 13
        AutoSize = False
        Caption = 'Save'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelExportSaveInfo: TLabel
        Left = 190
        Top = 272
        Width = 480
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 
          'Export dataset and save it as XLS, CVS and HTM in current folder' +
          '. (ORDERS)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelPrintPreview: TLabel
        Left = 42
        Top = 304
        Width = 150
        Height = 13
        AutoSize = False
        Caption = 'Print preview'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelPrintPreviewInfo: TLabel
        Left = 190
        Top = 304
        Width = 480
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 'Export dataset and show print preview of Excel (ORDERS)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelConnectTo: TLabel
        Left = 42
        Top = 336
        Width = 150
        Height = 13
        AutoSize = False
        Caption = 'Export using ConnectTo'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelConnectToInfo: TLabel
        Left = 190
        Top = 336
        Width = 480
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 
          'Export several datasets and use all options of the ConnectTo and' +
          ' Worksheetname properties.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelUseExisting: TLabel
        Left = 42
        Top = 368
        Width = 150
        Height = 13
        AutoSize = False
        Caption = 'Use existing worksheet'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelUseExistingInfo: TLabel
        Left = 190
        Top = 368
        Width = 480
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 
          'Call routine of Save example. Open existing file and data to exi' +
          'sting worksheet. (ANIMALS)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelExportSummaries: TLabel
        Left = 42
        Top = 144
        Width = 150
        Height = 13
        AutoSize = False
        Caption = 'Export && add summaries'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelExportSummariesInfo: TLabel
        Left = 190
        Top = 144
        Width = 480
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 
          'Export dataset and add summary (SUM, AVG, MAX, AVG) for all nume' +
          'ric fields (ORDERS)'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelGrouping: TLabel
        Left = 42
        Top = 400
        Width = 150
        Height = 13
        AutoSize = False
        Caption = 'Export and use grouping'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelGroupingInfo: TLabel
        Left = 190
        Top = 400
        Width = 480
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 'Export dataset, use grouping of 2 fields and add summaries'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelUseWorksheet: TLabel
        Left = 42
        Top = 432
        Width = 150
        Height = 13
        AutoSize = False
        Caption = 'Use worksheet'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object LabelUseWorksheetInfo: TLabel
        Left = 190
        Top = 432
        Width = 480
        Height = 13
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = 'Export dataset and acess the cells of the worksheet manually'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LabelUseEvents: TLabel
        Left = 42
        Top = 464