Отображение сотрудников определенной компании в DBGrid

@Александр228 · Регистрация: 08.04.2015

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

Доброго времени суток, хотелось бы услышать совет знающих. Есть 2 dbgrid, на первом - список всех компаний, на втором - список всех сотрудников. как бы сделать так, чтобы по двойном клике на определенную компанию отображались сотрудники только этой компании? бд mssql, связь - adoconnection - adoquery - datasourse.

@D1973 · 07.12.2020, 17:34

1. При "двойном клике на определенную компанию" получить ID этой компании (NNN)
2. Выполнить запрос

SQL
1
SELECT * FROM <Где-то_там> WHERE ID_Company = NNN

3. Отобразить результат в нужном гриде

@Александр228 · 07.12.2020, 19:38 **[ТС]**

так вот а как получить этот ID компании?

@Пытливый · 07.12.2020, 20:48

Что-бы такое получить сначала надо у вас узнать, а как у вас сотрудники связаны с какой-то компанией? Дайте структуру ваших таблиц для сотрудников и для компаний. Если вязь имеется, то вам подойдет решение мастер-деталь, а об этом на форуме масса информации с детальным описанием.

@Александр228 · 07.12.2020, 21:53 **[ТС]**

ну как то так

@M@RsHall · 08.12.2020, 09:46

Александр228,

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Tmain_form.DBGrid1DblClick(Sender: TObject);
var id_company:integer;
begin
id_company:=0;
id_company:=DBGrid1.DataSource.DataSet.FieldByName('id_company').Value;
if id_company<>0 then 
begin
ADOQuery1.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Sotrudniki WHERE ID_Company =:id_company');
ADOQuery1.Parameters.ParamByName('id_company').Value:=id_company;
ADOQuery1.Active:=True;
end;
end;

название формы и запрос измените на свои

@Пытливый · 08.12.2020, 10:42

Можно и запросом, как предлагает M@RsHall, но удобнее использовать отношение мастер-деталь, как я уже писал выше. В этом случае дополнительного кода не потребуется, все настраивается непосредственно в дизайнере.

@Александр228 · 10.12.2020, 17:09 **[ТС]**

Спасибо Вам, но не могли бы объяснить что у меня не так?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.DBGrid1DblClick(Sender: TObject);
var id_company: integer;
begin
    id_company := 0;
    id_company := DBGrid1.DataSource.DataSet.FieldByName('id_company').Value;
    if id_company <>0 then
    begin
      Datamodule2.Query_Sotr.Clear;
      Datamodule2.Query_Sotr.SQL.Add('SELECT * FROM Sotrudniki WHERE ID_Company =:id_company');
      Datamodule2.Query_Sotr.Parameters.ParamByName('id_company').Value:=id_company;
      Datamodule2.Query_Sotr.Active:=True;
    end;
 
end;

в строке Query_Sotr.Clear подчеркивает слово Clear - TADOQuery not in edit or insert mode, если выбрать из списка ClearFields - приложение запускается, но на моменте даблклика по строке Query_Sotr not in edit or insert mode

Добавлено через 16 минут
Проблема решена - нужно было всего лишь добавить SQL в строке Query_Sotr.SQL.Add

