Как создать внешний ключ в таблице?

@Lacrimossa · Регистрация: 27.11.2010

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

Есть готовая таблица на основе СУБД Paradox 7, созданная через Database Desktop.
Помогите пожалуйста: как создать в этой таблице поле с внешним ключом?

@Lacrimossa · 16.04.2011, 00:17 **[ТС]**

new_in_net, спасибо конечер, но таблиц много, да... Точнее лукапов в таблице у меня много и каждый берётся из отдельной таблицы...оххх, а с моей формой неужели ничего сделать нельзя?
Это ж вообще принцип другой - неужели мне все 9 таблиц заново переделывать =__=
И столько прописывать... Охх...

@new_in_net · 16.04.2011, 00:24

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

new_in_net, спасибо конечер, но таблиц много, да... Точнее лукапов в таблице у меня много и каждый берётся из отдельной таблицы...оххх, а с моей формой неужели ничего сделать нельзя?
Это ж вообще принцип другой - неужели мне все 9 таблиц заново переделывать =__=
И столько прописывать... Охх...

почему же? если принцип lookup один и тот же, то можно вызов второй формы модифицировать на вызов с параметром какую таблицу показывать.
Сейчас сделаю пример...

@new_in_net · 16.04.2011, 00:40

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

почему же? если принцип lookup один и тот же, то можно вызов второй формы модифицировать на вызов с параметром какую таблицу показывать.
Сейчас сделаю пример...

Пожалуйста.
В примере - 3 lookup поля, 3 таблицы, но всего одна форма для подбора разных значений (а также редактирования)

@Lacrimossa · 16.04.2011, 00:46 **[ТС]**

new_in_net, о, большое спасибо)))
Пожалуй, воспользуюсь вашим методом.
Только если можно, у меня ещё пара вопросов есть:

1. Что это за компонент - cdsPod. И какие его свойства надо менять? Как он связывается с остальными компонентами?
2. Как сделать так, чтобы изменения в 1-й форме тоже сохранялись?
Т.е. все эти выбранные варианты выпадающих полей...?

@new_in_net · 16.04.2011, 00:54

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

new_in_net, о, большое спасибо)))
Пожалуй, воспользуюсь вашим методом.
Только если можно, у меня ещё пара вопросов есть:

1. Что это за компонент - cdsPod. И какие его свойства надо менять? Как он связывается с остальными компонентами?
2. Как сделать так, чтобы изменения в 1-й форме тоже сохранялись?
Т.е. все эти выбранные варианты выпадающих полей...?

1. cdsPod & cdsGlav - это TClientDataSet, я его использовал за отсутствием ваших данных, для более наглядной демонстрации. Вам, для ваших целей, нужно все эти компоненты заменить на TTable либо TQuery
2. В конце процедуры Lookup прямо после присваивания значения полю сделайте Post (сохранить)

@Lacrimossa · 16.04.2011, 12:55 **[ТС]**

new_in_net, всё понятно, премного вам благодарна за помощь!

Завтра попробую переделать всё под свою базу, если вдруг будут проблемы, то ещё отпишусь тут обязательно)

Добавлено через 11 часов 33 минуты
new_in_net, вот, попробовала переделать по вашей инструкции под свою базу с Query.
Сделала следующие изменения в коде:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.DBGrid1EditButtonClick(Sender: TObject);
var
  EditField: string;
begin
  EditField := DBGrid1.Fields[DBGrid1.SelectedIndex].FieldName;
  if SameText(EditField, 'Темп. наружного воздуха') then begin
    if Form2.ShowModal <> mrOk then
      exit;
    Form1.Query1.Edit;
    Form1.Query1.FieldByName(EditField).AsString := Form2.Query1.FieldByName('Темп. наружного воздуха').AsString;
  end;
 
  if SameText(EditField, 'Удельный V теплосети') then begin
    if Form3.ShowModal <> mrOk then
      exit;
    Form1.Query1.Edit;
    Form1.Query1.FieldByName(EditField).AsString := Form3.Query1.FieldByName('Удельный объём теплосети').AsString;
  end;
 
end;

Ошибок нет, но и списка выбора, такого как у вас тоже нет ни в одном из полей.
Подскажите пожалуйста, в чём может быть проблема?

