Выбор имени компонента через ComboBox

@Shura_deg · Регистрация: 01.02.2015

Author24 — интернет-сервис помощи студентам

как правильно сделать???
.........
var
strFieldOtchet1:string;
................................
case ComboBox1.ItemIndex of
0: strFieldOtchet1:='fDM.ADOQuery1';
.............................................
Sheet.Cells[2,i]:=strFieldOtchet1.Fields[i-1].FieldName;

Скандербег · 01.11.2015, 14:40

Если strFieldOtchet1 это строковая переменная, то обращение к такой переменной не предполагает наличие каких либо методов и свойств как в классе.
После присвоения strFieldOtchet1:='fDM.ADOQuery1'; в переменной будет только строка 'fDM.ADOQuery1', но никак не объект ADOQuery1.
Отсюда обращаться к strFieldOtchet1 как к классу вызовет ошибку и ничего хорошего из такого вызова не получится.
Т.е. нельзя преобразовать строковую переменную к какому-нибудь классу - это не реально.

@Shura_deg · 01.11.2015, 14:44 **[ТС]**

а как тогда можно сделать?

@Shura_deg · 01.11.2015, 14:46 **[ТС]**

что бы при выборе в комбо бокс таблицы при нажатии на кнопку отчёт (в зависимости от той или иной выбранной таблицы в комбо бокс) выводился тот или иной отчёт

Скандербег · 01.11.2015, 14:56

А "отчет" здесь вообще при чем? И что такое "отчет" в вашем понимании тоже не ясно.
Видимо, выбор таблицы БД в комбобоксе должно менять текст SQL запроса в ADOQuery1
с таким расчетом, чтобы в гриде отображались данные из выбранной в комбобоксе таблицы. Может быть.
Чего на форме второй грид делает? В тему он там?

@Shura_deg · 01.11.2015, 15:03 **[ТС]**

так на всякий случай весь код!

Delphi

unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, Menus, ExtCtrls, StdCtrls,ComObj ;
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Splitter1: TSplitter;
    Panel2: TPanel;
    Panel3: TPanel;
    Bevel1: TBevel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    RadioGroup1: TRadioGroup;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    RadioGroup2: TRadioGroup;
    Button2: TButton;
    Button1: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Edit1Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses DM;
 
{$R *.dfm}
 
procedure TForm1.Edit1Change(Sender: TObject);
var
 strField:string;
begin //start
 if not CheckBox1.Checked then Exit;
 if Edit1.Text <> '' // пользователь ввел инф
 then begin
 // выбрать поле поиска
 case RadioGroup1.ItemIndex of
  0: strField:='Model';
  1: strField:='Brend';
  2: strField:='Vid';
  3: strField:='Tip';
  4: strField:='Ctoimost';
 end;
 // выполнить поиск
 fDM.ADOQuery1.Close;                              // |
 fDM.ADOQuery1.SQL.Clear;                 //  ' LIKE "%'+Edit1.Text+'%"' - ищет фрагмент текста
 fDM.ADOQuery1.SQL.Add('Select * from TovarMain where '+strField+' LIKE "'+Edit1.Text+'%"');
 fDM.ADOQuery1.Open;
 fDM.ADOQuery1.FieldByName('Model').DisplayLabel:='Модель';
 fDM.ADOQuery1.FieldByName('Tip').DisplayWidth:=20;
 fDM.ADOQuery1.FieldByName('Vid').DisplayWidth:=20;
 DBGrid1.DataSource:=fDM.DSQuery1;
 end else begin
   // вывести таблицу
  fDM.ADOQuery1.Close;
  fDM.ADOQuery1.SQL.Clear;
  fDM.ADOQuery1.SQL.Add('Select * from TovarMain');
  fDM.ADOQuery1.Open;
  fDM.ADOQuery1.FieldByName('Model').DisplayLabel:='Модель';
  fDM.ADOQuery1.FieldByName('Tip').DisplayWidth:=20;
  fDM.ADOQuery1.FieldByName('Vid').DisplayWidth:=20;
  DBGrid1.DataSource:=fDM.DSQuery1;
 end;
 
