qimport3wizard.pas

Advanced Data Import Component Suite for Borland Delphi and C++ Builder allows you to import your da

    mmBooleanFalse: TMemo;
    laBooleanFalse: TLabel;
    laNullValues: TLabel;
    mmNullValues: TMemo;
    tbtXLSClearAllRanges: TToolButton;
    lvXLSSelection: TListView;
    lvReplacements: TListView;
    tbReplacements: TToolBar;
    tbtAddReplacement: TToolButton;
    tbtEditReplacement: TToolButton;
    tbtDelReplacement: TToolButton;
    chXMLWriteOnFly: TCheckBox;
    laTemplateFileName: TLabel;
    laTemplateFileNameTag: TLabel;
    tsHTMLOptions: TTabSheet;
    laStep_08: TLabel;
    Bevel9: TBevel;
    laHTMLSkipLines: TLabel;
    laHTMLColNumber: TLabel;
    lvHTMLFields: TListView;
    tbHTML: TToolBar;
    tbtHTMLAutoFill: TToolButton;
    tbtHTMLClear: TToolButton;
    edtHTMLSkipLines: TEdit;
    cbHTMLColNumber: TComboBox;
    laHTMLTableNumber: TLabel;
    cbHTMLTableNumber: TComboBox;
    rbtHTML: TRadioButton;
    Image: TImage;
    rbtXMLDoc: TRadioButton;
    tsXMLDocOptions: TTabSheet;
    laXMLDocColNumber: TLabel;
    laXMLDocXPath: TLabel;
    laStep_10: TLabel;
    Bevel10: TBevel;
    laXMLDocSkipLines: TLabel;
    lvXMLDocFields: TListView;
    edXMLDocSkipLines: TEdit;
    tbXMLDoc: TToolBar;
    tbtXMLDocAutoFill: TToolButton;
    tbtXMLDocClear: TToolButton;
    cbXMLDocColNumber: TComboBox;
    edXMLDocXPath: TEdit;