Добавлено через 10 минут
И да, ещё кое что: у меня почему-то не сохраняется свойство ButtonStyle=Ellipsis. Изменяю сохраняю, но если закрываю проект и открываю его заново, то ButtonStyle снова стоит в положении cbsAuto.

@new_in_net · 16.04.2011, 16:47

Вспомогательную таблицу точно открываете и там что-то есть?
И еще, а на второй форме у грида и навигатора свойство датасет куда смотрит?
Кстати вы же хотели Post дописать - я его в коде не вижу.

И да, ещё кое что: у меня почему-то не сохраняется свойство ButtonStyle=Ellipsis. Изменяю сохраняю, но если закрываю проект и открываю его заново, то ButtonStyle снова стоит в положении cbsAuto.

странно... а другие свойства в инспекторе меняете - сохраняет?

@Lacrimossa · 16.04.2011, 16:58 **[ТС]**

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

Да, с этим всё нормально.

И еще, а на второй форме у грида и навигатора свойство датасет куда смотрит?

На Query1 естественно.

Кстати вы же хотели Post дописать - я его в коде не вижу.

Он там уже не нужен. Всё и так сохраняется.

странно... а другие свойства в инспекторе меняете - сохраняет?

Нууу, до этого всё было нормально.

Так... Может для пущей ясности мне лучше свою таблицу прикрепить? =__= Она страшненькая и огромная конечно... Но может хотя бы так будет что-то яснее для вас. пол дня уже сижу и НЕ ВИЖУ, и не могу понять, почему список не работает...

Добавлено через 15 секунд

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

Да, с этим всё нормально.

И еще, а на второй форме у грида и навигатора свойство датасет куда смотрит?

На Query1 естественно.

Кстати вы же хотели Post дописать - я его в коде не вижу.

Он там уже не нужен. Всё и так сохраняется.

странно... а другие свойства в инспекторе меняете - сохраняет?

Нууу, до этого всё было нормально.

Так... Может для пущей ясности мне лучше свою таблицу прикрепить? =__= Она страшненькая и огромная конечно... Но может хотя бы так будет что-то яснее для вас. пол дня уже сижу и НЕ ВИЖУ, и не могу понять, почему список не работает...

@Lacrimossa · 16.04.2011, 17:05 **[ТС]**

Вот...

Всего в ней должно быть 7 таких полей с выпадающим списком.
Я пока пыталась прописать первые два: Темп. наружного воздуха и Удельный V теплосети. Но вот безрезультатно пока что...

@new_in_net · 17.04.2011, 16:28

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

Вот...

Всего в ней должно быть 7 таких полей с выпадающим списком.
Я пока пыталась прописать первые два: Темп. наружного воздуха и Удельный V теплосети. Но вот безрезультатно пока что...

в понедельник с работы посмотрю...

@Lacrimossa · 17.04.2011, 16:33 **[ТС]**

в понедельник с работы посмотрю...

Хорошо, большое спасибо, буду ждать. А то уже всё что могла - обыскала на предмет, в чём же может быть дело.

Попробовала сделать заново на чистом маленьком примере всё - то же самое, ошибок нет, но и кнопочка в поле тоже не появляется.

Не хочет оно с Query работать. =_=

@new_in_net · 18.04.2011, 18:44

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

Хорошо, большое спасибо, буду ждать. А то уже всё что могла - обыскала на предмет, в чём же может быть дело.

Попробовала сделать заново на чистом маленьком примере всё - то же самое, ошибок нет, но и кнопочка в поле тоже не появляется.

Не хочет оно с Query работать. =_=

Во первых, у меня ничего не открывает - русский текст в моем Делфи не воспринимается в названиях переменных и т.д.
А во вторых, у вас все таблицы пустые... может поэтому не видно данных?

Даже не знаю что предложить...
Ну вот например выставить стиль кнопки столбца можно run-time вот так: (для второго столбца)
DBGrid1.Columns[1].ButtonStyle := cbsEllipsis

Не по теме:

Ну зачем названия компонент и полей на русском делать?? Весь мир называет это на английском, зачем же заведомо ограничивать свои программы Россией, а точнее той частью которая использует русифицированный язык?

