delphi通过点击按钮测试输入的连接字符串连接数据确定是否连接成功

在Delphi中，你可以通过点击按钮来测试输入的连接字符串是否能够成功连接到数据库。以下是一个示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  ConnectionString: string;
  Connected: Boolean;
  ADOConnection1: TADOConnection;
begin
  // 构建连接字符串
  ConnectionString := Edit1.Text; // 假设连接字符串由一个Edit控件输入
  
  // 创建ADO连接组件
  ADOConnection1 := TADOConnection.Create(Self);
  try
    // 设置连接字符串
    ADOConnection1.ConnectionString := ConnectionString;

    // 连接数据库
    try
      ADOConnection1.Connected := True;
      Connected := ADOConnection1.Connected;
    except
      on E: Exception do
        Connected := False;
    end;

    // 判断是否连接成功
    if Connected then
      ShowMessage('连接成功')
    else
      ShowMessage('连接失败');
  finally
    // 关闭并释放连接组件
    ADOConnection1.Close;
    ADOConnection1.Free;
  end;
end;

在上述示例代码中，我们假设连接字符串由一个名为Edit1的Edit控件输入。点击按钮后，会获取Edit1中的连接字符串，并尝试连接到数据库。如果连接成功，会显示"连接成功"的消息框；如果连接失败，会显示"连接失败"的消息框。

请注意，上述示例中使用了ADO连接组件（TADOConnection）。你需要在使用前确保已经在程序中添加了相应的ADO组件，并进行相应的设置。

希望这可以帮助到你！如果你有任何其他问题，请随时提问。