数据库编程问题！

Question

怎样知道网络中SQLSERVER服务器名称。以及是否存在着某个已建的数据库。

Answer 1

获得网络中SQLSERVER服务器名：
uses ......, comobj;procedure TForm1.Button1Click(Sender: TObject);var
   SQLServer:Variant;
   ServerList:Variant;
   i,nServers:integer;
begin
  if Combobox1.Items.Count=0 then
  begin
    try
      SQLServer := CreateOleObject('SQLDMO.Application');
      ServerList:= SQLServer.ListAvailableSQLServers;
      nServers:=ServerList.Count;
      Combobox1.Clear;
      for i := 1 to nservers do
          Combobox1.Items.Add(ServerList.Item(i));
      SQLServer:=Unassigned;
      serverList:=Unassigned;
    except
    end;
  end;
end;

Answer 2

interfaceuses
  Windows, Messages, SysUtils, Classes, s_reg,S_datafun,Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons;type
  Tfrm_database = class(TForm)
    Panel1: TPanel;
    img_bz: TImage;
    lbl_01: TLabel;
    lbl_02: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Edit1: TEdit;
    SaveDialog1: TSaveDialog;
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  frm_database: Tfrm_database;
  user_id:string;
  datamannger:string;
  filename1:string;implementation
//uses  S_datafun;
{$R *.DFM}procedure Tfrm_database.FormCreate(Sender: TObject);
begin
  datamannger:=GetRegString(HKEY_LOCAL_MACHINE,'\SOFTWARE\兴财软件\非税收入监管系统','datamannger','');end;procedure Tfrm_database.Button3Click(Sender: TObject);
begin
close;
end;procedure Tfrm_database.Button1Click(Sender: TObject);
var
servername:string;
databasename:string;
username:string;
password:string;
begin
//showmessage(datamannger);
servername:=s_datafun.getservername(datamannger);
databasename:=s_datafun.getdatabasename(datamannger);
username:=s_datafun.getusername(datamannger);
password:=s_datafun.getpassword(datamannger);
s_datafun.backupdatabase(servername,databasename,username,password,filename1);
end;
procedure Tfrm_database.Button2Click(Sender: TObject);
var
servername:string;
databasename:string;
username:string;
password:string;
begin
servername:=s_datafun.getservername(datamannger);
databasename:=s_datafun.getdatabasename(datamannger);
username:=s_datafun.getusername(datamannger);
password:=s_datafun.getpassword(datamannger);
s_datafun.restoredatabase(servername,databasename,username,password,filename1);
end;procedure Tfrm_database.SpeedButton1Click(Sender: TObject);
begin
  if  savedialog1.execute  then
  begin
    edit1.text:=savedialog1.filename;
    filename1:=savedialog1.filename;
  end;
end;end.

Answer 3

to cg1120(代码最优化－§新年祝福你，好运伴着你):
看不太懂，s_datafun是什么呀？