******非常急！我想在DELPHI中用程序实现控制SQL SERVER 2000但不知道怎么实现，在线等待。。。。。****

Question

我想在DELPHI中用程序实现控制SQL SERVER 2000但不知道怎么实现，要实现的功能如下：
1 检测sqlserver是否安装,如果没有安装，提示管理员安装sqlserver
2 检测sqlserver是否运行
3 如果没有启动，启动sqlserver
4 检察是否初始化（也就是用不同方式登录）
  如果都不能登录，弹出登录窗口输入帐号、密码
6 检测应用数据库是否工作正常
7 得到sqlserver工作状态及各表的工作状态
8 显示以前备份的历史记录
如果那位有这方面的资料，或好的建议和方法。分数不够我可以另加！

Answer 1

http://expert.csdn.net/Expert/topic/1690/1690459.xml?temp=.7588007

Answer 2

你还是先看一本《SQL Server 大全》吧！

Answer 3

你还是先看一本《SQL Server 大全》吧！
有没有下载这本书的地址！

Answer 4

1。检测sqlserver是否安装,如果没有安装，提示管理员安装sqlserver
procedure TForm1.Button1Click(Sender: TObject);
var currentPath:string;
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    //判断是否安装mssqlserver2000
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if not reg.openkeyReadOnly('\SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion') then begin
      showmessage('MS SQL Server 2000不存在！请先安装MS SQL Server 2000。');
      exit;
    end;
    if not (reg.ReadString('CurrentVersion')>'8') then begin//如果不是2000，改一下这句
      showmessage('MS SQL Server 版本太低！请先安装MS SQL Server 2000。');
      exit;
    end;
  finally
    reg.CloseKey;
    reg.Free;
  end;
end.

Answer 5

1。是否安装你可以检查注册表
2。是否启动你可以用odbcping