Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.05.2018, 19:27   #1
Ache92
Новичок
Джуниор
 
Регистрация: 28.05.2018
Сообщений: 2
Сообщение Добавление данных в связанные таблицы.

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

Есть два компонента Adotable1(COTP) и Adotable2(DOLZHNOSTI) связанные между собой и в таблице Cотрудники есть общее поле Должность и один DBgrid1 в котом это все дело отображается. Список должностей отображается в combobox1. При добавлении новой записи, никаких ошибок нет, но и запись не добавляется в полеДолжность и проверил что ID_Должность так же не добавляется. Вот собственно как это записать или правильнее сказать обновить запись в таблице.
Код:
form1.datasource1.DataSet:=form1.COTP;
form1.COTP.Active:=false;
form1.COTP.TableName:='Сотрудники';
form1.COTP.Active:=true;

if (Trim(maskedit1.Text)='') or  (Trim(maskedit2.Text)='')
or(Trim(maskedit3.Text)='') or (Trim(Maskedit4.Text)='')
or (Trim(edit5.Text)='') or (Trim(edit6.Text)='') or (Trim(edit8.Text)='')
then
messagebox(0,'Заполните все поля','Добавление записи',MB_OK)
else begin

form1.COTP.Insert;
form1.COTP.FieldByName('Должность').AsString:=combobox1.Text;
//form1.COTP.FieldByName('Код_Должность').Value:='1';
form1.COTP.FieldByName('Фамилия').AsString:=MAskEdit1.Text;
form1.COTP.FieldByName('Имя').AsString:=MaskEdit2.Text;
form1.COTP.FieldByName('Отчество').AsString:=MAskEdit3.Text;
form1.COTP.FieldByName('Дата рождения').AsDateTime:=datetimepicker1.DateTime;
form1.COTP.FieldByName('Место прописки').AsString:=Edit5.Text;
form1.COTP.FieldByName('Место проживания').AsString:=Edit6.Text;
form1.COTP.FieldByName('Серия паспорта').AsString:=Maskedit4.Text;
form1.COTP.FieldByName('Кем выдан').AsString:=Edit8.Text;
form1.COTP.FieldByName('Дата выдачи').AsDateTime:=datetimepicker2.DateTime;
form1.COTP.Post;
form1.COTP.Refresh;

Последний раз редактировалось Ache92; 28.05.2018 в 19:32.
Ache92 вне форума Ответить с цитированием
Старый 29.05.2018, 09:37   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

Цитата:
но и запись не добавляется в полеДолжность и проверил что ID_Должность так же не добавляется
Цитата:
Вот собственно как это записать
как задать ссылку на должность.
найти нужное значение в другом НД(списке должностей) и задать(присвоить) найденное.
http://www.programmersforum.ru/showp...16&postcount=2
программа — запись алгоритма на языке понятном транслятору

Последний раз редактировалось evg_m; 29.05.2018 в 09:39.
evg_m на форуме Ответить с цитированием
Старый 30.05.2018, 10:33   #3
Ache92
Новичок
Джуниор
 
Регистрация: 28.05.2018
Сообщений: 2
По умолчанию

Другая Таблица "Должность" в которой есть поле "Должность" наверное из за этого тоже может быть проблема?
Ache92 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
добавление записей в связанные таблицы Soft23 Помощь студентам 0 17.03.2017 17:33
добавление данных в связанные таблицы PHP и MySQL jamol PHP 1 20.12.2012 13:54
Добавление строк в связанные таблицы StIKEG БД в Delphi 4 16.06.2010 11:46
Добавление в связанные таблицы ADOQuery и ADOTable Alukard ń_ಶ Помощь студентам 0 07.06.2010 21:11
Добавление в связанные таблицы, ШИФР->товар1, товар2, ISSA БД в Delphi 1 21.06.2008 21:33