Редактирование в DBGrid нескольких dbf

@gvenog · Регистрация: 17.04.2010

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

Я загружаю в 6 DBF таблиц через BDE с помощью SQL запроса в DBGrid:

SQL
1
2
3
4
5
6
7
8
9
10
11
12
SELECT Polz.ZAVOD_CODE, S_zav.ZAVOD_NAME, Polz.CEX_CODE, S_cex.CEX_NAME, Polz.GR_CODE, S_gruz.GR_NAME, Polz.TABN, Kt.FIO, Kt.DOLJ_CODE, S_dolj.DOLJ_NAME_, Polz.XF, Polz.XU, Polz.XR
FROM "KT.DBF" Kt
   INNER JOIN "POLZ.DBF" Polz
   ON  (Kt.TABN = Polz.TABN)  
   INNER JOIN "S_DOLJ.DBF" S_dolj
   ON  (S_dolj.DOLJ_CODE = Kt.DOLJ_CODE)  
   INNER JOIN "S_GRUZ.DBF" S_gruz
   ON  (S_gruz.GR_CODE = Polz.GR_CODE)  
   INNER JOIN "S_CEX.DBF" S_cex
   ON  (S_cex.CEX_CODE = Polz.CEX_CODE)  
   INNER JOIN "S_ZAV.DBF" S_zav
   ON  (S_zav.ZAVOD_CODE = Polz.ZAVOD_CODE)

Как мне добавить новое поле в DBGrid, если пишет, что DataSet не редактируема

@Sasha · 19.05.2013, 22:36

Добавить столбец в таблицу

@gvenog · 19.05.2013, 22:48 **[ТС]**

Сообщение от Sasha

Добавить столбец в таблицу

ой, неправильно выразилась, не поле добавить, а новую строку в DBGrid, если у меня выбираются данные из разных таблиц

@_Dimon_ · 20.05.2013, 01:39

накак, результат этого запроса нельзя редактировать
Или пользуйся lookup-полями,
или или делай такой запрос

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
SELECT Polz.ZAVOD_CODE, S_zav.ZAVOD_NAME, Polz.CEX_CODE, S_cex.CEX_NAME, Polz.GR_CODE, S_gruz.GR_NAME, Polz.TABN, Kt.FIO, Kt.DOLJ_CODE, S_dolj.DOLJ_NAME_, Polz.XF, Polz.XU, Polz.XR
INTO #TEMP_TABLE
FROM "KT.DBF" Kt
   INNER JOIN "POLZ.DBF" Polz
   ON  (Kt.TABN = Polz.TABN)  
   INNER JOIN "S_DOLJ.DBF" S_dolj
   ON  (S_dolj.DOLJ_CODE = Kt.DOLJ_CODE)  
   INNER JOIN "S_GRUZ.DBF" S_gruz
   ON  (S_gruz.GR_CODE = Polz.GR_CODE)  
   INNER JOIN "S_CEX.DBF" S_cex
   ON  (S_cex.CEX_CODE = Polz.CEX_CODE)  
   INNER JOIN "S_ZAV.DBF" S_zav
   ON  (S_zav.ZAVOD_CODE = Polz.ZAVOD_CODE)

В таком случае можно добавить запись, но она не сохранится в исходных таблицах.
Что потом с ней делать уже тебе решать

@gvenog · 20.05.2013, 09:44 **[ТС]**

У меня ошибка выскакивает на INTO

@Sasha · 20.05.2013, 09:48

C++
1
INSERT INTO

@gvenog · 20.05.2013, 13:16 **[ТС]**