Добавлено через 23 минуты
Есть небольшая проблема - если отображать в dbgride только поля таблицы сотрудники, то все в порядке, но поля отдел, должность и имя компании в которой они работают, подтягиваются из других таблиц по id, и при попытке вывести все поля выбивает ошибку Query_Sotr -'name_otdel' не найдено. Понимаю, что скорее всего нужно использовать Join, в одну строку все не могу вписать поэтому так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.DBGrid1DblClick(Sender: TObject);
var id_company: integer;
begin
    id_company := 0;
    id_company := DBGrid1.DataSource.DataSet.FieldByName('id_company').Value;
    if id_company <>0 then
    begin
      Datamodule2.Query_Sotr.SQL.Clear;
      Datamodule2.Query_Sotr.SQL.Add('SELECT * FROM Sotrudniki WHERE ID_Company =:id_company');
      Datamodule2.Query_Sotr.SQL.Add('SELECT Sotrudniki.FIO_Sotr,Sotrudniki.Adress, Sotrudniki.Telephon, Otdel.Name_Otdel,  Doljnost.Name_doljnost, Company.Name_Company from Sotrudniki left join Otdel on Sotrudniki.id_Otdel=Otdel.id_Otdel');
     Datamodule2.Query_Sotr.SQL.Add('SELECT Sotrudniki.FIO_Sotr,Sotrudniki.Adress, Sotrudniki.Telephon, Otdel.Name_Otdel,  Doljnost.Name_doljnost, Company.Name_Company from Sotrudniki left join Doljnost on Sotrudniki.id_Doljnost=Doljnost .id_Doljnost');
      Datamodule2.Query_Sotr.SQL.Add('SELECT Sotrudniki.FIO_Sotr,Sotrudniki.Adress, Sotrudniki.Telephon, Otdel.Name_Otdel,  Doljnost.Name_doljnost, Company.Name_Company from Sotrudniki left join Company on Sotrudniki.id_Company=Company.id_Company');
      Datamodule2.Query_Sotr.Parameters.ParamByName('id_company').Value:=id_company;
      Datamodule2.Query_Sotr.Active:=True;
    end;
 
end;

или есть какое то более рациональное направление, куда мне стоит двигаться?

@krapotkin · 10.12.2020, 18:11

а что это за складирование четырех запросов в одну кучу? стр 9--13
один должен быть

@Александр228 · 10.12.2020, 18:15 **[ТС]**

так вот и сам вопрос собственно - как соединить эти 4 запроса в 1?
Сколько пробую пришел только к 2 рабочим вариантам - или вместо названия отдела, должности ID, закрепленный за ней или вовсе без этих столбцов

@krapotkin · 10.12.2020, 18:47

Эмм. SQL почитать не?

http://www.skillz.ru/dev/php/a... OUTER.html

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

@Александр228 1 / 1 / 0 Регистрация: 08.04.2015 Сообщений: 41

	Отображение сотрудников определенной компании в DBGrid 07.12.2020, 15:20. Показов 1353. Ответов 10 Метки нет (Все метки) Доброго времени суток, хотелось бы услышать совет знающих. Есть 2 dbgrid, на первом - список всех компаний, на втором - список всех сотрудников. как бы сделать так, чтобы по двойном клике на определенную компанию отображались сотрудники только этой компании? бд mssql, связь - adoconnection - adoquery - datasourse. 0

@Александр228 1 / 1 / 0 Регистрация: 08.04.2015 Сообщений: 41
	07.12.2020, 19:38 [ТС]
	так вот а как получить этот ID компании? 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	07.12.2020, 20:48
	Что-бы такое получить сначала надо у вас узнать, а как у вас сотрудники связаны с какой-то компанией? Дайте структуру ваших таблиц для сотрудников и для компаний. Если вязь имеется, то вам подойдет решение мастер-деталь, а об этом на форуме масса информации с детальным описанием. 0

@Александр228 1 / 1 / 0 Регистрация: 08.04.2015 Сообщений: 41
	07.12.2020, 21:53 [ТС]
	ну как то так Миниатюры 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	08.12.2020, 10:42
	Можно и запросом, как предлагает M@RsHall, но удобнее использовать отношение мастер-деталь, как я уже писал выше. В этом случае дополнительного кода не потребуется, все настраивается непосредственно в дизайнере. 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	10.12.2020, 18:11
	а что это за складирование четырех запросов в одну кучу? стр 9--13 один должен быть 0

@Александр228 1 / 1 / 0 Регистрация: 08.04.2015 Сообщений: 41
	10.12.2020, 18:15 [ТС]
	так вот и сам вопрос собственно - как соединить эти 4 запроса в 1? Сколько пробую пришел только к 2 рабочим вариантам - или вместо названия отдела, должности ID, закрепленный за ней или вовсе без этих столбцов 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	10.12.2020, 18:47
	Эмм. SQL почитать не? http://www.skillz.ru/dev/php/a... OUTER.html 0