adoquery.Close;
      adoquery.SQL.Clear;
      adoquery.SQL.Add('select name from '+DatabaseName+'.dbo.sysobjects where xtype=''TR'' and name=''sp_Archive''');
      adoquery.Open;
      ShowHint('初始化系统数据....',240);
      if adoquery.RecordCount>0 then
      begin
        adoQuery.Close ;
        adoQuery.SQL.Text:='drop trigger sp_Archive';
        adoQuery.ExecSQL;
      end;