unit CardInOut_CleanUp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChildForm, StdCtrls, Buttons, ExtCtrls, Gauges,AdoDb,DataMod;

type
  TfCardInOut_CleanUp = class(TfBaseChildForm)
    Gauge1: TGauge;
    Label2: TLabel;
    Label3: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
     procedure doDataImport;
  end;

var
  fCardInOut_CleanUp: TfCardInOut_CleanUp;

implementation

uses InValidCards;

{$R *.dfm}

procedure TfCardInOut_CleanUp.doDataImport;
var
  temQue:TAdoQuery;
begin
     temQue:=TAdoQuery.Create(self);
     temQue.Connection :=fdatamod.AdoCon ;
     temque.ParamCheck :=False;
     //浪琩缽盽