end; //end
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex = 0 then
DBGrid1.DataSource := fDM.DSTovarMainData;
if ComboBox1.ItemIndex = 1 then begin
fDM.TPokupatelData.MasterFields:='';
DBGrid1.DataSource := fDM.DSPokupatelData;
end;
if ComboBox1.ItemIndex = 2 then begin
fDM.TotchetData.MasterFields:='';
DBGrid1.DataSource := fDM.DSotchetData;
end;
if ComboBox1.ItemIndex = 3 then begin
fDM.TckladData.MasterFields:='';
fDM.TckladData.MasterSource:=fDM.DSckladData;
DBGrid1.DataSource := fDM.DSckladData;
end; end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 if CheckBox1.Checked=true
 then
  begin
   CheckBox1.Caption:='Режим поиска включен';
   Edit1.SetFocus;
  end
 else CheckBox1.Caption:='Режим поиска выключен';
end;
 
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
if ComboBox2.ItemIndex = 0 then
DBGrid2.DataSource := fDM.DSTovarMainData;
if ComboBox2.ItemIndex = 1 then begin
fDM.TPokupatelData.MasterFields:='IDPokupatela';
DBGrid2.DataSource := fDM.DSPokupatelData;
end;
if ComboBox2.ItemIndex = 2 then begin
fDM.TotchetData.MasterFields:='IdTovara';
DBGrid2.DataSource := fDM.DSotchetData;
end;
if ComboBox2.ItemIndex = 3 then begin
fDM.TckladData.MasterFields:='IdTovara';
DBGrid2.DataSource := fDM.DSckladData;
end; end;
 
procedure TForm1.Button2Click(Sender: TObject);
 var
 XLApp,Sheet,Colum:Variant;
 vertical,i,j:Integer;
begin
 // выполнить запрос
 if RadioGroup2.ItemIndex=0 then begin
 fDM.ADOQuery1.Close;
 fDM.ADOQuery1.SQL.Clear;
 fDM.ADOQuery1.SQL.Add('SELECT Kol, Ctoimost, Model, SUM(Kol*Ctoimost) AS SUMM');
 fDM.ADOQuery1.SQL.Add('FROM Cklad, TovarMain ');
 fDM.ADOQuery1.SQL.Add('WHERE Cklad.IdTovara=TovarMain.IdTovara');
 fDM.ADOQuery1.SQL.Add('GROUP BY  Kol, Ctoimost, Model');
 fDM.ADOQuery1.SQL.Add('ORDER BY 1 ASC');
 fDM.ADOQuery1.Open;
 DBGrid1.DataSource:=fDM.DSQuery1;
end;
 if RadioGroup2.ItemIndex=1 then begin
 fDM.ADOQuery1.Close;
 fDM.ADOQuery1.SQL.Clear;
 fDM.ADOQuery1.SQL.Add('Select * from TovarMain Where Brend="Bosh";');
 fDM.ADOQuery1.Open;
 DBGrid1.DataSource:=fDM.DSQuery1;
end;
 if RadioGroup2.ItemIndex=2 then begin
 fDM.ADOQuery1.Close;
 fDM.ADOQuery1.SQL.Clear;
 fDM.ADOQuery1.SQL.Add('SELECT count(*) as kolichestvoPokupatelei, Gorod from Pokupatel group by Gorod ORDER BY count(*);');
 fDM.ADOQuery1.Open;
 DBGrid1.DataSource:=fDM.DSQuery1;
  end;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
 var
 XLApp,Sheet,Colum:Variant;
 vertical,i,j:Integer;
begin
 XLApp:=CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
 
 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
 Colum.Columns[1].ColumnWidth:=20;
 Colum.Columns[2].ColumnWidth:=20;
 Colum.Columns[3].ColumnWidth:=20;
 Colum.Columns[4].ColumnWidth:=20;
 Colum.Columns[5].ColumnWidth:=20;
 Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
 
 Sheet.Cells[1,2]:='Отчёт из Запроса Delphi';
 Colum.Rows[1].Font.Size:=14;
 for i:=1 to DBGrid1.Columns.Count do
 Sheet.Cells[2,i]:=fDM.ADOQuery1.Fields[i-1].FieldName;
 
