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

var ADO_Access : TADOConnection;
begin
     ADO_Access.ConnectionString :=
          'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'+
          'Data Source= <ПОЛНОЕ_ИМЯ _ФАЙЛА> ;'+
          'Mode=Read|Write;'+
          'Persist Security Info=False;'+
          'Jet OLEDB:Database Password="<ПАРОЛЬ>"';
    ADO_Access.Open;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 
Table1.Active:=False;
OpenDialog1.Execute;
Table1.TableName:=OpenDialog1.FileName;
datasource1.DataSet:=table1;
DBGrid1.DataSource:=DataSource1;
table1.Active:=True;
 
 // module.TabQuery.Delete;
 
end;

//Открыть соединение с базой данных.
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;

ADOQuery1.SQL.Text := 'select * from ' + TableName;

//1. Перейти на нужную запись.
...
//2. Перевести набор данных в режим редактирования.
ADOQuery1.Edit;
//3. Изменить значения полей.
ADOQuery1.Fields[0].AsString := 'новое значение_F0';
ADOQuery1.Fields[1].AsString := 'новое значение_F1';
...
//4. Отправить изменения в базу.
ADOQuery1.Post;
//5. Здесь или в другом месте сохранить изменения в базе.
ADOConnection1.CommitTrans;

//Показать только 2 поля: поле "Дата" и поле, выбранное пользователем через ComboBox.
procedure TForm1.Button1Click(Sender: TObject);
var
  i, Ind : Integer;
begin
  //Получаем индекс поля из ComboBox. Предположим, этот индекс совпадает с индексом в наборе Fields:
  Ind := ComboBox1.ItemIndex;
  if Ind = -1 then Exit;
  if not AdoQuery1.Active then Exit;
 
  //ADOQuery1.Fields[0] - это поле "Дата".
  //Если выбран неверный индекс, то выходим.
  if (Ind < 1) or (Ind >= ADOQuery1.Fields.Count) then Exit;
  //Оставляем видимыми только 2 поля: ADOQuery1.Fields[0] и ADOQuery1.Fields[Ind].
  //Остальные поля прячем.
  for i := 1 to ADOQuery1.Fields.Count - 1 do
    if i <> Ind then
      ADOQuery1.Fields[i].Visible = False;
end;

//Открыть соединение с базой данных.
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;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  S: string;
  i: integer;
begin
  S:='%%';
 form2.adoQuery2.Close;
 
  for i:=0 to form1.adoQuery1.FieldCount-1 do
  begin
    if form2.adoQuery2.Fields[i].DisplayName=ComboBox1.Text then
   form2.adoQuery2.Fields[i].Visible:=true
    else
    form2.adoQuery2.Fields[i].Visible:=false;
  end;
  form2.adoQuery2.FieldByName('дата').Visible:=true;
 
 // form6.Series1.YValues.ValueSource:=ComboBox1.Text;
  //form6.DBChart1.Title.Text[0]:=ComboBox1.Text;
 
 form2.adoQuery2.SQL.Clear;
  // ADOQuery1.SQL.Text := 'select * from [' + gTableName + ']'
  //showmessage(format('SELECT * FROM лист1 WHERE %s LIKE "%s" ORDER BY %s', [ComboBox1.Text, S, ComboBox1.Text]));
  form2.adoQuery2.SQL.Text:=format('SELECT * FROM ['+gTableName+'] WHERE [%s] LIKE "%s" ORDER BY [%s]', [ComboBox1.Text, S, ComboBox1.Text]);
  form2.adoQuery2.Open;
  Form2.ShowModal;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls;
 
