Два DBGrid, несколько DataSource

[Volodini]

Здравствуйте, при написании кода возникла следующая проблема. Начну с самого начала.
Мне нужно было написать БД с несколькими таблицами. Для этого в качестве выпадающего списка для выбора я использовал первый DBGrid1, а затем с помощью события DBGrid1CellClick и команды N1:=TStringGrid(DBGrid1).Row считывал подходящую строку. Потом с помощью функции case я должен был изменять значение DataSource во втором DBGrid2, но при выборе 2 строки таблица не отобразилась.
Внимание вопрос. Почему при замене DataSource DBGrid не отобразил новую таблицу?


Вот код
unit Unit3;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,
Vcl.DBGrids, Vcl.StdCtrls;

type
TfSag = class(TForm)
Edit1: TEdit;
DBGrid1: TDBGrid;
DSSag: TDataSource;
qSag: TADOQuery;
DBGrid2: TDBGrid;
qKTLS: TADOQuery;
qKTLP: TADOQuery;
qKTLF: TADOQuery;
DSKTLS: TDataSource;
DSKTLP: TDataSource;
DSKTLF: TDataSource;
DBGrid3: TDBGrid;
DSSmrt: TDataSource;
qSmrt: TADOQuery;
qFtbr: TADOQuery;
qPhone: TADOQuery;
qRadio: TADOQuery;
qPln: TADOQuery;
qBook: TADOQuery;
qPhoto: TADOQuery;
DSFtbr: TDataSource;
DSPhone: TDataSource;
DSRadio: TDataSource;
DSPln: TDataSource;
DSBook: TDataSource;
DSPhoto: TDataSource;
DSVideo: TDataSource;
qVideo: TADOQuery;
procedure DBGrid1CellClick(Column: TColumn);
procedure DBGrid2CellClick(Column: TColumn);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
fSag: TfSag; N1, N2:integer; tx:string;

implementation

{$R *.dfm}

uses Unit1;

procedure TfSag.DBGrid1CellClick(Column: TColumn);
begin
N1:=TStringGrid(DBGrid1).Row;
case N1 of
1: begin
DBGrid2.DataSource:=DSKTLS;
dbgrid2.Columns[0].Title.caption:='Смартфоны и гаджеты';
DBGrid2.Columns[0].Title.Font.Size:=12
end;
2: begin
DBGrid2.DataSource:=DSKTLP;
dbgrid2.Columns[0].Title.caption:='Планшеты';
DBGrid2.Columns[0].Title.Font.Size:=12
end;
3: begin
DBGrid2.DataSource:=DSKTLF;
dbgrid2.Columns[0].Title.caption:='Фототехника';
DBGrid2.Columns[0].Title.Font.Size:=12
end;
end;
end;

procedure TfSag.DBGrid2CellClick(Column: TColumn);
begin
{N2:=TStringGrid(DBGrid2).Row;
if (N1=1) and (N2=1) then begin
DBGrid3.DataSource:=DSSmrt;
dbgrid3.Columns[0].Title.caption:='Смартфоны';
DBGrid3.Columns[0].Title.Font.Size:=12;
end; }

end;

procedure TfSag.FormCreate(Sender: TObject);
begin
{DBGrid2.DataSource:=DSKTLS;
dbgrid2.Columns[0].Title.caption:='Смартфоны и гаджеты';
DBGrid2.Columns[0].Title.Font.Size:=12;
DBGrid3.DataSource:=DSSmrt;
dbgrid3.Columns[0].Title.caption:='Смартфоны';
DBGrid3.Columns[0].Title.Font.Size:=12;
DBGrid3.Columns[0].Width:=170;
DBGrid3.Columns[1].Width:=100; }
end;

end.

[evg_m]

например
1. разные поля НД.
https://programmersforum.ru/showthread.php?t=333903
2. пустые НД.
3. закрытые НД.
4. отсутствует НД в datasource.

	
	

			
				DBGrid2.DataSource:=DSKTLP;
			
		

можно конечно, но обычно делают

DBGrid2.DataSource.dataset:=....;

N1:=TStringGrid(DBGrid1).Row;
case N1 of
1: begin
DBGrid2.DataSource:=DSKTLS;
dbgrid2.Columns[0].Title.caption:='Смартфоны и гаджеты';

а если каким-либо образом запись со планшетами(или еще чем-либо но никак не смартфонами) окажется первой.
все пойдет не так как надо.

[Volodini]

evg_m, Что вы понимаете под НД?

[evg_m]

НД = (T)DataSet