я делаю так:

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  Query1->Close();
 Query1->SQL->Clear();
  Query1->SQL->ADD("INSERT Polz.ZAVOD_CODE, S_zav.ZAVOD_NAME, Polz.CEX_CODE, S_cex.CEX_NAME, Polz.GR_CODE, S_gruz.GR_NAME, Polz.TABN, Kt.FIO, Kt.DOLJ_CODE, S_dolj.DOLJ_NAME_, Polz.XF, Polz.XU, Polz.XR");
  Query1->SQL->ADD("INTO #TEMP_TABLE");
  Query1->SQL->ADD("FROM 'KT.DBF' Kt");
  Query1->SQL->ADD("INNER JOIN 'POLZ.DBF' Polz");
  Query1->SQL->ADD("ON  (Kt.TABN = Polz.TABN)");
  Query1->SQL->ADD("INNER JOIN 'S_DOLJ.DBF' S_dolj");
  Query1->SQL->ADD("ON  (S_dolj.DOLJ_CODE = Kt.DOLJ_CODE)");
  Query1->SQL->ADD("INNER JOIN 'S_GRUZ.DBF' S_gruz");
  Query1->SQL->ADD("ON  (S_gruz.GR_CODE = Polz.GR_CODE)");
  Query1->SQL->ADD("INNER JOIN 'S_CEX.DBF' S_cex");
  Query1->SQL->ADD("ON  (S_cex.CEX_CODE = Polz.CEX_CODE)");
  Query1->SQL->ADD("INNER JOIN 'S_ZAV.DBF' S_zav");
  Query1->SQL->ADD("ON  (S_zav.ZAVOD_CODE = Polz.ZAVOD_CODE)");
  Query1->SQL->ADD("WHERE   (S_zav.ZAVOD_CODE = " + ComboBox1->Text + ")");
  Query1->SQL->ADD("AND  (Polz.CEX_CODE = " + ComboBox2->Text + ")");
  Query1->SQL->ADD("AND  (S_gruz.GR_CODE = " + ComboBox3->Text + ")");
  Query1->ExecSQL();

выдает ошибку на Polz.ZAVOD_CODE, может я неправильно пишу запрос? и как потом работать с #TEMP_TABLE?

@Sasha · 20.05.2013, 13:29

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
SELECT Polz.ZAVOD_CODE, S_zav.ZAVOD_NAME, Polz.CEX_CODE, S_cex.CEX_NAME, Polz.GR_CODE, S_gruz.GR_NAME, Polz.TABN, Kt.FIO, Kt.DOLJ_CODE, S_dolj.DOLJ_NAME_, Polz.XF, Polz.XU, Polz.XR
INSERT INTO #TEMP_TABLE
FROM "KT.DBF" Kt
   INNER JOIN "POLZ.DBF" Polz
   ON  (Kt.TABN = Polz.TABN)  
   INNER JOIN "S_DOLJ.DBF" S_dolj
   ON  (S_dolj.DOLJ_CODE = Kt.DOLJ_CODE)  
   INNER JOIN "S_GRUZ.DBF" S_gruz
   ON  (S_gruz.GR_CODE = Polz.GR_CODE)  
   INNER JOIN "S_CEX.DBF" S_cex
   ON  (S_cex.CEX_CODE = Polz.CEX_CODE)  
   INNER JOIN "S_ZAV.DBF" S_zav
   ON  (S_zav.ZAVOD_CODE = Polz.ZAVOD_CODE)

@gvenog · 20.05.2013, 13:33 **[ТС]**

Ошибка: "Invalid use of keyword. Token: INSERT. line Number: 2"

@_Dimon_ · 20.05.2013, 16:17

Сообщение от Sasha

C++
1
INSERT INTO

инсерта ненужно, просто в BDE, скорй всего, не поддерживается INTO

gvenog, сделай lookup-поля. Тут больше нет вариантов

@gvenog · 20.05.2013, 16:35 **[ТС]**

_Dimon_, допустим я сделаю lookup поля, но последние три значения: Polz.XF, Polz.XU, Polz.XR мне надо именно редактировать в Гриде, они могут принимать только два значения: "да" или "нет". нельзя ли их сделать как-то checkbox-ами?

@gvenog · 01.06.2013, 16:42 **[ТС]**

_Dimon_, сделала

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	19.05.2013, 22:36
	Добавить столбец в таблицу 0

@gvenog 1 / 1 / 0 Регистрация: 17.04.2010 Сообщений: 55
	20.05.2013, 09:44 [ТС]
	У меня ошибка выскакивает на INTO 0

@gvenog 1 / 1 / 0 Регистрация: 17.04.2010 Сообщений: 55
	20.05.2013, 13:33 [ТС]
	Ошибка: "Invalid use of keyword. Token: INSERT. line Number: 2" 0

@gvenog 1 / 1 / 0 Регистрация: 17.04.2010 Сообщений: 55
	20.05.2013, 16:35 [ТС]
	_Dimon_, допустим я сделаю lookup поля, но последние три значения: Polz.XF, Polz.XU, Polz.XR мне надо именно редактировать в Гриде, они могут принимать только два значения: "да" или "нет". нельзя ли их сделать как-то checkbox-ами? 0

@gvenog 1 / 1 / 0 Регистрация: 17.04.2010 Сообщений: 55
	01.06.2013, 16:42 [ТС]
	_Dimon_, сделала 0