delphi+ado+sqlserver的一个问题

Question

在delphi中，用ADO组件连接sqlserver服务器，怎样才能获得
整个网络上，即局域网的sqlserver服务器名，当获得了具体的
sql server服务器名，又怎样获得这个服务器上的数据库名最后获得
这个数据库的所有用户表。我现在正在做一个数据库管理方面的小
软件，希望各位多多帮忙！

Answer 1

1: 运行 OSQL -L 或运行SQL　语句：　exec master..xp_cmdshell 'OSQL -L'
2: select * from master..sysdatabases
3: select * from 数据库名..sysobjects where xtype = 'U' and status > 0

Answer 2

直接用sql语句就可以了吧，原来这样简单了

Answer 3

上面的sql语句是不是将系统数据库和系统表都检索出来了，那如果不需要检索出系统数据库和系统表的话，那该怎样写这个sql语句？