delphi根据填写的字符串连接数据库并读取数据库的表显示到ComboBox和表的字段及数据显示到TDBGrid

在Delphi中，你可以根据填写的字符串连接到数据库，并将数据库的表显示到ComboBox控件中，同时将选定的表的字段和数据显示到TDBGrid控件中。以下是一个示例代码：

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

    // 连接数据库
    ADOConnection1.Connected := True;

    // 创建ADOTable组件
    ADOTable1 := TADOTable.Create(Self);
    ADOTable1.Connection := ADOConnection1;

    // 设置要读取的表名
    ADOTable1.TableName := ComboBox1.Text; // ComboBox控件用于选择表名

    // 打开表
    ADOTable1.Open;

    // 将表名显示到ComboBox控件
    ComboBox1.Items.Clear;
    ADOConnection1.GetTableNames(ComboBox1.Items);

    // 显示字段和数据到TDBGrid控件
    DBGrid1.DataSource := DataSource1;
    DataSource1.DataSet := ADOTable1;

  except
    on E: Exception do
      ShowMessage('连接数据库出错: ' + E.Message);
  end;
end;

在上述示例代码中，我们假设连接字符串由一个名为Edit1的Edit控件输入，表名由ComboBox1控件选择。点击按钮后，会获取Edit1中的连接字符串，并使用ADO连接组件连接到数据库。然后，我们创建一个ADOTable组件，并设置要读取的表名为ComboBox1中选定的表名。接着，打开表，并将表名显示到ComboBox控件中。最后，将字段和数据显示到TDBGrid控件中。

请确保在设计时已经正确设置了相关的数据库组件（如ADOConnection、ADOTable、DataSource和DBGrid）。

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