type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    ListBox1: TListBox;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOQuery2: TADOQuery;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure ADOConnection1AfterConnect(Sender: TObject);
    procedure ADOConnection1AfterDisconnect(Sender: TObject);
    procedure ADOQuery1AfterOpen(DataSet: TDataSet);
    procedure ADOQuery1AfterClose(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses
  ComObj;
 
var
  gFileName : String = '';  //Имя открытой базы данных (полный путь к файлу БД).
  gTableName : String = ''; //Имя открытой таблицы.
 
{Функция для экспорта таблицы aDSet на лист рабочей книги MS Excel в позицию
левого верхнего угла диапазона aRng.
Функция возвращает ссылку на диапазон таблицы MS Excel.}
function TableToExcel(aDSet : TDataSet; const aRng : Variant) : Variant;
var
  vArr, exRng, exSh : Variant;
  i, Row, Col : Integer;
  Bm : TBookmarkStr;
begin
  Result := Unassigned;
  if not aDSet.Active or (TVarData(aRng).VDispatch = nil) then Exit;
 
  aDSet.DisableControls;
  try
    //Установка закладки на текущую позицию в таблице.
    Bm := aDSet.Bookmark;
 
    //Подсчитываем количество видимых столбцов.
    Col := 0;
    for i := 0 to aDSet.Fields.Count - 1 do
      if aDSet.Fields[i].Visible then
        Inc(Col);
    {Создаём вариантный массив, в который мы запишем данные таблицы.
    aDSet.RecordCount + 1 - так мы учитываем шапку таблицы.}
    vArr := VarArrayCreate([1, aDSet.RecordCount + 1, 1, Col], varOleStr);
 
    //Записываем в массив шапку таблицы.
    Col := 0;
    Row := 1;
    for i := 0 to aDSet.Fields.Count - 1 do
      if aDSet.Fields[i].Visible then begin
        Inc(Col);
        vArr[Row, Col] := aDSet.Fields[i].DisplayName;
      end;
 
    //Записываем в массив данные таблицы.
    aDSet.First;
    while not aDSet.Eof do begin
      Inc(Row);
      //Запись данных в элементы очередной строки массива.
      Col := 0;
      for i := 0 to aDSet.Fields.Count - 1 do
        if aDSet.Fields[i].Visible then begin
          Inc(Col);
          vArr[Row, Col] := aDSet.Fields[i].AsString;
        end;
      aDSet.Next; //Переход к следующей записи в наборе.
    end;
    aDSet.Bookmark := Bm; //Переходим к установленной ранее закладке.
  finally
    aDSet.EnableControls;
  end;
 
  {Определяем диапазон на листе MS Excel, в который будут записаны данные
  вариантного массива.}
  exSh := aRng.Parent; //Ссылка на лист MS Excel.
  Row := VarArrayHighBound(vArr, 1); //Количество строк в массиве.
  Col := VarArrayHighBound(vArr, 2); //Количество столбцов в массиве.
  exRng := exSh.Range[ aRng.Cells[1, 1], aRng.Cells[1, 1].Offset[Row - 1, Col - 1] ];
  //Записываем данные вариантного массива в диапазон MS Excel.
  exRng.Value := vArr;
 
  //Возвращаем ссылку на диапазон, в который записана таблица.
  Result := exRng;
end;
 
//После создания формы.
procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.ReadOnly := True; //Запрет на редактирование в Memo1.
end;
 
//Перед закрытием формы.
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADOConnection1.Close;
end;
 
//Открыть соединение с базой данных.
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  Ext : String;
  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 + '"');
 
  //Если открывается файл MS Excel, то следует добавить дополнительный параметр.
  Ext := AnsiUpperCase(ExtractFileExt(Od.FileName));
  if (Ext = '.XLS') or (Ext = '.XLSX') then begin
    i := Sl.IndexOfName('Extended Properties');
    if i > -1 then
      Sl.Values['Extended Properties'] := 'Excel 8.0'
    else
      Sl.Add('Extended Properties=Excel 8.0');
  end else begin
    //Если это не файл MS Excel, то следует убрать дополнительный параметр.
    i := Sl.IndexOfName('Extended Properties');
    if i > -1 then Sl.Delete(i);
  end;
 
  //Перед присвоением значения свойству ConnectionString, заменяем пары знаков #13#10
  //на знак ';'.
  ADOConnection1.ConnectionString := StringReplace(Trim(Sl.Text), #13#10, ';', [rfReplaceAll]);
  FreeAndNil(Sl);
 
  gFileName := Od.FileName;
  //Открываем базу данных.
  ADOConnection1.Open;
  //Получаем список таблиц базы и записываем этот список в ListBox1.
  ADOConnection1.GetTableNames(ListBox1.Items);
end;
 
//Закрыть соединение с базой данных.
procedure TForm1.Button2Click(Sender: TObject);
begin
  ADOConnection1.Close;
end;
 
//Показать содержимое таблицы.
procedure TForm1.Button3Click(Sender: TObject);
var
  i : Integer;
  Ext : String;
begin
  if stClosed in ADOConnection1.State then begin
    MessageBox(0, 'Соединение с БД закрыто. Действие отменено.'
      ,'Отмена', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
  if ADOConnection1.State <> [stOpen] then begin
    MessageBox(0, 'Обработка не завершена. Повторите команду позже.'
      ,'Отмена', MB_OK + MB_ICONEXCLAMATION + MB_APPLMODAL);
    Exit;
  end;
  i := ListBox1.ItemIndex;
  if i = -1 then Exit;
 
  gTableName := ListBox1.Items[i];
  ADOQuery1.Close;
  Ext := AnsiUpperCase(ExtractFileExt(gFileName));
  if (Ext = '.XLS') or (Ext = '.XLSX') then
    ADOQuery1.SQL.Text := 'select * from [' + gTableName + ']'
  else
    ADOQuery1.SQL.Text := 'select * from ' + gTableName;
  ADOQuery1.Open;
 
  {Прячем все столбцы, кроме первого (его индекс = 0).
  И записываем в комбобокс перечень полей, кроме первого.}
  ComboBox1.Clear;
  for i := 0 + 1 to DBGrid2.Columns.Count - 1 do begin
    DBGrid2.Columns[i].Visible := False;
    ComboBox1.Items.Add(DBGrid2.Columns[i].FieldName);
  end;
end;
 
//Передать данные в MS Excel.
procedure TForm1.Button4Click(Sender: TObject);
const
  //Толщина линий.
  xlThin = 2;
  xlMedium = -4138;
  //Вид линии.
  xlContinuous = 1; //Непрерывная линия.
var
  exApp, exBook, exSh, exRng : Variant;
  i : Integer;
begin
  if not ADOQuery1.Active then Exit;
 
  //Попытка подключиться к корневому объекту MS Excel.
  try
    exApp := CreateOleObject('Excel.Application');
  except
    MessageBox(0, 'Не удалось запустить MS Excel. Действие отменено.',
      'Ошибка', MB_OK + MB_ICONERROR + MB_APPLMODAL);
    Exit;
  end;
  //Делаем видимым окно MS Excel. На время отладки или на постоянной основе.
  exApp.Visible := True;
  //Создаём рабочую книгу.
  exBook := exApp.WorkBooks.Add;
  //Получаем ссылку на первый лист рабочей книги.
  exSh := exBook.Worksheets[1];
 
  //Готовим набор данных.
  ADOQuery2.Close;
  ADOQuery2.SQL.Text := ADOQuery1.SQL.Text;
  ADOQuery2.Open;
  //В ADOQuery2 показываем поля в соответствие с DBGrid2.
  for i := 0 to DBGrid2.Columns.Count - 1 do
    ADOQuery2.Fields[i].Visible := DBGrid2.Columns[i].Visible;
 
  {Запись таблицы на лист MS Excel.
  exSh.Cells[4, 3] - левая верхняя ячейка на листе, начиная с которой мы
  желаем расположить таблицу.
  exRng - это диапазон на листе MS Excel, в который записана таблица.}
  try
    exRng := TableToExcel(ADOQuery2, exSh.Cells[4, 3]);
  finally
    ADOQuery2.Close;
  end;
 
  //Здесь выполняем оформление диапазона таблицы exRng - линовка, шрифты и пр.
  exRng.Rows[1].Font.Bold := True; //Для шапки - жирный шрифт.
  //Обрамление ячеек для всей таблицы.
  exRng.Borders.LineStyle := xlContinuous;
  exRng.Borders.Weight := xlThin;
  //Обрамление ячеек для шапки таблицы.
  exRng.Rows[1].Borders.Weight := xlMedium;
  //Подбор ширины столбцов по содержимому.
  exRng.Columns.AutoFit;
 
  //Заголовок таблицы (название таблицы).
  exSh.Cells[3, 3].Value := 'Таблица: "' + gTableName + '"';
  exSh.Cells[3, 3].Font.Bold := True; //Жирный шрифт.
end;
 
//Если пользователь выбрал элемент в комбобоксе.
procedure TForm1.ComboBox1Select(Sender: TObject);
var
  i : Integer;
  FName : String;
begin
  i := ComboBox1.ItemIndex; //Индекс выбранного элемента.
  if i = -1 then Exit;
 
  {Показываем выбранный столбец, все другие, кроме столбца с индексом, равным
  нулю, прячем.}
  FName := ComboBox1.Items[i];
  for i := 0 + 1 to DBGrid2.Columns.Count - 1 do
    if DBGrid2.Columns[i].FieldName = FName then
      DBGrid2.Columns[i].Visible := True
    else
      DBGrid2.Columns[i].Visible := False;
end;
 
//После открытия соединения.
procedure TForm1.ADOConnection1AfterConnect(Sender: TObject);
begin
  Memo1.Text := gFileName;
end;
 
//После закрытия соединения.
procedure TForm1.ADOConnection1AfterDisconnect(Sender: TObject);
begin
  Memo1.Clear;
  ListBox1.Clear;
end;
 
//После открытия набора данных.
procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
  Label3.Caption := 'Таблица: "' + gTableName + '"';
end;
 
//После закрытия набора данных.
procedure TForm1.ADOQuery1AfterClose(DataSet: TDataSet);
begin
  Label3.Caption := 'Таблица:';
  ComboBox1.Clear;
end;
 
end.

//Если пользователь выбрал элемент в комбобоксе.
procedure TForm1.ComboBox1Select(Sender: TObject);
var
  i : Integer;
  FName : String;
begin
  i := ComboBox1.ItemIndex; //Индекс выбранного элемента.
  if i = -1 then Exit;
 
  {Показываем выбранный столбец, все другие, кроме столбца с индексом, равным
  нулю, прячем.}
  FName := ComboBox1.Items[i];
  for i := 0 + 1 to DBGrid2.Columns.Count - 1 do
    if DBGrid2.Columns[i].FieldName = FName then
      DBGrid2.Columns[i].Visible := True
    else
      DBGrid2.Columns[i].Visible := False;
end;

  {Показываем выбранный столбец, все другие, кроме столбца с индексом, равным
  нулю, прячем.}
  FName := ComboBox1.Items[i];
  for i := 0 + 1 to DBGrid2.Columns.Count - 1 do
    if DBGrid2.Columns[i].FieldName = FName then
      DBGrid2.Columns[i].Visible := True
    else
      DBGrid2.Columns[i].Visible := False;

  {Показываем выбранный столбец, все другие, кроме столбца с индексом, равным
  нулю, прячем.}
  FName := ComboBox1.Items[i];
  for i := 0 + 1 to DBGrid2.Columns.Count - 1 do
    DBGrid2.Columns[i].Visible := DBGrid2.Columns[i].FieldName = FName;