//    beDocxFillGrid: TBevel;
    bXMLDocFillGrid: TSpeedButton;
    tvXMLDoc: TTreeView;
    bXMLDocGetXPath: TSpeedButton;
    bXMLDocBuildTree: TSpeedButton;
    pmXMLDocTreeView: TPopupMenu;
    miGetXPath: TMenuItem;
    rbtAccess: TRadioButton;
    edAccessPassword: TEdit;
    laAccessPassword: TLabel;
    sdQuery: TSaveDialog;
    odQuery: TOpenDialog;
    tsAccessOptions_01: TTabSheet;
    tsAccessOptions_02: TTabSheet;
    Bevel12: TBevel;
    laStep_16: TLabel;
    rbtAccessTable: TRadioButton;
    rbtAccessSQL: TRadioButton;
    lbAccessTables: TListBox;
    memAccessSQL: TMemo;
    tbAccess: TToolBar;
    tbtAccessSQLLoad: TToolButton;
    tbtAccessSQLSave: TToolButton;
    Bevel16: TBevel;
    laStep_15: TLabel;
    bAccessAdd: TSpeedButton;
    pbAccessAdd: TPaintBox;
    bAccessAutoFill: TSpeedButton;
    pbAccessAutoFill: TPaintBox;
    bAccessRemove: TSpeedButton;
    pbAccessRemove: TPaintBox;
    bAccessClear: TSpeedButton;
    pbAccessClear: TPaintBox;
    lstAccessDataSet: TListView;
    lstAccess: TListView;
    lstAccessMap: TListView;
    rbtXlsx: TRadioButton;
    rbtDocx: TRadioButton;
    tsXlsxOptions: TTabSheet;
    edXlsxSkipRows: TEdit;
    paXlsxFields: TPanel;
    pcXlsxFile: TPageControl;
    tlbXlsxUtils: TToolBar;
    tlbXlsxAutoFill: TToolButton;
    tlbXlsxClear: TToolButton;
    laStep_11: TLabel;
    bvl1: TBevel;
    laXlsxSkipRows: TLabel;
    tsDocxOptions: TTabSheet;
    bvl2: TBevel;
    laStep_12: TLabel;
    paDocxFields: TPanel;
    lvDocxFields: TListView;
    tlbDocxUtils: TToolBar;
    tlbDocxAutoFill: TToolButton;
    tlbDocxClear: TToolButton;
    edDocxSkipRows: TEdit;
    pcDocxFile: TPageControl;
    laDocxSkipRows: TLabel;
    lvXlsxFields: TListView;
    rbtODS: TRadioButton;
    tsODSOptions: TTabSheet;
    bvl14: TBevel;
    laStep_13: TLabel;
    lvODSFields: TListView;
    tlbODSUtils: TToolBar;
    tlbODSAutoFill: TToolButton;
    tlbODSClear: TToolButton;
    laODSSkipRows: TLabel;
    edODSSkipRows: TEdit;
    pcODSFile: TPageControl;
    impDBF: TQImport3DBF;
    impXLS: TQImport3XLS;
    impASCII: TQImport3ASCII;
    impXML: TQImport3XML;
    tsODTOptions: TTabSheet;
    bvl15: TBevel;
    laStep_14: TLabel;
    lvODTFields: TListView;
    laODTSkipRows: TLabel;
    tlbODTUtils: TToolBar;
    tlbODTAutoFill: TToolButton;
    tlbODTClear: TToolButton;
    pcODTFile: TPageControl;
    edODTSkipRows: TEdit;
    cbODTUseHeader: TCheckBox;
    rbtODT: TRadioButton;
    cbXMLDocDataLocation: TComboBox;
    laXMLDocDataLocation: TLabel;
    cmbTXTEncoding: TComboBox;
    laTXTEncoding: TLabel;
    procedure BeforeImport(Sender: TObject);
    procedure AfterImport(Sender: TObject);
    procedure ImportRecord(Sender: TObject);
    procedure ImportError(Sender: TObject);
    procedure ImportErrorAdv(Sender: TObject);
    procedure NeedCommit(Sender: TObject);
    procedure ImportCancel(Sender: TObject; var Continue: Boolean);
    procedure BeforePost(Sender: TObject; Row: TQImportRow;
      var Accept: Boolean);
    procedure DestinationLocate(Sender: TObject; KeyColumns: TStrings;
      Row: TQImportRow; var KeyFields: string; var KeyValues: Variant);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure spbBrowseClick(Sender: TObject);
    procedure rbtClick(Sender: TObject);
    procedure edtFileNameChange(Sender: TObject);
    procedure chGoToLastPageClick(Sender: TObject);
    procedure chAutoSaveTemplateClick(Sender: TObject);
    procedure bNextClick(Sender: TObject);
    procedure bBackClick(Sender: TObject);
    procedure bDBFAddClick(Sender: TObject);
    procedure bDBFRemoveClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bOkClick(Sender: TObject);
    procedure bHelpClick(Sender: TObject);
    procedure edtGeneratorValueChange(Sender: TObject);
    procedure edtGeneratorStepChange(Sender: TObject);
    procedure edtConstantValueChange(Sender: TObject);
    procedure edtNullValueChange(Sender: TObject);
    procedure edtDefaultValueChange(Sender: TObject);
    procedure edtLeftQuoteChange(Sender: TObject);
    procedure edtRightQuoteChange(Sender: TObject);
    procedure cmbQuoteActionChange(Sender: TObject);
    procedure cmbCharCaseChange(Sender: TObject);
    procedure cmbCharSetChange(Sender: TObject);
    procedure lstFormatFieldsChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure pgFormatsChange(Sender: TObject);
    procedure btnLoadTemplateClick(Sender: TObject);
    procedure edtShortDateFormatChange(Sender: TObject);
    procedure edtLongDateFormatChange(Sender: TObject);
    procedure edtShortTimeFormatChange(Sender: TObject);
    procedure edtLongTimeFormatChange(Sender: TObject);
    procedure chCommitAfterDoneClick(Sender: TObject);
    procedure edtCommitRecCountChange(Sender: TObject);
    procedure chImportAllRecordsClick(Sender: TObject);
    procedure edtImportRecCountChange(Sender: TObject);
    procedure chEnableErrorLogClick(Sender: TObject);
    procedure edErrorLogFileNameChange(Sender: TObject);
    procedure bErrorLogFileNameClick(Sender: TObject);
    procedure chRewriteErrorLogFileClick(Sender: TObject);
    procedure chShowErrorLogClick(Sender: TObject);
    procedure edtTXTSkipLinesChange(Sender: TObject);
    procedure btnSaveTemplateClick(Sender: TObject);
    procedure bDBFAutoFillClick(Sender: TObject);
    procedure bDBFClearClick(Sender: TObject);
    procedure btnXLSAutoFillColsClick(Sender: TObject);
    procedure btnXLSAutoFillRowsClick(Sender: TObject);
    procedure btnCSVAutoFillClick(Sender: TObject);
    procedure bCancelClick(Sender: TObject);
    procedure lstDBFDataSetChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure lstDBFChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure lstDBFMapChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure sgrCSVDrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure edtCSVSkipLinesChange(Sender: TObject);
    procedure btnCSVClearClick(Sender: TObject);
    procedure sgrCSVMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure rgImportModeClick(Sender: TObject);
    procedure rgAddTypeClick(Sender: TObject);
    procedure edtDecimalSeparatorExit(Sender: TObject);
    procedure edtThousandSeparatorExit(Sender: TObject);
    procedure edtDateSeparatorExit(Sender: TObject);
    procedure edtTimeSeparatorExit(Sender: TObject);
    procedure cbQuoteExit(Sender: TObject);
    procedure cbCommaExit(Sender: TObject);
    procedure bAllToRightClick(Sender: TObject);
    procedure bOneToRirghtClick(Sender: TObject);
    procedure bOneToLeftClick(Sender: TObject);
    procedure bAllToLeftClick(Sender: TObject);
    procedure lvAvailableColumnsDblClick(Sender: TObject);
    procedure lvSelectedColumnsDblClick(Sender: TObject);
    procedure KeyColumnsDragOver(Sender, Source: TObject; X,
      Y: Integer; State: TDragState; var Accept: Boolean);
    procedure KeyColumnsDragDrop(Sender, Source: TObject; X,
      Y: Integer);
    procedure chDBFSkipDeletedClick(Sender: TObject);
    procedure chCloseAfterImportClick(Sender: TObject);
{    procedure lvXLSFieldsSelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);}
    procedure tbtXLSAddRangeClick(Sender: TObject);
    procedure tbtXLSEditRangeClick(Sender: TObject);
    procedure tbtXLSMoveRangeUpClick(Sender: TObject);
    procedure tbtXLSMoveRangeDownClick(Sender: TObject);
    procedure tbtXLSDelRangeClick(Sender: TObject);
    procedure tbtXLSClearFieldRangesClick(Sender: TObject);
    procedure pbDBFAddPaint(Sender: TObject);
    procedure bDBFAddMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure bDBFAddMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbDBFAutoFillPaint(Sender: TObject);
    procedure bDBFAutoFillMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure bDBFAutoFillMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbDBFRemovePaint(Sender: TObject);
    procedure bDBFRemoveMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure bDBFRemoveMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbDBFClearPaint(Sender: TObject);
    procedure bDBFClearMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure bDBFClearMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure lvCSVFieldsChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure cbCSVColNumberChange(Sender: TObject);
    procedure lvTXTFieldsChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure edXLSSkipColsChange(Sender: TObject);
    procedure edXLSSkipRowsChange(Sender: TObject);
    procedure lvXLSRangesDblClick(Sender: TObject);
    procedure bXMLAddClick(Sender: TObject);
    procedure bXMLAutoFillClick(Sender: TObject);
    procedure bXMLRemoveClick(Sender: TObject);
    procedure bXMLClearClick(Sender: TObject);
    procedure bXMLAddMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure bXMLAddMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbXMLAddPaint(Sender: TObject);
    procedure bXMLAutoFillMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure bXMLAutoFillMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbXMLAutoFillPaint(Sender: TObject);
    procedure bXMLRemoveMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure bXMLRemoveMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbXMLRemovePaint(Sender: TObject);
    procedure bXMLClearMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure bXMLClearMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbXMLClearPaint(Sender: TObject);
    procedure tbtTXTClearClick(Sender: TObject);
    procedure tbtXLSClearAllRangesClick(Sender: TObject);
    procedure lvXLSRangesChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure tbtAddReplacementClick(Sender: TObject);
    procedure lvReplacementsChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure tbtEditReplacementClick(Sender: TObject);
    procedure tbtDelReplacementClick(Sender: TObject);
    procedure lvReplacementsDblClick(Sender: TObject);
    procedure lvXLSFieldsChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure chXMLWriteOnFlyClick(Sender: TObject);
    procedure lvXLSFieldsEnter(Sender: TObject);
    procedure lvXLSFieldsExit(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure cmbTXTEncodingChange(Sender: TObject);
  private
    FImportType: TAllowedImport;
    FComma: AnsiChar;
    FQuote: AnsiChar;
    FFileName: qiString;
    FGoToLastPage: boolean;
    FAutoSaveTemplate: boolean;
    FImport: TQImport3;

    FStep: Integer;

    FDataSet: TDataSet;
    FDBGrid: TDBGrid;
    FListView: TListView;
    FStringGrid: TStringGrid;

    FImportMode: TQImportMode;
    FAddType: TQImportAddType;

    FShift: TShiftState;
    FProgress: TfmQImport3ProgressDlg;
    FTotalRecCount: Integer;
    FDataFormats: TQImportFieldFormats;
    FNeedLoadFile: boolean;
    FNeedLoadFields: boolean;

    FDBFSkipDeleted: boolean;

    FTXTItemIndex: Integer;
    FTXTSkipLines: Integer;
    FTXTEncoding: TQICharsetType;
    FTXTClearing: boolean;

    FCSVItemIndex: Integer;
    FCSVSkipLines: Integer;

    FXLSFile: TXLSFile;
    FXLSSkipRows: Integer;
    FXLSSkipCols: Integer;
    FXLSIsEditingGrid: boolean;
    FXLSGridSelection: TMapRow;
    FXLSDefinedRanges: TMapRow; 

    FXMLWriteOnFly: boolean; 

    FDecimalSeparator: Char;
    FThousandSeparator: Char;
    FShortDateFormat: String;
    FLongDateFormat: String;
    FDateSeparator: Char;
    FShortTimeFormat: String;
    FLongTimeFormat: String;
    FTimeSeparator: Char;

    FCommitAfterDone: boolean;
    FCommitRecCount: Integer;
    FImportRecCount: Integer;
    FCloseAfterImport: boolean;
    FEnableErrorLog: boolean;
    FErrorLogFileName: qiString;
    FRewriteErrorLogFile: boolean;
    FShowErrorLog: boolean;

    FLoadingFormatItem: boolean;
    FFormatItem: TListItem;

    FTmpFileName: qiString;
    
{$IFDEF ADO}
    ImpAccess: TADO_QImport3Access;