bd и нажатие кнопки. Как выбирать разные файлы БД для подключения? - Delphi БД - Ответ 4520402

//Открыть соединение с базой данных.
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  Sl : TStringList;
  Od : TOpenDialog;
begin
  Od := OpenDialog1; //OpenDialog1 уже должен быть на форме.
  if Od.InitialDir = '' then
    Od.InitialDir := ExtractFilePath( ParamStr(0) );
  if not Od.Execute then Exit;
  if not FileExists(Od.FileName) then begin
    MessageBox(0, 'Файл с заданным именем не найден. Действие отменено.'
      ,'Файл не найден', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
 
  ADOConnection1.Close;
 
  //Настройка пути к файлу базы данных.
 
  //Получаем параметры подключения из ADOConnection1.ConnectionString в виде списка.
  Sl := TStringList.Create;
  //Перед присвоением значения свойству Text, заменяем знаки ';' на пары знаков #13#10.
  Sl.Text := StringReplace(ADOConnection1.ConnectionString, ';', #13#10, [rfReplaceAll]);
  //Проверяем, присутствует ли параметр "Data Source".
  i := Sl.IndexOfName('Data Source');
  {Параметр "Data Source" должен иметь значение, равное полному пути к файлу
  базы данных. Если параметр "Data Source" уже присутствует, то устанавливаем
  его значение. Если такого параметра нет, то добавляем этот параметр вместе
  со значением.}
  if i > -1 then
    Sl.Values['Data Source'] := '"' + Od.FileName + '"'
  else
    Sl.Add('Data Source="' + Od.FileName + '"');
  //Перед присвоением значения свойству ConnectionString, заменяем пары знаков #13#10
  //на знак ';'.
  ADOConnection1.ConnectionString := StringReplace(Trim(Sl.Text), #13#10, ';', [rfReplaceAll]);
  FreeAndNil(Sl);
 
  //Открываем базу данных.
  ADOConnection1.Open;
end;

procedure TForm1.FormShow(Sender: TObject);
var
  i: integer;
begin
  with Module.TabQuery do
  begin
    DisableControls;
    ComboBox1.Items.BeginUpdate;
    First;
 
    for i:=0 to Module.TabQuery.FieldCount-1 do
    ComboBox1.Items.Add(Module.TabQuery.FieldDefList[i].Name);
 
    ComboBox1.Items.EndUpdate;
    EnableControls;
  end;
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  S: string;
  i: integer;
begin
  S:='%%';
  module.FindQuery.Close;
 
  for i:=0 to Module.TabQuery.FieldCount-1 do
  begin
    if module.FindQuery.Fields[i].DisplayName=ComboBox1.Text then
    module.FindQuery.Fields[i].Visible:=true
    else
    module.FindQuery.Fields[i].Visible:=false;
  end;
  module.FindQuery.FieldByName('дата').Visible:=true;
 
  form6.Series1.YValues.ValueSource:=ComboBox1.Text;
  form6.DBChart1.Title.Text[0]:=ComboBox1.Text;
 
  module.FindQuery.SQL.Clear;
 
  //showmessage(format('SELECT * FROM лист1 WHERE %s LIKE "%s" ORDER BY %s', [ComboBox1.Text, S, ComboBox1.Text]));
  module.FindQuery.SQL.Text:=format('SELECT * FROM Ћист1 WHERE [%s] LIKE "%s" ORDER BY [%s]', [ComboBox1.Text, S, ComboBox1.Text]);
  module.FindQuery.Open;
  Form6.ShowModal;
end;