qexport4dialog.pas

Advanced.Export.Component.v4.01.rar,delphi 第三方控件

unit QExport4Dialog;

{$I VerCtrl.inc}                                           

interface

uses
  Forms, StdCtrls, ExtCtrls, ComCtrls, Controls, Classes, Db, QExport4,
  Dialogs, Buttons, {$IFDEF VCL4}ImgList,{$ENDIF} Grids, Windows, Graphics,
  QExport4RTF, QExport4HTML, ExtDlgs, QExport4XLS, QExport4XML, QExport4ASCII,
  QExport4Clipboard, QExport4SQL, QExport4LaTeX, QExport4DBF, DbGrids,
  QExport4Common, fuQExport4Progress, ToolWin, QExport4PDF, Menus,
  QExport4Options, QExport4CustomSource, QExport4ODT, QExport4ODS,
  BaseODFClass4, QExport4Xlsx, QExport4Docx, QExport4MSOfficeCommon
  {$IFDEF ADO}, ADO_QExport4Access{$ENDIF};

type
  TAllowedExport = (aeXLS, aeWord, aeRTF, aeHTML, aeXML, aeDBF, aePDF, aeTXT,
    aeCSV, aeDIFF, aeSylk, aeLaTeX, aeSQL, aeClipboard, aeODS, aeODT,
    aeXlsx, aeDocx, aeAccess);

  TAllowedExports = set of TAllowedExport;

  TCommonOption = (coFields, coFormats, coColons, coCaptions, coOptions);
  TCommonOptions = set of TCommonOption;

  TQExport4Dialog = class;

  TQExport4DialogF = class(TForm)
    paFileName: TPanel;
    laFileName: TLabel;
    edFileName: TEdit;
    bBrowse: TButton;
    chShowFile: TCheckBox;
    paButtons: TPanel;
    bStart: TButton;
    bCancel: TButton;
    Pages: TPageControl;
    tshExportType: TTabSheet;
    tshFields: TTabSheet;
    sdExportFile: TSaveDialog;
    laAvailableFields: TLabel;
    laExportedFields: TLabel;
    lstAvailableFields: TListView;
    lstExportedFields: TListView;
    bAddOneExportedField: TSpeedButton;
    bAddAllExportedField: TSpeedButton;
    bDelOneExportedField: TSpeedButton;
    bDelAllExportedField: TSpeedButton;
    imgFields: TImageList;
    tshFormats: TTabSheet;
    gbStandardFormats: TGroupBox;
    laIntegerFormat: TLabel;
    laDateFormat: TLabel;
    laDateTimeFormat: TLabel;
    laFloatFormat: TLabel;
    laTimeFormat: TLabel;
    laCurrencyFormat: TLabel;
    edIntegerFormat: TEdit;
    edDateFormat: TEdit;
    edDateTimeFormat: TEdit;
    edFloatFormat: TEdit;
    edTimeFormat: TEdit;
    edCurrencyFormat: TEdit;
    gbUserFormat: TGroupBox;
    cbxFormatFields: TComboBox;
    cbxUserFormats: TComboBox;
    laEqual_01: TLabel;
    lstUserFormats: TListView;
    bAddUserFormat: TSpeedButton;
    bEditUserFormat: TSpeedButton;
    bDeleteUserFormat: TSpeedButton;
    bClearUserFormats: TSpeedButton;
    tshHeaderFooter: TTabSheet;
    laHeader: TLabel;
    laFooter: TLabel;
    memHeader: TMemo;
    memFooter: TMemo;
    tshCaptions: TTabSheet;
    sgrCaptions: TStringGrid;
    tshRTF: TTabSheet;
    FontDialog: TFontDialog;
    tshXML: TTabSheet;
    chXMLStandalone: TCheckBox;
    laXMLEncoding: TLabel;
    edXMLEncoding: TEdit;
    tshSQL: TTabSheet;
    gbSQLCommit: TGroupBox;
    edSQLCommitRecCount: TEdit;
    laSQLUseCommit_02: TLabel;
    chSQLCommitAfterScript: TCheckBox;
    laSQLCommitStatement: TLabel;
    edSQLCommitStatement: TEdit;
    gbSQLMisc: TGroupBox;
    laSQLNullString: TLabel;
    edSQLNullString: TEdit;
    laSQLStatementTerm: TLabel;
    edSQLStatementTerm: TEdit;
    tshHTML: TTabSheet;
    pcHTML: TPageControl;
    tshHTMLPreview: TTabSheet;
    tshHTMLBasic: TTabSheet;
    tshHTMLAdvanced: TTabSheet;
    paHTMLPreview: TPanel;
    paHTMLBackground: TPanel;
    laHTMLFont: TLabel;
    paHTMLColumnHead_1: TPanel;
    paHTMLColumnHead_2: TPanel;
    paHTMLColumnHead_3: TPanel;
    paHTMLOddRowCol_1: TPanel;
    paHTMLOddRowCol_2: TPanel;
    paHTMLOddRowCol_3: TPanel;
    paHTMLEvenRowCol_1: TPanel;
    paHTMLEvenRowCol_2: TPanel;
    paHTMLEvenRowCol_3: TPanel;
    paHTMLOddRowCol_4: TPanel;
    paHTMLOddRowCol_5: TPanel;
    paHTMLOddRowCol_6: TPanel;
    paHTMLEvenRowCol_4: TPanel;
    paHTMLEvenRowCol_5: TPanel;
    paHTMLEvenRowCol_6: TPanel;
    ColorDialog: TColorDialog;
    laHTMLHead_1: TLabel;
    laHTMLHead_2: TLabel;
    laHTMLHead_3: TLabel;
    laHTMLData_1: TLabel;
    laHTMLData_2: TLabel;
    laHTMLData_3: TLabel;
    laHTMLData_4: TLabel;
    laHTMLData_5: TLabel;
    laHTMLData_6: TLabel;
    laHTMLData_7: TLabel;
    laHTMLData_8: TLabel;
    laHTMLData_9: TLabel;
    laHTMLData_10: TLabel;
    laHTMLData_11: TLabel;
    laHTMLData_12: TLabel;
    laHTMLLink: TLabel;
    laHTMLVLink: TLabel;
    laHTMLALink: TLabel;
    laHTMLTemplate: TLabel;
    cbxHTMLTemplate: TComboBox;
    bHTMLSaveTemplate: TSpeedButton;
    bHTMLLoadTemplate: TSpeedButton;
    sdHTMLTemplate: TSaveDialog;
    odHTMLTemplate: TOpenDialog;
    laHTMLTitle: TLabel;
    edHTMLTitle: TEdit;
    odHTMLCSS: TOpenDialog;
    gbHTMLBodyOptions: TGroupBox;
    laHTMLBodyFontName: TLabel;
    laHTMLBackground: TLabel;
    laHTMLBodyAdvanced: TLabel;
    cbxHTMLFontName: TComboBox;
    edHTMLBackground: TEdit;
    btnHTMLBackground: TSpeedButton;
    edHTMLBodyAdvanced: TEdit;
    Bevel2: TBevel;
    gbHTMLTableOptions: TGroupBox;
    laHTMLCellPadding: TLabel;
    laHTMLCellSpacing: TLabel;
    laHTMLBorderWidth: TLabel;
    edHTMLCellPadding: TEdit;
    edHTMLCellSpacing: TEdit;
    edHTMLBorderWidth: TEdit;
    laHTMLTableAdvanced: TLabel;
    edHTMLTableAdvanced: TEdit;
    opdHTMLBackground: TOpenPictureDialog;
    tshXLS: TTabSheet;
    sdOptions: TSaveDialog;
    odOptions: TOpenDialog;
    chPrintFile: TCheckBox;
    pcXLS: TPageControl;
    tshXLSAdvanced: TTabSheet;
    tshXLSDataFormat: TTabSheet;
    btnXLSResetItem: TSpeedButton;
    btnXLSResetAll: TSpeedButton;
    laXLSPageHeader: TLabel;
    edXLSPageHeader: TEdit;
    laXLSPageFooter: TLabel;
    edXLSPageFooter: TEdit;
    pcXLSDataFormat: TPageControl;
    tshXLSFont: TTabSheet;
    tshXLSBorders: TTabSheet;
    laXLSFont: TLabel;
    cbxXLSFont: TComboBox;
    laXLSFontSize: TLabel;
    cbxXLSFontSize: TComboBox;
    Bevel4: TBevel;
    btnFontColor: TSpeedButton;
    Bevel5: TBevel;
    btnFontBold: TSpeedButton;
    btnFontItalic: TSpeedButton;
    btnFontStrikeOut: TSpeedButton;
    Bevel6: TBevel;
    btnUnderlineSingle: TSpeedButton;
    btnUnderlineSingleAccounting: TSpeedButton;
    btnUnderlineDouble: TSpeedButton;
    btnUnderlineDoubleAccounting: TSpeedButton;
    Bevel3: TBevel;
    btnHorizontalLeft: TSpeedButton;
    btnHorizontalCenter: TSpeedButton;
    btnHorizontalRight: TSpeedButton;
    btnHorizontalFill: TSpeedButton;
    Bevel8: TBevel;
    btnVerticalTop: TSpeedButton;
    btnVerticalCenter: TSpeedButton;
    btnVerticalBottom: TSpeedButton;
    pbFontColor: TPaintBox;
    Bevel11: TBevel;
    Bevel9: TBevel;
    btnBorderTop: TSpeedButton;
    btnBorderBottom: TSpeedButton;
    btnBorderLeft: TSpeedButton;
    btnBorderRight: TSpeedButton;
    btnBorderTopColor: TSpeedButton;
    Bevel10: TBevel;
    pbBorderTop: TPaintBox;
    btnBorderBottomColor: TSpeedButton;
    pbBorderBottom: TPaintBox;
    btnBorderLeftColor: TSpeedButton;
    pbBorderLeft: TPaintBox;
    btnBorderRightColor: TSpeedButton;
    pbBorderRight: TPaintBox;
    cmbBorderTop: TComboBox;
    cmbBorderBottom: TComboBox;
    cmbBorderLeft: TComboBox;
    cmbBorderRight: TComboBox;
    Bevel7: TBevel;
    tshXLSFill: TTabSheet;
    tshXLSAggregate: TTabSheet;
    Bevel13: TBevel;
    laSQLUseCommit_01: TLabel;
    gbSQLTableOptions: TGroupBox;
    chSQLCreateTable: TCheckBox;
    laSQLTableName: TLabel;
    edSQLTableName: TEdit;
    laBooleanTrue: TLabel;
    laBooleanFalse: TLabel;
    edBooleanTrue: TEdit;
    edBooleanFalse: TEdit;
    chAllowCaptions: TCheckBox;
    cbxColumnAlign: TComboBox;
    edColumnWidth: TEdit;
    udColumnWidth: TUpDown;
    laXLSSheetTitle: TLabel;
    edXLSSheetTitle: TEdit;
    laNullString: TLabel;
    edNullString: TEdit;
    pcExportType: TPageControl;
    tshExportFormats: TTabSheet;
    tshExportOptions: TTabSheet;
    rgExportType: TRadioGroup;
    gbExportConstraints: TGroupBox;
    laSkipRecCount_01: TLabel;
    laSkipRecCount_02: TLabel;
    edSkipRecCount: TEdit;
    chGoToFirstRecord: TCheckBox;
    gbHTMLUsingCSS: TGroupBox;
    laHTMLCSSFileName: TLabel;
    rbInternal: TRadioButton;
    rbExternal: TRadioButton;
    edHTMLCSSFileName: TEdit;
    bvHTMLCSSFileName: TBevel;
    btnHTMLCSSFileName: TSpeedButton;
    rbExportAllRecords: TRadioButton;
    rbExportOnly: TRadioButton;
    edExportRecCount: TEdit;
    laExportRecCount_02: TLabel;
    Bevel12: TBevel;
    tshASCII: TTabSheet;
    gbTXTOptions: TGroupBox;
    chTXTAutoCalcColWidth: TCheckBox;
    edTXTSpacing: TEdit;
    laTXTSpacing: TLabel;
    gbCSVOptions: TGroupBox;
    chCSVQuoteStrings: TCheckBox;
    laCSVComma: TLabel;
    edCSVComma: TEdit;
    pcXLSFormats: TPageControl;
    tshXLSFields: TTabSheet;
    tshXLSOptions: TTabSheet;
    lstXLSFields: TListView;
    lstXLSOptions: TListView;
    tshXLSStyles: TTabSheet;
    lstXLSStyles: TListView;
    rgXLSStripType: TRadioGroup;
    tbrXLSStyles: TToolBar;
    tbtAddXLSStyle: TToolButton;
    tbtDelXLSStyle: TToolButton;
    tbtUpXLSStyle: TToolButton;
    tbtDownXLSStyle: TToolButton;
    ilXLSStyles: TImageList;
    ToolButton1: TToolButton;
    tbtLoadXLSStyle: TToolButton;
    tbtSaveXLSStyle: TToolButton;
    odXLSStyle: TOpenDialog;
    sdXLSStyle: TSaveDialog;
    chCurrentRecordOnly: TCheckBox;
    Bevel1: TBevel;
    btnFillBackground: TSpeedButton;
    pbFillBackground: TPaintBox;
    cmbPattern: TComboBox;
    btnFillForeground: TSpeedButton;
    pbFillForeground: TPaintBox;
    bvXLSAggregate: TBevel;
    rgXLSFunction: TRadioGroup;
    edCSVQuote: TEdit;
    laCSVQuote: TLabel;