@Lacrimossa · 18.04.2011, 18:57 **[ТС]**

А во вторых, у вас все таблицы пустые... может поэтому не видно данных?

Как понять, пустые? В каждой из вспомогательных таблиц введено по 3-4 значения, специально, чтобы пустоты этой не было. В той работе которую я вам скинула - всё нормально в этом плане. Пуста только главная таблица, которую надо заполнять, и в которой, собственно и нужны эти списки выбора. Ну и ещё последняя - она пока вообще не задействована нигде - там результаты будут потом.

Даже не знаю что предложить...
Ну вот например выставить стиль кнопки столбца можно run-time вот так: (для второго столбца)
DBGrid1.Columns[1].ButtonStyle := cbsEllipsis

Хорошо, спасибо, сейчас попробую.

Не по теме:
Ну зачем названия компонент и полей на русском делать?? Весь мир называет это на английском, зачем же заведомо ограничивать свои программы Россией, а точнее той частью которая использует русифицированный язык?

Я разрабатываю программу узкого функционала специально только для одного местного предприятия и им нужен преимущественно русскоязычный интерфейс. Врят ли ещё где-то за рубежом и даже в России на каком-то предприятии это программа будет нужна.

Зы: эта моя дипломная работа.

Добавлено через 5 минут
new_in_net, уррраааа!!!!!!
Спасибо вам огромное!!!!!!!!!!!!! Работает!
Прописала в программе нужный мне 8-й столбец! Всё работает, открывается нужная таблица и вариант выбирается!
Премного вам благодарна, вы мне очень помогли!
А то 2 недели было убито на решение проблемы со списком выбора! Я вам безмерно благодарна!!!

Пойду остальные столбцы сделаю и дальше буду писать.

@new_in_net · 18.04.2011, 19:28

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

Как понять, пустые? В каждой из вспомогательных таблиц введено по 3-4 значения, специально, чтобы пустоты этой не было. В той работе которую я вам скинула - всё нормально в этом плане. Пуста только главная таблица, которую надо заполнять, и в которой, собственно и нужны эти списки выбора. Ну и ещё последняя - она пока вообще не задействована нигде - там результаты будут потом.

странно, но у меня действительно они все - пустые... может опять глюки с русскими столбцами??

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

Хорошо, спасибо, сейчас попробую.
Я разрабатываю программу узкого функционала специально только для одного местного предприятия и им нужен преимущественно русскоязычный интерфейс. Врят ли ещё где-то за рубежом и даже в России на каком-то предприятии это программа будет нужна.

Я понимаю, тем не менее пользователь видит только интерфейс, а таблицы, названия компонент - только программист, а ему должно быть важнa совместимость, безглючность, да и возможнось получения помощи не только от россиян

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

Зы: эта моя дипломная работа.

Добавлено через 5 минут
new_in_net, уррраааа!!!!!!
Спасибо вам огромное!!!!!!!!!!!!! Работает!
Прописала в программе нужный мне 8-й столбец! Всё работает, открывается нужная таблица и вариант выбирается!
Премного вам благодарна, вы мне очень помогли!
А то 2 недели было убито на решение проблемы со списком выбора! Я вам безмерно благодарна!!!

Пойду остальные столбцы сделаю и дальше буду писать.

Отлично, я очень рад!
Удачи вам!

@Lacrimossa · 18.04.2011, 19:35 **[ТС]**

странно, но у меня действительно они все - пустые... может опять глюки с русскими столбцами??

Возможно. Я сейчас скачала тот вариант, который вам прикрепляла здесь, там всё есть. Так что к сожалению (или к счастью?) ваш комп русский язык не переваривает =__=

Я понимаю, тем не менее пользователь видит только интерфейс, а таблицы, названия компонент - только программист, а ему должно быть важнa совместимость, безглючность, да и возможность получения помощи не только от россиян

Ну я и сама как бы не ярый знаток английского, кроме того с таблицами всё же никак - ибо столбцы в гриде автоматически называются так же как они были созданы в Датабэйсе изначально, с этим ничего не могу поделать. А названия самих таблиц - все латиницей, тут ОК.

Отлично, я очень рад!
Удачи вам!

