Организация подгрузки данных в DBGrid - Delphi БД - Ответ 7153675

@Xenhoby · Регистрация: 26.01.2015

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

Всем привет, ребята.

Delphi 7, MySQL - localhost.

Сабж:
- есть форма;
- на ней 5 кнопок;
- есть DBGrid;

Всё это дело подключено к базе в MySQL, в которой есть 5 таблиц.

Как лучше организовать подгрузку в DBGrid информации из базы, если я хочу, чтобы данные из таблицы №1 подгружались в DBGrid по клику на кнопке №1 ?

Или же лучше - разместить на форме компонент Panel, в нём 5 радиобатонов (

) с выбором таблицы, образно говоря, и только по клику на единственной кнопке выводить через if-else'ы ?

Добавлено через 1 час 2 минуты
UPD:

Сделал всё гораздо проще

Просто немного не догнал логику работы.

Значица теперь, кому пригодится:
- ADOConnection1
- ADOTable1
- DataSource1, DataSource2
- ADOQuery1
- 3 радиобатона

- 1 DBGrid

ADOConnection1 - настраиваем на базу
ADOTable1 - на ADOConnection1, выбираем Table
DataSource1 - на ADOTable1
ADOQuery1 - на DataSource1
DataSource2 - на ADOQuery1
DBGrid - на DataSource2

Логика работы:

В событии OnClick радиобатона №1 устанавливаем следующий код:

Pascal

Form1.qry1.Active:=False;
Form1.qry1.SQL.Clear;
Form1.qry1.SQL.Add('SELECT * FROM table1;');
Form1.qry1.Active:=True;

В событии OnClick радиобатона №2 устанавливаем следующий код:

Pascal

Form1.qry1.Active:=False;
Form1.qry1.SQL.Clear;
Form1.qry1.SQL.Add('SELECT * FROM table2;');
Form1.qry1.Active:=True;

Теперь по клику на один из радиобатонов в DBGrid подгружается инфа из нужной нам таблицы

Всего-то нужно было выпить чаю и перекурить

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

Добавлено через 26 минут
Ещё UPD:

- немного иначе вытягиваются данные, теперь без глюков

- смена названий столбцов на кириллические вместо латиницы из таблицы в DBGrid;
- подстройка ширины;

OnClick радиобатона №1:

Pascal

Form1.qry1.Active:=False;
Form1.qry1.SQL.Clear;
Form1.qry1.SQL.Add('SELECT * FROM bipolar;');
Form1.qry1.Active:=True;
Form1.dbgrd1.DataSource:=Form1.ds1;
Form1.dbgrd1.Repaint;
 
Form1.dbgrd1.Columns[0].Visible:=False;
Form1.dbgrd1.Columns[1].Title.Caption:='Ìîäåëü';
Form1.dbgrd1.Columns[2].Title.Caption:='Òèï';
Form1.dbgrd1.Columns[3].Title.Caption:='Óêá';
Form1.dbgrd1.Columns[4].Title.Caption:='Óêå';
Form1.dbgrd1.Columns[5].Title.Caption:='Óåá';
Form1.dbgrd1.Columns[6].Title.Caption:='Iê';
Form1.dbgrd1.Columns[7].Title.Caption:='P';
Form1.dbgrd1.Columns[8].Title.Caption:='Tmin';
Form1.dbgrd1.Columns[9].Title.Caption:='Tmax';
Form1.dbgrd1.Columns[10].Title.Caption:='Rth';
Form1.dbgrd1.Columns[11].Title.Caption:='R1';
Form1.dbgrd1.Columns[12].Title.Caption:='R2';
 
Form1.dbgrd1.Columns[1].Width:=90;
Form1.dbgrd1.Columns[2].Width:=50;
Form1.dbgrd1.Columns[3].Width:=40;
Form1.dbgrd1.Columns[4].Width:=40;
Form1.dbgrd1.Columns[5].Width:=40;
Form1.dbgrd1.Columns[6].Width:=40;
Form1.dbgrd1.Columns[7].Width:=40;
Form1.dbgrd1.Columns[8].Width:=40;
Form1.dbgrd1.Columns[9].Width:=40;
Form1.dbgrd1.Columns[10].Width:=40;
Form1.dbgrd1.Columns[11].Width:=40;
Form1.dbgrd1.Columns[12].Width:=40;

OnClick радиобатона №2:

Pascal

Form1.qry2.Active:=False;
Form1.qry2.SQL.Clear;
Form1.qry2.SQL.Add('SELECT * FROM diod;');
Form1.qry2.Active:=True;
Form1.dbgrd1.DataSource:=Form1.ds3;
Form1.dbgrd1.Repaint;
 
Form1.dbgrd1.Columns[0].Visible:=False;
Form1.dbgrd1.Columns[0].Visible:=False;
Form1.dbgrd1.Columns[1].Title.Caption:='Ìîäåëü';
Form1.dbgrd1.Columns[2].Title.Caption:='Òèï';
Form1.dbgrd1.Columns[3].Title.Caption:='V';
Form1.dbgrd1.Columns[4].Title.Caption:='Vf';
Form1.dbgrd1.Columns[5].Title.Caption:='I';
Form1.dbgrd1.Columns[6].Title.Caption:='Ir';
Form1.dbgrd1.Columns[7].Title.Caption:='Tmin';
Form1.dbgrd1.Columns[8].Title.Caption:='Tmax';
Form1.dbgrd1.Columns[9].Title.Caption:='Eas';
 
Form1.dbgrd1.Columns[1].Width:=90;
Form1.dbgrd1.Columns[2].Width:=50;
Form1.dbgrd1.Columns[3].Width:=40;
Form1.dbgrd1.Columns[4].Width:=40;
Form1.dbgrd1.Columns[5].Width:=40;
Form1.dbgrd1.Columns[6].Width:=40;
Form1.dbgrd1.Columns[7].Width:=40;
Form1.dbgrd1.Columns[8].Width:=40;
Form1.dbgrd1.Columns[9].Width:=40;

Вернуться к обсуждению:
Организация подгрузки данных в DBGrid Delphi БД

Следующий ответ