ado_qexport4dialog.pas

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

    procedure btnXLSNoteFontItalicClick(Sender: TObject);
    procedure btnXLSNoteFontStrikeOutClick(Sender: TObject);
    procedure btnXLSNoteUnderlineSingleClick(Sender: TObject);
    procedure btnXLSNoteUnderlineSingleAccountingClick(Sender: TObject);
    procedure btnXLSNoteUnderlineDoubleClick(Sender: TObject);
    procedure btnXLSNoteUnderlineDoubleAccountingClick(Sender: TObject);
    procedure btnXLSNoteHorizontalLeftClick(Sender: TObject);
    procedure btnXLSNoteHorizontalCenterClick(Sender: TObject);
    procedure btnXLSNoteHorizontalRightClick(Sender: TObject);
    procedure btnXLSNoteHorizontalFillClick(Sender: TObject);
    procedure btnXLSNoteVerticalTopClick(Sender: TObject);
    procedure btnXLSNoteVerticalCenterClick(Sender: TObject);
    procedure btnXLSNoteVerticalBottomClick(Sender: TObject);
    procedure rgXLSNoteOrientationClick(Sender: TObject);
    procedure rbXLSNoteFillSolidClick(Sender: TObject);
    procedure rbXLSNoteFillGradientClick(Sender: TObject);
    procedure rbXLSNoteGradientHorizontalClick(Sender: TObject);
    procedure rbXLSNoteGradientVerticalClick(Sender: TObject);
    procedure rbXLSNoteGradientDiagonalUpClick(Sender: TObject);
    procedure rbXLSNoteGradientDiagonalDownClick(Sender: TObject);
    procedure rbXLSNoteGradientFromCornerClick(Sender: TObject);
    procedure rbXLSNoteGradientFromCenterClick(Sender: TObject);
    procedure btnXLSNoteBackgroundColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnXLSNoteBackgroundColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnXLSNoteBackgroundColorClick(Sender: TObject);
    procedure pbXLSNoteBackgroundColorPaint(Sender: TObject);
    procedure btnXLSNoteForegroundColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnXLSNoteForegroundColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnXLSNoteForegroundColorClick(Sender: TObject);
    procedure pbXLSNoteForegroundColorPaint(Sender: TObject);
    procedure trXLSNoteTransparencyChange(Sender: TObject);
    procedure edXLSChartTitleChange(Sender: TObject);
    procedure cbXLSChartStyleChange(Sender: TObject);
    procedure edXLSChartPositionX1Exit(Sender: TObject);
    procedure edXLSChartPositionY1Exit(Sender: TObject);
    procedure edXLSChartPositionX2Exit(Sender: TObject);
    procedure edXLSChartPositionY2Exit(Sender: TObject);
    procedure edXLSChartCategoryLabelsCol1Exit(Sender: TObject);
    procedure edXLSChartCategoryLabelsRow1Exit(Sender: TObject);
    procedure edXLSChartCategoryLabelsCol2Exit(Sender: TObject);
    procedure edXLSChartCategoryLabelsRow2Exit(Sender: TObject);
    procedure rgXLSChartLegendPositionClick(Sender: TObject);
    procedure chXLSChartShowLegendClick(Sender: TObject);
    procedure chXLSChartAutoColorClick(Sender: TObject);
    procedure edXLSSeriesTitleChange(Sender: TObject);
    procedure edXLSSeriesDataRangeCol1Exit(Sender: TObject);
    procedure edXLSSeriesDataRangeRow1Exit(Sender: TObject);
    procedure edXLSSeriesDataRangeCol2Exit(Sender: TObject);
    procedure edXLSSeriesDataRangeRow2Exit(Sender: TObject);
    procedure btnXLSSeriesColorMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnXLSSeriesColorMouseUp(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure btnXLSSeriesColorClick(Sender: TObject);
    procedure pbXLSSeriesColorPaint(Sender: TObject);
    procedure rbXLSChartCategoryLabelColumnClick(Sender: TObject);
    procedure rbXLSChartCategoryLabelCustomClick(Sender: TObject);
    procedure cbXLSChartCategoryLabelColumnChange(Sender: TObject);
    procedure rbXLSSeriesColumnClick(Sender: TObject);
    procedure rbXLSSeriesCustomClick(Sender: TObject);
    procedure cbXLSSeriesColumnChange(Sender: TObject);
    procedure rbXLSChartAutoPositionClick(Sender: TObject);
    procedure rgXLSChartPlacementClick(Sender: TObject);
    procedure edXLSChartLeftExit(Sender: TObject);
    procedure edXLSChartTopExit(Sender: TObject);
    procedure edXLSChartHeightExit(Sender: TObject);
    procedure edXLSChartWidthExit(Sender: TObject);
    procedure rbXLSChartCustomPositionClick(Sender: TObject);
    procedure edXLSCellColExit(Sender: TObject);
    procedure edXLSCellRowExit(Sender: TObject);
    procedure edXLSCellColKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edXLSCellRowKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cbXLSCellTypeChange(Sender: TObject);
    procedure edXLSCellValueChange(Sender: TObject);
    procedure edXLSCellDateTimeFormatChange(Sender: TObject);
    procedure edXLSCellNumericFormatChange(Sender: TObject);
    procedure edXLSMergedCellsFirstColExit(Sender: TObject);
    procedure edXLSMergedCellsFirstRowExit(Sender: TObject);
    procedure edXLSMergedCellsLastColExit(Sender: TObject);
    procedure edXLSMergedCellsLastRowExit(Sender: TObject);
    procedure bXLSPageBackgroundClick(Sender: TObject);
    procedure edXLSPageBackgroundChange(Sender: TObject);
    procedure pcXLSChange(Sender: TObject);
    procedure pcXLSCellsChange(Sender: TObject);
    procedure edAccessPasswordChange(Sender: TObject);
    procedure edAccessTableNameChange(Sender: TObject);
    procedure chAccessCreateTableClick(Sender: TObject);
  private
    FQuickExport: TQExport4;
    FProgress: TfmQExport4Progress;

    FFileName: string;
    FShowFile: boolean;
    FPrintFile: boolean;
    FOptionsFileName: string;
    FGoToFirstRecord: boolean;
    FCurrentRecordOnly: boolean;
    FExportEmpty: boolean;
    FExportRecCount: integer;
    FSkipRecCount: integer;

    FAllowCaptions: boolean;
    FCaptionRow: integer;

    FIntegerFmt: string;
    FFloatFmt: string;
    FDateFmt: string;
    FTimeFmt: string;
    FDateTimeFmt: string;
    FCurrencyFmt: string;
    FBooleanTrue: string;
    FBooleanFalse: string;
    FNullString: string;

    FRTFPageOrientation: TQExportPageOrientation;
    FRTFStripType: TrtfStripType;

    FXLSPageHeader: string;
    FXLSPageFooter: string;
    FXLSSheetTitle: string;
    FXLSStripType: TxlsStripType;
    FXLSAutoCalcColWidth: boolean;
    FXLSPageBackground: string;

    FXLSDataFormatPageIndex: integer;
    FXLSCellsPageIndex: integer;

    FHTMLTitle: string;
    FHTMLUsingCSS: TUsingCSS;
    FHTMLCSSFileName: string;
    FHTMLOverwriteCSSFile: boolean;

    FHTMLUseMultiFileExport: boolean;
    FHTMLFileRecCount: integer;
    FHTMLGenerateIndex: boolean;

    FHTMLIndexLinkTemplate: string;
    FHTMLNavigationOnTop: boolean;
    FHTMLNavigationOnBottom: boolean;
    FHTMLIndexLinkTitle: string;
    FHTMLFirstLinkTitle: string;
    FHTMLPriorLinkTitle: string;
    FHTMLNextLinkTitle: string;
    FHTMLLastLinkTitle: string;

    FHTMLFontName: string;
    FHTMLBackground: string;
    FHTMLBodyAdvanced: string;
    FHTMLCellPadding: integer;
    FHTMLCellSpacing: integer;
    FHTMLBorderWidth: integer;
    FHTMLTableBackground: string;
    FHTMLTableAdvanced: string;
    FHTMLBackgroundColor: TColor;
    FHTMLFontColor: TColor;
    FHTMLHeadBackgroundColor: TColor;
    FHTMLHeadFontColor: TColor;
    FHTMLOddRowBackgroundColor: TColor;
    FHTMLEvenRowBackgroundColor: TColor;
    FHTMLDataFontColor: TColor;
    FHTMLLinkColor: TColor;
    FHTMLVLinkColor: TColor;
    FHTMLALinkColor: TColor;

    FXMLStandalone: boolean;
    FXMLEncoding: string;

    FSQLTableName: string;
    FSQLCreateTable: boolean;
    FSQLCommitRecCount: integer;
    FSQLCommitAfterScript: boolean;
    FSQLCommitStatement: string;
    FSQLStatementTerm: string;

    FTXTAutoCalcColWidth: boolean;
    FTXTSpacing: integer;
    FCSVQuoteStrings: boolean;
    FCSVComma: char;
    FCSVQuote: char;

    FAccessPassword: string;
    FAccessTableName: string;
    FAccessCreateTable: boolean;

    FPDFColSpacing: double;
    FPDFRowSpacing: double;
    FPDFGridLineWidth: integer;

    FPDFPageFormat: TQExportPageFormat;
    FPDFPageWidth: integer;
    FPDFPageHeight: integer;
    FPDFPageUnits: TQExportUnits;
    FPDFPageOrientation: TQExportPageOrientation;
    FPDFPageMarginLeft: integer;
    FPDFPageMarginRight: integer;
    FPDFPageMarginTop: integer;
    FPDFPageMarginBottom: integer;

    FXLSListItem: TListItem;
    FXLSHyperlinkNode: TTreeNode;
    FXLSNoteNode: TTreeNode;
    FXLSChartNode: TTreeNode;
    FXLSCellNode: TTreeNode;
    FXLSMergedCellNode: TTreeNode;
    FRTFListItem: TListItem;
    FPDFFontItem: TListItem;

    function GetDialog: TADO_QExport4Dialog;

    function GetDataSet: TDataSet;
    function GetCustomSource: TqeCustomSource4;
    function GetListView: TListView;
    function GetDBGrid: TDBGrid;
    function GetStringGrid: TStringGrid;

    function GetAutoChangeFileExt: boolean;
    function GetSaveLoadButtons: boolean;
    function GetCommonOptions: TCommonOptions;
    function GetConfirmAbort: boolean;
    function GetAutoSaveOptions: boolean;
    function GetAutoLoadOptions: boolean;
    function GetExportSource: TQExportSource;

    procedure SetFileName(const Value: string);
    procedure SetShowFile(const Value: boolean);
    procedure SetPrintFile(const Value: boolean);
    function GetExportType: TAllowedExport;
    procedure SetExportType(const Value: TAllowedExport);
    procedure SetOptionsFileName(const Value: string);
    procedure SetGoToFirstRecord(const Value: boolean);
    procedure SetCurrentRecordOnly(const Value: boolean);
    procedure SetExportEmpty(const Value: boolean);
    procedure SetExportRecCount(const Value: integer);
    procedure SetSkipRecCount(const Value: integer);

    procedure SetAllowCaptions(const Value: boolean);
    procedure SetCaptionRow(const Value: integer);

    procedure SetIntegerFmt(const Value: string);
    procedure SetFloatFmt(const Value: string);
    procedure SetDateFmt(const Value: string);
    procedure SetTimeFmt(const Value: string);
    procedure SetDateTimeFmt(const Value: string);
    procedure SetCurrencyFmt(const Value: string);
    procedure SetBooleanTrue(const Value: string);
    procedure SetBooleanFalse(const Value: string);
    procedure SetNullString(const Value: string);

    procedure SetRTFPageOrientation(const Value: TQExportPageOrientation);
    procedure SetRTFStripType(const Value: TrtfStripType);

    procedure SetXLSPageHeader(const Value: string);
    procedure SetXLSPageFooter(const Value: string);
    procedure SetXLSSheetTitle(const Value: string);
    procedure SetXLSStripType(const Value: TxlsStripType);
    procedure SetXLSAutoCalcColWidth(Value: boolean);
    procedure SetXLSPageBackground(const Value: string);

    procedure SetHTMLTitle(const Value: string);
    procedure SetHTMLUsingCSS(const Value: TUsingCSS);
    procedure SetHTMLCSSFileName(const Value: string);
    procedure SetHTMLOverwriteCSSFile(const Value: boolean);

    procedure SetHTMLUseMultiFileExport(const Value: boolean);
    procedure SetHTMLFileRecCount(const Value: integer);
    procedure SetHTMLGenerateIndex(const Value: boolean);

    procedure SetHTMLIndexLinkTemplate(const Value: string);
    procedure SetHTMLNavigationOnTop(const Value: boolean);
    procedure SetHTMLNavigationOnBottom(const Value: boolean);
    procedure SetHTMLIndexLinkTitle(const Value: string);
    procedure SetHTMLFirstLinkTitle(const Value: string);
    procedure SetHTMLPriorLinkTitle(const Value: string);
    procedure SetHTMLNextLinkTitle(const Value: string);
    procedure SetHTMLLastLinkTitle(const Value: string);

    procedure SetHTMLFontName(const Value: string);
    procedure SetHTMLBackground(const Value: string);
    procedure SetHTMLBodyAdvanced(const Value: string);
    procedure SetHTMLCellPadding(const Value: integer);
    procedure SetHTMLCellSpacing(const Value: integer);
    procedure SetHTMLBorderWidth(const Value: integer);
    procedure SetHTMLTableBackground(const Value: string);
    procedure SetHTMLTableAdvanced(const Value: string);
    procedure SetHTMLBackgroundColor(const Value: TColor);
    procedure SetHTMLFontColor(const Value: TColor);
    procedure SetHTMLHeadBackgroundColor(const Value: TColor);
    procedure SetHTMLHeadFontColor(const Value: TColor);
    procedure SetHTMLOddRowBackgroundColor(const Value: TColor);
    procedure SetHTMLEvenRowBackgroundColor(const Value: TColor);
    procedure SetHTMLDataFontColor(const Value: TColor);
    procedure SetHTMLLinkColor(const Value: TColor);
    procedure SetHTMLVLinkColor(const Value: TColor);
    procedure SetHTMLALinkColor(const Value: TColor);

    procedure SetXMLEncoding(const Value: string);
    procedure SetXMLStandalone(const Value: boolean);

    procedure SetSQLTableName(const Value: string);
    procedure SetSQLCreateTable(const Value: boolean);
    procedure SetSQLCommitRecCount(const Value: integer);
    procedure SetSQLCommitAfterScript(const Value: boolean);
    procedure SetSQLCommitStatement(const Value: string);
    procedure SetSQLStatementTerm(const Value: string);