unitmain.~pas

delphi使用sqlserver2000中dts导入导出数据

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DoThread,DTS, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Delay(msecs:integer);
  private
    { Private declarations }
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Delay(msecs:integer);
var 
    Tick: DWord;
    Event: THandle;
begin
    Event := CreateEvent(nil, False, False, nil);
    try
        Tick := GetTickCount + DWord(msecs);
        while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) <> WAIT_TIMEOUT) do
        begin
          Application.ProcessMessages;
          msecs := Tick - GetTickcount;
        end;
    finally
        CloseHandle(Event);
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:TDTSUnit;
    Datafile,SQLserverIP,DBname,Username,Password,M,ErrOutPutFile:string;
begin
    Datafile:='D:\DTS2000\DTS6\depart.csv';
    SQLserverIP:='127.0.01';
    DBname:='JYT';
    Username:='sa';
    Password:='sa';
    ErrOutPutFile:='D:\DTS2000\DTS6\depart.log';

    a:=TDTSUnit.Create;
    a.InitializeFromText(Datafile);
    a.InitializeToSQL(SQLserverIP,DBname,Username,Password,'AccountTbdepart');
    if a.Execute(ErrOutPutFile,'D:\DTS2000\DTS6\InsertDepart.bas',M) then
    Button1.Caption :='ok'
    else
    Button1.Caption := M;
    a.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var     a:TDoThread;
begin
   Button2.Enabled:=false;
   a:=TDoThread.Create(self);
   a.Resume;
   while a.Result=false do
   begin
       ProgressBar1.Position:=ProgressBar1.Position+1;
       if ProgressBar1.Position=100 then ProgressBar1.Position:=0;
       delay(50);
   end;
   ProgressBar1.Position:=100;
   Button2.Caption:=a.Msg;
   Button2.Enabled:=true;
   if Assigned(a) then
   a.Terminate;
end;

procedure TForm1.dochange(Actiontype:integer;filename: string;Path:string;item:integer);
begin
       Button2.Caption:= filename;
       Button2.Enabled:=true;
end;

end.