p;   nullable_str:=adoquery1.fieldbyname(''nullable'').AsString ;
     str:= column_str +'' ''+'' ''+'' ''+ type_srt +'' ''+'' ''+'' ''+length_str+'' ''+'' ''+'' ''+nullable_str;
     SaveMIError(name_srt,str,''newserver'');
     adoquery1.Next;
     StaticText3.Caption:=''［当前状态］：下载源数据库表：''+name_srt;
     Application.ProcessMessages;
     progressbar1.StepIt ;
     end;
  except on e:exception do
    begin
      showmessage(e.Message ) ;
      exit;
    end;
  end;