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

在Delphi中，你可以通过点击按钮来连接字符串，连接数据，并确定连接是否成功。以下是一个示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  ConnectionString: string;
  Connected: Boolean;
begin
  // 构建连接字符串
  ConnectionString := 'Driver={SQL Server};Server=127.0.0.1;Database=MyDatabase;User ID=sa;Password=123456;';
  
  // 连接数据库
  try
    // 在这里执行连接数据库的操作，例如使用ADO组件的TADOConnection
    ADOConnection1.ConnectionString := ConnectionString;
    ADOConnection1.Connected := True;
    
    // 判断是否连接成功
    Connected := ADOConnection1.Connected;
    
    if Connected then
      ShowMessage('连接成功')
    else
      ShowMessage('连接失败');
  except
    on E: Exception do
    begin
      ShowMessage('连接失败: ' + E.Message);
    end;
  end;
end;

在上述示例代码中，我们使用了ADO组件的TADOConnection来连接数据库。你需要根据你实际使用的数据库组件进行相应的调整。

当点击按钮时，会构建连接字符串并尝试连接数据库。如果连接成功，会显示"连接成功"的消息框；如果连接失败，会显示"连接失败"的消息框，并将具体的连接失败信息显示出来。

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