我用delphi做了一个单机版的数据库处理系统（sql数据库)

1.在窗体上添加ADOConnection,ADOTable,DataSource控件各一个
2.把ADOTable关联到ADOConnection，把DataSource关联到ADOTable
3.双击ADOConnection控件的ConnectionString属性，在弹出的对话框中选择数据提供器，如果是Access就选Jet4.0，是SQL Server就选SQL Server Provider
4.点击下一步(英文版是Next)，选择要连接的数据库，如果是SQL Server,Oracle等需要提供正确的用户名和密码
5.点击测试连接，成功后关闭对话框
6.把ADOConnection的Active属性设为True
7.在窗体上放置一个DBGrid控件
8.把DBGrid关联到DataSource上
9.运行程序，就能看到数据显示出来了
10.如果要操作数据，就再添加一个DBNavigator控件，也要关联到DataSource

整个过程不需要编写任何代码，直接拖放控件，设定属性即可

首先 得到 局域网中 装有 SQL的计算机名

var
SQLServer:Variant;
ServerList:Variant;
i,nServers:integer;
sRetValue:String;
begin
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList:= SQLServer.ListAvailableSQLServers;
nServers:=ServerList.Count;

for i := 1 to nservers do
begin<