fDM.ADOQuery1.First;
 vertical:=3;
 for i:=1 to fDM.ADOQuery1.RecordCount do   begin
 for j:=1 to DBGrid1.Columns.Count          do   begin
         sheet.Cells[vertical,j]:=fDM.ADOQuery1.Fields[j-1].AsString; //Наполнение таблицы
                                                 end;
    fDM.ADOQuery1.Next;
    Inc(vertical);
    end; end;
 
procedure TForm1.Button3Click(Sender: TObject);
 var
 XLApp,Sheet,Colum:Variant;
 vertical,i,j:Integer;
 strFieldOtchet1:string;
begin
 // выбрать поле поиска
 case ComboBox1.ItemIndex of
  0: strFieldOtchet1:='fDM.ADOQuery1';
 // 1: strFieldOtchet1:='Brend';
 
 end;
 //вывод отчёта
 XLApp:=CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
 
 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
 Colum.Columns[1].ColumnWidth:=20;
 Colum.Columns[2].ColumnWidth:=20;
 Colum.Columns[3].ColumnWidth:=20;
 Colum.Columns[4].ColumnWidth:=20;
 Colum.Columns[5].ColumnWidth:=20;
 Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
 
 Sheet.Cells[1,2]:='Отчёт из Запроса Delphi';
 Colum.Rows[1].Font.Size:=14;
 for i:=1 to DBGrid1.Columns.Count do
 Sheet.Cells[2,i]:=strFieldOtchet1.Fields[i-1].FieldName;
 
fDM.ADOQuery1.First;
 vertical:=3;
 for i:=1 to fDM.ADOQuery1.RecordCount do   begin
 for j:=1 to DBGrid1.Columns.Count          do   begin
         sheet.Cells[vertical,j]:=fDM.ADOQuery1.Fields[j-1].AsString; //Наполнение таблицы
                                                 end;
    fDM.ADOQuery1.Next;
    Inc(vertical);
    end; end;
 
end;
 
end.

код именно первого "комбобокса"(о котором реч)

Delphi

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex = 0 then
DBGrid1.DataSource := fDM.DSTovarMainData;
if ComboBox1.ItemIndex = 1 then begin
fDM.TPokupatelData.MasterFields:='';
DBGrid1.DataSource := fDM.DSPokupatelData;
end;
if ComboBox1.ItemIndex = 2 then begin
fDM.TotchetData.MasterFields:='';
DBGrid1.DataSource := fDM.DSotchetData;
end;
if ComboBox1.ItemIndex = 3 then begin
fDM.TckladData.MasterFields:='';
fDM.TckladData.MasterSource:=fDM.DSckladData;
DBGrid1.DataSource := fDM.DSckladData;
end; end;

код собственно кнопки отчёта!

Delphi

procedure TForm1.Button3Click(Sender: TObject);
 var
 XLApp,Sheet,Colum:Variant;
 vertical,i,j:Integer;
 strFieldOtchet1:string;
begin
 // выбрать поле поиска
 case ComboBox1.ItemIndex of
  0: strFieldOtchet1:='fDM.ADOQuery1';
 // 1: strFieldOtchet1:='Brend';
 
 end;
 //вывод отчёта
 XLApp:=CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
 
 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
 Colum.Columns[1].ColumnWidth:=20;
 Colum.Columns[2].ColumnWidth:=20;
 Colum.Columns[3].ColumnWidth:=20;
 Colum.Columns[4].ColumnWidth:=20;
 Colum.Columns[5].ColumnWidth:=20;
 Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
 
 Sheet.Cells[1,2]:='Отчёт из Запроса Delphi';
 Colum.Rows[1].Font.Size:=14;
 for i:=1 to DBGrid1.Columns.Count do
 Sheet.Cells[2,i]:=strFieldOtchet1.Fields[i-1].FieldName;
 
