Вывод кратких характеристик (некоторые столбцы из БД)

@4EL0VEK · Регистрация: 14.12.2016

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

Буду краток...

Сразу приложу скрин для наглядного примера.

Необходимо вывести конкретные данные из конкретной таблицы.

Из одной таблицы получилось вывести данные в Listbox, а из других таблиц не могу... Пробовал записать так же как из первой таблицы - тишина. Не могу понять почему. Нужна помощь. Мозг кипит, прямо чую, что скорее всего что то где-то забыл дописать...

Вот код:

Delphi

procedure TForm2.DBGrid1DblClick(Sender: TObject);
var mm,L:string;
begin
if Dbgrid1.DataSource=dm.DataSource1 then
 
 
'Не выводит вот это! n = 1 и т.д. 
 
n = 8 спокойно выводится!' 
 
begin 
  if n=1 then begin
  label2.Caption:=DM.ADOQuery1.FieldByName('proizvoditel').Value ;
  L:='Материнская плата: '+ dm.ADOQuery1.FieldByName('proizvoditel').Value + ', '
  + 'сокет '+ dm.ADOQuery1.FieldByName('socket').Value + ', '
  + dm.ADOQuery1.FieldByName('slot_memory').Value + ' слотов для оперативной памяти ';
 
  listbox1.Items.Add(L);
  end  else
 
  if n=2 then
  label3.Caption:=DM.ADOQuery1.FieldByName('proizvoditel').Value ;
 
  if n=3 then
  label4.Caption:=DM.ADOQuery1.FieldByName('proizvoditel').Value  ;
 
  if n=4 then
  label5.Caption:=DM.ADOQuery1.FieldByName('proizvoditel').Value  ;
 
  if n=5 then
  label6.Caption:=DM.ADOQuery1.FieldByName('proizvoditel').Value  ;
 
  if n=6 then
  label7.Caption:=DM.ADOQuery1.FieldByName('proizvoditel').Value  ;
 
  if n=7 then
  label8.Caption:=DM.ADOQuery1.FieldByName('proizvoditel').Value ;
 
  begin
  if n=8 then   begin
  label9.Caption:=dm.ADOQuery1.FieldByName('name').Value ;
 
  L:='Процессор: '+ dm.ADOQuery1.FieldByName('name').Value + ', '
  + 'сокет '+ dm.ADOQuery1.FieldByName('socket').Value + ', '
  + dm.ADOQuery1.FieldByName('core').Value + ' ядра, ';
 
  listbox1.Items.Add(L);
  end;
 
  end;
end
else
begin
 
   if n=1 then
   label2.Caption:=DM.ADOMat_plat.FieldByName('proizvoditel').Value ;
 
   if n=2 then
   label3.Caption:=DM.ADOKorpus.FieldByName('proizvoditel').Value ;
 
   if n=3 then
   label4.Caption:=DM.ADOMemory.FieldByName('proizvoditel').Value  ;
 
   if n=4 then
   label5.Caption:=DM.ADOVideocard.FieldByName('proizvoditel').Value  ;
 
   if n=5 then
   label6.Caption:=DM.ADOBlock_pit.FieldByName('proizvoditel').Value  ;
 
   if n=6 then
   label7.Caption:=DM.ADOHard_disk.FieldByName('proizvoditel').Value  ;
 
   if n=7 then
   label8.Caption:=DM.ADOCooler.FieldByName('proizvoditel').Value ;
 
 
   if n=8 then
   label9.Caption:=DM.ADOProcessor.FieldByName('name').Value ;
 
   end;

@4EL0VEK · 07.06.2018, 22:19 **[ТС]**

Забыл, вот скрин

@northener · 08.06.2018, 02:14

Сообщение от 4EL0VEK

Необходимо вывести конкретные данные из конкретной таблицы.

А это условие

Delphi

1	[quote="4EL0VEK;12459257"]if Dbgrid1.DataSource=dm.DataSource1 then[/quote]

выполняется?

@4EL0VEK · 08.06.2018, 11:59 **[ТС]**

Да, для вывода таблицы в dbgrid

Добавлено через 11 минут
Процессоры же выводит, а мат.плату нехочет... Понять бы почему

Delphi

begin
* if n=8 then * begin
* label9.Caption:=dm.ADOQuery1.FieldByName('name').Value ;
L:='Процессор: '+ dm.ADOQuery1.FieldByName('name').Value + ', '
* + 'сокет '+ dm.ADOQuery1.FieldByName('socket').Value + ', '
* + dm.ADOQuery1.FieldByName('core').Value + ' ядра, ';
listbox1.Items.Add(L);
* end;

@4EL0VEK 0 / 0 / 0 Регистрация: 14.12.2016 Сообщений: 23
	07.06.2018, 22:19 [ТС]	2
	Забыл, вот скрин Миниатюры 0

	08.06.2018, 11:59