ado_qimport3wizard.pas

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

    laRightQuote: TLabel;
    laQuoteAction: TLabel;
    laCharCase: TLabel;
    laCharSet: TLabel;
    edtGeneratorValue: TEdit;
    edtGeneratorStep: TEdit;
    edtConstantValue: TEdit;
    edtNullValue: TEdit;
    edtDefaultValue: TEdit;
    edtLeftQuote: TEdit;
    edtRightQuote: TEdit;
    cmbQuoteAction: TComboBox;
    cmbCharCase: TComboBox;
    cmbCharSet: TComboBox;
    tbAccess: TToolBar;
    tbtAccessSQLLoad: TToolButton;
    tbtAccessSQLSave: TToolButton;
    bAccessAdd: TSpeedButton;
    pbAccessAdd: TPaintBox;
    bAccessAutoFill: TSpeedButton;
    pbAccessAutoFill: TPaintBox;
    bAccessRemove: TSpeedButton;
    pbAccessRemove: TPaintBox;
    bAccessClear: TSpeedButton;
    pbAccessClear: TPaintBox;
    tbCSV: TToolBar;
    tbtCSVAutoFill: TToolButton;
    tbtCSVClear: TToolButton;
    lvCSVFields: TListView;
    sgrCSV: TStringGrid;
    laCSVColNumber: TLabel;
    cbCSVColNumber: TComboBox;
    laCSVSkipLines: TLabel;
    edtCSVSkipLines: TEdit;
    tsXMLOptions: TTabSheet;
    laStep_05: TLabel;
    Bevel8: TBevel;
    lvXMLDataSet: TListView;
    lvXML: TListView;
    bXMLAdd: TSpeedButton;
    pbXMLAdd: TPaintBox;
    bXMLAutoFill: TSpeedButton;
    pbXMLAutoFill: TPaintBox;
    bXMLRemove: TSpeedButton;
    pbXMLRemove: TPaintBox;
    bXMLClear: TSpeedButton;
    pbXMLClear: TPaintBox;
    lvXMLMap: TListView;
    mmBooleanTrue: TMemo;
    laBooleanTrue: TLabel;
    mmBooleanFalse: TMemo;
    laBooleanFalse: TLabel;
    mmNullValues: TMemo;
    laNullValues: TLabel;
    Image: TImage;
    lvXLSSelection: TListView;
    laReplacements: TLabel;
    lvReplacements: TListView;
    tbReplacements: TToolBar;
    tbtAddReplacement: TToolButton;
    tbtEditReplacement: TToolButton;
    tbtDelReplacement: TToolButton;
    chXMLWriteOnFly: TCheckBox;
    edAccessPassword: TEdit;
    laAccessPassword: TLabel;
    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 btnSaveTemplateClick(Sender: TObject);
    procedure btnDBFAutoFillClick(Sender: TObject);
    procedure btnDBFClearClick(Sender: TObject);
    procedure btnXLSAutoFillColsClick(Sender: TObject);
    procedure btnXLSAutoFillRowsClick(Sender: TObject);
    procedure btnCSVAutoFillClick(Sender: TObject);
    procedure bCancelClick(Sender: TObject);
    procedure rbtAccessTableClick(Sender: TObject);
    procedure rbtAccessSQLClick(Sender: TObject);
    procedure sbtAccessSQLLoadClick(Sender: TObject);
    procedure sbtAccessSQLSaveClick(Sender: TObject);
    procedure lbAccessTablesClick(Sender: TObject);
    procedure memAccessSQLChange(Sender: TObject);
    procedure bAccessAddClick(Sender: TObject);
    procedure bAccessAutoFillClick(Sender: TObject);
    procedure bAccessRemoveClick(Sender: TObject);
    procedure bAccessClearClick(Sender: TObject);
    procedure lstAccessMapChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure lstAccessDataSetChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure lstAccessChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    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 edtTXTSkipLinesChange(Sender: TObject);
    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 cbCommaExit(Sender: TObject);
    procedure cbQuoteExit(Sender: TObject);
    procedure lvAvailableColumnsDblClick(Sender: TObject);
    procedure KeyColumnsDragOver(Sender, Source: TObject; X,
      Y: Integer; State: TDragState; var Accept: Boolean);
    procedure KeyColumnsDragDrop(Sender, Source: TObject; X,
      Y: Integer);
    procedure lvSelectedColumnsDblClick(Sender: TObject);
    procedure bAllToRightClick(Sender: TObject);
    procedure bOneToRirghtClick(Sender: TObject);
    procedure bOneToLeftClick(Sender: TObject);
    procedure bAllToLeftClick(Sender: TObject);
    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 lvXLSRangesSelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    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 pbXMLAddPaint(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 pbXMLAutoFillPaint(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 pbXMLRemovePaint(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 pbXMLClearPaint(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 lvXLSRangesDblClick(Sender: TObject);
    procedure bXMLAddClick(Sender: TObject);
    procedure bXMLAutoFillClick(Sender: TObject);
    procedure bXMLRemoveClick(Sender: TObject);
    procedure bXMLClearClick(Sender: TObject);
    procedure pbAccessAddPaint(Sender: TObject);
    procedure bAccessAddMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure bAccessAddMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbAccessAutoFillPaint(Sender: TObject);
    procedure bAccessAutoFillMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure bAccessAutoFillMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbAccessRemovePaint(Sender: TObject);
    procedure bAccessRemoveMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure bAccessRemoveMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure pbAccessClearPaint(Sender: TObject);
    procedure bAccessClearMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure bAccessClearMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    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 chXMLWriteOnFlyClick(Sender: TObject);
    procedure lvXLSFieldsEnter(Sender: TObject);
    procedure lvXLSFieldsExit(Sender: TObject);
    procedure edAccessPasswordChange(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    FImportType: TAllowedImport;
    FComma: char;
    FQuote: char;
    FFileName: string;
    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;
    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;

    FAccessPassword: string;
    FAccessSourceType: TQImportAccessSourceType;

    FLoadingFormatItem: boolean;
    FFormatItem: TListItem;

    FTmpFileName: string;

    procedure SetImportType(const Value: TAllowedImport);

    procedure SetCaptions;

    procedure TuneOpenDialog;
    procedure ChangeExtension;
    procedure TuneAccessControls;
    procedure TuneCSVControls;