fDM.ADOQuery1.First;
 vertical:=3;
 for i:=1 to fDM.ADOQuery1.RecordCount do   begin
 for j:=1 to DBGrid1.Columns.Count          do   begin
         sheet.Cells[vertical,j]:=fDM.ADOQuery1.Fields[j-1].AsString; //Наполнение таблицы
                                                 end;
    fDM.ADOQuery1.Next;
    Inc(vertical);
    end; end;
 
end;

@Shura_deg · 01.11.2015, 15:04 **[ТС]**

вся программа
2ADONEW.rar

@Shura_deg · 01.11.2015, 15:25 **[ТС]**

разобрался то что я в первый раз хотел осуществить на сколько я понял невозможно!
буду писать отдельно для каждой таблицы выводы отчётов

Добавлено через 13 минут
такой вопрос

Delphi

procedure TForm1.Button3Click(Sender: TObject);
 var
  strFieldOtchet1:string;
begin
// выбрать поле поиска
 case ComboBox1.ItemIndex of
  0: strFieldOtchet1:='TovarMain';
  1: strFieldOtchet1:='Pokupatel';
  2: strFieldOtchet1:='Otchet';
  3: strFieldOtchet1:='Cklad';
 end;
 // выполнить поиск
 fDM.ADOQuery1.Close;
 fDM.ADOQuery1.SQL.Clear;
 fDM.ADOQuery1.SQL.Add('Select * from '+strFieldOtchet1+';');
 fDM.ADOQuery1.Open;
 //fDM.ADOQuery1.FieldByName('Model').DisplayLabel:='Модель';
end;

пишет ошибка в FROM

Добавлено через 4 минуты
всё сделал как хотел!! может кому-нибудь пригодится

Delphi

procedure TForm1.Button3Click(Sender: TObject);
 var
 XLApp,Sheet,Colum:Variant;
 vertical,i,j:Integer;
  strFieldOtchet1:string;
begin  //begin
// выбрать поле поиска
 case ComboBox1.ItemIndex of
  0: strFieldOtchet1:='TovarMain';
  1: strFieldOtchet1:='Pokupatel';
  2: strFieldOtchet1:='Otchet';
  3: strFieldOtchet1:='Cklad';
 end;
 // выполнить поиск
 fDM.ADOQuery1.Close;
 fDM.ADOQuery1.SQL.Clear;
 fDM.ADOQuery1.SQL.Add('Select * from '+strFieldOtchet1+';');
 fDM.ADOQuery1.Open;
 //fDM.ADOQuery1.FieldByName('Model').DisplayLabel:='Модель';
 
 XLApp:=CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
 
 Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
 Colum.Columns[1].ColumnWidth:=20;
 Colum.Columns[2].ColumnWidth:=20;
 Colum.Columns[3].ColumnWidth:=20;
 Colum.Columns[4].ColumnWidth:=20;
 Colum.Columns[5].ColumnWidth:=20;
 Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
 
 Sheet.Cells[1,2]:='Отчёт из Таблицы Delphi';
 Colum.Rows[1].Font.Size:=14;
 for i:=1 to DBGrid1.Columns.Count do
 Sheet.Cells[2,i]:=fDM.ADOQuery1.Fields[i-1].FieldName;
 
fDM.ADOQuery1.First;
 vertical:=3;
 for i:=1 to fDM.ADOQuery1.RecordCount do   begin
 for j:=1 to DBGrid1.Columns.Count          do   begin
         sheet.Cells[vertical,j]:=fDM.ADOQuery1.Fields[j-1].AsString; //Наполнение таблицы
                                                 end;
    fDM.ADOQuery1.Next;
    Inc(vertical);
    end;
 
end;//end

Скандербег · 01.11.2015, 15:34

А есть более простое решение:

Delphi

procedure TForm1.Button3Click(Sender: TObject);
var
  XLApp,Sheet,Colum:Variant;
  vertical,i,j:Integer;
