procedure Tmainform.getdatabasedata(db,tb,us,pw:string);
var
sql:string;
begin
sql:='EXEC master..xp_cmdshell '+#39+'bcp "select * from '+db+'..'+tb+'" queryout "c:/'+tb+'.txt" -c -S"(local)" -U"'+us+'" -P"'+pw+'" '+#39;
query1.SQL.Clear;
query1.ParamCheck:=False;//不加这个会报错，不正常添加参数信息
query1.SQL.Add(sql);
query1.ExecSQL;
end;