qimport2wizard.pas

Delphi Advanced Import Component_v2.48.With Full Source.

    pbDBFAdd: TPaintBox;
    pbDBFAutoFill: TPaintBox;
    pbDBFRemove: TPaintBox;
    pbDBFClear: TPaintBox;
    lvCSVFields: TListView;
    tbCSV: TToolBar;
    tbtCSVAutoFill: TToolButton;
    tbtCSVClear: TToolButton;
    laCSVSkipLines: TLabel;
    edtCSVSkipLines: TEdit;
    cbCSVColNumber: TComboBox;
    laCSVColNumber: TLabel;
    lvTXTFields: TListView;
    tbTXT: TToolBar;
    tbtTXTClear: TToolButton;
    laXLSSkipCols: TLabel;
    edXLSSkipCols: TEdit;
    laXLSSkipRows: TLabel;
    edXLSSkipRows: TEdit;
    rbtXML: TRadioButton;
    tsXMLOptions: TTabSheet;
    laStep_05: TLabel;
    Bevel8: TBevel;
    lvXMLDataSet: TListView;
    lvXML: TListView;
    lvXMLMap: TListView;
    bXMLAdd: TSpeedButton;
    pbXMLAdd: TPaintBox;
    bXMLAutoFill: TSpeedButton;
    pbXMLAutoFill: TPaintBox;
    bXMLRemove: TSpeedButton;
    pbXMLRemove: TPaintBox;
    bXMLClear: TSpeedButton;
    pbXMLClear: TPaintBox;
    impXML: TQImport2XML;
    mmBooleanTrue: TMemo;
    laBooleanTrue: TLabel;
    mmBooleanFalse: TMemo;
    laBooleanFalse: TLabel;
    laNullValues: TLabel;
    mmNullValues: TMemo;
    Image: TImage;
    tbtXLSClearAllRanges: TToolButton;
    lvXLSSelection: TListView;
    lvReplacements: TListView;
    tbReplacements: TToolBar;
    tbtAddReplacement: TToolButton;
    tbtEditReplacement: TToolButton;
    tbtDelReplacement: TToolButton;
    chXMLWriteOnFly: TCheckBox;
    laTemplateFileName: TLabel;
    laTemplateFileNameTag: 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);
  private
    FImportType: TAllowedImport;
    FComma: char;
    FQuote: char;
    FFileName: string;
    FGoToLastPage: boolean;
    FAutoSaveTemplate: boolean;
    FImport: TQImport2;

    FStep: integer;

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

    FImportMode: TQImportMode;
    FAddType: TQImportAddType;

    FShift: TShiftState;
    FProgress: TfmQImport2ProgressDlg;
    FTotalRecCount: integer;
    FDataFormats: TQImportFieldFormats;
    FNeedLoadFile: boolean;

    FDBFSkipDeleted: boolean;

    FTXTItemIndex: integer;
    FTXTSkipLines: integer;
    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: string;
    FRewriteErrorLogFile: boolean;
    FShowErrorLog: boolean;

    FLoadingFormatItem: boolean;
    FFormatItem: TListItem;

    FTmpFileName: string;

    procedure SetImportType(const Value: TAllowedImport);

    procedure SetCaptions;

    procedure TuneOpenDialog;
    procedure ChangeExtension;
    procedure TuneCSVControls;

    procedure SetFileName(const Value: string);
    procedure SetGoToLastPage(Value: boolean);
    procedure SetAutoSaveTemplate(Value: boolean);

    procedure FillCombosAndLists;
    procedure FillKeyColumns(Strings: TStrings);
    procedure MoveToSelected(Source, Destination: TListView;
      All: boolean; Index: integer);

    function GetWizard: TQImport2Wizard;
    function GetTemplateFileName: string;
    function GetAutoLoadTemplate: boolean;
    function GetImportDestination: TQImportDestination;
    function GetGridCaptionRow: integer;
    function GetGridStartRow: integer;
    function GetKeyColumns: TStrings;

    procedure SetComma(const Value: char);
    procedure SetQuote(const Value: char);
    procedure SetStep(const Value: integer);
    procedure ShowTip(Parent: TWinControl; Left, Top, Height, Width: integer;
      const Tip: string);

    function AllowedImportFileType(const AFileName: string): Boolean;
    function ImportTypeEquivFileType(const AFileName: string): Boolean;
    function ImportTypeStr(AImportType: TAllowedImport): string;

    //---- DBF page's methods
    procedure DBFFillList;
    procedure DBFClearList;
    procedure DBFFillTableList;
    procedure DBFClearTableList;
    procedure DBFTune;
    function DBFReady: boolean;

    //---- XML page's methods
    procedure XMLFillList;
    procedure XMLClearList;
    procedure XMLFillTableList;