begin
 //вывод отчёта
  XLApp := CreateOleObject('Excel.Application');
  XLApp.Visible:=true;
  XLApp.Workbooks.Add(-4167);
  XLApp.Workbooks[1].WorkSheets[1].Name:='Отчёт';
 
  Colum:=XLApp.Workbooks[1].WorkSheets['Отчёт'].Columns;
  Colum.Columns[1].ColumnWidth:=20;
  Colum.Columns[2].ColumnWidth:=20;
  Colum.Columns[3].ColumnWidth:=20;
  Colum.Columns[4].ColumnWidth:=20;
  Colum.Columns[5].ColumnWidth:=20;
  Sheet:=XLApp.Workbooks[1].WorkSheets['Отчёт'];
 
  Sheet.Cells[1,2] := 'Отчёт из Запроса Delphi';
  Colum.Rows[1].Font.Size := 14;
  for i:=1 to DBGrid1.Columns.Count do
    Sheet.Cells[2,i] := DBGrid1.DataSource.DataSet.Fields[i-1].FieldName;
 
  DBGrid1.DataSource.DataSet.First;
  vertical := 3;
  for i := 1 to DBGrid1.DataSource.DataSet.RecordCount do begin
    for j := 1 to DBGrid1.Columns.Count do
      sheet.Cells[vertical,j] := DBGrid1.DataSource.DataSet.Fields[j-1].AsString; //Наполнение таблицы
    DBGrid1.DataSource.DataSet.Next;
    Inc(vertical);
  end;
end;

Берем данные из ADOTable, того который выбран в комбобоксе и данные которого отображаются в гриде.
Т.е. программно ничего не выбираем, а обращаемся к Dataset через Datasource грида.

@Shura_deg 83 / 19 / 5 Регистрация: 01.02.2015 Сообщений: 655
		1
	MS Access Выбор имени компонента через ComboBox 01.11.2015, 14:16. Показов 1457. Ответов 8 Метки нет (Все метки) как правильно сделать??? ......... var strFieldOtchet1:string; ................................ case ComboBox1.ItemIndex of 0: strFieldOtchet1:='fDM.ADOQuery1'; ............................................. Sheet.Cells[2,i]:=strFieldOtchet1.Fields[i-1].FieldName; 0

Скандербег 1074 / 987 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	01.11.2015, 14:40	2
	Если strFieldOtchet1 это строковая переменная, то обращение к такой переменной не предполагает наличие каких либо методов и свойств как в классе. После присвоения strFieldOtchet1:='fDM.ADOQuery1'; в переменной будет только строка 'fDM.ADOQuery1', но никак не объект ADOQuery1. Отсюда обращаться к strFieldOtchet1 как к классу вызовет ошибку и ничего хорошего из такого вызова не получится. Т.е. нельзя преобразовать строковую переменную к какому-нибудь классу - это не реально. 1

@Shura_deg 83 / 19 / 5 Регистрация: 01.02.2015 Сообщений: 655
	01.11.2015, 14:44 [ТС]	3
	а как тогда можно сделать? 0

@Shura_deg 83 / 19 / 5 Регистрация: 01.02.2015 Сообщений: 655
	01.11.2015, 14:46 [ТС]	4
	что бы при выборе в комбо бокс таблицы при нажатии на кнопку отчёт (в зависимости от той или иной выбранной таблицы в комбо бокс) выводился тот или иной отчёт 0

Скандербег 1074 / 987 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	01.11.2015, 14:56	5
	А "отчет" здесь вообще при чем? И что такое "отчет" в вашем понимании тоже не ясно. Видимо, выбор таблицы БД в комбобоксе должно менять текст SQL запроса в ADOQuery1 с таким расчетом, чтобы в гриде отображались данные из выбранной в комбобоксе таблицы. Может быть. Чего на форме второй грид делает? В тему он там? 0

@Shura_deg 83 / 19 / 5 Регистрация: 01.02.2015 Сообщений: 655
	01.11.2015, 15:04 [ТС]	7
	вся программа 2ADONEW.rar 0

	01.11.2015, 15:34

Выбор имени компонента через ComboBox

Решение