А я то как рада!
Большое спасибо!

Хотя я скорее всего не раз ещё отпишусь на форуме, но уже по другим вопросам

@new_in_net · 18.04.2011, 19:45

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

Ну я и сама как бы не ярый знаток английского, кроме того с таблицами всё же никак - ибо столбцы в гриде автоматически называются так же как они были созданы в Датабэйсе изначально, с этим ничего не могу поделать. А названия самих таблиц - все латиницей, тут ОК.

автоматически - это единственное преимущество. Причем сомнительное, если писать серьезную программу

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

@Lacrimossa · 18.04.2011, 20:03 **[ТС]**

автоматически - это единственное преимущество. Причем сомнительное, если писать серьезную программу

Ну... Серьёзные программы с БД на Парадокс7 не пишутся

Об этом я в курсе уже. Да и Делфи - язык уже отмирающий, сейчас у нас ООП в моде, как ни крути

Просто за 5 лет обучения в нашем родном ВУЗ-е, ничего, кроме Delphi и СУБД Paradox7 нам не давали как следует, вот и диплом приходится на том писать, с чем хоть немного работала и имею представление.

1С я сразу же отмела для себя, ибо язык сам по себе унылый и слишком примитивный... Иным словом, - скучно.

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

Ну да, всё конечно возможно... Хотя глюки бывают с чем-угодно.

В любом случае - спасибо за совет - учту на будущее

@Ieska · 04.05.2012, 06:43

Вопрос немного другой, но название темы мне подходит.

Одна из таблиц в БД является подчинённой для двух. Для обоих нужно создать внешний ключ в Database Desctop. Но он при попытке создать второй внешний ключ пишет "Field(s) linked to more than one master". Что мне с этим делать? Подскажите, пожалуйста.

И ещё - почему ему нужно, чтобы типы поля совпадали? А если у меня первичный ключ главной таблицы alpha, а подчинённой - short, как мне во второй создать внешний ключ?

Подскажите ) Спасибо заранее )

Новые блоги и статьи Все статьи Все блоги /
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Lacrimossa 3 / 3 / 0 Регистрация: 27.11.2010 Сообщений: 54

	Как создать внешний ключ в таблице? 15.04.2011, 15:04. Показов 7335. Ответов 37 Метки нет (Все метки) Есть готовая таблица на основе СУБД Paradox 7, созданная через Database Desktop. Помогите пожалуйста: как создать в этой таблице поле с внешним ключом? 0

@Lacrimossa 3 / 3 / 0 Регистрация: 27.11.2010 Сообщений: 54
	16.04.2011, 00:17 [ТС]
	new_in_net, спасибо конечер, но таблиц много, да... Точнее лукапов в таблице у меня много и каждый берётся из отдельной таблицы...оххх, а с моей формой неужели ничего сделать нельзя? Это ж вообще принцип другой - неужели мне все 9 таблиц заново переделывать =__= И столько прописывать... Охх... 0

@Lacrimossa 3 / 3 / 0 Регистрация: 27.11.2010 Сообщений: 54
	16.04.2011, 00:46 [ТС]
	new_in_net, о, большое спасибо))) Пожалуй, воспользуюсь вашим методом. Только если можно, у меня ещё пара вопросов есть: 1. Что это за компонент - cdsPod. И какие его свойства надо менять? Как он связывается с остальными компонентами? 2. Как сделать так, чтобы изменения в 1-й форме тоже сохранялись? Т.е. все эти выбранные варианты выпадающих полей...? 0

@Ieska 1 / 1 / 1 Регистрация: 21.04.2012 Сообщений: 57
	04.05.2012, 06:43
	Вопрос немного другой, но название темы мне подходит. Одна из таблиц в БД является подчинённой для двух. Для обоих нужно создать внешний ключ в Database Desctop. Но он при попытке создать второй внешний ключ пишет "Field(s) linked to more than one master". Что мне с этим делать? Подскажите, пожалуйста. И ещё - почему ему нужно, чтобы типы поля совпадали? А если у меня первичный ключ главной таблицы alpha, а подчинённой - short, как мне во второй создать внешний ключ? Подскажите ) Спасибо заранее ) 0